amazonka-cloudfront 1.1.0 → 1.2.0

raw patch · 27 files changed

+82/−93 lines, 27 filesdep ~amazonka-cloudfrontdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-cloudfront.cabal +5/−5
• gen/Network/AWS/CloudFront.hs +2/−2
• gen/Network/AWS/CloudFront/CreateCloudFrontOriginAccessIdentity.hs +1/−3
• gen/Network/AWS/CloudFront/CreateDistribution.hs +1/−2
• gen/Network/AWS/CloudFront/CreateInvalidation.hs +1/−2
• gen/Network/AWS/CloudFront/CreateStreamingDistribution.hs +1/−2
• gen/Network/AWS/CloudFront/DeleteCloudFrontOriginAccessIdentity.hs +1/−3
• gen/Network/AWS/CloudFront/DeleteDistribution.hs +1/−2
• gen/Network/AWS/CloudFront/DeleteStreamingDistribution.hs +1/−2
• gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentity.hs +1/−3
• gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentityConfig.hs +1/−3
• gen/Network/AWS/CloudFront/GetDistribution.hs +1/−2
• gen/Network/AWS/CloudFront/GetDistributionConfig.hs +1/−2
• gen/Network/AWS/CloudFront/GetInvalidation.hs +1/−2
• gen/Network/AWS/CloudFront/GetStreamingDistribution.hs +1/−2
• gen/Network/AWS/CloudFront/GetStreamingDistributionConfig.hs +1/−2
• gen/Network/AWS/CloudFront/ListCloudFrontOriginAccessIdentities.hs +1/−3
• gen/Network/AWS/CloudFront/ListDistributions.hs +1/−2
• gen/Network/AWS/CloudFront/ListInvalidations.hs +1/−2
• gen/Network/AWS/CloudFront/ListStreamingDistributions.hs +1/−2
• gen/Network/AWS/CloudFront/Types.hs +32/−36
• gen/Network/AWS/CloudFront/Types/Product.hs +0/−1
• gen/Network/AWS/CloudFront/UpdateCloudFrontOriginAccessIdentity.hs +1/−3
• gen/Network/AWS/CloudFront/UpdateDistribution.hs +1/−2
• gen/Network/AWS/CloudFront/UpdateStreamingDistribution.hs +1/−2
• test/Test/AWS/Gen/CloudFront.hs +21/−0

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-cloudfront-version:               1.1.0+version:               1.2.0 synopsis:              Amazon CloudFront SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -80,7 +80,7 @@         , Network.AWS.CloudFront.Types.Sum      build-depends:-          amazonka-core == 1.1.0.*+          amazonka-core == 1.2.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cloudfront-test@@ -99,9 +99,9 @@         , Test.AWS.CloudFront.Internal      build-depends:-          amazonka-core == 1.1.0-        , amazonka-test == 1.1.0-        , amazonka-cloudfront == 1.1.0+          amazonka-core == 1.2.0+        , amazonka-test == 1.2.0+        , amazonka-cloudfront == 1.2.0         , base         , bytestring         , lens

@@ -26,8 +26,8 @@ -- /See:/ <http://docs.aws.amazon.com/AmazonCloudFront/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.CloudFront     (-    -- * Service-      CloudFront+    -- * Service Configuration+      cloudFront      -- * Errors     -- $errors

@@ -71,11 +71,9 @@  instance AWSRequest          CreateCloudFrontOriginAccessIdentity where-        type Sv CreateCloudFrontOriginAccessIdentity =-             CloudFront         type Rs CreateCloudFrontOriginAccessIdentity =              CreateCloudFrontOriginAccessIdentityResponse-        request = postXML+        request = postXML cloudFront         response           = receiveXML               (\ s h x ->

@@ -70,10 +70,9 @@ cdDistributionConfig = lens _cdDistributionConfig (\ s a -> s{_cdDistributionConfig = a});  instance AWSRequest CreateDistribution where-        type Sv CreateDistribution = CloudFront         type Rs CreateDistribution =              CreateDistributionResponse-        request = postXML+        request = postXML cloudFront         response           = receiveXML               (\ s h x ->

@@ -79,10 +79,9 @@ ciInvalidationBatch = lens _ciInvalidationBatch (\ s a -> s{_ciInvalidationBatch = a});  instance AWSRequest CreateInvalidation where-        type Sv CreateInvalidation = CloudFront         type Rs CreateInvalidation =              CreateInvalidationResponse-        request = postXML+        request = postXML cloudFront         response           = receiveXML               (\ s h x ->

@@ -70,10 +70,9 @@ csdStreamingDistributionConfig = lens _csdStreamingDistributionConfig (\ s a -> s{_csdStreamingDistributionConfig = a});  instance AWSRequest CreateStreamingDistribution where-        type Sv CreateStreamingDistribution = CloudFront         type Rs CreateStreamingDistribution =              CreateStreamingDistributionResponse-        request = postXML+        request = postXML cloudFront         response           = receiveXML               (\ s h x ->

@@ -76,11 +76,9 @@  instance AWSRequest          DeleteCloudFrontOriginAccessIdentity where-        type Sv DeleteCloudFrontOriginAccessIdentity =-             CloudFront         type Rs DeleteCloudFrontOriginAccessIdentity =              DeleteCloudFrontOriginAccessIdentityResponse-        request = delete+        request = delete cloudFront         response           = receiveNull               DeleteCloudFrontOriginAccessIdentityResponse'

@@ -75,10 +75,9 @@ ddId = lens _ddId (\ s a -> s{_ddId = a});  instance AWSRequest DeleteDistribution where-        type Sv DeleteDistribution = CloudFront         type Rs DeleteDistribution =              DeleteDistributionResponse-        request = delete+        request = delete cloudFront         response = receiveNull DeleteDistributionResponse'  instance ToHeaders DeleteDistribution where

@@ -75,10 +75,9 @@ dsdId = lens _dsdId (\ s a -> s{_dsdId = a});  instance AWSRequest DeleteStreamingDistribution where-        type Sv DeleteStreamingDistribution = CloudFront         type Rs DeleteStreamingDistribution =              DeleteStreamingDistributionResponse-        request = delete+        request = delete cloudFront         response           = receiveNull DeleteStreamingDistributionResponse' 

@@ -70,11 +70,9 @@  instance AWSRequest GetCloudFrontOriginAccessIdentity          where-        type Sv GetCloudFrontOriginAccessIdentity =-             CloudFront         type Rs GetCloudFrontOriginAccessIdentity =              GetCloudFrontOriginAccessIdentityResponse-        request = get+        request = get cloudFront         response           = receiveXML               (\ s h x ->

@@ -70,11 +70,9 @@  instance AWSRequest          GetCloudFrontOriginAccessIdentityConfig where-        type Sv GetCloudFrontOriginAccessIdentityConfig =-             CloudFront         type Rs GetCloudFrontOriginAccessIdentityConfig =              GetCloudFrontOriginAccessIdentityConfigResponse-        request = get+        request = get cloudFront         response           = receiveXML               (\ s h x ->

@@ -69,9 +69,8 @@ gdId = lens _gdId (\ s a -> s{_gdId = a});  instance AWSRequest GetDistribution where-        type Sv GetDistribution = CloudFront         type Rs GetDistribution = GetDistributionResponse-        request = get+        request = get cloudFront         response           = receiveXML               (\ s h x ->

@@ -69,10 +69,9 @@ gdcId = lens _gdcId (\ s a -> s{_gdcId = a});  instance AWSRequest GetDistributionConfig where-        type Sv GetDistributionConfig = CloudFront         type Rs GetDistributionConfig =              GetDistributionConfigResponse-        request = get+        request = get cloudFront         response           = receiveXML               (\ s h x ->

@@ -78,9 +78,8 @@ giId = lens _giId (\ s a -> s{_giId = a});  instance AWSRequest GetInvalidation where-        type Sv GetInvalidation = CloudFront         type Rs GetInvalidation = GetInvalidationResponse-        request = get+        request = get cloudFront         response           = receiveXML               (\ s h x ->

@@ -69,10 +69,9 @@ gsdId = lens _gsdId (\ s a -> s{_gsdId = a});  instance AWSRequest GetStreamingDistribution where-        type Sv GetStreamingDistribution = CloudFront         type Rs GetStreamingDistribution =              GetStreamingDistributionResponse-        request = get+        request = get cloudFront         response           = receiveXML               (\ s h x ->

@@ -70,10 +70,9 @@  instance AWSRequest GetStreamingDistributionConfig          where-        type Sv GetStreamingDistributionConfig = CloudFront         type Rs GetStreamingDistributionConfig =              GetStreamingDistributionConfigResponse-        request = get+        request = get cloudFront         response           = receiveXML               (\ s h x ->

@@ -82,11 +82,9 @@  instance AWSRequest          ListCloudFrontOriginAccessIdentities where-        type Sv ListCloudFrontOriginAccessIdentities =-             CloudFront         type Rs ListCloudFrontOriginAccessIdentities =              ListCloudFrontOriginAccessIdentitiesResponse-        request = get+        request = get cloudFront         response           = receiveXML               (\ s h x ->

@@ -80,9 +80,8 @@ ldMarker = lens _ldMarker (\ s a -> s{_ldMarker = a});  instance AWSRequest ListDistributions where-        type Sv ListDistributions = CloudFront         type Rs ListDistributions = ListDistributionsResponse-        request = get+        request = get cloudFront         response           = receiveXML               (\ s h x ->

@@ -93,9 +93,8 @@ liDistributionId = lens _liDistributionId (\ s a -> s{_liDistributionId = a});  instance AWSRequest ListInvalidations where-        type Sv ListInvalidations = CloudFront         type Rs ListInvalidations = ListInvalidationsResponse-        request = get+        request = get cloudFront         response           = receiveXML               (\ s h x ->

@@ -81,10 +81,9 @@ lsdMarker = lens _lsdMarker (\ s a -> s{_lsdMarker = a});  instance AWSRequest ListStreamingDistributions where-        type Sv ListStreamingDistributions = CloudFront         type Rs ListStreamingDistributions =              ListStreamingDistributionsResponse-        request = get+        request = get cloudFront         response           = receiveXML               (\ s h x ->

@@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}  -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.CloudFront.Types     (-    -- * Service-      CloudFront+    -- * Service Configuration+      cloudFront      -- * Errors     , _InvalidErrorCode@@ -450,39 +449,36 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | Version @2015-04-17@ of the Amazon CloudFront SDK.-data CloudFront--instance AWSService CloudFront where-    type Sg CloudFront = V4-    service = const svc-      where-        svc =-            Service-            { _svcAbbrev = "CloudFront"-            , _svcPrefix = "cloudfront"-            , _svcVersion = "2015-04-17"-            , _svcEndpoint = defaultEndpoint svc-            , _svcTimeout = Just 70-            , _svcStatus = statusSuccess-            , _svcError = parseXMLError-            , _svcRetry = retry-            }-        retry =-            Exponential-            { _retryBase = 5.0e-2-            , _retryGrowth = 2-            , _retryAttempts = 5-            , _retryCheck = check-            }-        check e-          | has (hasCode "ThrottlingException" . hasStatus 400) e =-              Just "throttling_exception"-          | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-          | has (hasStatus 503) e = Just "service_unavailable"-          | has (hasStatus 500) e = Just "general_server_error"-          | has (hasStatus 509) e = Just "limit_exceeded"-          | otherwise = Nothing+-- | API version '2015-04-17' of the Amazon CloudFront SDK configuration.+cloudFront :: Service+cloudFront =+    Service+    { _svcAbbrev = "CloudFront"+    , _svcSigner = v4+    , _svcPrefix = "cloudfront"+    , _svcVersion = "2015-04-17"+    , _svcEndpoint = defaultEndpoint cloudFront+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError+    , _svcRetry = retry+    }+  where+    retry =+        Exponential+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }+    check e+      | has (hasCode "ThrottlingException" . hasStatus 400) e =+          Just "throttling_exception"+      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 503) e = Just "service_unavailable"+      | has (hasStatus 500) e = Just "general_server_error"+      | has (hasStatus 509) e = Just "limit_exceeded"+      | otherwise = Nothing  -- | Prism for InvalidErrorCode' errors. _InvalidErrorCode :: AsError a => Getting (First ServiceError) a ServiceError

@@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE OverloadedStrings  #-} {-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-} 

@@ -90,11 +90,9 @@  instance AWSRequest          UpdateCloudFrontOriginAccessIdentity where-        type Sv UpdateCloudFrontOriginAccessIdentity =-             CloudFront         type Rs UpdateCloudFrontOriginAccessIdentity =              UpdateCloudFrontOriginAccessIdentityResponse-        request = putXML+        request = putXML cloudFront         response           = receiveXML               (\ s h x ->

@@ -89,10 +89,9 @@ udId = lens _udId (\ s a -> s{_udId = a});  instance AWSRequest UpdateDistribution where-        type Sv UpdateDistribution = CloudFront         type Rs UpdateDistribution =              UpdateDistributionResponse-        request = putXML+        request = putXML cloudFront         response           = receiveXML               (\ s h x ->

@@ -89,10 +89,9 @@ usdId = lens _usdId (\ s a -> s{_usdId = a});  instance AWSRequest UpdateStreamingDistribution where-        type Sv UpdateStreamingDistribution = CloudFront         type Rs UpdateStreamingDistribution =              UpdateStreamingDistributionResponse-        request = putXML+        request = putXML cloudFront         response           = receiveXML               (\ s h x ->

@@ -273,124 +273,145 @@ testDeleteStreamingDistributionResponse = res     "DeleteStreamingDistributionResponse"     "fixture/DeleteStreamingDistributionResponse"+    cloudFront     (Proxy :: Proxy DeleteStreamingDistribution)  testUpdateStreamingDistributionResponse :: UpdateStreamingDistributionResponse -> TestTree testUpdateStreamingDistributionResponse = res     "UpdateStreamingDistributionResponse"     "fixture/UpdateStreamingDistributionResponse"+    cloudFront     (Proxy :: Proxy UpdateStreamingDistribution)  testCreateDistributionResponse :: CreateDistributionResponse -> TestTree testCreateDistributionResponse = res     "CreateDistributionResponse"     "fixture/CreateDistributionResponse"+    cloudFront     (Proxy :: Proxy CreateDistribution)  testGetDistributionConfigResponse :: GetDistributionConfigResponse -> TestTree testGetDistributionConfigResponse = res     "GetDistributionConfigResponse"     "fixture/GetDistributionConfigResponse"+    cloudFront     (Proxy :: Proxy GetDistributionConfig)  testGetDistributionResponse :: GetDistributionResponse -> TestTree testGetDistributionResponse = res     "GetDistributionResponse"     "fixture/GetDistributionResponse"+    cloudFront     (Proxy :: Proxy GetDistribution)  testDeleteCloudFrontOriginAccessIdentityResponse :: DeleteCloudFrontOriginAccessIdentityResponse -> TestTree testDeleteCloudFrontOriginAccessIdentityResponse = res     "DeleteCloudFrontOriginAccessIdentityResponse"     "fixture/DeleteCloudFrontOriginAccessIdentityResponse"+    cloudFront     (Proxy :: Proxy DeleteCloudFrontOriginAccessIdentity)  testUpdateCloudFrontOriginAccessIdentityResponse :: UpdateCloudFrontOriginAccessIdentityResponse -> TestTree testUpdateCloudFrontOriginAccessIdentityResponse = res     "UpdateCloudFrontOriginAccessIdentityResponse"     "fixture/UpdateCloudFrontOriginAccessIdentityResponse"+    cloudFront     (Proxy :: Proxy UpdateCloudFrontOriginAccessIdentity)  testListStreamingDistributionsResponse :: ListStreamingDistributionsResponse -> TestTree testListStreamingDistributionsResponse = res     "ListStreamingDistributionsResponse"     "fixture/ListStreamingDistributionsResponse"+    cloudFront     (Proxy :: Proxy ListStreamingDistributions)  testGetStreamingDistributionConfigResponse :: GetStreamingDistributionConfigResponse -> TestTree testGetStreamingDistributionConfigResponse = res     "GetStreamingDistributionConfigResponse"     "fixture/GetStreamingDistributionConfigResponse"+    cloudFront     (Proxy :: Proxy GetStreamingDistributionConfig)  testGetCloudFrontOriginAccessIdentityConfigResponse :: GetCloudFrontOriginAccessIdentityConfigResponse -> TestTree testGetCloudFrontOriginAccessIdentityConfigResponse = res     "GetCloudFrontOriginAccessIdentityConfigResponse"     "fixture/GetCloudFrontOriginAccessIdentityConfigResponse"+    cloudFront     (Proxy :: Proxy GetCloudFrontOriginAccessIdentityConfig)  testCreateStreamingDistributionResponse :: CreateStreamingDistributionResponse -> TestTree testCreateStreamingDistributionResponse = res     "CreateStreamingDistributionResponse"     "fixture/CreateStreamingDistributionResponse"+    cloudFront     (Proxy :: Proxy CreateStreamingDistribution)  testCreateCloudFrontOriginAccessIdentityResponse :: CreateCloudFrontOriginAccessIdentityResponse -> TestTree testCreateCloudFrontOriginAccessIdentityResponse = res     "CreateCloudFrontOriginAccessIdentityResponse"     "fixture/CreateCloudFrontOriginAccessIdentityResponse"+    cloudFront     (Proxy :: Proxy CreateCloudFrontOriginAccessIdentity)  testListCloudFrontOriginAccessIdentitiesResponse :: ListCloudFrontOriginAccessIdentitiesResponse -> TestTree testListCloudFrontOriginAccessIdentitiesResponse = res     "ListCloudFrontOriginAccessIdentitiesResponse"     "fixture/ListCloudFrontOriginAccessIdentitiesResponse"+    cloudFront     (Proxy :: Proxy ListCloudFrontOriginAccessIdentities)  testGetInvalidationResponse :: GetInvalidationResponse -> TestTree testGetInvalidationResponse = res     "GetInvalidationResponse"     "fixture/GetInvalidationResponse"+    cloudFront     (Proxy :: Proxy GetInvalidation)  testListInvalidationsResponse :: ListInvalidationsResponse -> TestTree testListInvalidationsResponse = res     "ListInvalidationsResponse"     "fixture/ListInvalidationsResponse"+    cloudFront     (Proxy :: Proxy ListInvalidations)  testGetStreamingDistributionResponse :: GetStreamingDistributionResponse -> TestTree testGetStreamingDistributionResponse = res     "GetStreamingDistributionResponse"     "fixture/GetStreamingDistributionResponse"+    cloudFront     (Proxy :: Proxy GetStreamingDistribution)  testGetCloudFrontOriginAccessIdentityResponse :: GetCloudFrontOriginAccessIdentityResponse -> TestTree testGetCloudFrontOriginAccessIdentityResponse = res     "GetCloudFrontOriginAccessIdentityResponse"     "fixture/GetCloudFrontOriginAccessIdentityResponse"+    cloudFront     (Proxy :: Proxy GetCloudFrontOriginAccessIdentity)  testCreateInvalidationResponse :: CreateInvalidationResponse -> TestTree testCreateInvalidationResponse = res     "CreateInvalidationResponse"     "fixture/CreateInvalidationResponse"+    cloudFront     (Proxy :: Proxy CreateInvalidation)  testUpdateDistributionResponse :: UpdateDistributionResponse -> TestTree testUpdateDistributionResponse = res     "UpdateDistributionResponse"     "fixture/UpdateDistributionResponse"+    cloudFront     (Proxy :: Proxy UpdateDistribution)  testDeleteDistributionResponse :: DeleteDistributionResponse -> TestTree testDeleteDistributionResponse = res     "DeleteDistributionResponse"     "fixture/DeleteDistributionResponse"+    cloudFront     (Proxy :: Proxy DeleteDistribution)  testListDistributionsResponse :: ListDistributionsResponse -> TestTree testListDistributionsResponse = res     "ListDistributionsResponse"     "fixture/ListDistributionsResponse"+    cloudFront     (Proxy :: Proxy ListDistributions)