diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.1.0` +`1.2.0` ## Description 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: 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 diff --git a/gen/Network/AWS/CloudFront.hs b/gen/Network/AWS/CloudFront.hs --- a/gen/Network/AWS/CloudFront.hs +++ b/gen/Network/AWS/CloudFront.hs @@ -26,8 +26,8 @@ -- /See:/ module Network.AWS.CloudFront ( - -- * Service - CloudFront + -- * Service Configuration + cloudFront -- * Errors -- $errors diff --git a/gen/Network/AWS/CloudFront/CreateCloudFrontOriginAccessIdentity.hs b/gen/Network/AWS/CloudFront/CreateCloudFrontOriginAccessIdentity.hs --- a/gen/Network/AWS/CloudFront/CreateCloudFrontOriginAccessIdentity.hs +++ b/gen/Network/AWS/CloudFront/CreateCloudFrontOriginAccessIdentity.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/CreateDistribution.hs b/gen/Network/AWS/CloudFront/CreateDistribution.hs --- a/gen/Network/AWS/CloudFront/CreateDistribution.hs +++ b/gen/Network/AWS/CloudFront/CreateDistribution.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/CreateInvalidation.hs b/gen/Network/AWS/CloudFront/CreateInvalidation.hs --- a/gen/Network/AWS/CloudFront/CreateInvalidation.hs +++ b/gen/Network/AWS/CloudFront/CreateInvalidation.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/CreateStreamingDistribution.hs b/gen/Network/AWS/CloudFront/CreateStreamingDistribution.hs --- a/gen/Network/AWS/CloudFront/CreateStreamingDistribution.hs +++ b/gen/Network/AWS/CloudFront/CreateStreamingDistribution.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/DeleteCloudFrontOriginAccessIdentity.hs b/gen/Network/AWS/CloudFront/DeleteCloudFrontOriginAccessIdentity.hs --- a/gen/Network/AWS/CloudFront/DeleteCloudFrontOriginAccessIdentity.hs +++ b/gen/Network/AWS/CloudFront/DeleteCloudFrontOriginAccessIdentity.hs @@ -76,11 +76,9 @@ instance AWSRequest DeleteCloudFrontOriginAccessIdentity where - type Sv DeleteCloudFrontOriginAccessIdentity = - CloudFront type Rs DeleteCloudFrontOriginAccessIdentity = DeleteCloudFrontOriginAccessIdentityResponse - request = delete + request = delete cloudFront response = receiveNull DeleteCloudFrontOriginAccessIdentityResponse' diff --git a/gen/Network/AWS/CloudFront/DeleteDistribution.hs b/gen/Network/AWS/CloudFront/DeleteDistribution.hs --- a/gen/Network/AWS/CloudFront/DeleteDistribution.hs +++ b/gen/Network/AWS/CloudFront/DeleteDistribution.hs @@ -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 diff --git a/gen/Network/AWS/CloudFront/DeleteStreamingDistribution.hs b/gen/Network/AWS/CloudFront/DeleteStreamingDistribution.hs --- a/gen/Network/AWS/CloudFront/DeleteStreamingDistribution.hs +++ b/gen/Network/AWS/CloudFront/DeleteStreamingDistribution.hs @@ -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' diff --git a/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentity.hs b/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentity.hs --- a/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentity.hs +++ b/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentity.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentityConfig.hs b/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentityConfig.hs --- a/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentityConfig.hs +++ b/gen/Network/AWS/CloudFront/GetCloudFrontOriginAccessIdentityConfig.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/GetDistribution.hs b/gen/Network/AWS/CloudFront/GetDistribution.hs --- a/gen/Network/AWS/CloudFront/GetDistribution.hs +++ b/gen/Network/AWS/CloudFront/GetDistribution.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/GetDistributionConfig.hs b/gen/Network/AWS/CloudFront/GetDistributionConfig.hs --- a/gen/Network/AWS/CloudFront/GetDistributionConfig.hs +++ b/gen/Network/AWS/CloudFront/GetDistributionConfig.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/GetInvalidation.hs b/gen/Network/AWS/CloudFront/GetInvalidation.hs --- a/gen/Network/AWS/CloudFront/GetInvalidation.hs +++ b/gen/Network/AWS/CloudFront/GetInvalidation.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/GetStreamingDistribution.hs b/gen/Network/AWS/CloudFront/GetStreamingDistribution.hs --- a/gen/Network/AWS/CloudFront/GetStreamingDistribution.hs +++ b/gen/Network/AWS/CloudFront/GetStreamingDistribution.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/GetStreamingDistributionConfig.hs b/gen/Network/AWS/CloudFront/GetStreamingDistributionConfig.hs --- a/gen/Network/AWS/CloudFront/GetStreamingDistributionConfig.hs +++ b/gen/Network/AWS/CloudFront/GetStreamingDistributionConfig.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/ListCloudFrontOriginAccessIdentities.hs b/gen/Network/AWS/CloudFront/ListCloudFrontOriginAccessIdentities.hs --- a/gen/Network/AWS/CloudFront/ListCloudFrontOriginAccessIdentities.hs +++ b/gen/Network/AWS/CloudFront/ListCloudFrontOriginAccessIdentities.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/ListDistributions.hs b/gen/Network/AWS/CloudFront/ListDistributions.hs --- a/gen/Network/AWS/CloudFront/ListDistributions.hs +++ b/gen/Network/AWS/CloudFront/ListDistributions.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/ListInvalidations.hs b/gen/Network/AWS/CloudFront/ListInvalidations.hs --- a/gen/Network/AWS/CloudFront/ListInvalidations.hs +++ b/gen/Network/AWS/CloudFront/ListInvalidations.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/ListStreamingDistributions.hs b/gen/Network/AWS/CloudFront/ListStreamingDistributions.hs --- a/gen/Network/AWS/CloudFront/ListStreamingDistributions.hs +++ b/gen/Network/AWS/CloudFront/ListStreamingDistributions.hs @@ -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 -> 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 @@ -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 diff --git a/gen/Network/AWS/CloudFront/Types/Product.hs b/gen/Network/AWS/CloudFront/Types/Product.hs --- a/gen/Network/AWS/CloudFront/Types/Product.hs +++ b/gen/Network/AWS/CloudFront/Types/Product.hs @@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} diff --git a/gen/Network/AWS/CloudFront/UpdateCloudFrontOriginAccessIdentity.hs b/gen/Network/AWS/CloudFront/UpdateCloudFrontOriginAccessIdentity.hs --- a/gen/Network/AWS/CloudFront/UpdateCloudFrontOriginAccessIdentity.hs +++ b/gen/Network/AWS/CloudFront/UpdateCloudFrontOriginAccessIdentity.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/UpdateDistribution.hs b/gen/Network/AWS/CloudFront/UpdateDistribution.hs --- a/gen/Network/AWS/CloudFront/UpdateDistribution.hs +++ b/gen/Network/AWS/CloudFront/UpdateDistribution.hs @@ -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 -> diff --git a/gen/Network/AWS/CloudFront/UpdateStreamingDistribution.hs b/gen/Network/AWS/CloudFront/UpdateStreamingDistribution.hs --- a/gen/Network/AWS/CloudFront/UpdateStreamingDistribution.hs +++ b/gen/Network/AWS/CloudFront/UpdateStreamingDistribution.hs @@ -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 -> diff --git a/test/Test/AWS/Gen/CloudFront.hs b/test/Test/AWS/Gen/CloudFront.hs --- a/test/Test/AWS/Gen/CloudFront.hs +++ b/test/Test/AWS/Gen/CloudFront.hs @@ -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)