amazonka-cloudfront 1.4.5 → 1.5.0

raw patch · 39 files changed

+5408/−4660 lines, 39 filesdep ~amazonka-cloudfrontdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-cloudfront.cabal +17/−11
• fixture/DeleteServiceLinkedRole.yaml +10/−0
• fixture/DeleteServiceLinkedRoleResponse.proto +0/−0
• gen/Network/AWS/CloudFront.hs +72/−31
• gen/Network/AWS/CloudFront/CreateCloudFrontOriginAccessIdentity.hs +42/−31
• gen/Network/AWS/CloudFront/CreateDistribution.hs +32/−30
• gen/Network/AWS/CloudFront/CreateDistributionWithTags.hs +32/−28
• gen/Network/AWS/CloudFront/CreateInvalidation.hs +33/−29
• gen/Network/AWS/CloudFront/CreateStreamingDistribution.hs +32/−28
• gen/Network/AWS/CloudFront/CreateStreamingDistributionWithTags.hs +41/−30
• gen/Network/AWS/CloudFront/DeleteCloudFrontOriginAccessIdentity.hs +30/−23
• gen/Network/AWS/CloudFront/DeleteDistribution.hs +22/−21
• gen/Network/AWS/CloudFront/DeleteServiceLinkedRole.hs +100/−0
• gen/Network/AWS/CloudFront/DeleteStreamingDistribution.hs +22/−20
• gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentity.hs +29/−24
• gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentityConfig.hs +39/−30
• gen/Network/AWS/CloudFront/GetDistribution.hs +28/−27
• gen/Network/AWS/CloudFront/GetDistributionConfig.hs +28/−27
• gen/Network/AWS/CloudFront/GetInvalidation.hs +25/−26
• gen/Network/AWS/CloudFront/GetStreamingDistribution.hs +28/−26
• gen/Network/AWS/CloudFront/GetStreamingDistributionConfig.hs +29/−25
• gen/Network/AWS/CloudFront/ListCloudFrontOriginAccessIdentities.hs +38/−29
• gen/Network/AWS/CloudFront/ListDistributions.hs +28/−27
• gen/Network/AWS/CloudFront/ListDistributionsByWebACLId.hs +32/−27
• gen/Network/AWS/CloudFront/ListInvalidations.hs +33/−29
• gen/Network/AWS/CloudFront/ListStreamingDistributions.hs +28/−26
• gen/Network/AWS/CloudFront/ListTagsForResource.hs +24/−24
• gen/Network/AWS/CloudFront/TagResource.hs +23/−22
• gen/Network/AWS/CloudFront/Types.hs +221/−89
• gen/Network/AWS/CloudFront/Types/Product.hs +3950/−3709
• gen/Network/AWS/CloudFront/Types/Sum.hs +106/−50
• gen/Network/AWS/CloudFront/UntagResource.hs +23/−22
• gen/Network/AWS/CloudFront/UpdateCloudFrontOriginAccessIdentity.hs +44/−33
• gen/Network/AWS/CloudFront/UpdateDistribution.hs +62/−32
• gen/Network/AWS/CloudFront/UpdateStreamingDistribution.hs +35/−30
• gen/Network/AWS/CloudFront/Waiters.hs +45/−37
• test/Main.hs +2/−2
• test/Test/AWS/Gen/CloudFront.hs +22/−4

@@ -8,7 +8,7 @@  ## Version -`1.4.5`+`1.5.0`   ## Description

@@ -1,13 +1,13 @@ name:                  amazonka-cloudfront-version:               1.4.5+version:               1.5.0 synopsis:              Amazon CloudFront SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,14 +29,19 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-cloudfront  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.CloudFront@@ -48,6 +53,7 @@         , Network.AWS.CloudFront.CreateStreamingDistributionWithTags         , Network.AWS.CloudFront.DeleteCloudFrontOriginAccessIdentity         , Network.AWS.CloudFront.DeleteDistribution+        , Network.AWS.CloudFront.DeleteServiceLinkedRole         , Network.AWS.CloudFront.DeleteStreamingDistribution         , Network.AWS.CloudFront.GetCloudFrontOriginAccessIdentity         , Network.AWS.CloudFront.GetCloudFrontOriginAccessIdentityConfig@@ -75,7 +81,7 @@         , Network.AWS.CloudFront.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cloudfront-test@@ -95,9 +101,9 @@         , Test.AWS.CloudFront.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-cloudfront == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-cloudfront         , base         , bytestring         , tasty

@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudfront/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudfront.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,9 +5,9 @@  -- | -- Module      : Network.AWS.CloudFront--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -29,6 +29,9 @@     -- ** InvalidErrorCode     , _InvalidErrorCode +    -- ** InvalidOriginReadTimeout+    , _InvalidOriginReadTimeout+     -- ** TooManyCacheBehaviors     , _TooManyCacheBehaviors @@ -50,6 +53,9 @@     -- ** InvalidArgument     , _InvalidArgument +    -- ** InvalidOriginKeepaliveTimeout+    , _InvalidOriginKeepaliveTimeout+     -- ** TooManyInvalidationsInProgress     , _TooManyInvalidationsInProgress @@ -77,6 +83,9 @@     -- ** TooManyCookieNamesInWhiteList     , _TooManyCookieNamesInWhiteList +    -- ** InvalidLambdaFunctionAssociation+    , _InvalidLambdaFunctionAssociation+     -- ** InvalidForwardCookies     , _InvalidForwardCookies @@ -107,6 +116,9 @@     -- ** TooManyStreamingDistributionCNAMEs     , _TooManyStreamingDistributionCNAMEs +    -- ** ResourceInUse+    , _ResourceInUse+     -- ** InvalidRequiredProtocol     , _InvalidRequiredProtocol @@ -149,6 +161,9 @@     -- ** InvalidProtocolSettings     , _InvalidProtocolSettings +    -- ** TooManyLambdaFunctionAssociations+    , _TooManyLambdaFunctionAssociations+     -- ** CloudFrontOriginAccessIdentityAlreadyExists     , _CloudFrontOriginAccessIdentityAlreadyExists @@ -176,6 +191,9 @@     -- ** InvalidDefaultRootObject     , _InvalidDefaultRootObject +    -- ** TooManyDistributionsWithLambdaAssociations+    , _TooManyDistributionsWithLambdaAssociations+     -- ** InvalidGeoRestrictionParameter     , _InvalidGeoRestrictionParameter @@ -218,6 +236,9 @@     -- ** CreateStreamingDistributionWithTags     , module Network.AWS.CloudFront.CreateStreamingDistributionWithTags +    -- ** DeleteServiceLinkedRole+    , module Network.AWS.CloudFront.DeleteServiceLinkedRole+     -- ** GetDistribution     , module Network.AWS.CloudFront.GetDistribution @@ -283,6 +304,9 @@     -- ** CertificateSource     , CertificateSource (..) +    -- ** EventType+    , EventType (..)+     -- ** GeoRestrictionType     , GeoRestrictionType (..) @@ -337,6 +361,7 @@     , CacheBehavior     , cacheBehavior     , cbAllowedMethods+    , cbLambdaFunctionAssociations     , cbMaxTTL     , cbCompress     , cbSmoothStreaming@@ -425,6 +450,8 @@     -- ** CustomOriginConfig     , CustomOriginConfig     , customOriginConfig+    , cocOriginKeepaliveTimeout+    , cocOriginReadTimeout     , cocOriginSSLProtocols     , cocHTTPPort     , cocHTTPSPort@@ -434,6 +461,7 @@     , DefaultCacheBehavior     , defaultCacheBehavior     , dcbAllowedMethods+    , dcbLambdaFunctionAssociations     , dcbMaxTTL     , dcbCompress     , dcbSmoothStreaming@@ -572,6 +600,18 @@     , kpiItems     , kpiQuantity +    -- ** LambdaFunctionAssociation+    , LambdaFunctionAssociation+    , lambdaFunctionAssociation+    , lfaLambdaFunctionARN+    , lfaEventType++    -- ** LambdaFunctionAssociations+    , LambdaFunctionAssociations+    , lambdaFunctionAssociations+    , lfaItems+    , lfaQuantity+     -- ** LoggingConfig     , LoggingConfig     , loggingConfig@@ -738,35 +778,36 @@     , vcCloudFrontDefaultCertificate     ) where -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-import           Network.AWS.CloudFront.GetCloudFrontOriginAccessIdentity-import           Network.AWS.CloudFront.GetCloudFrontOriginAccessIdentityConfig-import           Network.AWS.CloudFront.GetDistribution-import           Network.AWS.CloudFront.GetDistributionConfig-import           Network.AWS.CloudFront.GetInvalidation-import           Network.AWS.CloudFront.GetStreamingDistribution-import           Network.AWS.CloudFront.GetStreamingDistributionConfig-import           Network.AWS.CloudFront.ListCloudFrontOriginAccessIdentities-import           Network.AWS.CloudFront.ListDistributions-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-import           Network.AWS.CloudFront.Waiters+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.DeleteServiceLinkedRole+import Network.AWS.CloudFront.DeleteStreamingDistribution+import Network.AWS.CloudFront.GetCloudFrontOriginAccessIdentity+import Network.AWS.CloudFront.GetCloudFrontOriginAccessIdentityConfig+import Network.AWS.CloudFront.GetDistribution+import Network.AWS.CloudFront.GetDistributionConfig+import Network.AWS.CloudFront.GetInvalidation+import Network.AWS.CloudFront.GetStreamingDistribution+import Network.AWS.CloudFront.GetStreamingDistributionConfig+import Network.AWS.CloudFront.ListCloudFrontOriginAccessIdentities+import Network.AWS.CloudFront.ListDistributions+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+import Network.AWS.CloudFront.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.CreateCloudFrontOriginAccessIdentity--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , ccfoairsResponseStatus     ) 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+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 origin access identity. --@@ -52,9 +52,10 @@ -- -- /See:/ 'createCloudFrontOriginAccessIdentity' smart constructor. newtype CreateCloudFrontOriginAccessIdentity = CreateCloudFrontOriginAccessIdentity'-    { _ccfoaiCloudFrontOriginAccessIdentityConfig :: CloudFrontOriginAccessIdentityConfig-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccfoaiCloudFrontOriginAccessIdentityConfig :: CloudFrontOriginAccessIdentityConfig+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateCloudFrontOriginAccessIdentity' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,16 +65,19 @@     :: CloudFrontOriginAccessIdentityConfig -- ^ 'ccfoaiCloudFrontOriginAccessIdentityConfig'     -> CreateCloudFrontOriginAccessIdentity createCloudFrontOriginAccessIdentity pCloudFrontOriginAccessIdentityConfig_ =-    CreateCloudFrontOriginAccessIdentity'-    { _ccfoaiCloudFrontOriginAccessIdentityConfig = pCloudFrontOriginAccessIdentityConfig_-    }+  CreateCloudFrontOriginAccessIdentity'+  { _ccfoaiCloudFrontOriginAccessIdentityConfig =+      pCloudFrontOriginAccessIdentityConfig_+  } + -- | The current configuration information for the identity. ccfoaiCloudFrontOriginAccessIdentityConfig :: Lens' CreateCloudFrontOriginAccessIdentity CloudFrontOriginAccessIdentityConfig ccfoaiCloudFrontOriginAccessIdentityConfig = lens _ccfoaiCloudFrontOriginAccessIdentityConfig (\ s a -> s{_ccfoaiCloudFrontOriginAccessIdentityConfig = a});  instance AWSRequest-         CreateCloudFrontOriginAccessIdentity where+           CreateCloudFrontOriginAccessIdentity+         where         type Rs CreateCloudFrontOriginAccessIdentity =              CreateCloudFrontOriginAccessIdentityResponse         request = postXML cloudFront@@ -86,27 +90,31 @@                      <*> (pure (fromEnum s)))  instance Hashable-         CreateCloudFrontOriginAccessIdentity+           CreateCloudFrontOriginAccessIdentity+         where  instance NFData CreateCloudFrontOriginAccessIdentity+         where  instance ToElement-         CreateCloudFrontOriginAccessIdentity where+           CreateCloudFrontOriginAccessIdentity+         where         toElement           = mkElement-              "{http://cloudfront.amazonaws.com/doc/2016-09-29/}CloudFrontOriginAccessIdentityConfig"+              "{http://cloudfront.amazonaws.com/doc/2017-03-25/}CloudFrontOriginAccessIdentityConfig"               .               _ccfoaiCloudFrontOriginAccessIdentityConfig  instance ToHeaders-         CreateCloudFrontOriginAccessIdentity where+           CreateCloudFrontOriginAccessIdentity+         where         toHeaders = const mempty  instance ToPath CreateCloudFrontOriginAccessIdentity          where         toPath           = const-              "/2016-09-29/origin-access-identity/cloudfront"+              "/2017-03-25/origin-access-identity/cloudfront"  instance ToQuery CreateCloudFrontOriginAccessIdentity          where@@ -118,12 +126,13 @@ -- -- /See:/ 'createCloudFrontOriginAccessIdentityResponse' smart constructor. data CreateCloudFrontOriginAccessIdentityResponse = CreateCloudFrontOriginAccessIdentityResponse'-    { _ccfoairsETag                           :: !(Maybe Text)-    , _ccfoairsLocation                       :: !(Maybe Text)-    , _ccfoairsCloudFrontOriginAccessIdentity :: !(Maybe CloudFrontOriginAccessIdentity)-    , _ccfoairsResponseStatus                 :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccfoairsETag :: !(Maybe Text)+  , _ccfoairsLocation :: !(Maybe Text)+  , _ccfoairsCloudFrontOriginAccessIdentity :: !(Maybe CloudFrontOriginAccessIdentity)+  , _ccfoairsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateCloudFrontOriginAccessIdentityResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -139,13 +148,14 @@     :: Int -- ^ 'ccfoairsResponseStatus'     -> CreateCloudFrontOriginAccessIdentityResponse createCloudFrontOriginAccessIdentityResponse pResponseStatus_ =-    CreateCloudFrontOriginAccessIdentityResponse'-    { _ccfoairsETag = Nothing-    , _ccfoairsLocation = Nothing-    , _ccfoairsCloudFrontOriginAccessIdentity = Nothing-    , _ccfoairsResponseStatus = pResponseStatus_-    }+  CreateCloudFrontOriginAccessIdentityResponse'+  { _ccfoairsETag = Nothing+  , _ccfoairsLocation = Nothing+  , _ccfoairsCloudFrontOriginAccessIdentity = Nothing+  , _ccfoairsResponseStatus = pResponseStatus_+  } + -- | The current version of the origin access identity created. ccfoairsETag :: Lens' CreateCloudFrontOriginAccessIdentityResponse (Maybe Text) ccfoairsETag = lens _ccfoairsETag (\ s a -> s{_ccfoairsETag = a});@@ -163,4 +173,5 @@ ccfoairsResponseStatus = lens _ccfoairsResponseStatus (\ s a -> s{_ccfoairsResponseStatus = a});  instance NFData-         CreateCloudFrontOriginAccessIdentityResponse+           CreateCloudFrontOriginAccessIdentityResponse+         where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.CloudFront.CreateDistribution--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a new web distribution. Send a @GET@ request to the @//CloudFront API version/ /distribution@ /@distribution ID@ resource.+-- Creates a new web distribution. Send a @POST@ request to the @//CloudFront API version/ /distribution@ /@distribution ID@ resource. -- -- module Network.AWS.CloudFront.CreateDistribution@@ -39,12 +39,12 @@     , cdrsResponseStatus     ) 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+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. --@@ -52,9 +52,10 @@ -- -- /See:/ 'createDistribution' smart constructor. newtype CreateDistribution = CreateDistribution'-    { _cdDistributionConfig :: DistributionConfig-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdDistributionConfig :: DistributionConfig+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDistribution' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,10 +65,9 @@     :: DistributionConfig -- ^ 'cdDistributionConfig'     -> CreateDistribution createDistribution pDistributionConfig_ =-    CreateDistribution'-    { _cdDistributionConfig = pDistributionConfig_-    }+  CreateDistribution' {_cdDistributionConfig = pDistributionConfig_} + -- | The distribution's configuration information. cdDistributionConfig :: Lens' CreateDistribution DistributionConfig cdDistributionConfig = lens _cdDistributionConfig (\ s a -> s{_cdDistributionConfig = a});@@ -84,14 +84,14 @@                      (h .#? "Location")                      <*> (pure (fromEnum s))) -instance Hashable CreateDistribution+instance Hashable CreateDistribution where -instance NFData CreateDistribution+instance NFData CreateDistribution where  instance ToElement CreateDistribution where         toElement           = mkElement-              "{http://cloudfront.amazonaws.com/doc/2016-09-29/}DistributionConfig"+              "{http://cloudfront.amazonaws.com/doc/2017-03-25/}DistributionConfig"               .               _cdDistributionConfig @@ -99,7 +99,7 @@         toHeaders = const mempty  instance ToPath CreateDistribution where-        toPath = const "/2016-09-29/distribution"+        toPath = const "/2017-03-25/distribution"  instance ToQuery CreateDistribution where         toQuery = const mempty@@ -110,12 +110,13 @@ -- -- /See:/ 'createDistributionResponse' smart constructor. data CreateDistributionResponse = CreateDistributionResponse'-    { _cdrsETag           :: !(Maybe Text)-    , _cdrsDistribution   :: !(Maybe Distribution)-    , _cdrsLocation       :: !(Maybe Text)-    , _cdrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdrsETag           :: !(Maybe Text)+  , _cdrsDistribution   :: !(Maybe Distribution)+  , _cdrsLocation       :: !(Maybe Text)+  , _cdrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDistributionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -131,13 +132,14 @@     :: Int -- ^ 'cdrsResponseStatus'     -> CreateDistributionResponse createDistributionResponse pResponseStatus_ =-    CreateDistributionResponse'-    { _cdrsETag = Nothing-    , _cdrsDistribution = Nothing-    , _cdrsLocation = Nothing-    , _cdrsResponseStatus = pResponseStatus_-    }+  CreateDistributionResponse'+  { _cdrsETag = Nothing+  , _cdrsDistribution = Nothing+  , _cdrsLocation = Nothing+  , _cdrsResponseStatus = pResponseStatus_+  } + -- | The current version of the distribution created. cdrsETag :: Lens' CreateDistributionResponse (Maybe Text) cdrsETag = lens _cdrsETag (\ s a -> s{_cdrsETag = a});@@ -154,4 +156,4 @@ cdrsResponseStatus :: Lens' CreateDistributionResponse Int cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a}); -instance NFData CreateDistributionResponse+instance NFData CreateDistributionResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.CreateDistributionWithTags--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , 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+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. --@@ -52,9 +52,10 @@ -- -- /See:/ 'createDistributionWithTags' smart constructor. newtype CreateDistributionWithTags = CreateDistributionWithTags'-    { _cdwtDistributionConfigWithTags :: DistributionConfigWithTags-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -64,10 +65,10 @@     :: DistributionConfigWithTags -- ^ 'cdwtDistributionConfigWithTags'     -> CreateDistributionWithTags createDistributionWithTags pDistributionConfigWithTags_ =-    CreateDistributionWithTags'-    { _cdwtDistributionConfigWithTags = pDistributionConfigWithTags_-    }+  CreateDistributionWithTags'+  {_cdwtDistributionConfigWithTags = pDistributionConfigWithTags_} + -- | The distribution's configuration information. cdwtDistributionConfigWithTags :: Lens' CreateDistributionWithTags DistributionConfigWithTags cdwtDistributionConfigWithTags = lens _cdwtDistributionConfigWithTags (\ s a -> s{_cdwtDistributionConfigWithTags = a});@@ -84,14 +85,14 @@                      (h .#? "Location")                      <*> (pure (fromEnum s))) -instance Hashable CreateDistributionWithTags+instance Hashable CreateDistributionWithTags where -instance NFData CreateDistributionWithTags+instance NFData CreateDistributionWithTags where  instance ToElement CreateDistributionWithTags where         toElement           = mkElement-              "{http://cloudfront.amazonaws.com/doc/2016-09-29/}DistributionConfigWithTags"+              "{http://cloudfront.amazonaws.com/doc/2017-03-25/}DistributionConfigWithTags"               .               _cdwtDistributionConfigWithTags @@ -99,7 +100,7 @@         toHeaders = const mempty  instance ToPath CreateDistributionWithTags where-        toPath = const "/2016-09-29/distribution"+        toPath = const "/2017-03-25/distribution"  instance ToQuery CreateDistributionWithTags where         toQuery = const (mconcat ["WithTags"])@@ -110,12 +111,13 @@ -- -- /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)+  { _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:@@ -131,13 +133,14 @@     :: Int -- ^ 'cdwtrsResponseStatus'     -> CreateDistributionWithTagsResponse createDistributionWithTagsResponse pResponseStatus_ =-    CreateDistributionWithTagsResponse'-    { _cdwtrsETag = Nothing-    , _cdwtrsDistribution = Nothing-    , _cdwtrsLocation = Nothing-    , _cdwtrsResponseStatus = 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});@@ -155,3 +158,4 @@ cdwtrsResponseStatus = lens _cdwtrsResponseStatus (\ s a -> s{_cdwtrsResponseStatus = a});  instance NFData CreateDistributionWithTagsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.CreateInvalidation--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , cirsResponseStatus     ) 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+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 an invalidation. --@@ -52,10 +52,11 @@ -- -- /See:/ 'createInvalidation' smart constructor. data CreateInvalidation = CreateInvalidation'-    { _ciDistributionId    :: !Text-    , _ciInvalidationBatch :: !InvalidationBatch-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ciDistributionId    :: !Text+  , _ciInvalidationBatch :: !InvalidationBatch+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateInvalidation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,11 +69,12 @@     -> InvalidationBatch -- ^ 'ciInvalidationBatch'     -> CreateInvalidation createInvalidation pDistributionId_ pInvalidationBatch_ =-    CreateInvalidation'-    { _ciDistributionId = pDistributionId_-    , _ciInvalidationBatch = pInvalidationBatch_-    }+  CreateInvalidation'+  { _ciDistributionId = pDistributionId_+  , _ciInvalidationBatch = pInvalidationBatch_+  } + -- | The distribution's id. ciDistributionId :: Lens' CreateInvalidation Text ciDistributionId = lens _ciDistributionId (\ s a -> s{_ciDistributionId = a});@@ -92,14 +94,14 @@                    (parseXML x) <*> (h .#? "Location") <*>                      (pure (fromEnum s))) -instance Hashable CreateInvalidation+instance Hashable CreateInvalidation where -instance NFData CreateInvalidation+instance NFData CreateInvalidation where  instance ToElement CreateInvalidation where         toElement           = mkElement-              "{http://cloudfront.amazonaws.com/doc/2016-09-29/}InvalidationBatch"+              "{http://cloudfront.amazonaws.com/doc/2017-03-25/}InvalidationBatch"               .               _ciInvalidationBatch @@ -109,7 +111,7 @@ instance ToPath CreateInvalidation where         toPath CreateInvalidation'{..}           = mconcat-              ["/2016-09-29/distribution/", toBS _ciDistributionId,+              ["/2017-03-25/distribution/", toBS _ciDistributionId,                "/invalidation"]  instance ToQuery CreateInvalidation where@@ -121,11 +123,12 @@ -- -- /See:/ 'createInvalidationResponse' smart constructor. data CreateInvalidationResponse = CreateInvalidationResponse'-    { _cirsInvalidation   :: !(Maybe Invalidation)-    , _cirsLocation       :: !(Maybe Text)-    , _cirsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cirsInvalidation   :: !(Maybe Invalidation)+  , _cirsLocation       :: !(Maybe Text)+  , _cirsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateInvalidationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -139,12 +142,13 @@     :: Int -- ^ 'cirsResponseStatus'     -> CreateInvalidationResponse createInvalidationResponse pResponseStatus_ =-    CreateInvalidationResponse'-    { _cirsInvalidation = Nothing-    , _cirsLocation = Nothing-    , _cirsResponseStatus = pResponseStatus_-    }+  CreateInvalidationResponse'+  { _cirsInvalidation = Nothing+  , _cirsLocation = Nothing+  , _cirsResponseStatus = pResponseStatus_+  } + -- | The invalidation's information. cirsInvalidation :: Lens' CreateInvalidationResponse (Maybe Invalidation) cirsInvalidation = lens _cirsInvalidation (\ s a -> s{_cirsInvalidation = a});@@ -157,4 +161,4 @@ cirsResponseStatus :: Lens' CreateInvalidationResponse Int cirsResponseStatus = lens _cirsResponseStatus (\ s a -> s{_cirsResponseStatus = a}); -instance NFData CreateInvalidationResponse+instance NFData CreateInvalidationResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.CreateStreamingDistribution--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -47,12 +47,12 @@     , csdrsResponseStatus     ) 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+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. --@@ -60,9 +60,10 @@ -- -- /See:/ 'createStreamingDistribution' smart constructor. newtype CreateStreamingDistribution = CreateStreamingDistribution'-    { _csdStreamingDistributionConfig :: StreamingDistributionConfig-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csdStreamingDistributionConfig :: StreamingDistributionConfig+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateStreamingDistribution' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +73,10 @@     :: StreamingDistributionConfig -- ^ 'csdStreamingDistributionConfig'     -> CreateStreamingDistribution createStreamingDistribution pStreamingDistributionConfig_ =-    CreateStreamingDistribution'-    { _csdStreamingDistributionConfig = pStreamingDistributionConfig_-    }+  CreateStreamingDistribution'+  {_csdStreamingDistributionConfig = pStreamingDistributionConfig_} + -- | The streaming distribution's configuration information. csdStreamingDistributionConfig :: Lens' CreateStreamingDistribution StreamingDistributionConfig csdStreamingDistributionConfig = lens _csdStreamingDistributionConfig (\ s a -> s{_csdStreamingDistributionConfig = a});@@ -92,14 +93,14 @@                      (parseXML x)                      <*> (pure (fromEnum s))) -instance Hashable CreateStreamingDistribution+instance Hashable CreateStreamingDistribution where -instance NFData CreateStreamingDistribution+instance NFData CreateStreamingDistribution where  instance ToElement CreateStreamingDistribution where         toElement           = mkElement-              "{http://cloudfront.amazonaws.com/doc/2016-09-29/}StreamingDistributionConfig"+              "{http://cloudfront.amazonaws.com/doc/2017-03-25/}StreamingDistributionConfig"               .               _csdStreamingDistributionConfig @@ -107,7 +108,7 @@         toHeaders = const mempty  instance ToPath CreateStreamingDistribution where-        toPath = const "/2016-09-29/streaming-distribution"+        toPath = const "/2017-03-25/streaming-distribution"  instance ToQuery CreateStreamingDistribution where         toQuery = const mempty@@ -118,12 +119,13 @@ -- -- /See:/ 'createStreamingDistributionResponse' smart constructor. data CreateStreamingDistributionResponse = CreateStreamingDistributionResponse'-    { _csdrsETag                  :: !(Maybe Text)-    , _csdrsLocation              :: !(Maybe Text)-    , _csdrsStreamingDistribution :: !(Maybe StreamingDistribution)-    , _csdrsResponseStatus        :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csdrsETag                  :: !(Maybe Text)+  , _csdrsLocation              :: !(Maybe Text)+  , _csdrsStreamingDistribution :: !(Maybe StreamingDistribution)+  , _csdrsResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateStreamingDistributionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -139,13 +141,14 @@     :: Int -- ^ 'csdrsResponseStatus'     -> CreateStreamingDistributionResponse createStreamingDistributionResponse pResponseStatus_ =-    CreateStreamingDistributionResponse'-    { _csdrsETag = Nothing-    , _csdrsLocation = Nothing-    , _csdrsStreamingDistribution = Nothing-    , _csdrsResponseStatus = pResponseStatus_-    }+  CreateStreamingDistributionResponse'+  { _csdrsETag = Nothing+  , _csdrsLocation = Nothing+  , _csdrsStreamingDistribution = Nothing+  , _csdrsResponseStatus = pResponseStatus_+  } + -- | The current version of the streaming distribution created. csdrsETag :: Lens' CreateStreamingDistributionResponse (Maybe Text) csdrsETag = lens _csdrsETag (\ s a -> s{_csdrsETag = a});@@ -163,3 +166,4 @@ csdrsResponseStatus = lens _csdrsResponseStatus (\ s a -> s{_csdrsResponseStatus = a});  instance NFData CreateStreamingDistributionResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.CreateStreamingDistributionWithTags--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , 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+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. --@@ -52,9 +52,10 @@ -- -- /See:/ 'createStreamingDistributionWithTags' smart constructor. newtype CreateStreamingDistributionWithTags = CreateStreamingDistributionWithTags'-    { _csdwtStreamingDistributionConfigWithTags :: StreamingDistributionConfigWithTags-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -64,16 +65,19 @@     :: StreamingDistributionConfigWithTags -- ^ 'csdwtStreamingDistributionConfigWithTags'     -> CreateStreamingDistributionWithTags createStreamingDistributionWithTags pStreamingDistributionConfigWithTags_ =-    CreateStreamingDistributionWithTags'-    { _csdwtStreamingDistributionConfigWithTags = 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+           CreateStreamingDistributionWithTags+         where         type Rs CreateStreamingDistributionWithTags =              CreateStreamingDistributionWithTagsResponse         request = postXML cloudFront@@ -86,24 +90,28 @@                      <*> (pure (fromEnum s)))  instance Hashable CreateStreamingDistributionWithTags+         where  instance NFData CreateStreamingDistributionWithTags+         where  instance ToElement-         CreateStreamingDistributionWithTags where+           CreateStreamingDistributionWithTags+         where         toElement           = mkElement-              "{http://cloudfront.amazonaws.com/doc/2016-09-29/}StreamingDistributionConfigWithTags"+              "{http://cloudfront.amazonaws.com/doc/2017-03-25/}StreamingDistributionConfigWithTags"               .               _csdwtStreamingDistributionConfigWithTags  instance ToHeaders-         CreateStreamingDistributionWithTags where+           CreateStreamingDistributionWithTags+         where         toHeaders = const mempty  instance ToPath CreateStreamingDistributionWithTags          where-        toPath = const "/2016-09-29/streaming-distribution"+        toPath = const "/2017-03-25/streaming-distribution"  instance ToQuery CreateStreamingDistributionWithTags          where@@ -115,12 +123,13 @@ -- -- /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)+  { _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:@@ -136,13 +145,14 @@     :: Int -- ^ 'csdwtrsResponseStatus'     -> CreateStreamingDistributionWithTagsResponse createStreamingDistributionWithTagsResponse pResponseStatus_ =-    CreateStreamingDistributionWithTagsResponse'-    { _csdwtrsETag = Nothing-    , _csdwtrsLocation = Nothing-    , _csdwtrsStreamingDistribution = Nothing-    , _csdwtrsResponseStatus = pResponseStatus_-    }+  CreateStreamingDistributionWithTagsResponse'+  { _csdwtrsETag = Nothing+  , _csdwtrsLocation = Nothing+  , _csdwtrsStreamingDistribution = Nothing+  , _csdwtrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. csdwtrsETag :: Lens' CreateStreamingDistributionWithTagsResponse (Maybe Text) csdwtrsETag = lens _csdwtrsETag (\ s a -> s{_csdwtrsETag = a});@@ -160,4 +170,5 @@ csdwtrsResponseStatus = lens _csdwtrsResponseStatus (\ s a -> s{_csdwtrsResponseStatus = a});  instance NFData-         CreateStreamingDistributionWithTagsResponse+           CreateStreamingDistributionWithTagsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.DeleteCloudFrontOriginAccessIdentity--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@     , DeleteCloudFrontOriginAccessIdentityResponse     ) 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+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  -- | Deletes a origin access identity. --@@ -48,10 +48,11 @@ -- -- /See:/ 'deleteCloudFrontOriginAccessIdentity' smart constructor. data DeleteCloudFrontOriginAccessIdentity = DeleteCloudFrontOriginAccessIdentity'-    { _dcfoaiIfMatch :: !(Maybe Text)-    , _dcfoaiId      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcfoaiIfMatch :: !(Maybe Text)+  , _dcfoaiId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteCloudFrontOriginAccessIdentity' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,11 +64,10 @@     :: Text -- ^ 'dcfoaiId'     -> DeleteCloudFrontOriginAccessIdentity deleteCloudFrontOriginAccessIdentity pId_ =-    DeleteCloudFrontOriginAccessIdentity'-    { _dcfoaiIfMatch = Nothing-    , _dcfoaiId = pId_-    }+  DeleteCloudFrontOriginAccessIdentity'+  {_dcfoaiIfMatch = Nothing, _dcfoaiId = pId_} + -- | 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});@@ -77,7 +77,8 @@ dcfoaiId = lens _dcfoaiId (\ s a -> s{_dcfoaiId = a});  instance AWSRequest-         DeleteCloudFrontOriginAccessIdentity where+           DeleteCloudFrontOriginAccessIdentity+         where         type Rs DeleteCloudFrontOriginAccessIdentity =              DeleteCloudFrontOriginAccessIdentityResponse         request = delete cloudFront@@ -86,12 +87,15 @@               DeleteCloudFrontOriginAccessIdentityResponse'  instance Hashable-         DeleteCloudFrontOriginAccessIdentity+           DeleteCloudFrontOriginAccessIdentity+         where  instance NFData DeleteCloudFrontOriginAccessIdentity+         where  instance ToHeaders-         DeleteCloudFrontOriginAccessIdentity where+           DeleteCloudFrontOriginAccessIdentity+         where         toHeaders DeleteCloudFrontOriginAccessIdentity'{..}           = mconcat ["If-Match" =# _dcfoaiIfMatch] @@ -99,7 +103,7 @@          where         toPath DeleteCloudFrontOriginAccessIdentity'{..}           = mconcat-              ["/2016-09-29/origin-access-identity/cloudfront/",+              ["/2017-03-25/origin-access-identity/cloudfront/",                toBS _dcfoaiId]  instance ToQuery DeleteCloudFrontOriginAccessIdentity@@ -108,15 +112,18 @@  -- | /See:/ 'deleteCloudFrontOriginAccessIdentityResponse' smart constructor. data DeleteCloudFrontOriginAccessIdentityResponse =-    DeleteCloudFrontOriginAccessIdentityResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteCloudFrontOriginAccessIdentityResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteCloudFrontOriginAccessIdentityResponse' with the minimum fields required to make a request. -- deleteCloudFrontOriginAccessIdentityResponse     :: DeleteCloudFrontOriginAccessIdentityResponse deleteCloudFrontOriginAccessIdentityResponse =-    DeleteCloudFrontOriginAccessIdentityResponse'+  DeleteCloudFrontOriginAccessIdentityResponse' + instance NFData-         DeleteCloudFrontOriginAccessIdentityResponse+           DeleteCloudFrontOriginAccessIdentityResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.DeleteDistribution--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@     , DeleteDistributionResponse     ) 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+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  -- | This action deletes a web distribution. To delete a web distribution using the CloudFront API, perform the following steps. --@@ -70,10 +70,11 @@ -- -- /See:/ 'deleteDistribution' smart constructor. data DeleteDistribution = DeleteDistribution'-    { _ddIfMatch :: !(Maybe Text)-    , _ddId      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddIfMatch :: !(Maybe Text)+  , _ddId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDistribution' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -85,11 +86,9 @@     :: Text -- ^ 'ddId'     -> DeleteDistribution deleteDistribution pId_ =-    DeleteDistribution'-    { _ddIfMatch = Nothing-    , _ddId = pId_-    }+  DeleteDistribution' {_ddIfMatch = Nothing, _ddId = pId_} + -- | 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});@@ -104,9 +103,9 @@         request = delete cloudFront         response = receiveNull DeleteDistributionResponse' -instance Hashable DeleteDistribution+instance Hashable DeleteDistribution where -instance NFData DeleteDistribution+instance NFData DeleteDistribution where  instance ToHeaders DeleteDistribution where         toHeaders DeleteDistribution'{..}@@ -114,20 +113,22 @@  instance ToPath DeleteDistribution where         toPath DeleteDistribution'{..}-          = mconcat ["/2016-09-29/distribution/", toBS _ddId]+          = mconcat ["/2017-03-25/distribution/", toBS _ddId]  instance ToQuery DeleteDistribution where         toQuery = const mempty  -- | /See:/ 'deleteDistributionResponse' smart constructor. data DeleteDistributionResponse =-    DeleteDistributionResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteDistributionResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDistributionResponse' with the minimum fields required to make a request. -- deleteDistributionResponse     :: DeleteDistributionResponse deleteDistributionResponse = DeleteDistributionResponse' -instance NFData DeleteDistributionResponse++instance NFData DeleteDistributionResponse where

@@ -0,0 +1,100 @@+{-# 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.DeleteServiceLinkedRole+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Undocumented operation.+module Network.AWS.CloudFront.DeleteServiceLinkedRole+    (+    -- * Creating a Request+      deleteServiceLinkedRole+    , DeleteServiceLinkedRole+    -- * Request Lenses+    , dslrRoleName++    -- * Destructuring the Response+    , deleteServiceLinkedRoleResponse+    , DeleteServiceLinkedRoleResponse+    ) 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++-- | /See:/ 'deleteServiceLinkedRole' smart constructor.+newtype DeleteServiceLinkedRole = DeleteServiceLinkedRole'+  { _dslrRoleName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteServiceLinkedRole' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dslrRoleName' - Undocumented member.+deleteServiceLinkedRole+    :: Text -- ^ 'dslrRoleName'+    -> DeleteServiceLinkedRole+deleteServiceLinkedRole pRoleName_ =+  DeleteServiceLinkedRole' {_dslrRoleName = pRoleName_}+++-- | Undocumented member.+dslrRoleName :: Lens' DeleteServiceLinkedRole Text+dslrRoleName = lens _dslrRoleName (\ s a -> s{_dslrRoleName = a});++instance AWSRequest DeleteServiceLinkedRole where+        type Rs DeleteServiceLinkedRole =+             DeleteServiceLinkedRoleResponse+        request = delete cloudFront+        response+          = receiveNull DeleteServiceLinkedRoleResponse'++instance Hashable DeleteServiceLinkedRole where++instance NFData DeleteServiceLinkedRole where++instance ToHeaders DeleteServiceLinkedRole where+        toHeaders = const mempty++instance ToPath DeleteServiceLinkedRole where+        toPath DeleteServiceLinkedRole'{..}+          = mconcat+              ["/2017-03-25/service-linked-role/",+               toBS _dslrRoleName]++instance ToQuery DeleteServiceLinkedRole where+        toQuery = const mempty++-- | /See:/ 'deleteServiceLinkedRoleResponse' smart constructor.+data DeleteServiceLinkedRoleResponse =+  DeleteServiceLinkedRoleResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteServiceLinkedRoleResponse' with the minimum fields required to make a request.+--+deleteServiceLinkedRoleResponse+    :: DeleteServiceLinkedRoleResponse+deleteServiceLinkedRoleResponse = DeleteServiceLinkedRoleResponse'+++instance NFData DeleteServiceLinkedRoleResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.DeleteStreamingDistribution--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -57,12 +57,12 @@     , DeleteStreamingDistributionResponse     ) 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+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 delete a streaming distribution. --@@ -70,10 +70,11 @@ -- -- /See:/ 'deleteStreamingDistribution' smart constructor. data DeleteStreamingDistribution = DeleteStreamingDistribution'-    { _dsdIfMatch :: !(Maybe Text)-    , _dsdId      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsdIfMatch :: !(Maybe Text)+  , _dsdId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteStreamingDistribution' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -85,11 +86,9 @@     :: Text -- ^ 'dsdId'     -> DeleteStreamingDistribution deleteStreamingDistribution pId_ =-    DeleteStreamingDistribution'-    { _dsdIfMatch = Nothing-    , _dsdId = pId_-    }+  DeleteStreamingDistribution' {_dsdIfMatch = Nothing, _dsdId = pId_} + -- | 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});@@ -105,9 +104,9 @@         response           = receiveNull DeleteStreamingDistributionResponse' -instance Hashable DeleteStreamingDistribution+instance Hashable DeleteStreamingDistribution where -instance NFData DeleteStreamingDistribution+instance NFData DeleteStreamingDistribution where  instance ToHeaders DeleteStreamingDistribution where         toHeaders DeleteStreamingDistribution'{..}@@ -116,20 +115,23 @@ instance ToPath DeleteStreamingDistribution where         toPath DeleteStreamingDistribution'{..}           = mconcat-              ["/2016-09-29/streaming-distribution/", toBS _dsdId]+              ["/2017-03-25/streaming-distribution/", toBS _dsdId]  instance ToQuery DeleteStreamingDistribution where         toQuery = const mempty  -- | /See:/ 'deleteStreamingDistributionResponse' smart constructor. data DeleteStreamingDistributionResponse =-    DeleteStreamingDistributionResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteStreamingDistributionResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteStreamingDistributionResponse' with the minimum fields required to make a request. -- deleteStreamingDistributionResponse     :: DeleteStreamingDistributionResponse deleteStreamingDistributionResponse = DeleteStreamingDistributionResponse' + instance NFData DeleteStreamingDistributionResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.GetCloudFrontOriginAccessIdentity--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , gcfoairsResponseStatus     ) 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+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 get an origin access identity's information. --@@ -51,9 +51,10 @@ -- -- /See:/ 'getCloudFrontOriginAccessIdentity' smart constructor. newtype GetCloudFrontOriginAccessIdentity = GetCloudFrontOriginAccessIdentity'-    { _gcfoaiId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcfoaiId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCloudFrontOriginAccessIdentity' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +64,9 @@     :: Text -- ^ 'gcfoaiId'     -> GetCloudFrontOriginAccessIdentity getCloudFrontOriginAccessIdentity pId_ =-    GetCloudFrontOriginAccessIdentity'-    { _gcfoaiId = pId_-    }+  GetCloudFrontOriginAccessIdentity' {_gcfoaiId = pId_} + -- | The identity's ID. gcfoaiId :: Lens' GetCloudFrontOriginAccessIdentity Text gcfoaiId = lens _gcfoaiId (\ s a -> s{_gcfoaiId = a});@@ -84,8 +84,10 @@                      (pure (fromEnum s)))  instance Hashable GetCloudFrontOriginAccessIdentity+         where  instance NFData GetCloudFrontOriginAccessIdentity+         where  instance ToHeaders GetCloudFrontOriginAccessIdentity          where@@ -95,7 +97,7 @@          where         toPath GetCloudFrontOriginAccessIdentity'{..}           = mconcat-              ["/2016-09-29/origin-access-identity/cloudfront/",+              ["/2017-03-25/origin-access-identity/cloudfront/",                toBS _gcfoaiId]  instance ToQuery GetCloudFrontOriginAccessIdentity@@ -108,11 +110,12 @@ -- -- /See:/ 'getCloudFrontOriginAccessIdentityResponse' smart constructor. data GetCloudFrontOriginAccessIdentityResponse = GetCloudFrontOriginAccessIdentityResponse'-    { _gcfoairsETag                           :: !(Maybe Text)-    , _gcfoairsCloudFrontOriginAccessIdentity :: !(Maybe CloudFrontOriginAccessIdentity)-    , _gcfoairsResponseStatus                 :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcfoairsETag :: !(Maybe Text)+  , _gcfoairsCloudFrontOriginAccessIdentity :: !(Maybe CloudFrontOriginAccessIdentity)+  , _gcfoairsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCloudFrontOriginAccessIdentityResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -126,12 +129,13 @@     :: Int -- ^ 'gcfoairsResponseStatus'     -> GetCloudFrontOriginAccessIdentityResponse getCloudFrontOriginAccessIdentityResponse pResponseStatus_ =-    GetCloudFrontOriginAccessIdentityResponse'-    { _gcfoairsETag = Nothing-    , _gcfoairsCloudFrontOriginAccessIdentity = Nothing-    , _gcfoairsResponseStatus = pResponseStatus_-    }+  GetCloudFrontOriginAccessIdentityResponse'+  { _gcfoairsETag = Nothing+  , _gcfoairsCloudFrontOriginAccessIdentity = Nothing+  , _gcfoairsResponseStatus = pResponseStatus_+  } + -- | 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});@@ -145,4 +149,5 @@ gcfoairsResponseStatus = lens _gcfoairsResponseStatus (\ s a -> s{_gcfoairsResponseStatus = a});  instance NFData-         GetCloudFrontOriginAccessIdentityResponse+           GetCloudFrontOriginAccessIdentityResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.GetCloudFrontOriginAccessIdentityConfig--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , gcfoaicrsResponseStatus     ) 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+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 origin access identity's configuration information. For more information, see 'CloudFrontOriginAccessIdentityConfigComplexType' . --@@ -51,9 +51,10 @@ -- -- /See:/ 'getCloudFrontOriginAccessIdentityConfig' smart constructor. newtype GetCloudFrontOriginAccessIdentityConfig = GetCloudFrontOriginAccessIdentityConfig'-    { _gcfoaicId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcfoaicId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCloudFrontOriginAccessIdentityConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,16 +64,16 @@     :: Text -- ^ 'gcfoaicId'     -> GetCloudFrontOriginAccessIdentityConfig getCloudFrontOriginAccessIdentityConfig pId_ =-    GetCloudFrontOriginAccessIdentityConfig'-    { _gcfoaicId = pId_-    }+  GetCloudFrontOriginAccessIdentityConfig' {_gcfoaicId = pId_} + -- | The identity's ID. gcfoaicId :: Lens' GetCloudFrontOriginAccessIdentityConfig Text gcfoaicId = lens _gcfoaicId (\ s a -> s{_gcfoaicId = a});  instance AWSRequest-         GetCloudFrontOriginAccessIdentityConfig where+           GetCloudFrontOriginAccessIdentityConfig+         where         type Rs GetCloudFrontOriginAccessIdentityConfig =              GetCloudFrontOriginAccessIdentityConfigResponse         request = get cloudFront@@ -84,24 +85,29 @@                      (pure (fromEnum s)))  instance Hashable-         GetCloudFrontOriginAccessIdentityConfig+           GetCloudFrontOriginAccessIdentityConfig+         where  instance NFData-         GetCloudFrontOriginAccessIdentityConfig+           GetCloudFrontOriginAccessIdentityConfig+         where  instance ToHeaders-         GetCloudFrontOriginAccessIdentityConfig where+           GetCloudFrontOriginAccessIdentityConfig+         where         toHeaders = const mempty  instance ToPath-         GetCloudFrontOriginAccessIdentityConfig where+           GetCloudFrontOriginAccessIdentityConfig+         where         toPath GetCloudFrontOriginAccessIdentityConfig'{..}           = mconcat-              ["/2016-09-29/origin-access-identity/cloudfront/",+              ["/2017-03-25/origin-access-identity/cloudfront/",                toBS _gcfoaicId, "/config"]  instance ToQuery-         GetCloudFrontOriginAccessIdentityConfig where+           GetCloudFrontOriginAccessIdentityConfig+         where         toQuery = const mempty  -- | The returned result of the corresponding request.@@ -110,11 +116,12 @@ -- -- /See:/ 'getCloudFrontOriginAccessIdentityConfigResponse' smart constructor. data GetCloudFrontOriginAccessIdentityConfigResponse = GetCloudFrontOriginAccessIdentityConfigResponse'-    { _gcfoaicrsCloudFrontOriginAccessIdentityConfig :: !(Maybe CloudFrontOriginAccessIdentityConfig)-    , _gcfoaicrsETag                                 :: !(Maybe Text)-    , _gcfoaicrsResponseStatus                       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcfoaicrsCloudFrontOriginAccessIdentityConfig :: !(Maybe CloudFrontOriginAccessIdentityConfig)+  , _gcfoaicrsETag :: !(Maybe Text)+  , _gcfoaicrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCloudFrontOriginAccessIdentityConfigResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -128,12 +135,13 @@     :: Int -- ^ 'gcfoaicrsResponseStatus'     -> GetCloudFrontOriginAccessIdentityConfigResponse getCloudFrontOriginAccessIdentityConfigResponse pResponseStatus_ =-    GetCloudFrontOriginAccessIdentityConfigResponse'-    { _gcfoaicrsCloudFrontOriginAccessIdentityConfig = Nothing-    , _gcfoaicrsETag = Nothing-    , _gcfoaicrsResponseStatus = pResponseStatus_-    }+  GetCloudFrontOriginAccessIdentityConfigResponse'+  { _gcfoaicrsCloudFrontOriginAccessIdentityConfig = Nothing+  , _gcfoaicrsETag = Nothing+  , _gcfoaicrsResponseStatus = pResponseStatus_+  } + -- | The origin access identity's configuration information. gcfoaicrsCloudFrontOriginAccessIdentityConfig :: Lens' GetCloudFrontOriginAccessIdentityConfigResponse (Maybe CloudFrontOriginAccessIdentityConfig) gcfoaicrsCloudFrontOriginAccessIdentityConfig = lens _gcfoaicrsCloudFrontOriginAccessIdentityConfig (\ s a -> s{_gcfoaicrsCloudFrontOriginAccessIdentityConfig = a});@@ -147,4 +155,5 @@ gcfoaicrsResponseStatus = lens _gcfoaicrsResponseStatus (\ s a -> s{_gcfoaicrsResponseStatus = a});  instance NFData-         GetCloudFrontOriginAccessIdentityConfigResponse+           GetCloudFrontOriginAccessIdentityConfigResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.GetDistribution--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , gdrsResponseStatus     ) 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+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 get a distribution's information. --@@ -51,9 +51,10 @@ -- -- /See:/ 'getDistribution' smart constructor. newtype GetDistribution = GetDistribution'-    { _gdId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gdId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetDistribution' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +63,9 @@ getDistribution     :: Text -- ^ 'gdId'     -> GetDistribution-getDistribution pId_ =-    GetDistribution'-    { _gdId = pId_-    }+getDistribution pId_ = GetDistribution' {_gdId = pId_} + -- | The distribution's ID. gdId :: Lens' GetDistribution Text gdId = lens _gdId (\ s a -> s{_gdId = a});@@ -81,16 +80,16 @@                    (h .#? "ETag") <*> (parseXML x) <*>                      (pure (fromEnum s))) -instance Hashable GetDistribution+instance Hashable GetDistribution where -instance NFData GetDistribution+instance NFData GetDistribution where  instance ToHeaders GetDistribution where         toHeaders = const mempty  instance ToPath GetDistribution where         toPath GetDistribution'{..}-          = mconcat ["/2016-09-29/distribution/", toBS _gdId]+          = mconcat ["/2017-03-25/distribution/", toBS _gdId]  instance ToQuery GetDistribution where         toQuery = const mempty@@ -101,11 +100,12 @@ -- -- /See:/ 'getDistributionResponse' smart constructor. data GetDistributionResponse = GetDistributionResponse'-    { _gdrsETag           :: !(Maybe Text)-    , _gdrsDistribution   :: !(Maybe Distribution)-    , _gdrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gdrsETag           :: !(Maybe Text)+  , _gdrsDistribution   :: !(Maybe Distribution)+  , _gdrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetDistributionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -119,12 +119,13 @@     :: Int -- ^ 'gdrsResponseStatus'     -> GetDistributionResponse getDistributionResponse pResponseStatus_ =-    GetDistributionResponse'-    { _gdrsETag = Nothing-    , _gdrsDistribution = Nothing-    , _gdrsResponseStatus = pResponseStatus_-    }+  GetDistributionResponse'+  { _gdrsETag = Nothing+  , _gdrsDistribution = Nothing+  , _gdrsResponseStatus = pResponseStatus_+  } + -- | The current version of the distribution's information. For example: @E2QWRUHAPOMQZL@ . gdrsETag :: Lens' GetDistributionResponse (Maybe Text) gdrsETag = lens _gdrsETag (\ s a -> s{_gdrsETag = a});@@ -137,4 +138,4 @@ gdrsResponseStatus :: Lens' GetDistributionResponse Int gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a}); -instance NFData GetDistributionResponse+instance NFData GetDistributionResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.GetDistributionConfig--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , gdcrsResponseStatus     ) 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+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 get a distribution configuration. --@@ -51,9 +51,10 @@ -- -- /See:/ 'getDistributionConfig' smart constructor. newtype GetDistributionConfig = GetDistributionConfig'-    { _gdcId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gdcId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetDistributionConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +63,9 @@ getDistributionConfig     :: Text -- ^ 'gdcId'     -> GetDistributionConfig-getDistributionConfig pId_ =-    GetDistributionConfig'-    { _gdcId = pId_-    }+getDistributionConfig pId_ = GetDistributionConfig' {_gdcId = pId_} + -- | The distribution's ID. gdcId :: Lens' GetDistributionConfig Text gdcId = lens _gdcId (\ s a -> s{_gdcId = a});@@ -82,9 +81,9 @@                    (h .#? "ETag") <*> (parseXML x) <*>                      (pure (fromEnum s))) -instance Hashable GetDistributionConfig+instance Hashable GetDistributionConfig where -instance NFData GetDistributionConfig+instance NFData GetDistributionConfig where  instance ToHeaders GetDistributionConfig where         toHeaders = const mempty@@ -92,7 +91,7 @@ instance ToPath GetDistributionConfig where         toPath GetDistributionConfig'{..}           = mconcat-              ["/2016-09-29/distribution/", toBS _gdcId, "/config"]+              ["/2017-03-25/distribution/", toBS _gdcId, "/config"]  instance ToQuery GetDistributionConfig where         toQuery = const mempty@@ -103,11 +102,12 @@ -- -- /See:/ 'getDistributionConfigResponse' smart constructor. data GetDistributionConfigResponse = GetDistributionConfigResponse'-    { _gdcrsETag               :: !(Maybe Text)-    , _gdcrsDistributionConfig :: !(Maybe DistributionConfig)-    , _gdcrsResponseStatus     :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gdcrsETag               :: !(Maybe Text)+  , _gdcrsDistributionConfig :: !(Maybe DistributionConfig)+  , _gdcrsResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetDistributionConfigResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,12 +121,13 @@     :: Int -- ^ 'gdcrsResponseStatus'     -> GetDistributionConfigResponse getDistributionConfigResponse pResponseStatus_ =-    GetDistributionConfigResponse'-    { _gdcrsETag = Nothing-    , _gdcrsDistributionConfig = Nothing-    , _gdcrsResponseStatus = pResponseStatus_-    }+  GetDistributionConfigResponse'+  { _gdcrsETag = Nothing+  , _gdcrsDistributionConfig = Nothing+  , _gdcrsResponseStatus = pResponseStatus_+  } + -- | The current version of the configuration. For example: @E2QWRUHAPOMQZL@ . gdcrsETag :: Lens' GetDistributionConfigResponse (Maybe Text) gdcrsETag = lens _gdcrsETag (\ s a -> s{_gdcrsETag = a});@@ -139,4 +140,4 @@ gdcrsResponseStatus :: Lens' GetDistributionConfigResponse Int gdcrsResponseStatus = lens _gdcrsResponseStatus (\ s a -> s{_gdcrsResponseStatus = a}); -instance NFData GetDistributionConfigResponse+instance NFData GetDistributionConfigResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.GetInvalidation--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , girsResponseStatus     ) 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+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 get an invalidation's information. --@@ -51,10 +51,11 @@ -- -- /See:/ 'getInvalidation' smart constructor. data GetInvalidation = GetInvalidation'-    { _giDistributionId :: !Text-    , _giId             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _giDistributionId :: !Text+  , _giId             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetInvalidation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,11 +68,9 @@     -> Text -- ^ 'giId'     -> GetInvalidation getInvalidation pDistributionId_ pId_ =-    GetInvalidation'-    { _giDistributionId = pDistributionId_-    , _giId = pId_-    }+  GetInvalidation' {_giDistributionId = pDistributionId_, _giId = pId_} + -- | The distribution's ID. giDistributionId :: Lens' GetInvalidation Text giDistributionId = lens _giDistributionId (\ s a -> s{_giDistributionId = a});@@ -89,9 +88,9 @@                  GetInvalidationResponse' <$>                    (parseXML x) <*> (pure (fromEnum s))) -instance Hashable GetInvalidation+instance Hashable GetInvalidation where -instance NFData GetInvalidation+instance NFData GetInvalidation where  instance ToHeaders GetInvalidation where         toHeaders = const mempty@@ -99,7 +98,7 @@ instance ToPath GetInvalidation where         toPath GetInvalidation'{..}           = mconcat-              ["/2016-09-29/distribution/", toBS _giDistributionId,+              ["/2017-03-25/distribution/", toBS _giDistributionId,                "/invalidation/", toBS _giId]  instance ToQuery GetInvalidation where@@ -111,10 +110,11 @@ -- -- /See:/ 'getInvalidationResponse' smart constructor. data GetInvalidationResponse = GetInvalidationResponse'-    { _girsInvalidation   :: !(Maybe Invalidation)-    , _girsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _girsInvalidation   :: !(Maybe Invalidation)+  , _girsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetInvalidationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -126,11 +126,10 @@     :: Int -- ^ 'girsResponseStatus'     -> GetInvalidationResponse getInvalidationResponse pResponseStatus_ =-    GetInvalidationResponse'-    { _girsInvalidation = Nothing-    , _girsResponseStatus = pResponseStatus_-    }+  GetInvalidationResponse'+  {_girsInvalidation = Nothing, _girsResponseStatus = pResponseStatus_} + -- | The invalidation's information. For more information, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/InvalidationDatatype.html Invalidation Complex Type> . girsInvalidation :: Lens' GetInvalidationResponse (Maybe Invalidation) girsInvalidation = lens _girsInvalidation (\ s a -> s{_girsInvalidation = a});@@ -139,4 +138,4 @@ girsResponseStatus :: Lens' GetInvalidationResponse Int girsResponseStatus = lens _girsResponseStatus (\ s a -> s{_girsResponseStatus = a}); -instance NFData GetInvalidationResponse+instance NFData GetInvalidationResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.GetStreamingDistribution--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , gsdrsResponseStatus     ) 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+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 get a streaming distribution's information. --@@ -51,9 +51,10 @@ -- -- /See:/ 'getStreamingDistribution' smart constructor. newtype GetStreamingDistribution = GetStreamingDistribution'-    { _gsdId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gsdId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetStreamingDistribution' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +63,9 @@ getStreamingDistribution     :: Text -- ^ 'gsdId'     -> GetStreamingDistribution-getStreamingDistribution pId_ =-    GetStreamingDistribution'-    { _gsdId = pId_-    }+getStreamingDistribution pId_ = GetStreamingDistribution' {_gsdId = pId_} + -- | The streaming distribution's ID. gsdId :: Lens' GetStreamingDistribution Text gsdId = lens _gsdId (\ s a -> s{_gsdId = a});@@ -82,9 +81,9 @@                    (h .#? "ETag") <*> (parseXML x) <*>                      (pure (fromEnum s))) -instance Hashable GetStreamingDistribution+instance Hashable GetStreamingDistribution where -instance NFData GetStreamingDistribution+instance NFData GetStreamingDistribution where  instance ToHeaders GetStreamingDistribution where         toHeaders = const mempty@@ -92,7 +91,7 @@ instance ToPath GetStreamingDistribution where         toPath GetStreamingDistribution'{..}           = mconcat-              ["/2016-09-29/streaming-distribution/", toBS _gsdId]+              ["/2017-03-25/streaming-distribution/", toBS _gsdId]  instance ToQuery GetStreamingDistribution where         toQuery = const mempty@@ -103,11 +102,12 @@ -- -- /See:/ 'getStreamingDistributionResponse' smart constructor. data GetStreamingDistributionResponse = GetStreamingDistributionResponse'-    { _gsdrsETag                  :: !(Maybe Text)-    , _gsdrsStreamingDistribution :: !(Maybe StreamingDistribution)-    , _gsdrsResponseStatus        :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gsdrsETag                  :: !(Maybe Text)+  , _gsdrsStreamingDistribution :: !(Maybe StreamingDistribution)+  , _gsdrsResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetStreamingDistributionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,12 +121,13 @@     :: Int -- ^ 'gsdrsResponseStatus'     -> GetStreamingDistributionResponse getStreamingDistributionResponse pResponseStatus_ =-    GetStreamingDistributionResponse'-    { _gsdrsETag = Nothing-    , _gsdrsStreamingDistribution = Nothing-    , _gsdrsResponseStatus = pResponseStatus_-    }+  GetStreamingDistributionResponse'+  { _gsdrsETag = Nothing+  , _gsdrsStreamingDistribution = Nothing+  , _gsdrsResponseStatus = pResponseStatus_+  } + -- | 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});@@ -140,3 +141,4 @@ gsdrsResponseStatus = lens _gsdrsResponseStatus (\ s a -> s{_gsdrsResponseStatus = a});  instance NFData GetStreamingDistributionResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.GetStreamingDistributionConfig--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , gsdcrsResponseStatus     ) 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+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  -- | To request to get a streaming distribution configuration. --@@ -51,9 +51,10 @@ -- -- /See:/ 'getStreamingDistributionConfig' smart constructor. newtype GetStreamingDistributionConfig = GetStreamingDistributionConfig'-    { _gsdcId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gsdcId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetStreamingDistributionConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +64,9 @@     :: Text -- ^ 'gsdcId'     -> GetStreamingDistributionConfig getStreamingDistributionConfig pId_ =-    GetStreamingDistributionConfig'-    { _gsdcId = pId_-    }+  GetStreamingDistributionConfig' {_gsdcId = pId_} + -- | The streaming distribution's ID. gsdcId :: Lens' GetStreamingDistributionConfig Text gsdcId = lens _gsdcId (\ s a -> s{_gsdcId = a});@@ -84,8 +84,9 @@                      (pure (fromEnum s)))  instance Hashable GetStreamingDistributionConfig+         where -instance NFData GetStreamingDistributionConfig+instance NFData GetStreamingDistributionConfig where  instance ToHeaders GetStreamingDistributionConfig          where@@ -94,7 +95,7 @@ instance ToPath GetStreamingDistributionConfig where         toPath GetStreamingDistributionConfig'{..}           = mconcat-              ["/2016-09-29/streaming-distribution/", toBS _gsdcId,+              ["/2017-03-25/streaming-distribution/", toBS _gsdcId,                "/config"]  instance ToQuery GetStreamingDistributionConfig where@@ -106,11 +107,12 @@ -- -- /See:/ 'getStreamingDistributionConfigResponse' smart constructor. data GetStreamingDistributionConfigResponse = GetStreamingDistributionConfigResponse'-    { _gsdcrsStreamingDistributionConfig :: !(Maybe StreamingDistributionConfig)-    , _gsdcrsETag                        :: !(Maybe Text)-    , _gsdcrsResponseStatus              :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gsdcrsStreamingDistributionConfig :: !(Maybe StreamingDistributionConfig)+  , _gsdcrsETag                        :: !(Maybe Text)+  , _gsdcrsResponseStatus              :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetStreamingDistributionConfigResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -124,12 +126,13 @@     :: Int -- ^ 'gsdcrsResponseStatus'     -> GetStreamingDistributionConfigResponse getStreamingDistributionConfigResponse pResponseStatus_ =-    GetStreamingDistributionConfigResponse'-    { _gsdcrsStreamingDistributionConfig = Nothing-    , _gsdcrsETag = Nothing-    , _gsdcrsResponseStatus = pResponseStatus_-    }+  GetStreamingDistributionConfigResponse'+  { _gsdcrsStreamingDistributionConfig = Nothing+  , _gsdcrsETag = Nothing+  , _gsdcrsResponseStatus = pResponseStatus_+  } + -- | The streaming distribution's configuration information. gsdcrsStreamingDistributionConfig :: Lens' GetStreamingDistributionConfigResponse (Maybe StreamingDistributionConfig) gsdcrsStreamingDistributionConfig = lens _gsdcrsStreamingDistributionConfig (\ s a -> s{_gsdcrsStreamingDistributionConfig = a});@@ -143,4 +146,5 @@ gsdcrsResponseStatus = lens _gsdcrsResponseStatus (\ s a -> s{_gsdcrsResponseStatus = a});  instance NFData-         GetStreamingDistributionConfigResponse+           GetStreamingDistributionConfigResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.ListCloudFrontOriginAccessIdentities--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,13 +40,13 @@     , lcfoairsCloudFrontOriginAccessIdentityList     ) where -import           Network.AWS.CloudFront.Types-import           Network.AWS.CloudFront.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudFront.Types+import Network.AWS.CloudFront.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | The request to list origin access identities. --@@ -54,10 +54,11 @@ -- -- /See:/ 'listCloudFrontOriginAccessIdentities' smart constructor. data ListCloudFrontOriginAccessIdentities = ListCloudFrontOriginAccessIdentities'-    { _lcfoaiMarker   :: !(Maybe Text)-    , _lcfoaiMaxItems :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lcfoaiMarker   :: !(Maybe Text)+  , _lcfoaiMaxItems :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListCloudFrontOriginAccessIdentities' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,11 +69,10 @@ listCloudFrontOriginAccessIdentities     :: ListCloudFrontOriginAccessIdentities listCloudFrontOriginAccessIdentities =-    ListCloudFrontOriginAccessIdentities'-    { _lcfoaiMarker = Nothing-    , _lcfoaiMaxItems = Nothing-    }+  ListCloudFrontOriginAccessIdentities'+  {_lcfoaiMarker = Nothing, _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). lcfoaiMarker :: Lens' ListCloudFrontOriginAccessIdentities (Maybe Text) lcfoaiMarker = lens _lcfoaiMarker (\ s a -> s{_lcfoaiMarker = a});@@ -82,7 +82,8 @@ lcfoaiMaxItems = lens _lcfoaiMaxItems (\ s a -> s{_lcfoaiMaxItems = a});  instance AWSPager-         ListCloudFrontOriginAccessIdentities where+           ListCloudFrontOriginAccessIdentities+         where         page rq rs           | stop               (rs ^.@@ -102,7 +103,8 @@                     cfoailNextMarker . _Just  instance AWSRequest-         ListCloudFrontOriginAccessIdentities where+           ListCloudFrontOriginAccessIdentities+         where         type Rs ListCloudFrontOriginAccessIdentities =              ListCloudFrontOriginAccessIdentitiesResponse         request = get cloudFront@@ -113,19 +115,22 @@                    (pure (fromEnum s)) <*> (parseXML x))  instance Hashable-         ListCloudFrontOriginAccessIdentities+           ListCloudFrontOriginAccessIdentities+         where  instance NFData ListCloudFrontOriginAccessIdentities+         where  instance ToHeaders-         ListCloudFrontOriginAccessIdentities where+           ListCloudFrontOriginAccessIdentities+         where         toHeaders = const mempty  instance ToPath ListCloudFrontOriginAccessIdentities          where         toPath           = const-              "/2016-09-29/origin-access-identity/cloudfront"+              "/2017-03-25/origin-access-identity/cloudfront"  instance ToQuery ListCloudFrontOriginAccessIdentities          where@@ -140,10 +145,11 @@ -- -- /See:/ 'listCloudFrontOriginAccessIdentitiesResponse' smart constructor. data ListCloudFrontOriginAccessIdentitiesResponse = ListCloudFrontOriginAccessIdentitiesResponse'-    { _lcfoairsResponseStatus                     :: !Int-    , _lcfoairsCloudFrontOriginAccessIdentityList :: !CloudFrontOriginAccessIdentityList-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lcfoairsResponseStatus :: !Int+  , _lcfoairsCloudFrontOriginAccessIdentityList :: !CloudFrontOriginAccessIdentityList+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListCloudFrontOriginAccessIdentitiesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -156,11 +162,13 @@     -> CloudFrontOriginAccessIdentityList -- ^ 'lcfoairsCloudFrontOriginAccessIdentityList'     -> ListCloudFrontOriginAccessIdentitiesResponse listCloudFrontOriginAccessIdentitiesResponse pResponseStatus_ pCloudFrontOriginAccessIdentityList_ =-    ListCloudFrontOriginAccessIdentitiesResponse'-    { _lcfoairsResponseStatus = pResponseStatus_-    , _lcfoairsCloudFrontOriginAccessIdentityList = pCloudFrontOriginAccessIdentityList_-    }+  ListCloudFrontOriginAccessIdentitiesResponse'+  { _lcfoairsResponseStatus = pResponseStatus_+  , _lcfoairsCloudFrontOriginAccessIdentityList =+      pCloudFrontOriginAccessIdentityList_+  } + -- | -- | The response status code. lcfoairsResponseStatus :: Lens' ListCloudFrontOriginAccessIdentitiesResponse Int lcfoairsResponseStatus = lens _lcfoairsResponseStatus (\ s a -> s{_lcfoairsResponseStatus = a});@@ -170,4 +178,5 @@ lcfoairsCloudFrontOriginAccessIdentityList = lens _lcfoairsCloudFrontOriginAccessIdentityList (\ s a -> s{_lcfoairsCloudFrontOriginAccessIdentityList = a});  instance NFData-         ListCloudFrontOriginAccessIdentitiesResponse+           ListCloudFrontOriginAccessIdentitiesResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.ListDistributions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,13 +40,13 @@     , ldrsDistributionList     ) where -import           Network.AWS.CloudFront.Types-import           Network.AWS.CloudFront.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudFront.Types+import Network.AWS.CloudFront.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | The request to list your distributions. --@@ -54,10 +54,11 @@ -- -- /See:/ 'listDistributions' smart constructor. data ListDistributions = ListDistributions'-    { _ldMarker   :: !(Maybe Text)-    , _ldMaxItems :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ldMarker   :: !(Maybe Text)+  , _ldMaxItems :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDistributions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,11 +69,9 @@ listDistributions     :: ListDistributions listDistributions =-    ListDistributions'-    { _ldMarker = Nothing-    , _ldMaxItems = Nothing-    }+  ListDistributions' {_ldMarker = Nothing, _ldMaxItems = Nothing} + -- | 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});@@ -102,15 +101,15 @@                  ListDistributionsResponse' <$>                    (pure (fromEnum s)) <*> (parseXML x)) -instance Hashable ListDistributions+instance Hashable ListDistributions where -instance NFData ListDistributions+instance NFData ListDistributions where  instance ToHeaders ListDistributions where         toHeaders = const mempty  instance ToPath ListDistributions where-        toPath = const "/2016-09-29/distribution"+        toPath = const "/2017-03-25/distribution"  instance ToQuery ListDistributions where         toQuery ListDistributions'{..}@@ -123,10 +122,11 @@ -- -- /See:/ 'listDistributionsResponse' smart constructor. data ListDistributionsResponse = ListDistributionsResponse'-    { _ldrsResponseStatus   :: !Int-    , _ldrsDistributionList :: !DistributionList-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ldrsResponseStatus   :: !Int+  , _ldrsDistributionList :: !DistributionList+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDistributionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -139,11 +139,12 @@     -> DistributionList -- ^ 'ldrsDistributionList'     -> ListDistributionsResponse listDistributionsResponse pResponseStatus_ pDistributionList_ =-    ListDistributionsResponse'-    { _ldrsResponseStatus = pResponseStatus_-    , _ldrsDistributionList = pDistributionList_-    }+  ListDistributionsResponse'+  { _ldrsResponseStatus = pResponseStatus_+  , _ldrsDistributionList = pDistributionList_+  } + -- | -- | The response status code. ldrsResponseStatus :: Lens' ListDistributionsResponse Int ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});@@ -152,4 +153,4 @@ ldrsDistributionList :: Lens' ListDistributionsResponse DistributionList ldrsDistributionList = lens _ldrsDistributionList (\ s a -> s{_ldrsDistributionList = a}); -instance NFData ListDistributionsResponse+instance NFData ListDistributionsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.ListDistributionsByWebACLId--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , ldbwairsResponseStatus     ) 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+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 distributions that are associated with a specified AWS WAF web ACL. --@@ -52,11 +52,12 @@ -- -- /See:/ 'listDistributionsByWebACLId' smart constructor. data ListDistributionsByWebACLId = ListDistributionsByWebACLId'-    { _ldbwaiMarker   :: !(Maybe Text)-    , _ldbwaiMaxItems :: !(Maybe Text)-    , _ldbwaiWebACLId :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ldbwaiMarker   :: !(Maybe Text)+  , _ldbwaiMaxItems :: !(Maybe Text)+  , _ldbwaiWebACLId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDistributionsByWebACLId' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,12 +71,13 @@     :: Text -- ^ 'ldbwaiWebACLId'     -> ListDistributionsByWebACLId listDistributionsByWebACLId pWebACLId_ =-    ListDistributionsByWebACLId'-    { _ldbwaiMarker = Nothing-    , _ldbwaiMaxItems = Nothing-    , _ldbwaiWebACLId = pWebACLId_-    }+  ListDistributionsByWebACLId'+  { _ldbwaiMarker = Nothing+  , _ldbwaiMaxItems = Nothing+  , _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@ .) ldbwaiMarker :: Lens' ListDistributionsByWebACLId (Maybe Text) ldbwaiMarker = lens _ldbwaiMarker (\ s a -> s{_ldbwaiMarker = a});@@ -98,9 +100,9 @@                  ListDistributionsByWebACLIdResponse' <$>                    (parseXML x) <*> (pure (fromEnum s))) -instance Hashable ListDistributionsByWebACLId+instance Hashable ListDistributionsByWebACLId where -instance NFData ListDistributionsByWebACLId+instance NFData ListDistributionsByWebACLId where  instance ToHeaders ListDistributionsByWebACLId where         toHeaders = const mempty@@ -108,7 +110,7 @@ instance ToPath ListDistributionsByWebACLId where         toPath ListDistributionsByWebACLId'{..}           = mconcat-              ["/2016-09-29/distributionsByWebACLId/",+              ["/2017-03-25/distributionsByWebACLId/",                toBS _ldbwaiWebACLId]  instance ToQuery ListDistributionsByWebACLId where@@ -123,10 +125,11 @@ -- -- /See:/ 'listDistributionsByWebACLIdResponse' smart constructor. data ListDistributionsByWebACLIdResponse = ListDistributionsByWebACLIdResponse'-    { _ldbwairsDistributionList :: !(Maybe DistributionList)-    , _ldbwairsResponseStatus   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ldbwairsDistributionList :: !(Maybe DistributionList)+  , _ldbwairsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDistributionsByWebACLIdResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -138,11 +141,12 @@     :: Int -- ^ 'ldbwairsResponseStatus'     -> ListDistributionsByWebACLIdResponse listDistributionsByWebACLIdResponse pResponseStatus_ =-    ListDistributionsByWebACLIdResponse'-    { _ldbwairsDistributionList = Nothing-    , _ldbwairsResponseStatus = pResponseStatus_-    }+  ListDistributionsByWebACLIdResponse'+  { _ldbwairsDistributionList = Nothing+  , _ldbwairsResponseStatus = pResponseStatus_+  } + -- | The @DistributionList@ type. ldbwairsDistributionList :: Lens' ListDistributionsByWebACLIdResponse (Maybe DistributionList) ldbwairsDistributionList = lens _ldbwairsDistributionList (\ s a -> s{_ldbwairsDistributionList = a});@@ -152,3 +156,4 @@ ldbwairsResponseStatus = lens _ldbwairsResponseStatus (\ s a -> s{_ldbwairsResponseStatus = a});  instance NFData ListDistributionsByWebACLIdResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.ListInvalidations--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,13 +41,13 @@     , lirsInvalidationList     ) where -import           Network.AWS.CloudFront.Types-import           Network.AWS.CloudFront.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudFront.Types+import Network.AWS.CloudFront.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | The request to list invalidations. --@@ -55,11 +55,12 @@ -- -- /See:/ 'listInvalidations' smart constructor. data ListInvalidations = ListInvalidations'-    { _liMarker         :: !(Maybe Text)-    , _liMaxItems       :: !(Maybe Text)-    , _liDistributionId :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _liMarker         :: !(Maybe Text)+  , _liMaxItems       :: !(Maybe Text)+  , _liDistributionId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListInvalidations' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,12 +74,13 @@     :: Text -- ^ 'liDistributionId'     -> ListInvalidations listInvalidations pDistributionId_ =-    ListInvalidations'-    { _liMarker = Nothing-    , _liMaxItems = Nothing-    , _liDistributionId = pDistributionId_-    }+  ListInvalidations'+  { _liMarker = Nothing+  , _liMaxItems = Nothing+  , _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 @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});@@ -112,9 +114,9 @@                  ListInvalidationsResponse' <$>                    (pure (fromEnum s)) <*> (parseXML x)) -instance Hashable ListInvalidations+instance Hashable ListInvalidations where -instance NFData ListInvalidations+instance NFData ListInvalidations where  instance ToHeaders ListInvalidations where         toHeaders = const mempty@@ -122,7 +124,7 @@ instance ToPath ListInvalidations where         toPath ListInvalidations'{..}           = mconcat-              ["/2016-09-29/distribution/", toBS _liDistributionId,+              ["/2017-03-25/distribution/", toBS _liDistributionId,                "/invalidation"]  instance ToQuery ListInvalidations where@@ -136,10 +138,11 @@ -- -- /See:/ 'listInvalidationsResponse' smart constructor. data ListInvalidationsResponse = ListInvalidationsResponse'-    { _lirsResponseStatus   :: !Int-    , _lirsInvalidationList :: !InvalidationList-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lirsResponseStatus   :: !Int+  , _lirsInvalidationList :: !InvalidationList+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListInvalidationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -152,11 +155,12 @@     -> InvalidationList -- ^ 'lirsInvalidationList'     -> ListInvalidationsResponse listInvalidationsResponse pResponseStatus_ pInvalidationList_ =-    ListInvalidationsResponse'-    { _lirsResponseStatus = pResponseStatus_-    , _lirsInvalidationList = pInvalidationList_-    }+  ListInvalidationsResponse'+  { _lirsResponseStatus = pResponseStatus_+  , _lirsInvalidationList = pInvalidationList_+  } + -- | -- | The response status code. lirsResponseStatus :: Lens' ListInvalidationsResponse Int lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a});@@ -165,4 +169,4 @@ lirsInvalidationList :: Lens' ListInvalidationsResponse InvalidationList lirsInvalidationList = lens _lirsInvalidationList (\ s a -> s{_lirsInvalidationList = a}); -instance NFData ListInvalidationsResponse+instance NFData ListInvalidationsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.ListStreamingDistributions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,13 +40,13 @@     , lsdrsStreamingDistributionList     ) where -import           Network.AWS.CloudFront.Types-import           Network.AWS.CloudFront.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudFront.Types+import Network.AWS.CloudFront.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | The request to list your streaming distributions. --@@ -54,10 +54,11 @@ -- -- /See:/ 'listStreamingDistributions' smart constructor. data ListStreamingDistributions = ListStreamingDistributions'-    { _lsdMarker   :: !(Maybe Text)-    , _lsdMaxItems :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lsdMarker   :: !(Maybe Text)+  , _lsdMaxItems :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListStreamingDistributions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,11 +69,9 @@ listStreamingDistributions     :: ListStreamingDistributions listStreamingDistributions =-    ListStreamingDistributions'-    { _lsdMarker = Nothing-    , _lsdMaxItems = Nothing-    }+  ListStreamingDistributions' {_lsdMarker = Nothing, _lsdMaxItems = Nothing} + -- | The value that you provided for the @Marker@ request parameter. lsdMarker :: Lens' ListStreamingDistributions (Maybe Text) lsdMarker = lens _lsdMarker (\ s a -> s{_lsdMarker = a});@@ -109,15 +108,15 @@                  ListStreamingDistributionsResponse' <$>                    (pure (fromEnum s)) <*> (parseXML x)) -instance Hashable ListStreamingDistributions+instance Hashable ListStreamingDistributions where -instance NFData ListStreamingDistributions+instance NFData ListStreamingDistributions where  instance ToHeaders ListStreamingDistributions where         toHeaders = const mempty  instance ToPath ListStreamingDistributions where-        toPath = const "/2016-09-29/streaming-distribution"+        toPath = const "/2017-03-25/streaming-distribution"  instance ToQuery ListStreamingDistributions where         toQuery ListStreamingDistributions'{..}@@ -130,10 +129,11 @@ -- -- /See:/ 'listStreamingDistributionsResponse' smart constructor. data ListStreamingDistributionsResponse = ListStreamingDistributionsResponse'-    { _lsdrsResponseStatus            :: !Int-    , _lsdrsStreamingDistributionList :: !StreamingDistributionList-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lsdrsResponseStatus            :: !Int+  , _lsdrsStreamingDistributionList :: !StreamingDistributionList+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListStreamingDistributionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -146,11 +146,12 @@     -> StreamingDistributionList -- ^ 'lsdrsStreamingDistributionList'     -> ListStreamingDistributionsResponse listStreamingDistributionsResponse pResponseStatus_ pStreamingDistributionList_ =-    ListStreamingDistributionsResponse'-    { _lsdrsResponseStatus = pResponseStatus_-    , _lsdrsStreamingDistributionList = pStreamingDistributionList_-    }+  ListStreamingDistributionsResponse'+  { _lsdrsResponseStatus = pResponseStatus_+  , _lsdrsStreamingDistributionList = pStreamingDistributionList_+  } + -- | -- | The response status code. lsdrsResponseStatus :: Lens' ListStreamingDistributionsResponse Int lsdrsResponseStatus = lens _lsdrsResponseStatus (\ s a -> s{_lsdrsResponseStatus = a});@@ -160,3 +161,4 @@ lsdrsStreamingDistributionList = lens _lsdrsStreamingDistributionList (\ s a -> s{_lsdrsStreamingDistributionList = a});  instance NFData ListStreamingDistributionsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.ListTagsForResource--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , 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+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. --@@ -50,9 +50,10 @@ -- -- /See:/ 'listTagsForResource' smart constructor. newtype ListTagsForResource = ListTagsForResource'-    { _ltfrResource :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -62,10 +63,9 @@     :: Text -- ^ 'ltfrResource'     -> ListTagsForResource listTagsForResource pResource_ =-    ListTagsForResource'-    { _ltfrResource = pResource_-    }+  ListTagsForResource' {_ltfrResource = pResource_} + -- | An ARN of a CloudFront resource. ltfrResource :: Lens' ListTagsForResource Text ltfrResource = lens _ltfrResource (\ s a -> s{_ltfrResource = a});@@ -80,15 +80,15 @@                  ListTagsForResourceResponse' <$>                    (pure (fromEnum s)) <*> (parseXML x)) -instance Hashable ListTagsForResource+instance Hashable ListTagsForResource where -instance NFData ListTagsForResource+instance NFData ListTagsForResource where  instance ToHeaders ListTagsForResource where         toHeaders = const mempty  instance ToPath ListTagsForResource where-        toPath = const "/2016-09-29/tagging"+        toPath = const "/2017-03-25/tagging"  instance ToQuery ListTagsForResource where         toQuery ListTagsForResource'{..}@@ -100,10 +100,11 @@ -- -- /See:/ 'listTagsForResourceResponse' smart constructor. data ListTagsForResourceResponse = ListTagsForResourceResponse'-    { _ltfrrsResponseStatus :: !Int-    , _ltfrrsTags           :: !Tags-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -116,11 +117,10 @@     -> Tags -- ^ 'ltfrrsTags'     -> ListTagsForResourceResponse listTagsForResourceResponse pResponseStatus_ pTags_ =-    ListTagsForResourceResponse'-    { _ltfrrsResponseStatus = pResponseStatus_-    , _ltfrrsTags = pTags_-    }+  ListTagsForResourceResponse'+  {_ltfrrsResponseStatus = pResponseStatus_, _ltfrrsTags = pTags_} + -- | -- | The response status code. ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a});@@ -129,4 +129,4 @@ ltfrrsTags :: Lens' ListTagsForResourceResponse Tags ltfrrsTags = lens _ltfrrsTags (\ s a -> s{_ltfrrsTags = a}); -instance NFData ListTagsForResourceResponse+instance NFData ListTagsForResourceResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudFront.TagResource--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,12 +35,12 @@     , 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+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. --@@ -48,10 +48,11 @@ -- -- /See:/ 'tagResource' smart constructor. data TagResource = TagResource'-    { _trResource :: !Text-    , _trTags     :: !Tags-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -64,11 +65,9 @@     -> Tags -- ^ 'trTags'     -> TagResource tagResource pResource_ pTags_ =-    TagResource'-    { _trResource = pResource_-    , _trTags = pTags_-    }+  TagResource' {_trResource = pResource_, _trTags = pTags_} + -- | An ARN of a CloudFront resource. trResource :: Lens' TagResource Text trResource = lens _trResource (\ s a -> s{_trResource = a});@@ -82,14 +81,14 @@         request = postXML cloudFront         response = receiveNull TagResourceResponse' -instance Hashable TagResource+instance Hashable TagResource where -instance NFData TagResource+instance NFData TagResource where  instance ToElement TagResource where         toElement           = mkElement-              "{http://cloudfront.amazonaws.com/doc/2016-09-29/}Tags"+              "{http://cloudfront.amazonaws.com/doc/2017-03-25/}Tags"               .               _trTags @@ -97,7 +96,7 @@         toHeaders = const mempty  instance ToPath TagResource where-        toPath = const "/2016-09-29/tagging"+        toPath = const "/2017-03-25/tagging"  instance ToQuery TagResource where         toQuery TagResource'{..}@@ -106,13 +105,15 @@  -- | /See:/ 'tagResourceResponse' smart constructor. data TagResourceResponse =-    TagResourceResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  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++instance NFData TagResourceResponse where

@@ -4,9 +4,9 @@  -- | -- Module      : Network.AWS.CloudFront.Types--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -19,6 +19,7 @@     , _TooManyOriginCustomHeaders     , _InvalidTagging     , _InvalidErrorCode+    , _InvalidOriginReadTimeout     , _TooManyCacheBehaviors     , _TooManyCloudFrontOriginAccessIdentities     , _InvalidOriginAccessIdentity@@ -26,6 +27,7 @@     , _NoSuchStreamingDistribution     , _InconsistentQuantities     , _InvalidArgument+    , _InvalidOriginKeepaliveTimeout     , _TooManyInvalidationsInProgress     , _InvalidWebACLId     , _TooManyQueryStringParameters@@ -35,6 +37,7 @@     , _TooManyStreamingDistributions     , _BatchTooLarge     , _TooManyCookieNamesInWhiteList+    , _InvalidLambdaFunctionAssociation     , _InvalidForwardCookies     , _TooManyTrustedSigners     , _InvalidOrigin@@ -45,6 +48,7 @@     , _TooManyHeadersInForwardedValues     , _NoSuchResource     , _TooManyStreamingDistributionCNAMEs+    , _ResourceInUse     , _InvalidRequiredProtocol     , _TooManyDistributions     , _TooManyCertificates@@ -59,6 +63,7 @@     , _CNAMEAlreadyExists     , _TrustedSignerDoesNotExist     , _InvalidProtocolSettings+    , _TooManyLambdaFunctionAssociations     , _CloudFrontOriginAccessIdentityAlreadyExists     , _TooManyOrigins     , _InvalidRelativePath@@ -68,12 +73,16 @@     , _InvalidViewerCertificate     , _NoSuchDistribution     , _InvalidDefaultRootObject+    , _TooManyDistributionsWithLambdaAssociations     , _InvalidGeoRestrictionParameter     , _InvalidLocationCode      -- * CertificateSource     , CertificateSource (..) +    -- * EventType+    , EventType (..)+     -- * GeoRestrictionType     , GeoRestrictionType (..) @@ -128,6 +137,7 @@     , CacheBehavior     , cacheBehavior     , cbAllowedMethods+    , cbLambdaFunctionAssociations     , cbMaxTTL     , cbCompress     , cbSmoothStreaming@@ -216,6 +226,8 @@     -- * CustomOriginConfig     , CustomOriginConfig     , customOriginConfig+    , cocOriginKeepaliveTimeout+    , cocOriginReadTimeout     , cocOriginSSLProtocols     , cocHTTPPort     , cocHTTPSPort@@ -225,6 +237,7 @@     , DefaultCacheBehavior     , defaultCacheBehavior     , dcbAllowedMethods+    , dcbLambdaFunctionAssociations     , dcbMaxTTL     , dcbCompress     , dcbSmoothStreaming@@ -363,6 +376,18 @@     , kpiItems     , kpiQuantity +    -- * LambdaFunctionAssociation+    , LambdaFunctionAssociation+    , lambdaFunctionAssociation+    , lfaLambdaFunctionARN+    , lfaEventType++    -- * LambdaFunctionAssociations+    , LambdaFunctionAssociations+    , lambdaFunctionAssociations+    , lfaItems+    , lfaQuantity+     -- * LoggingConfig     , LoggingConfig     , loggingConfig@@ -529,38 +554,40 @@     , vcCloudFrontDefaultCertificate     ) where -import           Network.AWS.CloudFront.Types.Product-import           Network.AWS.CloudFront.Types.Sum-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Sign.V4+import Network.AWS.CloudFront.Types.Product+import Network.AWS.CloudFront.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Sign.V4 --- | API version @2016-09-29@ of the Amazon CloudFront SDK configuration.+-- | API version @2017-03-25@ of the Amazon CloudFront SDK configuration. cloudFront :: Service cloudFront =-    Service-    { _svcAbbrev = "CloudFront"-    , _svcSigner = v4-    , _svcPrefix = "cloudfront"-    , _svcVersion = "2016-09-29"-    , _svcEndpoint = defaultEndpoint cloudFront-    , _svcTimeout = Just 70-    , _svcCheck = statusSuccess-    , _svcError = parseXMLError "CloudFront"-    , _svcRetry = retry-    }+  Service+  { _svcAbbrev = "CloudFront"+  , _svcSigner = v4+  , _svcPrefix = "cloudfront"+  , _svcVersion = "2017-03-25"+  , _svcEndpoint = defaultEndpoint cloudFront+  , _svcTimeout = Just 70+  , _svcCheck = statusSuccess+  , _svcError = parseXMLError "CloudFront"+  , _svcRetry = retry+  }   where     retry =-        Exponential-        { _retryBase = 5.0e-2-        , _retryGrowth = 2-        , _retryAttempts = 5-        , _retryCheck = check-        }+      Exponential+      { _retryBase = 5.0e-2+      , _retryGrowth = 2+      , _retryAttempts = 5+      , _retryCheck = check+      }     check e+      | has (hasCode "ThrottledException" . hasStatus 400) e =+        Just "throttled_exception"       | has (hasStatus 429) e = Just "too_many_requests"       | has (hasCode "ThrottlingException" . hasStatus 400) e =-          Just "throttling_exception"+        Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"       | has (hasStatus 502) e = Just "bad_gateway"@@ -569,329 +596,434 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing + -- | Prism for TooManyOriginCustomHeaders' errors. _TooManyOriginCustomHeaders :: AsError a => Getting (First ServiceError) a ServiceError _TooManyOriginCustomHeaders =-    _ServiceError . hasStatus 400 . hasCode "TooManyOriginCustomHeaders"+  _MatchServiceError cloudFront "TooManyOriginCustomHeaders" . hasStatus 400 + -- | Prism for InvalidTagging' errors. _InvalidTagging :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidTagging = _ServiceError . hasStatus 400 . hasCode "InvalidTagging"+_InvalidTagging = _MatchServiceError cloudFront "InvalidTagging" . hasStatus 400 + -- | Prism for InvalidErrorCode' errors. _InvalidErrorCode :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidErrorCode = _ServiceError . hasStatus 400 . hasCode "InvalidErrorCode"+_InvalidErrorCode =+  _MatchServiceError cloudFront "InvalidErrorCode" . hasStatus 400 ++-- | Prism for InvalidOriginReadTimeout' errors.+_InvalidOriginReadTimeout :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidOriginReadTimeout =+  _MatchServiceError cloudFront "InvalidOriginReadTimeout" . hasStatus 400++ -- | You cannot create more cache behaviors for the distribution. -- -- _TooManyCacheBehaviors :: AsError a => Getting (First ServiceError) a ServiceError _TooManyCacheBehaviors =-    _ServiceError . hasStatus 400 . hasCode "TooManyCacheBehaviors"+  _MatchServiceError cloudFront "TooManyCacheBehaviors" . hasStatus 400 + -- | 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"+  _MatchServiceError cloudFront "TooManyCloudFrontOriginAccessIdentities" .+  hasStatus 400 + -- | 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"+  _MatchServiceError cloudFront "InvalidOriginAccessIdentity" . hasStatus 400 + -- | Prism for DistributionNotDisabled' errors. _DistributionNotDisabled :: AsError a => Getting (First ServiceError) a ServiceError _DistributionNotDisabled =-    _ServiceError . hasStatus 409 . hasCode "DistributionNotDisabled"+  _MatchServiceError cloudFront "DistributionNotDisabled" . hasStatus 409 + -- | The specified streaming distribution does not exist. -- -- _NoSuchStreamingDistribution :: AsError a => Getting (First ServiceError) a ServiceError _NoSuchStreamingDistribution =-    _ServiceError . hasStatus 404 . hasCode "NoSuchStreamingDistribution"+  _MatchServiceError cloudFront "NoSuchStreamingDistribution" . hasStatus 404 --- | The value of @Quantity@ and the size of @Items@ do not match.++-- | The value of @Quantity@ and the size of @Items@ don't match. -- -- _InconsistentQuantities :: AsError a => Getting (First ServiceError) a ServiceError _InconsistentQuantities =-    _ServiceError . hasStatus 400 . hasCode "InconsistentQuantities"+  _MatchServiceError cloudFront "InconsistentQuantities" . hasStatus 400 + -- | The argument is invalid. -- -- _InvalidArgument :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidArgument = _ServiceError . hasStatus 400 . hasCode "InvalidArgument"+_InvalidArgument =+  _MatchServiceError cloudFront "InvalidArgument" . hasStatus 400 ++-- | Prism for InvalidOriginKeepaliveTimeout' errors.+_InvalidOriginKeepaliveTimeout :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidOriginKeepaliveTimeout =+  _MatchServiceError cloudFront "InvalidOriginKeepaliveTimeout" . hasStatus 400++ -- | 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"+  _MatchServiceError cloudFront "TooManyInvalidationsInProgress" . hasStatus 400 + -- | Prism for InvalidWebACLId' errors. _InvalidWebACLId :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidWebACLId = _ServiceError . hasStatus 400 . hasCode "InvalidWebACLId"+_InvalidWebACLId =+  _MatchServiceError cloudFront "InvalidWebACLId" . hasStatus 400 + -- | Prism for TooManyQueryStringParameters' errors. _TooManyQueryStringParameters :: AsError a => Getting (First ServiceError) a ServiceError _TooManyQueryStringParameters =-    _ServiceError . hasStatus 400 . hasCode "TooManyQueryStringParameters"+  _MatchServiceError cloudFront "TooManyQueryStringParameters" . hasStatus 400 + -- | Your request contains more CNAMEs than are allowed per distribution. -- -- _TooManyDistributionCNAMEs :: AsError a => Getting (First ServiceError) a ServiceError _TooManyDistributionCNAMEs =-    _ServiceError . hasStatus 400 . hasCode "TooManyDistributionCNAMEs"+  _MatchServiceError cloudFront "TooManyDistributionCNAMEs" . hasStatus 400 + -- | The specified origin access identity does not exist. -- -- _NoSuchCloudFrontOriginAccessIdentity :: AsError a => Getting (First ServiceError) a ServiceError _NoSuchCloudFrontOriginAccessIdentity =-    _ServiceError .-    hasStatus 404 . hasCode "NoSuchCloudFrontOriginAccessIdentity"+  _MatchServiceError cloudFront "NoSuchCloudFrontOriginAccessIdentity" .+  hasStatus 404 + -- | Prism for CloudFrontOriginAccessIdentityInUse' errors. _CloudFrontOriginAccessIdentityInUse :: AsError a => Getting (First ServiceError) a ServiceError _CloudFrontOriginAccessIdentityInUse =-    _ServiceError .-    hasStatus 409 . hasCode "CloudFrontOriginAccessIdentityInUse"+  _MatchServiceError cloudFront "CloudFrontOriginAccessIdentityInUse" .+  hasStatus 409 + -- | 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"+  _MatchServiceError cloudFront "TooManyStreamingDistributions" . hasStatus 400 + -- | Prism for BatchTooLarge' errors. _BatchTooLarge :: AsError a => Getting (First ServiceError) a ServiceError-_BatchTooLarge = _ServiceError . hasStatus 413 . hasCode "BatchTooLarge"+_BatchTooLarge = _MatchServiceError cloudFront "BatchTooLarge" . hasStatus 413 + -- | 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"+  _MatchServiceError cloudFront "TooManyCookieNamesInWhiteList" . hasStatus 400 ++-- | The specified Lambda function association is invalid.+--+--+_InvalidLambdaFunctionAssociation :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidLambdaFunctionAssociation =+  _MatchServiceError cloudFront "InvalidLambdaFunctionAssociation" .+  hasStatus 400++ -- | 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"+  _MatchServiceError cloudFront "InvalidForwardCookies" . hasStatus 400 + -- | 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"+  _MatchServiceError cloudFront "TooManyTrustedSigners" . hasStatus 400 + -- | 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"+_InvalidOrigin = _MatchServiceError cloudFront "InvalidOrigin" . hasStatus 400 + -- | The specified invalidation does not exist. -- -- _NoSuchInvalidation :: AsError a => Getting (First ServiceError) a ServiceError _NoSuchInvalidation =-    _ServiceError . hasStatus 404 . hasCode "NoSuchInvalidation"+  _MatchServiceError cloudFront "NoSuchInvalidation" . hasStatus 404 + -- | No origin exists with the specified @Origin Id@ . -- -- _NoSuchOrigin :: AsError a => Getting (First ServiceError) a ServiceError-_NoSuchOrigin = _ServiceError . hasStatus 404 . hasCode "NoSuchOrigin"+_NoSuchOrigin = _MatchServiceError cloudFront "NoSuchOrigin" . hasStatus 404 + -- | Prism for InvalidTTLOrder' errors. _InvalidTTLOrder :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidTTLOrder = _ServiceError . hasStatus 400 . hasCode "InvalidTTLOrder"+_InvalidTTLOrder =+  _MatchServiceError cloudFront "InvalidTTLOrder" . hasStatus 400 + -- | Prism for StreamingDistributionNotDisabled' errors. _StreamingDistributionNotDisabled :: AsError a => Getting (First ServiceError) a ServiceError _StreamingDistributionNotDisabled =-    _ServiceError . hasStatus 409 . hasCode "StreamingDistributionNotDisabled"+  _MatchServiceError cloudFront "StreamingDistributionNotDisabled" .+  hasStatus 409 + -- | Prism for TooManyHeadersInForwardedValues' errors. _TooManyHeadersInForwardedValues :: AsError a => Getting (First ServiceError) a ServiceError _TooManyHeadersInForwardedValues =-    _ServiceError . hasStatus 400 . hasCode "TooManyHeadersInForwardedValues"+  _MatchServiceError cloudFront "TooManyHeadersInForwardedValues" .+  hasStatus 400 + -- | Prism for NoSuchResource' errors. _NoSuchResource :: AsError a => Getting (First ServiceError) a ServiceError-_NoSuchResource = _ServiceError . hasStatus 404 . hasCode "NoSuchResource"+_NoSuchResource = _MatchServiceError cloudFront "NoSuchResource" . hasStatus 404 + -- | Prism for TooManyStreamingDistributionCNAMEs' errors. _TooManyStreamingDistributionCNAMEs :: AsError a => Getting (First ServiceError) a ServiceError _TooManyStreamingDistributionCNAMEs =-    _ServiceError .-    hasStatus 400 . hasCode "TooManyStreamingDistributionCNAMEs"+  _MatchServiceError cloudFront "TooManyStreamingDistributionCNAMEs" .+  hasStatus 400 ++-- | Prism for ResourceInUse' errors.+_ResourceInUse :: AsError a => Getting (First ServiceError) a ServiceError+_ResourceInUse = _MatchServiceError cloudFront "ResourceInUse" . hasStatus 409++ -- | 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"+  _MatchServiceError cloudFront "InvalidRequiredProtocol" . hasStatus 400 + -- | 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"+  _MatchServiceError cloudFront "TooManyDistributions" . hasStatus 400 + -- | You cannot create anymore custom SSL/TLS certificates. -- -- _TooManyCertificates :: AsError a => Getting (First ServiceError) a ServiceError _TooManyCertificates =-    _ServiceError . hasStatus 400 . hasCode "TooManyCertificates"+  _MatchServiceError cloudFront "TooManyCertificates" . hasStatus 400 + -- | 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"+  _MatchServiceError cloudFront "DistributionAlreadyExists" . hasStatus 409 + -- | Prism for InvalidQueryStringParameters' errors. _InvalidQueryStringParameters :: AsError a => Getting (First ServiceError) a ServiceError _InvalidQueryStringParameters =-    _ServiceError . hasStatus 400 . hasCode "InvalidQueryStringParameters"+  _MatchServiceError cloudFront "InvalidQueryStringParameters" . hasStatus 400 --- | This operation requires a body. Ensure that the body is present and the Content-Type header is set.++-- | 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"+_MissingBody = _MatchServiceError cloudFront "MissingBody" . hasStatus 400 + -- | Origin and @CallerReference@ cannot be updated. -- -- _IllegalUpdate :: AsError a => Getting (First ServiceError) a ServiceError-_IllegalUpdate = _ServiceError . hasStatus 400 . hasCode "IllegalUpdate"+_IllegalUpdate = _MatchServiceError cloudFront "IllegalUpdate" . hasStatus 400 + -- | 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"+  _MatchServiceError cloudFront "InvalidIfMatchVersion" . hasStatus 400 + -- | 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"+  _MatchServiceError cloudFront "PreconditionFailed" . hasStatus 412 + -- | Prism for InvalidResponseCode' errors. _InvalidResponseCode :: AsError a => Getting (First ServiceError) a ServiceError _InvalidResponseCode =-    _ServiceError . hasStatus 400 . hasCode "InvalidResponseCode"+  _MatchServiceError cloudFront "InvalidResponseCode" . hasStatus 400 + -- | Prism for InvalidHeadersForS3Origin' errors. _InvalidHeadersForS3Origin :: AsError a => Getting (First ServiceError) a ServiceError _InvalidHeadersForS3Origin =-    _ServiceError . hasStatus 400 . hasCode "InvalidHeadersForS3Origin"+  _MatchServiceError cloudFront "InvalidHeadersForS3Origin" . hasStatus 400 + -- | Prism for CNAMEAlreadyExists' errors. _CNAMEAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError _CNAMEAlreadyExists =-    _ServiceError . hasStatus 409 . hasCode "CNAMEAlreadyExists"+  _MatchServiceError cloudFront "CNAMEAlreadyExists" . hasStatus 409 --- | One or more of your trusted signers do not exist.++-- | One or more of your trusted signers don't exist. -- -- _TrustedSignerDoesNotExist :: AsError a => Getting (First ServiceError) a ServiceError _TrustedSignerDoesNotExist =-    _ServiceError . hasStatus 400 . hasCode "TrustedSignerDoesNotExist"+  _MatchServiceError cloudFront "TrustedSignerDoesNotExist" . hasStatus 400 + -- | 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"+  _MatchServiceError cloudFront "InvalidProtocolSettings" . hasStatus 400 ++-- | Your request contains more Lambda function associations than are allowed per distribution.+--+--+_TooManyLambdaFunctionAssociations :: AsError a => Getting (First ServiceError) a ServiceError+_TooManyLambdaFunctionAssociations =+  _MatchServiceError cloudFront "TooManyLambdaFunctionAssociations" .+  hasStatus 400++ -- | 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"+  _MatchServiceError cloudFront "CloudFrontOriginAccessIdentityAlreadyExists" .+  hasStatus 409 + -- | You cannot create more origins for the distribution. -- -- _TooManyOrigins :: AsError a => Getting (First ServiceError) a ServiceError-_TooManyOrigins = _ServiceError . hasStatus 400 . hasCode "TooManyOrigins"+_TooManyOrigins = _MatchServiceError cloudFront "TooManyOrigins" . hasStatus 400 + -- | 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"+  _MatchServiceError cloudFront "InvalidRelativePath" . hasStatus 400 + -- | Prism for StreamingDistributionAlreadyExists' errors. _StreamingDistributionAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError _StreamingDistributionAlreadyExists =-    _ServiceError .-    hasStatus 409 . hasCode "StreamingDistributionAlreadyExists"+  _MatchServiceError cloudFront "StreamingDistributionAlreadyExists" .+  hasStatus 409 + -- | Prism for InvalidMinimumProtocolVersion' errors. _InvalidMinimumProtocolVersion :: AsError a => Getting (First ServiceError) a ServiceError _InvalidMinimumProtocolVersion =-    _ServiceError . hasStatus 400 . hasCode "InvalidMinimumProtocolVersion"+  _MatchServiceError cloudFront "InvalidMinimumProtocolVersion" . hasStatus 400 + -- | Access denied. -- -- _AccessDenied :: AsError a => Getting (First ServiceError) a ServiceError-_AccessDenied = _ServiceError . hasStatus 403 . hasCode "AccessDenied"+_AccessDenied = _MatchServiceError cloudFront "AccessDenied" . hasStatus 403 + -- | Prism for InvalidViewerCertificate' errors. _InvalidViewerCertificate :: AsError a => Getting (First ServiceError) a ServiceError _InvalidViewerCertificate =-    _ServiceError . hasStatus 400 . hasCode "InvalidViewerCertificate"+  _MatchServiceError cloudFront "InvalidViewerCertificate" . hasStatus 400 + -- | The specified distribution does not exist. -- -- _NoSuchDistribution :: AsError a => Getting (First ServiceError) a ServiceError _NoSuchDistribution =-    _ServiceError . hasStatus 404 . hasCode "NoSuchDistribution"+  _MatchServiceError cloudFront "NoSuchDistribution" . hasStatus 404 + -- | 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"+  _MatchServiceError cloudFront "InvalidDefaultRootObject" . hasStatus 400 ++-- | Processing your request would cause the maximum number of distributions with Lambda function associations per owner to be exceeded.+--+--+_TooManyDistributionsWithLambdaAssociations :: AsError a => Getting (First ServiceError) a ServiceError+_TooManyDistributionsWithLambdaAssociations =+  _MatchServiceError cloudFront "TooManyDistributionsWithLambdaAssociations" .+  hasStatus 400++ -- | Prism for InvalidGeoRestrictionParameter' errors. _InvalidGeoRestrictionParameter :: AsError a => Getting (First ServiceError) a ServiceError _InvalidGeoRestrictionParameter =-    _ServiceError . hasStatus 400 . hasCode "InvalidGeoRestrictionParameter"+  _MatchServiceError cloudFront "InvalidGeoRestrictionParameter" . hasStatus 400 + -- | Prism for InvalidLocationCode' errors. _InvalidLocationCode :: AsError a => Getting (First ServiceError) a ServiceError _InvalidLocationCode =-    _ServiceError . hasStatus 400 . hasCode "InvalidLocationCode"+  _MatchServiceError cloudFront "InvalidLocationCode" . hasStatus 400+

@@ -9,3715 +9,3956 @@  -- | -- Module      : Network.AWS.CloudFront.Types.Product--- 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)----module Network.AWS.CloudFront.Types.Product where--import           Network.AWS.CloudFront.Types.Sum-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 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/general/latest/gr/aws_service_limits.html#limits_cloudfront Amazon CloudFront Limits> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/distribution-web-values-specify.html#DownloadDistValuesCacheBehavior Cache Behaviors> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/ServingCompressedFiles.html Serving Compressed Files> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/distribution-web-values-specify.html#DownloadDistValuesPathPattern Path Pattern> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html Using an HTTPS Connection to Access Your Objects> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/ServingCompressedFiles.html Serving Compressed Files> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/distribution-web-values-specify.html#DownloadDistValuesPathPattern Path Pattern> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html Using an HTTPS Connection to Access Your Objects> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Cookies.html How CloudFront Forwards, Caches, and Logs Cookies> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Cookies.html How CloudFront Forwards, Caches, and Logs Cookies> 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 <http://docs.aws.amazon.com/general/latest/gr/aws_service_limits.html#limits_cloudfront Amazon CloudFront Limits> 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 <http://docs.aws.amazon.com/general/latest/gr/aws_service_limits.html#limits_cloudfront Amazon CloudFront Limits> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/custom-error-pages.html Customizing Error Responses> 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, @<ResponsePagePath>@ , 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, @<ResponseCode>@ , 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, @<ErrorCachingMinTTL>@ , in the XML document. For more information, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/custom-error-pages.html Customizing Error Responses> 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, @<ResponsePagePath>@ , 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, @<ResponseCode>@ , 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, @<ErrorCachingMinTTL>@ , in the XML document. For more information, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/custom-error-pages.html Customizing Error Responses> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/custom-error-pages.html Customizing Error Responses> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/ServingCompressedFiles.html Serving Compressed Files> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html Using an HTTPS Connection to Access Your Objects> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/ServingCompressedFiles.html Serving Compressed Files> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html Using an HTTPS Connection to Access Your Objects> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/DefaultRootObject.html Creating a Default Root Object> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PriceClass.html Choosing the Price Class for a CloudFront Distribution> in the /Amazon CloudFront Developer Guide/ . For information about CloudFront pricing, including how price classes map to CloudFront regions, see <https://aws.amazon.com/cloudfront/pricing/ Amazon CloudFront Pricing> .------ * '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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/custom-error-pages.html Customizing Error Responses> 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 <http://docs.aws.amazon.com/waf/latest/developerguide/what-is-aws-waf.html AWS WAF Developer Guide> .------ * '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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/AccessLogs.html Access Logs> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/private-content-creating-signed-url-custom-policy.html Creating a Signed URL Using a Custom Policy> 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 <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/routing-to-cloudfront-distribution.html Routing Traffic to an Amazon CloudFront Web Distribution by Using Your Domain Name> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/DefaultRootObject.html Creating a Default Root Object> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PriceClass.html Choosing the Price Class for a CloudFront Distribution> in the /Amazon CloudFront Developer Guide/ . For information about CloudFront pricing, including how price classes map to CloudFront regions, see <https://aws.amazon.com/cloudfront/pricing/ Amazon CloudFront Pricing> .-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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/custom-error-pages.html Customizing Error Responses> 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 <http://docs.aws.amazon.com/waf/latest/developerguide/what-is-aws-waf.html AWS WAF Developer Guide> .-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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/AccessLogs.html Access Logs> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/private-content-creating-signed-url-custom-policy.html Creating a Signed URL Using a Custom Policy> 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 <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/routing-to-cloudfront-distribution.html Routing Traffic to an Amazon CloudFront Web Distribution by Using Your Domain Name> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/QueryStringParameters.html Configuring CloudFront to Cache Based on Query String Parameters> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Cookies.html How CloudFront Forwards, Caches, and Logs Cookies> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/QueryStringParameters.html Configuring CloudFront to Cache Based on Query String Parameters> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Cookies.html How CloudFront Forwards, Caches, and Logs Cookies> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/header-caching.html How CloudFront Forwards and Caches Headers> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Invalidation.html#invalidation-specifying-objects Specifying the Objects to Invalidate> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Invalidation.html#invalidation-specifying-objects Specifying the Objects to Invalidate> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Invalidation.html Invalidating Objects (Web Distributions Only)> 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 <http://docs.aws.amazon.com/general/latest/gr/aws_service_limits.html#limits_cloudfront Amazon CloudFront Limits> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/distribution-web-values-specify.html#DownloadDistValuesCacheBehavior Cache Behavior Settings> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/distribution-web-values-specify.html#DownloadDistValuesCacheBehavior Cache Behavior Settings> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/forward-custom-headers.html Forwarding Custom Headers to Your Origin (Web Distributions Only)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/forward-custom-headers.html Forwarding Custom Headers to Your Origin (Web Distributions Only)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Invalidation.html#invalidation-specifying-objects Specifying the Objects to Invalidate> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/private-content-restricting-access-to-s3.html Using an Origin Access Identity to Restrict Access to Your Amazon S3 Content> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/private-content-restricting-access-to-s3.html Using an Origin Access Identity to Restrict Access to Your Amazon S3 Content> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html Using an HTTPS Connection to Access Your Objects> 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 @<CloudFrontDefaultCertificate>true<CloudFrontDefaultCertificate>@ . For more information, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html#CNAMEsAndHTTPS.html Using Alternate Domain Names and HTTPS> 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 <CloudFrontDefaultCertificate>true<CloudFrontDefaultCertificate>, 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: @<CloudFrontDefaultCertificate>true<CloudFrontDefaultCertificate>@  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:     * @<ACMCertificateArn>ARN for ACM SSL/TLS certificate<ACMCertificateArn>@ where ARN for ACM SSL/TLS certificate is the ARN for the ACM SSL/TLS certificate that you want to use for this distribution.     * @<IAMCertificateId>IAM certificate ID<IAMCertificateId>@ 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: @<CloudFrontDefaultCertificate>true<CloudFrontDefaultCertificate> @  If you want viewers to use HTTPS, you must also specify one of the following values in your cache behaviors:     * @<ViewerProtocolPolicy>https-only<ViewerProtocolPolicy> @      * @<ViewerProtocolPolicy>redirect-to-https<ViewerProtocolPolicy> @  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:     * @<OriginProtocolPolicy>https-only<OriginProtocolPolicy> @      * @<OriginProtocolPolicy>match-viewer<OriginProtocolPolicy> @  For more information, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html#CNAMEsAndHTTPS Using Alternate Domain Names and HTTPS> 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 @<CloudFrontDefaultCertificate>true<CloudFrontDefaultCertificate>@ . For more information, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html#CNAMEsAndHTTPS.html Using Alternate Domain Names and HTTPS> 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 <CloudFrontDefaultCertificate>true<CloudFrontDefaultCertificate>, 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: @<CloudFrontDefaultCertificate>true<CloudFrontDefaultCertificate>@  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:     * @<ACMCertificateArn>ARN for ACM SSL/TLS certificate<ACMCertificateArn>@ where ARN for ACM SSL/TLS certificate is the ARN for the ACM SSL/TLS certificate that you want to use for this distribution.     * @<IAMCertificateId>IAM certificate ID<IAMCertificateId>@ 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: @<CloudFrontDefaultCertificate>true<CloudFrontDefaultCertificate> @  If you want viewers to use HTTPS, you must also specify one of the following values in your cache behaviors:     * @<ViewerProtocolPolicy>https-only<ViewerProtocolPolicy> @      * @<ViewerProtocolPolicy>redirect-to-https<ViewerProtocolPolicy> @  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:     * @<OriginProtocolPolicy>https-only<OriginProtocolPolicy> @      * @<OriginProtocolPolicy>match-viewer<OriginProtocolPolicy> @  For more information, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html#CNAMEsAndHTTPS Using Alternate Domain Names and HTTPS> 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});--instance FromXML ViewerCertificate where-        parseXML x-          = ViewerCertificate' <$>-              (x .@? "SSLSupportMethod") <*>-                (x .@? "ACMCertificateArn")-                <*> (x .@? "CertificateSource")-                <*> (x .@? "MinimumProtocolVersion")-                <*> (x .@? "Certificate")-                <*> (x .@? "IAMCertificateId")-                <*> (x .@? "CloudFrontDefaultCertificate")--instance Hashable ViewerCertificate--instance NFData ViewerCertificate+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.CloudFront.Types.Product where++import Network.AWS.CloudFront.Types.Sum+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 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 where++instance NFData ActiveTrustedSigners where++-- | 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 where++instance NFData Aliases where++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 where++instance NFData AllowedMethods where++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 <http://docs.aws.amazon.com/general/latest/gr/aws_service_limits.html#limits_cloudfront Amazon CloudFront Limits> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/distribution-web-values-specify.html#DownloadDistValuesCacheBehavior Cache Behaviors> in the /Amazon CloudFront Developer Guide/ .+--+--+-- /See:/ 'cacheBehavior' smart constructor.+data CacheBehavior = CacheBehavior'+  { _cbAllowedMethods             :: !(Maybe AllowedMethods)+  , _cbLambdaFunctionAssociations :: !(Maybe LambdaFunctionAssociations)+  , _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.+--+-- * 'cbLambdaFunctionAssociations' - A complex type that contains zero or more Lambda function associations for a cache behavior.+--+-- * '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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/ServingCompressedFiles.html Serving Compressed Files> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/distribution-web-values-specify.html#DownloadDistValuesPathPattern Path Pattern> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html Using an HTTPS Connection to Access Your Objects> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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+  , _cbLambdaFunctionAssociations = 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});++-- | A complex type that contains zero or more Lambda function associations for a cache behavior.+cbLambdaFunctionAssociations :: Lens' CacheBehavior (Maybe LambdaFunctionAssociations)+cbLambdaFunctionAssociations = lens _cbLambdaFunctionAssociations (\ s a -> s{_cbLambdaFunctionAssociations = 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/ServingCompressedFiles.html Serving Compressed Files> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/distribution-web-values-specify.html#DownloadDistValuesPathPattern Path Pattern> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html Using an HTTPS Connection to Access Your Objects> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 .@? "LambdaFunctionAssociations")+                <*> (x .@? "MaxTTL")+                <*> (x .@? "Compress")+                <*> (x .@? "SmoothStreaming")+                <*> (x .@? "DefaultTTL")+                <*> (x .@ "PathPattern")+                <*> (x .@ "TargetOriginId")+                <*> (x .@ "ForwardedValues")+                <*> (x .@ "TrustedSigners")+                <*> (x .@ "ViewerProtocolPolicy")+                <*> (x .@ "MinTTL")++instance Hashable CacheBehavior where++instance NFData CacheBehavior where++instance ToXML CacheBehavior where+        toXML CacheBehavior'{..}+          = mconcat+              ["AllowedMethods" @= _cbAllowedMethods,+               "LambdaFunctionAssociations" @=+                 _cbLambdaFunctionAssociations,+               "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 where++instance NFData CacheBehaviors where++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 where++instance NFData CachedMethods where++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+         where++instance NFData CloudFrontOriginAccessIdentity where++-- | 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+         where++instance NFData CloudFrontOriginAccessIdentityConfig+         where++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+         where++instance NFData CloudFrontOriginAccessIdentityList+         where++-- | 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+         where++instance NFData CloudFrontOriginAccessIdentitySummary+         where++-- | 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Cookies.html How CloudFront Forwards, Caches, and Logs Cookies> 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 where++instance NFData CookieNames where++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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Cookies.html How CloudFront Forwards, Caches, and Logs Cookies> 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 <http://docs.aws.amazon.com/general/latest/gr/aws_service_limits.html#limits_cloudfront Amazon CloudFront Limits> 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 <http://docs.aws.amazon.com/general/latest/gr/aws_service_limits.html#limits_cloudfront Amazon CloudFront Limits> 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 where++instance NFData CookiePreference where++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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/custom-error-pages.html Customizing Error Responses> 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, @<ResponsePagePath>@ , 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, @<ResponseCode>@ , 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, @<ErrorCachingMinTTL>@ , in the XML document. For more information, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/custom-error-pages.html Customizing Error Responses> 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, @<ResponsePagePath>@ , 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, @<ResponseCode>@ , 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, @<ErrorCachingMinTTL>@ , in the XML document. For more information, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/custom-error-pages.html Customizing Error Responses> 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 where++instance NFData CustomErrorResponse where++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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/custom-error-pages.html Customizing Error Responses> 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 where++instance NFData CustomErrorResponses where++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 where++instance NFData CustomHeaders where++instance ToXML CustomHeaders where+        toXML CustomHeaders'{..}+          = mconcat+              ["Items" @=+                 toXML (toXMLList "OriginCustomHeader" <$> _chItems),+               "Quantity" @= _chQuantity]++-- | A customer origin.+--+--+--+-- /See:/ 'customOriginConfig' smart constructor.+data CustomOriginConfig = CustomOriginConfig'+  { _cocOriginKeepaliveTimeout :: !(Maybe Int)+  , _cocOriginReadTimeout      :: !(Maybe Int)+  , _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:+--+-- * 'cocOriginKeepaliveTimeout' - You can create a custom keep-alive timeout. All timeout units are in seconds. The default keep-alive timeout is 5 seconds, but you can configure custom timeout lengths using the CloudFront API. The minimum timeout length is 1 second; the maximum is 60 seconds. If you need to increase the maximum time limit, contact the <https://console.aws.amazon.com/support/home#/ AWS Support Center> .+--+-- * 'cocOriginReadTimeout' - You can create a custom origin read timeout. All timeout units are in seconds. The default origin read timeout is 30 seconds, but you can configure custom timeout lengths using the CloudFront API. The minimum timeout length is 4 seconds; the maximum is 60 seconds. If you need to increase the maximum time limit, contact the <https://console.aws.amazon.com/support/home#/ AWS Support Center> .+--+-- * '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'+  { _cocOriginKeepaliveTimeout = Nothing+  , _cocOriginReadTimeout = Nothing+  , _cocOriginSSLProtocols = Nothing+  , _cocHTTPPort = pHTTPPort_+  , _cocHTTPSPort = pHTTPSPort_+  , _cocOriginProtocolPolicy = pOriginProtocolPolicy_+  }+++-- | You can create a custom keep-alive timeout. All timeout units are in seconds. The default keep-alive timeout is 5 seconds, but you can configure custom timeout lengths using the CloudFront API. The minimum timeout length is 1 second; the maximum is 60 seconds. If you need to increase the maximum time limit, contact the <https://console.aws.amazon.com/support/home#/ AWS Support Center> .+cocOriginKeepaliveTimeout :: Lens' CustomOriginConfig (Maybe Int)+cocOriginKeepaliveTimeout = lens _cocOriginKeepaliveTimeout (\ s a -> s{_cocOriginKeepaliveTimeout = a});++-- | You can create a custom origin read timeout. All timeout units are in seconds. The default origin read timeout is 30 seconds, but you can configure custom timeout lengths using the CloudFront API. The minimum timeout length is 4 seconds; the maximum is 60 seconds. If you need to increase the maximum time limit, contact the <https://console.aws.amazon.com/support/home#/ AWS Support Center> .+cocOriginReadTimeout :: Lens' CustomOriginConfig (Maybe Int)+cocOriginReadTimeout = lens _cocOriginReadTimeout (\ s a -> s{_cocOriginReadTimeout = a});++-- | 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 .@? "OriginKeepaliveTimeout") <*>+                (x .@? "OriginReadTimeout")+                <*> (x .@? "OriginSslProtocols")+                <*> (x .@ "HTTPPort")+                <*> (x .@ "HTTPSPort")+                <*> (x .@ "OriginProtocolPolicy")++instance Hashable CustomOriginConfig where++instance NFData CustomOriginConfig where++instance ToXML CustomOriginConfig where+        toXML CustomOriginConfig'{..}+          = mconcat+              ["OriginKeepaliveTimeout" @=+                 _cocOriginKeepaliveTimeout,+               "OriginReadTimeout" @= _cocOriginReadTimeout,+               "OriginSslProtocols" @= _cocOriginSSLProtocols,+               "HTTPPort" @= _cocHTTPPort,+               "HTTPSPort" @= _cocHTTPSPort,+               "OriginProtocolPolicy" @= _cocOriginProtocolPolicy]++-- | A complex type that describes the default cache behavior if you don't 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)+  , _dcbLambdaFunctionAssociations :: !(Maybe LambdaFunctionAssociations)+  , _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.+--+-- * 'dcbLambdaFunctionAssociations' - A complex type that contains zero or more Lambda function associations for a cache behavior.+--+-- * '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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/ServingCompressedFiles.html Serving Compressed Files> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html Using an HTTPS Connection to Access Your Objects> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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+  , _dcbLambdaFunctionAssociations = 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});++-- | A complex type that contains zero or more Lambda function associations for a cache behavior.+dcbLambdaFunctionAssociations :: Lens' DefaultCacheBehavior (Maybe LambdaFunctionAssociations)+dcbLambdaFunctionAssociations = lens _dcbLambdaFunctionAssociations (\ s a -> s{_dcbLambdaFunctionAssociations = 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/ServingCompressedFiles.html Serving Compressed Files> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html Using an HTTPS Connection to Access Your Objects> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Expiration.html Specifying How Long Objects and Errors Stay in a CloudFront Edge Cache (Expiration)> 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 .@? "LambdaFunctionAssociations")+                <*> (x .@? "MaxTTL")+                <*> (x .@? "Compress")+                <*> (x .@? "SmoothStreaming")+                <*> (x .@? "DefaultTTL")+                <*> (x .@ "TargetOriginId")+                <*> (x .@ "ForwardedValues")+                <*> (x .@ "TrustedSigners")+                <*> (x .@ "ViewerProtocolPolicy")+                <*> (x .@ "MinTTL")++instance Hashable DefaultCacheBehavior where++instance NFData DefaultCacheBehavior where++instance ToXML DefaultCacheBehavior where+        toXML DefaultCacheBehavior'{..}+          = mconcat+              ["AllowedMethods" @= _dcbAllowedMethods,+               "LambdaFunctionAssociations" @=+                 _dcbLambdaFunctionAssociations,+               "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, @d111111abcdef8.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, @d111111abcdef8.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 where++instance NFData Distribution where++-- | 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@ . Don't 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/DefaultRootObject.html Creating a Default Root Object> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PriceClass.html Choosing the Price Class for a CloudFront Distribution> in the /Amazon CloudFront Developer Guide/ . For information about CloudFront pricing, including how price classes map to CloudFront regions, see <https://aws.amazon.com/cloudfront/pricing/ Amazon CloudFront Pricing> .+--+-- * '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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/custom-error-pages.html Customizing Error Responses> 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 <http://docs.aws.amazon.com/waf/latest/developerguide/what-is-aws-waf.html AWS WAF Developer Guide> .+--+-- * '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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/AccessLogs.html Access Logs> 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, don't 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/private-content-creating-signed-url-custom-policy.html Creating a Signed URL Using a Custom Policy> 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 <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/routing-to-cloudfront-distribution.html Routing Traffic to an Amazon CloudFront Web Distribution by Using Your Domain Name> 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 don't 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' - From this field, you can enable or disable the selected distribution. 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@ . Don't 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/DefaultRootObject.html Creating a Default Root Object> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PriceClass.html Choosing the Price Class for a CloudFront Distribution> in the /Amazon CloudFront Developer Guide/ . For information about CloudFront pricing, including how price classes map to CloudFront regions, see <https://aws.amazon.com/cloudfront/pricing/ Amazon CloudFront Pricing> .+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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/custom-error-pages.html Customizing Error Responses> 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 <http://docs.aws.amazon.com/waf/latest/developerguide/what-is-aws-waf.html AWS WAF Developer Guide> .+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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/AccessLogs.html Access Logs> 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, don't 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/private-content-creating-signed-url-custom-policy.html Creating a Signed URL Using a Custom Policy> 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 <http://docs.aws.amazon.com/Route53/latest/DeveloperGuide/routing-to-cloudfront-distribution.html Routing Traffic to an Amazon CloudFront Web Distribution by Using Your Domain Name> 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 don't 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});++-- | From this field, you can enable or disable the selected distribution. 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 where++instance NFData DistributionConfig where++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 where++instance NFData DistributionConfigWithTags where++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 where++instance NFData DistributionList where++-- | 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, @d111111abcdef8.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 don't 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, @d111111abcdef8.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 don't 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 where++instance NFData DistributionSummary where++-- | 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 base caching on 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/QueryStringParameters.html Configuring CloudFront to Cache Based on Query String Parameters> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Cookies.html How CloudFront Forwards, Caches, and Logs Cookies> 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 base caching on 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/QueryStringParameters.html Configuring CloudFront to Cache Based on Query String Parameters> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Cookies.html How CloudFront Forwards, Caches, and Logs Cookies> 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 where++instance NFData ForwardedValues where++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 on 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 don't 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 on 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 don't 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 where++instance NFData GeoRestriction where++instance ToXML GeoRestriction where+        toXML GeoRestriction'{..}+          = mconcat+              ["Items" @=+                 toXML (toXMLList "Location" <$> _grItems),+               "RestrictionType" @= _grRestrictionType,+               "Quantity" @= _grQuantity]++-- | A complex type that specifies the request headers, if any, that you want CloudFront to base caching on for this cache behavior.+--+--+-- For the headers that you specify, CloudFront 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/header-caching.html How CloudFront Forwards and Caches Headers> 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 list that contains one @Name@ element for each header that you want CloudFront to use for caching in this cache behavior. If @Quantity@ is @0@ , omit @Items@ .+--+-- * 'hQuantity' - The number of different headers that you want CloudFront to base caching on 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:/ CloudFront doesn't cache the objects that are associated with this cache behavior. Instead, CloudFront sends every request to the origin.      * __Forward a whitelist of headers you specify__ : Specify the number of headers that you want CloudFront to base caching on. Then specify the header names in @Name@ elements. CloudFront caches your objects based on the values in the specified headers.     * __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. Regardless of which option you choose, CloudFront forwards headers to your origin based on whether the origin is an S3 bucket or a custom origin. See the following documentation:     * __S3 bucket__ : See <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/RequestAndResponseBehaviorS3Origin.html#request-s3-removed-headers HTTP Request Headers That CloudFront Removes or Updates>      * __Custom origin__ : See <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/RequestAndResponseBehaviorCustomOrigin.html#request-custom-headers-behavior HTTP Request Headers and CloudFront Behavior>+headers+    :: Int -- ^ 'hQuantity'+    -> Headers+headers pQuantity_ = Headers' {_hItems = Nothing, _hQuantity = pQuantity_}+++-- | A list that contains one @Name@ element for each header that you want CloudFront to use for caching in 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 base caching on 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:/ CloudFront doesn't cache the objects that are associated with this cache behavior. Instead, CloudFront sends every request to the origin.      * __Forward a whitelist of headers you specify__ : Specify the number of headers that you want CloudFront to base caching on. Then specify the header names in @Name@ elements. CloudFront caches your objects based on the values in the specified headers.     * __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. Regardless of which option you choose, CloudFront forwards headers to your origin based on whether the origin is an S3 bucket or a custom origin. See the following documentation:     * __S3 bucket__ : See <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/RequestAndResponseBehaviorS3Origin.html#request-s3-removed-headers HTTP Request Headers That CloudFront Removes or Updates>      * __Custom origin__ : See <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/RequestAndResponseBehaviorCustomOrigin.html#request-custom-headers-behavior HTTP Request Headers and CloudFront Behavior>+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 where++instance NFData Headers where++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 where++instance NFData Invalidation where++-- | 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Invalidation.html#invalidation-specifying-objects Specifying the Objects to Invalidate> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Invalidation.html#invalidation-specifying-objects Specifying the Objects to Invalidate> 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 where++instance NFData InvalidationBatch where++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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Invalidation.html Invalidating Objects (Web Distributions Only)> 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 where++instance NFData InvalidationList where++-- | 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 where++instance NFData InvalidationSummary where++-- | 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 where++instance NFData KeyPairIds where++-- | A complex type that contains a Lambda function association.+--+--+--+-- /See:/ 'lambdaFunctionAssociation' smart constructor.+data LambdaFunctionAssociation = LambdaFunctionAssociation'+  { _lfaLambdaFunctionARN :: !(Maybe Text)+  , _lfaEventType         :: !(Maybe EventType)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LambdaFunctionAssociation' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lfaLambdaFunctionARN' - The ARN of the Lambda function. You must specify the ARN of a function version; you can't specify a Lambda alias or $LATEST.+--+-- * 'lfaEventType' - Specifies the event type that triggers a Lambda function invocation. You can specify the following values:     * @viewer-request@ : The function executes when CloudFront receives a request from a viewer and before it checks to see whether the requested object is in the edge cache.      * @origin-request@ : The function executes only when CloudFront forwards a request to your origin. When the requested object is in the edge cache, the function doesn't execute.     * @origin-response@ : The function executes after CloudFront receives a response from the origin and before it caches the object in the response. When the requested object is in the edge cache, the function doesn't execute. If the origin returns an HTTP status code other than HTTP 200 (OK), the function doesn't execute.     * @viewer-response@ : The function executes before CloudFront returns the requested object to the viewer. The function executes regardless of whether the object was already in the edge cache. If the origin returns an HTTP status code other than HTTP 200 (OK), the function doesn't execute.+lambdaFunctionAssociation+    :: LambdaFunctionAssociation+lambdaFunctionAssociation =+  LambdaFunctionAssociation'+  {_lfaLambdaFunctionARN = Nothing, _lfaEventType = Nothing}+++-- | The ARN of the Lambda function. You must specify the ARN of a function version; you can't specify a Lambda alias or $LATEST.+lfaLambdaFunctionARN :: Lens' LambdaFunctionAssociation (Maybe Text)+lfaLambdaFunctionARN = lens _lfaLambdaFunctionARN (\ s a -> s{_lfaLambdaFunctionARN = a});++-- | Specifies the event type that triggers a Lambda function invocation. You can specify the following values:     * @viewer-request@ : The function executes when CloudFront receives a request from a viewer and before it checks to see whether the requested object is in the edge cache.      * @origin-request@ : The function executes only when CloudFront forwards a request to your origin. When the requested object is in the edge cache, the function doesn't execute.     * @origin-response@ : The function executes after CloudFront receives a response from the origin and before it caches the object in the response. When the requested object is in the edge cache, the function doesn't execute. If the origin returns an HTTP status code other than HTTP 200 (OK), the function doesn't execute.     * @viewer-response@ : The function executes before CloudFront returns the requested object to the viewer. The function executes regardless of whether the object was already in the edge cache. If the origin returns an HTTP status code other than HTTP 200 (OK), the function doesn't execute.+lfaEventType :: Lens' LambdaFunctionAssociation (Maybe EventType)+lfaEventType = lens _lfaEventType (\ s a -> s{_lfaEventType = a});++instance FromXML LambdaFunctionAssociation where+        parseXML x+          = LambdaFunctionAssociation' <$>+              (x .@? "LambdaFunctionARN") <*> (x .@? "EventType")++instance Hashable LambdaFunctionAssociation where++instance NFData LambdaFunctionAssociation where++instance ToXML LambdaFunctionAssociation where+        toXML LambdaFunctionAssociation'{..}+          = mconcat+              ["LambdaFunctionARN" @= _lfaLambdaFunctionARN,+               "EventType" @= _lfaEventType]++-- | A complex type that specifies a list of Lambda functions associations for a cache behavior.+--+--+-- If you want to invoke one or more Lambda functions triggered by requests that match the @PathPattern@ of the cache behavior, specify the applicable values for @Quantity@ and @Items@ . Note that there can be up to 4 @LambdaFunctionAssociation@ items in this list (one for each possible value of @EventType@ ) and each @EventType@ can be associated with the Lambda function only once.+--+-- If you don't want to invoke any Lambda functions for the requests that match @PathPattern@ , specify @0@ for @Quantity@ and omit @Items@ .+--+--+-- /See:/ 'lambdaFunctionAssociations' smart constructor.+data LambdaFunctionAssociations = LambdaFunctionAssociations'+  { _lfaItems    :: !(Maybe [LambdaFunctionAssociation])+  , _lfaQuantity :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LambdaFunctionAssociations' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lfaItems' - __Optional__ : A complex type that contains @LambdaFunctionAssociation@ items for this cache behavior. If @Quantity@ is @0@ , you can omit @Items@ .+--+-- * 'lfaQuantity' - The number of Lambda function associations for this cache behavior.+lambdaFunctionAssociations+    :: Int -- ^ 'lfaQuantity'+    -> LambdaFunctionAssociations+lambdaFunctionAssociations pQuantity_ =+  LambdaFunctionAssociations' {_lfaItems = Nothing, _lfaQuantity = pQuantity_}+++-- | __Optional__ : A complex type that contains @LambdaFunctionAssociation@ items for this cache behavior. If @Quantity@ is @0@ , you can omit @Items@ .+lfaItems :: Lens' LambdaFunctionAssociations [LambdaFunctionAssociation]+lfaItems = lens _lfaItems (\ s a -> s{_lfaItems = a}) . _Default . _Coerce;++-- | The number of Lambda function associations for this cache behavior.+lfaQuantity :: Lens' LambdaFunctionAssociations Int+lfaQuantity = lens _lfaQuantity (\ s a -> s{_lfaQuantity = a});++instance FromXML LambdaFunctionAssociations where+        parseXML x+          = LambdaFunctionAssociations' <$>+              (x .@? "Items" .!@ mempty >>=+                 may (parseXMLList "LambdaFunctionAssociation"))+                <*> (x .@ "Quantity")++instance Hashable LambdaFunctionAssociations where++instance NFData LambdaFunctionAssociations where++instance ToXML LambdaFunctionAssociations where+        toXML LambdaFunctionAssociations'{..}+          = mconcat+              ["Items" @=+                 toXML+                   (toXMLList "LambdaFunctionAssociation" <$>+                      _lfaItems),+               "Quantity" @= _lfaQuantity]++-- | 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 don't 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 don't 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 don't 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 don't 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 don't 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 don't 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 where++instance NFData LoggingConfig where++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 <http://docs.aws.amazon.com/general/latest/gr/aws_service_limits.html#limits_cloudfront Amazon CloudFront Limits> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/distribution-web-values-specify.html#DownloadDistValuesCacheBehavior Cache Behavior Settings> 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, don't 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/distribution-web-values-specify.html#DownloadDistValuesCacheBehavior Cache Behavior Settings> 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, don't 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 where++instance NFData Origin where++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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/forward-custom-headers.html Forwarding Custom Headers to Your Origin (Web Distributions Only)> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/forward-custom-headers.html Forwarding Custom Headers to Your Origin (Web Distributions Only)> 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 where++instance NFData OriginCustomHeader where++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 where++instance NFData OriginSSLProtocols where++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 where++instance NFData Origins where++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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/Invalidation.html#invalidation-specifying-objects Specifying the Objects to Invalidate> 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 where++instance NFData Paths where++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 where++instance NFData QueryStringCacheKeys where++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 where++instance NFData Restrictions where++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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/private-content-restricting-access-to-s3.html Using an Origin Access Identity to Restrict Access to Your Amazon S3 Content> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/private-content-restricting-access-to-s3.html Using an Origin Access Identity to Restrict Access to Your Amazon S3 Content> 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 where++instance NFData S3Origin where++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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 where++instance NFData S3OriginConfig where++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 where++instance NFData Signer where++-- | 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 where++instance NFData StreamingDistribution where++-- | 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 where++instance NFData StreamingDistributionConfig where++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+         where++instance NFData StreamingDistributionConfigWithTags+         where++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 where++instance NFData StreamingDistributionList where++-- | 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, @d111111abcdef8.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, @d111111abcdef8.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 where++instance NFData StreamingDistributionSummary where++-- | 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 don't 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 don't 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 don't 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 don't 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 where++instance NFData StreamingLoggingConfig where++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 where++instance NFData Tag where++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 where++instance NFData TagKeys where++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 where++instance NFData Tags where++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 <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/PrivateContent.html Serving Private Content through CloudFront> 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 where++instance NFData TrustedSigners where++instance ToXML TrustedSigners where+        toXML TrustedSigners'{..}+          = mconcat+              ["Items" @=+                 toXML (toXMLList "AwsAccountNumber" <$> _tsItems),+               "Enabled" @= _tsEnabled, "Quantity" @= _tsQuantity]++-- | A complex type that specifies 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 only one of the following values:+--+--     * 'ViewerCertificate$ACMCertificateArn'+--+--     * 'ViewerCertificate$IAMCertificateId'+--+--     * 'ViewerCertificate$CloudFrontDefaultCertificate'+--+--+--+-- Don't specify @false@ for @CloudFrontDefaultCertificate@ .+--+-- __If you want viewers to use HTTP instead of HTTPS to request your objects__ : Specify the following value:+--+-- @<CloudFrontDefaultCertificate>true<CloudFrontDefaultCertificate>@+--+-- 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:+--+--     * @<ACMCertificateArn>/ARN for ACM SSL\/TLS certificate/ <ACMCertificateArn>@ where @/ARN for ACM SSL\/TLS certificate/ @ is the ARN for the ACM SSL/TLS certificate that you want to use for this distribution.+--+--     * @<IAMCertificateId>/IAM certificate ID/ <IAMCertificateId>@ 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 (such as @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:+--+-- @<CloudFrontDefaultCertificate>true<CloudFrontDefaultCertificate> @+--+--+--+-- If you want viewers to use HTTPS, you must also specify one of the following values in your cache behaviors:+--+--     * @<ViewerProtocolPolicy>https-only<ViewerProtocolPolicy>@+--+--     * @<ViewerProtocolPolicy>redirect-to-https<ViewerProtocolPolicy>@+--+--+--+-- 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:+--+--     * @<OriginProtocolPolicy>https-only<OriginProtocolPolicy> @+--+--     * @<OriginProtocolPolicy>match-viewer<OriginProtocolPolicy> @+--+--+--+-- For more information, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html#CNAMEsAndHTTPS Using Alternate Domain Names and HTTPS> in the /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 'ViewerCertificate$ACMCertificateArn' or for 'ViewerCertificate$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 will 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. Don't specify a value for @SSLSupportMethod@ if you specified @<CloudFrontDefaultCertificate>true<CloudFrontDefaultCertificate>@ . For more information, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html#CNAMEsAndHTTPS.html Using Alternate Domain Names and HTTPS> in the /Amazon CloudFront Developer Guide/ .+--+-- * 'vcACMCertificateARN' - For information about how and when to use @ACMCertificateArn@ , see 'ViewerCertificate' .+--+-- * 'vcCertificateSource' - This field has been deprecated. Use one of the following fields instead:     * 'ViewerCertificate$ACMCertificateArn'      * 'ViewerCertificate$IAMCertificateId'      * 'ViewerCertificate$CloudFrontDefaultCertificate'+--+-- * 'vcMinimumProtocolVersion' - Specify the security policy that you want CloudFront to use for HTTPS connections. A security policy determines two settings:     * The minimum SSL/TLS protocol that CloudFront uses to communicate with viewers     * The cipher that CloudFront uses to encrypt the content that it returns to viewers We recommend that you specify @TLSv1.1_2016@ unless your users are using browsers or devices that do not support TLSv1.1 or later. When both of the following are true, you must specify @TLSv1@ or later for the security policy:      * You're using a custom certificate: you specified a value for @ACMCertificateArn@ or for @IAMCertificateId@      * You're using SNI: you specified @sni-only@ for @SSLSupportMethod@  If you specify @true@ for @CloudFrontDefaultCertificate@ , CloudFront automatically sets the security policy to @TLSv1@ regardless of the value that you specify for @MinimumProtocolVersion@ . For information about the relationship between the security policy that you choose and the protocols and ciphers that CloudFront uses to communicate with viewers, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/secure-connections-supported-viewer-protocols-ciphers.html#secure-connections-supported-ciphers Supported SSL/TLS Protocols and Ciphers for Communication Between Viewers and CloudFront> in the /Amazon CloudFront Developer Guide/ .+--+-- * 'vcCertificate' - This field has been deprecated. Use one of the following fields instead:     * 'ViewerCertificate$ACMCertificateArn'      * 'ViewerCertificate$IAMCertificateId'      * 'ViewerCertificate$CloudFrontDefaultCertificate'+--+-- * 'vcIAMCertificateId' - For information about how and when to use @IAMCertificateId@ , see 'ViewerCertificate' .+--+-- * 'vcCloudFrontDefaultCertificate' - For information about how and when to use @CloudFrontDefaultCertificate@ , see 'ViewerCertificate' .+viewerCertificate+    :: ViewerCertificate+viewerCertificate =+  ViewerCertificate'+  { _vcSSLSupportMethod = Nothing+  , _vcACMCertificateARN = Nothing+  , _vcCertificateSource = Nothing+  , _vcMinimumProtocolVersion = Nothing+  , _vcCertificate = Nothing+  , _vcIAMCertificateId = Nothing+  , _vcCloudFrontDefaultCertificate = Nothing+  }+++-- | If you specify a value for 'ViewerCertificate$ACMCertificateArn' or for 'ViewerCertificate$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 will 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. Don't specify a value for @SSLSupportMethod@ if you specified @<CloudFrontDefaultCertificate>true<CloudFrontDefaultCertificate>@ . For more information, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/SecureConnections.html#CNAMEsAndHTTPS.html Using Alternate Domain Names and HTTPS> in the /Amazon CloudFront Developer Guide/ .+vcSSLSupportMethod :: Lens' ViewerCertificate (Maybe SSLSupportMethod)+vcSSLSupportMethod = lens _vcSSLSupportMethod (\ s a -> s{_vcSSLSupportMethod = a});++-- | For information about how and when to use @ACMCertificateArn@ , see 'ViewerCertificate' .+vcACMCertificateARN :: Lens' ViewerCertificate (Maybe Text)+vcACMCertificateARN = lens _vcACMCertificateARN (\ s a -> s{_vcACMCertificateARN = a});++-- | This field has been deprecated. Use one of the following fields instead:     * 'ViewerCertificate$ACMCertificateArn'      * 'ViewerCertificate$IAMCertificateId'      * 'ViewerCertificate$CloudFrontDefaultCertificate'+vcCertificateSource :: Lens' ViewerCertificate (Maybe CertificateSource)+vcCertificateSource = lens _vcCertificateSource (\ s a -> s{_vcCertificateSource = a});++-- | Specify the security policy that you want CloudFront to use for HTTPS connections. A security policy determines two settings:     * The minimum SSL/TLS protocol that CloudFront uses to communicate with viewers     * The cipher that CloudFront uses to encrypt the content that it returns to viewers We recommend that you specify @TLSv1.1_2016@ unless your users are using browsers or devices that do not support TLSv1.1 or later. When both of the following are true, you must specify @TLSv1@ or later for the security policy:      * You're using a custom certificate: you specified a value for @ACMCertificateArn@ or for @IAMCertificateId@      * You're using SNI: you specified @sni-only@ for @SSLSupportMethod@  If you specify @true@ for @CloudFrontDefaultCertificate@ , CloudFront automatically sets the security policy to @TLSv1@ regardless of the value that you specify for @MinimumProtocolVersion@ . For information about the relationship between the security policy that you choose and the protocols and ciphers that CloudFront uses to communicate with viewers, see <http://docs.aws.amazon.com/AmazonCloudFront/latest/DeveloperGuide/secure-connections-supported-viewer-protocols-ciphers.html#secure-connections-supported-ciphers Supported SSL/TLS Protocols and Ciphers for Communication Between Viewers and CloudFront> in the /Amazon CloudFront Developer Guide/ .+vcMinimumProtocolVersion :: Lens' ViewerCertificate (Maybe MinimumProtocolVersion)+vcMinimumProtocolVersion = lens _vcMinimumProtocolVersion (\ s a -> s{_vcMinimumProtocolVersion = a});++-- | This field has been deprecated. Use one of the following fields instead:     * 'ViewerCertificate$ACMCertificateArn'      * 'ViewerCertificate$IAMCertificateId'      * 'ViewerCertificate$CloudFrontDefaultCertificate'+vcCertificate :: Lens' ViewerCertificate (Maybe Text)+vcCertificate = lens _vcCertificate (\ s a -> s{_vcCertificate = a});++-- | For information about how and when to use @IAMCertificateId@ , see 'ViewerCertificate' .+vcIAMCertificateId :: Lens' ViewerCertificate (Maybe Text)+vcIAMCertificateId = lens _vcIAMCertificateId (\ s a -> s{_vcIAMCertificateId = a});++-- | For information about how and when to use @CloudFrontDefaultCertificate@ , see 'ViewerCertificate' .+vcCloudFrontDefaultCertificate :: Lens' ViewerCertificate (Maybe Bool)+vcCloudFrontDefaultCertificate = lens _vcCloudFrontDefaultCertificate (\ s a -> s{_vcCloudFrontDefaultCertificate = a});++instance FromXML ViewerCertificate where+        parseXML x+          = ViewerCertificate' <$>+              (x .@? "SSLSupportMethod") <*>+                (x .@? "ACMCertificateArn")+                <*> (x .@? "CertificateSource")+                <*> (x .@? "MinimumProtocolVersion")+                <*> (x .@? "Certificate")+                <*> (x .@? "IAMCertificateId")+                <*> (x .@? "CloudFrontDefaultCertificate")++instance Hashable ViewerCertificate where++instance NFData ViewerCertificate where  instance ToXML ViewerCertificate where         toXML ViewerCertificate'{..}