{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Network.AWS.CloudFront.Types.Product -- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- 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 the default cache behavior or for any of the other cache behaviors for this distribution. These are accounts that you want to allow to create signed URLs for private content. -- -- /See:/ 'activeTrustedSigners' smart constructor. data ActiveTrustedSigners = ActiveTrustedSigners' { _atsItems :: !(Maybe [Signer]) , _atsEnabled :: !Bool , _atsQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ActiveTrustedSigners' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'atsItems' -- -- * 'atsEnabled' -- -- * 'atsQuantity' activeTrustedSigners :: Bool -- ^ 'atsEnabled' -> Int -- ^ 'atsQuantity' -> ActiveTrustedSigners activeTrustedSigners pEnabled_ pQuantity_ = ActiveTrustedSigners' { _atsItems = Nothing , _atsEnabled = pEnabled_ , _atsQuantity = pQuantity_ } -- | A complex type that contains one Signer complex type for each unique trusted signer that is specified in the TrustedSigners complex type, including trusted signers in the default cache behavior and in all of the other cache behaviors. atsItems :: Lens' ActiveTrustedSigners [Signer] atsItems = lens _atsItems (\ s a -> s{_atsItems = a}) . _Default . _Coerce; -- | Each active trusted signer. atsEnabled :: Lens' ActiveTrustedSigners Bool atsEnabled = lens _atsEnabled (\ s a -> s{_atsEnabled = a}); -- | The number of unique trusted signers included in all cache behaviors. For example, if three cache behaviors all list the same three AWS accounts, the value of Quantity for ActiveTrustedSigners will be 3. atsQuantity :: Lens' ActiveTrustedSigners Int atsQuantity = lens _atsQuantity (\ s a -> s{_atsQuantity = a}); instance FromXML ActiveTrustedSigners where parseXML x = ActiveTrustedSigners' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "Signer")) <*> (x .@ "Enabled") <*> (x .@ "Quantity") instance Hashable ActiveTrustedSigners instance NFData ActiveTrustedSigners -- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this distribution. -- -- /See:/ 'aliases' smart constructor. data Aliases = Aliases' { _aItems :: !(Maybe [Text]) , _aQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'Aliases' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'aItems' -- -- * 'aQuantity' aliases :: Int -- ^ 'aQuantity' -> Aliases aliases pQuantity_ = Aliases' { _aItems = Nothing , _aQuantity = pQuantity_ } -- | Optional: A complex type that contains CNAME elements, if any, for this distribution. If Quantity is 0, you can omit Items. aItems :: Lens' Aliases [Text] aItems = lens _aItems (\ s a -> s{_aItems = a}) . _Default . _Coerce; -- | The number of CNAMEs, if any, for this distribution. aQuantity :: Lens' Aliases Int aQuantity = lens _aQuantity (\ s a -> s{_aQuantity = a}); instance FromXML Aliases where parseXML x = Aliases' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "CNAME")) <*> (x .@ "Quantity") instance Hashable Aliases instance NFData Aliases instance ToXML Aliases where toXML Aliases'{..} = mconcat ["Items" @= toXML (toXMLList "CNAME" <$> _aItems), "Quantity" @= _aQuantity] -- | A complex type that controls which HTTP methods CloudFront processes and forwards to your Amazon S3 bucket or your custom origin. There are three choices: - CloudFront forwards only GET and HEAD requests. - CloudFront forwards only GET, HEAD and OPTIONS requests. - CloudFront forwards GET, HEAD, OPTIONS, PUT, PATCH, POST, and DELETE requests. If you pick the third choice, you may need to restrict access to your Amazon S3 bucket or to your custom origin so users can\'t perform operations that you don\'t want them to. For example, you may not want users to have permission to delete objects from your origin. -- -- /See:/ 'allowedMethods' smart constructor. data AllowedMethods = AllowedMethods' { _amCachedMethods :: !(Maybe CachedMethods) , _amQuantity :: !Int , _amItems :: ![Method] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'AllowedMethods' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'amCachedMethods' -- -- * 'amQuantity' -- -- * 'amItems' allowedMethods :: Int -- ^ 'amQuantity' -> AllowedMethods allowedMethods pQuantity_ = AllowedMethods' { _amCachedMethods = Nothing , _amQuantity = pQuantity_ , _amItems = mempty } -- | Undocumented member. amCachedMethods :: Lens' AllowedMethods (Maybe CachedMethods) amCachedMethods = lens _amCachedMethods (\ s a -> s{_amCachedMethods = a}); -- | The number of HTTP methods that you want CloudFront to forward to your origin. Valid values are 2 (for GET and HEAD requests), 3 (for GET, HEAD and OPTIONS requests) and 7 (for GET, HEAD, OPTIONS, PUT, PATCH, POST, and DELETE requests). amQuantity :: Lens' AllowedMethods Int amQuantity = lens _amQuantity (\ s a -> s{_amQuantity = a}); -- | A complex type that contains the HTTP methods that you want CloudFront to process and forward to your origin. amItems :: Lens' AllowedMethods [Method] amItems = lens _amItems (\ s a -> s{_amItems = a}) . _Coerce; instance FromXML AllowedMethods where parseXML x = AllowedMethods' <$> (x .@? "CachedMethods") <*> (x .@ "Quantity") <*> (x .@? "Items" .!@ mempty >>= parseXMLList "Method") instance Hashable AllowedMethods instance NFData AllowedMethods instance ToXML AllowedMethods where toXML AllowedMethods'{..} = mconcat ["CachedMethods" @= _amCachedMethods, "Quantity" @= _amQuantity, "Items" @= toXMLList "Method" _amItems] -- | A complex type that describes how CloudFront processes requests. You can create up to 10 cache behaviors.You must create at least as many cache behaviors (including the default cache behavior) as you have origins if you want CloudFront to distribute objects from all of the origins. Each cache behavior specifies the one origin from which you want CloudFront to get objects. If you have two origins and only the default cache behavior, the default cache behavior will cause CloudFront to get objects from one of the origins, but the other origin will never be used. If you don\'t want to specify any cache behaviors, include only an empty CacheBehaviors element. Don\'t include an empty CacheBehavior element, or CloudFront returns a MalformedXML error. To delete all cache behaviors in an existing distribution, update the distribution configuration and include only an empty CacheBehaviors element. To add, change, or remove one or more cache behaviors, update the distribution configuration and specify all of the cache behaviors that you want to include in the updated distribution. -- -- /See:/ 'cacheBehavior' smart constructor. data CacheBehavior = CacheBehavior' { _cbAllowedMethods :: !(Maybe AllowedMethods) , _cbMaxTTL :: !(Maybe Integer) , _cbCompress :: !(Maybe Bool) , _cbSmoothStreaming :: !(Maybe Bool) , _cbDefaultTTL :: !(Maybe Integer) , _cbPathPattern :: !Text , _cbTargetOriginId :: !Text , _cbForwardedValues :: !ForwardedValues , _cbTrustedSigners :: !TrustedSigners , _cbViewerProtocolPolicy :: !ViewerProtocolPolicy , _cbMinTTL :: !Integer } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CacheBehavior' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cbAllowedMethods' -- -- * 'cbMaxTTL' -- -- * 'cbCompress' -- -- * 'cbSmoothStreaming' -- -- * 'cbDefaultTTL' -- -- * 'cbPathPattern' -- -- * 'cbTargetOriginId' -- -- * 'cbForwardedValues' -- -- * 'cbTrustedSigners' -- -- * 'cbViewerProtocolPolicy' -- -- * 'cbMinTTL' cacheBehavior :: Text -- ^ 'cbPathPattern' -> Text -- ^ 'cbTargetOriginId' -> ForwardedValues -- ^ 'cbForwardedValues' -> TrustedSigners -- ^ 'cbTrustedSigners' -> ViewerProtocolPolicy -- ^ 'cbViewerProtocolPolicy' -> Integer -- ^ 'cbMinTTL' -> CacheBehavior cacheBehavior pPathPattern_ pTargetOriginId_ pForwardedValues_ pTrustedSigners_ pViewerProtocolPolicy_ pMinTTL_ = CacheBehavior' { _cbAllowedMethods = Nothing , _cbMaxTTL = Nothing , _cbCompress = Nothing , _cbSmoothStreaming = Nothing , _cbDefaultTTL = Nothing , _cbPathPattern = pPathPattern_ , _cbTargetOriginId = pTargetOriginId_ , _cbForwardedValues = pForwardedValues_ , _cbTrustedSigners = pTrustedSigners_ , _cbViewerProtocolPolicy = pViewerProtocolPolicy_ , _cbMinTTL = pMinTTL_ } -- | Undocumented member. cbAllowedMethods :: Lens' CacheBehavior (Maybe AllowedMethods) cbAllowedMethods = lens _cbAllowedMethods (\ s a -> s{_cbAllowedMethods = a}); -- | The maximum amount of time (in seconds) that an object is in a CloudFront cache before CloudFront forwards another request to your origin to determine whether the object has been updated. The value that you specify applies only when your origin adds HTTP headers such as Cache-Control max-age, Cache-Control s-maxage, and Expires to objects. You can specify a value from 0 to 3,153,600,000 seconds (100 years). cbMaxTTL :: Lens' CacheBehavior (Maybe Integer) cbMaxTTL = lens _cbMaxTTL (\ s a -> s{_cbMaxTTL = a}); -- | Whether you want CloudFront to automatically compress content for web requests that include Accept-Encoding: gzip in the request header. If so, specify true; if not, specify false. CloudFront compresses files larger than 1000 bytes and less than 1 megabyte for both Amazon S3 and custom origins. When a CloudFront edge location is unusually busy, some files might not be compressed. The value of the Content-Type header must be on the list of file types that CloudFront will compress. For the current list, see in the Amazon CloudFront Developer Guide. If you configure CloudFront to compress content, CloudFront removes the ETag response header from the objects that it compresses. The ETag header indicates that the version in a CloudFront edge cache is identical to the version on the origin server, but after compression the two versions are no longer identical. As a result, for compressed objects, CloudFront can\'t use the ETag header to determine whether an expired object in the CloudFront edge cache is still the latest version. cbCompress :: Lens' CacheBehavior (Maybe Bool) cbCompress = lens _cbCompress (\ s a -> s{_cbCompress = a}); -- | Indicates whether you want to distribute media files in Microsoft Smooth Streaming format using the origin that is associated with this cache behavior. If so, specify true; if not, specify false. cbSmoothStreaming :: Lens' CacheBehavior (Maybe Bool) cbSmoothStreaming = lens _cbSmoothStreaming (\ s a -> s{_cbSmoothStreaming = a}); -- | If you don\'t configure your origin to add a Cache-Control max-age directive or an Expires header, DefaultTTL is the default amount of time (in seconds) that an object is in a CloudFront cache before CloudFront forwards another request to your origin to determine whether the object has been updated. The value that you specify applies only when your origin does not add HTTP headers such as Cache-Control max-age, Cache-Control s-maxage, and Expires to objects. You can specify a value from 0 to 3,153,600,000 seconds (100 years). cbDefaultTTL :: Lens' CacheBehavior (Maybe Integer) cbDefaultTTL = lens _cbDefaultTTL (\ s a -> s{_cbDefaultTTL = a}); -- | The pattern (for example, images\/*.jpg) that specifies which requests you want this cache behavior to apply to. When CloudFront receives an end-user request, the requested path is compared with path patterns in the order in which cache behaviors are listed in the distribution. The path pattern for the default cache behavior is * and cannot be changed. If the request for an object does not match the path pattern for any cache behaviors, CloudFront applies the behavior in the default cache behavior. cbPathPattern :: Lens' CacheBehavior Text cbPathPattern = lens _cbPathPattern (\ s a -> s{_cbPathPattern = a}); -- | The value of ID for the origin that you want CloudFront to route requests to when a request matches the path pattern either for a cache behavior or for the default cache behavior. cbTargetOriginId :: Lens' CacheBehavior Text cbTargetOriginId = lens _cbTargetOriginId (\ s a -> s{_cbTargetOriginId = a}); -- | A complex type that specifies how CloudFront handles query strings, cookies and headers. cbForwardedValues :: Lens' CacheBehavior ForwardedValues cbForwardedValues = lens _cbForwardedValues (\ s a -> s{_cbForwardedValues = a}); -- | A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the PathPattern for this cache behavior, specify true for Enabled, and specify the applicable values for Quantity and Items. For more information, go to Using a Signed URL to Serve Private Content in the Amazon CloudFront Developer Guide. If you don\'t want to require signed URLs in requests for objects that match PathPattern, specify false for Enabled and 0 for Quantity. Omit Items. To add, change, or remove one or more trusted signers, change Enabled to true (if it\'s currently false), change Quantity as applicable, and specify all of the trusted signers that you want to include in the updated distribution. cbTrustedSigners :: Lens' CacheBehavior TrustedSigners cbTrustedSigners = lens _cbTrustedSigners (\ s a -> s{_cbTrustedSigners = a}); -- | Use this element to specify the protocol that users can use to access the files in the origin specified by TargetOriginId when a request matches the path pattern in PathPattern. If you want CloudFront to allow end users to use any available protocol, specify allow-all. If you want CloudFront to require HTTPS, specify https. If you want CloudFront to respond to an HTTP request with an HTTP status code of 301 (Moved Permanently) and the HTTPS URL, specify redirect-to-https. The viewer then resubmits the request using the HTTPS URL. cbViewerProtocolPolicy :: Lens' CacheBehavior ViewerProtocolPolicy cbViewerProtocolPolicy = lens _cbViewerProtocolPolicy (\ s a -> s{_cbViewerProtocolPolicy = a}); -- | The minimum amount of time that you want objects to stay in CloudFront caches before CloudFront queries your origin to see whether the object has been updated.You can specify a value from 0 to 3,153,600,000 seconds (100 years). cbMinTTL :: Lens' CacheBehavior Integer cbMinTTL = lens _cbMinTTL (\ s a -> s{_cbMinTTL = a}); instance FromXML CacheBehavior where parseXML x = CacheBehavior' <$> (x .@? "AllowedMethods") <*> (x .@? "MaxTTL") <*> (x .@? "Compress") <*> (x .@? "SmoothStreaming") <*> (x .@? "DefaultTTL") <*> (x .@ "PathPattern") <*> (x .@ "TargetOriginId") <*> (x .@ "ForwardedValues") <*> (x .@ "TrustedSigners") <*> (x .@ "ViewerProtocolPolicy") <*> (x .@ "MinTTL") instance Hashable CacheBehavior instance NFData CacheBehavior instance ToXML CacheBehavior where toXML CacheBehavior'{..} = mconcat ["AllowedMethods" @= _cbAllowedMethods, "MaxTTL" @= _cbMaxTTL, "Compress" @= _cbCompress, "SmoothStreaming" @= _cbSmoothStreaming, "DefaultTTL" @= _cbDefaultTTL, "PathPattern" @= _cbPathPattern, "TargetOriginId" @= _cbTargetOriginId, "ForwardedValues" @= _cbForwardedValues, "TrustedSigners" @= _cbTrustedSigners, "ViewerProtocolPolicy" @= _cbViewerProtocolPolicy, "MinTTL" @= _cbMinTTL] -- | A complex type that contains zero or more CacheBehavior elements. -- -- /See:/ 'cacheBehaviors' smart constructor. data CacheBehaviors = CacheBehaviors' { _cbItems :: !(Maybe [CacheBehavior]) , _cbQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CacheBehaviors' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cbItems' -- -- * 'cbQuantity' cacheBehaviors :: Int -- ^ 'cbQuantity' -> CacheBehaviors cacheBehaviors pQuantity_ = CacheBehaviors' { _cbItems = Nothing , _cbQuantity = pQuantity_ } -- | Optional: A complex type that contains cache behaviors for this distribution. If Quantity is 0, you can omit Items. cbItems :: Lens' CacheBehaviors [CacheBehavior] cbItems = lens _cbItems (\ s a -> s{_cbItems = a}) . _Default . _Coerce; -- | The number of cache behaviors for this distribution. cbQuantity :: Lens' CacheBehaviors Int cbQuantity = lens _cbQuantity (\ s a -> s{_cbQuantity = a}); instance FromXML CacheBehaviors where parseXML x = CacheBehaviors' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "CacheBehavior")) <*> (x .@ "Quantity") instance Hashable CacheBehaviors instance NFData CacheBehaviors instance ToXML CacheBehaviors where toXML CacheBehaviors'{..} = mconcat ["Items" @= toXML (toXMLList "CacheBehavior" <$> _cbItems), "Quantity" @= _cbQuantity] -- | A complex type that controls whether CloudFront caches the response to requests using the specified HTTP methods. There are two choices: - CloudFront caches responses to GET and HEAD requests. - CloudFront caches responses to GET, HEAD, and OPTIONS requests. If you pick the second choice for your S3 Origin, you may need to forward Access-Control-Request-Method, Access-Control-Request-Headers and Origin headers for the responses to be cached correctly. -- -- /See:/ 'cachedMethods' smart constructor. data CachedMethods = CachedMethods' { _cmQuantity :: !Int , _cmItems :: ![Method] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CachedMethods' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cmQuantity' -- -- * 'cmItems' cachedMethods :: Int -- ^ 'cmQuantity' -> CachedMethods cachedMethods pQuantity_ = CachedMethods' { _cmQuantity = pQuantity_ , _cmItems = mempty } -- | The number of HTTP methods for which you want CloudFront to cache responses. Valid values are 2 (for caching responses to GET and HEAD requests) and 3 (for caching responses to GET, HEAD, and OPTIONS requests). cmQuantity :: Lens' CachedMethods Int cmQuantity = lens _cmQuantity (\ s a -> s{_cmQuantity = a}); -- | A complex type that contains the HTTP methods that you want CloudFront to cache responses to. cmItems :: Lens' CachedMethods [Method] cmItems = lens _cmItems (\ s a -> s{_cmItems = a}) . _Coerce; instance FromXML CachedMethods where parseXML x = CachedMethods' <$> (x .@ "Quantity") <*> (x .@? "Items" .!@ mempty >>= parseXMLList "Method") instance Hashable CachedMethods instance NFData CachedMethods instance ToXML CachedMethods where toXML CachedMethods'{..} = mconcat ["Quantity" @= _cmQuantity, "Items" @= toXMLList "Method" _cmItems] -- | CloudFront origin access identity. -- -- /See:/ 'cloudFrontOriginAccessIdentity' smart constructor. data CloudFrontOriginAccessIdentity = CloudFrontOriginAccessIdentity' { _cfoaiCloudFrontOriginAccessIdentityConfig :: !(Maybe CloudFrontOriginAccessIdentityConfig) , _cfoaiId :: !Text , _cfoaiS3CanonicalUserId :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CloudFrontOriginAccessIdentity' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cfoaiCloudFrontOriginAccessIdentityConfig' -- -- * 'cfoaiId' -- -- * 'cfoaiS3CanonicalUserId' cloudFrontOriginAccessIdentity :: Text -- ^ 'cfoaiId' -> Text -- ^ 'cfoaiS3CanonicalUserId' -> CloudFrontOriginAccessIdentity cloudFrontOriginAccessIdentity pId_ pS3CanonicalUserId_ = CloudFrontOriginAccessIdentity' { _cfoaiCloudFrontOriginAccessIdentityConfig = Nothing , _cfoaiId = pId_ , _cfoaiS3CanonicalUserId = pS3CanonicalUserId_ } -- | The current configuration information for the identity. cfoaiCloudFrontOriginAccessIdentityConfig :: Lens' CloudFrontOriginAccessIdentity (Maybe CloudFrontOriginAccessIdentityConfig) cfoaiCloudFrontOriginAccessIdentityConfig = lens _cfoaiCloudFrontOriginAccessIdentityConfig (\ s a -> s{_cfoaiCloudFrontOriginAccessIdentityConfig = a}); -- | The ID for the origin access identity. For example: E74FTE3AJFJ256A. cfoaiId :: Lens' CloudFrontOriginAccessIdentity Text cfoaiId = lens _cfoaiId (\ s a -> s{_cfoaiId = a}); -- | The Amazon S3 canonical user ID for the origin access identity, which you use when giving the origin access identity read permission to an object in Amazon S3. cfoaiS3CanonicalUserId :: Lens' CloudFrontOriginAccessIdentity Text cfoaiS3CanonicalUserId = lens _cfoaiS3CanonicalUserId (\ s a -> s{_cfoaiS3CanonicalUserId = a}); instance FromXML CloudFrontOriginAccessIdentity where parseXML x = CloudFrontOriginAccessIdentity' <$> (x .@? "CloudFrontOriginAccessIdentityConfig") <*> (x .@ "Id") <*> (x .@ "S3CanonicalUserId") instance Hashable CloudFrontOriginAccessIdentity instance NFData CloudFrontOriginAccessIdentity -- | Origin access identity configuration. -- -- /See:/ 'cloudFrontOriginAccessIdentityConfig' smart constructor. data CloudFrontOriginAccessIdentityConfig = CloudFrontOriginAccessIdentityConfig' { _cfoaicCallerReference :: !Text , _cfoaicComment :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CloudFrontOriginAccessIdentityConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cfoaicCallerReference' -- -- * 'cfoaicComment' cloudFrontOriginAccessIdentityConfig :: Text -- ^ 'cfoaicCallerReference' -> Text -- ^ 'cfoaicComment' -> CloudFrontOriginAccessIdentityConfig cloudFrontOriginAccessIdentityConfig pCallerReference_ pComment_ = CloudFrontOriginAccessIdentityConfig' { _cfoaicCallerReference = pCallerReference_ , _cfoaicComment = pComment_ } -- | A unique number that ensures the request can\'t be replayed. If the CallerReference is new (no matter the content of the CloudFrontOriginAccessIdentityConfig object), a new origin access identity is created. If the CallerReference is a value you already sent in a previous request to create an identity, and the content of the CloudFrontOriginAccessIdentityConfig is identical to the original request (ignoring white space), the response includes the same information returned to the original request. If the CallerReference is a value you already sent in a previous request to create an identity but the content of the CloudFrontOriginAccessIdentityConfig is different from the original request, CloudFront returns a CloudFrontOriginAccessIdentityAlreadyExists error. cfoaicCallerReference :: Lens' CloudFrontOriginAccessIdentityConfig Text cfoaicCallerReference = lens _cfoaicCallerReference (\ s a -> s{_cfoaicCallerReference = a}); -- | Any comments you want to include about the origin access identity. cfoaicComment :: Lens' CloudFrontOriginAccessIdentityConfig Text cfoaicComment = lens _cfoaicComment (\ s a -> s{_cfoaicComment = a}); instance FromXML CloudFrontOriginAccessIdentityConfig where parseXML x = CloudFrontOriginAccessIdentityConfig' <$> (x .@ "CallerReference") <*> (x .@ "Comment") instance Hashable CloudFrontOriginAccessIdentityConfig instance NFData CloudFrontOriginAccessIdentityConfig instance ToXML CloudFrontOriginAccessIdentityConfig where toXML CloudFrontOriginAccessIdentityConfig'{..} = mconcat ["CallerReference" @= _cfoaicCallerReference, "Comment" @= _cfoaicComment] -- | The CloudFrontOriginAccessIdentityList type. -- -- /See:/ 'cloudFrontOriginAccessIdentityList' smart constructor. data CloudFrontOriginAccessIdentityList = CloudFrontOriginAccessIdentityList' { _cfoailItems :: !(Maybe [CloudFrontOriginAccessIdentitySummary]) , _cfoailNextMarker :: !(Maybe Text) , _cfoailMarker :: !Text , _cfoailMaxItems :: !Int , _cfoailIsTruncated :: !Bool , _cfoailQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CloudFrontOriginAccessIdentityList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cfoailItems' -- -- * 'cfoailNextMarker' -- -- * 'cfoailMarker' -- -- * 'cfoailMaxItems' -- -- * 'cfoailIsTruncated' -- -- * 'cfoailQuantity' cloudFrontOriginAccessIdentityList :: Text -- ^ 'cfoailMarker' -> Int -- ^ 'cfoailMaxItems' -> Bool -- ^ 'cfoailIsTruncated' -> Int -- ^ 'cfoailQuantity' -> CloudFrontOriginAccessIdentityList cloudFrontOriginAccessIdentityList pMarker_ pMaxItems_ pIsTruncated_ pQuantity_ = CloudFrontOriginAccessIdentityList' { _cfoailItems = Nothing , _cfoailNextMarker = Nothing , _cfoailMarker = pMarker_ , _cfoailMaxItems = pMaxItems_ , _cfoailIsTruncated = pIsTruncated_ , _cfoailQuantity = pQuantity_ } -- | A complex type that contains one CloudFrontOriginAccessIdentitySummary element for each origin access identity that was created by the current AWS account. cfoailItems :: Lens' CloudFrontOriginAccessIdentityList [CloudFrontOriginAccessIdentitySummary] cfoailItems = lens _cfoailItems (\ s a -> s{_cfoailItems = a}) . _Default . _Coerce; -- | If IsTruncated is true, this element is present and contains the value you can use for the Marker request parameter to continue listing your origin access identities where they left off. cfoailNextMarker :: Lens' CloudFrontOriginAccessIdentityList (Maybe Text) cfoailNextMarker = lens _cfoailNextMarker (\ s a -> s{_cfoailNextMarker = a}); -- | The value you provided for the Marker request parameter. cfoailMarker :: Lens' CloudFrontOriginAccessIdentityList Text cfoailMarker = lens _cfoailMarker (\ s a -> s{_cfoailMarker = a}); -- | The value you provided for the MaxItems request parameter. cfoailMaxItems :: Lens' CloudFrontOriginAccessIdentityList Int cfoailMaxItems = lens _cfoailMaxItems (\ s a -> s{_cfoailMaxItems = a}); -- | A flag that indicates whether more origin access identities remain to be listed. If your results were truncated, you can make a follow-up pagination request using the Marker request parameter to retrieve more items in the list. cfoailIsTruncated :: Lens' CloudFrontOriginAccessIdentityList Bool cfoailIsTruncated = lens _cfoailIsTruncated (\ s a -> s{_cfoailIsTruncated = a}); -- | The number of CloudFront origin access identities that were created by the current AWS account. cfoailQuantity :: Lens' CloudFrontOriginAccessIdentityList Int cfoailQuantity = lens _cfoailQuantity (\ s a -> s{_cfoailQuantity = a}); instance FromXML CloudFrontOriginAccessIdentityList where parseXML x = CloudFrontOriginAccessIdentityList' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "CloudFrontOriginAccessIdentitySummary")) <*> (x .@? "NextMarker") <*> (x .@ "Marker") <*> (x .@ "MaxItems") <*> (x .@ "IsTruncated") <*> (x .@ "Quantity") instance Hashable CloudFrontOriginAccessIdentityList instance NFData CloudFrontOriginAccessIdentityList -- | Summary of the information about a CloudFront origin access identity. -- -- /See:/ 'cloudFrontOriginAccessIdentitySummary' smart constructor. data CloudFrontOriginAccessIdentitySummary = CloudFrontOriginAccessIdentitySummary' { _cfoaisId :: !Text , _cfoaisS3CanonicalUserId :: !Text , _cfoaisComment :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CloudFrontOriginAccessIdentitySummary' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cfoaisId' -- -- * 'cfoaisS3CanonicalUserId' -- -- * 'cfoaisComment' cloudFrontOriginAccessIdentitySummary :: Text -- ^ 'cfoaisId' -> Text -- ^ 'cfoaisS3CanonicalUserId' -> Text -- ^ 'cfoaisComment' -> CloudFrontOriginAccessIdentitySummary cloudFrontOriginAccessIdentitySummary pId_ pS3CanonicalUserId_ pComment_ = CloudFrontOriginAccessIdentitySummary' { _cfoaisId = pId_ , _cfoaisS3CanonicalUserId = pS3CanonicalUserId_ , _cfoaisComment = pComment_ } -- | The ID for the origin access identity. For example: E74FTE3AJFJ256A. cfoaisId :: Lens' CloudFrontOriginAccessIdentitySummary Text cfoaisId = lens _cfoaisId (\ s a -> s{_cfoaisId = a}); -- | The Amazon S3 canonical user ID for the origin access identity, which you use when giving the origin access identity read permission to an object in Amazon S3. cfoaisS3CanonicalUserId :: Lens' CloudFrontOriginAccessIdentitySummary Text cfoaisS3CanonicalUserId = lens _cfoaisS3CanonicalUserId (\ s a -> s{_cfoaisS3CanonicalUserId = a}); -- | The comment for this origin access identity, as originally specified when created. cfoaisComment :: Lens' CloudFrontOriginAccessIdentitySummary Text cfoaisComment = lens _cfoaisComment (\ s a -> s{_cfoaisComment = a}); instance FromXML CloudFrontOriginAccessIdentitySummary where parseXML x = CloudFrontOriginAccessIdentitySummary' <$> (x .@ "Id") <*> (x .@ "S3CanonicalUserId") <*> (x .@ "Comment") instance Hashable CloudFrontOriginAccessIdentitySummary instance NFData CloudFrontOriginAccessIdentitySummary -- | A complex type that specifies the whitelisted cookies, if any, that you want CloudFront to forward to your origin that is associated with this cache behavior. -- -- /See:/ 'cookieNames' smart constructor. data CookieNames = CookieNames' { _cnItems :: !(Maybe [Text]) , _cnQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CookieNames' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cnItems' -- -- * 'cnQuantity' cookieNames :: Int -- ^ 'cnQuantity' -> CookieNames cookieNames pQuantity_ = CookieNames' { _cnItems = Nothing , _cnQuantity = pQuantity_ } -- | Optional: A complex type that contains whitelisted cookies for this cache behavior. If Quantity is 0, you can omit Items. cnItems :: Lens' CookieNames [Text] cnItems = lens _cnItems (\ s a -> s{_cnItems = a}) . _Default . _Coerce; -- | The number of whitelisted cookies for this cache behavior. cnQuantity :: Lens' CookieNames Int cnQuantity = lens _cnQuantity (\ s a -> s{_cnQuantity = a}); instance FromXML CookieNames where parseXML x = CookieNames' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "Name")) <*> (x .@ "Quantity") instance Hashable CookieNames instance NFData CookieNames instance ToXML CookieNames where toXML CookieNames'{..} = mconcat ["Items" @= toXML (toXMLList "Name" <$> _cnItems), "Quantity" @= _cnQuantity] -- | A complex type that specifies the cookie preferences associated with this cache behavior. -- -- /See:/ 'cookiePreference' smart constructor. data CookiePreference = CookiePreference' { _cpWhitelistedNames :: !(Maybe CookieNames) , _cpForward :: !ItemSelection } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CookiePreference' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cpWhitelistedNames' -- -- * 'cpForward' cookiePreference :: ItemSelection -- ^ 'cpForward' -> CookiePreference cookiePreference pForward_ = CookiePreference' { _cpWhitelistedNames = Nothing , _cpForward = pForward_ } -- | A complex type that specifies the whitelisted cookies, if any, that you want CloudFront to forward to your origin that is associated with this cache behavior. cpWhitelistedNames :: Lens' CookiePreference (Maybe CookieNames) cpWhitelistedNames = lens _cpWhitelistedNames (\ s a -> s{_cpWhitelistedNames = a}); -- | Use this element to specify whether you want CloudFront to forward cookies to the origin that is associated with this cache behavior. You can specify all, none or whitelist. If you choose All, CloudFront forwards all cookies regardless of how many your application uses. cpForward :: Lens' CookiePreference ItemSelection cpForward = lens _cpForward (\ s a -> s{_cpForward = a}); instance FromXML CookiePreference where parseXML x = CookiePreference' <$> (x .@? "WhitelistedNames") <*> (x .@ "Forward") instance Hashable CookiePreference instance NFData CookiePreference instance ToXML CookiePreference where toXML CookiePreference'{..} = mconcat ["WhitelistedNames" @= _cpWhitelistedNames, "Forward" @= _cpForward] -- | A complex type that describes how you\'d prefer CloudFront to respond to requests that result in either a 4xx or 5xx response. You can control whether a custom error page should be displayed, what the desired response code should be for this error page and how long should the error response be cached by CloudFront. If you don\'t want to specify any custom error responses, include only an empty CustomErrorResponses element. To delete all custom error responses in an existing distribution, update the distribution configuration and include only an empty CustomErrorResponses element. To add, change, or remove one or more custom error responses, update the distribution configuration and specify all of the custom error responses that you want to include in the updated distribution. -- -- /See:/ 'customErrorResponse' smart constructor. data CustomErrorResponse = CustomErrorResponse' { _ceResponsePagePath :: !(Maybe Text) , _ceResponseCode :: !(Maybe Text) , _ceErrorCachingMinTTL :: !(Maybe Integer) , _ceErrorCode :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CustomErrorResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ceResponsePagePath' -- -- * 'ceResponseCode' -- -- * 'ceErrorCachingMinTTL' -- -- * 'ceErrorCode' customErrorResponse :: Int -- ^ 'ceErrorCode' -> CustomErrorResponse customErrorResponse pErrorCode_ = CustomErrorResponse' { _ceResponsePagePath = Nothing , _ceResponseCode = Nothing , _ceErrorCachingMinTTL = Nothing , _ceErrorCode = pErrorCode_ } -- | The path of the custom error page (for example, \/custom_404.html). The path is relative to the distribution and must begin with a slash (\/). If the path includes any non-ASCII characters or unsafe characters as defined in RFC 1783 (http:\/\/www.ietf.org\/rfc\/rfc1738.txt), URL encode those characters. Do not URL encode any other characters in the path, or CloudFront will not return the custom error page to the viewer. ceResponsePagePath :: Lens' CustomErrorResponse (Maybe Text) ceResponsePagePath = lens _ceResponsePagePath (\ s a -> s{_ceResponsePagePath = a}); -- | The HTTP status code that you want CloudFront to return with the custom error page to the viewer. For a list of HTTP status codes that you can replace, see CloudFront Documentation. ceResponseCode :: Lens' CustomErrorResponse (Maybe Text) ceResponseCode = lens _ceResponseCode (\ s a -> s{_ceResponseCode = a}); -- | The minimum amount of time you want HTTP error codes to stay in CloudFront caches before CloudFront queries your origin to see whether the object has been updated. You can specify a value from 0 to 31,536,000. ceErrorCachingMinTTL :: Lens' CustomErrorResponse (Maybe Integer) ceErrorCachingMinTTL = lens _ceErrorCachingMinTTL (\ s a -> s{_ceErrorCachingMinTTL = a}); -- | The 4xx or 5xx HTTP status code that you want to customize. For a list of HTTP status codes that you can customize, see CloudFront documentation. ceErrorCode :: Lens' CustomErrorResponse Int ceErrorCode = lens _ceErrorCode (\ s a -> s{_ceErrorCode = a}); instance FromXML CustomErrorResponse where parseXML x = CustomErrorResponse' <$> (x .@? "ResponsePagePath") <*> (x .@? "ResponseCode") <*> (x .@? "ErrorCachingMinTTL") <*> (x .@ "ErrorCode") instance Hashable CustomErrorResponse instance NFData CustomErrorResponse instance ToXML CustomErrorResponse where toXML CustomErrorResponse'{..} = mconcat ["ResponsePagePath" @= _ceResponsePagePath, "ResponseCode" @= _ceResponseCode, "ErrorCachingMinTTL" @= _ceErrorCachingMinTTL, "ErrorCode" @= _ceErrorCode] -- | A complex type that contains zero or more CustomErrorResponse elements. -- -- /See:/ 'customErrorResponses' smart constructor. data CustomErrorResponses = CustomErrorResponses' { _cerItems :: !(Maybe [CustomErrorResponse]) , _cerQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CustomErrorResponses' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cerItems' -- -- * 'cerQuantity' customErrorResponses :: Int -- ^ 'cerQuantity' -> CustomErrorResponses customErrorResponses pQuantity_ = CustomErrorResponses' { _cerItems = Nothing , _cerQuantity = pQuantity_ } -- | Optional: A complex type that contains custom error responses for this distribution. If Quantity is 0, you can omit Items. cerItems :: Lens' CustomErrorResponses [CustomErrorResponse] cerItems = lens _cerItems (\ s a -> s{_cerItems = a}) . _Default . _Coerce; -- | The number of custom error responses for this distribution. cerQuantity :: Lens' CustomErrorResponses Int cerQuantity = lens _cerQuantity (\ s a -> s{_cerQuantity = a}); instance FromXML CustomErrorResponses where parseXML x = CustomErrorResponses' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "CustomErrorResponse")) <*> (x .@ "Quantity") instance Hashable CustomErrorResponses instance NFData CustomErrorResponses instance ToXML CustomErrorResponses where toXML CustomErrorResponses'{..} = mconcat ["Items" @= toXML (toXMLList "CustomErrorResponse" <$> _cerItems), "Quantity" @= _cerQuantity] -- | A complex type that contains the list of Custom Headers for each origin. -- -- /See:/ 'customHeaders' smart constructor. data CustomHeaders = CustomHeaders' { _chItems :: !(Maybe [OriginCustomHeader]) , _chQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CustomHeaders' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'chItems' -- -- * 'chQuantity' customHeaders :: Int -- ^ 'chQuantity' -> CustomHeaders customHeaders pQuantity_ = CustomHeaders' { _chItems = Nothing , _chQuantity = pQuantity_ } -- | A complex type that contains the custom headers for this Origin. chItems :: Lens' CustomHeaders [OriginCustomHeader] chItems = lens _chItems (\ s a -> s{_chItems = a}) . _Default . _Coerce; -- | The number of custom headers for this origin. chQuantity :: Lens' CustomHeaders Int chQuantity = lens _chQuantity (\ s a -> s{_chQuantity = a}); instance FromXML CustomHeaders where parseXML x = CustomHeaders' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "OriginCustomHeader")) <*> (x .@ "Quantity") instance Hashable CustomHeaders instance NFData CustomHeaders instance ToXML CustomHeaders where toXML CustomHeaders'{..} = mconcat ["Items" @= toXML (toXMLList "OriginCustomHeader" <$> _chItems), "Quantity" @= _chQuantity] -- | A customer origin. -- -- /See:/ 'customOriginConfig' smart constructor. data CustomOriginConfig = CustomOriginConfig' { _cocOriginSSLProtocols :: !(Maybe OriginSSLProtocols) , _cocHTTPPort :: !Int , _cocHTTPSPort :: !Int , _cocOriginProtocolPolicy :: !OriginProtocolPolicy } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CustomOriginConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cocOriginSSLProtocols' -- -- * 'cocHTTPPort' -- -- * 'cocHTTPSPort' -- -- * 'cocOriginProtocolPolicy' customOriginConfig :: Int -- ^ 'cocHTTPPort' -> Int -- ^ 'cocHTTPSPort' -> OriginProtocolPolicy -- ^ 'cocOriginProtocolPolicy' -> CustomOriginConfig customOriginConfig pHTTPPort_ pHTTPSPort_ pOriginProtocolPolicy_ = CustomOriginConfig' { _cocOriginSSLProtocols = Nothing , _cocHTTPPort = pHTTPPort_ , _cocHTTPSPort = pHTTPSPort_ , _cocOriginProtocolPolicy = pOriginProtocolPolicy_ } -- | The SSL\/TLS protocols that you want CloudFront to use when communicating with your origin over HTTPS. cocOriginSSLProtocols :: Lens' CustomOriginConfig (Maybe OriginSSLProtocols) cocOriginSSLProtocols = lens _cocOriginSSLProtocols (\ s a -> s{_cocOriginSSLProtocols = a}); -- | The HTTP port the custom origin listens on. cocHTTPPort :: Lens' CustomOriginConfig Int cocHTTPPort = lens _cocHTTPPort (\ s a -> s{_cocHTTPPort = a}); -- | The HTTPS port the custom origin listens on. cocHTTPSPort :: Lens' CustomOriginConfig Int cocHTTPSPort = lens _cocHTTPSPort (\ s a -> s{_cocHTTPSPort = a}); -- | The origin protocol policy to apply to your origin. cocOriginProtocolPolicy :: Lens' CustomOriginConfig OriginProtocolPolicy cocOriginProtocolPolicy = lens _cocOriginProtocolPolicy (\ s a -> s{_cocOriginProtocolPolicy = a}); instance FromXML CustomOriginConfig where parseXML x = CustomOriginConfig' <$> (x .@? "OriginSslProtocols") <*> (x .@ "HTTPPort") <*> (x .@ "HTTPSPort") <*> (x .@ "OriginProtocolPolicy") instance Hashable CustomOriginConfig instance NFData CustomOriginConfig instance ToXML CustomOriginConfig where toXML CustomOriginConfig'{..} = mconcat ["OriginSslProtocols" @= _cocOriginSSLProtocols, "HTTPPort" @= _cocHTTPPort, "HTTPSPort" @= _cocHTTPSPort, "OriginProtocolPolicy" @= _cocOriginProtocolPolicy] -- | A complex type that describes the default cache behavior if you do not specify a CacheBehavior element or if files don\'t match any of the values of PathPattern in CacheBehavior elements.You must create exactly one default cache behavior. -- -- /See:/ 'defaultCacheBehavior' smart constructor. data DefaultCacheBehavior = DefaultCacheBehavior' { _dcbAllowedMethods :: !(Maybe AllowedMethods) , _dcbMaxTTL :: !(Maybe Integer) , _dcbCompress :: !(Maybe Bool) , _dcbSmoothStreaming :: !(Maybe Bool) , _dcbDefaultTTL :: !(Maybe Integer) , _dcbTargetOriginId :: !Text , _dcbForwardedValues :: !ForwardedValues , _dcbTrustedSigners :: !TrustedSigners , _dcbViewerProtocolPolicy :: !ViewerProtocolPolicy , _dcbMinTTL :: !Integer } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DefaultCacheBehavior' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dcbAllowedMethods' -- -- * 'dcbMaxTTL' -- -- * 'dcbCompress' -- -- * 'dcbSmoothStreaming' -- -- * 'dcbDefaultTTL' -- -- * 'dcbTargetOriginId' -- -- * 'dcbForwardedValues' -- -- * 'dcbTrustedSigners' -- -- * 'dcbViewerProtocolPolicy' -- -- * 'dcbMinTTL' defaultCacheBehavior :: Text -- ^ 'dcbTargetOriginId' -> ForwardedValues -- ^ 'dcbForwardedValues' -> TrustedSigners -- ^ 'dcbTrustedSigners' -> ViewerProtocolPolicy -- ^ 'dcbViewerProtocolPolicy' -> Integer -- ^ 'dcbMinTTL' -> DefaultCacheBehavior defaultCacheBehavior pTargetOriginId_ pForwardedValues_ pTrustedSigners_ pViewerProtocolPolicy_ pMinTTL_ = DefaultCacheBehavior' { _dcbAllowedMethods = Nothing , _dcbMaxTTL = Nothing , _dcbCompress = Nothing , _dcbSmoothStreaming = Nothing , _dcbDefaultTTL = Nothing , _dcbTargetOriginId = pTargetOriginId_ , _dcbForwardedValues = pForwardedValues_ , _dcbTrustedSigners = pTrustedSigners_ , _dcbViewerProtocolPolicy = pViewerProtocolPolicy_ , _dcbMinTTL = pMinTTL_ } -- | Undocumented member. dcbAllowedMethods :: Lens' DefaultCacheBehavior (Maybe AllowedMethods) dcbAllowedMethods = lens _dcbAllowedMethods (\ s a -> s{_dcbAllowedMethods = a}); -- | The maximum amount of time (in seconds) that an object is in a CloudFront cache before CloudFront forwards another request to your origin to determine whether the object has been updated. The value that you specify applies only when your origin adds HTTP headers such as Cache-Control max-age, Cache-Control s-maxage, and Expires to objects. You can specify a value from 0 to 3,153,600,000 seconds (100 years). dcbMaxTTL :: Lens' DefaultCacheBehavior (Maybe Integer) dcbMaxTTL = lens _dcbMaxTTL (\ s a -> s{_dcbMaxTTL = a}); -- | Whether you want CloudFront to automatically compress content for web requests that include Accept-Encoding: gzip in the request header. If so, specify true; if not, specify false. CloudFront compresses files larger than 1000 bytes and less than 1 megabyte for both Amazon S3 and custom origins. When a CloudFront edge location is unusually busy, some files might not be compressed. The value of the Content-Type header must be on the list of file types that CloudFront will compress. For the current list, see in the Amazon CloudFront Developer Guide. If you configure CloudFront to compress content, CloudFront removes the ETag response header from the objects that it compresses. The ETag header indicates that the version in a CloudFront edge cache is identical to the version on the origin server, but after compression the two versions are no longer identical. As a result, for compressed objects, CloudFront can\'t use the ETag header to determine whether an expired object in the CloudFront edge cache is still the latest version. dcbCompress :: Lens' DefaultCacheBehavior (Maybe Bool) dcbCompress = lens _dcbCompress (\ s a -> s{_dcbCompress = a}); -- | Indicates whether you want to distribute media files in Microsoft Smooth Streaming format using the origin that is associated with this cache behavior. If so, specify true; if not, specify false. dcbSmoothStreaming :: Lens' DefaultCacheBehavior (Maybe Bool) dcbSmoothStreaming = lens _dcbSmoothStreaming (\ s a -> s{_dcbSmoothStreaming = a}); -- | If you don\'t configure your origin to add a Cache-Control max-age directive or an Expires header, DefaultTTL is the default amount of time (in seconds) that an object is in a CloudFront cache before CloudFront forwards another request to your origin to determine whether the object has been updated. The value that you specify applies only when your origin does not add HTTP headers such as Cache-Control max-age, Cache-Control s-maxage, and Expires to objects. You can specify a value from 0 to 3,153,600,000 seconds (100 years). dcbDefaultTTL :: Lens' DefaultCacheBehavior (Maybe Integer) dcbDefaultTTL = lens _dcbDefaultTTL (\ s a -> s{_dcbDefaultTTL = a}); -- | The value of ID for the origin that you want CloudFront to route requests to when a request matches the path pattern either for a cache behavior or for the default cache behavior. dcbTargetOriginId :: Lens' DefaultCacheBehavior Text dcbTargetOriginId = lens _dcbTargetOriginId (\ s a -> s{_dcbTargetOriginId = a}); -- | A complex type that specifies how CloudFront handles query strings, cookies and headers. dcbForwardedValues :: Lens' DefaultCacheBehavior ForwardedValues dcbForwardedValues = lens _dcbForwardedValues (\ s a -> s{_dcbForwardedValues = a}); -- | A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the PathPattern for this cache behavior, specify true for Enabled, and specify the applicable values for Quantity and Items. For more information, go to Using a Signed URL to Serve Private Content in the Amazon CloudFront Developer Guide. If you don\'t want to require signed URLs in requests for objects that match PathPattern, specify false for Enabled and 0 for Quantity. Omit Items. To add, change, or remove one or more trusted signers, change Enabled to true (if it\'s currently false), change Quantity as applicable, and specify all of the trusted signers that you want to include in the updated distribution. dcbTrustedSigners :: Lens' DefaultCacheBehavior TrustedSigners dcbTrustedSigners = lens _dcbTrustedSigners (\ s a -> s{_dcbTrustedSigners = a}); -- | Use this element to specify the protocol that users can use to access the files in the origin specified by TargetOriginId when a request matches the path pattern in PathPattern. If you want CloudFront to allow end users to use any available protocol, specify allow-all. If you want CloudFront to require HTTPS, specify https. If you want CloudFront to respond to an HTTP request with an HTTP status code of 301 (Moved Permanently) and the HTTPS URL, specify redirect-to-https. The viewer then resubmits the request using the HTTPS URL. dcbViewerProtocolPolicy :: Lens' DefaultCacheBehavior ViewerProtocolPolicy dcbViewerProtocolPolicy = lens _dcbViewerProtocolPolicy (\ s a -> s{_dcbViewerProtocolPolicy = a}); -- | The minimum amount of time that you want objects to stay in CloudFront caches before CloudFront queries your origin to see whether the object has been updated.You can specify a value from 0 to 3,153,600,000 seconds (100 years). dcbMinTTL :: Lens' DefaultCacheBehavior Integer dcbMinTTL = lens _dcbMinTTL (\ s a -> s{_dcbMinTTL = a}); instance FromXML DefaultCacheBehavior where parseXML x = DefaultCacheBehavior' <$> (x .@? "AllowedMethods") <*> (x .@? "MaxTTL") <*> (x .@? "Compress") <*> (x .@? "SmoothStreaming") <*> (x .@? "DefaultTTL") <*> (x .@ "TargetOriginId") <*> (x .@ "ForwardedValues") <*> (x .@ "TrustedSigners") <*> (x .@ "ViewerProtocolPolicy") <*> (x .@ "MinTTL") instance Hashable DefaultCacheBehavior instance NFData DefaultCacheBehavior instance ToXML DefaultCacheBehavior where toXML DefaultCacheBehavior'{..} = mconcat ["AllowedMethods" @= _dcbAllowedMethods, "MaxTTL" @= _dcbMaxTTL, "Compress" @= _dcbCompress, "SmoothStreaming" @= _dcbSmoothStreaming, "DefaultTTL" @= _dcbDefaultTTL, "TargetOriginId" @= _dcbTargetOriginId, "ForwardedValues" @= _dcbForwardedValues, "TrustedSigners" @= _dcbTrustedSigners, "ViewerProtocolPolicy" @= _dcbViewerProtocolPolicy, "MinTTL" @= _dcbMinTTL] -- | A distribution. -- -- /See:/ 'distribution' smart constructor. data Distribution = Distribution' { _dId :: !Text , _dARN :: !Text , _dStatus :: !Text , _dLastModifiedTime :: !ISO8601 , _dInProgressInvalidationBatches :: !Int , _dDomainName :: !Text , _dActiveTrustedSigners :: !ActiveTrustedSigners , _dDistributionConfig :: !DistributionConfig } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'Distribution' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dId' -- -- * 'dARN' -- -- * 'dStatus' -- -- * 'dLastModifiedTime' -- -- * 'dInProgressInvalidationBatches' -- -- * 'dDomainName' -- -- * 'dActiveTrustedSigners' -- -- * 'dDistributionConfig' distribution :: Text -- ^ 'dId' -> Text -- ^ 'dARN' -> Text -- ^ 'dStatus' -> UTCTime -- ^ 'dLastModifiedTime' -> Int -- ^ 'dInProgressInvalidationBatches' -> Text -- ^ 'dDomainName' -> ActiveTrustedSigners -- ^ 'dActiveTrustedSigners' -> DistributionConfig -- ^ 'dDistributionConfig' -> Distribution distribution pId_ pARN_ pStatus_ pLastModifiedTime_ pInProgressInvalidationBatches_ pDomainName_ pActiveTrustedSigners_ pDistributionConfig_ = Distribution' { _dId = pId_ , _dARN = pARN_ , _dStatus = pStatus_ , _dLastModifiedTime = _Time # pLastModifiedTime_ , _dInProgressInvalidationBatches = pInProgressInvalidationBatches_ , _dDomainName = pDomainName_ , _dActiveTrustedSigners = pActiveTrustedSigners_ , _dDistributionConfig = pDistributionConfig_ } -- | The identifier for the distribution. For example: EDFDVBD632BHDS5. dId :: Lens' Distribution Text dId = lens _dId (\ s a -> s{_dId = a}); -- | The ARN (Amazon Resource Name) for the distribution. For example: arn:aws:cloudfront::123456789012:distribution\/EDFDVBD632BHDS5, where 123456789012 is your AWS account Id. dARN :: Lens' Distribution Text dARN = lens _dARN (\ s a -> s{_dARN = a}); -- | This response element indicates the current status of the distribution. When the status is Deployed, the distribution\'s information is fully propagated throughout the Amazon CloudFront system. dStatus :: Lens' Distribution Text dStatus = lens _dStatus (\ s a -> s{_dStatus = a}); -- | The date and time the distribution was last modified. dLastModifiedTime :: Lens' Distribution UTCTime dLastModifiedTime = lens _dLastModifiedTime (\ s a -> s{_dLastModifiedTime = a}) . _Time; -- | The number of invalidation batches currently in progress. dInProgressInvalidationBatches :: Lens' Distribution Int dInProgressInvalidationBatches = lens _dInProgressInvalidationBatches (\ s a -> s{_dInProgressInvalidationBatches = a}); -- | The domain name corresponding to the distribution. For example: d604721fxaaqy9.cloudfront.net. dDomainName :: Lens' Distribution Text dDomainName = lens _dDomainName (\ s a -> s{_dDomainName = a}); -- | CloudFront automatically adds this element to the response only if you\'ve set up the distribution to serve private content with signed URLs. The element lists the key pair IDs that CloudFront is aware of for each trusted signer. The Signer child element lists the AWS account number of the trusted signer (or an empty Self element if the signer is you). The Signer element also includes the IDs of any active key pairs associated with the trusted signer\'s AWS account. If no KeyPairId element appears for a Signer, that signer can\'t create working signed URLs. dActiveTrustedSigners :: Lens' Distribution ActiveTrustedSigners dActiveTrustedSigners = lens _dActiveTrustedSigners (\ s a -> s{_dActiveTrustedSigners = a}); -- | The current configuration information for the distribution. dDistributionConfig :: Lens' Distribution DistributionConfig dDistributionConfig = lens _dDistributionConfig (\ s a -> s{_dDistributionConfig = a}); instance FromXML Distribution where parseXML x = Distribution' <$> (x .@ "Id") <*> (x .@ "ARN") <*> (x .@ "Status") <*> (x .@ "LastModifiedTime") <*> (x .@ "InProgressInvalidationBatches") <*> (x .@ "DomainName") <*> (x .@ "ActiveTrustedSigners") <*> (x .@ "DistributionConfig") instance Hashable Distribution instance NFData Distribution -- | A distribution Configuration. -- -- /See:/ 'distributionConfig' smart constructor. data DistributionConfig = DistributionConfig' { _dcHTTPVersion :: !(Maybe HTTPVersion) , _dcAliases :: !(Maybe Aliases) , _dcDefaultRootObject :: !(Maybe Text) , _dcPriceClass :: !(Maybe PriceClass) , _dcCustomErrorResponses :: !(Maybe CustomErrorResponses) , _dcWebACLId :: !(Maybe Text) , _dcViewerCertificate :: !(Maybe ViewerCertificate) , _dcRestrictions :: !(Maybe Restrictions) , _dcLogging :: !(Maybe LoggingConfig) , _dcCacheBehaviors :: !(Maybe CacheBehaviors) , _dcCallerReference :: !Text , _dcOrigins :: !Origins , _dcDefaultCacheBehavior :: !DefaultCacheBehavior , _dcComment :: !Text , _dcEnabled :: !Bool } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DistributionConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dcHTTPVersion' -- -- * 'dcAliases' -- -- * 'dcDefaultRootObject' -- -- * 'dcPriceClass' -- -- * 'dcCustomErrorResponses' -- -- * 'dcWebACLId' -- -- * 'dcViewerCertificate' -- -- * 'dcRestrictions' -- -- * 'dcLogging' -- -- * 'dcCacheBehaviors' -- -- * 'dcCallerReference' -- -- * 'dcOrigins' -- -- * 'dcDefaultCacheBehavior' -- -- * 'dcComment' -- -- * 'dcEnabled' distributionConfig :: Text -- ^ 'dcCallerReference' -> Origins -- ^ 'dcOrigins' -> DefaultCacheBehavior -- ^ 'dcDefaultCacheBehavior' -> Text -- ^ 'dcComment' -> Bool -- ^ 'dcEnabled' -> DistributionConfig distributionConfig pCallerReference_ pOrigins_ pDefaultCacheBehavior_ pComment_ pEnabled_ = DistributionConfig' { _dcHTTPVersion = Nothing , _dcAliases = Nothing , _dcDefaultRootObject = Nothing , _dcPriceClass = Nothing , _dcCustomErrorResponses = Nothing , _dcWebACLId = Nothing , _dcViewerCertificate = Nothing , _dcRestrictions = Nothing , _dcLogging = Nothing , _dcCacheBehaviors = Nothing , _dcCallerReference = pCallerReference_ , _dcOrigins = pOrigins_ , _dcDefaultCacheBehavior = pDefaultCacheBehavior_ , _dcComment = pComment_ , _dcEnabled = pEnabled_ } -- | (Optional) Specify the maximum HTTP version that you want viewers to use to communicate with CloudFront. The default value for new web distributions is http2. Viewers that don\'t support HTTP\/2 will automatically use an earlier version. dcHTTPVersion :: Lens' DistributionConfig (Maybe HTTPVersion) dcHTTPVersion = lens _dcHTTPVersion (\ s a -> s{_dcHTTPVersion = a}); -- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this distribution. dcAliases :: Lens' DistributionConfig (Maybe Aliases) dcAliases = lens _dcAliases (\ s a -> s{_dcAliases = a}); -- | The object that you want CloudFront to return (for example, index.html) when an end user requests the root URL for your distribution (http:\/\/www.example.com) instead of an object in your distribution (http:\/\/www.example.com\/index.html). Specifying a default root object avoids exposing the contents of your distribution. If you don\'t want to specify a default root object when you create a distribution, include an empty DefaultRootObject element. To delete the default root object from an existing distribution, update the distribution configuration and include an empty DefaultRootObject element. To replace the default root object, update the distribution configuration and specify the new object. dcDefaultRootObject :: Lens' DistributionConfig (Maybe Text) dcDefaultRootObject = lens _dcDefaultRootObject (\ s a -> s{_dcDefaultRootObject = a}); -- | A complex type that contains information about price class for this distribution. dcPriceClass :: Lens' DistributionConfig (Maybe PriceClass) dcPriceClass = lens _dcPriceClass (\ s a -> s{_dcPriceClass = a}); -- | A complex type that contains zero or more CustomErrorResponse elements. dcCustomErrorResponses :: Lens' DistributionConfig (Maybe CustomErrorResponses) dcCustomErrorResponses = lens _dcCustomErrorResponses (\ s a -> s{_dcCustomErrorResponses = a}); -- | (Optional) If you\'re using AWS WAF to filter CloudFront requests, the Id of the AWS WAF web ACL that is associated with the distribution. dcWebACLId :: Lens' DistributionConfig (Maybe Text) dcWebACLId = lens _dcWebACLId (\ s a -> s{_dcWebACLId = a}); -- | Undocumented member. dcViewerCertificate :: Lens' DistributionConfig (Maybe ViewerCertificate) dcViewerCertificate = lens _dcViewerCertificate (\ s a -> s{_dcViewerCertificate = a}); -- | Undocumented member. dcRestrictions :: Lens' DistributionConfig (Maybe Restrictions) dcRestrictions = lens _dcRestrictions (\ s a -> s{_dcRestrictions = a}); -- | A complex type that controls whether access logs are written for the distribution. dcLogging :: Lens' DistributionConfig (Maybe LoggingConfig) dcLogging = lens _dcLogging (\ s a -> s{_dcLogging = a}); -- | A complex type that contains zero or more CacheBehavior elements. dcCacheBehaviors :: Lens' DistributionConfig (Maybe CacheBehaviors) dcCacheBehaviors = lens _dcCacheBehaviors (\ s a -> s{_dcCacheBehaviors = a}); -- | A unique number that ensures the request can\'t be replayed. If the CallerReference is new (no matter the content of the DistributionConfig object), a new distribution is created. If the CallerReference is a value you already sent in a previous request to create a distribution, and the content of the DistributionConfig is identical to the original request (ignoring white space), the response includes the same information returned to the original request. If the CallerReference is a value you already sent in a previous request to create a distribution but the content of the DistributionConfig is different from the original request, CloudFront returns a DistributionAlreadyExists error. dcCallerReference :: Lens' DistributionConfig Text dcCallerReference = lens _dcCallerReference (\ s a -> s{_dcCallerReference = a}); -- | A complex type that contains information about origins for this distribution. dcOrigins :: Lens' DistributionConfig Origins dcOrigins = lens _dcOrigins (\ s a -> s{_dcOrigins = a}); -- | A complex type that describes the default cache behavior if you do not specify a CacheBehavior element or if files don\'t match any of the values of PathPattern in CacheBehavior elements.You must create exactly one default cache behavior. dcDefaultCacheBehavior :: Lens' DistributionConfig DefaultCacheBehavior dcDefaultCacheBehavior = lens _dcDefaultCacheBehavior (\ s a -> s{_dcDefaultCacheBehavior = a}); -- | Any comments you want to include about the distribution. dcComment :: Lens' DistributionConfig Text dcComment = lens _dcComment (\ s a -> s{_dcComment = a}); -- | Whether the distribution is enabled to accept end user requests for content. dcEnabled :: Lens' DistributionConfig Bool dcEnabled = lens _dcEnabled (\ s a -> s{_dcEnabled = a}); instance FromXML DistributionConfig where parseXML x = DistributionConfig' <$> (x .@? "HttpVersion") <*> (x .@? "Aliases") <*> (x .@? "DefaultRootObject") <*> (x .@? "PriceClass") <*> (x .@? "CustomErrorResponses") <*> (x .@? "WebACLId") <*> (x .@? "ViewerCertificate") <*> (x .@? "Restrictions") <*> (x .@? "Logging") <*> (x .@? "CacheBehaviors") <*> (x .@ "CallerReference") <*> (x .@ "Origins") <*> (x .@ "DefaultCacheBehavior") <*> (x .@ "Comment") <*> (x .@ "Enabled") instance Hashable DistributionConfig instance NFData DistributionConfig instance ToXML DistributionConfig where toXML DistributionConfig'{..} = mconcat ["HttpVersion" @= _dcHTTPVersion, "Aliases" @= _dcAliases, "DefaultRootObject" @= _dcDefaultRootObject, "PriceClass" @= _dcPriceClass, "CustomErrorResponses" @= _dcCustomErrorResponses, "WebACLId" @= _dcWebACLId, "ViewerCertificate" @= _dcViewerCertificate, "Restrictions" @= _dcRestrictions, "Logging" @= _dcLogging, "CacheBehaviors" @= _dcCacheBehaviors, "CallerReference" @= _dcCallerReference, "Origins" @= _dcOrigins, "DefaultCacheBehavior" @= _dcDefaultCacheBehavior, "Comment" @= _dcComment, "Enabled" @= _dcEnabled] -- | A distribution Configuration and a list of tags to be associated with the distribution. -- -- /See:/ 'distributionConfigWithTags' smart constructor. data DistributionConfigWithTags = DistributionConfigWithTags' { _dcwtDistributionConfig :: !DistributionConfig , _dcwtTags :: !Tags } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DistributionConfigWithTags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dcwtDistributionConfig' -- -- * 'dcwtTags' distributionConfigWithTags :: DistributionConfig -- ^ 'dcwtDistributionConfig' -> Tags -- ^ 'dcwtTags' -> DistributionConfigWithTags distributionConfigWithTags pDistributionConfig_ pTags_ = DistributionConfigWithTags' { _dcwtDistributionConfig = pDistributionConfig_ , _dcwtTags = pTags_ } -- | A distribution Configuration. dcwtDistributionConfig :: Lens' DistributionConfigWithTags DistributionConfig dcwtDistributionConfig = lens _dcwtDistributionConfig (\ s a -> s{_dcwtDistributionConfig = a}); -- | A complex type that contains zero or more Tag elements. dcwtTags :: Lens' DistributionConfigWithTags Tags dcwtTags = lens _dcwtTags (\ s a -> s{_dcwtTags = a}); instance Hashable DistributionConfigWithTags instance NFData DistributionConfigWithTags instance ToXML DistributionConfigWithTags where toXML DistributionConfigWithTags'{..} = mconcat ["DistributionConfig" @= _dcwtDistributionConfig, "Tags" @= _dcwtTags] -- | A distribution list. -- -- /See:/ 'distributionList' smart constructor. data DistributionList = DistributionList' { _dlItems :: !(Maybe [DistributionSummary]) , _dlNextMarker :: !(Maybe Text) , _dlMarker :: !Text , _dlMaxItems :: !Int , _dlIsTruncated :: !Bool , _dlQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DistributionList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dlItems' -- -- * 'dlNextMarker' -- -- * 'dlMarker' -- -- * 'dlMaxItems' -- -- * 'dlIsTruncated' -- -- * 'dlQuantity' distributionList :: Text -- ^ 'dlMarker' -> Int -- ^ 'dlMaxItems' -> Bool -- ^ 'dlIsTruncated' -> Int -- ^ 'dlQuantity' -> DistributionList distributionList pMarker_ pMaxItems_ pIsTruncated_ pQuantity_ = DistributionList' { _dlItems = Nothing , _dlNextMarker = Nothing , _dlMarker = pMarker_ , _dlMaxItems = pMaxItems_ , _dlIsTruncated = pIsTruncated_ , _dlQuantity = pQuantity_ } -- | A complex type that contains one DistributionSummary element for each distribution that was created by the current AWS account. dlItems :: Lens' DistributionList [DistributionSummary] dlItems = lens _dlItems (\ s a -> s{_dlItems = a}) . _Default . _Coerce; -- | If IsTruncated is true, this element is present and contains the value you can use for the Marker request parameter to continue listing your distributions where they left off. dlNextMarker :: Lens' DistributionList (Maybe Text) dlNextMarker = lens _dlNextMarker (\ s a -> s{_dlNextMarker = a}); -- | The value you provided for the Marker request parameter. dlMarker :: Lens' DistributionList Text dlMarker = lens _dlMarker (\ s a -> s{_dlMarker = a}); -- | The value you provided for the MaxItems request parameter. dlMaxItems :: Lens' DistributionList Int dlMaxItems = lens _dlMaxItems (\ s a -> s{_dlMaxItems = a}); -- | A flag that indicates whether more distributions remain to be listed. If your results were truncated, you can make a follow-up pagination request using the Marker request parameter to retrieve more distributions in the list. dlIsTruncated :: Lens' DistributionList Bool dlIsTruncated = lens _dlIsTruncated (\ s a -> s{_dlIsTruncated = a}); -- | The number of distributions that were created by the current AWS account. dlQuantity :: Lens' DistributionList Int dlQuantity = lens _dlQuantity (\ s a -> s{_dlQuantity = a}); instance FromXML DistributionList where parseXML x = DistributionList' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "DistributionSummary")) <*> (x .@? "NextMarker") <*> (x .@ "Marker") <*> (x .@ "MaxItems") <*> (x .@ "IsTruncated") <*> (x .@ "Quantity") instance Hashable DistributionList instance NFData DistributionList -- | A summary of the information for an Amazon CloudFront distribution. -- -- /See:/ 'distributionSummary' smart constructor. data DistributionSummary = DistributionSummary' { _dsId :: !Text , _dsARN :: !Text , _dsStatus :: !Text , _dsLastModifiedTime :: !ISO8601 , _dsDomainName :: !Text , _dsAliases :: !Aliases , _dsOrigins :: !Origins , _dsDefaultCacheBehavior :: !DefaultCacheBehavior , _dsCacheBehaviors :: !CacheBehaviors , _dsCustomErrorResponses :: !CustomErrorResponses , _dsComment :: !Text , _dsPriceClass :: !PriceClass , _dsEnabled :: !Bool , _dsViewerCertificate :: !ViewerCertificate , _dsRestrictions :: !Restrictions , _dsWebACLId :: !Text , _dsHTTPVersion :: !HTTPVersion } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DistributionSummary' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dsId' -- -- * 'dsARN' -- -- * 'dsStatus' -- -- * 'dsLastModifiedTime' -- -- * 'dsDomainName' -- -- * 'dsAliases' -- -- * 'dsOrigins' -- -- * 'dsDefaultCacheBehavior' -- -- * 'dsCacheBehaviors' -- -- * 'dsCustomErrorResponses' -- -- * 'dsComment' -- -- * 'dsPriceClass' -- -- * 'dsEnabled' -- -- * 'dsViewerCertificate' -- -- * 'dsRestrictions' -- -- * 'dsWebACLId' -- -- * 'dsHTTPVersion' distributionSummary :: Text -- ^ 'dsId' -> Text -- ^ 'dsARN' -> Text -- ^ 'dsStatus' -> UTCTime -- ^ 'dsLastModifiedTime' -> Text -- ^ 'dsDomainName' -> Aliases -- ^ 'dsAliases' -> Origins -- ^ 'dsOrigins' -> DefaultCacheBehavior -- ^ 'dsDefaultCacheBehavior' -> CacheBehaviors -- ^ 'dsCacheBehaviors' -> CustomErrorResponses -- ^ 'dsCustomErrorResponses' -> Text -- ^ 'dsComment' -> PriceClass -- ^ 'dsPriceClass' -> Bool -- ^ 'dsEnabled' -> ViewerCertificate -- ^ 'dsViewerCertificate' -> Restrictions -- ^ 'dsRestrictions' -> Text -- ^ 'dsWebACLId' -> HTTPVersion -- ^ 'dsHTTPVersion' -> DistributionSummary distributionSummary pId_ pARN_ pStatus_ pLastModifiedTime_ pDomainName_ pAliases_ pOrigins_ pDefaultCacheBehavior_ pCacheBehaviors_ pCustomErrorResponses_ pComment_ pPriceClass_ pEnabled_ pViewerCertificate_ pRestrictions_ pWebACLId_ pHTTPVersion_ = DistributionSummary' { _dsId = pId_ , _dsARN = pARN_ , _dsStatus = pStatus_ , _dsLastModifiedTime = _Time # pLastModifiedTime_ , _dsDomainName = pDomainName_ , _dsAliases = pAliases_ , _dsOrigins = pOrigins_ , _dsDefaultCacheBehavior = pDefaultCacheBehavior_ , _dsCacheBehaviors = pCacheBehaviors_ , _dsCustomErrorResponses = pCustomErrorResponses_ , _dsComment = pComment_ , _dsPriceClass = pPriceClass_ , _dsEnabled = pEnabled_ , _dsViewerCertificate = pViewerCertificate_ , _dsRestrictions = pRestrictions_ , _dsWebACLId = pWebACLId_ , _dsHTTPVersion = pHTTPVersion_ } -- | The identifier for the distribution. For example: EDFDVBD632BHDS5. dsId :: Lens' DistributionSummary Text dsId = lens _dsId (\ s a -> s{_dsId = a}); -- | The ARN (Amazon Resource Name) for the distribution. For example: arn:aws:cloudfront::123456789012:distribution\/EDFDVBD632BHDS5, where 123456789012 is your AWS account Id. dsARN :: Lens' DistributionSummary Text dsARN = lens _dsARN (\ s a -> s{_dsARN = a}); -- | This response element indicates the current status of the distribution. When the status is Deployed, the distribution\'s information is fully propagated throughout the Amazon CloudFront system. dsStatus :: Lens' DistributionSummary Text dsStatus = lens _dsStatus (\ s a -> s{_dsStatus = a}); -- | The date and time the distribution was last modified. dsLastModifiedTime :: Lens' DistributionSummary UTCTime dsLastModifiedTime = lens _dsLastModifiedTime (\ s a -> s{_dsLastModifiedTime = a}) . _Time; -- | The domain name corresponding to the distribution. For example: d604721fxaaqy9.cloudfront.net. dsDomainName :: Lens' DistributionSummary Text dsDomainName = lens _dsDomainName (\ s a -> s{_dsDomainName = a}); -- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this distribution. dsAliases :: Lens' DistributionSummary Aliases dsAliases = lens _dsAliases (\ s a -> s{_dsAliases = a}); -- | A complex type that contains information about origins for this distribution. dsOrigins :: Lens' DistributionSummary Origins dsOrigins = lens _dsOrigins (\ s a -> s{_dsOrigins = a}); -- | A complex type that describes the default cache behavior if you do not specify a CacheBehavior element or if files don\'t match any of the values of PathPattern in CacheBehavior elements.You must create exactly one default cache behavior. dsDefaultCacheBehavior :: Lens' DistributionSummary DefaultCacheBehavior dsDefaultCacheBehavior = lens _dsDefaultCacheBehavior (\ s a -> s{_dsDefaultCacheBehavior = a}); -- | A complex type that contains zero or more CacheBehavior elements. dsCacheBehaviors :: Lens' DistributionSummary CacheBehaviors dsCacheBehaviors = lens _dsCacheBehaviors (\ s a -> s{_dsCacheBehaviors = a}); -- | A complex type that contains zero or more CustomErrorResponses elements. dsCustomErrorResponses :: Lens' DistributionSummary CustomErrorResponses dsCustomErrorResponses = lens _dsCustomErrorResponses (\ s a -> s{_dsCustomErrorResponses = a}); -- | The comment originally specified when this distribution was created. dsComment :: Lens' DistributionSummary Text dsComment = lens _dsComment (\ s a -> s{_dsComment = a}); -- | Undocumented member. dsPriceClass :: Lens' DistributionSummary PriceClass dsPriceClass = lens _dsPriceClass (\ s a -> s{_dsPriceClass = a}); -- | Whether the distribution is enabled to accept end user requests for content. dsEnabled :: Lens' DistributionSummary Bool dsEnabled = lens _dsEnabled (\ s a -> s{_dsEnabled = a}); -- | Undocumented member. dsViewerCertificate :: Lens' DistributionSummary ViewerCertificate dsViewerCertificate = lens _dsViewerCertificate (\ s a -> s{_dsViewerCertificate = a}); -- | Undocumented member. dsRestrictions :: Lens' DistributionSummary Restrictions dsRestrictions = lens _dsRestrictions (\ s a -> s{_dsRestrictions = a}); -- | The Web ACL Id (if any) associated with the distribution. dsWebACLId :: Lens' DistributionSummary Text dsWebACLId = lens _dsWebACLId (\ s a -> s{_dsWebACLId = a}); -- | Specify the maximum HTTP version that you want viewers to use to communicate with CloudFront. The default value for new web distributions is http2. Viewers that don\'t support HTTP\/2 will automatically use an earlier version. dsHTTPVersion :: Lens' DistributionSummary HTTPVersion dsHTTPVersion = lens _dsHTTPVersion (\ s a -> s{_dsHTTPVersion = a}); instance FromXML DistributionSummary where parseXML x = DistributionSummary' <$> (x .@ "Id") <*> (x .@ "ARN") <*> (x .@ "Status") <*> (x .@ "LastModifiedTime") <*> (x .@ "DomainName") <*> (x .@ "Aliases") <*> (x .@ "Origins") <*> (x .@ "DefaultCacheBehavior") <*> (x .@ "CacheBehaviors") <*> (x .@ "CustomErrorResponses") <*> (x .@ "Comment") <*> (x .@ "PriceClass") <*> (x .@ "Enabled") <*> (x .@ "ViewerCertificate") <*> (x .@ "Restrictions") <*> (x .@ "WebACLId") <*> (x .@ "HttpVersion") instance Hashable DistributionSummary instance NFData DistributionSummary -- | A complex type that specifies how CloudFront handles query strings, cookies and headers. -- -- /See:/ 'forwardedValues' smart constructor. data ForwardedValues = ForwardedValues' { _fvQueryStringCacheKeys :: !(Maybe QueryStringCacheKeys) , _fvHeaders :: !(Maybe Headers) , _fvQueryString :: !Bool , _fvCookies :: !CookiePreference } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ForwardedValues' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'fvQueryStringCacheKeys' -- -- * 'fvHeaders' -- -- * 'fvQueryString' -- -- * 'fvCookies' forwardedValues :: Bool -- ^ 'fvQueryString' -> CookiePreference -- ^ 'fvCookies' -> ForwardedValues forwardedValues pQueryString_ pCookies_ = ForwardedValues' { _fvQueryStringCacheKeys = Nothing , _fvHeaders = Nothing , _fvQueryString = pQueryString_ , _fvCookies = pCookies_ } -- | A complex type that contains information about the query string parameters that you want CloudFront to use for caching for this cache behavior. fvQueryStringCacheKeys :: Lens' ForwardedValues (Maybe QueryStringCacheKeys) fvQueryStringCacheKeys = lens _fvQueryStringCacheKeys (\ s a -> s{_fvQueryStringCacheKeys = a}); -- | A complex type that specifies the Headers, if any, that you want CloudFront to vary upon for this cache behavior. fvHeaders :: Lens' ForwardedValues (Maybe Headers) fvHeaders = lens _fvHeaders (\ s a -> s{_fvHeaders = a}); -- | Indicates whether you want CloudFront to forward query strings to the origin that is associated with this cache behavior and cache based on the query string parameters. CloudFront behavior depends on the value of QueryString and on the values that you specify for QueryStringCacheKeys, if any: -- -- - If you specify true for QueryString and you don\'t specify any values for QueryStringCacheKeys, CloudFront forwards all query string parameters to the origin and caches based on all query string parameters. Depending on how many query string parameters and values you have, this can adversely affect performance because CloudFront must forward more requests to the origin. -- - If you specify true for QueryString and you specify one or more values for QueryStringCacheKeys, CloudFront forwards all query string parameters to the origin, but it only caches based on the query string parameters that you specify. -- - If you specify false for QueryString, CloudFront doesn\'t forward any query string parameters to the origin, and doesn\'t cache based on query string parameters. fvQueryString :: Lens' ForwardedValues Bool fvQueryString = lens _fvQueryString (\ s a -> s{_fvQueryString = a}); -- | A complex type that specifies how CloudFront handles cookies. fvCookies :: Lens' ForwardedValues CookiePreference fvCookies = lens _fvCookies (\ s a -> s{_fvCookies = a}); instance FromXML ForwardedValues where parseXML x = ForwardedValues' <$> (x .@? "QueryStringCacheKeys") <*> (x .@? "Headers") <*> (x .@ "QueryString") <*> (x .@ "Cookies") instance Hashable ForwardedValues instance NFData ForwardedValues instance ToXML ForwardedValues where toXML ForwardedValues'{..} = mconcat ["QueryStringCacheKeys" @= _fvQueryStringCacheKeys, "Headers" @= _fvHeaders, "QueryString" @= _fvQueryString, "Cookies" @= _fvCookies] -- | A complex type that controls the countries in which your content is distributed. For more information about geo restriction, go to Customizing Error Responses in the Amazon CloudFront Developer Guide. CloudFront determines the location of your users using MaxMind GeoIP databases. For information about the accuracy of these databases, see How accurate are your GeoIP databases? on the MaxMind website. -- -- /See:/ 'geoRestriction' smart constructor. data GeoRestriction = GeoRestriction' { _grItems :: !(Maybe [Text]) , _grRestrictionType :: !GeoRestrictionType , _grQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GeoRestriction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'grItems' -- -- * 'grRestrictionType' -- -- * 'grQuantity' geoRestriction :: GeoRestrictionType -- ^ 'grRestrictionType' -> Int -- ^ 'grQuantity' -> GeoRestriction geoRestriction pRestrictionType_ pQuantity_ = GeoRestriction' { _grItems = Nothing , _grRestrictionType = pRestrictionType_ , _grQuantity = pQuantity_ } -- | A complex type that contains a Location element for each country in which you want CloudFront either to distribute your content (whitelist) or not distribute your content (blacklist). The Location element is a two-letter, uppercase country code for a country that you want to include in your blacklist or whitelist. Include one Location element for each country. CloudFront and MaxMind both use ISO 3166 country codes. For the current list of countries and the corresponding codes, see ISO 3166-1-alpha-2 code on the International Organization for Standardization website. You can also refer to the country list in the CloudFront console, which includes both country names and codes. grItems :: Lens' GeoRestriction [Text] grItems = lens _grItems (\ s a -> s{_grItems = a}) . _Default . _Coerce; -- | The method that you want to use to restrict distribution of your content by country: - none: No geo restriction is enabled, meaning access to content is not restricted by client geo location. - blacklist: The Location elements specify the countries in which you do not want CloudFront to distribute your content. - whitelist: The Location elements specify the countries in which you want CloudFront to distribute your content. grRestrictionType :: Lens' GeoRestriction GeoRestrictionType grRestrictionType = lens _grRestrictionType (\ s a -> s{_grRestrictionType = a}); -- | When geo restriction is enabled, this is the number of countries in your whitelist or blacklist. Otherwise, when it is not enabled, Quantity is 0, and you can omit Items. grQuantity :: Lens' GeoRestriction Int grQuantity = lens _grQuantity (\ s a -> s{_grQuantity = a}); instance FromXML GeoRestriction where parseXML x = GeoRestriction' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "Location")) <*> (x .@ "RestrictionType") <*> (x .@ "Quantity") instance Hashable GeoRestriction instance NFData GeoRestriction instance ToXML GeoRestriction where toXML GeoRestriction'{..} = mconcat ["Items" @= toXML (toXMLList "Location" <$> _grItems), "RestrictionType" @= _grRestrictionType, "Quantity" @= _grQuantity] -- | A complex type that specifies the headers that you want CloudFront to forward to the origin for this cache behavior. For the headers that you specify, CloudFront also caches separate versions of a given object based on the header values in viewer requests; this is known as varying on headers. For example, suppose viewer requests for logo.jpg contain a custom Product header that has a value of either Acme or Apex, and you configure CloudFront to vary on the Product header. CloudFront forwards the Product header to the origin and caches the response from the origin once for each header value. -- -- /See:/ 'headers' smart constructor. data Headers = Headers' { _hItems :: !(Maybe [Text]) , _hQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'Headers' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'hItems' -- -- * 'hQuantity' headers :: Int -- ^ 'hQuantity' -> Headers headers pQuantity_ = Headers' { _hItems = Nothing , _hQuantity = pQuantity_ } -- | Optional: A complex type that contains a Name element for each header that you want CloudFront to forward to the origin and to vary on for this cache behavior. If Quantity is 0, omit Items. hItems :: Lens' Headers [Text] hItems = lens _hItems (\ s a -> s{_hItems = a}) . _Default . _Coerce; -- | The number of different headers that you want CloudFront to forward to the origin and to vary on for this cache behavior. The maximum number of headers that you can specify by name is 10. If you want CloudFront to forward all headers to the origin and vary on all of them, specify 1 for Quantity and * for Name. If you don\'t want CloudFront to forward any additional headers to the origin or to vary on any headers, specify 0 for Quantity and omit Items. hQuantity :: Lens' Headers Int hQuantity = lens _hQuantity (\ s a -> s{_hQuantity = a}); instance FromXML Headers where parseXML x = Headers' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "Name")) <*> (x .@ "Quantity") instance Hashable Headers instance NFData Headers instance ToXML Headers where toXML Headers'{..} = mconcat ["Items" @= toXML (toXMLList "Name" <$> _hItems), "Quantity" @= _hQuantity] -- | An invalidation. -- -- /See:/ 'invalidation' smart constructor. data Invalidation = Invalidation' { _iId :: !Text , _iStatus :: !Text , _iCreateTime :: !ISO8601 , _iInvalidationBatch :: !InvalidationBatch } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'Invalidation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'iId' -- -- * 'iStatus' -- -- * 'iCreateTime' -- -- * 'iInvalidationBatch' invalidation :: Text -- ^ 'iId' -> Text -- ^ 'iStatus' -> UTCTime -- ^ 'iCreateTime' -> InvalidationBatch -- ^ 'iInvalidationBatch' -> Invalidation invalidation pId_ pStatus_ pCreateTime_ pInvalidationBatch_ = Invalidation' { _iId = pId_ , _iStatus = pStatus_ , _iCreateTime = _Time # pCreateTime_ , _iInvalidationBatch = pInvalidationBatch_ } -- | The identifier for the invalidation request. For example: IDFDVBD632BHDS5. iId :: Lens' Invalidation Text iId = lens _iId (\ s a -> s{_iId = a}); -- | The status of the invalidation request. When the invalidation batch is finished, the status is Completed. iStatus :: Lens' Invalidation Text iStatus = lens _iStatus (\ s a -> s{_iStatus = a}); -- | The date and time the invalidation request was first made. iCreateTime :: Lens' Invalidation UTCTime iCreateTime = lens _iCreateTime (\ s a -> s{_iCreateTime = a}) . _Time; -- | The current invalidation information for the batch request. iInvalidationBatch :: Lens' Invalidation InvalidationBatch iInvalidationBatch = lens _iInvalidationBatch (\ s a -> s{_iInvalidationBatch = a}); instance FromXML Invalidation where parseXML x = Invalidation' <$> (x .@ "Id") <*> (x .@ "Status") <*> (x .@ "CreateTime") <*> (x .@ "InvalidationBatch") instance Hashable Invalidation instance NFData Invalidation -- | An invalidation batch. -- -- /See:/ 'invalidationBatch' smart constructor. data InvalidationBatch = InvalidationBatch' { _ibPaths :: !Paths , _ibCallerReference :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'InvalidationBatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ibPaths' -- -- * 'ibCallerReference' invalidationBatch :: Paths -- ^ 'ibPaths' -> Text -- ^ 'ibCallerReference' -> InvalidationBatch invalidationBatch pPaths_ pCallerReference_ = InvalidationBatch' { _ibPaths = pPaths_ , _ibCallerReference = pCallerReference_ } -- | The path of the object to invalidate. The path is relative to the distribution and must begin with a slash (\/). You must enclose each invalidation object with the Path element tags. If the path includes non-ASCII characters or unsafe characters as defined in RFC 1783 (http:\/\/www.ietf.org\/rfc\/rfc1738.txt), URL encode those characters. Do not URL encode any other characters in the path, or CloudFront will not invalidate the old version of the updated object. ibPaths :: Lens' InvalidationBatch Paths ibPaths = lens _ibPaths (\ s a -> s{_ibPaths = a}); -- | A unique name that ensures the request can\'t be replayed. If the CallerReference is new (no matter the content of the Path object), a new distribution is created. If the CallerReference is a value you already sent in a previous request to create an invalidation batch, and the content of each Path element is identical to the original request, the response includes the same information returned to the original request. If the CallerReference is a value you already sent in a previous request to create a distribution but the content of any Path is different from the original request, CloudFront returns an InvalidationBatchAlreadyExists error. ibCallerReference :: Lens' InvalidationBatch Text ibCallerReference = lens _ibCallerReference (\ s a -> s{_ibCallerReference = a}); instance FromXML InvalidationBatch where parseXML x = InvalidationBatch' <$> (x .@ "Paths") <*> (x .@ "CallerReference") instance Hashable InvalidationBatch instance NFData InvalidationBatch instance ToXML InvalidationBatch where toXML InvalidationBatch'{..} = mconcat ["Paths" @= _ibPaths, "CallerReference" @= _ibCallerReference] -- | An invalidation list. -- -- /See:/ 'invalidationList' smart constructor. data InvalidationList = InvalidationList' { _ilItems :: !(Maybe [InvalidationSummary]) , _ilNextMarker :: !(Maybe Text) , _ilMarker :: !Text , _ilMaxItems :: !Int , _ilIsTruncated :: !Bool , _ilQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'InvalidationList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ilItems' -- -- * 'ilNextMarker' -- -- * 'ilMarker' -- -- * 'ilMaxItems' -- -- * 'ilIsTruncated' -- -- * 'ilQuantity' invalidationList :: Text -- ^ 'ilMarker' -> Int -- ^ 'ilMaxItems' -> Bool -- ^ 'ilIsTruncated' -> Int -- ^ 'ilQuantity' -> InvalidationList invalidationList pMarker_ pMaxItems_ pIsTruncated_ pQuantity_ = InvalidationList' { _ilItems = Nothing , _ilNextMarker = Nothing , _ilMarker = pMarker_ , _ilMaxItems = pMaxItems_ , _ilIsTruncated = pIsTruncated_ , _ilQuantity = pQuantity_ } -- | A complex type that contains one InvalidationSummary element for each invalidation batch that was created by the current AWS account. ilItems :: Lens' InvalidationList [InvalidationSummary] ilItems = lens _ilItems (\ s a -> s{_ilItems = a}) . _Default . _Coerce; -- | If IsTruncated is true, this element is present and contains the value you can use for the Marker request parameter to continue listing your invalidation batches where they left off. ilNextMarker :: Lens' InvalidationList (Maybe Text) ilNextMarker = lens _ilNextMarker (\ s a -> s{_ilNextMarker = a}); -- | The value you provided for the Marker request parameter. ilMarker :: Lens' InvalidationList Text ilMarker = lens _ilMarker (\ s a -> s{_ilMarker = a}); -- | The value you provided for the MaxItems request parameter. ilMaxItems :: Lens' InvalidationList Int ilMaxItems = lens _ilMaxItems (\ s a -> s{_ilMaxItems = a}); -- | A flag that indicates whether more invalidation batch requests remain to be listed. If your results were truncated, you can make a follow-up pagination request using the Marker request parameter to retrieve more invalidation batches in the list. ilIsTruncated :: Lens' InvalidationList Bool ilIsTruncated = lens _ilIsTruncated (\ s a -> s{_ilIsTruncated = a}); -- | The number of invalidation batches that were created by the current AWS account. ilQuantity :: Lens' InvalidationList Int ilQuantity = lens _ilQuantity (\ s a -> s{_ilQuantity = a}); instance FromXML InvalidationList where parseXML x = InvalidationList' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "InvalidationSummary")) <*> (x .@? "NextMarker") <*> (x .@ "Marker") <*> (x .@ "MaxItems") <*> (x .@ "IsTruncated") <*> (x .@ "Quantity") instance Hashable InvalidationList instance NFData InvalidationList -- | Summary of an invalidation request. -- -- /See:/ 'invalidationSummary' smart constructor. data InvalidationSummary = InvalidationSummary' { _isId :: !Text , _isCreateTime :: !ISO8601 , _isStatus :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'InvalidationSummary' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'isId' -- -- * 'isCreateTime' -- -- * 'isStatus' invalidationSummary :: Text -- ^ 'isId' -> UTCTime -- ^ 'isCreateTime' -> Text -- ^ 'isStatus' -> InvalidationSummary invalidationSummary pId_ pCreateTime_ pStatus_ = InvalidationSummary' { _isId = pId_ , _isCreateTime = _Time # pCreateTime_ , _isStatus = pStatus_ } -- | The unique ID for an invalidation request. isId :: Lens' InvalidationSummary Text isId = lens _isId (\ s a -> s{_isId = a}); -- | Undocumented member. isCreateTime :: Lens' InvalidationSummary UTCTime isCreateTime = lens _isCreateTime (\ s a -> s{_isCreateTime = a}) . _Time; -- | The status of an invalidation request. isStatus :: Lens' InvalidationSummary Text isStatus = lens _isStatus (\ s a -> s{_isStatus = a}); instance FromXML InvalidationSummary where parseXML x = InvalidationSummary' <$> (x .@ "Id") <*> (x .@ "CreateTime") <*> (x .@ "Status") instance Hashable InvalidationSummary instance NFData InvalidationSummary -- | A complex type that lists the active CloudFront key pairs, if any, that are associated with AwsAccountNumber. -- -- /See:/ 'keyPairIds' smart constructor. data KeyPairIds = KeyPairIds' { _kpiItems :: !(Maybe [Text]) , _kpiQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'KeyPairIds' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'kpiItems' -- -- * 'kpiQuantity' keyPairIds :: Int -- ^ 'kpiQuantity' -> KeyPairIds keyPairIds pQuantity_ = KeyPairIds' { _kpiItems = Nothing , _kpiQuantity = pQuantity_ } -- | A complex type that lists the active CloudFront key pairs, if any, that are associated with AwsAccountNumber. kpiItems :: Lens' KeyPairIds [Text] kpiItems = lens _kpiItems (\ s a -> s{_kpiItems = a}) . _Default . _Coerce; -- | The number of active CloudFront key pairs for AwsAccountNumber. kpiQuantity :: Lens' KeyPairIds Int kpiQuantity = lens _kpiQuantity (\ s a -> s{_kpiQuantity = a}); instance FromXML KeyPairIds where parseXML x = KeyPairIds' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "KeyPairId")) <*> (x .@ "Quantity") instance Hashable KeyPairIds instance NFData KeyPairIds -- | A complex type that controls whether access logs are written for the distribution. -- -- /See:/ 'loggingConfig' smart constructor. data LoggingConfig = LoggingConfig' { _lcEnabled :: !Bool , _lcIncludeCookies :: !Bool , _lcBucket :: !Text , _lcPrefix :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'LoggingConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'lcEnabled' -- -- * 'lcIncludeCookies' -- -- * 'lcBucket' -- -- * 'lcPrefix' loggingConfig :: Bool -- ^ 'lcEnabled' -> Bool -- ^ 'lcIncludeCookies' -> Text -- ^ 'lcBucket' -> Text -- ^ 'lcPrefix' -> LoggingConfig loggingConfig pEnabled_ pIncludeCookies_ pBucket_ pPrefix_ = LoggingConfig' { _lcEnabled = pEnabled_ , _lcIncludeCookies = pIncludeCookies_ , _lcBucket = pBucket_ , _lcPrefix = pPrefix_ } -- | Specifies whether you want CloudFront to save access logs to an Amazon S3 bucket. If you do not want to enable logging when you create a distribution or if you want to disable logging for an existing distribution, specify false for Enabled, and specify empty Bucket and Prefix elements. If you specify false for Enabled but you specify values for Bucket, prefix and IncludeCookies, the values are automatically deleted. lcEnabled :: Lens' LoggingConfig Bool lcEnabled = lens _lcEnabled (\ s a -> s{_lcEnabled = a}); -- | Specifies whether you want CloudFront to include cookies in access logs, specify true for IncludeCookies. If you choose to include cookies in logs, CloudFront logs all cookies regardless of how you configure the cache behaviors for this distribution. If you do not want to include cookies when you create a distribution or if you want to disable include cookies for an existing distribution, specify false for IncludeCookies. lcIncludeCookies :: Lens' LoggingConfig Bool lcIncludeCookies = lens _lcIncludeCookies (\ s a -> s{_lcIncludeCookies = a}); -- | The Amazon S3 bucket to store the access logs in, for example, myawslogbucket.s3.amazonaws.com. lcBucket :: Lens' LoggingConfig Text lcBucket = lens _lcBucket (\ s a -> s{_lcBucket = a}); -- | An optional string that you want CloudFront to prefix to the access log filenames for this distribution, for example, myprefix\/. If you want to enable logging, but you do not want to specify a prefix, you still must include an empty Prefix element in the Logging element. lcPrefix :: Lens' LoggingConfig Text lcPrefix = lens _lcPrefix (\ s a -> s{_lcPrefix = a}); instance FromXML LoggingConfig where parseXML x = LoggingConfig' <$> (x .@ "Enabled") <*> (x .@ "IncludeCookies") <*> (x .@ "Bucket") <*> (x .@ "Prefix") instance Hashable LoggingConfig instance NFData LoggingConfig instance ToXML LoggingConfig where toXML LoggingConfig'{..} = mconcat ["Enabled" @= _lcEnabled, "IncludeCookies" @= _lcIncludeCookies, "Bucket" @= _lcBucket, "Prefix" @= _lcPrefix] -- | A complex type that describes the Amazon S3 bucket or the HTTP server (for example, a web server) from which CloudFront gets your files.You must create at least one origin. -- -- /See:/ 'origin' smart constructor. data Origin = Origin' { _oCustomHeaders :: !(Maybe CustomHeaders) , _oCustomOriginConfig :: !(Maybe CustomOriginConfig) , _oS3OriginConfig :: !(Maybe S3OriginConfig) , _oOriginPath :: !(Maybe Text) , _oId :: !Text , _oDomainName :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'Origin' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'oCustomHeaders' -- -- * 'oCustomOriginConfig' -- -- * 'oS3OriginConfig' -- -- * 'oOriginPath' -- -- * 'oId' -- -- * 'oDomainName' origin :: Text -- ^ 'oId' -> Text -- ^ 'oDomainName' -> Origin origin pId_ pDomainName_ = Origin' { _oCustomHeaders = Nothing , _oCustomOriginConfig = Nothing , _oS3OriginConfig = Nothing , _oOriginPath = Nothing , _oId = pId_ , _oDomainName = pDomainName_ } -- | A complex type that contains information about the custom headers associated with this Origin. oCustomHeaders :: Lens' Origin (Maybe CustomHeaders) oCustomHeaders = lens _oCustomHeaders (\ s a -> s{_oCustomHeaders = a}); -- | A complex type that contains information about a custom origin. If the origin is an Amazon S3 bucket, use the S3OriginConfig element instead. oCustomOriginConfig :: Lens' Origin (Maybe CustomOriginConfig) oCustomOriginConfig = lens _oCustomOriginConfig (\ s a -> s{_oCustomOriginConfig = a}); -- | A complex type that contains information about the Amazon S3 origin. If the origin is a custom origin, use the CustomOriginConfig element instead. oS3OriginConfig :: Lens' Origin (Maybe S3OriginConfig) oS3OriginConfig = lens _oS3OriginConfig (\ s a -> s{_oS3OriginConfig = a}); -- | An optional element that causes CloudFront to request your content from a directory in your Amazon S3 bucket or your custom origin. When you include the OriginPath element, specify the directory name, beginning with a \/. CloudFront appends the directory name to the value of DomainName. oOriginPath :: Lens' Origin (Maybe Text) oOriginPath = lens _oOriginPath (\ s a -> s{_oOriginPath = a}); -- | A unique identifier for the origin. The value of Id must be unique within the distribution. You use the value of Id when you create a cache behavior. The Id identifies the origin that CloudFront routes a request to when the request matches the path pattern for that cache behavior. oId :: Lens' Origin Text oId = lens _oId (\ s a -> s{_oId = a}); -- | Amazon S3 origins: The DNS name of the Amazon S3 bucket from which you want CloudFront to get objects for this origin, for example, myawsbucket.s3.amazonaws.com. Custom origins: The DNS domain name for the HTTP server from which you want CloudFront to get objects for this origin, for example, www.example.com. oDomainName :: Lens' Origin Text oDomainName = lens _oDomainName (\ s a -> s{_oDomainName = a}); instance FromXML Origin where parseXML x = Origin' <$> (x .@? "CustomHeaders") <*> (x .@? "CustomOriginConfig") <*> (x .@? "S3OriginConfig") <*> (x .@? "OriginPath") <*> (x .@ "Id") <*> (x .@ "DomainName") instance Hashable Origin instance NFData Origin instance ToXML Origin where toXML Origin'{..} = mconcat ["CustomHeaders" @= _oCustomHeaders, "CustomOriginConfig" @= _oCustomOriginConfig, "S3OriginConfig" @= _oS3OriginConfig, "OriginPath" @= _oOriginPath, "Id" @= _oId, "DomainName" @= _oDomainName] -- | A complex type that contains information related to a Header -- -- /See:/ 'originCustomHeader' smart constructor. data OriginCustomHeader = OriginCustomHeader' { _ochHeaderName :: !Text , _ochHeaderValue :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'OriginCustomHeader' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ochHeaderName' -- -- * 'ochHeaderValue' originCustomHeader :: Text -- ^ 'ochHeaderName' -> Text -- ^ 'ochHeaderValue' -> OriginCustomHeader originCustomHeader pHeaderName_ pHeaderValue_ = OriginCustomHeader' { _ochHeaderName = pHeaderName_ , _ochHeaderValue = pHeaderValue_ } -- | The header\'s name. ochHeaderName :: Lens' OriginCustomHeader Text ochHeaderName = lens _ochHeaderName (\ s a -> s{_ochHeaderName = a}); -- | The header\'s value. ochHeaderValue :: Lens' OriginCustomHeader Text ochHeaderValue = lens _ochHeaderValue (\ s a -> s{_ochHeaderValue = a}); instance FromXML OriginCustomHeader where parseXML x = OriginCustomHeader' <$> (x .@ "HeaderName") <*> (x .@ "HeaderValue") instance Hashable OriginCustomHeader instance NFData OriginCustomHeader instance ToXML OriginCustomHeader where toXML OriginCustomHeader'{..} = mconcat ["HeaderName" @= _ochHeaderName, "HeaderValue" @= _ochHeaderValue] -- | A complex type that contains the list of SSL\/TLS protocols that you want CloudFront to use when communicating with your origin over HTTPS. -- -- /See:/ 'originSSLProtocols' smart constructor. data OriginSSLProtocols = OriginSSLProtocols' { _ospQuantity :: !Int , _ospItems :: ![SSLProtocol] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'OriginSSLProtocols' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ospQuantity' -- -- * 'ospItems' originSSLProtocols :: Int -- ^ 'ospQuantity' -> OriginSSLProtocols originSSLProtocols pQuantity_ = OriginSSLProtocols' { _ospQuantity = pQuantity_ , _ospItems = mempty } -- | The number of SSL\/TLS protocols that you want to allow CloudFront to use when establishing an HTTPS connection with this origin. ospQuantity :: Lens' OriginSSLProtocols Int ospQuantity = lens _ospQuantity (\ s a -> s{_ospQuantity = a}); -- | A complex type that contains one SslProtocol element for each SSL\/TLS protocol that you want to allow CloudFront to use when establishing an HTTPS connection with this origin. ospItems :: Lens' OriginSSLProtocols [SSLProtocol] ospItems = lens _ospItems (\ s a -> s{_ospItems = a}) . _Coerce; instance FromXML OriginSSLProtocols where parseXML x = OriginSSLProtocols' <$> (x .@ "Quantity") <*> (x .@? "Items" .!@ mempty >>= parseXMLList "SslProtocol") instance Hashable OriginSSLProtocols instance NFData OriginSSLProtocols instance ToXML OriginSSLProtocols where toXML OriginSSLProtocols'{..} = mconcat ["Quantity" @= _ospQuantity, "Items" @= toXMLList "SslProtocol" _ospItems] -- | A complex type that contains information about origins for this distribution. -- -- /See:/ 'origins' smart constructor. data Origins = Origins' { _oItems :: !(Maybe (List1 Origin)) , _oQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'Origins' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'oItems' -- -- * 'oQuantity' origins :: Int -- ^ 'oQuantity' -> Origins origins pQuantity_ = Origins' { _oItems = Nothing , _oQuantity = pQuantity_ } -- | A complex type that contains origins for this distribution. oItems :: Lens' Origins (Maybe (NonEmpty Origin)) oItems = lens _oItems (\ s a -> s{_oItems = a}) . mapping _List1; -- | The number of origins for this distribution. oQuantity :: Lens' Origins Int oQuantity = lens _oQuantity (\ s a -> s{_oQuantity = a}); instance FromXML Origins where parseXML x = Origins' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList1 "Origin")) <*> (x .@ "Quantity") instance Hashable Origins instance NFData Origins instance ToXML Origins where toXML Origins'{..} = mconcat ["Items" @= toXML (toXMLList "Origin" <$> _oItems), "Quantity" @= _oQuantity] -- | A complex type that contains information about the objects that you want to invalidate. -- -- /See:/ 'paths' smart constructor. data Paths = Paths' { _pItems :: !(Maybe [Text]) , _pQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'Paths' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'pItems' -- -- * 'pQuantity' paths :: Int -- ^ 'pQuantity' -> Paths paths pQuantity_ = Paths' { _pItems = Nothing , _pQuantity = pQuantity_ } -- | A complex type that contains a list of the objects that you want to invalidate. pItems :: Lens' Paths [Text] pItems = lens _pItems (\ s a -> s{_pItems = a}) . _Default . _Coerce; -- | The number of objects that you want to invalidate. pQuantity :: Lens' Paths Int pQuantity = lens _pQuantity (\ s a -> s{_pQuantity = a}); instance FromXML Paths where parseXML x = Paths' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "Path")) <*> (x .@ "Quantity") instance Hashable Paths instance NFData Paths instance ToXML Paths where toXML Paths'{..} = mconcat ["Items" @= toXML (toXMLList "Path" <$> _pItems), "Quantity" @= _pQuantity] -- | /See:/ 'queryStringCacheKeys' smart constructor. data QueryStringCacheKeys = QueryStringCacheKeys' { _qsckItems :: !(Maybe [Text]) , _qsckQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'QueryStringCacheKeys' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'qsckItems' -- -- * 'qsckQuantity' queryStringCacheKeys :: Int -- ^ 'qsckQuantity' -> QueryStringCacheKeys queryStringCacheKeys pQuantity_ = QueryStringCacheKeys' { _qsckItems = Nothing , _qsckQuantity = pQuantity_ } -- | Optional: A list that contains the query string parameters that you want CloudFront to use as a basis for caching for this cache behavior. If Quantity is 0, you can omit Items. qsckItems :: Lens' QueryStringCacheKeys [Text] qsckItems = lens _qsckItems (\ s a -> s{_qsckItems = a}) . _Default . _Coerce; -- | The number of whitelisted query string parameters for this cache behavior. qsckQuantity :: Lens' QueryStringCacheKeys Int qsckQuantity = lens _qsckQuantity (\ s a -> s{_qsckQuantity = a}); instance FromXML QueryStringCacheKeys where parseXML x = QueryStringCacheKeys' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "Name")) <*> (x .@ "Quantity") instance Hashable QueryStringCacheKeys instance NFData QueryStringCacheKeys instance ToXML QueryStringCacheKeys where toXML QueryStringCacheKeys'{..} = mconcat ["Items" @= toXML (toXMLList "Name" <$> _qsckItems), "Quantity" @= _qsckQuantity] -- | A complex type that identifies ways in which you want to restrict distribution of your content. -- -- /See:/ 'restrictions' smart constructor. newtype Restrictions = Restrictions' { _rGeoRestriction :: GeoRestriction } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'Restrictions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'rGeoRestriction' restrictions :: GeoRestriction -- ^ 'rGeoRestriction' -> Restrictions restrictions pGeoRestriction_ = Restrictions' { _rGeoRestriction = pGeoRestriction_ } -- | Undocumented member. rGeoRestriction :: Lens' Restrictions GeoRestriction rGeoRestriction = lens _rGeoRestriction (\ s a -> s{_rGeoRestriction = a}); instance FromXML Restrictions where parseXML x = Restrictions' <$> (x .@ "GeoRestriction") instance Hashable Restrictions instance NFData Restrictions instance ToXML Restrictions where toXML Restrictions'{..} = mconcat ["GeoRestriction" @= _rGeoRestriction] -- | A complex type that contains information about the Amazon S3 bucket from which you want CloudFront to get your media files for distribution. -- -- /See:/ 's3Origin' smart constructor. data S3Origin = S3Origin' { _soDomainName :: !Text , _soOriginAccessIdentity :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'S3Origin' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'soDomainName' -- -- * 'soOriginAccessIdentity' s3Origin :: Text -- ^ 'soDomainName' -> Text -- ^ 'soOriginAccessIdentity' -> S3Origin s3Origin pDomainName_ pOriginAccessIdentity_ = S3Origin' { _soDomainName = pDomainName_ , _soOriginAccessIdentity = pOriginAccessIdentity_ } -- | The DNS name of the S3 origin. soDomainName :: Lens' S3Origin Text soDomainName = lens _soDomainName (\ s a -> s{_soDomainName = a}); -- | Your S3 origin\'s origin access identity. soOriginAccessIdentity :: Lens' S3Origin Text soOriginAccessIdentity = lens _soOriginAccessIdentity (\ s a -> s{_soOriginAccessIdentity = a}); instance FromXML S3Origin where parseXML x = S3Origin' <$> (x .@ "DomainName") <*> (x .@ "OriginAccessIdentity") instance Hashable S3Origin instance NFData S3Origin instance ToXML S3Origin where toXML S3Origin'{..} = mconcat ["DomainName" @= _soDomainName, "OriginAccessIdentity" @= _soOriginAccessIdentity] -- | A complex type that contains information about the Amazon S3 origin. If the origin is a custom origin, use the CustomOriginConfig element instead. -- -- /See:/ 's3OriginConfig' smart constructor. newtype S3OriginConfig = S3OriginConfig' { _socOriginAccessIdentity :: Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'S3OriginConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'socOriginAccessIdentity' s3OriginConfig :: Text -- ^ 'socOriginAccessIdentity' -> S3OriginConfig s3OriginConfig pOriginAccessIdentity_ = S3OriginConfig' { _socOriginAccessIdentity = pOriginAccessIdentity_ } -- | The CloudFront origin access identity to associate with the origin. Use an origin access identity to configure the origin so that end users can only access objects in an Amazon S3 bucket through CloudFront. If you want end users to be able to access objects using either the CloudFront URL or the Amazon S3 URL, specify an empty OriginAccessIdentity element. To delete the origin access identity from an existing distribution, update the distribution configuration and include an empty OriginAccessIdentity element. To replace the origin access identity, update the distribution configuration and specify the new origin access identity. Use the format origin-access-identity\/cloudfront\/Id where Id is the value that CloudFront returned in the Id element when you created the origin access identity. socOriginAccessIdentity :: Lens' S3OriginConfig Text socOriginAccessIdentity = lens _socOriginAccessIdentity (\ s a -> s{_socOriginAccessIdentity = a}); instance FromXML S3OriginConfig where parseXML x = S3OriginConfig' <$> (x .@ "OriginAccessIdentity") instance Hashable S3OriginConfig instance NFData S3OriginConfig instance ToXML S3OriginConfig where toXML S3OriginConfig'{..} = mconcat ["OriginAccessIdentity" @= _socOriginAccessIdentity] -- | A complex type that lists the AWS accounts that were included in the TrustedSigners complex type, as well as their active CloudFront key pair IDs, if any. -- -- /See:/ 'signer' smart constructor. data Signer = Signer' { _sAWSAccountNumber :: !(Maybe Text) , _sKeyPairIds :: !(Maybe KeyPairIds) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'Signer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'sAWSAccountNumber' -- -- * 'sKeyPairIds' signer :: Signer signer = Signer' { _sAWSAccountNumber = Nothing , _sKeyPairIds = Nothing } -- | Specifies an AWS account that can create signed URLs. Values: self, which indicates that the AWS account that was used to create the distribution can created signed URLs, or an AWS account number. Omit the dashes in the account number. sAWSAccountNumber :: Lens' Signer (Maybe Text) sAWSAccountNumber = lens _sAWSAccountNumber (\ s a -> s{_sAWSAccountNumber = a}); -- | A complex type that lists the active CloudFront key pairs, if any, that are associated with AwsAccountNumber. sKeyPairIds :: Lens' Signer (Maybe KeyPairIds) sKeyPairIds = lens _sKeyPairIds (\ s a -> s{_sKeyPairIds = a}); instance FromXML Signer where parseXML x = Signer' <$> (x .@? "AwsAccountNumber") <*> (x .@? "KeyPairIds") instance Hashable Signer instance NFData Signer -- | A streaming distribution. -- -- /See:/ 'streamingDistribution' smart constructor. data StreamingDistribution = StreamingDistribution' { _sdLastModifiedTime :: !(Maybe ISO8601) , _sdId :: !Text , _sdARN :: !Text , _sdStatus :: !Text , _sdDomainName :: !Text , _sdActiveTrustedSigners :: !ActiveTrustedSigners , _sdStreamingDistributionConfig :: !StreamingDistributionConfig } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'StreamingDistribution' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'sdLastModifiedTime' -- -- * 'sdId' -- -- * 'sdARN' -- -- * 'sdStatus' -- -- * 'sdDomainName' -- -- * 'sdActiveTrustedSigners' -- -- * 'sdStreamingDistributionConfig' streamingDistribution :: Text -- ^ 'sdId' -> Text -- ^ 'sdARN' -> Text -- ^ 'sdStatus' -> Text -- ^ 'sdDomainName' -> ActiveTrustedSigners -- ^ 'sdActiveTrustedSigners' -> StreamingDistributionConfig -- ^ 'sdStreamingDistributionConfig' -> StreamingDistribution streamingDistribution pId_ pARN_ pStatus_ pDomainName_ pActiveTrustedSigners_ pStreamingDistributionConfig_ = StreamingDistribution' { _sdLastModifiedTime = Nothing , _sdId = pId_ , _sdARN = pARN_ , _sdStatus = pStatus_ , _sdDomainName = pDomainName_ , _sdActiveTrustedSigners = pActiveTrustedSigners_ , _sdStreamingDistributionConfig = pStreamingDistributionConfig_ } -- | The date and time the distribution was last modified. sdLastModifiedTime :: Lens' StreamingDistribution (Maybe UTCTime) sdLastModifiedTime = lens _sdLastModifiedTime (\ s a -> s{_sdLastModifiedTime = a}) . mapping _Time; -- | The identifier for the streaming distribution. For example: EGTXBD79H29TRA8. sdId :: Lens' StreamingDistribution Text sdId = lens _sdId (\ s a -> s{_sdId = a}); -- | The ARN (Amazon Resource Name) for the streaming distribution. For example: arn:aws:cloudfront::123456789012:streaming-distribution\/EDFDVBD632BHDS5, where 123456789012 is your AWS account Id. sdARN :: Lens' StreamingDistribution Text sdARN = lens _sdARN (\ s a -> s{_sdARN = a}); -- | The current status of the streaming distribution. When the status is Deployed, the distribution\'s information is fully propagated throughout the Amazon CloudFront system. sdStatus :: Lens' StreamingDistribution Text sdStatus = lens _sdStatus (\ s a -> s{_sdStatus = a}); -- | The domain name corresponding to the streaming distribution. For example: s5c39gqb8ow64r.cloudfront.net. sdDomainName :: Lens' StreamingDistribution Text sdDomainName = lens _sdDomainName (\ s a -> s{_sdDomainName = a}); -- | CloudFront automatically adds this element to the response only if you\'ve set up the distribution to serve private content with signed URLs. The element lists the key pair IDs that CloudFront is aware of for each trusted signer. The Signer child element lists the AWS account number of the trusted signer (or an empty Self element if the signer is you). The Signer element also includes the IDs of any active key pairs associated with the trusted signer\'s AWS account. If no KeyPairId element appears for a Signer, that signer can\'t create working signed URLs. sdActiveTrustedSigners :: Lens' StreamingDistribution ActiveTrustedSigners sdActiveTrustedSigners = lens _sdActiveTrustedSigners (\ s a -> s{_sdActiveTrustedSigners = a}); -- | The current configuration information for the streaming distribution. sdStreamingDistributionConfig :: Lens' StreamingDistribution StreamingDistributionConfig sdStreamingDistributionConfig = lens _sdStreamingDistributionConfig (\ s a -> s{_sdStreamingDistributionConfig = a}); instance FromXML StreamingDistribution where parseXML x = StreamingDistribution' <$> (x .@? "LastModifiedTime") <*> (x .@ "Id") <*> (x .@ "ARN") <*> (x .@ "Status") <*> (x .@ "DomainName") <*> (x .@ "ActiveTrustedSigners") <*> (x .@ "StreamingDistributionConfig") instance Hashable StreamingDistribution instance NFData StreamingDistribution -- | The configuration for the streaming distribution. -- -- /See:/ 'streamingDistributionConfig' smart constructor. data StreamingDistributionConfig = StreamingDistributionConfig' { _sdcAliases :: !(Maybe Aliases) , _sdcPriceClass :: !(Maybe PriceClass) , _sdcLogging :: !(Maybe StreamingLoggingConfig) , _sdcCallerReference :: !Text , _sdcS3Origin :: !S3Origin , _sdcComment :: !Text , _sdcTrustedSigners :: !TrustedSigners , _sdcEnabled :: !Bool } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'StreamingDistributionConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'sdcAliases' -- -- * 'sdcPriceClass' -- -- * 'sdcLogging' -- -- * 'sdcCallerReference' -- -- * 'sdcS3Origin' -- -- * 'sdcComment' -- -- * 'sdcTrustedSigners' -- -- * 'sdcEnabled' streamingDistributionConfig :: Text -- ^ 'sdcCallerReference' -> S3Origin -- ^ 'sdcS3Origin' -> Text -- ^ 'sdcComment' -> TrustedSigners -- ^ 'sdcTrustedSigners' -> Bool -- ^ 'sdcEnabled' -> StreamingDistributionConfig streamingDistributionConfig pCallerReference_ pS3Origin_ pComment_ pTrustedSigners_ pEnabled_ = StreamingDistributionConfig' { _sdcAliases = Nothing , _sdcPriceClass = Nothing , _sdcLogging = Nothing , _sdcCallerReference = pCallerReference_ , _sdcS3Origin = pS3Origin_ , _sdcComment = pComment_ , _sdcTrustedSigners = pTrustedSigners_ , _sdcEnabled = pEnabled_ } -- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this streaming distribution. sdcAliases :: Lens' StreamingDistributionConfig (Maybe Aliases) sdcAliases = lens _sdcAliases (\ s a -> s{_sdcAliases = a}); -- | A complex type that contains information about price class for this streaming distribution. sdcPriceClass :: Lens' StreamingDistributionConfig (Maybe PriceClass) sdcPriceClass = lens _sdcPriceClass (\ s a -> s{_sdcPriceClass = a}); -- | A complex type that controls whether access logs are written for the streaming distribution. sdcLogging :: Lens' StreamingDistributionConfig (Maybe StreamingLoggingConfig) sdcLogging = lens _sdcLogging (\ s a -> s{_sdcLogging = a}); -- | A unique number that ensures the request can\'t be replayed. If the CallerReference is new (no matter the content of the StreamingDistributionConfig object), a new streaming distribution is created. If the CallerReference is a value you already sent in a previous request to create a streaming distribution, and the content of the StreamingDistributionConfig is identical to the original request (ignoring white space), the response includes the same information returned to the original request. If the CallerReference is a value you already sent in a previous request to create a streaming distribution but the content of the StreamingDistributionConfig is different from the original request, CloudFront returns a DistributionAlreadyExists error. sdcCallerReference :: Lens' StreamingDistributionConfig Text sdcCallerReference = lens _sdcCallerReference (\ s a -> s{_sdcCallerReference = a}); -- | A complex type that contains information about the Amazon S3 bucket from which you want CloudFront to get your media files for distribution. sdcS3Origin :: Lens' StreamingDistributionConfig S3Origin sdcS3Origin = lens _sdcS3Origin (\ s a -> s{_sdcS3Origin = a}); -- | Any comments you want to include about the streaming distribution. sdcComment :: Lens' StreamingDistributionConfig Text sdcComment = lens _sdcComment (\ s a -> s{_sdcComment = a}); -- | A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the PathPattern for this cache behavior, specify true for Enabled, and specify the applicable values for Quantity and Items. For more information, go to Using a Signed URL to Serve Private Content in the Amazon CloudFront Developer Guide. If you don\'t want to require signed URLs in requests for objects that match PathPattern, specify false for Enabled and 0 for Quantity. Omit Items. To add, change, or remove one or more trusted signers, change Enabled to true (if it\'s currently false), change Quantity as applicable, and specify all of the trusted signers that you want to include in the updated distribution. sdcTrustedSigners :: Lens' StreamingDistributionConfig TrustedSigners sdcTrustedSigners = lens _sdcTrustedSigners (\ s a -> s{_sdcTrustedSigners = a}); -- | Whether the streaming distribution is enabled to accept end user requests for content. sdcEnabled :: Lens' StreamingDistributionConfig Bool sdcEnabled = lens _sdcEnabled (\ s a -> s{_sdcEnabled = a}); instance FromXML StreamingDistributionConfig where parseXML x = StreamingDistributionConfig' <$> (x .@? "Aliases") <*> (x .@? "PriceClass") <*> (x .@? "Logging") <*> (x .@ "CallerReference") <*> (x .@ "S3Origin") <*> (x .@ "Comment") <*> (x .@ "TrustedSigners") <*> (x .@ "Enabled") instance Hashable StreamingDistributionConfig instance NFData StreamingDistributionConfig instance ToXML StreamingDistributionConfig where toXML StreamingDistributionConfig'{..} = mconcat ["Aliases" @= _sdcAliases, "PriceClass" @= _sdcPriceClass, "Logging" @= _sdcLogging, "CallerReference" @= _sdcCallerReference, "S3Origin" @= _sdcS3Origin, "Comment" @= _sdcComment, "TrustedSigners" @= _sdcTrustedSigners, "Enabled" @= _sdcEnabled] -- | A streaming distribution Configuration and a list of tags to be associated with the streaming distribution. -- -- /See:/ 'streamingDistributionConfigWithTags' smart constructor. data StreamingDistributionConfigWithTags = StreamingDistributionConfigWithTags' { _sdcwtStreamingDistributionConfig :: !StreamingDistributionConfig , _sdcwtTags :: !Tags } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'StreamingDistributionConfigWithTags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'sdcwtStreamingDistributionConfig' -- -- * 'sdcwtTags' streamingDistributionConfigWithTags :: StreamingDistributionConfig -- ^ 'sdcwtStreamingDistributionConfig' -> Tags -- ^ 'sdcwtTags' -> StreamingDistributionConfigWithTags streamingDistributionConfigWithTags pStreamingDistributionConfig_ pTags_ = StreamingDistributionConfigWithTags' { _sdcwtStreamingDistributionConfig = pStreamingDistributionConfig_ , _sdcwtTags = pTags_ } -- | A streaming distribution Configuration. sdcwtStreamingDistributionConfig :: Lens' StreamingDistributionConfigWithTags StreamingDistributionConfig sdcwtStreamingDistributionConfig = lens _sdcwtStreamingDistributionConfig (\ s a -> s{_sdcwtStreamingDistributionConfig = a}); -- | A complex type that contains zero or more Tag elements. sdcwtTags :: Lens' StreamingDistributionConfigWithTags Tags sdcwtTags = lens _sdcwtTags (\ s a -> s{_sdcwtTags = a}); instance Hashable StreamingDistributionConfigWithTags instance NFData StreamingDistributionConfigWithTags instance ToXML StreamingDistributionConfigWithTags where toXML StreamingDistributionConfigWithTags'{..} = mconcat ["StreamingDistributionConfig" @= _sdcwtStreamingDistributionConfig, "Tags" @= _sdcwtTags] -- | A streaming distribution list. -- -- /See:/ 'streamingDistributionList' smart constructor. data StreamingDistributionList = StreamingDistributionList' { _sdlItems :: !(Maybe [StreamingDistributionSummary]) , _sdlNextMarker :: !(Maybe Text) , _sdlMarker :: !Text , _sdlMaxItems :: !Int , _sdlIsTruncated :: !Bool , _sdlQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'StreamingDistributionList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'sdlItems' -- -- * 'sdlNextMarker' -- -- * 'sdlMarker' -- -- * 'sdlMaxItems' -- -- * 'sdlIsTruncated' -- -- * 'sdlQuantity' streamingDistributionList :: Text -- ^ 'sdlMarker' -> Int -- ^ 'sdlMaxItems' -> Bool -- ^ 'sdlIsTruncated' -> Int -- ^ 'sdlQuantity' -> StreamingDistributionList streamingDistributionList pMarker_ pMaxItems_ pIsTruncated_ pQuantity_ = StreamingDistributionList' { _sdlItems = Nothing , _sdlNextMarker = Nothing , _sdlMarker = pMarker_ , _sdlMaxItems = pMaxItems_ , _sdlIsTruncated = pIsTruncated_ , _sdlQuantity = pQuantity_ } -- | A complex type that contains one StreamingDistributionSummary element for each distribution that was created by the current AWS account. sdlItems :: Lens' StreamingDistributionList [StreamingDistributionSummary] sdlItems = lens _sdlItems (\ s a -> s{_sdlItems = a}) . _Default . _Coerce; -- | If IsTruncated is true, this element is present and contains the value you can use for the Marker request parameter to continue listing your streaming distributions where they left off. sdlNextMarker :: Lens' StreamingDistributionList (Maybe Text) sdlNextMarker = lens _sdlNextMarker (\ s a -> s{_sdlNextMarker = a}); -- | The value you provided for the Marker request parameter. sdlMarker :: Lens' StreamingDistributionList Text sdlMarker = lens _sdlMarker (\ s a -> s{_sdlMarker = a}); -- | The value you provided for the MaxItems request parameter. sdlMaxItems :: Lens' StreamingDistributionList Int sdlMaxItems = lens _sdlMaxItems (\ s a -> s{_sdlMaxItems = a}); -- | A flag that indicates whether more streaming distributions remain to be listed. If your results were truncated, you can make a follow-up pagination request using the Marker request parameter to retrieve more distributions in the list. sdlIsTruncated :: Lens' StreamingDistributionList Bool sdlIsTruncated = lens _sdlIsTruncated (\ s a -> s{_sdlIsTruncated = a}); -- | The number of streaming distributions that were created by the current AWS account. sdlQuantity :: Lens' StreamingDistributionList Int sdlQuantity = lens _sdlQuantity (\ s a -> s{_sdlQuantity = a}); instance FromXML StreamingDistributionList where parseXML x = StreamingDistributionList' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "StreamingDistributionSummary")) <*> (x .@? "NextMarker") <*> (x .@ "Marker") <*> (x .@ "MaxItems") <*> (x .@ "IsTruncated") <*> (x .@ "Quantity") instance Hashable StreamingDistributionList instance NFData StreamingDistributionList -- | A summary of the information for an Amazon CloudFront streaming distribution. -- -- /See:/ 'streamingDistributionSummary' smart constructor. data StreamingDistributionSummary = StreamingDistributionSummary' { _sdsId :: !Text , _sdsARN :: !Text , _sdsStatus :: !Text , _sdsLastModifiedTime :: !ISO8601 , _sdsDomainName :: !Text , _sdsS3Origin :: !S3Origin , _sdsAliases :: !Aliases , _sdsTrustedSigners :: !TrustedSigners , _sdsComment :: !Text , _sdsPriceClass :: !PriceClass , _sdsEnabled :: !Bool } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'StreamingDistributionSummary' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'sdsId' -- -- * 'sdsARN' -- -- * 'sdsStatus' -- -- * 'sdsLastModifiedTime' -- -- * 'sdsDomainName' -- -- * 'sdsS3Origin' -- -- * 'sdsAliases' -- -- * 'sdsTrustedSigners' -- -- * 'sdsComment' -- -- * 'sdsPriceClass' -- -- * 'sdsEnabled' streamingDistributionSummary :: Text -- ^ 'sdsId' -> Text -- ^ 'sdsARN' -> Text -- ^ 'sdsStatus' -> UTCTime -- ^ 'sdsLastModifiedTime' -> Text -- ^ 'sdsDomainName' -> S3Origin -- ^ 'sdsS3Origin' -> Aliases -- ^ 'sdsAliases' -> TrustedSigners -- ^ 'sdsTrustedSigners' -> Text -- ^ 'sdsComment' -> PriceClass -- ^ 'sdsPriceClass' -> Bool -- ^ 'sdsEnabled' -> StreamingDistributionSummary streamingDistributionSummary pId_ pARN_ pStatus_ pLastModifiedTime_ pDomainName_ pS3Origin_ pAliases_ pTrustedSigners_ pComment_ pPriceClass_ pEnabled_ = StreamingDistributionSummary' { _sdsId = pId_ , _sdsARN = pARN_ , _sdsStatus = pStatus_ , _sdsLastModifiedTime = _Time # pLastModifiedTime_ , _sdsDomainName = pDomainName_ , _sdsS3Origin = pS3Origin_ , _sdsAliases = pAliases_ , _sdsTrustedSigners = pTrustedSigners_ , _sdsComment = pComment_ , _sdsPriceClass = pPriceClass_ , _sdsEnabled = pEnabled_ } -- | The identifier for the distribution. For example: EDFDVBD632BHDS5. sdsId :: Lens' StreamingDistributionSummary Text sdsId = lens _sdsId (\ s a -> s{_sdsId = a}); -- | The ARN (Amazon Resource Name) for the streaming distribution. For example: arn:aws:cloudfront::123456789012:streaming-distribution\/EDFDVBD632BHDS5, where 123456789012 is your AWS account Id. sdsARN :: Lens' StreamingDistributionSummary Text sdsARN = lens _sdsARN (\ s a -> s{_sdsARN = a}); -- | Indicates the current status of the distribution. When the status is Deployed, the distribution\'s information is fully propagated throughout the Amazon CloudFront system. sdsStatus :: Lens' StreamingDistributionSummary Text sdsStatus = lens _sdsStatus (\ s a -> s{_sdsStatus = a}); -- | The date and time the distribution was last modified. sdsLastModifiedTime :: Lens' StreamingDistributionSummary UTCTime sdsLastModifiedTime = lens _sdsLastModifiedTime (\ s a -> s{_sdsLastModifiedTime = a}) . _Time; -- | The domain name corresponding to the distribution. For example: d604721fxaaqy9.cloudfront.net. sdsDomainName :: Lens' StreamingDistributionSummary Text sdsDomainName = lens _sdsDomainName (\ s a -> s{_sdsDomainName = a}); -- | A complex type that contains information about the Amazon S3 bucket from which you want CloudFront to get your media files for distribution. sdsS3Origin :: Lens' StreamingDistributionSummary S3Origin sdsS3Origin = lens _sdsS3Origin (\ s a -> s{_sdsS3Origin = a}); -- | A complex type that contains information about CNAMEs (alternate domain names), if any, for this streaming distribution. sdsAliases :: Lens' StreamingDistributionSummary Aliases sdsAliases = lens _sdsAliases (\ s a -> s{_sdsAliases = a}); -- | A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the PathPattern for this cache behavior, specify true for Enabled, and specify the applicable values for Quantity and Items. For more information, go to Using a Signed URL to Serve Private Content in the Amazon CloudFront Developer Guide. If you don\'t want to require signed URLs in requests for objects that match PathPattern, specify false for Enabled and 0 for Quantity. Omit Items. To add, change, or remove one or more trusted signers, change Enabled to true (if it\'s currently false), change Quantity as applicable, and specify all of the trusted signers that you want to include in the updated distribution. sdsTrustedSigners :: Lens' StreamingDistributionSummary TrustedSigners sdsTrustedSigners = lens _sdsTrustedSigners (\ s a -> s{_sdsTrustedSigners = a}); -- | The comment originally specified when this distribution was created. sdsComment :: Lens' StreamingDistributionSummary Text sdsComment = lens _sdsComment (\ s a -> s{_sdsComment = a}); -- | Undocumented member. sdsPriceClass :: Lens' StreamingDistributionSummary PriceClass sdsPriceClass = lens _sdsPriceClass (\ s a -> s{_sdsPriceClass = a}); -- | Whether the distribution is enabled to accept end user requests for content. sdsEnabled :: Lens' StreamingDistributionSummary Bool sdsEnabled = lens _sdsEnabled (\ s a -> s{_sdsEnabled = a}); instance FromXML StreamingDistributionSummary where parseXML x = StreamingDistributionSummary' <$> (x .@ "Id") <*> (x .@ "ARN") <*> (x .@ "Status") <*> (x .@ "LastModifiedTime") <*> (x .@ "DomainName") <*> (x .@ "S3Origin") <*> (x .@ "Aliases") <*> (x .@ "TrustedSigners") <*> (x .@ "Comment") <*> (x .@ "PriceClass") <*> (x .@ "Enabled") instance Hashable StreamingDistributionSummary instance NFData StreamingDistributionSummary -- | A complex type that controls whether access logs are written for this streaming distribution. -- -- /See:/ 'streamingLoggingConfig' smart constructor. data StreamingLoggingConfig = StreamingLoggingConfig' { _slcEnabled :: !Bool , _slcBucket :: !Text , _slcPrefix :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'StreamingLoggingConfig' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'slcEnabled' -- -- * 'slcBucket' -- -- * 'slcPrefix' streamingLoggingConfig :: Bool -- ^ 'slcEnabled' -> Text -- ^ 'slcBucket' -> Text -- ^ 'slcPrefix' -> StreamingLoggingConfig streamingLoggingConfig pEnabled_ pBucket_ pPrefix_ = StreamingLoggingConfig' { _slcEnabled = pEnabled_ , _slcBucket = pBucket_ , _slcPrefix = pPrefix_ } -- | Specifies whether you want CloudFront to save access logs to an Amazon S3 bucket. If you do not want to enable logging when you create a streaming distribution or if you want to disable logging for an existing streaming distribution, specify false for Enabled, and specify empty Bucket and Prefix elements. If you specify false for Enabled but you specify values for Bucket and Prefix, the values are automatically deleted. slcEnabled :: Lens' StreamingLoggingConfig Bool slcEnabled = lens _slcEnabled (\ s a -> s{_slcEnabled = a}); -- | The Amazon S3 bucket to store the access logs in, for example, myawslogbucket.s3.amazonaws.com. slcBucket :: Lens' StreamingLoggingConfig Text slcBucket = lens _slcBucket (\ s a -> s{_slcBucket = a}); -- | An optional string that you want CloudFront to prefix to the access log filenames for this streaming distribution, for example, myprefix\/. If you want to enable logging, but you do not want to specify a prefix, you still must include an empty Prefix element in the Logging element. slcPrefix :: Lens' StreamingLoggingConfig Text slcPrefix = lens _slcPrefix (\ s a -> s{_slcPrefix = a}); instance FromXML StreamingLoggingConfig where parseXML x = StreamingLoggingConfig' <$> (x .@ "Enabled") <*> (x .@ "Bucket") <*> (x .@ "Prefix") instance Hashable StreamingLoggingConfig instance NFData StreamingLoggingConfig instance ToXML StreamingLoggingConfig where toXML StreamingLoggingConfig'{..} = mconcat ["Enabled" @= _slcEnabled, "Bucket" @= _slcBucket, "Prefix" @= _slcPrefix] -- | A complex type that contains Tag key and Tag value. -- -- /See:/ 'tag' smart constructor. data Tag = Tag' { _tagValue :: !(Maybe Text) , _tagKey :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'Tag' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'tagValue' -- -- * 'tagKey' tag :: Text -- ^ 'tagKey' -> Tag tag pKey_ = Tag' { _tagValue = Nothing , _tagKey = pKey_ } -- | A string that contains an optional Tag value. The string length should be between 0 and 256 characters. Valid characters include a-z, A-Z, 0-9, space, and the special characters _ - . : \/ = + \'. tagValue :: Lens' Tag (Maybe Text) tagValue = lens _tagValue (\ s a -> s{_tagValue = a}); -- | A string that contains Tag key. The string length should be between 1 and 128 characters. Valid characters include a-z, A-Z, 0-9, space, and the special characters _ - . : \/ = + \'. tagKey :: Lens' Tag Text tagKey = lens _tagKey (\ s a -> s{_tagKey = a}); instance FromXML Tag where parseXML x = Tag' <$> (x .@? "Value") <*> (x .@ "Key") instance Hashable Tag instance NFData Tag instance ToXML Tag where toXML Tag'{..} = mconcat ["Value" @= _tagValue, "Key" @= _tagKey] -- | A complex type that contains zero or more Tag elements. -- -- /See:/ 'tagKeys' smart constructor. newtype TagKeys = TagKeys' { _tkItems :: Maybe [Text] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'TagKeys' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'tkItems' tagKeys :: TagKeys tagKeys = TagKeys' { _tkItems = Nothing } -- | A complex type that contains Tag key elements tkItems :: Lens' TagKeys [Text] tkItems = lens _tkItems (\ s a -> s{_tkItems = a}) . _Default . _Coerce; instance Hashable TagKeys instance NFData TagKeys instance ToXML TagKeys where toXML TagKeys'{..} = mconcat ["Items" @= toXML (toXMLList "Key" <$> _tkItems)] -- | A complex type that contains zero or more Tag elements. -- -- /See:/ 'tags' smart constructor. newtype Tags = Tags' { _tItems :: Maybe [Tag] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'Tags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'tItems' tags :: Tags tags = Tags' { _tItems = Nothing } -- | A complex type that contains Tag elements tItems :: Lens' Tags [Tag] tItems = lens _tItems (\ s a -> s{_tItems = a}) . _Default . _Coerce; instance FromXML Tags where parseXML x = Tags' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "Tag")) instance Hashable Tags instance NFData Tags instance ToXML Tags where toXML Tags'{..} = mconcat ["Items" @= toXML (toXMLList "Tag" <$> _tItems)] -- | A complex type that specifies the AWS accounts, if any, that you want to allow to create signed URLs for private content. If you want to require signed URLs in requests for objects in the target origin that match the PathPattern for this cache behavior, specify true for Enabled, and specify the applicable values for Quantity and Items. For more information, go to Using a Signed URL to Serve Private Content in the Amazon CloudFront Developer Guide. If you don\'t want to require signed URLs in requests for objects that match PathPattern, specify false for Enabled and 0 for Quantity. Omit Items. To add, change, or remove one or more trusted signers, change Enabled to true (if it\'s currently false), change Quantity as applicable, and specify all of the trusted signers that you want to include in the updated distribution. -- -- /See:/ 'trustedSigners' smart constructor. data TrustedSigners = TrustedSigners' { _tsItems :: !(Maybe [Text]) , _tsEnabled :: !Bool , _tsQuantity :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'TrustedSigners' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'tsItems' -- -- * 'tsEnabled' -- -- * 'tsQuantity' trustedSigners :: Bool -- ^ 'tsEnabled' -> Int -- ^ 'tsQuantity' -> TrustedSigners trustedSigners pEnabled_ pQuantity_ = TrustedSigners' { _tsItems = Nothing , _tsEnabled = pEnabled_ , _tsQuantity = pQuantity_ } -- | Optional: A complex type that contains trusted signers for this cache behavior. If Quantity is 0, you can omit Items. tsItems :: Lens' TrustedSigners [Text] tsItems = lens _tsItems (\ s a -> s{_tsItems = a}) . _Default . _Coerce; -- | Specifies whether you want to require end users to use signed URLs to access the files specified by PathPattern and TargetOriginId. tsEnabled :: Lens' TrustedSigners Bool tsEnabled = lens _tsEnabled (\ s a -> s{_tsEnabled = a}); -- | The number of trusted signers for this cache behavior. tsQuantity :: Lens' TrustedSigners Int tsQuantity = lens _tsQuantity (\ s a -> s{_tsQuantity = a}); instance FromXML TrustedSigners where parseXML x = TrustedSigners' <$> (x .@? "Items" .!@ mempty >>= may (parseXMLList "AwsAccountNumber")) <*> (x .@ "Enabled") <*> (x .@ "Quantity") instance Hashable TrustedSigners instance NFData TrustedSigners instance ToXML TrustedSigners where toXML TrustedSigners'{..} = mconcat ["Items" @= toXML (toXMLList "AwsAccountNumber" <$> _tsItems), "Enabled" @= _tsEnabled, "Quantity" @= _tsQuantity] -- | A complex type that contains information about viewer certificates for this distribution. -- -- /See:/ 'viewerCertificate' smart constructor. data ViewerCertificate = ViewerCertificate' { _vcSSLSupportMethod :: !(Maybe SSLSupportMethod) , _vcACMCertificateARN :: !(Maybe Text) , _vcCertificateSource :: !(Maybe CertificateSource) , _vcMinimumProtocolVersion :: !(Maybe MinimumProtocolVersion) , _vcCertificate :: !(Maybe Text) , _vcIAMCertificateId :: !(Maybe Text) , _vcCloudFrontDefaultCertificate :: !(Maybe Bool) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ViewerCertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'vcSSLSupportMethod' -- -- * 'vcACMCertificateARN' -- -- * 'vcCertificateSource' -- -- * 'vcMinimumProtocolVersion' -- -- * 'vcCertificate' -- -- * 'vcIAMCertificateId' -- -- * 'vcCloudFrontDefaultCertificate' viewerCertificate :: ViewerCertificate viewerCertificate = ViewerCertificate' { _vcSSLSupportMethod = Nothing , _vcACMCertificateARN = Nothing , _vcCertificateSource = Nothing , _vcMinimumProtocolVersion = Nothing , _vcCertificate = Nothing , _vcIAMCertificateId = Nothing , _vcCloudFrontDefaultCertificate = Nothing } -- | If you specify a value for IAMCertificateId, you must also specify how you want CloudFront to serve HTTPS requests. Valid values are vip and sni-only. If you specify vip, CloudFront uses dedicated IP addresses for your content and can respond to HTTPS requests from any viewer. However, you must request permission to use this feature, and you incur additional monthly charges. If you specify sni-only, CloudFront can only respond to HTTPS requests from viewers that support Server Name Indication (SNI). All modern browsers support SNI, but some browsers still in use don\'t support SNI. Do not specify a value for SSLSupportMethod if you specified true for CloudFrontDefaultCertificate. vcSSLSupportMethod :: Lens' ViewerCertificate (Maybe SSLSupportMethod) vcSSLSupportMethod = lens _vcSSLSupportMethod (\ s a -> s{_vcSSLSupportMethod = a}); -- | If you want viewers to use HTTPS to request your objects and you\'re using an alternate domain name in your object URLs (for example, https:\/\/example.com\/logo.jpg), specify the ACM certificate ARN of the custom viewer certificate for this distribution. Specify either this value, IAMCertificateId, or CloudFrontDefaultCertificate. vcACMCertificateARN :: Lens' ViewerCertificate (Maybe Text) vcACMCertificateARN = lens _vcACMCertificateARN (\ s a -> s{_vcACMCertificateARN = a}); -- | Note: this field is deprecated. Please use one of [ACMCertificateArn, IAMCertificateId, CloudFrontDefaultCertificate]. vcCertificateSource :: Lens' ViewerCertificate (Maybe CertificateSource) vcCertificateSource = lens _vcCertificateSource (\ s a -> s{_vcCertificateSource = a}); -- | Specify the minimum version of the SSL protocol that you want CloudFront to use, SSLv3 or TLSv1, for HTTPS connections. CloudFront will serve your objects only to browsers or devices that support at least the SSL version that you specify. The TLSv1 protocol is more secure, so we recommend that you specify SSLv3 only if your users are using browsers or devices that don\'t support TLSv1. If you\'re using a custom certificate (if you specify a value for IAMCertificateId) and if you\'re using dedicated IP (if you specify vip for SSLSupportMethod), you can choose SSLv3 or TLSv1 as the MinimumProtocolVersion. If you\'re using a custom certificate (if you specify a value for IAMCertificateId) and if you\'re using SNI (if you specify sni-only for SSLSupportMethod), you must specify TLSv1 for MinimumProtocolVersion. vcMinimumProtocolVersion :: Lens' ViewerCertificate (Maybe MinimumProtocolVersion) vcMinimumProtocolVersion = lens _vcMinimumProtocolVersion (\ s a -> s{_vcMinimumProtocolVersion = a}); -- | Note: this field is deprecated. Please use one of [ACMCertificateArn, IAMCertificateId, CloudFrontDefaultCertificate]. vcCertificate :: Lens' ViewerCertificate (Maybe Text) vcCertificate = lens _vcCertificate (\ s a -> s{_vcCertificate = a}); -- | If you want viewers to use HTTPS to request your objects and you\'re using an alternate domain name in your object URLs (for example, https:\/\/example.com\/logo.jpg), specify the IAM certificate identifier of the custom viewer certificate for this distribution. Specify either this value, ACMCertificateArn, or CloudFrontDefaultCertificate. vcIAMCertificateId :: Lens' ViewerCertificate (Maybe Text) vcIAMCertificateId = lens _vcIAMCertificateId (\ s a -> s{_vcIAMCertificateId = a}); -- | If you want viewers to use HTTPS to request your objects and you\'re using the CloudFront domain name of your distribution in your object URLs (for example, https:\/\/d111111abcdef8.cloudfront.net\/logo.jpg), set to true. Omit this value if you are setting an ACMCertificateArn or IAMCertificateId. 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 instance ToXML ViewerCertificate where toXML ViewerCertificate'{..} = mconcat ["SSLSupportMethod" @= _vcSSLSupportMethod, "ACMCertificateArn" @= _vcACMCertificateARN, "CertificateSource" @= _vcCertificateSource, "MinimumProtocolVersion" @= _vcMinimumProtocolVersion, "Certificate" @= _vcCertificate, "IAMCertificateId" @= _vcIAMCertificateId, "CloudFrontDefaultCertificate" @= _vcCloudFrontDefaultCertificate]