amazonka-elasticache 1.1.0 → 1.2.0

raw patch · 43 files changed

+114/−122 lines, 43 filesdep ~amazonka-coredep ~amazonka-elasticachedep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-elasticache.cabal +5/−5
• gen/Network/AWS/ElastiCache.hs +2/−2
• gen/Network/AWS/ElastiCache/AddTagsToResource.hs +1/−2
• gen/Network/AWS/ElastiCache/AuthorizeCacheSecurityGroupIngress.hs +1/−3
• gen/Network/AWS/ElastiCache/CopySnapshot.hs +1/−2
• gen/Network/AWS/ElastiCache/CreateCacheCluster.hs +1/−2
• gen/Network/AWS/ElastiCache/CreateCacheParameterGroup.hs +1/−2
• gen/Network/AWS/ElastiCache/CreateCacheSecurityGroup.hs +1/−2
• gen/Network/AWS/ElastiCache/CreateCacheSubnetGroup.hs +1/−2
• gen/Network/AWS/ElastiCache/CreateReplicationGroup.hs +1/−2
• gen/Network/AWS/ElastiCache/CreateSnapshot.hs +1/−2
• gen/Network/AWS/ElastiCache/DeleteCacheCluster.hs +1/−2
• gen/Network/AWS/ElastiCache/DeleteCacheParameterGroup.hs +1/−2
• gen/Network/AWS/ElastiCache/DeleteCacheSecurityGroup.hs +1/−2
• gen/Network/AWS/ElastiCache/DeleteCacheSubnetGroup.hs +1/−2
• gen/Network/AWS/ElastiCache/DeleteReplicationGroup.hs +1/−2
• gen/Network/AWS/ElastiCache/DeleteSnapshot.hs +1/−2
• gen/Network/AWS/ElastiCache/DescribeCacheClusters.hs +1/−2
• gen/Network/AWS/ElastiCache/DescribeCacheEngineVersions.hs +1/−2
• gen/Network/AWS/ElastiCache/DescribeCacheParameterGroups.hs +1/−2
• gen/Network/AWS/ElastiCache/DescribeCacheParameters.hs +1/−2
• gen/Network/AWS/ElastiCache/DescribeCacheSecurityGroups.hs +1/−2
• gen/Network/AWS/ElastiCache/DescribeCacheSubnetGroups.hs +1/−2
• gen/Network/AWS/ElastiCache/DescribeEngineDefaultParameters.hs +1/−2
• gen/Network/AWS/ElastiCache/DescribeEvents.hs +1/−2
• gen/Network/AWS/ElastiCache/DescribeReplicationGroups.hs +1/−2
• gen/Network/AWS/ElastiCache/DescribeReservedCacheNodes.hs +1/−2
• gen/Network/AWS/ElastiCache/DescribeReservedCacheNodesOfferings.hs +1/−3
• gen/Network/AWS/ElastiCache/DescribeSnapshots.hs +1/−2
• gen/Network/AWS/ElastiCache/ListTagsForResource.hs +1/−2
• gen/Network/AWS/ElastiCache/ModifyCacheCluster.hs +1/−2
• gen/Network/AWS/ElastiCache/ModifyCacheParameterGroup.hs +1/−2
• gen/Network/AWS/ElastiCache/ModifyCacheSubnetGroup.hs +1/−2
• gen/Network/AWS/ElastiCache/ModifyReplicationGroup.hs +1/−2
• gen/Network/AWS/ElastiCache/PurchaseReservedCacheNodesOffering.hs +1/−3
• gen/Network/AWS/ElastiCache/RebootCacheCluster.hs +1/−2
• gen/Network/AWS/ElastiCache/RemoveTagsFromResource.hs +1/−2
• gen/Network/AWS/ElastiCache/ResetCacheParameterGroup.hs +1/−2
• gen/Network/AWS/ElastiCache/RevokeCacheSecurityGroupIngress.hs +1/−2
• gen/Network/AWS/ElastiCache/Types.hs +32/−36
• gen/Network/AWS/ElastiCache/Types/Product.hs +0/−1
• test/Test/AWS/Gen/ElastiCache.hs +37/−0

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

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

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

@@ -89,9 +89,8 @@ attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce;  instance AWSRequest AddTagsToResource where-        type Sv AddTagsToResource = ElastiCache         type Rs AddTagsToResource = TagListMessage-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "AddTagsToResourceResult"               (\ s h x -> parseXML x)

@@ -98,11 +98,9 @@  instance AWSRequest          AuthorizeCacheSecurityGroupIngress where-        type Sv AuthorizeCacheSecurityGroupIngress =-             ElastiCache         type Rs AuthorizeCacheSecurityGroupIngress =              AuthorizeCacheSecurityGroupIngressResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper               "AuthorizeCacheSecurityGroupIngressResult"

@@ -78,9 +78,8 @@ csTargetSnapshotName = lens _csTargetSnapshotName (\ s a -> s{_csTargetSnapshotName = a});  instance AWSRequest CopySnapshot where-        type Sv CopySnapshot = ElastiCache         type Rs CopySnapshot = CopySnapshotResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "CopySnapshotResult"               (\ s h x ->

@@ -417,10 +417,9 @@ cccCacheClusterId = lens _cccCacheClusterId (\ s a -> s{_cccCacheClusterId = a});  instance AWSRequest CreateCacheCluster where-        type Sv CreateCacheCluster = ElastiCache         type Rs CreateCacheCluster =              CreateCacheClusterResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "CreateCacheClusterResult"               (\ s h x ->

@@ -93,10 +93,9 @@ ccpgDescription = lens _ccpgDescription (\ s a -> s{_ccpgDescription = a});  instance AWSRequest CreateCacheParameterGroup where-        type Sv CreateCacheParameterGroup = ElastiCache         type Rs CreateCacheParameterGroup =              CreateCacheParameterGroupResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "CreateCacheParameterGroupResult"               (\ s h x ->

@@ -92,10 +92,9 @@ ccsgDescription = lens _ccsgDescription (\ s a -> s{_ccsgDescription = a});  instance AWSRequest CreateCacheSecurityGroup where-        type Sv CreateCacheSecurityGroup = ElastiCache         type Rs CreateCacheSecurityGroup =              CreateCacheSecurityGroupResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "CreateCacheSecurityGroupResult"               (\ s h x ->

@@ -96,10 +96,9 @@ ccsgSubnetIds = lens _ccsgSubnetIds (\ s a -> s{_ccsgSubnetIds = a}) . _Coerce;  instance AWSRequest CreateCacheSubnetGroup where-        type Sv CreateCacheSubnetGroup = ElastiCache         type Rs CreateCacheSubnetGroup =              CreateCacheSubnetGroupResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "CreateCacheSubnetGroupResult"               (\ s h x ->

@@ -406,10 +406,9 @@ crgReplicationGroupDescription = lens _crgReplicationGroupDescription (\ s a -> s{_crgReplicationGroupDescription = a});  instance AWSRequest CreateReplicationGroup where-        type Sv CreateReplicationGroup = ElastiCache         type Rs CreateReplicationGroup =              CreateReplicationGroupResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "CreateReplicationGroupResult"               (\ s h x ->

@@ -80,9 +80,8 @@ csSnapshotName = lens _csSnapshotName (\ s a -> s{_csSnapshotName = a});  instance AWSRequest CreateSnapshot where-        type Sv CreateSnapshot = ElastiCache         type Rs CreateSnapshot = CreateSnapshotResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "CreateSnapshotResult"               (\ s h x ->

@@ -87,10 +87,9 @@ dccCacheClusterId = lens _dccCacheClusterId (\ s a -> s{_dccCacheClusterId = a});  instance AWSRequest DeleteCacheCluster where-        type Sv DeleteCacheCluster = ElastiCache         type Rs DeleteCacheCluster =              DeleteCacheClusterResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "DeleteCacheClusterResult"               (\ s h x ->

@@ -70,10 +70,9 @@ dCacheParameterGroupName = lens _dCacheParameterGroupName (\ s a -> s{_dCacheParameterGroupName = a});  instance AWSRequest DeleteCacheParameterGroup where-        type Sv DeleteCacheParameterGroup = ElastiCache         type Rs DeleteCacheParameterGroup =              DeleteCacheParameterGroupResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveNull DeleteCacheParameterGroupResponse' 

@@ -70,10 +70,9 @@ dcsgCacheSecurityGroupName = lens _dcsgCacheSecurityGroupName (\ s a -> s{_dcsgCacheSecurityGroupName = a});  instance AWSRequest DeleteCacheSecurityGroup where-        type Sv DeleteCacheSecurityGroup = ElastiCache         type Rs DeleteCacheSecurityGroup =              DeleteCacheSecurityGroupResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveNull DeleteCacheSecurityGroupResponse' 

@@ -71,10 +71,9 @@ dCacheSubnetGroupName = lens _dCacheSubnetGroupName (\ s a -> s{_dCacheSubnetGroupName = a});  instance AWSRequest DeleteCacheSubnetGroup where-        type Sv DeleteCacheSubnetGroup = ElastiCache         type Rs DeleteCacheSubnetGroup =              DeleteCacheSubnetGroupResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveNull DeleteCacheSubnetGroupResponse' 

@@ -99,10 +99,9 @@ drgReplicationGroupId = lens _drgReplicationGroupId (\ s a -> s{_drgReplicationGroupId = a});  instance AWSRequest DeleteReplicationGroup where-        type Sv DeleteReplicationGroup = ElastiCache         type Rs DeleteReplicationGroup =              DeleteReplicationGroupResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "DeleteReplicationGroupResult"               (\ s h x ->

@@ -70,9 +70,8 @@ dSnapshotName = lens _dSnapshotName (\ s a -> s{_dSnapshotName = a});  instance AWSRequest DeleteSnapshot where-        type Sv DeleteSnapshot = ElastiCache         type Rs DeleteSnapshot = DeleteSnapshotResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "DeleteSnapshotResult"               (\ s h x ->

@@ -139,10 +139,9 @@           | otherwise = Just $ rq & dMarker .~ rs ^. drsMarker  instance AWSRequest DescribeCacheClusters where-        type Sv DescribeCacheClusters = ElastiCache         type Rs DescribeCacheClusters =              DescribeCacheClustersResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "DescribeCacheClustersResult"               (\ s h x ->

@@ -143,10 +143,9 @@             Just $ rq & dcevMarker .~ rs ^. dcevrsMarker  instance AWSRequest DescribeCacheEngineVersions where-        type Sv DescribeCacheEngineVersions = ElastiCache         type Rs DescribeCacheEngineVersions =              DescribeCacheEngineVersionsResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper               "DescribeCacheEngineVersionsResult"

@@ -108,10 +108,9 @@  instance AWSRequest DescribeCacheParameterGroups          where-        type Sv DescribeCacheParameterGroups = ElastiCache         type Rs DescribeCacheParameterGroups =              DescribeCacheParameterGroupsResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper               "DescribeCacheParameterGroupsResult"

@@ -119,10 +119,9 @@             Just $ rq & dcpMarker .~ rs ^. dcprsMarker  instance AWSRequest DescribeCacheParameters where-        type Sv DescribeCacheParameters = ElastiCache         type Rs DescribeCacheParameters =              DescribeCacheParametersResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "DescribeCacheParametersResult"               (\ s h x ->

@@ -107,10 +107,9 @@             Just $ rq & dcsgsMarker .~ rs ^. dcsgsrsMarker  instance AWSRequest DescribeCacheSecurityGroups where-        type Sv DescribeCacheSecurityGroups = ElastiCache         type Rs DescribeCacheSecurityGroups =              DescribeCacheSecurityGroupsResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper               "DescribeCacheSecurityGroupsResult"

@@ -107,10 +107,9 @@             Just $ rq & dcsgMarker .~ rs ^. dcsgrsMarker  instance AWSRequest DescribeCacheSubnetGroups where-        type Sv DescribeCacheSubnetGroups = ElastiCache         type Rs DescribeCacheSubnetGroups =              DescribeCacheSubnetGroupsResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "DescribeCacheSubnetGroupsResult"               (\ s h x ->

@@ -114,10 +114,9 @@  instance AWSRequest DescribeEngineDefaultParameters          where-        type Sv DescribeEngineDefaultParameters = ElastiCache         type Rs DescribeEngineDefaultParameters =              DescribeEngineDefaultParametersResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper               "DescribeEngineDefaultParametersResult"

@@ -154,9 +154,8 @@             Just $ rq & deMarker .~ rs ^. dersMarker  instance AWSRequest DescribeEvents where-        type Sv DescribeEvents = ElastiCache         type Rs DescribeEvents = DescribeEventsResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "DescribeEventsResult"               (\ s h x ->

@@ -112,10 +112,9 @@             Just $ rq & drgsMarker .~ rs ^. drgrsMarker  instance AWSRequest DescribeReplicationGroups where-        type Sv DescribeReplicationGroups = ElastiCache         type Rs DescribeReplicationGroups =              DescribeReplicationGroupsResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "DescribeReplicationGroupsResult"               (\ s h x ->

@@ -193,10 +193,9 @@             Just $ rq & drcnMarker .~ rs ^. drcnrsMarker  instance AWSRequest DescribeReservedCacheNodes where-        type Sv DescribeReservedCacheNodes = ElastiCache         type Rs DescribeReservedCacheNodes =              DescribeReservedCacheNodesResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper               "DescribeReservedCacheNodesResult"

@@ -188,11 +188,9 @@  instance AWSRequest          DescribeReservedCacheNodesOfferings where-        type Sv DescribeReservedCacheNodesOfferings =-             ElastiCache         type Rs DescribeReservedCacheNodesOfferings =              DescribeReservedCacheNodesOfferingsResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper               "DescribeReservedCacheNodesOfferingsResult"

@@ -131,9 +131,8 @@             Just $ rq & dsMarker .~ rs ^. dssrsMarker  instance AWSRequest DescribeSnapshots where-        type Sv DescribeSnapshots = ElastiCache         type Rs DescribeSnapshots = DescribeSnapshotsResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "DescribeSnapshotsResult"               (\ s h x ->

@@ -75,9 +75,8 @@ ltfrResourceName = lens _ltfrResourceName (\ s a -> s{_ltfrResourceName = a});  instance AWSRequest ListTagsForResource where-        type Sv ListTagsForResource = ElastiCache         type Rs ListTagsForResource = TagListMessage-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "ListTagsForResourceResult"               (\ s h x -> parseXML x)

@@ -370,10 +370,9 @@ mccCacheClusterId = lens _mccCacheClusterId (\ s a -> s{_mccCacheClusterId = a});  instance AWSRequest ModifyCacheCluster where-        type Sv ModifyCacheCluster = ElastiCache         type Rs ModifyCacheCluster =              ModifyCacheClusterResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "ModifyCacheClusterResult"               (\ s h x ->

@@ -80,10 +80,9 @@ mcpgParameterNameValues = lens _mcpgParameterNameValues (\ s a -> s{_mcpgParameterNameValues = a}) . _Coerce;  instance AWSRequest ModifyCacheParameterGroup where-        type Sv ModifyCacheParameterGroup = ElastiCache         type Rs ModifyCacheParameterGroup =              CacheParameterGroupNameMessage-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "ModifyCacheParameterGroupResult"               (\ s h x -> parseXML x)

@@ -93,10 +93,9 @@ mcsgCacheSubnetGroupName = lens _mcsgCacheSubnetGroupName (\ s a -> s{_mcsgCacheSubnetGroupName = a});  instance AWSRequest ModifyCacheSubnetGroup where-        type Sv ModifyCacheSubnetGroup = ElastiCache         type Rs ModifyCacheSubnetGroup =              ModifyCacheSubnetGroupResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "ModifyCacheSubnetGroupResult"               (\ s h x ->

@@ -276,10 +276,9 @@ mrgReplicationGroupId = lens _mrgReplicationGroupId (\ s a -> s{_mrgReplicationGroupId = a});  instance AWSRequest ModifyReplicationGroup where-        type Sv ModifyReplicationGroup = ElastiCache         type Rs ModifyReplicationGroup =              ModifyReplicationGroupResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "ModifyReplicationGroupResult"               (\ s h x ->

@@ -94,11 +94,9 @@  instance AWSRequest          PurchaseReservedCacheNodesOffering where-        type Sv PurchaseReservedCacheNodesOffering =-             ElastiCache         type Rs PurchaseReservedCacheNodesOffering =              PurchaseReservedCacheNodesOfferingResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper               "PurchaseReservedCacheNodesOfferingResult"

@@ -90,10 +90,9 @@ rccCacheNodeIdsToReboot = lens _rccCacheNodeIdsToReboot (\ s a -> s{_rccCacheNodeIdsToReboot = a}) . _Coerce;  instance AWSRequest RebootCacheCluster where-        type Sv RebootCacheCluster = ElastiCache         type Rs RebootCacheCluster =              RebootCacheClusterResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "RebootCacheClusterResult"               (\ s h x ->

@@ -82,9 +82,8 @@ rtfrTagKeys = lens _rtfrTagKeys (\ s a -> s{_rtfrTagKeys = a}) . _Coerce;  instance AWSRequest RemoveTagsFromResource where-        type Sv RemoveTagsFromResource = ElastiCache         type Rs RemoveTagsFromResource = TagListMessage-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "RemoveTagsFromResourceResult"               (\ s h x -> parseXML x)

@@ -94,10 +94,9 @@ rcpgParameterNameValues = lens _rcpgParameterNameValues (\ s a -> s{_rcpgParameterNameValues = a}) . _Coerce;  instance AWSRequest ResetCacheParameterGroup where-        type Sv ResetCacheParameterGroup = ElastiCache         type Rs ResetCacheParameterGroup =              CacheParameterGroupNameMessage-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper "ResetCacheParameterGroupResult"               (\ s h x -> parseXML x)

@@ -93,10 +93,9 @@  instance AWSRequest RevokeCacheSecurityGroupIngress          where-        type Sv RevokeCacheSecurityGroupIngress = ElastiCache         type Rs RevokeCacheSecurityGroupIngress =              RevokeCacheSecurityGroupIngressResponse-        request = postQuery+        request = postQuery elastiCache         response           = receiveXMLWrapper               "RevokeCacheSecurityGroupIngressResult"

@@ -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.ElastiCache.Types     (-    -- * Service-      ElastiCache+    -- * Service Configuration+      elastiCache      -- * Errors     , _CacheSubnetGroupAlreadyExistsFault@@ -372,39 +371,36 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | Version @2015-02-02@ of the Amazon ElastiCache SDK.-data ElastiCache--instance AWSService ElastiCache where-    type Sg ElastiCache = V4-    service = const svc-      where-        svc =-            Service-            { _svcAbbrev = "ElastiCache"-            , _svcPrefix = "elasticache"-            , _svcVersion = "2015-02-02"-            , _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-02-02' of the Amazon ElastiCache SDK configuration.+elastiCache :: Service+elastiCache =+    Service+    { _svcAbbrev = "ElastiCache"+    , _svcSigner = v4+    , _svcPrefix = "elasticache"+    , _svcVersion = "2015-02-02"+    , _svcEndpoint = defaultEndpoint elastiCache+    , _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  -- | The requested cache subnet group name is already in use by an existing -- cache subnet group.

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

@@ -449,220 +449,257 @@ testDeleteCacheSecurityGroupResponse = res     "DeleteCacheSecurityGroupResponse"     "fixture/DeleteCacheSecurityGroupResponse"+    elastiCache     (Proxy :: Proxy DeleteCacheSecurityGroup)  testCreateReplicationGroupResponse :: CreateReplicationGroupResponse -> TestTree testCreateReplicationGroupResponse = res     "CreateReplicationGroupResponse"     "fixture/CreateReplicationGroupResponse"+    elastiCache     (Proxy :: Proxy CreateReplicationGroup)  testDeleteCacheClusterResponse :: DeleteCacheClusterResponse -> TestTree testDeleteCacheClusterResponse = res     "DeleteCacheClusterResponse"     "fixture/DeleteCacheClusterResponse"+    elastiCache     (Proxy :: Proxy DeleteCacheCluster)  testRebootCacheClusterResponse :: RebootCacheClusterResponse -> TestTree testRebootCacheClusterResponse = res     "RebootCacheClusterResponse"     "fixture/RebootCacheClusterResponse"+    elastiCache     (Proxy :: Proxy RebootCacheCluster)  testRevokeCacheSecurityGroupIngressResponse :: RevokeCacheSecurityGroupIngressResponse -> TestTree testRevokeCacheSecurityGroupIngressResponse = res     "RevokeCacheSecurityGroupIngressResponse"     "fixture/RevokeCacheSecurityGroupIngressResponse"+    elastiCache     (Proxy :: Proxy RevokeCacheSecurityGroupIngress)  testDescribeEventsResponse :: DescribeEventsResponse -> TestTree testDescribeEventsResponse = res     "DescribeEventsResponse"     "fixture/DescribeEventsResponse"+    elastiCache     (Proxy :: Proxy DescribeEvents)  testDescribeEngineDefaultParametersResponse :: DescribeEngineDefaultParametersResponse -> TestTree testDescribeEngineDefaultParametersResponse = res     "DescribeEngineDefaultParametersResponse"     "fixture/DescribeEngineDefaultParametersResponse"+    elastiCache     (Proxy :: Proxy DescribeEngineDefaultParameters)  testModifyCacheParameterGroupResponse :: CacheParameterGroupNameMessage -> TestTree testModifyCacheParameterGroupResponse = res     "ModifyCacheParameterGroupResponse"     "fixture/ModifyCacheParameterGroupResponse"+    elastiCache     (Proxy :: Proxy ModifyCacheParameterGroup)  testCreateCacheClusterResponse :: CreateCacheClusterResponse -> TestTree testCreateCacheClusterResponse = res     "CreateCacheClusterResponse"     "fixture/CreateCacheClusterResponse"+    elastiCache     (Proxy :: Proxy CreateCacheCluster)  testListTagsForResourceResponse :: TagListMessage -> TestTree testListTagsForResourceResponse = res     "ListTagsForResourceResponse"     "fixture/ListTagsForResourceResponse"+    elastiCache     (Proxy :: Proxy ListTagsForResource)  testDeleteReplicationGroupResponse :: DeleteReplicationGroupResponse -> TestTree testDeleteReplicationGroupResponse = res     "DeleteReplicationGroupResponse"     "fixture/DeleteReplicationGroupResponse"+    elastiCache     (Proxy :: Proxy DeleteReplicationGroup)  testPurchaseReservedCacheNodesOfferingResponse :: PurchaseReservedCacheNodesOfferingResponse -> TestTree testPurchaseReservedCacheNodesOfferingResponse = res     "PurchaseReservedCacheNodesOfferingResponse"     "fixture/PurchaseReservedCacheNodesOfferingResponse"+    elastiCache     (Proxy :: Proxy PurchaseReservedCacheNodesOffering)  testDescribeCacheClustersResponse :: DescribeCacheClustersResponse -> TestTree testDescribeCacheClustersResponse = res     "DescribeCacheClustersResponse"     "fixture/DescribeCacheClustersResponse"+    elastiCache     (Proxy :: Proxy DescribeCacheClusters)  testModifyReplicationGroupResponse :: ModifyReplicationGroupResponse -> TestTree testModifyReplicationGroupResponse = res     "ModifyReplicationGroupResponse"     "fixture/ModifyReplicationGroupResponse"+    elastiCache     (Proxy :: Proxy ModifyReplicationGroup)  testRemoveTagsFromResourceResponse :: TagListMessage -> TestTree testRemoveTagsFromResourceResponse = res     "RemoveTagsFromResourceResponse"     "fixture/RemoveTagsFromResourceResponse"+    elastiCache     (Proxy :: Proxy RemoveTagsFromResource)  testDescribeCacheParametersResponse :: DescribeCacheParametersResponse -> TestTree testDescribeCacheParametersResponse = res     "DescribeCacheParametersResponse"     "fixture/DescribeCacheParametersResponse"+    elastiCache     (Proxy :: Proxy DescribeCacheParameters)  testDescribeCacheSubnetGroupsResponse :: DescribeCacheSubnetGroupsResponse -> TestTree testDescribeCacheSubnetGroupsResponse = res     "DescribeCacheSubnetGroupsResponse"     "fixture/DescribeCacheSubnetGroupsResponse"+    elastiCache     (Proxy :: Proxy DescribeCacheSubnetGroups)  testCreateCacheSecurityGroupResponse :: CreateCacheSecurityGroupResponse -> TestTree testCreateCacheSecurityGroupResponse = res     "CreateCacheSecurityGroupResponse"     "fixture/CreateCacheSecurityGroupResponse"+    elastiCache     (Proxy :: Proxy CreateCacheSecurityGroup)  testAddTagsToResourceResponse :: TagListMessage -> TestTree testAddTagsToResourceResponse = res     "AddTagsToResourceResponse"     "fixture/AddTagsToResourceResponse"+    elastiCache     (Proxy :: Proxy AddTagsToResource)  testAuthorizeCacheSecurityGroupIngressResponse :: AuthorizeCacheSecurityGroupIngressResponse -> TestTree testAuthorizeCacheSecurityGroupIngressResponse = res     "AuthorizeCacheSecurityGroupIngressResponse"     "fixture/AuthorizeCacheSecurityGroupIngressResponse"+    elastiCache     (Proxy :: Proxy AuthorizeCacheSecurityGroupIngress)  testCopySnapshotResponse :: CopySnapshotResponse -> TestTree testCopySnapshotResponse = res     "CopySnapshotResponse"     "fixture/CopySnapshotResponse"+    elastiCache     (Proxy :: Proxy CopySnapshot)  testCreateCacheSubnetGroupResponse :: CreateCacheSubnetGroupResponse -> TestTree testCreateCacheSubnetGroupResponse = res     "CreateCacheSubnetGroupResponse"     "fixture/CreateCacheSubnetGroupResponse"+    elastiCache     (Proxy :: Proxy CreateCacheSubnetGroup)  testDescribeCacheParameterGroupsResponse :: DescribeCacheParameterGroupsResponse -> TestTree testDescribeCacheParameterGroupsResponse = res     "DescribeCacheParameterGroupsResponse"     "fixture/DescribeCacheParameterGroupsResponse"+    elastiCache     (Proxy :: Proxy DescribeCacheParameterGroups)  testResetCacheParameterGroupResponse :: CacheParameterGroupNameMessage -> TestTree testResetCacheParameterGroupResponse = res     "ResetCacheParameterGroupResponse"     "fixture/ResetCacheParameterGroupResponse"+    elastiCache     (Proxy :: Proxy ResetCacheParameterGroup)  testDescribeSnapshotsResponse :: DescribeSnapshotsResponse -> TestTree testDescribeSnapshotsResponse = res     "DescribeSnapshotsResponse"     "fixture/DescribeSnapshotsResponse"+    elastiCache     (Proxy :: Proxy DescribeSnapshots)  testDescribeReservedCacheNodesOfferingsResponse :: DescribeReservedCacheNodesOfferingsResponse -> TestTree testDescribeReservedCacheNodesOfferingsResponse = res     "DescribeReservedCacheNodesOfferingsResponse"     "fixture/DescribeReservedCacheNodesOfferingsResponse"+    elastiCache     (Proxy :: Proxy DescribeReservedCacheNodesOfferings)  testDeleteSnapshotResponse :: DeleteSnapshotResponse -> TestTree testDeleteSnapshotResponse = res     "DeleteSnapshotResponse"     "fixture/DeleteSnapshotResponse"+    elastiCache     (Proxy :: Proxy DeleteSnapshot)  testDescribeReplicationGroupsResponse :: DescribeReplicationGroupsResponse -> TestTree testDescribeReplicationGroupsResponse = res     "DescribeReplicationGroupsResponse"     "fixture/DescribeReplicationGroupsResponse"+    elastiCache     (Proxy :: Proxy DescribeReplicationGroups)  testModifyCacheSubnetGroupResponse :: ModifyCacheSubnetGroupResponse -> TestTree testModifyCacheSubnetGroupResponse = res     "ModifyCacheSubnetGroupResponse"     "fixture/ModifyCacheSubnetGroupResponse"+    elastiCache     (Proxy :: Proxy ModifyCacheSubnetGroup)  testCreateSnapshotResponse :: CreateSnapshotResponse -> TestTree testCreateSnapshotResponse = res     "CreateSnapshotResponse"     "fixture/CreateSnapshotResponse"+    elastiCache     (Proxy :: Proxy CreateSnapshot)  testDescribeCacheSecurityGroupsResponse :: DescribeCacheSecurityGroupsResponse -> TestTree testDescribeCacheSecurityGroupsResponse = res     "DescribeCacheSecurityGroupsResponse"     "fixture/DescribeCacheSecurityGroupsResponse"+    elastiCache     (Proxy :: Proxy DescribeCacheSecurityGroups)  testDeleteCacheParameterGroupResponse :: DeleteCacheParameterGroupResponse -> TestTree testDeleteCacheParameterGroupResponse = res     "DeleteCacheParameterGroupResponse"     "fixture/DeleteCacheParameterGroupResponse"+    elastiCache     (Proxy :: Proxy DeleteCacheParameterGroup)  testDescribeReservedCacheNodesResponse :: DescribeReservedCacheNodesResponse -> TestTree testDescribeReservedCacheNodesResponse = res     "DescribeReservedCacheNodesResponse"     "fixture/DescribeReservedCacheNodesResponse"+    elastiCache     (Proxy :: Proxy DescribeReservedCacheNodes)  testDescribeCacheEngineVersionsResponse :: DescribeCacheEngineVersionsResponse -> TestTree testDescribeCacheEngineVersionsResponse = res     "DescribeCacheEngineVersionsResponse"     "fixture/DescribeCacheEngineVersionsResponse"+    elastiCache     (Proxy :: Proxy DescribeCacheEngineVersions)  testModifyCacheClusterResponse :: ModifyCacheClusterResponse -> TestTree testModifyCacheClusterResponse = res     "ModifyCacheClusterResponse"     "fixture/ModifyCacheClusterResponse"+    elastiCache     (Proxy :: Proxy ModifyCacheCluster)  testCreateCacheParameterGroupResponse :: CreateCacheParameterGroupResponse -> TestTree testCreateCacheParameterGroupResponse = res     "CreateCacheParameterGroupResponse"     "fixture/CreateCacheParameterGroupResponse"+    elastiCache     (Proxy :: Proxy CreateCacheParameterGroup)  testDeleteCacheSubnetGroupResponse :: DeleteCacheSubnetGroupResponse -> TestTree testDeleteCacheSubnetGroupResponse = res     "DeleteCacheSubnetGroupResponse"     "fixture/DeleteCacheSubnetGroupResponse"+    elastiCache     (Proxy :: Proxy DeleteCacheSubnetGroup)