diff --git a/amazonka-cloudfront.cabal b/amazonka-cloudfront.cabal --- a/amazonka-cloudfront.cabal +++ b/amazonka-cloudfront.cabal @@ -1,5 +1,5 @@ name: amazonka-cloudfront -version: 0.0.0 +version: 0.0.1 synopsis: Amazon CloudFront SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -69,5 +69,5 @@ other-modules: build-depends: - amazonka-core - , base >= 4.7 && < 5 + amazonka-core == 0.0.1.* + , base >= 4.7 && < 5 diff --git a/gen/Network/AWS/CloudFront/Types.hs b/gen/Network/AWS/CloudFront/Types.hs --- a/gen/Network/AWS/CloudFront/Types.hs +++ b/gen/Network/AWS/CloudFront/Types.hs @@ -592,6 +592,10 @@ SniOnly -> "sni-only" Vip -> "vip" +instance ToByteString SSLSupportMethod +instance ToHeader SSLSupportMethod +instance ToQuery SSLSupportMethod + instance FromXML SSLSupportMethod where parseXML = parseXMLText "SSLSupportMethod" @@ -599,15 +603,15 @@ toXML = toXMLText data AllowedMethods = AllowedMethods - { _amItems :: List "Method" Text + { _amItems :: List "Method" Method , _amQuantity :: Int - } deriving (Eq, Ord, Show) + } deriving (Eq, Show) -- | 'AllowedMethods' constructor. -- -- The fields accessible through corresponding lenses are: -- --- * 'amItems' @::@ ['Text'] +-- * 'amItems' @::@ ['Method'] -- -- * 'amQuantity' @::@ 'Int' -- @@ -620,7 +624,7 @@ -- | A complex type that contains the HTTP methods that you want CloudFront to -- process and forward to your origin. -amItems :: Lens' AllowedMethods [Text] +amItems :: Lens' AllowedMethods [Method] amItems = lens _amItems (\s a -> s { _amItems = a }) . _List -- | The number of HTTP methods that you want CloudFront to forward to your @@ -782,6 +786,10 @@ HttpsOnly -> "https-only" RedirectToHttps -> "redirect-to-https" +instance ToByteString ViewerProtocolPolicy +instance ToHeader ViewerProtocolPolicy +instance ToQuery ViewerProtocolPolicy + instance FromXML ViewerProtocolPolicy where parseXML = parseXMLText "ViewerProtocolPolicy" @@ -883,7 +891,7 @@ , _sdcComment :: Text , _sdcEnabled :: Bool , _sdcLogging :: StreamingLoggingConfig - , _sdcPriceClass :: Text + , _sdcPriceClass :: PriceClass , _sdcS3Origin :: S3Origin , _sdcTrustedSigners :: TrustedSigners } deriving (Eq, Show) @@ -902,7 +910,7 @@ -- -- * 'sdcLogging' @::@ 'StreamingLoggingConfig' -- --- * 'sdcPriceClass' @::@ 'Text' +-- * 'sdcPriceClass' @::@ 'PriceClass' -- -- * 'sdcS3Origin' @::@ 'S3Origin' -- @@ -914,7 +922,7 @@ -> Text -- ^ 'sdcComment' -> StreamingLoggingConfig -- ^ 'sdcLogging' -> TrustedSigners -- ^ 'sdcTrustedSigners' - -> Text -- ^ 'sdcPriceClass' + -> PriceClass -- ^ 'sdcPriceClass' -> Bool -- ^ 'sdcEnabled' -> StreamingDistributionConfig streamingDistributionConfig p1 p2 p3 p4 p5 p6 p7 p8 = StreamingDistributionConfig @@ -964,7 +972,7 @@ -- | A complex type that contains information about price class for this -- streaming distribution. -sdcPriceClass :: Lens' StreamingDistributionConfig Text +sdcPriceClass :: Lens' StreamingDistributionConfig PriceClass sdcPriceClass = lens _sdcPriceClass (\s a -> s { _sdcPriceClass = a }) -- | A complex type that contains information about the Amazon S3 bucket from @@ -1055,7 +1063,7 @@ ] data CookiePreference = CookiePreference - { _cpForward :: Text + { _cpForward :: ItemSelection , _cpWhitelistedNames :: Maybe CookieNames } deriving (Eq, Show) @@ -1063,11 +1071,11 @@ -- -- The fields accessible through corresponding lenses are: -- --- * 'cpForward' @::@ 'Text' +-- * 'cpForward' @::@ 'ItemSelection' -- -- * 'cpWhitelistedNames' @::@ 'Maybe' 'CookieNames' -- -cookiePreference :: Text -- ^ 'cpForward' +cookiePreference :: ItemSelection -- ^ 'cpForward' -> CookiePreference cookiePreference p1 = CookiePreference { _cpForward = p1 @@ -1078,7 +1086,7 @@ -- 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 Text +cpForward :: Lens' CookiePreference ItemSelection cpForward = lens _cpForward (\s a -> s { _cpForward = a }) -- | A complex type that specifies the whitelisted cookies, if any, that you @@ -1115,6 +1123,10 @@ HttpOnly -> "http-only" MatchViewer -> "match-viewer" +instance ToByteString OriginProtocolPolicy +instance ToHeader OriginProtocolPolicy +instance ToQuery OriginProtocolPolicy + instance FromXML OriginProtocolPolicy where parseXML = parseXMLText "OriginProtocolPolicy" @@ -1296,7 +1308,7 @@ , _sdsEnabled :: Bool , _sdsId :: Text , _sdsLastModifiedTime :: RFC822 - , _sdsPriceClass :: Text + , _sdsPriceClass :: PriceClass , _sdsS3Origin :: S3Origin , _sdsStatus :: Text , _sdsTrustedSigners :: TrustedSigners @@ -1318,7 +1330,7 @@ -- -- * 'sdsLastModifiedTime' @::@ 'UTCTime' -- --- * 'sdsPriceClass' @::@ 'Text' +-- * 'sdsPriceClass' @::@ 'PriceClass' -- -- * 'sdsS3Origin' @::@ 'S3Origin' -- @@ -1334,7 +1346,7 @@ -> Aliases -- ^ 'sdsAliases' -> TrustedSigners -- ^ 'sdsTrustedSigners' -> Text -- ^ 'sdsComment' - -> Text -- ^ 'sdsPriceClass' + -> PriceClass -- ^ 'sdsPriceClass' -> Bool -- ^ 'sdsEnabled' -> StreamingDistributionSummary streamingDistributionSummary p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 = StreamingDistributionSummary @@ -1379,7 +1391,7 @@ lens _sdsLastModifiedTime (\s a -> s { _sdsLastModifiedTime = a }) . _Time -sdsPriceClass :: Lens' StreamingDistributionSummary Text +sdsPriceClass :: Lens' StreamingDistributionSummary PriceClass sdsPriceClass = lens _sdsPriceClass (\s a -> s { _sdsPriceClass = a }) -- | A complex type that contains information about the Amazon S3 bucket from @@ -1439,8 +1451,8 @@ data CustomOriginConfig = CustomOriginConfig { _cocHTTPPort :: Int , _cocHTTPSPort :: Int - , _cocOriginProtocolPolicy :: Text - } deriving (Eq, Ord, Show) + , _cocOriginProtocolPolicy :: OriginProtocolPolicy + } deriving (Eq, Show) -- | 'CustomOriginConfig' constructor. -- @@ -1450,11 +1462,11 @@ -- -- * 'cocHTTPSPort' @::@ 'Int' -- --- * 'cocOriginProtocolPolicy' @::@ 'Text' +-- * 'cocOriginProtocolPolicy' @::@ 'OriginProtocolPolicy' -- customOriginConfig :: Int -- ^ 'cocHTTPPort' -> Int -- ^ 'cocHTTPSPort' - -> Text -- ^ 'cocOriginProtocolPolicy' + -> OriginProtocolPolicy -- ^ 'cocOriginProtocolPolicy' -> CustomOriginConfig customOriginConfig p1 p2 p3 = CustomOriginConfig { _cocHTTPPort = p1 @@ -1471,7 +1483,7 @@ cocHTTPSPort = lens _cocHTTPSPort (\s a -> s { _cocHTTPSPort = a }) -- | The origin protocol policy to apply to your origin. -cocOriginProtocolPolicy :: Lens' CustomOriginConfig Text +cocOriginProtocolPolicy :: Lens' CustomOriginConfig OriginProtocolPolicy cocOriginProtocolPolicy = lens _cocOriginProtocolPolicy (\s a -> s { _cocOriginProtocolPolicy = a }) @@ -1645,7 +1657,7 @@ , _dcEnabled :: Bool , _dcLogging :: LoggingConfig , _dcOrigins :: Origins - , _dcPriceClass :: Text + , _dcPriceClass :: PriceClass , _dcRestrictions :: Maybe Restrictions , _dcViewerCertificate :: Maybe ViewerCertificate } deriving (Eq, Show) @@ -1674,7 +1686,7 @@ -- -- * 'dcOrigins' @::@ 'Origins' -- --- * 'dcPriceClass' @::@ 'Text' +-- * 'dcPriceClass' @::@ 'PriceClass' -- -- * 'dcRestrictions' @::@ 'Maybe' 'Restrictions' -- @@ -1688,7 +1700,7 @@ -> CacheBehaviors -- ^ 'dcCacheBehaviors' -> Text -- ^ 'dcComment' -> LoggingConfig -- ^ 'dcLogging' - -> Text -- ^ 'dcPriceClass' + -> PriceClass -- ^ 'dcPriceClass' -> Bool -- ^ 'dcEnabled' -> DistributionConfig distributionConfig p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 = DistributionConfig @@ -1778,7 +1790,7 @@ -- | A complex type that contains information about price class for this -- distribution. -dcPriceClass :: Lens' DistributionConfig Text +dcPriceClass :: Lens' DistributionConfig PriceClass dcPriceClass = lens _dcPriceClass (\s a -> s { _dcPriceClass = a }) dcRestrictions :: Lens' DistributionConfig (Maybe Restrictions) @@ -1829,7 +1841,7 @@ , _cbSmoothStreaming :: Maybe Bool , _cbTargetOriginId :: Text , _cbTrustedSigners :: TrustedSigners - , _cbViewerProtocolPolicy :: Text + , _cbViewerProtocolPolicy :: ViewerProtocolPolicy } deriving (Eq, Show) -- | 'CacheBehavior' constructor. @@ -1850,13 +1862,13 @@ -- -- * 'cbTrustedSigners' @::@ 'TrustedSigners' -- --- * 'cbViewerProtocolPolicy' @::@ 'Text' +-- * 'cbViewerProtocolPolicy' @::@ 'ViewerProtocolPolicy' -- cacheBehavior :: Text -- ^ 'cbPathPattern' -> Text -- ^ 'cbTargetOriginId' -> ForwardedValues -- ^ 'cbForwardedValues' -> TrustedSigners -- ^ 'cbTrustedSigners' - -> Text -- ^ 'cbViewerProtocolPolicy' + -> ViewerProtocolPolicy -- ^ 'cbViewerProtocolPolicy' -> Integer -- ^ 'cbMinTTL' -> CacheBehavior cacheBehavior p1 p2 p3 p4 p5 p6 = CacheBehavior @@ -1933,7 +1945,7 @@ -- 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 Text +cbViewerProtocolPolicy :: Lens' CacheBehavior ViewerProtocolPolicy cbViewerProtocolPolicy = lens _cbViewerProtocolPolicy (\s a -> s { _cbViewerProtocolPolicy = a }) @@ -2107,6 +2119,10 @@ PriceClass200 -> "PriceClass_200" PriceClassAll -> "PriceClass_All" +instance ToByteString PriceClass +instance ToHeader PriceClass +instance ToQuery PriceClass + instance FromXML PriceClass where parseXML = parseXMLText "PriceClass" @@ -2197,8 +2213,8 @@ data GeoRestriction = GeoRestriction { _grItems :: List "Location" Text , _grQuantity :: Int - , _grRestrictionType :: Text - } deriving (Eq, Ord, Show) + , _grRestrictionType :: GeoRestrictionType + } deriving (Eq, Show) -- | 'GeoRestriction' constructor. -- @@ -2208,9 +2224,9 @@ -- -- * 'grQuantity' @::@ 'Int' -- --- * 'grRestrictionType' @::@ 'Text' +-- * 'grRestrictionType' @::@ 'GeoRestrictionType' -- -geoRestriction :: Text -- ^ 'grRestrictionType' +geoRestriction :: GeoRestrictionType -- ^ 'grRestrictionType' -> Int -- ^ 'grQuantity' -> GeoRestriction geoRestriction p1 p2 = GeoRestriction @@ -2245,7 +2261,7 @@ -- CloudFront to distribute your content. - whitelist: The Location elements -- specify the countries in which you want CloudFront to distribute your -- content. -grRestrictionType :: Lens' GeoRestriction Text +grRestrictionType :: Lens' GeoRestriction GeoRestrictionType grRestrictionType = lens _grRestrictionType (\s a -> s { _grRestrictionType = a }) @@ -2353,8 +2369,8 @@ data ViewerCertificate = ViewerCertificate { _vcCloudFrontDefaultCertificate :: Maybe Bool , _vcIAMCertificateId :: Maybe Text - , _vcSSLSupportMethod :: Maybe Text - } deriving (Eq, Ord, Show) + , _vcSSLSupportMethod :: Maybe SSLSupportMethod + } deriving (Eq, Show) -- | 'ViewerCertificate' constructor. -- @@ -2364,7 +2380,7 @@ -- -- * 'vcIAMCertificateId' @::@ 'Maybe' 'Text' -- --- * 'vcSSLSupportMethod' @::@ 'Maybe' 'Text' +-- * 'vcSSLSupportMethod' @::@ 'Maybe' 'SSLSupportMethod' -- viewerCertificate :: ViewerCertificate viewerCertificate = ViewerCertificate @@ -2401,7 +2417,7 @@ -- 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 Text) +vcSSLSupportMethod :: Lens' ViewerCertificate (Maybe SSLSupportMethod) vcSSLSupportMethod = lens _vcSSLSupportMethod (\s a -> s { _vcSSLSupportMethod = a }) @@ -2517,6 +2533,10 @@ Post -> "POST" Put -> "PUT" +instance ToByteString Method +instance ToHeader Method +instance ToQuery Method + instance FromXML Method where parseXML = parseXMLText "Method" @@ -2647,6 +2667,10 @@ None -> "none" Whitelist -> "whitelist" +instance ToByteString ItemSelection +instance ToHeader ItemSelection +instance ToQuery ItemSelection + instance FromXML ItemSelection where parseXML = parseXMLText "ItemSelection" @@ -2872,7 +2896,7 @@ , _dcbSmoothStreaming :: Maybe Bool , _dcbTargetOriginId :: Text , _dcbTrustedSigners :: TrustedSigners - , _dcbViewerProtocolPolicy :: Text + , _dcbViewerProtocolPolicy :: ViewerProtocolPolicy } deriving (Eq, Show) -- | 'DefaultCacheBehavior' constructor. @@ -2891,12 +2915,12 @@ -- -- * 'dcbTrustedSigners' @::@ 'TrustedSigners' -- --- * 'dcbViewerProtocolPolicy' @::@ 'Text' +-- * 'dcbViewerProtocolPolicy' @::@ 'ViewerProtocolPolicy' -- defaultCacheBehavior :: Text -- ^ 'dcbTargetOriginId' -> ForwardedValues -- ^ 'dcbForwardedValues' -> TrustedSigners -- ^ 'dcbTrustedSigners' - -> Text -- ^ 'dcbViewerProtocolPolicy' + -> ViewerProtocolPolicy -- ^ 'dcbViewerProtocolPolicy' -> Integer -- ^ 'dcbMinTTL' -> DefaultCacheBehavior defaultCacheBehavior p1 p2 p3 p4 p5 = DefaultCacheBehavior @@ -2964,7 +2988,7 @@ -- 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 Text +dcbViewerProtocolPolicy :: Lens' DefaultCacheBehavior ViewerProtocolPolicy dcbViewerProtocolPolicy = lens _dcbViewerProtocolPolicy (\s a -> s { _dcbViewerProtocolPolicy = a }) @@ -3342,7 +3366,7 @@ , _dsId :: Text , _dsLastModifiedTime :: RFC822 , _dsOrigins :: Origins - , _dsPriceClass :: Text + , _dsPriceClass :: PriceClass , _dsRestrictions :: Restrictions , _dsStatus :: Text , _dsViewerCertificate :: ViewerCertificate @@ -3372,7 +3396,7 @@ -- -- * 'dsOrigins' @::@ 'Origins' -- --- * 'dsPriceClass' @::@ 'Text' +-- * 'dsPriceClass' @::@ 'PriceClass' -- -- * 'dsRestrictions' @::@ 'Restrictions' -- @@ -3390,7 +3414,7 @@ -> CacheBehaviors -- ^ 'dsCacheBehaviors' -> CustomErrorResponses -- ^ 'dsCustomErrorResponses' -> Text -- ^ 'dsComment' - -> Text -- ^ 'dsPriceClass' + -> PriceClass -- ^ 'dsPriceClass' -> Bool -- ^ 'dsEnabled' -> ViewerCertificate -- ^ 'dsViewerCertificate' -> Restrictions -- ^ 'dsRestrictions' @@ -3463,7 +3487,7 @@ dsOrigins :: Lens' DistributionSummary Origins dsOrigins = lens _dsOrigins (\s a -> s { _dsOrigins = a }) -dsPriceClass :: Lens' DistributionSummary Text +dsPriceClass :: Lens' DistributionSummary PriceClass dsPriceClass = lens _dsPriceClass (\s a -> s { _dsPriceClass = a }) dsRestrictions :: Lens' DistributionSummary Restrictions @@ -3532,6 +3556,10 @@ GRTBlacklist -> "blacklist" GRTNone -> "none" GRTWhitelist -> "whitelist" + +instance ToByteString GeoRestrictionType +instance ToHeader GeoRestrictionType +instance ToQuery GeoRestrictionType instance FromXML GeoRestrictionType where parseXML = parseXMLText "GeoRestrictionType"