amazonka-cloudfront 0.0.1 → 0.0.2

raw patch · 17 files changed

+442/−436 lines, 17 filesdep ~amazonka-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• README.md +11/−1
• amazonka-cloudfront.cabal +13/−14
• gen/Network/AWS/CloudFront.hs +11/−11
• gen/Network/AWS/CloudFront/CreateCloudFrontOriginAccessIdentity.hs +2/−3
• gen/Network/AWS/CloudFront/CreateDistribution.hs +2/−2
• gen/Network/AWS/CloudFront/CreateInvalidation.hs +2/−2
• gen/Network/AWS/CloudFront/CreateStreamingDistribution.hs +0/−1
• gen/Network/AWS/CloudFront/DeleteCloudFrontOriginAccessIdentity.hs +2/−2
• gen/Network/AWS/CloudFront/DeleteDistribution.hs +2/−2
• gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentity.hs +2/−2
• gen/Network/AWS/CloudFront/GetStreamingDistribution.hs +2/−2
• gen/Network/AWS/CloudFront/ListCloudFrontOriginAccessIdentities.hs +6/−7
• gen/Network/AWS/CloudFront/ListDistributions.hs +5/−5
• gen/Network/AWS/CloudFront/ListInvalidations.hs +7/−7
• gen/Network/AWS/CloudFront/ListStreamingDistributions.hs +6/−7
• gen/Network/AWS/CloudFront/Types.hs +367/−366
• gen/Network/AWS/CloudFront/UpdateDistribution.hs +2/−2

@@ -8,7 +8,17 @@  ## Description -Amazon CloudFront is a web service that speeds up distribution of your static and dynamic web content, for example, .html, .css, .php, image, and media files, to end users. CloudFront delivers your content through a worldwide network of edge locations. When an end user requests content that you're serving with CloudFront, the user is routed to the edge location that provides the lowest latency, so content is delivered with the best possible performance. If the content is already in that edge location, CloudFront delivers it immediately. If the content is not currently in that edge location, CloudFront retrieves it from an Amazon S3 bucket or an HTTP server (for example, a web server) that you have identified as the source for the definitive version of your content.+    Amazon CloudFront is a web service that speeds up distribution of your static+    and dynamic web content, for example, .html, .css, .php, image, and media+    files, to end users. CloudFront delivers your content through a worldwide+    network of edge locations. When an end user requests content that you're+    serving with CloudFront, the user is routed to the edge location that+    provides the lowest latency, so content is delivered with the best possible+    performance. If the content is already in that edge location, CloudFront+    delivers it immediately. If the content is not currently in that edge+    location, CloudFront retrieves it from an Amazon S3 bucket or an HTTP server+    (for example, a web server) that you have identified as the source for the+    definitive version of your content.  Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-cloudfront) and [AWS API Reference](http://docs.aws.amazon.com/AmazonCloudFront/latest/APIReference/Welcome.html).

@@ -1,5 +1,5 @@ name:                  amazonka-cloudfront-version:               0.0.1+version:               0.0.2 synopsis:              Amazon CloudFront SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -13,18 +13,17 @@ cabal-version:         >= 1.10  description:-    Amazon CloudFront is a web service that speeds up distribution of your-    static and dynamic web content, for example, .html, .css, .php, image,-    and media files, to end users. CloudFront delivers your content through-    a worldwide network of edge locations. When an end user requests-    content that you're serving with CloudFront, the user is routed to the-    edge location that provides the lowest latency, so content is delivered-    with the best possible performance. If the content is already in that-    edge location, CloudFront delivers it immediately. If the content is-    not currently in that edge location, CloudFront retrieves it from an-    Amazon S3 bucket or an HTTP server (for example, a web server) that you-    have identified as the source for the definitive version of your-    content.+    Amazon CloudFront is a web service that speeds up distribution of your static+    and dynamic web content, for example, .html, .css, .php, image, and media+    files, to end users. CloudFront delivers your content through a worldwide+    network of edge locations. When an end user requests content that you're+    serving with CloudFront, the user is routed to the edge location that+    provides the lowest latency, so content is delivered with the best possible+    performance. If the content is already in that edge location, CloudFront+    delivers it immediately. If the content is not currently in that edge+    location, CloudFront retrieves it from an Amazon S3 bucket or an HTTP server+    (for example, a web server) that you have identified as the source for the+    definitive version of your content.     .     /See:/ <http://docs.aws.amazon.com/AmazonCloudFront/latest/APIReference/Welcome.html AWS API Reference>     .@@ -69,5 +68,5 @@     other-modules:      build-depends:-          amazonka-core == 0.0.1.*+          amazonka-core == 0.0.2.*         , base          >= 4.7     && < 5

@@ -8,17 +8,17 @@ -- Stability   : experimental -- Portability : non-portable (GHC extensions) --- | Amazon CloudFront is a web service that speeds up distribution of your--- static and dynamic web content, for example, .html, .css, .php, image, and--- media files, to end users. CloudFront delivers your content through a--- worldwide network of edge locations. When an end user requests content that--- you're serving with CloudFront, the user is routed to the edge location--- that provides the lowest latency, so content is delivered with the best--- possible performance. If the content is already in that edge location,--- CloudFront delivers it immediately. If the content is not currently in that--- edge location, CloudFront retrieves it from an Amazon S3 bucket or an HTTP--- server (for example, a web server) that you have identified as the source--- for the definitive version of your content.+-- | Amazon CloudFront is a web service that speeds up distribution of your static+-- and dynamic web content, for example, .html, .css, .php, image, and media+-- files, to end users. CloudFront delivers your content through a worldwide+-- network of edge locations. When an end user requests content that you're+-- serving with CloudFront, the user is routed to the edge location that+-- provides the lowest latency, so content is delivered with the best possible+-- performance. If the content is already in that edge location, CloudFront+-- delivers it immediately. If the content is not currently in that edge+-- location, CloudFront retrieves it from an Amazon S3 bucket or an HTTP server+-- (for example, a web server) that you have identified as the source for the+-- definitive version of your content. module Network.AWS.CloudFront     ( module Network.AWS.CloudFront.CreateCloudFrontOriginAccessIdentity     , module Network.AWS.CloudFront.CreateDistribution

@@ -102,10 +102,9 @@ ccfoairETag :: Lens' CreateCloudFrontOriginAccessIdentityResponse (Maybe Text) ccfoairETag = lens _ccfoairETag (\s a -> s { _ccfoairETag = a }) --- | The fully qualified URI of the new origin access identity just created.--- For example:+-- | The fully qualified URI of the new origin access identity just created. For+-- example: -- https://cloudfront.amazonaws.com/2010-11-01/origin-access-identity/cloudfront/E74FTE3AJFJ256A.---  ccfoairLocation :: Lens' CreateCloudFrontOriginAccessIdentityResponse (Maybe Text) ccfoairLocation = lens _ccfoairLocation (\s a -> s { _ccfoairLocation = a }) 

@@ -99,8 +99,8 @@ cdrETag :: Lens' CreateDistributionResponse (Maybe Text) cdrETag = lens _cdrETag (\s a -> s { _cdrETag = a }) --- | The fully qualified URI of the new distribution resource just created.--- For example:+-- | The fully qualified URI of the new distribution resource just created. For+-- example: -- https://cloudfront.amazonaws.com/2010-11-01/distribution/EDFDVBD632BHDS5. cdrLocation :: Lens' CreateDistributionResponse (Maybe Text) cdrLocation = lens _cdrLocation (\s a -> s { _cdrLocation = a })

@@ -100,8 +100,8 @@ cirInvalidation :: Lens' CreateInvalidationResponse (Maybe Invalidation) cirInvalidation = lens _cirInvalidation (\s a -> s { _cirInvalidation = a }) --- | The fully qualified URI of the distribution and invalidation batch--- request, including the Invalidation ID.+-- | The fully qualified URI of the distribution and invalidation batch request,+-- including the Invalidation ID. cirLocation :: Lens' CreateInvalidationResponse (Maybe Text) cirLocation = lens _cirLocation (\s a -> s { _cirLocation = a }) 

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

@@ -68,8 +68,8 @@ dcfoaiId :: Lens' DeleteCloudFrontOriginAccessIdentity Text dcfoaiId = lens _dcfoaiId (\s a -> s { _dcfoaiId = a }) --- | The value of the ETag header you received from a previous GET or PUT--- request. For example: E2QWRUHAPOMQZL.+-- | The value of the ETag header you received from a previous GET or PUT request.+-- For example: E2QWRUHAPOMQZL. dcfoaiIfMatch :: Lens' DeleteCloudFrontOriginAccessIdentity (Maybe Text) dcfoaiIfMatch = lens _dcfoaiIfMatch (\s a -> s { _dcfoaiIfMatch = a }) 

@@ -68,8 +68,8 @@ ddId :: Lens' DeleteDistribution Text ddId = lens _ddId (\s a -> s { _ddId = a }) --- | The value of the ETag header you received when you disabled the--- distribution. For example: E2QWRUHAPOMQZL.+-- | The value of the ETag header you received when you disabled the distribution.+-- For example: E2QWRUHAPOMQZL. ddIfMatch :: Lens' DeleteDistribution (Maybe Text) ddIfMatch = lens _ddIfMatch (\s a -> s { _ddIfMatch = a }) 

@@ -91,8 +91,8 @@     lens _gcfoairCloudFrontOriginAccessIdentity         (\s a -> s { _gcfoairCloudFrontOriginAccessIdentity = a }) --- | The current version of the origin access identity's information. For--- example: E2QWRUHAPOMQZL.+-- | The current version of the origin access identity's information. For example:+-- E2QWRUHAPOMQZL. gcfoairETag :: Lens' GetCloudFrontOriginAccessIdentityResponse (Maybe Text) gcfoairETag = lens _gcfoairETag (\s a -> s { _gcfoairETag = a }) 

@@ -85,8 +85,8 @@     , _gsdrETag                  = Nothing     } --- | The current version of the streaming distribution's information. For--- example: E2QWRUHAPOMQZL.+-- | The current version of the streaming distribution's information. For example:+-- E2QWRUHAPOMQZL. gsdrETag :: Lens' GetStreamingDistributionResponse (Maybe Text) gsdrETag = lens _gsdrETag (\s a -> s { _gsdrETag = a }) 

@@ -65,16 +65,15 @@     , _lcfoaiMaxItems = Nothing     } --- | Use this when paginating results to indicate where to begin in your list--- of origin access identities. The results include identities in the list--- that occur after the marker. To get the next page of results, set the--- Marker to the value of the NextMarker from the current page's response--- (which is also the ID of the last identity on that page).+-- | Use this when paginating results to indicate where to begin in your list of+-- origin access identities. The results include identities in the list that+-- occur after the marker. To get the next page of results, set the Marker to+-- the value of the NextMarker from the current page's response (which is also+-- the ID of the last identity on that page). lcfoaiMarker :: Lens' ListCloudFrontOriginAccessIdentities (Maybe Text) lcfoaiMarker = lens _lcfoaiMarker (\s a -> s { _lcfoaiMarker = a }) --- | The maximum number of origin access identities you want in the response--- body.+-- | The maximum number of origin access identities you want in the response body. lcfoaiMaxItems :: Lens' ListCloudFrontOriginAccessIdentities (Maybe Text) lcfoaiMaxItems = lens _lcfoaiMaxItems (\s a -> s { _lcfoaiMaxItems = a }) 

@@ -65,11 +65,11 @@     , _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).+-- | 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 }) 

@@ -75,13 +75,13 @@ liDistributionId :: Lens' ListInvalidations Text liDistributionId = lens _liDistributionId (\s a -> s { _liDistributionId = a }) --- | Use this parameter when paginating results to indicate where to begin in--- your list of invalidation batches. Because the results are returned in--- decreasing order from most recent to oldest, the most recent results are--- on the first page, the second page will contain earlier results, and so--- on. To get the next page of results, set the Marker to the value of the--- NextMarker from the current page's response. This value is the same as--- the ID of the last invalidation batch on that page.+-- | Use this parameter when paginating results to indicate where to begin in your+-- list of invalidation batches. Because the results are returned in decreasing+-- order from most recent to oldest, the most recent results are on the first+-- page, the second page will contain earlier results, and so on. To get the+-- next page of results, set the Marker to the value of the NextMarker from the+-- current page's response. This value is the same as the ID of the last+-- invalidation batch on that page. liMarker :: Lens' ListInvalidations (Maybe Text) liMarker = lens _liMarker (\s a -> s { _liMarker = a }) 

@@ -65,16 +65,15 @@     , _lsdMaxItems = Nothing     } --- | Use this when paginating results to indicate where to begin in your list--- of streaming distributions. The results include distributions in the list--- that occur after the marker. To get the next page of results, set the--- Marker to the value of the NextMarker from the current page's response--- (which is also the ID of the last distribution on that page).+-- | Use this when paginating results to indicate where to begin in your list of+-- streaming distributions. The results include distributions in the list that+-- occur after the marker. To get the next page of results, set the Marker to+-- the value of the NextMarker from the current page's response (which is also+-- the ID of the last distribution on that page). lsdMarker :: Lens' ListStreamingDistributions (Maybe Text) lsdMarker = lens _lsdMarker (\s a -> s { _lsdMarker = a }) --- | The maximum number of streaming distributions you want in the response--- body.+-- | The maximum number of streaming distributions you want in the response body. lsdMaxItems :: Lens' ListStreamingDistributions (Maybe Text) lsdMaxItems = lens _lsdMaxItems (\s a -> s { _lsdMaxItems = a }) 

@@ -458,16 +458,15 @@     }  -- | 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.+-- 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 })  -- | A complex type that contains one CloudFrontOriginAccessIdentitySummary--- element for each origin access identity that was created by the current--- AWS account.+-- 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 }) . _List @@ -479,14 +478,14 @@ cfoailMaxItems :: Lens' CloudFrontOriginAccessIdentityList Int cfoailMaxItems = lens _cfoailMaxItems (\s a -> s { _cfoailMaxItems = a }) --- | 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.+-- | If IsTruncated is true, this element is present and contains the value you+-- can use for the Marker request parameter to continue listing your origin+-- access identities where they left off. cfoailNextMarker :: Lens' CloudFrontOriginAccessIdentityList (Maybe Text) cfoailNextMarker = lens _cfoailNextMarker (\s a -> s { _cfoailNextMarker = a }) --- | The number of CloudFront origin access identities that were created by--- the current AWS account.+-- | 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 }) @@ -510,7 +509,7 @@         ]  data Invalidation = Invalidation-    { _iCreateTime        :: RFC822+    { _iCreateTime        :: ISO8601     , _iId                :: Text     , _iInvalidationBatch :: InvalidationBatch     , _iStatus            :: Text@@ -544,8 +543,7 @@ iCreateTime :: Lens' Invalidation UTCTime iCreateTime = lens _iCreateTime (\s a -> s { _iCreateTime = a }) . _Time --- | The identifier for the invalidation request. For example:--- IDFDVBD632BHDS5.+-- | The identifier for the invalidation request. For example: IDFDVBD632BHDS5. iId :: Lens' Invalidation Text iId = lens _iId (\s a -> s { _iId = a }) @@ -584,8 +582,11 @@ instance Hashable SSLSupportMethod  instance FromText SSLSupportMethod where-    parser = match "sni-only" SniOnly-         <|> match "vip"      Vip+    parser = takeText >>= \case+        "sni-only" -> pure SniOnly+        "vip"      -> pure Vip+        e          -> fail $+            "Failure parsing SSLSupportMethod from " ++ show e  instance ToText SSLSupportMethod where     toText = \case@@ -667,16 +668,15 @@  -- | A unique number that ensures the request can't be replayed. If the -- CallerReference is new (no matter the content of the--- CloudFrontOriginAccessIdentityConfig object), a new origin access--- identity is created. If the CallerReference is a value you already sent--- in a previous request to create an identity, and the content of the+-- CloudFrontOriginAccessIdentityConfig object), a new origin access identity is+-- created. If the CallerReference is a value you already sent in a previous+-- request to create an identity, and the content of the -- CloudFrontOriginAccessIdentityConfig is identical to the original request--- (ignoring white space), the response includes the same information--- returned to the original request. If the CallerReference is a value you--- already sent in a previous request to create an identity but the content--- of the CloudFrontOriginAccessIdentityConfig is different from the--- original request, CloudFront returns a--- CloudFrontOriginAccessIdentityAlreadyExists error.+-- (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 })@@ -725,30 +725,29 @@     , _oCustomOriginConfig = Nothing     } --- | A complex type that contains information about a custom origin. If the--- origin is an Amazon S3 bucket, use the S3OriginConfig element instead.+-- | 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 }) --- | Amazon S3 origins: The DNS name of the Amazon S3 bucket from which you--- want CloudFront to get objects for this origin, for example,+-- | Amazon S3 origins: The DNS name of the Amazon S3 bucket from which you want+-- CloudFront to get objects for this origin, for example, -- myawsbucket.s3.amazonaws.com. Custom origins: The DNS domain name for the--- HTTP server from which you want CloudFront to get objects for this--- origin, for example, www.example.com.+-- HTTP server from which you want CloudFront to get objects for this origin,+-- for example, www.example.com. oDomainName :: Lens' Origin Text oDomainName = lens _oDomainName (\s a -> s { _oDomainName = a }) --- | A unique identifier for the origin. The value of Id must be unique within--- the distribution. You use the value of Id when you create a cache--- behavior. The Id identifies the origin that CloudFront routes a request--- to when the request matches the path pattern for that cache behavior.+-- | A unique identifier for the origin. The value of Id must be unique within the+-- distribution. You use the value of Id when you create a cache behavior. The+-- Id identifies the origin that CloudFront routes a request to when the request+-- matches the path pattern for that cache behavior. oId :: Lens' Origin Text oId = lens _oId (\s a -> s { _oId = a }) --- | A complex type that contains information about the Amazon S3 origin. If--- the origin is a custom origin, use the CustomOriginConfig element--- instead.+-- | 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 }) @@ -776,9 +775,12 @@ instance Hashable ViewerProtocolPolicy  instance FromText ViewerProtocolPolicy where-    parser = match "allow-all"         AllowAll-         <|> match "https-only"        HttpsOnly-         <|> match "redirect-to-https" RedirectToHttps+    parser = takeText >>= \case+        "allow-all"         -> pure AllowAll+        "https-only"        -> pure HttpsOnly+        "redirect-to-https" -> pure RedirectToHttps+        e                   -> fail $+            "Failure parsing ViewerProtocolPolicy from " ++ show e  instance ToText ViewerProtocolPolicy where     toText = \case@@ -836,9 +838,9 @@     }  -- | 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.+-- 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 }) @@ -855,14 +857,14 @@ sdlMaxItems :: Lens' StreamingDistributionList Int sdlMaxItems = lens _sdlMaxItems (\s a -> s { _sdlMaxItems = a }) --- | If IsTruncated is true, this element is present and contains the value--- you can use for the Marker request parameter to continue listing your--- streaming distributions where they left off.+-- | If IsTruncated is true, this element is present and contains the value you+-- can use for the Marker request parameter to continue listing your streaming+-- distributions where they left off. sdlNextMarker :: Lens' StreamingDistributionList (Maybe Text) sdlNextMarker = lens _sdlNextMarker (\s a -> s { _sdlNextMarker = a }) --- | The number of streaming distributions that were created by the current--- AWS account.+-- | 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 }) @@ -943,15 +945,15 @@  -- | A unique number that ensures the request can't be replayed. If the -- CallerReference is new (no matter the content of the--- StreamingDistributionConfig object), a new streaming distribution is--- created. If the CallerReference is a value you already sent in a previous--- request to create a streaming distribution, and the content of the--- StreamingDistributionConfig is identical to the original request--- (ignoring white space), the response includes the same information--- returned to the original request. If the CallerReference is a value you--- already sent in a previous request to create a streaming distribution but--- the content of the StreamingDistributionConfig is different from the--- original request, CloudFront returns a DistributionAlreadyExists error.+-- StreamingDistributionConfig object), a new streaming distribution is created.+-- If the CallerReference is a value you already sent in a previous request to+-- create a streaming distribution, and the content of the+-- StreamingDistributionConfig is identical to the original request (ignoring+-- white space), the response includes the same information returned to the+-- original request. If the CallerReference is a value you already sent in a+-- previous request to create a streaming distribution but the content of the+-- StreamingDistributionConfig is different from the original request,+-- CloudFront returns a DistributionAlreadyExists error. sdcCallerReference :: Lens' StreamingDistributionConfig Text sdcCallerReference =     lens _sdcCallerReference (\s a -> s { _sdcCallerReference = a })@@ -960,8 +962,8 @@ sdcComment :: Lens' StreamingDistributionConfig Text sdcComment = lens _sdcComment (\s a -> s { _sdcComment = a }) --- | Whether the streaming distribution is enabled to accept end user requests--- for content.+-- | Whether the streaming distribution is enabled to accept end user requests for+-- content. sdcEnabled :: Lens' StreamingDistributionConfig Bool sdcEnabled = lens _sdcEnabled (\s a -> s { _sdcEnabled = a }) @@ -970,8 +972,8 @@ sdcLogging :: Lens' StreamingDistributionConfig StreamingLoggingConfig sdcLogging = lens _sdcLogging (\s a -> s { _sdcLogging = a }) --- | A complex type that contains information about price class for this--- streaming distribution.+-- | A complex type that contains information about price class for this streaming+-- distribution. sdcPriceClass :: Lens' StreamingDistributionConfig PriceClass sdcPriceClass = lens _sdcPriceClass (\s a -> s { _sdcPriceClass = a }) @@ -983,15 +985,15 @@ -- | A complex type that specifies the AWS accounts, if any, that you want to -- allow to create signed URLs for private content. If you want to require -- signed URLs in requests for objects in the target origin that match the--- PathPattern for this cache behavior, specify true for Enabled, and--- specify the applicable values for Quantity and Items. For more--- information, go to Using a Signed URL to Serve Private Content in the--- Amazon CloudFront Developer Guide. If you don't want to require signed--- URLs in requests for objects that match PathPattern, specify false for--- Enabled and 0 for Quantity. Omit Items. To add, change, or remove one or--- more trusted signers, change Enabled to true (if it's currently false),--- change Quantity as applicable, and specify all of the trusted signers--- that you want to include in the updated distribution.+-- PathPattern for this cache behavior, specify true for Enabled, and specify+-- the applicable values for Quantity and Items. For more information, go to+-- Using a Signed URL to Serve Private Content in the Amazon CloudFront+-- Developer Guide. If you don't want to require signed URLs in requests for+-- objects that match PathPattern, specify false for Enabled and 0 for Quantity.+-- Omit Items. To add, change, or remove one or more trusted signers, change+-- Enabled to true (if it's currently false), change Quantity as applicable, and+-- specify all of the trusted signers that you want to include in the updated+-- distribution. sdcTrustedSigners :: Lens' StreamingDistributionConfig TrustedSigners sdcTrustedSigners =     lens _sdcTrustedSigners (\s a -> s { _sdcTrustedSigners = a })@@ -1039,15 +1041,15 @@     }  -- | Specifies an AWS account that can create signed URLs. Values: self, which--- indicates that the AWS account that was used to create the distribution--- can created signed URLs, or an AWS account number. Omit the dashes in the--- account number.+-- indicates that the AWS account that was used to create the distribution can+-- created signed URLs, or an AWS account number. Omit the dashes in the account+-- number. sAwsAccountNumber :: Lens' Signer (Maybe Text) sAwsAccountNumber =     lens _sAwsAccountNumber (\s a -> s { _sAwsAccountNumber = a }) --- | A complex type that lists the active CloudFront key pairs, if any, that--- are associated with AwsAccountNumber.+-- | 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 }) @@ -1082,16 +1084,16 @@     , _cpWhitelistedNames = Nothing     } --- | Use this element to specify whether you want CloudFront to forward--- cookies to the origin that is associated with this cache behavior. You--- can specify all, none or whitelist. If you choose All, CloudFront--- forwards all cookies regardless of how many your application uses.+-- | Use this element to specify whether you want CloudFront to forward cookies to+-- the origin that is associated with this cache behavior. You can specify all,+-- none or whitelist. If you choose All, CloudFront forwards all cookies+-- regardless of how many your application uses. cpForward :: Lens' CookiePreference ItemSelection cpForward = lens _cpForward (\s a -> s { _cpForward = a }) --- | A complex type that specifies the whitelisted cookies, if any, that you--- want CloudFront to forward to your origin that is associated with this--- cache behavior.+-- | A complex type that specifies the whitelisted cookies, if any, that you want+-- CloudFront to forward to your origin that is associated with this cache+-- behavior. cpWhitelistedNames :: Lens' CookiePreference (Maybe CookieNames) cpWhitelistedNames =     lens _cpWhitelistedNames (\s a -> s { _cpWhitelistedNames = a })@@ -1115,8 +1117,11 @@ instance Hashable OriginProtocolPolicy  instance FromText OriginProtocolPolicy where-    parser = match "http-only"    HttpOnly-         <|> match "match-viewer" MatchViewer+    parser = takeText >>= \case+        "http-only"    -> pure HttpOnly+        "match-viewer" -> pure MatchViewer+        e              -> fail $+            "Failure parsing OriginProtocolPolicy from " ++ show e  instance ToText OriginProtocolPolicy where     toText = \case@@ -1139,7 +1144,7 @@     , _dDomainName                    :: Text     , _dId                            :: Text     , _dInProgressInvalidationBatches :: Int-    , _dLastModifiedTime              :: RFC822+    , _dLastModifiedTime              :: ISO8601     , _dStatus                        :: Text     } deriving (Eq, Show) @@ -1179,14 +1184,14 @@     , _dDistributionConfig            = p7     } --- | 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.+-- | 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 })@@ -1217,9 +1222,9 @@     lens _dLastModifiedTime (\s a -> s { _dLastModifiedTime = a })         . _Time --- | This response element indicates the current status of the distribution.--- When the status is Deployed, the distribution's information is fully--- propagated throughout the Amazon CloudFront system.+-- | This response element indicates the current status of the distribution. When+-- the status is Deployed, the distribution's information is fully propagated+-- throughout the Amazon CloudFront system. dStatus :: Lens' Distribution Text dStatus = lens _dStatus (\s a -> s { _dStatus = a }) @@ -1281,9 +1286,9 @@ 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.+-- | 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 })@@ -1307,7 +1312,7 @@     , _sdsDomainName       :: Text     , _sdsEnabled          :: Bool     , _sdsId               :: Text-    , _sdsLastModifiedTime :: RFC822+    , _sdsLastModifiedTime :: ISO8601     , _sdsPriceClass       :: PriceClass     , _sdsS3Origin         :: S3Origin     , _sdsStatus           :: Text@@ -1376,8 +1381,7 @@ sdsDomainName :: Lens' StreamingDistributionSummary Text sdsDomainName = lens _sdsDomainName (\s a -> s { _sdsDomainName = a }) --- | Whether the distribution is enabled to accept end user requests for--- content.+-- | Whether the distribution is enabled to accept end user requests for content. sdsEnabled :: Lens' StreamingDistributionSummary Bool sdsEnabled = lens _sdsEnabled (\s a -> s { _sdsEnabled = a }) @@ -1400,23 +1404,23 @@ sdsS3Origin = lens _sdsS3Origin (\s a -> s { _sdsS3Origin = 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.+-- 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 })  -- | A complex type that specifies the AWS accounts, if any, that you want to -- allow to create signed URLs for private content. If you want to require -- signed URLs in requests for objects in the target origin that match the--- PathPattern for this cache behavior, specify true for Enabled, and--- specify the applicable values for Quantity and Items. For more--- information, go to Using a Signed URL to Serve Private Content in the--- Amazon CloudFront Developer Guide. If you don't want to require signed--- URLs in requests for objects that match PathPattern, specify false for--- Enabled and 0 for Quantity. Omit Items. To add, change, or remove one or--- more trusted signers, change Enabled to true (if it's currently false),--- change Quantity as applicable, and specify all of the trusted signers--- that you want to include in the updated distribution.+-- PathPattern for this cache behavior, specify true for Enabled, and specify+-- the applicable values for Quantity and Items. For more information, go to+-- Using a Signed URL to Serve Private Content in the Amazon CloudFront+-- Developer Guide. If you don't want to require signed URLs in requests for+-- objects that match PathPattern, specify false for Enabled and 0 for Quantity.+-- Omit Items. To add, change, or remove one or more trusted signers, change+-- Enabled to true (if it's currently false), change Quantity as applicable, and+-- specify all of the trusted signers that you want to include in the updated+-- distribution. sdsTrustedSigners :: Lens' StreamingDistributionSummary TrustedSigners sdsTrustedSigners =     lens _sdsTrustedSigners (\s a -> s { _sdsTrustedSigners = a })@@ -1563,14 +1567,13 @@  -- | A unique name that ensures the request can't be replayed. If the -- CallerReference is new (no matter the content of the Path object), a new--- distribution is created. If the CallerReference is a value you already--- sent in a previous request to create an invalidation batch, and the--- content of each Path element is identical to the original request, the--- response includes the same information returned to the original request.--- If the CallerReference is a value you already sent in a previous request--- to create a distribution but the content of any Path is different from--- the original request, CloudFront returns an--- InvalidationBatchAlreadyExists error.+-- distribution is created. If the CallerReference is a value you already sent+-- in a previous request to create an invalidation batch, and the content of+-- each Path element is identical to the original request, the response includes+-- the same information returned to the original request. If the CallerReference+-- is a value you already sent in a previous request to create a distribution+-- but the content of any Path is different from the original request,+-- CloudFront returns an InvalidationBatchAlreadyExists error. ibCallerReference :: Lens' InvalidationBatch Text ibCallerReference =     lens _ibCallerReference (\s a -> s { _ibCallerReference = a })@@ -1579,8 +1582,8 @@ -- distribution and must begin with a slash (/). You must enclose each -- invalidation object with the Path element tags. If the path includes -- non-ASCII characters or unsafe characters as defined in RFC 1783--- (http://www.ietf.org/rfc/rfc1738.txt), URL encode those characters. Do--- not URL encode any other characters in the path, or CloudFront will not+-- (http://www.ietf.org/rfc/rfc1738.txt), URL encode those characters. Do not+-- URL encode any other characters in the path, or CloudFront will not -- invalidate the old version of the updated object. ibPaths :: Lens' InvalidationBatch Paths ibPaths = lens _ibPaths (\s a -> s { _ibPaths = a })@@ -1597,7 +1600,7 @@         ]  data InvalidationSummary = InvalidationSummary-    { _isCreateTime :: RFC822+    { _isCreateTime :: ISO8601     , _isId         :: Text     , _isStatus     :: Text     } deriving (Eq, Ord, Show)@@ -1730,14 +1733,14 @@  -- | A unique number that ensures the request can't be replayed. If the -- CallerReference is new (no matter the content of the DistributionConfig--- object), a new distribution is created. If the CallerReference is a value--- you already sent in a previous request to create a distribution, and the--- content of the DistributionConfig is identical to the original request--- (ignoring white space), the response includes the same information--- returned to the original request. If the CallerReference is a value you--- already sent in a previous request to create a distribution but the--- content of the DistributionConfig is different from the original request,--- CloudFront returns a DistributionAlreadyExists error.+-- object), a new distribution is created. If the CallerReference is a value you+-- already sent in a previous request to create a distribution, and the content+-- of the DistributionConfig is identical to the original request (ignoring+-- white space), the response includes the same information returned to the+-- original request. If the CallerReference is a value you already sent in a+-- previous request to create a distribution but the content of the+-- DistributionConfig is different from the original request, CloudFront returns+-- a DistributionAlreadyExists error. dcCallerReference :: Lens' DistributionConfig Text dcCallerReference =     lens _dcCallerReference (\s a -> s { _dcCallerReference = a })@@ -1752,29 +1755,28 @@     lens _dcCustomErrorResponses (\s a -> s { _dcCustomErrorResponses = 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.+-- 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 }) --- | The object that you want CloudFront to return (for example, index.html)--- when an end user requests the root URL for your distribution+-- | The object that you want CloudFront to return (for example, index.html) when+-- an end user requests the root URL for your distribution -- (http://www.example.com) instead of an object in your distribution--- (http://www.example.com/index.html). Specifying a default root object--- avoids exposing the contents of your distribution. If you don't want to--- specify a default root object when you create a distribution, include an--- empty DefaultRootObject element. To delete the default root object from--- an existing distribution, update the distribution configuration and--- include an empty DefaultRootObject element. To replace the default root--- object, update the distribution configuration and specify the new object.+-- (http://www.example.com/index.html). Specifying a default root object avoids+-- exposing the contents of your distribution. If you don't want to specify a+-- default root object when you create a distribution, include an empty+-- DefaultRootObject element. To delete the default root object from an existing+-- distribution, update the distribution configuration and include an empty+-- DefaultRootObject element. To replace the default root object, update the+-- distribution configuration and specify the new object. dcDefaultRootObject :: Lens' DistributionConfig Text dcDefaultRootObject =     lens _dcDefaultRootObject (\s a -> s { _dcDefaultRootObject = a }) --- | Whether the distribution is enabled to accept end user requests for--- content.+-- | Whether the distribution is enabled to accept end user requests for content. dcEnabled :: Lens' DistributionConfig Bool dcEnabled = lens _dcEnabled (\s a -> s { _dcEnabled = a }) @@ -1783,8 +1785,7 @@ dcLogging :: Lens' DistributionConfig LoggingConfig dcLogging = lens _dcLogging (\s a -> s { _dcLogging = a }) --- | A complex type that contains information about origins for this--- distribution.+-- | A complex type that contains information about origins for this distribution. dcOrigins :: Lens' DistributionConfig Origins dcOrigins = lens _dcOrigins (\s a -> s { _dcOrigins = a }) @@ -1885,27 +1886,25 @@ cbAllowedMethods :: Lens' CacheBehavior (Maybe AllowedMethods) cbAllowedMethods = lens _cbAllowedMethods (\s a -> s { _cbAllowedMethods = a }) --- | A complex type that specifies how CloudFront handles query strings,--- cookies and headers.+-- | A complex type that specifies how CloudFront handles query strings, cookies+-- and headers. cbForwardedValues :: Lens' CacheBehavior ForwardedValues cbForwardedValues =     lens _cbForwardedValues (\s a -> s { _cbForwardedValues = a }) --- | The minimum amount of time that you want objects to stay in CloudFront--- caches before CloudFront queries your origin to see whether the object--- has been updated.You can specify a value from 0 to 3,153,600,000 seconds--- (100 years).+-- | The minimum amount of time that you want objects to stay in CloudFront caches+-- before CloudFront queries your origin to see whether the object has been+-- updated.You can specify a value from 0 to 3,153,600,000 seconds (100 years). cbMinTTL :: Lens' CacheBehavior Integer cbMinTTL = lens _cbMinTTL (\s a -> s { _cbMinTTL = a })  -- | The pattern (for example, images/*.jpg) that specifies which requests you--- want this cache behavior to apply to. When CloudFront receives an--- end-user request, the requested path is compared with path patterns in--- the order in which cache behaviors are listed in the distribution. The--- path pattern for the default cache behavior is * and cannot be changed.--- If the request for an object does not match the path pattern for any--- cache behaviors, CloudFront applies the behavior in the default cache--- behavior.+-- want this cache behavior to apply to. When CloudFront receives an end-user+-- request, the requested path is compared with path patterns in the order in+-- which cache behaviors are listed in the distribution. The path pattern for+-- the default cache behavior is * and cannot be changed. If the request for an+-- object does not match the path pattern for any cache behaviors, CloudFront+-- applies the behavior in the default cache behavior. cbPathPattern :: Lens' CacheBehavior Text cbPathPattern = lens _cbPathPattern (\s a -> s { _cbPathPattern = a }) @@ -1916,35 +1915,35 @@ cbSmoothStreaming =     lens _cbSmoothStreaming (\s a -> s { _cbSmoothStreaming = 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.+-- | 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 the AWS accounts, if any, that you want to -- allow to create signed URLs for private content. If you want to require -- signed URLs in requests for objects in the target origin that match the--- PathPattern for this cache behavior, specify true for Enabled, and--- specify the applicable values for Quantity and Items. For more--- information, go to Using a Signed URL to Serve Private Content in the--- Amazon CloudFront Developer Guide. If you don't want to require signed--- URLs in requests for objects that match PathPattern, specify false for--- Enabled and 0 for Quantity. Omit Items. To add, change, or remove one or--- more trusted signers, change Enabled to true (if it's currently false),--- change Quantity as applicable, and specify all of the trusted signers--- that you want to include in the updated distribution.+-- PathPattern for this cache behavior, specify true for Enabled, and specify+-- the applicable values for Quantity and Items. For more information, go to+-- Using a Signed URL to Serve Private Content in the Amazon CloudFront+-- Developer Guide. If you don't want to require signed URLs in requests for+-- objects that match PathPattern, specify false for Enabled and 0 for Quantity.+-- Omit Items. To add, change, or remove one or more trusted signers, change+-- Enabled to true (if it's currently false), change Quantity as applicable, and+-- specify all of the trusted signers that you want to include in the updated+-- distribution. cbTrustedSigners :: Lens' CacheBehavior TrustedSigners cbTrustedSigners = lens _cbTrustedSigners (\s a -> s { _cbTrustedSigners = a })  -- | Use this element to specify the protocol that users can use to access the--- files in the origin specified by TargetOriginId when a request matches--- the path pattern in PathPattern. If you want CloudFront to allow end--- users to use any available protocol, specify allow-all. If you want--- CloudFront to require HTTPS, specify https. If you want CloudFront to--- respond to an HTTP request with an HTTP status code of 301 (Moved--- Permanently) and the HTTPS URL, specify redirect-to-https. The viewer--- then resubmits the request using the HTTPS URL.+-- files in the origin specified by TargetOriginId when a request matches the+-- path pattern in PathPattern. If you want CloudFront to allow end users to use+-- any available protocol, specify allow-all. If you want CloudFront to require+-- HTTPS, specify https. If you want CloudFront to respond to an HTTP request+-- with an HTTP status code of 301 (Moved Permanently) and the HTTPS URL,+-- specify redirect-to-https. The viewer then resubmits the request using the+-- HTTPS URL. cbViewerProtocolPolicy :: Lens' CacheBehavior ViewerProtocolPolicy cbViewerProtocolPolicy =     lens _cbViewerProtocolPolicy (\s a -> s { _cbViewerProtocolPolicy = a })@@ -2011,10 +2010,9 @@     , _dlItems       = mempty     } --- | 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.+-- | 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 }) @@ -2031,8 +2029,8 @@ dlMaxItems :: Lens' DistributionList Int dlMaxItems = lens _dlMaxItems (\s a -> s { _dlMaxItems = a }) --- | If IsTruncated is true, this element is present and contains the value--- you can use for the Marker request parameter to continue listing your+-- | 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 })@@ -2080,8 +2078,8 @@     , _kpiItems    = mempty     } --- | A complex type that lists the active CloudFront key pairs, if any, that--- are associated with AwsAccountNumber.+-- | A complex type that lists the active CloudFront key pairs, if any, that are+-- associated with AwsAccountNumber. kpiItems :: Lens' KeyPairIds [Text] kpiItems = lens _kpiItems (\s a -> s { _kpiItems = a }) . _List @@ -2109,9 +2107,12 @@ instance Hashable PriceClass  instance FromText PriceClass where-    parser = match "PriceClass_100" PriceClass100-         <|> match "PriceClass_200" PriceClass200-         <|> match "PriceClass_All" PriceClassAll+    parser = takeText >>= \case+        "PriceClass_100" -> pure PriceClass100+        "PriceClass_200" -> pure PriceClass200+        "PriceClass_All" -> pure PriceClassAll+        e                -> fail $+            "Failure parsing PriceClass from " ++ show e  instance ToText PriceClass where     toText = \case@@ -2185,18 +2186,17 @@     { _socOriginAccessIdentity = p1     } --- | The CloudFront origin access identity to associate with the origin. Use--- an origin access identity to configure the origin so that end users can--- only access objects in an Amazon S3 bucket through CloudFront. If you--- want end users to be able to access objects using either the CloudFront--- URL or the Amazon S3 URL, specify an empty OriginAccessIdentity element.--- To delete the origin access identity from an existing distribution,--- update the distribution configuration and include an empty--- OriginAccessIdentity element. To replace the origin access identity,--- update the distribution configuration and specify the new origin access--- identity. Use the format origin-access-identity/cloudfront/Id where Id is--- the value that CloudFront returned in the Id element when you created the--- origin access identity.+-- | The CloudFront origin access identity to associate with the origin. Use an+-- origin access identity to configure the origin so that end users can only+-- access objects in an Amazon S3 bucket through CloudFront. If you want end+-- users to be able to access objects using either the CloudFront URL or the+-- Amazon S3 URL, specify an empty OriginAccessIdentity element. To delete the+-- origin access identity from an existing distribution, update the distribution+-- configuration and include an empty OriginAccessIdentity element. To replace+-- the origin access identity, update the distribution configuration and specify+-- the new origin access identity. Use the format+-- origin-access-identity/cloudfront/Id where Id is the value that CloudFront+-- returned in the Id element when you created the origin access identity. socOriginAccessIdentity :: Lens' S3OriginConfig Text socOriginAccessIdentity =     lens _socOriginAccessIdentity (\s a -> s { _socOriginAccessIdentity = a })@@ -2235,32 +2235,31 @@     , _grItems           = mempty     } --- | 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.+-- | 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 }) . _List  -- | 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.+-- 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 }) --- | 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.+-- | 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 })@@ -2339,19 +2338,18 @@     , _hItems    = mempty     } --- | Optional: A complex type that contains a Name element for each header--- that you want CloudFront to forward to the origin and to vary on for this--- cache behavior. If Quantity is 0, omit Items.+-- | Optional: A complex type that contains a Name element for each header that+-- you want CloudFront to forward to the origin and to vary on for this cache+-- behavior. If Quantity is 0, omit Items. hItems :: Lens' Headers [Text] hItems = lens _hItems (\s a -> s { _hItems = a }) . _List --- | The number of different headers that you want CloudFront to forward to--- the origin and to vary on for this cache behavior. The maximum number of--- headers that you can specify by name is 10. If you want CloudFront to--- forward all headers to the origin and vary on all of them, specify 1 for--- Quantity and * for Name. If you don't want CloudFront to forward any--- additional headers to the origin or to vary on any headers, specify 0 for--- Quantity and omit Items.+-- | The number of different headers that you want CloudFront to forward to the+-- origin and to vary on for this cache behavior. The maximum number of headers+-- that you can specify by name is 10. If you want CloudFront to forward all+-- headers to the origin and vary on all of them, specify 1 for Quantity and *+-- for Name. If you don't want CloudFront to forward any additional headers to+-- the origin or to vary on any headers, specify 0 for Quantity and omit Items. hQuantity :: Lens' Headers Int hQuantity = lens _hQuantity (\s a -> s { _hQuantity = a }) @@ -2389,34 +2387,34 @@     , _vcSSLSupportMethod             = Nothing     } --- | 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 IAMCertificateId.+-- | 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 IAMCertificateId. vcCloudFrontDefaultCertificate :: Lens' ViewerCertificate (Maybe Bool) vcCloudFrontDefaultCertificate =     lens _vcCloudFrontDefaultCertificate         (\s a -> s { _vcCloudFrontDefaultCertificate = 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 or CloudFrontDefaultCertificate.+-- | 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 or+-- CloudFrontDefaultCertificate. vcIAMCertificateId :: Lens' ViewerCertificate (Maybe Text) vcIAMCertificateId =     lens _vcIAMCertificateId (\s a -> s { _vcIAMCertificateId = a }) --- | If you specify a value for IAMCertificateId, you must also specify how--- you want CloudFront to serve HTTPS requests. Valid values are vip and--- sni-only. If you specify vip, CloudFront uses dedicated IP addresses for--- your content and can respond to HTTPS requests from any viewer. However,--- you must request permission to use this feature, and you incur additional--- monthly charges. If you specify sni-only, CloudFront can only respond to--- HTTPS requests from viewers that support Server Name Indication (SNI).--- All modern browsers support SNI, but some browsers still in use don't--- support SNI. Do not specify a value for SSLSupportMethod if you specified--- true for CloudFrontDefaultCertificate.+-- | If you specify a value for IAMCertificateId, you must also specify how you+-- want CloudFront to serve HTTPS requests. Valid values are vip and sni-only.+-- If you specify vip, CloudFront uses dedicated IP addresses for your content+-- and can respond to HTTPS requests from any viewer. However, you must request+-- permission to use this feature, and you incur additional monthly charges. If+-- you specify sni-only, CloudFront can only respond to HTTPS requests from+-- viewers that support Server Name Indication (SNI). All modern browsers+-- support SNI, but some browsers still in use don't support SNI. Do not specify+-- a value for SSLSupportMethod if you specified true for+-- CloudFrontDefaultCertificate. vcSSLSupportMethod :: Lens' ViewerCertificate (Maybe SSLSupportMethod) vcSSLSupportMethod =     lens _vcSSLSupportMethod (\s a -> s { _vcSSLSupportMethod = a })@@ -2515,13 +2513,16 @@ instance Hashable Method  instance FromText Method where-    parser = match "DELETE"  Delete'-         <|> match "GET"     Get-         <|> match "HEAD"    Head'-         <|> match "OPTIONS" Options-         <|> match "PATCH"   Patch-         <|> match "POST"    Post-         <|> match "PUT"     Put+    parser = takeText >>= \case+        "DELETE"  -> pure Delete'+        "GET"     -> pure Get+        "HEAD"    -> pure Head'+        "OPTIONS" -> pure Options+        "PATCH"   -> pure Patch+        "POST"    -> pure Post+        "PUT"     -> pure Put+        e         -> fail $+            "Failure parsing Method from " ++ show e  instance ToText Method where     toText = \case@@ -2572,14 +2573,14 @@ fvCookies :: Lens' ForwardedValues CookiePreference fvCookies = lens _fvCookies (\s a -> s { _fvCookies = a }) --- | A complex type that specifies the Headers, if any, that you want--- CloudFront to vary upon for this cache behavior.+-- | A complex type that specifies the Headers, if any, that you want CloudFront+-- to vary upon for this cache behavior. fvHeaders :: Lens' ForwardedValues (Maybe Headers) fvHeaders = lens _fvHeaders (\s a -> s { _fvHeaders = a }) --- | Indicates whether you want CloudFront to forward query strings to the--- origin that is associated with this cache behavior. If so, specify true;--- if not, specify false.+-- | Indicates whether you want CloudFront to forward query strings to the origin+-- that is associated with this cache behavior. If so, specify true; if not,+-- specify false. fvQueryString :: Lens' ForwardedValues Bool fvQueryString = lens _fvQueryString (\s a -> s { _fvQueryString = a }) @@ -2621,8 +2622,8 @@     , _tsItems    = mempty     } --- | Specifies whether you want to require end users to use signed URLs to--- access the files specified by PathPattern and TargetOriginId.+-- | Specifies whether you want to require end users to use signed URLs to access+-- the files specified by PathPattern and TargetOriginId. tsEnabled :: Lens' TrustedSigners Bool tsEnabled = lens _tsEnabled (\s a -> s { _tsEnabled = a }) @@ -2657,9 +2658,12 @@ instance Hashable ItemSelection  instance FromText ItemSelection where-    parser = match "all"       All-         <|> match "none"      None-         <|> match "whitelist" Whitelist+    parser = takeText >>= \case+        "all"       -> pure All+        "none"      -> pure None+        "whitelist" -> pure Whitelist+        e           -> fail $+            "Failure parsing ItemSelection from " ++ show e  instance ToText ItemSelection where     toText = \case@@ -2711,16 +2715,16 @@ -- | 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.+-- 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 })  -- | 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.+-- 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 }) @@ -2805,10 +2809,9 @@     , _cerErrorCachingMinTTL = Nothing     } --- | The minimum amount of time you want HTTP error codes to stay in--- CloudFront caches before CloudFront queries your origin to see whether--- the object has been updated. You can specify a value from 0 to--- 31,536,000.+-- | The minimum amount of time you want HTTP error codes to stay in CloudFront+-- caches before CloudFront queries your origin to see whether the object has+-- been updated. You can specify a value from 0 to 31,536,000. cerErrorCachingMinTTL :: Lens' CustomErrorResponse (Maybe Integer) cerErrorCachingMinTTL =     lens _cerErrorCachingMinTTL (\s a -> s { _cerErrorCachingMinTTL = a })@@ -2818,18 +2821,18 @@ cerErrorCode :: Lens' CustomErrorResponse Int cerErrorCode = lens _cerErrorCode (\s a -> s { _cerErrorCode = a }) --- | The HTTP status code that you want CloudFront to return with the custom--- error page to the viewer. For a list of HTTP status codes that you can--- replace, see CloudFront Documentation.+-- | The HTTP status code that you want CloudFront to return with the custom error+-- page to the viewer. For a list of HTTP status codes that you can replace, see+-- CloudFront Documentation. cerResponseCode :: Lens' CustomErrorResponse (Maybe Text) cerResponseCode = lens _cerResponseCode (\s a -> s { _cerResponseCode = a }) --- | The path of the custom error page (for example, /custom_404.html). The--- path is relative to the distribution and must begin with a slash (/). If--- the path includes any non-ASCII characters or unsafe characters as--- defined in RFC 1783 (http://www.ietf.org/rfc/rfc1738.txt), URL encode--- those characters. Do not URL encode any other characters in the path, or--- CloudFront will not return the custom error page to the viewer.+-- | The path of the custom error page (for example, /custom_404.html). The path+-- is relative to the distribution and must begin with a slash (/). If the path+-- includes any non-ASCII characters or unsafe characters as defined in RFC 1783+-- (http://www.ietf.org/rfc/rfc1738.txt), URL encode those characters. Do not+-- URL encode any other characters in the path, or CloudFront will not return+-- the custom error page to the viewer. cerResponsePagePath :: Lens' CustomErrorResponse (Maybe Text) cerResponsePagePath =     lens _cerResponsePagePath (\s a -> s { _cerResponsePagePath = a })@@ -2869,8 +2872,8 @@     , _cbItems    = mempty     } --- | Optional: A complex type that contains cache behaviors for this--- distribution. If Quantity is 0, you can omit Items.+-- | 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 }) . _List @@ -2937,16 +2940,15 @@ dcbAllowedMethods =     lens _dcbAllowedMethods (\s a -> s { _dcbAllowedMethods = a }) --- | A complex type that specifies how CloudFront handles query strings,--- cookies and headers.+-- | A complex type that specifies how CloudFront handles query strings, cookies+-- and headers. dcbForwardedValues :: Lens' DefaultCacheBehavior ForwardedValues dcbForwardedValues =     lens _dcbForwardedValues (\s a -> s { _dcbForwardedValues = a }) --- | The minimum amount of time that you want objects to stay in CloudFront--- caches before CloudFront queries your origin to see whether the object--- has been updated.You can specify a value from 0 to 3,153,600,000 seconds--- (100 years).+-- | The minimum amount of time that you want objects to stay in CloudFront caches+-- before CloudFront queries your origin to see whether the object has been+-- updated.You can specify a value from 0 to 3,153,600,000 seconds (100 years). dcbMinTTL :: Lens' DefaultCacheBehavior Integer dcbMinTTL = lens _dcbMinTTL (\s a -> s { _dcbMinTTL = a }) @@ -2957,9 +2959,9 @@ dcbSmoothStreaming =     lens _dcbSmoothStreaming (\s a -> s { _dcbSmoothStreaming = 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.+-- | 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 })@@ -2967,27 +2969,27 @@ -- | A complex type that specifies the AWS accounts, if any, that you want to -- allow to create signed URLs for private content. If you want to require -- signed URLs in requests for objects in the target origin that match the--- PathPattern for this cache behavior, specify true for Enabled, and--- specify the applicable values for Quantity and Items. For more--- information, go to Using a Signed URL to Serve Private Content in the--- Amazon CloudFront Developer Guide. If you don't want to require signed--- URLs in requests for objects that match PathPattern, specify false for--- Enabled and 0 for Quantity. Omit Items. To add, change, or remove one or--- more trusted signers, change Enabled to true (if it's currently false),--- change Quantity as applicable, and specify all of the trusted signers--- that you want to include in the updated distribution.+-- PathPattern for this cache behavior, specify true for Enabled, and specify+-- the applicable values for Quantity and Items. For more information, go to+-- Using a Signed URL to Serve Private Content in the Amazon CloudFront+-- Developer Guide. If you don't want to require signed URLs in requests for+-- objects that match PathPattern, specify false for Enabled and 0 for Quantity.+-- Omit Items. To add, change, or remove one or more trusted signers, change+-- Enabled to true (if it's currently false), change Quantity as applicable, and+-- specify all of the trusted signers that you want to include in the updated+-- distribution. dcbTrustedSigners :: Lens' DefaultCacheBehavior TrustedSigners dcbTrustedSigners =     lens _dcbTrustedSigners (\s a -> s { _dcbTrustedSigners = a })  -- | Use this element to specify the protocol that users can use to access the--- files in the origin specified by TargetOriginId when a request matches--- the path pattern in PathPattern. If you want CloudFront to allow end--- users to use any available protocol, specify allow-all. If you want--- CloudFront to require HTTPS, specify https. If you want CloudFront to--- respond to an HTTP request with an HTTP status code of 301 (Moved--- Permanently) and the HTTPS URL, specify redirect-to-https. The viewer--- then resubmits the request using the HTTPS URL.+-- files in the origin specified by TargetOriginId when a request matches the+-- path pattern in PathPattern. If you want CloudFront to allow end users to use+-- any available protocol, specify allow-all. If you want CloudFront to require+-- HTTPS, specify https. If you want CloudFront to respond to an HTTP request+-- with an HTTP status code of 301 (Moved Permanently) and the HTTPS URL,+-- specify redirect-to-https. The viewer then resubmits the request using the+-- HTTPS URL. dcbViewerProtocolPolicy :: Lens' DefaultCacheBehavior ViewerProtocolPolicy dcbViewerProtocolPolicy =     lens _dcbViewerProtocolPolicy (\s a -> s { _dcbViewerProtocolPolicy = a })@@ -3052,10 +3054,10 @@     , _ilItems       = mempty     } --- | 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.+-- | 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 }) @@ -3072,8 +3074,8 @@ ilMaxItems :: Lens' InvalidationList Int ilMaxItems = lens _ilMaxItems (\s a -> s { _ilMaxItems = a }) --- | If IsTruncated is true, this element is present and contains the value--- you can use for the Marker request parameter to continue listing your+-- | If IsTruncated is true, this element is present and contains the value you+-- can use for the Marker request parameter to continue listing your -- invalidation batches where they left off. ilNextMarker :: Lens' InvalidationList (Maybe Text) ilNextMarker = lens _ilNextMarker (\s a -> s { _ilNextMarker = a })@@ -3106,7 +3108,7 @@     { _sdActiveTrustedSigners        :: ActiveTrustedSigners     , _sdDomainName                  :: Text     , _sdId                          :: Text-    , _sdLastModifiedTime            :: Maybe RFC822+    , _sdLastModifiedTime            :: Maybe ISO8601     , _sdStatus                      :: Text     , _sdStreamingDistributionConfig :: StreamingDistributionConfig     } deriving (Eq, Show)@@ -3142,14 +3144,14 @@     , _sdLastModifiedTime            = Nothing     } --- | 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.+-- | CloudFront automatically adds this element to the response only if you've set+-- up the distribution to serve private content with signed URLs. The element+-- lists the key pair IDs that CloudFront is aware of for each trusted signer.+-- The Signer child element lists the AWS account number of the trusted signer+-- (or an empty Self element if the signer is you). The Signer element also+-- includes the IDs of any active key pairs associated with the trusted signer's+-- AWS account. If no KeyPairId element appears for a Signer, that signer can't+-- create working signed URLs. sdActiveTrustedSigners :: Lens' StreamingDistribution ActiveTrustedSigners sdActiveTrustedSigners =     lens _sdActiveTrustedSigners (\s a -> s { _sdActiveTrustedSigners = a })@@ -3159,8 +3161,7 @@ sdDomainName :: Lens' StreamingDistribution Text sdDomainName = lens _sdDomainName (\s a -> s { _sdDomainName = a }) --- | The identifier for the streaming distribution. For example:--- EGTXBD79H29TRA8.+-- | The identifier for the streaming distribution. For example: EGTXBD79H29TRA8. sdId :: Lens' StreamingDistribution Text sdId = lens _sdId (\s a -> s { _sdId = a }) @@ -3171,8 +3172,8 @@         . mapping _Time  -- | The current status of the streaming distribution. When the status is--- Deployed, the distribution's information is fully propagated throughout--- the Amazon CloudFront system.+-- Deployed, the distribution's information is fully propagated throughout the+-- Amazon CloudFront system. sdStatus :: Lens' StreamingDistribution Text sdStatus = lens _sdStatus (\s a -> s { _sdStatus = a }) @@ -3278,9 +3279,9 @@ cfoaiId :: Lens' CloudFrontOriginAccessIdentity Text cfoaiId = lens _cfoaiId (\s a -> s { _cfoaiId = a }) --- | The Amazon S3 canonical user ID for the origin access identity, which you--- use when giving the origin access identity read permission to an object--- in Amazon S3.+-- | The Amazon S3 canonical user ID for the origin access identity, which you use+-- when giving the origin access identity read permission to an object in Amazon+-- S3. cfoaiS3CanonicalUserId :: Lens' CloudFrontOriginAccessIdentity Text cfoaiS3CanonicalUserId =     lens _cfoaiS3CanonicalUserId (\s a -> s { _cfoaiS3CanonicalUserId = a })@@ -3329,16 +3330,16 @@ atsEnabled :: Lens' ActiveTrustedSigners Bool atsEnabled = lens _atsEnabled (\s a -> s { _atsEnabled = a }) --- | A complex type that contains one Signer complex type for each unique--- trusted signer that is specified in the TrustedSigners complex type,--- including trusted signers in the default cache behavior and in all of the--- other cache behaviors.+-- | A complex type that contains one Signer complex type for each unique trusted+-- signer that is specified in the TrustedSigners complex type, including+-- trusted signers in the default cache behavior and in all of the other cache+-- behaviors. atsItems :: Lens' ActiveTrustedSigners [Signer] atsItems = lens _atsItems (\s a -> s { _atsItems = a }) . _List  -- | The number of unique trusted signers included in all cache behaviors. For--- example, if three cache behaviors all list the same three AWS accounts,--- the value of Quantity for ActiveTrustedSigners will be 3.+-- example, if three cache behaviors all list the same three AWS accounts, the+-- value of Quantity for ActiveTrustedSigners will be 3. atsQuantity :: Lens' ActiveTrustedSigners Int atsQuantity = lens _atsQuantity (\s a -> s { _atsQuantity = a }) @@ -3364,7 +3365,7 @@     , _dsDomainName           :: Text     , _dsEnabled              :: Bool     , _dsId                   :: Text-    , _dsLastModifiedTime     :: RFC822+    , _dsLastModifiedTime     :: ISO8601     , _dsOrigins              :: Origins     , _dsPriceClass           :: PriceClass     , _dsRestrictions         :: Restrictions@@ -3455,9 +3456,9 @@     lens _dsCustomErrorResponses (\s a -> s { _dsCustomErrorResponses = 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.+-- 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 })@@ -3467,8 +3468,7 @@ dsDomainName :: Lens' DistributionSummary Text dsDomainName = lens _dsDomainName (\s a -> s { _dsDomainName = a }) --- | Whether the distribution is enabled to accept end user requests for--- content.+-- | Whether the distribution is enabled to accept end user requests for content. dsEnabled :: Lens' DistributionSummary Bool dsEnabled = lens _dsEnabled (\s a -> s { _dsEnabled = a }) @@ -3482,8 +3482,7 @@     lens _dsLastModifiedTime (\s a -> s { _dsLastModifiedTime = a })         . _Time --- | A complex type that contains information about origins for this--- distribution.+-- | A complex type that contains information about origins for this distribution. dsOrigins :: Lens' DistributionSummary Origins dsOrigins = lens _dsOrigins (\s a -> s { _dsOrigins = a }) @@ -3493,9 +3492,9 @@ dsRestrictions :: Lens' DistributionSummary Restrictions dsRestrictions = lens _dsRestrictions (\s a -> s { _dsRestrictions = a }) --- | This response element indicates the current status of the distribution.--- When the status is Deployed, the distribution's information is fully--- propagated throughout the Amazon CloudFront system.+-- | This response element indicates the current status of the distribution. When+-- the status is Deployed, the distribution's information is fully propagated+-- throughout the Amazon CloudFront system. dsStatus :: Lens' DistributionSummary Text dsStatus = lens _dsStatus (\s a -> s { _dsStatus = a }) @@ -3547,9 +3546,12 @@ instance Hashable GeoRestrictionType  instance FromText GeoRestrictionType where-    parser = match "blacklist" GRTBlacklist-         <|> match "none"      GRTNone-         <|> match "whitelist" GRTWhitelist+    parser = takeText >>= \case+        "blacklist" -> pure GRTBlacklist+        "none"      -> pure GRTNone+        "whitelist" -> pure GRTWhitelist+        e           -> fail $+            "Failure parsing GeoRestrictionType from " ++ show e  instance ToText GeoRestrictionType where     toText = \case@@ -3604,21 +3606,20 @@ lcBucket = lens _lcBucket (\s a -> s { _lcBucket = 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, prefix and IncludeCookies, the values are automatically--- deleted.+-- 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.+-- 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 }) 

@@ -82,8 +82,8 @@ udId :: Lens' UpdateDistribution Text udId = lens _udId (\s a -> s { _udId = a }) --- | The value of the ETag header you received when retrieving the--- distribution's configuration. For example: E2QWRUHAPOMQZL.+-- | The value of the ETag header you received when retrieving the distribution's+-- configuration. For example: E2QWRUHAPOMQZL. udIfMatch :: Lens' UpdateDistribution (Maybe Text) udIfMatch = lens _udIfMatch (\s a -> s { _udIfMatch = a })