amazonka-elasticache 1.2.0.2 → 1.3.0

raw patch · 35 files changed

+1057/−1058 lines, 35 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 +72/−72
• gen/Network/AWS/ElastiCache/AuthorizeCacheSecurityGroupIngress.hs +8/−8
• gen/Network/AWS/ElastiCache/CopySnapshot.hs +9/−9
• gen/Network/AWS/ElastiCache/CreateCacheCluster.hs +55/−55
• gen/Network/AWS/ElastiCache/CreateCacheParameterGroup.hs +8/−8
• gen/Network/AWS/ElastiCache/CreateCacheSecurityGroup.hs +8/−8
• gen/Network/AWS/ElastiCache/CreateCacheSubnetGroup.hs +8/−8
• gen/Network/AWS/ElastiCache/CreateReplicationGroup.hs +69/−69
• gen/Network/AWS/ElastiCache/CreateSnapshot.hs +9/−9
• gen/Network/AWS/ElastiCache/DeleteCacheCluster.hs +9/−9
• gen/Network/AWS/ElastiCache/DeleteReplicationGroup.hs +8/−8
• gen/Network/AWS/ElastiCache/DeleteSnapshot.hs +9/−9
• gen/Network/AWS/ElastiCache/DescribeCacheClusters.hs +23/−23
• gen/Network/AWS/ElastiCache/DescribeCacheEngineVersions.hs +36/−37
• gen/Network/AWS/ElastiCache/DescribeCacheParameterGroups.hs +22/−22
• gen/Network/AWS/ElastiCache/DescribeCacheParameters.hs +34/−33
• gen/Network/AWS/ElastiCache/DescribeCacheSecurityGroups.hs +22/−22
• gen/Network/AWS/ElastiCache/DescribeCacheSubnetGroups.hs +22/−22
• gen/Network/AWS/ElastiCache/DescribeEngineDefaultParameters.hs +23/−23
• gen/Network/AWS/ElastiCache/DescribeEvents.hs +24/−25
• gen/Network/AWS/ElastiCache/DescribeReplicationGroups.hs +23/−23
• gen/Network/AWS/ElastiCache/DescribeReservedCacheNodes.hs +21/−21
• gen/Network/AWS/ElastiCache/DescribeReservedCacheNodesOfferings.hs +21/−21
• gen/Network/AWS/ElastiCache/DescribeSnapshots.hs +23/−23
• gen/Network/AWS/ElastiCache/ModifyCacheCluster.hs +33/−33
• gen/Network/AWS/ElastiCache/ModifyCacheSubnetGroup.hs +8/−8
• gen/Network/AWS/ElastiCache/ModifyReplicationGroup.hs +20/−20
• gen/Network/AWS/ElastiCache/PurchaseReservedCacheNodesOffering.hs +8/−8
• gen/Network/AWS/ElastiCache/RebootCacheCluster.hs +9/−9
• gen/Network/AWS/ElastiCache/RevokeCacheSecurityGroupIngress.hs +8/−8
• gen/Network/AWS/ElastiCache/Types.hs +99/−99
• gen/Network/AWS/ElastiCache/Types/Product.hs +168/−168
• test/Test/AWS/Gen/ElastiCache.hs +132/−132

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

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

@@ -35,39 +35,39 @@     -- * Errors     -- $errors -    -- ** CacheSubnetGroupAlreadyExistsFault-    , _CacheSubnetGroupAlreadyExistsFault-     -- ** CacheSubnetGroupInUse     , _CacheSubnetGroupInUse +    -- ** ReservedCacheNodeAlreadyExistsFault+    , _ReservedCacheNodeAlreadyExistsFault+     -- ** CacheSecurityGroupNotFoundFault     , _CacheSecurityGroupNotFoundFault -    -- ** ReservedCacheNodeAlreadyExistsFault-    , _ReservedCacheNodeAlreadyExistsFault+    -- ** CacheSubnetGroupAlreadyExistsFault+    , _CacheSubnetGroupAlreadyExistsFault +    -- ** CacheSubnetGroupQuotaExceededFault+    , _CacheSubnetGroupQuotaExceededFault+     -- ** AuthorizationAlreadyExistsFault     , _AuthorizationAlreadyExistsFault      -- ** ReservedCacheNodeQuotaExceededFault     , _ReservedCacheNodeQuotaExceededFault -    -- ** CacheSubnetGroupQuotaExceededFault-    , _CacheSubnetGroupQuotaExceededFault+    -- ** ReservedCacheNodesOfferingNotFoundFault+    , _ReservedCacheNodesOfferingNotFoundFault      -- ** ReplicationGroupNotFoundFault     , _ReplicationGroupNotFoundFault -    -- ** ReservedCacheNodesOfferingNotFoundFault-    , _ReservedCacheNodesOfferingNotFoundFault+    -- ** InvalidSubnet+    , _InvalidSubnet      -- ** TagQuotaPerResourceExceeded     , _TagQuotaPerResourceExceeded -    -- ** InvalidSubnet-    , _InvalidSubnet-     -- ** SnapshotNotFoundFault     , _SnapshotNotFoundFault @@ -86,41 +86,38 @@     -- ** SnapshotQuotaExceededFault     , _SnapshotQuotaExceededFault -    -- ** CacheParameterGroupAlreadyExistsFault-    , _CacheParameterGroupAlreadyExistsFault-     -- ** NodeQuotaForClusterExceededFault     , _NodeQuotaForClusterExceededFault -    -- ** SnapshotFeatureNotSupportedFault-    , _SnapshotFeatureNotSupportedFault+    -- ** CacheParameterGroupAlreadyExistsFault+    , _CacheParameterGroupAlreadyExistsFault +    -- ** ReservedCacheNodeNotFoundFault+    , _ReservedCacheNodeNotFoundFault+     -- ** CacheSubnetGroupNotFoundFault     , _CacheSubnetGroupNotFoundFault -    -- ** ReservedCacheNodeNotFoundFault-    , _ReservedCacheNodeNotFoundFault+    -- ** SnapshotFeatureNotSupportedFault+    , _SnapshotFeatureNotSupportedFault      -- ** InvalidParameterValueException     , _InvalidParameterValueException -    -- ** InvalidVPCNetworkStateFault-    , _InvalidVPCNetworkStateFault--    -- ** CacheClusterNotFoundFault-    , _CacheClusterNotFoundFault-     -- ** InvalidReplicationGroupStateFault     , _InvalidReplicationGroupStateFault      -- ** ReplicationGroupAlreadyExistsFault     , _ReplicationGroupAlreadyExistsFault +    -- ** InvalidVPCNetworkStateFault+    , _InvalidVPCNetworkStateFault+     -- ** SubnetInUse     , _SubnetInUse -    -- ** CacheClusterAlreadyExistsFault-    , _CacheClusterAlreadyExistsFault+    -- ** CacheClusterNotFoundFault+    , _CacheClusterNotFoundFault      -- ** ClusterQuotaForCustomerExceededFault     , _ClusterQuotaForCustomerExceededFault@@ -128,11 +125,14 @@     -- ** AuthorizationNotFoundFault     , _AuthorizationNotFoundFault +    -- ** InvalidCacheClusterStateFault+    , _InvalidCacheClusterStateFault+     -- ** CacheSecurityGroupQuotaExceededFault     , _CacheSecurityGroupQuotaExceededFault -    -- ** InvalidCacheClusterStateFault-    , _InvalidCacheClusterStateFault+    -- ** CacheClusterAlreadyExistsFault+    , _CacheClusterAlreadyExistsFault      -- ** CacheParameterGroupQuotaExceededFault     , _CacheParameterGroupQuotaExceededFault@@ -146,21 +146,21 @@     -- ** CacheParameterGroupNotFoundFault     , _CacheParameterGroupNotFoundFault -    -- ** InvalidParameterCombinationException-    , _InvalidParameterCombinationException-     -- ** InvalidARNFault     , _InvalidARNFault      -- ** InvalidCacheParameterGroupStateFault     , _InvalidCacheParameterGroupStateFault -    -- ** CacheSecurityGroupAlreadyExistsFault-    , _CacheSecurityGroupAlreadyExistsFault+    -- ** InvalidParameterCombinationException+    , _InvalidParameterCombinationException      -- ** InvalidCacheSecurityGroupStateFault     , _InvalidCacheSecurityGroupStateFault +    -- ** CacheSecurityGroupAlreadyExistsFault+    , _CacheSecurityGroupAlreadyExistsFault+     -- * Waiters     -- $waiters @@ -194,6 +194,9 @@     -- ** RevokeCacheSecurityGroupIngress     , module Network.AWS.ElastiCache.RevokeCacheSecurityGroupIngress +    -- ** CreateCacheCluster+    , module Network.AWS.ElastiCache.CreateCacheCluster+     -- ** DescribeEvents (Paginated)     , module Network.AWS.ElastiCache.DescribeEvents @@ -203,27 +206,24 @@     -- ** ModifyCacheParameterGroup     , module Network.AWS.ElastiCache.ModifyCacheParameterGroup -    -- ** CreateCacheCluster-    , module Network.AWS.ElastiCache.CreateCacheCluster+    -- ** DeleteReplicationGroup+    , module Network.AWS.ElastiCache.DeleteReplicationGroup      -- ** ListTagsForResource     , module Network.AWS.ElastiCache.ListTagsForResource -    -- ** DeleteReplicationGroup-    , module Network.AWS.ElastiCache.DeleteReplicationGroup+    -- ** DescribeCacheClusters (Paginated)+    , module Network.AWS.ElastiCache.DescribeCacheClusters      -- ** PurchaseReservedCacheNodesOffering     , module Network.AWS.ElastiCache.PurchaseReservedCacheNodesOffering -    -- ** DescribeCacheClusters (Paginated)-    , module Network.AWS.ElastiCache.DescribeCacheClusters+    -- ** RemoveTagsFromResource+    , module Network.AWS.ElastiCache.RemoveTagsFromResource      -- ** ModifyReplicationGroup     , module Network.AWS.ElastiCache.ModifyReplicationGroup -    -- ** RemoveTagsFromResource-    , module Network.AWS.ElastiCache.RemoveTagsFromResource-     -- ** DescribeCacheParameters (Paginated)     , module Network.AWS.ElastiCache.DescribeCacheParameters @@ -254,14 +254,14 @@     -- ** DescribeSnapshots (Paginated)     , module Network.AWS.ElastiCache.DescribeSnapshots -    -- ** DescribeReservedCacheNodesOfferings (Paginated)-    , module Network.AWS.ElastiCache.DescribeReservedCacheNodesOfferings+    -- ** DescribeReplicationGroups (Paginated)+    , module Network.AWS.ElastiCache.DescribeReplicationGroups      -- ** DeleteSnapshot     , module Network.AWS.ElastiCache.DeleteSnapshot -    -- ** DescribeReplicationGroups (Paginated)-    , module Network.AWS.ElastiCache.DescribeReplicationGroups+    -- ** DescribeReservedCacheNodesOfferings (Paginated)+    , module Network.AWS.ElastiCache.DescribeReservedCacheNodesOfferings      -- ** ModifyCacheSubnetGroup     , module Network.AWS.ElastiCache.ModifyCacheSubnetGroup@@ -269,24 +269,24 @@     -- ** CreateSnapshot     , module Network.AWS.ElastiCache.CreateSnapshot -    -- ** DescribeCacheSecurityGroups (Paginated)-    , module Network.AWS.ElastiCache.DescribeCacheSecurityGroups-     -- ** DeleteCacheParameterGroup     , module Network.AWS.ElastiCache.DeleteCacheParameterGroup -    -- ** DescribeReservedCacheNodes (Paginated)-    , module Network.AWS.ElastiCache.DescribeReservedCacheNodes--    -- ** DescribeCacheEngineVersions (Paginated)-    , module Network.AWS.ElastiCache.DescribeCacheEngineVersions+    -- ** DescribeCacheSecurityGroups (Paginated)+    , module Network.AWS.ElastiCache.DescribeCacheSecurityGroups      -- ** ModifyCacheCluster     , module Network.AWS.ElastiCache.ModifyCacheCluster +    -- ** DescribeCacheEngineVersions (Paginated)+    , module Network.AWS.ElastiCache.DescribeCacheEngineVersions+     -- ** CreateCacheParameterGroup     , module Network.AWS.ElastiCache.CreateCacheParameterGroup +    -- ** DescribeReservedCacheNodes (Paginated)+    , module Network.AWS.ElastiCache.DescribeReservedCacheNodes+     -- ** DeleteCacheSubnetGroup     , module Network.AWS.ElastiCache.DeleteCacheSubnetGroup @@ -312,8 +312,8 @@     -- ** CacheCluster     , CacheCluster     , cacheCluster-    , ccCacheNodeType     , ccEngineVersion+    , ccCacheNodeType     , ccCacheNodes     , ccCacheClusterCreateTime     , ccAutoMinorVersionUpgrade@@ -327,9 +327,9 @@     , ccClientDownloadLandingPage     , ccPreferredMaintenanceWindow     , ccCacheSubnetGroupName-    , ccCacheClusterStatus     , ccPreferredAvailabilityZone     , ccCacheParameterGroup+    , ccCacheClusterStatus     , ccSnapshotRetentionLimit     , ccReplicationGroupId     , ccPendingModifiedValues@@ -338,11 +338,11 @@     -- ** CacheEngineVersion     , CacheEngineVersion     , cacheEngineVersion-    , cevCacheEngineDescription-    , cevCacheParameterGroupFamily     , cevEngineVersion-    , cevCacheEngineVersionDescription+    , cevCacheParameterGroupFamily+    , cevCacheEngineDescription     , cevEngine+    , cevCacheEngineVersionDescription      -- ** CacheNode     , CacheNode@@ -362,8 +362,8 @@     , cntspMinimumEngineVersion     , cntspSource     , cntspIsModifiable-    , cntspAllowedValues     , cntspDataType+    , cntspAllowedValues     , cntspParameterName     , cntspDescription @@ -432,8 +432,8 @@     , engineDefaults     , edCacheParameterGroupFamily     , edCacheNodeTypeSpecificParameters-    , edParameters     , edMarker+    , edParameters      -- ** Event     , Event@@ -481,8 +481,8 @@     , pMinimumEngineVersion     , pSource     , pIsModifiable-    , pAllowedValues     , pDataType+    , pAllowedValues     , pParameterName     , pDescription @@ -508,13 +508,13 @@     -- ** ReplicationGroup     , ReplicationGroup     , replicationGroup-    , rgNodeGroups     , rgStatus+    , rgNodeGroups     , rgSnapshottingClusterId     , rgMemberClusters+    , rgDescription     , rgReplicationGroupId     , rgPendingModifiedValues-    , rgDescription     , rgAutomaticFailover      -- ** ReplicationGroupPendingModifiedValues@@ -528,13 +528,13 @@     , reservedCacheNode     , rcnCacheNodeType     , rcnState-    , rcnProductDescription     , rcnStartTime+    , rcnProductDescription     , rcnCacheNodeCount     , rcnReservedCacheNodeId+    , rcnRecurringCharges     , rcnOfferingType     , rcnUsagePrice-    , rcnRecurringCharges     , rcnFixedPrice     , rcnDuration     , rcnReservedCacheNodesOfferingId@@ -544,9 +544,9 @@     , reservedCacheNodesOffering     , rcnoCacheNodeType     , rcnoProductDescription+    , rcnoRecurringCharges     , rcnoOfferingType     , rcnoUsagePrice-    , rcnoRecurringCharges     , rcnoFixedPrice     , rcnoDuration     , rcnoReservedCacheNodesOfferingId@@ -560,26 +560,26 @@     -- ** Snapshot     , Snapshot     , snapshot-    , sCacheNodeType     , sEngineVersion+    , sCacheNodeType     , sCacheClusterCreateTime     , sAutoMinorVersionUpgrade     , sCacheParameterGroupName+    , sVPCId     , sSnapshotStatus     , sSnapshotWindow-    , sVPCId     , sCacheClusterId     , sEngine     , sPreferredMaintenanceWindow     , sTopicARN-    , sCacheSubnetGroupName     , sNodeSnapshots+    , sCacheSubnetGroupName     , sPreferredAvailabilityZone     , sSnapshotRetentionLimit     , sSnapshotName-    , sSnapshotSource     , sNumCacheNodes     , sPort+    , sSnapshotSource      -- ** Subnet     , Subnet

@@ -42,7 +42,7 @@     , AuthorizeCacheSecurityGroupIngressResponse     -- * Response Lenses     , acsgirsCacheSecurityGroup-    , acsgirsStatus+    , acsgirsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -132,7 +132,7 @@ -- | /See:/ 'authorizeCacheSecurityGroupIngressResponse' smart constructor. data AuthorizeCacheSecurityGroupIngressResponse = AuthorizeCacheSecurityGroupIngressResponse'     { _acsgirsCacheSecurityGroup :: !(Maybe CacheSecurityGroup)-    , _acsgirsStatus             :: !Int+    , _acsgirsResponseStatus     :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AuthorizeCacheSecurityGroupIngressResponse' with the minimum fields required to make a request.@@ -141,14 +141,14 @@ -- -- * 'acsgirsCacheSecurityGroup' ----- * 'acsgirsStatus'+-- * 'acsgirsResponseStatus' authorizeCacheSecurityGroupIngressResponse-    :: Int -- ^ 'acsgirsStatus'+    :: Int -- ^ 'acsgirsResponseStatus'     -> AuthorizeCacheSecurityGroupIngressResponse-authorizeCacheSecurityGroupIngressResponse pStatus_ =+authorizeCacheSecurityGroupIngressResponse pResponseStatus_ =     AuthorizeCacheSecurityGroupIngressResponse'     { _acsgirsCacheSecurityGroup = Nothing-    , _acsgirsStatus = pStatus_+    , _acsgirsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -156,5 +156,5 @@ acsgirsCacheSecurityGroup = lens _acsgirsCacheSecurityGroup (\ s a -> s{_acsgirsCacheSecurityGroup = a});  -- | The response status code.-acsgirsStatus :: Lens' AuthorizeCacheSecurityGroupIngressResponse Int-acsgirsStatus = lens _acsgirsStatus (\ s a -> s{_acsgirsStatus = a});+acsgirsResponseStatus :: Lens' AuthorizeCacheSecurityGroupIngressResponse Int+acsgirsResponseStatus = lens _acsgirsResponseStatus (\ s a -> s{_acsgirsResponseStatus = a});

@@ -35,7 +35,7 @@     , CopySnapshotResponse     -- * Response Lenses     , csrsSnapshot-    , csrsStatus+    , csrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -102,8 +102,8 @@  -- | /See:/ 'copySnapshotResponse' smart constructor. data CopySnapshotResponse = CopySnapshotResponse'-    { _csrsSnapshot :: !(Maybe Snapshot)-    , _csrsStatus   :: !Int+    { _csrsSnapshot       :: !(Maybe Snapshot)+    , _csrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CopySnapshotResponse' with the minimum fields required to make a request.@@ -112,14 +112,14 @@ -- -- * 'csrsSnapshot' ----- * 'csrsStatus'+-- * 'csrsResponseStatus' copySnapshotResponse-    :: Int -- ^ 'csrsStatus'+    :: Int -- ^ 'csrsResponseStatus'     -> CopySnapshotResponse-copySnapshotResponse pStatus_ =+copySnapshotResponse pResponseStatus_ =     CopySnapshotResponse'     { _csrsSnapshot = Nothing-    , _csrsStatus = pStatus_+    , _csrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -127,5 +127,5 @@ csrsSnapshot = lens _csrsSnapshot (\ s a -> s{_csrsSnapshot = a});  -- | The response status code.-csrsStatus :: Lens' CopySnapshotResponse Int-csrsStatus = lens _csrsStatus (\ s a -> s{_csrsStatus = a});+csrsResponseStatus :: Lens' CopySnapshotResponse Int+csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});

@@ -29,11 +29,11 @@       createCacheCluster     , CreateCacheCluster     -- * Request Lenses-    , cccCacheNodeType     , cccEngineVersion+    , cccCacheNodeType     , cccSecurityGroupIds-    , cccAutoMinorVersionUpgrade     , cccSnapshotARNs+    , cccAutoMinorVersionUpgrade     , cccCacheParameterGroupName     , cccSnapshotWindow     , cccEngine@@ -46,10 +46,10 @@     , cccSnapshotName     , cccReplicationGroupId     , cccNotificationTopicARN-    , cccTags     , cccNumCacheNodes-    , cccCacheSecurityGroupNames+    , cccTags     , cccPort+    , cccCacheSecurityGroupNames     , cccCacheClusterId      -- * Destructuring the Response@@ -57,7 +57,7 @@     , CreateCacheClusterResponse     -- * Response Lenses     , cccrsCacheCluster-    , cccrsStatus+    , cccrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -70,11 +70,11 @@ -- -- /See:/ 'createCacheCluster' smart constructor. data CreateCacheCluster = CreateCacheCluster'-    { _cccCacheNodeType              :: !(Maybe Text)-    , _cccEngineVersion              :: !(Maybe Text)+    { _cccEngineVersion              :: !(Maybe Text)+    , _cccCacheNodeType              :: !(Maybe Text)     , _cccSecurityGroupIds           :: !(Maybe [Text])-    , _cccAutoMinorVersionUpgrade    :: !(Maybe Bool)     , _cccSnapshotARNs               :: !(Maybe [Text])+    , _cccAutoMinorVersionUpgrade    :: !(Maybe Bool)     , _cccCacheParameterGroupName    :: !(Maybe Text)     , _cccSnapshotWindow             :: !(Maybe Text)     , _cccEngine                     :: !(Maybe Text)@@ -87,10 +87,10 @@     , _cccSnapshotName               :: !(Maybe Text)     , _cccReplicationGroupId         :: !(Maybe Text)     , _cccNotificationTopicARN       :: !(Maybe Text)-    , _cccTags                       :: !(Maybe [Tag])     , _cccNumCacheNodes              :: !(Maybe Int)-    , _cccCacheSecurityGroupNames    :: !(Maybe [Text])+    , _cccTags                       :: !(Maybe [Tag])     , _cccPort                       :: !(Maybe Int)+    , _cccCacheSecurityGroupNames    :: !(Maybe [Text])     , _cccCacheClusterId             :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -98,16 +98,16 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cccCacheNodeType'--- -- * 'cccEngineVersion' ----- * 'cccSecurityGroupIds'+-- * 'cccCacheNodeType' ----- * 'cccAutoMinorVersionUpgrade'+-- * 'cccSecurityGroupIds' -- -- * 'cccSnapshotARNs' --+-- * 'cccAutoMinorVersionUpgrade'+-- -- * 'cccCacheParameterGroupName' -- -- * 'cccSnapshotWindow'@@ -132,25 +132,25 @@ -- -- * 'cccNotificationTopicARN' ----- * 'cccTags'--- -- * 'cccNumCacheNodes' ----- * 'cccCacheSecurityGroupNames'+-- * 'cccTags' -- -- * 'cccPort' --+-- * 'cccCacheSecurityGroupNames'+-- -- * 'cccCacheClusterId' createCacheCluster     :: Text -- ^ 'cccCacheClusterId'     -> CreateCacheCluster createCacheCluster pCacheClusterId_ =     CreateCacheCluster'-    { _cccCacheNodeType = Nothing-    , _cccEngineVersion = Nothing+    { _cccEngineVersion = Nothing+    , _cccCacheNodeType = Nothing     , _cccSecurityGroupIds = Nothing-    , _cccAutoMinorVersionUpgrade = Nothing     , _cccSnapshotARNs = Nothing+    , _cccAutoMinorVersionUpgrade = Nothing     , _cccCacheParameterGroupName = Nothing     , _cccSnapshotWindow = Nothing     , _cccEngine = Nothing@@ -163,13 +163,19 @@     , _cccSnapshotName = Nothing     , _cccReplicationGroupId = Nothing     , _cccNotificationTopicARN = Nothing-    , _cccTags = Nothing     , _cccNumCacheNodes = Nothing-    , _cccCacheSecurityGroupNames = Nothing+    , _cccTags = Nothing     , _cccPort = Nothing+    , _cccCacheSecurityGroupNames = Nothing     , _cccCacheClusterId = pCacheClusterId_     } +-- | The version number of the cache engine to be used for this cache+-- cluster. To view the supported cache engine versions, use the+-- /DescribeCacheEngineVersions/ action.+cccEngineVersion :: Lens' CreateCacheCluster (Maybe Text)+cccEngineVersion = lens _cccEngineVersion (\ s a -> s{_cccEngineVersion = a});+ -- | The compute and memory capacity of the nodes in the node group. -- -- Valid node types are as follows:@@ -204,12 +210,6 @@ cccCacheNodeType :: Lens' CreateCacheCluster (Maybe Text) cccCacheNodeType = lens _cccCacheNodeType (\ s a -> s{_cccCacheNodeType = a}); --- | The version number of the cache engine to be used for this cache--- cluster. To view the supported cache engine versions, use the--- /DescribeCacheEngineVersions/ action.-cccEngineVersion :: Lens' CreateCacheCluster (Maybe Text)-cccEngineVersion = lens _cccEngineVersion (\ s a -> s{_cccEngineVersion = a});- -- | One or more VPC security groups associated with the cache cluster. -- -- Use this parameter only when you are creating a cache cluster in an@@ -217,10 +217,6 @@ cccSecurityGroupIds :: Lens' CreateCacheCluster [Text] cccSecurityGroupIds = lens _cccSecurityGroupIds (\ s a -> s{_cccSecurityGroupIds = a}) . _Default . _Coerce; --- | This parameter is currently disabled.-cccAutoMinorVersionUpgrade :: Lens' CreateCacheCluster (Maybe Bool)-cccAutoMinorVersionUpgrade = lens _cccAutoMinorVersionUpgrade (\ s a -> s{_cccAutoMinorVersionUpgrade = a});- -- | A single-element string list containing an Amazon Resource Name (ARN) -- that uniquely identifies a Redis RDB snapshot file stored in Amazon S3. -- The snapshot file will be used to populate the node group. The Amazon S3@@ -233,6 +229,10 @@ cccSnapshotARNs :: Lens' CreateCacheCluster [Text] cccSnapshotARNs = lens _cccSnapshotARNs (\ s a -> s{_cccSnapshotARNs = a}) . _Default . _Coerce; +-- | This parameter is currently disabled.+cccAutoMinorVersionUpgrade :: Lens' CreateCacheCluster (Maybe Bool)+cccAutoMinorVersionUpgrade = lens _cccAutoMinorVersionUpgrade (\ s a -> s{_cccAutoMinorVersionUpgrade = a});+ -- | The name of the parameter group to associate with this cache cluster. If -- this argument is omitted, the default parameter group for the specified -- engine is used.@@ -377,11 +377,6 @@ cccNotificationTopicARN :: Lens' CreateCacheCluster (Maybe Text) cccNotificationTopicARN = lens _cccNotificationTopicARN (\ s a -> s{_cccNotificationTopicARN = a}); --- | A list of cost allocation tags to be added to this resource. A tag is a--- key-value pair. A tag key must be accompanied by a tag value.-cccTags :: Lens' CreateCacheCluster [Tag]-cccTags = lens _cccTags (\ s a -> s{_cccTags = a}) . _Default . _Coerce;- -- | The initial number of cache nodes that the cache cluster will have. -- -- For clusters running Redis, this value must be 1. For clusters running@@ -393,6 +388,16 @@ cccNumCacheNodes :: Lens' CreateCacheCluster (Maybe Int) cccNumCacheNodes = lens _cccNumCacheNodes (\ s a -> s{_cccNumCacheNodes = a}); +-- | A list of cost allocation tags to be added to this resource. A tag is a+-- key-value pair. A tag key must be accompanied by a tag value.+cccTags :: Lens' CreateCacheCluster [Tag]+cccTags = lens _cccTags (\ s a -> s{_cccTags = a}) . _Default . _Coerce;++-- | The port number on which each of the cache nodes will accept+-- connections.+cccPort :: Lens' CreateCacheCluster (Maybe Int)+cccPort = lens _cccPort (\ s a -> s{_cccPort = a});+ -- | A list of security group names to associate with this cache cluster. -- -- Use this parameter only when you are creating a cache cluster outside of@@ -400,11 +405,6 @@ cccCacheSecurityGroupNames :: Lens' CreateCacheCluster [Text] cccCacheSecurityGroupNames = lens _cccCacheSecurityGroupNames (\ s a -> s{_cccCacheSecurityGroupNames = a}) . _Default . _Coerce; --- | The port number on which each of the cache nodes will accept--- connections.-cccPort :: Lens' CreateCacheCluster (Maybe Int)-cccPort = lens _cccPort (\ s a -> s{_cccPort = a});- -- | The node group identifier. This parameter is stored as a lowercase -- string. --@@ -437,17 +437,17 @@           = mconcat               ["Action" =: ("CreateCacheCluster" :: ByteString),                "Version" =: ("2015-02-02" :: ByteString),-               "CacheNodeType" =: _cccCacheNodeType,                "EngineVersion" =: _cccEngineVersion,+               "CacheNodeType" =: _cccCacheNodeType,                "SecurityGroupIds" =:                  toQuery                    (toQueryList "SecurityGroupId" <$>                       _cccSecurityGroupIds),-               "AutoMinorVersionUpgrade" =:-                 _cccAutoMinorVersionUpgrade,                "SnapshotArns" =:                  toQuery                    (toQueryList "SnapshotArn" <$> _cccSnapshotARNs),+               "AutoMinorVersionUpgrade" =:+                 _cccAutoMinorVersionUpgrade,                "CacheParameterGroupName" =:                  _cccCacheParameterGroupName,                "SnapshotWindow" =: _cccSnapshotWindow,@@ -467,19 +467,19 @@                "SnapshotName" =: _cccSnapshotName,                "ReplicationGroupId" =: _cccReplicationGroupId,                "NotificationTopicArn" =: _cccNotificationTopicARN,-               "Tags" =: toQuery (toQueryList "Tag" <$> _cccTags),                "NumCacheNodes" =: _cccNumCacheNodes,+               "Tags" =: toQuery (toQueryList "Tag" <$> _cccTags),+               "Port" =: _cccPort,                "CacheSecurityGroupNames" =:                  toQuery                    (toQueryList "CacheSecurityGroupName" <$>                       _cccCacheSecurityGroupNames),-               "Port" =: _cccPort,                "CacheClusterId" =: _cccCacheClusterId]  -- | /See:/ 'createCacheClusterResponse' smart constructor. data CreateCacheClusterResponse = CreateCacheClusterResponse'-    { _cccrsCacheCluster :: !(Maybe CacheCluster)-    , _cccrsStatus       :: !Int+    { _cccrsCacheCluster   :: !(Maybe CacheCluster)+    , _cccrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateCacheClusterResponse' with the minimum fields required to make a request.@@ -488,14 +488,14 @@ -- -- * 'cccrsCacheCluster' ----- * 'cccrsStatus'+-- * 'cccrsResponseStatus' createCacheClusterResponse-    :: Int -- ^ 'cccrsStatus'+    :: Int -- ^ 'cccrsResponseStatus'     -> CreateCacheClusterResponse-createCacheClusterResponse pStatus_ =+createCacheClusterResponse pResponseStatus_ =     CreateCacheClusterResponse'     { _cccrsCacheCluster = Nothing-    , _cccrsStatus = pStatus_+    , _cccrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -503,5 +503,5 @@ cccrsCacheCluster = lens _cccrsCacheCluster (\ s a -> s{_cccrsCacheCluster = a});  -- | The response status code.-cccrsStatus :: Lens' CreateCacheClusterResponse Int-cccrsStatus = lens _cccrsStatus (\ s a -> s{_cccrsStatus = a});+cccrsResponseStatus :: Lens' CreateCacheClusterResponse Int+cccrsResponseStatus = lens _cccrsResponseStatus (\ s a -> s{_cccrsResponseStatus = a});

@@ -38,7 +38,7 @@     , CreateCacheParameterGroupResponse     -- * Response Lenses     , ccpgrsCacheParameterGroup-    , ccpgrsStatus+    , ccpgrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -124,7 +124,7 @@ -- | /See:/ 'createCacheParameterGroupResponse' smart constructor. data CreateCacheParameterGroupResponse = CreateCacheParameterGroupResponse'     { _ccpgrsCacheParameterGroup :: !(Maybe CacheParameterGroup)-    , _ccpgrsStatus              :: !Int+    , _ccpgrsResponseStatus      :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateCacheParameterGroupResponse' with the minimum fields required to make a request.@@ -133,14 +133,14 @@ -- -- * 'ccpgrsCacheParameterGroup' ----- * 'ccpgrsStatus'+-- * 'ccpgrsResponseStatus' createCacheParameterGroupResponse-    :: Int -- ^ 'ccpgrsStatus'+    :: Int -- ^ 'ccpgrsResponseStatus'     -> CreateCacheParameterGroupResponse-createCacheParameterGroupResponse pStatus_ =+createCacheParameterGroupResponse pResponseStatus_ =     CreateCacheParameterGroupResponse'     { _ccpgrsCacheParameterGroup = Nothing-    , _ccpgrsStatus = pStatus_+    , _ccpgrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -148,5 +148,5 @@ ccpgrsCacheParameterGroup = lens _ccpgrsCacheParameterGroup (\ s a -> s{_ccpgrsCacheParameterGroup = a});  -- | The response status code.-ccpgrsStatus :: Lens' CreateCacheParameterGroupResponse Int-ccpgrsStatus = lens _ccpgrsStatus (\ s a -> s{_ccpgrsStatus = a});+ccpgrsResponseStatus :: Lens' CreateCacheParameterGroupResponse Int+ccpgrsResponseStatus = lens _ccpgrsResponseStatus (\ s a -> s{_ccpgrsResponseStatus = a});

@@ -43,7 +43,7 @@     , CreateCacheSecurityGroupResponse     -- * Response Lenses     , ccsgrsCacheSecurityGroup-    , ccsgrsStatus+    , ccsgrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -120,7 +120,7 @@ -- | /See:/ 'createCacheSecurityGroupResponse' smart constructor. data CreateCacheSecurityGroupResponse = CreateCacheSecurityGroupResponse'     { _ccsgrsCacheSecurityGroup :: !(Maybe CacheSecurityGroup)-    , _ccsgrsStatus             :: !Int+    , _ccsgrsResponseStatus     :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateCacheSecurityGroupResponse' with the minimum fields required to make a request.@@ -129,14 +129,14 @@ -- -- * 'ccsgrsCacheSecurityGroup' ----- * 'ccsgrsStatus'+-- * 'ccsgrsResponseStatus' createCacheSecurityGroupResponse-    :: Int -- ^ 'ccsgrsStatus'+    :: Int -- ^ 'ccsgrsResponseStatus'     -> CreateCacheSecurityGroupResponse-createCacheSecurityGroupResponse pStatus_ =+createCacheSecurityGroupResponse pResponseStatus_ =     CreateCacheSecurityGroupResponse'     { _ccsgrsCacheSecurityGroup = Nothing-    , _ccsgrsStatus = pStatus_+    , _ccsgrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -144,5 +144,5 @@ ccsgrsCacheSecurityGroup = lens _ccsgrsCacheSecurityGroup (\ s a -> s{_ccsgrsCacheSecurityGroup = a});  -- | The response status code.-ccsgrsStatus :: Lens' CreateCacheSecurityGroupResponse Int-ccsgrsStatus = lens _ccsgrsStatus (\ s a -> s{_ccsgrsStatus = a});+ccsgrsResponseStatus :: Lens' CreateCacheSecurityGroupResponse Int+ccsgrsResponseStatus = lens _ccsgrsResponseStatus (\ s a -> s{_ccsgrsResponseStatus = a});

@@ -39,7 +39,7 @@     , CreateCacheSubnetGroupResponse     -- * Response Lenses     , crsCacheSubnetGroup-    , crsStatus+    , crsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -126,7 +126,7 @@ -- | /See:/ 'createCacheSubnetGroupResponse' smart constructor. data CreateCacheSubnetGroupResponse = CreateCacheSubnetGroupResponse'     { _crsCacheSubnetGroup :: !(Maybe CacheSubnetGroup)-    , _crsStatus           :: !Int+    , _crsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateCacheSubnetGroupResponse' with the minimum fields required to make a request.@@ -135,14 +135,14 @@ -- -- * 'crsCacheSubnetGroup' ----- * 'crsStatus'+-- * 'crsResponseStatus' createCacheSubnetGroupResponse-    :: Int -- ^ 'crsStatus'+    :: Int -- ^ 'crsResponseStatus'     -> CreateCacheSubnetGroupResponse-createCacheSubnetGroupResponse pStatus_ =+createCacheSubnetGroupResponse pResponseStatus_ =     CreateCacheSubnetGroupResponse'     { _crsCacheSubnetGroup = Nothing-    , _crsStatus = pStatus_+    , _crsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -150,5 +150,5 @@ crsCacheSubnetGroup = lens _crsCacheSubnetGroup (\ s a -> s{_crsCacheSubnetGroup = a});  -- | The response status code.-crsStatus :: Lens' CreateCacheSubnetGroupResponse Int-crsStatus = lens _crsStatus (\ s a -> s{_crsStatus = a});+crsResponseStatus :: Lens' CreateCacheSubnetGroupResponse Int+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});

@@ -39,11 +39,11 @@     , CreateReplicationGroup     -- * Request Lenses     , crgAutomaticFailoverEnabled-    , crgCacheNodeType     , crgEngineVersion+    , crgCacheNodeType     , crgSecurityGroupIds-    , crgAutoMinorVersionUpgrade     , crgSnapshotARNs+    , crgAutoMinorVersionUpgrade     , crgCacheParameterGroupName     , crgSnapshotWindow     , crgPrimaryClusterId@@ -51,13 +51,13 @@     , crgPreferredMaintenanceWindow     , crgCacheSubnetGroupName     , crgSnapshotRetentionLimit-    , crgSnapshotName-    , crgPreferredCacheClusterAZs     , crgNumCacheClusters+    , crgPreferredCacheClusterAZs+    , crgSnapshotName     , crgNotificationTopicARN     , crgTags-    , crgCacheSecurityGroupNames     , crgPort+    , crgCacheSecurityGroupNames     , crgReplicationGroupId     , crgReplicationGroupDescription @@ -66,7 +66,7 @@     , CreateReplicationGroupResponse     -- * Response Lenses     , crgrsReplicationGroup-    , crgrsStatus+    , crgrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -80,11 +80,11 @@ -- /See:/ 'createReplicationGroup' smart constructor. data CreateReplicationGroup = CreateReplicationGroup'     { _crgAutomaticFailoverEnabled    :: !(Maybe Bool)-    , _crgCacheNodeType               :: !(Maybe Text)     , _crgEngineVersion               :: !(Maybe Text)+    , _crgCacheNodeType               :: !(Maybe Text)     , _crgSecurityGroupIds            :: !(Maybe [Text])-    , _crgAutoMinorVersionUpgrade     :: !(Maybe Bool)     , _crgSnapshotARNs                :: !(Maybe [Text])+    , _crgAutoMinorVersionUpgrade     :: !(Maybe Bool)     , _crgCacheParameterGroupName     :: !(Maybe Text)     , _crgSnapshotWindow              :: !(Maybe Text)     , _crgPrimaryClusterId            :: !(Maybe Text)@@ -92,13 +92,13 @@     , _crgPreferredMaintenanceWindow  :: !(Maybe Text)     , _crgCacheSubnetGroupName        :: !(Maybe Text)     , _crgSnapshotRetentionLimit      :: !(Maybe Int)-    , _crgSnapshotName                :: !(Maybe Text)-    , _crgPreferredCacheClusterAZs    :: !(Maybe [Text])     , _crgNumCacheClusters            :: !(Maybe Int)+    , _crgPreferredCacheClusterAZs    :: !(Maybe [Text])+    , _crgSnapshotName                :: !(Maybe Text)     , _crgNotificationTopicARN        :: !(Maybe Text)     , _crgTags                        :: !(Maybe [Tag])-    , _crgCacheSecurityGroupNames     :: !(Maybe [Text])     , _crgPort                        :: !(Maybe Int)+    , _crgCacheSecurityGroupNames     :: !(Maybe [Text])     , _crgReplicationGroupId          :: !Text     , _crgReplicationGroupDescription :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -109,16 +109,16 @@ -- -- * 'crgAutomaticFailoverEnabled' ----- * 'crgCacheNodeType'--- -- * 'crgEngineVersion' ----- * 'crgSecurityGroupIds'+-- * 'crgCacheNodeType' ----- * 'crgAutoMinorVersionUpgrade'+-- * 'crgSecurityGroupIds' -- -- * 'crgSnapshotARNs' --+-- * 'crgAutoMinorVersionUpgrade'+-- -- * 'crgCacheParameterGroupName' -- -- * 'crgSnapshotWindow'@@ -133,20 +133,20 @@ -- -- * 'crgSnapshotRetentionLimit' ----- * 'crgSnapshotName'+-- * 'crgNumCacheClusters' -- -- * 'crgPreferredCacheClusterAZs' ----- * 'crgNumCacheClusters'+-- * 'crgSnapshotName' -- -- * 'crgNotificationTopicARN' -- -- * 'crgTags' ----- * 'crgCacheSecurityGroupNames'--- -- * 'crgPort' --+-- * 'crgCacheSecurityGroupNames'+-- -- * 'crgReplicationGroupId' -- -- * 'crgReplicationGroupDescription'@@ -157,11 +157,11 @@ createReplicationGroup pReplicationGroupId_ pReplicationGroupDescription_ =     CreateReplicationGroup'     { _crgAutomaticFailoverEnabled = Nothing-    , _crgCacheNodeType = Nothing     , _crgEngineVersion = Nothing+    , _crgCacheNodeType = Nothing     , _crgSecurityGroupIds = Nothing-    , _crgAutoMinorVersionUpgrade = Nothing     , _crgSnapshotARNs = Nothing+    , _crgAutoMinorVersionUpgrade = Nothing     , _crgCacheParameterGroupName = Nothing     , _crgSnapshotWindow = Nothing     , _crgPrimaryClusterId = Nothing@@ -169,13 +169,13 @@     , _crgPreferredMaintenanceWindow = Nothing     , _crgCacheSubnetGroupName = Nothing     , _crgSnapshotRetentionLimit = Nothing-    , _crgSnapshotName = Nothing-    , _crgPreferredCacheClusterAZs = Nothing     , _crgNumCacheClusters = Nothing+    , _crgPreferredCacheClusterAZs = Nothing+    , _crgSnapshotName = Nothing     , _crgNotificationTopicARN = Nothing     , _crgTags = Nothing-    , _crgCacheSecurityGroupNames = Nothing     , _crgPort = Nothing+    , _crgCacheSecurityGroupNames = Nothing     , _crgReplicationGroupId = pReplicationGroupId_     , _crgReplicationGroupDescription = pReplicationGroupDescription_     }@@ -195,6 +195,12 @@ crgAutomaticFailoverEnabled :: Lens' CreateReplicationGroup (Maybe Bool) crgAutomaticFailoverEnabled = lens _crgAutomaticFailoverEnabled (\ s a -> s{_crgAutomaticFailoverEnabled = a}); +-- | The version number of the cache engine to be used for the cache clusters+-- in this replication group. To view the supported cache engine versions,+-- use the /DescribeCacheEngineVersions/ action.+crgEngineVersion :: Lens' CreateReplicationGroup (Maybe Text)+crgEngineVersion = lens _crgEngineVersion (\ s a -> s{_crgEngineVersion = a});+ -- | The compute and memory capacity of the nodes in the node group. -- -- Valid node types are as follows:@@ -229,12 +235,6 @@ crgCacheNodeType :: Lens' CreateReplicationGroup (Maybe Text) crgCacheNodeType = lens _crgCacheNodeType (\ s a -> s{_crgCacheNodeType = a}); --- | The version number of the cache engine to be used for the cache clusters--- in this replication group. To view the supported cache engine versions,--- use the /DescribeCacheEngineVersions/ action.-crgEngineVersion :: Lens' CreateReplicationGroup (Maybe Text)-crgEngineVersion = lens _crgEngineVersion (\ s a -> s{_crgEngineVersion = a});- -- | One or more Amazon VPC security groups associated with this replication -- group. --@@ -243,10 +243,6 @@ crgSecurityGroupIds :: Lens' CreateReplicationGroup [Text] crgSecurityGroupIds = lens _crgSecurityGroupIds (\ s a -> s{_crgSecurityGroupIds = a}) . _Default . _Coerce; --- | This parameter is currently disabled.-crgAutoMinorVersionUpgrade :: Lens' CreateReplicationGroup (Maybe Bool)-crgAutoMinorVersionUpgrade = lens _crgAutoMinorVersionUpgrade (\ s a -> s{_crgAutoMinorVersionUpgrade = a});- -- | A single-element string list containing an Amazon Resource Name (ARN) -- that uniquely identifies a Redis RDB snapshot file stored in Amazon S3. -- The snapshot file will be used to populate the node group. The Amazon S3@@ -259,6 +255,10 @@ crgSnapshotARNs :: Lens' CreateReplicationGroup [Text] crgSnapshotARNs = lens _crgSnapshotARNs (\ s a -> s{_crgSnapshotARNs = a}) . _Default . _Coerce; +-- | This parameter is currently disabled.+crgAutoMinorVersionUpgrade :: Lens' CreateReplicationGroup (Maybe Bool)+crgAutoMinorVersionUpgrade = lens _crgAutoMinorVersionUpgrade (\ s a -> s{_crgAutoMinorVersionUpgrade = a});+ -- | The name of the parameter group to associate with this replication -- group. If this argument is omitted, the default cache parameter group -- for the specified engine is used.@@ -327,14 +327,17 @@ crgSnapshotRetentionLimit :: Lens' CreateReplicationGroup (Maybe Int) crgSnapshotRetentionLimit = lens _crgSnapshotRetentionLimit (\ s a -> s{_crgSnapshotRetentionLimit = a}); --- | The name of a snapshot from which to restore data into the new node--- group. The snapshot status changes to 'restoring' while the new node--- group is being created.+-- | The number of cache clusters this replication group will initially have. ----- __Note:__ This parameter is only valid if the 'Engine' parameter is--- 'redis'.-crgSnapshotName :: Lens' CreateReplicationGroup (Maybe Text)-crgSnapshotName = lens _crgSnapshotName (\ s a -> s{_crgSnapshotName = a});+-- If /Multi-AZ/ is 'enabled', the value of this parameter must be at least+-- 2.+--+-- The maximum permitted value for /NumCacheClusters/ is 6 (primary plus 5+-- replicas). If you need to exceed this limit, please fill out the+-- ElastiCache Limit Increase Request form at+-- <http://aws.amazon.com/contact-us/elasticache-node-limit-request>.+crgNumCacheClusters :: Lens' CreateReplicationGroup (Maybe Int)+crgNumCacheClusters = lens _crgNumCacheClusters (\ s a -> s{_crgNumCacheClusters = a});  -- | A list of EC2 availability zones in which the replication group\'s cache -- clusters will be created. The order of the availability zones in the@@ -356,17 +359,14 @@ crgPreferredCacheClusterAZs :: Lens' CreateReplicationGroup [Text] crgPreferredCacheClusterAZs = lens _crgPreferredCacheClusterAZs (\ s a -> s{_crgPreferredCacheClusterAZs = a}) . _Default . _Coerce; --- | The number of cache clusters this replication group will initially have.------ If /Multi-AZ/ is 'enabled', the value of this parameter must be at least--- 2.+-- | The name of a snapshot from which to restore data into the new node+-- group. The snapshot status changes to 'restoring' while the new node+-- group is being created. ----- The maximum permitted value for /NumCacheClusters/ is 6 (primary plus 5--- replicas). If you need to exceed this limit, please fill out the--- ElastiCache Limit Increase Request form at--- <http://aws.amazon.com/contact-us/elasticache-node-limit-request>.-crgNumCacheClusters :: Lens' CreateReplicationGroup (Maybe Int)-crgNumCacheClusters = lens _crgNumCacheClusters (\ s a -> s{_crgNumCacheClusters = a});+-- __Note:__ This parameter is only valid if the 'Engine' parameter is+-- 'redis'.+crgSnapshotName :: Lens' CreateReplicationGroup (Maybe Text)+crgSnapshotName = lens _crgSnapshotName (\ s a -> s{_crgSnapshotName = a});  -- | The Amazon Resource Name (ARN) of the Amazon Simple Notification Service -- (SNS) topic to which notifications will be sent.@@ -380,16 +380,16 @@ crgTags :: Lens' CreateReplicationGroup [Tag] crgTags = lens _crgTags (\ s a -> s{_crgTags = a}) . _Default . _Coerce; --- | A list of cache security group names to associate with this replication--- group.-crgCacheSecurityGroupNames :: Lens' CreateReplicationGroup [Text]-crgCacheSecurityGroupNames = lens _crgCacheSecurityGroupNames (\ s a -> s{_crgCacheSecurityGroupNames = a}) . _Default . _Coerce;- -- | The port number on which each member of the replication group will -- accept connections. crgPort :: Lens' CreateReplicationGroup (Maybe Int) crgPort = lens _crgPort (\ s a -> s{_crgPort = a}); +-- | A list of cache security group names to associate with this replication+-- group.+crgCacheSecurityGroupNames :: Lens' CreateReplicationGroup [Text]+crgCacheSecurityGroupNames = lens _crgCacheSecurityGroupNames (\ s a -> s{_crgCacheSecurityGroupNames = a}) . _Default . _Coerce;+ -- | The replication group identifier. This parameter is stored as a -- lowercase string. --@@ -429,17 +429,17 @@                "Version" =: ("2015-02-02" :: ByteString),                "AutomaticFailoverEnabled" =:                  _crgAutomaticFailoverEnabled,-               "CacheNodeType" =: _crgCacheNodeType,                "EngineVersion" =: _crgEngineVersion,+               "CacheNodeType" =: _crgCacheNodeType,                "SecurityGroupIds" =:                  toQuery                    (toQueryList "SecurityGroupId" <$>                       _crgSecurityGroupIds),-               "AutoMinorVersionUpgrade" =:-                 _crgAutoMinorVersionUpgrade,                "SnapshotArns" =:                  toQuery                    (toQueryList "SnapshotArn" <$> _crgSnapshotARNs),+               "AutoMinorVersionUpgrade" =:+                 _crgAutoMinorVersionUpgrade,                "CacheParameterGroupName" =:                  _crgCacheParameterGroupName,                "SnapshotWindow" =: _crgSnapshotWindow,@@ -450,19 +450,19 @@                "CacheSubnetGroupName" =: _crgCacheSubnetGroupName,                "SnapshotRetentionLimit" =:                  _crgSnapshotRetentionLimit,-               "SnapshotName" =: _crgSnapshotName,+               "NumCacheClusters" =: _crgNumCacheClusters,                "PreferredCacheClusterAZs" =:                  toQuery                    (toQueryList "AvailabilityZone" <$>                       _crgPreferredCacheClusterAZs),-               "NumCacheClusters" =: _crgNumCacheClusters,+               "SnapshotName" =: _crgSnapshotName,                "NotificationTopicArn" =: _crgNotificationTopicARN,                "Tags" =: toQuery (toQueryList "Tag" <$> _crgTags),+               "Port" =: _crgPort,                "CacheSecurityGroupNames" =:                  toQuery                    (toQueryList "CacheSecurityGroupName" <$>                       _crgCacheSecurityGroupNames),-               "Port" =: _crgPort,                "ReplicationGroupId" =: _crgReplicationGroupId,                "ReplicationGroupDescription" =:                  _crgReplicationGroupDescription]@@ -470,7 +470,7 @@ -- | /See:/ 'createReplicationGroupResponse' smart constructor. data CreateReplicationGroupResponse = CreateReplicationGroupResponse'     { _crgrsReplicationGroup :: !(Maybe ReplicationGroup)-    , _crgrsStatus           :: !Int+    , _crgrsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateReplicationGroupResponse' with the minimum fields required to make a request.@@ -479,14 +479,14 @@ -- -- * 'crgrsReplicationGroup' ----- * 'crgrsStatus'+-- * 'crgrsResponseStatus' createReplicationGroupResponse-    :: Int -- ^ 'crgrsStatus'+    :: Int -- ^ 'crgrsResponseStatus'     -> CreateReplicationGroupResponse-createReplicationGroupResponse pStatus_ =+createReplicationGroupResponse pResponseStatus_ =     CreateReplicationGroupResponse'     { _crgrsReplicationGroup = Nothing-    , _crgrsStatus = pStatus_+    , _crgrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -494,5 +494,5 @@ crgrsReplicationGroup = lens _crgrsReplicationGroup (\ s a -> s{_crgrsReplicationGroup = a});  -- | The response status code.-crgrsStatus :: Lens' CreateReplicationGroupResponse Int-crgrsStatus = lens _crgrsStatus (\ s a -> s{_crgrsStatus = a});+crgrsResponseStatus :: Lens' CreateReplicationGroupResponse Int+crgrsResponseStatus = lens _crgrsResponseStatus (\ s a -> s{_crgrsResponseStatus = a});

@@ -36,7 +36,7 @@     , CreateSnapshotResponse     -- * Response Lenses     , crersSnapshot-    , crersStatus+    , crersResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -104,8 +104,8 @@  -- | /See:/ 'createSnapshotResponse' smart constructor. data CreateSnapshotResponse = CreateSnapshotResponse'-    { _crersSnapshot :: !(Maybe Snapshot)-    , _crersStatus   :: !Int+    { _crersSnapshot       :: !(Maybe Snapshot)+    , _crersResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateSnapshotResponse' with the minimum fields required to make a request.@@ -114,14 +114,14 @@ -- -- * 'crersSnapshot' ----- * 'crersStatus'+-- * 'crersResponseStatus' createSnapshotResponse-    :: Int -- ^ 'crersStatus'+    :: Int -- ^ 'crersResponseStatus'     -> CreateSnapshotResponse-createSnapshotResponse pStatus_ =+createSnapshotResponse pResponseStatus_ =     CreateSnapshotResponse'     { _crersSnapshot = Nothing-    , _crersStatus = pStatus_+    , _crersResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -129,5 +129,5 @@ crersSnapshot = lens _crersSnapshot (\ s a -> s{_crersSnapshot = a});  -- | The response status code.-crersStatus :: Lens' CreateSnapshotResponse Int-crersStatus = lens _crersStatus (\ s a -> s{_crersStatus = a});+crersResponseStatus :: Lens' CreateSnapshotResponse Int+crersResponseStatus = lens _crersResponseStatus (\ s a -> s{_crersResponseStatus = a});

@@ -42,7 +42,7 @@     , DeleteCacheClusterResponse     -- * Response Lenses     , dccrsCacheCluster-    , dccrsStatus+    , dccrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -113,8 +113,8 @@  -- | /See:/ 'deleteCacheClusterResponse' smart constructor. data DeleteCacheClusterResponse = DeleteCacheClusterResponse'-    { _dccrsCacheCluster :: !(Maybe CacheCluster)-    , _dccrsStatus       :: !Int+    { _dccrsCacheCluster   :: !(Maybe CacheCluster)+    , _dccrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteCacheClusterResponse' with the minimum fields required to make a request.@@ -123,14 +123,14 @@ -- -- * 'dccrsCacheCluster' ----- * 'dccrsStatus'+-- * 'dccrsResponseStatus' deleteCacheClusterResponse-    :: Int -- ^ 'dccrsStatus'+    :: Int -- ^ 'dccrsResponseStatus'     -> DeleteCacheClusterResponse-deleteCacheClusterResponse pStatus_ =+deleteCacheClusterResponse pResponseStatus_ =     DeleteCacheClusterResponse'     { _dccrsCacheCluster = Nothing-    , _dccrsStatus = pStatus_+    , _dccrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -138,5 +138,5 @@ dccrsCacheCluster = lens _dccrsCacheCluster (\ s a -> s{_dccrsCacheCluster = a});  -- | The response status code.-dccrsStatus :: Lens' DeleteCacheClusterResponse Int-dccrsStatus = lens _dccrsStatus (\ s a -> s{_dccrsStatus = a});+dccrsResponseStatus :: Lens' DeleteCacheClusterResponse Int+dccrsResponseStatus = lens _dccrsResponseStatus (\ s a -> s{_dccrsResponseStatus = a});

@@ -44,7 +44,7 @@     , DeleteReplicationGroupResponse     -- * Response Lenses     , delrsReplicationGroup-    , delrsStatus+    , delrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -128,7 +128,7 @@ -- | /See:/ 'deleteReplicationGroupResponse' smart constructor. data DeleteReplicationGroupResponse = DeleteReplicationGroupResponse'     { _delrsReplicationGroup :: !(Maybe ReplicationGroup)-    , _delrsStatus           :: !Int+    , _delrsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteReplicationGroupResponse' with the minimum fields required to make a request.@@ -137,14 +137,14 @@ -- -- * 'delrsReplicationGroup' ----- * 'delrsStatus'+-- * 'delrsResponseStatus' deleteReplicationGroupResponse-    :: Int -- ^ 'delrsStatus'+    :: Int -- ^ 'delrsResponseStatus'     -> DeleteReplicationGroupResponse-deleteReplicationGroupResponse pStatus_ =+deleteReplicationGroupResponse pResponseStatus_ =     DeleteReplicationGroupResponse'     { _delrsReplicationGroup = Nothing-    , _delrsStatus = pStatus_+    , _delrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -152,5 +152,5 @@ delrsReplicationGroup = lens _delrsReplicationGroup (\ s a -> s{_delrsReplicationGroup = a});  -- | The response status code.-delrsStatus :: Lens' DeleteReplicationGroupResponse Int-delrsStatus = lens _delrsStatus (\ s a -> s{_delrsStatus = a});+delrsResponseStatus :: Lens' DeleteReplicationGroupResponse Int+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});

@@ -36,7 +36,7 @@     , DeleteSnapshotResponse     -- * Response Lenses     , dsrsSnapshot-    , dsrsStatus+    , dsrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -93,8 +93,8 @@  -- | /See:/ 'deleteSnapshotResponse' smart constructor. data DeleteSnapshotResponse = DeleteSnapshotResponse'-    { _dsrsSnapshot :: !(Maybe Snapshot)-    , _dsrsStatus   :: !Int+    { _dsrsSnapshot       :: !(Maybe Snapshot)+    , _dsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteSnapshotResponse' with the minimum fields required to make a request.@@ -103,14 +103,14 @@ -- -- * 'dsrsSnapshot' ----- * 'dsrsStatus'+-- * 'dsrsResponseStatus' deleteSnapshotResponse-    :: Int -- ^ 'dsrsStatus'+    :: Int -- ^ 'dsrsResponseStatus'     -> DeleteSnapshotResponse-deleteSnapshotResponse pStatus_ =+deleteSnapshotResponse pResponseStatus_ =     DeleteSnapshotResponse'     { _dsrsSnapshot = Nothing-    , _dsrsStatus = pStatus_+    , _dsrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -118,5 +118,5 @@ dsrsSnapshot = lens _dsrsSnapshot (\ s a -> s{_dsrsSnapshot = a});  -- | The response status code.-dsrsStatus :: Lens' DeleteSnapshotResponse Int-dsrsStatus = lens _dsrsStatus (\ s a -> s{_dsrsStatus = a});+dsrsResponseStatus :: Lens' DeleteSnapshotResponse Int+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});

@@ -53,8 +53,8 @@     , DescribeCacheClusters     -- * Request Lenses     , dCacheClusterId-    , dMaxRecords     , dMarker+    , dMaxRecords     , dShowCacheNodeInfo      -- * Destructuring the Response@@ -63,7 +63,7 @@     -- * Response Lenses     , drsCacheClusters     , drsMarker-    , drsStatus+    , drsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -78,8 +78,8 @@ -- /See:/ 'describeCacheClusters' smart constructor. data DescribeCacheClusters = DescribeCacheClusters'     { _dCacheClusterId    :: !(Maybe Text)-    , _dMaxRecords        :: !(Maybe Int)     , _dMarker            :: !(Maybe Text)+    , _dMaxRecords        :: !(Maybe Int)     , _dShowCacheNodeInfo :: !(Maybe Bool)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -89,18 +89,18 @@ -- -- * 'dCacheClusterId' ----- * 'dMaxRecords'--- -- * 'dMarker' --+-- * 'dMaxRecords'+-- -- * 'dShowCacheNodeInfo' describeCacheClusters     :: DescribeCacheClusters describeCacheClusters =     DescribeCacheClusters'     { _dCacheClusterId = Nothing-    , _dMaxRecords = Nothing     , _dMarker = Nothing+    , _dMaxRecords = Nothing     , _dShowCacheNodeInfo = Nothing     } @@ -110,6 +110,13 @@ dCacheClusterId :: Lens' DescribeCacheClusters (Maybe Text) dCacheClusterId = lens _dCacheClusterId (\ s a -> s{_dCacheClusterId = a}); +-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+dMarker :: Lens' DescribeCacheClusters (Maybe Text)+dMarker = lens _dMarker (\ s a -> s{_dMarker = a});+ -- | The maximum number of records to include in the response. If more -- records exist than the specified 'MaxRecords' value, a marker is -- included in the response so that the remaining results can be retrieved.@@ -120,13 +127,6 @@ dMaxRecords :: Lens' DescribeCacheClusters (Maybe Int) dMaxRecords = lens _dMaxRecords (\ s a -> s{_dMaxRecords = a}); --- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified,--- the response includes only records beyond the marker, up to the value--- specified by /MaxRecords/.-dMarker :: Lens' DescribeCacheClusters (Maybe Text)-dMarker = lens _dMarker (\ s a -> s{_dMarker = a});- -- | An optional flag that can be included in the DescribeCacheCluster -- request to retrieve information about the individual cache nodes. dShowCacheNodeInfo :: Lens' DescribeCacheClusters (Maybe Bool)@@ -163,16 +163,16 @@               ["Action" =: ("DescribeCacheClusters" :: ByteString),                "Version" =: ("2015-02-02" :: ByteString),                "CacheClusterId" =: _dCacheClusterId,-               "MaxRecords" =: _dMaxRecords, "Marker" =: _dMarker,+               "Marker" =: _dMarker, "MaxRecords" =: _dMaxRecords,                "ShowCacheNodeInfo" =: _dShowCacheNodeInfo]  -- | Represents the output of a /DescribeCacheClusters/ action. -- -- /See:/ 'describeCacheClustersResponse' smart constructor. data DescribeCacheClustersResponse = DescribeCacheClustersResponse'-    { _drsCacheClusters :: !(Maybe [CacheCluster])-    , _drsMarker        :: !(Maybe Text)-    , _drsStatus        :: !Int+    { _drsCacheClusters  :: !(Maybe [CacheCluster])+    , _drsMarker         :: !(Maybe Text)+    , _drsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCacheClustersResponse' with the minimum fields required to make a request.@@ -183,15 +183,15 @@ -- -- * 'drsMarker' ----- * 'drsStatus'+-- * 'drsResponseStatus' describeCacheClustersResponse-    :: Int -- ^ 'drsStatus'+    :: Int -- ^ 'drsResponseStatus'     -> DescribeCacheClustersResponse-describeCacheClustersResponse pStatus_ =+describeCacheClustersResponse pResponseStatus_ =     DescribeCacheClustersResponse'     { _drsCacheClusters = Nothing     , _drsMarker = Nothing-    , _drsStatus = pStatus_+    , _drsResponseStatus = pResponseStatus_     }  -- | A list of cache clusters. Each item in the list contains detailed@@ -204,5 +204,5 @@ drsMarker = lens _drsMarker (\ s a -> s{_drsMarker = a});  -- | The response status code.-drsStatus :: Lens' DescribeCacheClustersResponse Int-drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});+drsResponseStatus :: Lens' DescribeCacheClustersResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});

@@ -30,12 +30,12 @@       describeCacheEngineVersions     , DescribeCacheEngineVersions     -- * Request Lenses-    , dcevCacheParameterGroupFamily     , dcevEngineVersion+    , dcevCacheParameterGroupFamily     , dcevDefaultOnly     , dcevEngine-    , dcevMaxRecords     , dcevMarker+    , dcevMaxRecords      -- * Destructuring the Response     , describeCacheEngineVersionsResponse@@ -43,7 +43,7 @@     -- * Response Lenses     , dcevrsCacheEngineVersions     , dcevrsMarker-    , dcevrsStatus+    , dcevrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -57,41 +57,47 @@ -- -- /See:/ 'describeCacheEngineVersions' smart constructor. data DescribeCacheEngineVersions = DescribeCacheEngineVersions'-    { _dcevCacheParameterGroupFamily :: !(Maybe Text)-    , _dcevEngineVersion             :: !(Maybe Text)+    { _dcevEngineVersion             :: !(Maybe Text)+    , _dcevCacheParameterGroupFamily :: !(Maybe Text)     , _dcevDefaultOnly               :: !(Maybe Bool)     , _dcevEngine                    :: !(Maybe Text)-    , _dcevMaxRecords                :: !(Maybe Int)     , _dcevMarker                    :: !(Maybe Text)+    , _dcevMaxRecords                :: !(Maybe Int)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCacheEngineVersions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcevCacheParameterGroupFamily'--- -- * 'dcevEngineVersion' --+-- * 'dcevCacheParameterGroupFamily'+-- -- * 'dcevDefaultOnly' -- -- * 'dcevEngine' ----- * 'dcevMaxRecords'--- -- * 'dcevMarker'+--+-- * 'dcevMaxRecords' describeCacheEngineVersions     :: DescribeCacheEngineVersions describeCacheEngineVersions =     DescribeCacheEngineVersions'-    { _dcevCacheParameterGroupFamily = Nothing-    , _dcevEngineVersion = Nothing+    { _dcevEngineVersion = Nothing+    , _dcevCacheParameterGroupFamily = Nothing     , _dcevDefaultOnly = Nothing     , _dcevEngine = Nothing-    , _dcevMaxRecords = Nothing     , _dcevMarker = Nothing+    , _dcevMaxRecords = Nothing     } +-- | The cache engine version to return.+--+-- Example: '1.4.14'+dcevEngineVersion :: Lens' DescribeCacheEngineVersions (Maybe Text)+dcevEngineVersion = lens _dcevEngineVersion (\ s a -> s{_dcevEngineVersion = a});+ -- | The name of a specific cache parameter group family to return details -- for. --@@ -103,12 +109,6 @@ dcevCacheParameterGroupFamily :: Lens' DescribeCacheEngineVersions (Maybe Text) dcevCacheParameterGroupFamily = lens _dcevCacheParameterGroupFamily (\ s a -> s{_dcevCacheParameterGroupFamily = a}); --- | The cache engine version to return.------ Example: '1.4.14'-dcevEngineVersion :: Lens' DescribeCacheEngineVersions (Maybe Text)-dcevEngineVersion = lens _dcevEngineVersion (\ s a -> s{_dcevEngineVersion = a});- -- | If /true/, specifies that only the default version of the specified -- engine or engine and major version combination is to be returned. dcevDefaultOnly :: Lens' DescribeCacheEngineVersions (Maybe Bool)@@ -118,6 +118,13 @@ dcevEngine :: Lens' DescribeCacheEngineVersions (Maybe Text) dcevEngine = lens _dcevEngine (\ s a -> s{_dcevEngine = a}); +-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+dcevMarker :: Lens' DescribeCacheEngineVersions (Maybe Text)+dcevMarker = lens _dcevMarker (\ s a -> s{_dcevMarker = a});+ -- | The maximum number of records to include in the response. If more -- records exist than the specified 'MaxRecords' value, a marker is -- included in the response so that the remaining results can be retrieved.@@ -128,13 +135,6 @@ dcevMaxRecords :: Lens' DescribeCacheEngineVersions (Maybe Int) dcevMaxRecords = lens _dcevMaxRecords (\ s a -> s{_dcevMaxRecords = a}); --- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified,--- the response includes only records beyond the marker, up to the value--- specified by /MaxRecords/.-dcevMarker :: Lens' DescribeCacheEngineVersions (Maybe Text)-dcevMarker = lens _dcevMarker (\ s a -> s{_dcevMarker = a});- instance AWSPager DescribeCacheEngineVersions where         page rq rs           | stop (rs ^. dcevrsMarker) = Nothing@@ -168,13 +168,12 @@               ["Action" =:                  ("DescribeCacheEngineVersions" :: ByteString),                "Version" =: ("2015-02-02" :: ByteString),+               "EngineVersion" =: _dcevEngineVersion,                "CacheParameterGroupFamily" =:                  _dcevCacheParameterGroupFamily,-               "EngineVersion" =: _dcevEngineVersion,                "DefaultOnly" =: _dcevDefaultOnly,-               "Engine" =: _dcevEngine,-               "MaxRecords" =: _dcevMaxRecords,-               "Marker" =: _dcevMarker]+               "Engine" =: _dcevEngine, "Marker" =: _dcevMarker,+               "MaxRecords" =: _dcevMaxRecords]  -- | Represents the output of a DescribeCacheEngineVersions action. --@@ -182,7 +181,7 @@ data DescribeCacheEngineVersionsResponse = DescribeCacheEngineVersionsResponse'     { _dcevrsCacheEngineVersions :: !(Maybe [CacheEngineVersion])     , _dcevrsMarker              :: !(Maybe Text)-    , _dcevrsStatus              :: !Int+    , _dcevrsResponseStatus      :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCacheEngineVersionsResponse' with the minimum fields required to make a request.@@ -193,15 +192,15 @@ -- -- * 'dcevrsMarker' ----- * 'dcevrsStatus'+-- * 'dcevrsResponseStatus' describeCacheEngineVersionsResponse-    :: Int -- ^ 'dcevrsStatus'+    :: Int -- ^ 'dcevrsResponseStatus'     -> DescribeCacheEngineVersionsResponse-describeCacheEngineVersionsResponse pStatus_ =+describeCacheEngineVersionsResponse pResponseStatus_ =     DescribeCacheEngineVersionsResponse'     { _dcevrsCacheEngineVersions = Nothing     , _dcevrsMarker = Nothing-    , _dcevrsStatus = pStatus_+    , _dcevrsResponseStatus = pResponseStatus_     }  -- | A list of cache engine version details. Each element in the list@@ -214,5 +213,5 @@ dcevrsMarker = lens _dcevrsMarker (\ s a -> s{_dcevrsMarker = a});  -- | The response status code.-dcevrsStatus :: Lens' DescribeCacheEngineVersionsResponse Int-dcevrsStatus = lens _dcevrsStatus (\ s a -> s{_dcevrsStatus = a});+dcevrsResponseStatus :: Lens' DescribeCacheEngineVersionsResponse Int+dcevrsResponseStatus = lens _dcevrsResponseStatus (\ s a -> s{_dcevrsResponseStatus = a});

@@ -32,8 +32,8 @@     , DescribeCacheParameterGroups     -- * Request Lenses     , dcpgCacheParameterGroupName-    , dcpgMaxRecords     , dcpgMarker+    , dcpgMaxRecords      -- * Destructuring the Response     , describeCacheParameterGroupsResponse@@ -41,7 +41,7 @@     -- * Response Lenses     , dcpgrsCacheParameterGroups     , dcpgrsMarker-    , dcpgrsStatus+    , dcpgrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -56,8 +56,8 @@ -- /See:/ 'describeCacheParameterGroups' smart constructor. data DescribeCacheParameterGroups = DescribeCacheParameterGroups'     { _dcpgCacheParameterGroupName :: !(Maybe Text)-    , _dcpgMaxRecords              :: !(Maybe Int)     , _dcpgMarker                  :: !(Maybe Text)+    , _dcpgMaxRecords              :: !(Maybe Int)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCacheParameterGroups' with the minimum fields required to make a request.@@ -66,22 +66,29 @@ -- -- * 'dcpgCacheParameterGroupName' ----- * 'dcpgMaxRecords'--- -- * 'dcpgMarker'+--+-- * 'dcpgMaxRecords' describeCacheParameterGroups     :: DescribeCacheParameterGroups describeCacheParameterGroups =     DescribeCacheParameterGroups'     { _dcpgCacheParameterGroupName = Nothing-    , _dcpgMaxRecords = Nothing     , _dcpgMarker = Nothing+    , _dcpgMaxRecords = Nothing     }  -- | The name of a specific cache parameter group to return details for. dcpgCacheParameterGroupName :: Lens' DescribeCacheParameterGroups (Maybe Text) dcpgCacheParameterGroupName = lens _dcpgCacheParameterGroupName (\ s a -> s{_dcpgCacheParameterGroupName = a}); +-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+dcpgMarker :: Lens' DescribeCacheParameterGroups (Maybe Text)+dcpgMarker = lens _dcpgMarker (\ s a -> s{_dcpgMarker = a});+ -- | The maximum number of records to include in the response. If more -- records exist than the specified 'MaxRecords' value, a marker is -- included in the response so that the remaining results can be retrieved.@@ -92,13 +99,6 @@ dcpgMaxRecords :: Lens' DescribeCacheParameterGroups (Maybe Int) dcpgMaxRecords = lens _dcpgMaxRecords (\ s a -> s{_dcpgMaxRecords = a}); --- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified,--- the response includes only records beyond the marker, up to the value--- specified by /MaxRecords/.-dcpgMarker :: Lens' DescribeCacheParameterGroups (Maybe Text)-dcpgMarker = lens _dcpgMarker (\ s a -> s{_dcpgMarker = a});- instance AWSPager DescribeCacheParameterGroups where         page rq rs           | stop (rs ^. dcpgrsMarker) = Nothing@@ -135,8 +135,8 @@                "Version" =: ("2015-02-02" :: ByteString),                "CacheParameterGroupName" =:                  _dcpgCacheParameterGroupName,-               "MaxRecords" =: _dcpgMaxRecords,-               "Marker" =: _dcpgMarker]+               "Marker" =: _dcpgMarker,+               "MaxRecords" =: _dcpgMaxRecords]  -- | Represents the output of a /DescribeCacheParameterGroups/ action. --@@ -144,7 +144,7 @@ data DescribeCacheParameterGroupsResponse = DescribeCacheParameterGroupsResponse'     { _dcpgrsCacheParameterGroups :: !(Maybe [CacheParameterGroup])     , _dcpgrsMarker               :: !(Maybe Text)-    , _dcpgrsStatus               :: !Int+    , _dcpgrsResponseStatus       :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCacheParameterGroupsResponse' with the minimum fields required to make a request.@@ -155,15 +155,15 @@ -- -- * 'dcpgrsMarker' ----- * 'dcpgrsStatus'+-- * 'dcpgrsResponseStatus' describeCacheParameterGroupsResponse-    :: Int -- ^ 'dcpgrsStatus'+    :: Int -- ^ 'dcpgrsResponseStatus'     -> DescribeCacheParameterGroupsResponse-describeCacheParameterGroupsResponse pStatus_ =+describeCacheParameterGroupsResponse pResponseStatus_ =     DescribeCacheParameterGroupsResponse'     { _dcpgrsCacheParameterGroups = Nothing     , _dcpgrsMarker = Nothing-    , _dcpgrsStatus = pStatus_+    , _dcpgrsResponseStatus = pResponseStatus_     }  -- | A list of cache parameter groups. Each element in the list contains@@ -176,5 +176,5 @@ dcpgrsMarker = lens _dcpgrsMarker (\ s a -> s{_dcpgrsMarker = a});  -- | The response status code.-dcpgrsStatus :: Lens' DescribeCacheParameterGroupsResponse Int-dcpgrsStatus = lens _dcpgrsStatus (\ s a -> s{_dcpgrsStatus = a});+dcpgrsResponseStatus :: Lens' DescribeCacheParameterGroupsResponse Int+dcpgrsResponseStatus = lens _dcpgrsResponseStatus (\ s a -> s{_dcpgrsResponseStatus = a});

@@ -30,8 +30,8 @@       describeCacheParameters     , DescribeCacheParameters     -- * Request Lenses-    , dcpMaxRecords     , dcpMarker+    , dcpMaxRecords     , dcpSource     , dcpCacheParameterGroupName @@ -40,9 +40,9 @@     , DescribeCacheParametersResponse     -- * Response Lenses     , dcprsCacheNodeTypeSpecificParameters-    , dcprsParameters     , dcprsMarker-    , dcprsStatus+    , dcprsParameters+    , dcprsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -56,8 +56,8 @@ -- -- /See:/ 'describeCacheParameters' smart constructor. data DescribeCacheParameters = DescribeCacheParameters'-    { _dcpMaxRecords              :: !(Maybe Int)-    , _dcpMarker                  :: !(Maybe Text)+    { _dcpMarker                  :: !(Maybe Text)+    , _dcpMaxRecords              :: !(Maybe Int)     , _dcpSource                  :: !(Maybe Text)     , _dcpCacheParameterGroupName :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -66,10 +66,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcpMaxRecords'--- -- * 'dcpMarker' --+-- * 'dcpMaxRecords'+-- -- * 'dcpSource' -- -- * 'dcpCacheParameterGroupName'@@ -78,12 +78,19 @@     -> DescribeCacheParameters describeCacheParameters pCacheParameterGroupName_ =     DescribeCacheParameters'-    { _dcpMaxRecords = Nothing-    , _dcpMarker = Nothing+    { _dcpMarker = Nothing+    , _dcpMaxRecords = Nothing     , _dcpSource = Nothing     , _dcpCacheParameterGroupName = pCacheParameterGroupName_     } +-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+dcpMarker :: Lens' DescribeCacheParameters (Maybe Text)+dcpMarker = lens _dcpMarker (\ s a -> s{_dcpMarker = a});+ -- | The maximum number of records to include in the response. If more -- records exist than the specified 'MaxRecords' value, a marker is -- included in the response so that the remaining results can be retrieved.@@ -94,13 +101,6 @@ dcpMaxRecords :: Lens' DescribeCacheParameters (Maybe Int) dcpMaxRecords = lens _dcpMaxRecords (\ s a -> s{_dcpMaxRecords = a}); --- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified,--- the response includes only records beyond the marker, up to the value--- specified by /MaxRecords/.-dcpMarker :: Lens' DescribeCacheParameters (Maybe Text)-dcpMarker = lens _dcpMarker (\ s a -> s{_dcpMarker = a});- -- | The parameter types to return. -- -- Valid values: 'user' | 'system' | 'engine-default'@@ -129,10 +129,10 @@                    (x .@? "CacheNodeTypeSpecificParameters" .!@ mempty                       >>=                       may (parseXMLList "CacheNodeTypeSpecificParameter"))+                     <*> (x .@? "Marker")                      <*>                      (x .@? "Parameters" .!@ mempty >>=                         may (parseXMLList "Parameter"))-                     <*> (x .@? "Marker")                      <*> (pure (fromEnum s)))  instance ToHeaders DescribeCacheParameters where@@ -147,8 +147,9 @@               ["Action" =:                  ("DescribeCacheParameters" :: ByteString),                "Version" =: ("2015-02-02" :: ByteString),+               "Marker" =: _dcpMarker,                "MaxRecords" =: _dcpMaxRecords,-               "Marker" =: _dcpMarker, "Source" =: _dcpSource,+               "Source" =: _dcpSource,                "CacheParameterGroupName" =:                  _dcpCacheParameterGroupName] @@ -157,9 +158,9 @@ -- /See:/ 'describeCacheParametersResponse' smart constructor. data DescribeCacheParametersResponse = DescribeCacheParametersResponse'     { _dcprsCacheNodeTypeSpecificParameters :: !(Maybe [CacheNodeTypeSpecificParameter])-    , _dcprsParameters                      :: !(Maybe [Parameter])     , _dcprsMarker                          :: !(Maybe Text)-    , _dcprsStatus                          :: !Int+    , _dcprsParameters                      :: !(Maybe [Parameter])+    , _dcprsResponseStatus                  :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCacheParametersResponse' with the minimum fields required to make a request.@@ -168,20 +169,20 @@ -- -- * 'dcprsCacheNodeTypeSpecificParameters' ----- * 'dcprsParameters'--- -- * 'dcprsMarker' ----- * 'dcprsStatus'+-- * 'dcprsParameters'+--+-- * 'dcprsResponseStatus' describeCacheParametersResponse-    :: Int -- ^ 'dcprsStatus'+    :: Int -- ^ 'dcprsResponseStatus'     -> DescribeCacheParametersResponse-describeCacheParametersResponse pStatus_ =+describeCacheParametersResponse pResponseStatus_ =     DescribeCacheParametersResponse'     { _dcprsCacheNodeTypeSpecificParameters = Nothing-    , _dcprsParameters = Nothing     , _dcprsMarker = Nothing-    , _dcprsStatus = pStatus_+    , _dcprsParameters = Nothing+    , _dcprsResponseStatus = pResponseStatus_     }  -- | A list of parameters specific to a particular cache node type. Each@@ -189,14 +190,14 @@ dcprsCacheNodeTypeSpecificParameters :: Lens' DescribeCacheParametersResponse [CacheNodeTypeSpecificParameter] dcprsCacheNodeTypeSpecificParameters = lens _dcprsCacheNodeTypeSpecificParameters (\ s a -> s{_dcprsCacheNodeTypeSpecificParameters = a}) . _Default . _Coerce; --- | A list of Parameter instances.-dcprsParameters :: Lens' DescribeCacheParametersResponse [Parameter]-dcprsParameters = lens _dcprsParameters (\ s a -> s{_dcprsParameters = a}) . _Default . _Coerce;- -- | Provides an identifier to allow retrieval of paginated results. dcprsMarker :: Lens' DescribeCacheParametersResponse (Maybe Text) dcprsMarker = lens _dcprsMarker (\ s a -> s{_dcprsMarker = a}); +-- | A list of Parameter instances.+dcprsParameters :: Lens' DescribeCacheParametersResponse [Parameter]+dcprsParameters = lens _dcprsParameters (\ s a -> s{_dcprsParameters = a}) . _Default . _Coerce;+ -- | The response status code.-dcprsStatus :: Lens' DescribeCacheParametersResponse Int-dcprsStatus = lens _dcprsStatus (\ s a -> s{_dcprsStatus = a});+dcprsResponseStatus :: Lens' DescribeCacheParametersResponse Int+dcprsResponseStatus = lens _dcprsResponseStatus (\ s a -> s{_dcprsResponseStatus = a});

@@ -32,8 +32,8 @@     , DescribeCacheSecurityGroups     -- * Request Lenses     , dcsgsCacheSecurityGroupName-    , dcsgsMaxRecords     , dcsgsMarker+    , dcsgsMaxRecords      -- * Destructuring the Response     , describeCacheSecurityGroupsResponse@@ -41,7 +41,7 @@     -- * Response Lenses     , dcsgsrsCacheSecurityGroups     , dcsgsrsMarker-    , dcsgsrsStatus+    , dcsgsrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -56,8 +56,8 @@ -- /See:/ 'describeCacheSecurityGroups' smart constructor. data DescribeCacheSecurityGroups = DescribeCacheSecurityGroups'     { _dcsgsCacheSecurityGroupName :: !(Maybe Text)-    , _dcsgsMaxRecords             :: !(Maybe Int)     , _dcsgsMarker                 :: !(Maybe Text)+    , _dcsgsMaxRecords             :: !(Maybe Int)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCacheSecurityGroups' with the minimum fields required to make a request.@@ -66,22 +66,29 @@ -- -- * 'dcsgsCacheSecurityGroupName' ----- * 'dcsgsMaxRecords'--- -- * 'dcsgsMarker'+--+-- * 'dcsgsMaxRecords' describeCacheSecurityGroups     :: DescribeCacheSecurityGroups describeCacheSecurityGroups =     DescribeCacheSecurityGroups'     { _dcsgsCacheSecurityGroupName = Nothing-    , _dcsgsMaxRecords = Nothing     , _dcsgsMarker = Nothing+    , _dcsgsMaxRecords = Nothing     }  -- | The name of the cache security group to return details for. dcsgsCacheSecurityGroupName :: Lens' DescribeCacheSecurityGroups (Maybe Text) dcsgsCacheSecurityGroupName = lens _dcsgsCacheSecurityGroupName (\ s a -> s{_dcsgsCacheSecurityGroupName = a}); +-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+dcsgsMarker :: Lens' DescribeCacheSecurityGroups (Maybe Text)+dcsgsMarker = lens _dcsgsMarker (\ s a -> s{_dcsgsMarker = a});+ -- | The maximum number of records to include in the response. If more -- records exist than the specified 'MaxRecords' value, a marker is -- included in the response so that the remaining results can be retrieved.@@ -92,13 +99,6 @@ dcsgsMaxRecords :: Lens' DescribeCacheSecurityGroups (Maybe Int) dcsgsMaxRecords = lens _dcsgsMaxRecords (\ s a -> s{_dcsgsMaxRecords = a}); --- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified,--- the response includes only records beyond the marker, up to the value--- specified by /MaxRecords/.-dcsgsMarker :: Lens' DescribeCacheSecurityGroups (Maybe Text)-dcsgsMarker = lens _dcsgsMarker (\ s a -> s{_dcsgsMarker = a});- instance AWSPager DescribeCacheSecurityGroups where         page rq rs           | stop (rs ^. dcsgsrsMarker) = Nothing@@ -134,8 +134,8 @@                "Version" =: ("2015-02-02" :: ByteString),                "CacheSecurityGroupName" =:                  _dcsgsCacheSecurityGroupName,-               "MaxRecords" =: _dcsgsMaxRecords,-               "Marker" =: _dcsgsMarker]+               "Marker" =: _dcsgsMarker,+               "MaxRecords" =: _dcsgsMaxRecords]  -- | Represents the output of a /DescribeCacheSecurityGroups/ action. --@@ -143,7 +143,7 @@ data DescribeCacheSecurityGroupsResponse = DescribeCacheSecurityGroupsResponse'     { _dcsgsrsCacheSecurityGroups :: !(Maybe [CacheSecurityGroup])     , _dcsgsrsMarker              :: !(Maybe Text)-    , _dcsgsrsStatus              :: !Int+    , _dcsgsrsResponseStatus      :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCacheSecurityGroupsResponse' with the minimum fields required to make a request.@@ -154,15 +154,15 @@ -- -- * 'dcsgsrsMarker' ----- * 'dcsgsrsStatus'+-- * 'dcsgsrsResponseStatus' describeCacheSecurityGroupsResponse-    :: Int -- ^ 'dcsgsrsStatus'+    :: Int -- ^ 'dcsgsrsResponseStatus'     -> DescribeCacheSecurityGroupsResponse-describeCacheSecurityGroupsResponse pStatus_ =+describeCacheSecurityGroupsResponse pResponseStatus_ =     DescribeCacheSecurityGroupsResponse'     { _dcsgsrsCacheSecurityGroups = Nothing     , _dcsgsrsMarker = Nothing-    , _dcsgsrsStatus = pStatus_+    , _dcsgsrsResponseStatus = pResponseStatus_     }  -- | A list of cache security groups. Each element in the list contains@@ -175,5 +175,5 @@ dcsgsrsMarker = lens _dcsgsrsMarker (\ s a -> s{_dcsgsrsMarker = a});  -- | The response status code.-dcsgsrsStatus :: Lens' DescribeCacheSecurityGroupsResponse Int-dcsgsrsStatus = lens _dcsgsrsStatus (\ s a -> s{_dcsgsrsStatus = a});+dcsgsrsResponseStatus :: Lens' DescribeCacheSecurityGroupsResponse Int+dcsgsrsResponseStatus = lens _dcsgsrsResponseStatus (\ s a -> s{_dcsgsrsResponseStatus = a});

@@ -32,8 +32,8 @@     , DescribeCacheSubnetGroups     -- * Request Lenses     , dcsgCacheSubnetGroupName-    , dcsgMaxRecords     , dcsgMarker+    , dcsgMaxRecords      -- * Destructuring the Response     , describeCacheSubnetGroupsResponse@@ -41,7 +41,7 @@     -- * Response Lenses     , dcsgrsMarker     , dcsgrsCacheSubnetGroups-    , dcsgrsStatus+    , dcsgrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -56,8 +56,8 @@ -- /See:/ 'describeCacheSubnetGroups' smart constructor. data DescribeCacheSubnetGroups = DescribeCacheSubnetGroups'     { _dcsgCacheSubnetGroupName :: !(Maybe Text)-    , _dcsgMaxRecords           :: !(Maybe Int)     , _dcsgMarker               :: !(Maybe Text)+    , _dcsgMaxRecords           :: !(Maybe Int)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCacheSubnetGroups' with the minimum fields required to make a request.@@ -66,22 +66,29 @@ -- -- * 'dcsgCacheSubnetGroupName' ----- * 'dcsgMaxRecords'--- -- * 'dcsgMarker'+--+-- * 'dcsgMaxRecords' describeCacheSubnetGroups     :: DescribeCacheSubnetGroups describeCacheSubnetGroups =     DescribeCacheSubnetGroups'     { _dcsgCacheSubnetGroupName = Nothing-    , _dcsgMaxRecords = Nothing     , _dcsgMarker = Nothing+    , _dcsgMaxRecords = Nothing     }  -- | The name of the cache subnet group to return details for. dcsgCacheSubnetGroupName :: Lens' DescribeCacheSubnetGroups (Maybe Text) dcsgCacheSubnetGroupName = lens _dcsgCacheSubnetGroupName (\ s a -> s{_dcsgCacheSubnetGroupName = a}); +-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+dcsgMarker :: Lens' DescribeCacheSubnetGroups (Maybe Text)+dcsgMarker = lens _dcsgMarker (\ s a -> s{_dcsgMarker = a});+ -- | The maximum number of records to include in the response. If more -- records exist than the specified 'MaxRecords' value, a marker is -- included in the response so that the remaining results can be retrieved.@@ -92,13 +99,6 @@ dcsgMaxRecords :: Lens' DescribeCacheSubnetGroups (Maybe Int) dcsgMaxRecords = lens _dcsgMaxRecords (\ s a -> s{_dcsgMaxRecords = a}); --- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified,--- the response includes only records beyond the marker, up to the value--- specified by /MaxRecords/.-dcsgMarker :: Lens' DescribeCacheSubnetGroups (Maybe Text)-dcsgMarker = lens _dcsgMarker (\ s a -> s{_dcsgMarker = a});- instance AWSPager DescribeCacheSubnetGroups where         page rq rs           | stop (rs ^. dcsgrsMarker) = Nothing@@ -132,8 +132,8 @@                  ("DescribeCacheSubnetGroups" :: ByteString),                "Version" =: ("2015-02-02" :: ByteString),                "CacheSubnetGroupName" =: _dcsgCacheSubnetGroupName,-               "MaxRecords" =: _dcsgMaxRecords,-               "Marker" =: _dcsgMarker]+               "Marker" =: _dcsgMarker,+               "MaxRecords" =: _dcsgMaxRecords]  -- | Represents the output of a /DescribeCacheSubnetGroups/ action. --@@ -141,7 +141,7 @@ data DescribeCacheSubnetGroupsResponse = DescribeCacheSubnetGroupsResponse'     { _dcsgrsMarker            :: !(Maybe Text)     , _dcsgrsCacheSubnetGroups :: !(Maybe [CacheSubnetGroup])-    , _dcsgrsStatus            :: !Int+    , _dcsgrsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCacheSubnetGroupsResponse' with the minimum fields required to make a request.@@ -152,15 +152,15 @@ -- -- * 'dcsgrsCacheSubnetGroups' ----- * 'dcsgrsStatus'+-- * 'dcsgrsResponseStatus' describeCacheSubnetGroupsResponse-    :: Int -- ^ 'dcsgrsStatus'+    :: Int -- ^ 'dcsgrsResponseStatus'     -> DescribeCacheSubnetGroupsResponse-describeCacheSubnetGroupsResponse pStatus_ =+describeCacheSubnetGroupsResponse pResponseStatus_ =     DescribeCacheSubnetGroupsResponse'     { _dcsgrsMarker = Nothing     , _dcsgrsCacheSubnetGroups = Nothing-    , _dcsgrsStatus = pStatus_+    , _dcsgrsResponseStatus = pResponseStatus_     }  -- | Provides an identifier to allow retrieval of paginated results.@@ -173,5 +173,5 @@ dcsgrsCacheSubnetGroups = lens _dcsgrsCacheSubnetGroups (\ s a -> s{_dcsgrsCacheSubnetGroups = a}) . _Default . _Coerce;  -- | The response status code.-dcsgrsStatus :: Lens' DescribeCacheSubnetGroupsResponse Int-dcsgrsStatus = lens _dcsgrsStatus (\ s a -> s{_dcsgrsStatus = a});+dcsgrsResponseStatus :: Lens' DescribeCacheSubnetGroupsResponse Int+dcsgrsResponseStatus = lens _dcsgrsResponseStatus (\ s a -> s{_dcsgrsResponseStatus = a});

@@ -30,15 +30,15 @@       describeEngineDefaultParameters     , DescribeEngineDefaultParameters     -- * Request Lenses-    , dedpMaxRecords     , dedpMarker+    , dedpMaxRecords     , dedpCacheParameterGroupFamily      -- * Destructuring the Response     , describeEngineDefaultParametersResponse     , DescribeEngineDefaultParametersResponse     -- * Response Lenses-    , dedprsStatus+    , dedprsResponseStatus     , dedprsEngineDefaults     ) where @@ -53,8 +53,8 @@ -- -- /See:/ 'describeEngineDefaultParameters' smart constructor. data DescribeEngineDefaultParameters = DescribeEngineDefaultParameters'-    { _dedpMaxRecords                :: !(Maybe Int)-    , _dedpMarker                    :: !(Maybe Text)+    { _dedpMarker                    :: !(Maybe Text)+    , _dedpMaxRecords                :: !(Maybe Int)     , _dedpCacheParameterGroupFamily :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -62,21 +62,28 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dedpMaxRecords'--- -- * 'dedpMarker' --+-- * 'dedpMaxRecords'+-- -- * 'dedpCacheParameterGroupFamily' describeEngineDefaultParameters     :: Text -- ^ 'dedpCacheParameterGroupFamily'     -> DescribeEngineDefaultParameters describeEngineDefaultParameters pCacheParameterGroupFamily_ =     DescribeEngineDefaultParameters'-    { _dedpMaxRecords = Nothing-    , _dedpMarker = Nothing+    { _dedpMarker = Nothing+    , _dedpMaxRecords = Nothing     , _dedpCacheParameterGroupFamily = pCacheParameterGroupFamily_     } +-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+dedpMarker :: Lens' DescribeEngineDefaultParameters (Maybe Text)+dedpMarker = lens _dedpMarker (\ s a -> s{_dedpMarker = a});+ -- | The maximum number of records to include in the response. If more -- records exist than the specified 'MaxRecords' value, a marker is -- included in the response so that the remaining results can be retrieved.@@ -87,13 +94,6 @@ dedpMaxRecords :: Lens' DescribeEngineDefaultParameters (Maybe Int) dedpMaxRecords = lens _dedpMaxRecords (\ s a -> s{_dedpMaxRecords = a}); --- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified,--- the response includes only records beyond the marker, up to the value--- specified by /MaxRecords/.-dedpMarker :: Lens' DescribeEngineDefaultParameters (Maybe Text)-dedpMarker = lens _dedpMarker (\ s a -> s{_dedpMarker = a});- -- | The name of the cache parameter group family. Valid values are: -- 'memcached1.4' | 'redis2.6' | 'redis2.8' dedpCacheParameterGroupFamily :: Lens' DescribeEngineDefaultParameters Text@@ -138,14 +138,14 @@               ["Action" =:                  ("DescribeEngineDefaultParameters" :: ByteString),                "Version" =: ("2015-02-02" :: ByteString),-               "MaxRecords" =: _dedpMaxRecords,                "Marker" =: _dedpMarker,+               "MaxRecords" =: _dedpMaxRecords,                "CacheParameterGroupFamily" =:                  _dedpCacheParameterGroupFamily]  -- | /See:/ 'describeEngineDefaultParametersResponse' smart constructor. data DescribeEngineDefaultParametersResponse = DescribeEngineDefaultParametersResponse'-    { _dedprsStatus         :: !Int+    { _dedprsResponseStatus :: !Int     , _dedprsEngineDefaults :: !EngineDefaults     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -153,22 +153,22 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dedprsStatus'+-- * 'dedprsResponseStatus' -- -- * 'dedprsEngineDefaults' describeEngineDefaultParametersResponse-    :: Int -- ^ 'dedprsStatus'+    :: Int -- ^ 'dedprsResponseStatus'     -> EngineDefaults -- ^ 'dedprsEngineDefaults'     -> DescribeEngineDefaultParametersResponse-describeEngineDefaultParametersResponse pStatus_ pEngineDefaults_ =+describeEngineDefaultParametersResponse pResponseStatus_ pEngineDefaults_ =     DescribeEngineDefaultParametersResponse'-    { _dedprsStatus = pStatus_+    { _dedprsResponseStatus = pResponseStatus_     , _dedprsEngineDefaults = pEngineDefaults_     }  -- | The response status code.-dedprsStatus :: Lens' DescribeEngineDefaultParametersResponse Int-dedprsStatus = lens _dedprsStatus (\ s a -> s{_dedprsStatus = a});+dedprsResponseStatus :: Lens' DescribeEngineDefaultParametersResponse Int+dedprsResponseStatus = lens _dedprsResponseStatus (\ s a -> s{_dedprsResponseStatus = a});  -- | Undocumented member. dedprsEngineDefaults :: Lens' DescribeEngineDefaultParametersResponse EngineDefaults

@@ -38,9 +38,9 @@     , deStartTime     , deSourceType     , deSourceIdentifier+    , deMarker     , deMaxRecords     , deEndTime-    , deMarker     , deDuration      -- * Destructuring the Response@@ -49,7 +49,7 @@     -- * Response Lenses     , dersEvents     , dersMarker-    , dersStatus+    , dersResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -66,9 +66,9 @@     { _deStartTime        :: !(Maybe ISO8601)     , _deSourceType       :: !(Maybe SourceType)     , _deSourceIdentifier :: !(Maybe Text)+    , _deMarker           :: !(Maybe Text)     , _deMaxRecords       :: !(Maybe Int)     , _deEndTime          :: !(Maybe ISO8601)-    , _deMarker           :: !(Maybe Text)     , _deDuration         :: !(Maybe Int)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -82,12 +82,12 @@ -- -- * 'deSourceIdentifier' --+-- * 'deMarker'+-- -- * 'deMaxRecords' -- -- * 'deEndTime' ----- * 'deMarker'--- -- * 'deDuration' describeEvents     :: DescribeEvents@@ -96,9 +96,9 @@     { _deStartTime = Nothing     , _deSourceType = Nothing     , _deSourceIdentifier = Nothing+    , _deMarker = Nothing     , _deMaxRecords = Nothing     , _deEndTime = Nothing-    , _deMarker = Nothing     , _deDuration = Nothing     } @@ -120,6 +120,13 @@ deSourceIdentifier :: Lens' DescribeEvents (Maybe Text) deSourceIdentifier = lens _deSourceIdentifier (\ s a -> s{_deSourceIdentifier = a}); +-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+deMarker :: Lens' DescribeEvents (Maybe Text)+deMarker = lens _deMarker (\ s a -> s{_deMarker = a});+ -- | The maximum number of records to include in the response. If more -- records exist than the specified 'MaxRecords' value, a marker is -- included in the response so that the remaining results can be retrieved.@@ -135,13 +142,6 @@ deEndTime :: Lens' DescribeEvents (Maybe UTCTime) deEndTime = lens _deEndTime (\ s a -> s{_deEndTime = a}) . mapping _Time; --- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified,--- the response includes only records beyond the marker, up to the value--- specified by /MaxRecords/.-deMarker :: Lens' DescribeEvents (Maybe Text)-deMarker = lens _deMarker (\ s a -> s{_deMarker = a});- -- | The number of minutes\' worth of events to retrieve. deDuration :: Lens' DescribeEvents (Maybe Int) deDuration = lens _deDuration (\ s a -> s{_deDuration = a});@@ -179,17 +179,16 @@                "StartTime" =: _deStartTime,                "SourceType" =: _deSourceType,                "SourceIdentifier" =: _deSourceIdentifier,-               "MaxRecords" =: _deMaxRecords,-               "EndTime" =: _deEndTime, "Marker" =: _deMarker,-               "Duration" =: _deDuration]+               "Marker" =: _deMarker, "MaxRecords" =: _deMaxRecords,+               "EndTime" =: _deEndTime, "Duration" =: _deDuration]  -- | Represents the output of a /DescribeEvents/ action. -- -- /See:/ 'describeEventsResponse' smart constructor. data DescribeEventsResponse = DescribeEventsResponse'-    { _dersEvents :: !(Maybe [Event])-    , _dersMarker :: !(Maybe Text)-    , _dersStatus :: !Int+    { _dersEvents         :: !(Maybe [Event])+    , _dersMarker         :: !(Maybe Text)+    , _dersResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeEventsResponse' with the minimum fields required to make a request.@@ -200,15 +199,15 @@ -- -- * 'dersMarker' ----- * 'dersStatus'+-- * 'dersResponseStatus' describeEventsResponse-    :: Int -- ^ 'dersStatus'+    :: Int -- ^ 'dersResponseStatus'     -> DescribeEventsResponse-describeEventsResponse pStatus_ =+describeEventsResponse pResponseStatus_ =     DescribeEventsResponse'     { _dersEvents = Nothing     , _dersMarker = Nothing-    , _dersStatus = pStatus_+    , _dersResponseStatus = pResponseStatus_     }  -- | A list of events. Each element in the list contains detailed information@@ -221,5 +220,5 @@ dersMarker = lens _dersMarker (\ s a -> s{_dersMarker = a});  -- | The response status code.-dersStatus :: Lens' DescribeEventsResponse Int-dersStatus = lens _dersStatus (\ s a -> s{_dersStatus = a});+dersResponseStatus :: Lens' DescribeEventsResponse Int+dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a});

@@ -32,8 +32,8 @@       describeReplicationGroups     , DescribeReplicationGroups     -- * Request Lenses-    , drgsMaxRecords     , drgsMarker+    , drgsMaxRecords     , drgsReplicationGroupId      -- * Destructuring the Response@@ -42,7 +42,7 @@     -- * Response Lenses     , drgrsMarker     , drgrsReplicationGroups-    , drgrsStatus+    , drgrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -56,8 +56,8 @@ -- -- /See:/ 'describeReplicationGroups' smart constructor. data DescribeReplicationGroups = DescribeReplicationGroups'-    { _drgsMaxRecords         :: !(Maybe Int)-    , _drgsMarker             :: !(Maybe Text)+    { _drgsMarker             :: !(Maybe Text)+    , _drgsMaxRecords         :: !(Maybe Int)     , _drgsReplicationGroupId :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -65,20 +65,27 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drgsMaxRecords'--- -- * 'drgsMarker' --+-- * 'drgsMaxRecords'+-- -- * 'drgsReplicationGroupId' describeReplicationGroups     :: DescribeReplicationGroups describeReplicationGroups =     DescribeReplicationGroups'-    { _drgsMaxRecords = Nothing-    , _drgsMarker = Nothing+    { _drgsMarker = Nothing+    , _drgsMaxRecords = Nothing     , _drgsReplicationGroupId = Nothing     } +-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+drgsMarker :: Lens' DescribeReplicationGroups (Maybe Text)+drgsMarker = lens _drgsMarker (\ s a -> s{_drgsMarker = a});+ -- | The maximum number of records to include in the response. If more -- records exist than the specified 'MaxRecords' value, a marker is -- included in the response so that the remaining results can be retrieved.@@ -89,13 +96,6 @@ drgsMaxRecords :: Lens' DescribeReplicationGroups (Maybe Int) drgsMaxRecords = lens _drgsMaxRecords (\ s a -> s{_drgsMaxRecords = a}); --- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified,--- the response includes only records beyond the marker, up to the value--- specified by /MaxRecords/.-drgsMarker :: Lens' DescribeReplicationGroups (Maybe Text)-drgsMarker = lens _drgsMarker (\ s a -> s{_drgsMarker = a});- -- | The identifier for the replication group to be described. This parameter -- is not case sensitive. --@@ -136,8 +136,8 @@               ["Action" =:                  ("DescribeReplicationGroups" :: ByteString),                "Version" =: ("2015-02-02" :: ByteString),-               "MaxRecords" =: _drgsMaxRecords,                "Marker" =: _drgsMarker,+               "MaxRecords" =: _drgsMaxRecords,                "ReplicationGroupId" =: _drgsReplicationGroupId]  -- | Represents the output of a /DescribeReplicationGroups/ action.@@ -146,7 +146,7 @@ data DescribeReplicationGroupsResponse = DescribeReplicationGroupsResponse'     { _drgrsMarker            :: !(Maybe Text)     , _drgrsReplicationGroups :: !(Maybe [ReplicationGroup])-    , _drgrsStatus            :: !Int+    , _drgrsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeReplicationGroupsResponse' with the minimum fields required to make a request.@@ -157,15 +157,15 @@ -- -- * 'drgrsReplicationGroups' ----- * 'drgrsStatus'+-- * 'drgrsResponseStatus' describeReplicationGroupsResponse-    :: Int -- ^ 'drgrsStatus'+    :: Int -- ^ 'drgrsResponseStatus'     -> DescribeReplicationGroupsResponse-describeReplicationGroupsResponse pStatus_ =+describeReplicationGroupsResponse pResponseStatus_ =     DescribeReplicationGroupsResponse'     { _drgrsMarker = Nothing     , _drgrsReplicationGroups = Nothing-    , _drgrsStatus = pStatus_+    , _drgrsResponseStatus = pResponseStatus_     }  -- | Provides an identifier to allow retrieval of paginated results.@@ -178,5 +178,5 @@ drgrsReplicationGroups = lens _drgrsReplicationGroups (\ s a -> s{_drgrsReplicationGroups = a}) . _Default . _Coerce;  -- | The response status code.-drgrsStatus :: Lens' DescribeReplicationGroupsResponse Int-drgrsStatus = lens _drgrsStatus (\ s a -> s{_drgrsStatus = a});+drgrsResponseStatus :: Lens' DescribeReplicationGroupsResponse Int+drgrsResponseStatus = lens _drgrsResponseStatus (\ s a -> s{_drgrsResponseStatus = a});

@@ -33,8 +33,8 @@     -- * Request Lenses     , drcnCacheNodeType     , drcnProductDescription-    , drcnMaxRecords     , drcnMarker+    , drcnMaxRecords     , drcnReservedCacheNodeId     , drcnOfferingType     , drcnDuration@@ -46,7 +46,7 @@     -- * Response Lenses     , drcnrsMarker     , drcnrsReservedCacheNodes-    , drcnrsStatus+    , drcnrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -62,8 +62,8 @@ data DescribeReservedCacheNodes = DescribeReservedCacheNodes'     { _drcnCacheNodeType                :: !(Maybe Text)     , _drcnProductDescription           :: !(Maybe Text)-    , _drcnMaxRecords                   :: !(Maybe Int)     , _drcnMarker                       :: !(Maybe Text)+    , _drcnMaxRecords                   :: !(Maybe Int)     , _drcnReservedCacheNodeId          :: !(Maybe Text)     , _drcnOfferingType                 :: !(Maybe Text)     , _drcnDuration                     :: !(Maybe Text)@@ -78,10 +78,10 @@ -- -- * 'drcnProductDescription' ----- * 'drcnMaxRecords'--- -- * 'drcnMarker' --+-- * 'drcnMaxRecords'+-- -- * 'drcnReservedCacheNodeId' -- -- * 'drcnOfferingType'@@ -95,8 +95,8 @@     DescribeReservedCacheNodes'     { _drcnCacheNodeType = Nothing     , _drcnProductDescription = Nothing-    , _drcnMaxRecords = Nothing     , _drcnMarker = Nothing+    , _drcnMaxRecords = Nothing     , _drcnReservedCacheNodeId = Nothing     , _drcnOfferingType = Nothing     , _drcnDuration = Nothing@@ -143,6 +143,13 @@ drcnProductDescription :: Lens' DescribeReservedCacheNodes (Maybe Text) drcnProductDescription = lens _drcnProductDescription (\ s a -> s{_drcnProductDescription = a}); +-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+drcnMarker :: Lens' DescribeReservedCacheNodes (Maybe Text)+drcnMarker = lens _drcnMarker (\ s a -> s{_drcnMarker = a});+ -- | The maximum number of records to include in the response. If more -- records exist than the specified 'MaxRecords' value, a marker is -- included in the response so that the remaining results can be retrieved.@@ -153,13 +160,6 @@ drcnMaxRecords :: Lens' DescribeReservedCacheNodes (Maybe Int) drcnMaxRecords = lens _drcnMaxRecords (\ s a -> s{_drcnMaxRecords = a}); --- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified,--- the response includes only records beyond the marker, up to the value--- specified by /MaxRecords/.-drcnMarker :: Lens' DescribeReservedCacheNodes (Maybe Text)-drcnMarker = lens _drcnMarker (\ s a -> s{_drcnMarker = a});- -- | The reserved cache node identifier filter value. Use this parameter to -- show only the reservation that matches the specified reservation ID. drcnReservedCacheNodeId :: Lens' DescribeReservedCacheNodes (Maybe Text)@@ -220,8 +220,8 @@                "Version" =: ("2015-02-02" :: ByteString),                "CacheNodeType" =: _drcnCacheNodeType,                "ProductDescription" =: _drcnProductDescription,-               "MaxRecords" =: _drcnMaxRecords,                "Marker" =: _drcnMarker,+               "MaxRecords" =: _drcnMaxRecords,                "ReservedCacheNodeId" =: _drcnReservedCacheNodeId,                "OfferingType" =: _drcnOfferingType,                "Duration" =: _drcnDuration,@@ -234,7 +234,7 @@ data DescribeReservedCacheNodesResponse = DescribeReservedCacheNodesResponse'     { _drcnrsMarker             :: !(Maybe Text)     , _drcnrsReservedCacheNodes :: !(Maybe [ReservedCacheNode])-    , _drcnrsStatus             :: !Int+    , _drcnrsResponseStatus     :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeReservedCacheNodesResponse' with the minimum fields required to make a request.@@ -245,15 +245,15 @@ -- -- * 'drcnrsReservedCacheNodes' ----- * 'drcnrsStatus'+-- * 'drcnrsResponseStatus' describeReservedCacheNodesResponse-    :: Int -- ^ 'drcnrsStatus'+    :: Int -- ^ 'drcnrsResponseStatus'     -> DescribeReservedCacheNodesResponse-describeReservedCacheNodesResponse pStatus_ =+describeReservedCacheNodesResponse pResponseStatus_ =     DescribeReservedCacheNodesResponse'     { _drcnrsMarker = Nothing     , _drcnrsReservedCacheNodes = Nothing-    , _drcnrsStatus = pStatus_+    , _drcnrsResponseStatus = pResponseStatus_     }  -- | Provides an identifier to allow retrieval of paginated results.@@ -266,5 +266,5 @@ drcnrsReservedCacheNodes = lens _drcnrsReservedCacheNodes (\ s a -> s{_drcnrsReservedCacheNodes = a}) . _Default . _Coerce;  -- | The response status code.-drcnrsStatus :: Lens' DescribeReservedCacheNodesResponse Int-drcnrsStatus = lens _drcnrsStatus (\ s a -> s{_drcnrsStatus = a});+drcnrsResponseStatus :: Lens' DescribeReservedCacheNodesResponse Int+drcnrsResponseStatus = lens _drcnrsResponseStatus (\ s a -> s{_drcnrsResponseStatus = a});

@@ -32,8 +32,8 @@     -- * Request Lenses     , drcnoCacheNodeType     , drcnoProductDescription-    , drcnoMaxRecords     , drcnoMarker+    , drcnoMaxRecords     , drcnoOfferingType     , drcnoDuration     , drcnoReservedCacheNodesOfferingId@@ -44,7 +44,7 @@     -- * Response Lenses     , drcnorsMarker     , drcnorsReservedCacheNodesOfferings-    , drcnorsStatus+    , drcnorsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -60,8 +60,8 @@ data DescribeReservedCacheNodesOfferings = DescribeReservedCacheNodesOfferings'     { _drcnoCacheNodeType                :: !(Maybe Text)     , _drcnoProductDescription           :: !(Maybe Text)-    , _drcnoMaxRecords                   :: !(Maybe Int)     , _drcnoMarker                       :: !(Maybe Text)+    , _drcnoMaxRecords                   :: !(Maybe Int)     , _drcnoOfferingType                 :: !(Maybe Text)     , _drcnoDuration                     :: !(Maybe Text)     , _drcnoReservedCacheNodesOfferingId :: !(Maybe Text)@@ -75,10 +75,10 @@ -- -- * 'drcnoProductDescription' ----- * 'drcnoMaxRecords'--- -- * 'drcnoMarker' --+-- * 'drcnoMaxRecords'+-- -- * 'drcnoOfferingType' -- -- * 'drcnoDuration'@@ -90,8 +90,8 @@     DescribeReservedCacheNodesOfferings'     { _drcnoCacheNodeType = Nothing     , _drcnoProductDescription = Nothing-    , _drcnoMaxRecords = Nothing     , _drcnoMarker = Nothing+    , _drcnoMaxRecords = Nothing     , _drcnoOfferingType = Nothing     , _drcnoDuration = Nothing     , _drcnoReservedCacheNodesOfferingId = Nothing@@ -137,6 +137,13 @@ drcnoProductDescription :: Lens' DescribeReservedCacheNodesOfferings (Maybe Text) drcnoProductDescription = lens _drcnoProductDescription (\ s a -> s{_drcnoProductDescription = a}); +-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+drcnoMarker :: Lens' DescribeReservedCacheNodesOfferings (Maybe Text)+drcnoMarker = lens _drcnoMarker (\ s a -> s{_drcnoMarker = a});+ -- | The maximum number of records to include in the response. If more -- records exist than the specified 'MaxRecords' value, a marker is -- included in the response so that the remaining results can be retrieved.@@ -147,13 +154,6 @@ drcnoMaxRecords :: Lens' DescribeReservedCacheNodesOfferings (Maybe Int) drcnoMaxRecords = lens _drcnoMaxRecords (\ s a -> s{_drcnoMaxRecords = a}); --- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified,--- the response includes only records beyond the marker, up to the value--- specified by /MaxRecords/.-drcnoMarker :: Lens' DescribeReservedCacheNodesOfferings (Maybe Text)-drcnoMarker = lens _drcnoMarker (\ s a -> s{_drcnoMarker = a});- -- | The offering type filter value. Use this parameter to show only the -- available offerings matching the specified offering type. --@@ -219,8 +219,8 @@                "Version" =: ("2015-02-02" :: ByteString),                "CacheNodeType" =: _drcnoCacheNodeType,                "ProductDescription" =: _drcnoProductDescription,-               "MaxRecords" =: _drcnoMaxRecords,                "Marker" =: _drcnoMarker,+               "MaxRecords" =: _drcnoMaxRecords,                "OfferingType" =: _drcnoOfferingType,                "Duration" =: _drcnoDuration,                "ReservedCacheNodesOfferingId" =:@@ -232,7 +232,7 @@ data DescribeReservedCacheNodesOfferingsResponse = DescribeReservedCacheNodesOfferingsResponse'     { _drcnorsMarker                      :: !(Maybe Text)     , _drcnorsReservedCacheNodesOfferings :: !(Maybe [ReservedCacheNodesOffering])-    , _drcnorsStatus                      :: !Int+    , _drcnorsResponseStatus              :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeReservedCacheNodesOfferingsResponse' with the minimum fields required to make a request.@@ -243,15 +243,15 @@ -- -- * 'drcnorsReservedCacheNodesOfferings' ----- * 'drcnorsStatus'+-- * 'drcnorsResponseStatus' describeReservedCacheNodesOfferingsResponse-    :: Int -- ^ 'drcnorsStatus'+    :: Int -- ^ 'drcnorsResponseStatus'     -> DescribeReservedCacheNodesOfferingsResponse-describeReservedCacheNodesOfferingsResponse pStatus_ =+describeReservedCacheNodesOfferingsResponse pResponseStatus_ =     DescribeReservedCacheNodesOfferingsResponse'     { _drcnorsMarker = Nothing     , _drcnorsReservedCacheNodesOfferings = Nothing-    , _drcnorsStatus = pStatus_+    , _drcnorsResponseStatus = pResponseStatus_     }  -- | Provides an identifier to allow retrieval of paginated results.@@ -264,5 +264,5 @@ drcnorsReservedCacheNodesOfferings = lens _drcnorsReservedCacheNodesOfferings (\ s a -> s{_drcnorsReservedCacheNodesOfferings = a}) . _Default . _Coerce;  -- | The response status code.-drcnorsStatus :: Lens' DescribeReservedCacheNodesOfferingsResponse Int-drcnorsStatus = lens _drcnorsStatus (\ s a -> s{_drcnorsStatus = a});+drcnorsResponseStatus :: Lens' DescribeReservedCacheNodesOfferingsResponse Int+drcnorsResponseStatus = lens _drcnorsResponseStatus (\ s a -> s{_drcnorsResponseStatus = a});

@@ -33,8 +33,8 @@     , DescribeSnapshots     -- * Request Lenses     , dsCacheClusterId-    , dsMaxRecords     , dsMarker+    , dsMaxRecords     , dsSnapshotName     , dsSnapshotSource @@ -44,7 +44,7 @@     -- * Response Lenses     , dssrsSnapshots     , dssrsMarker-    , dssrsStatus+    , dssrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -59,8 +59,8 @@ -- /See:/ 'describeSnapshots' smart constructor. data DescribeSnapshots = DescribeSnapshots'     { _dsCacheClusterId :: !(Maybe Text)-    , _dsMaxRecords     :: !(Maybe Int)     , _dsMarker         :: !(Maybe Text)+    , _dsMaxRecords     :: !(Maybe Int)     , _dsSnapshotName   :: !(Maybe Text)     , _dsSnapshotSource :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -71,10 +71,10 @@ -- -- * 'dsCacheClusterId' ----- * 'dsMaxRecords'--- -- * 'dsMarker' --+-- * 'dsMaxRecords'+-- -- * 'dsSnapshotName' -- -- * 'dsSnapshotSource'@@ -83,8 +83,8 @@ describeSnapshots =     DescribeSnapshots'     { _dsCacheClusterId = Nothing-    , _dsMaxRecords = Nothing     , _dsMarker = Nothing+    , _dsMaxRecords = Nothing     , _dsSnapshotName = Nothing     , _dsSnapshotSource = Nothing     }@@ -94,6 +94,13 @@ dsCacheClusterId :: Lens' DescribeSnapshots (Maybe Text) dsCacheClusterId = lens _dsCacheClusterId (\ s a -> s{_dsCacheClusterId = a}); +-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+dsMarker :: Lens' DescribeSnapshots (Maybe Text)+dsMarker = lens _dsMarker (\ s a -> s{_dsMarker = a});+ -- | The maximum number of records to include in the response. If more -- records exist than the specified 'MaxRecords' value, a marker is -- included in the response so that the remaining results can be retrieved.@@ -104,13 +111,6 @@ dsMaxRecords :: Lens' DescribeSnapshots (Maybe Int) dsMaxRecords = lens _dsMaxRecords (\ s a -> s{_dsMaxRecords = a}); --- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified,--- the response includes only records beyond the marker, up to the value--- specified by /MaxRecords/.-dsMarker :: Lens' DescribeSnapshots (Maybe Text)-dsMarker = lens _dsMarker (\ s a -> s{_dsMarker = a});- -- | A user-supplied name of the snapshot. If this parameter is specified, -- only this snapshot will be described. dsSnapshotName :: Lens' DescribeSnapshots (Maybe Text)@@ -154,7 +154,7 @@               ["Action" =: ("DescribeSnapshots" :: ByteString),                "Version" =: ("2015-02-02" :: ByteString),                "CacheClusterId" =: _dsCacheClusterId,-               "MaxRecords" =: _dsMaxRecords, "Marker" =: _dsMarker,+               "Marker" =: _dsMarker, "MaxRecords" =: _dsMaxRecords,                "SnapshotName" =: _dsSnapshotName,                "SnapshotSource" =: _dsSnapshotSource] @@ -162,9 +162,9 @@ -- -- /See:/ 'describeSnapshotsResponse' smart constructor. data DescribeSnapshotsResponse = DescribeSnapshotsResponse'-    { _dssrsSnapshots :: !(Maybe [Snapshot])-    , _dssrsMarker    :: !(Maybe Text)-    , _dssrsStatus    :: !Int+    { _dssrsSnapshots      :: !(Maybe [Snapshot])+    , _dssrsMarker         :: !(Maybe Text)+    , _dssrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeSnapshotsResponse' with the minimum fields required to make a request.@@ -175,15 +175,15 @@ -- -- * 'dssrsMarker' ----- * 'dssrsStatus'+-- * 'dssrsResponseStatus' describeSnapshotsResponse-    :: Int -- ^ 'dssrsStatus'+    :: Int -- ^ 'dssrsResponseStatus'     -> DescribeSnapshotsResponse-describeSnapshotsResponse pStatus_ =+describeSnapshotsResponse pResponseStatus_ =     DescribeSnapshotsResponse'     { _dssrsSnapshots = Nothing     , _dssrsMarker = Nothing-    , _dssrsStatus = pStatus_+    , _dssrsResponseStatus = pResponseStatus_     }  -- | A list of snapshots. Each item in the list contains detailed information@@ -199,5 +199,5 @@ dssrsMarker = lens _dssrsMarker (\ s a -> s{_dssrsMarker = a});  -- | The response status code.-dssrsStatus :: Lens' DescribeSnapshotsResponse Int-dssrsStatus = lens _dssrsStatus (\ s a -> s{_dssrsStatus = a});+dssrsResponseStatus :: Lens' DescribeSnapshotsResponse Int+dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a});

@@ -34,13 +34,13 @@     , mccSecurityGroupIds     , mccAutoMinorVersionUpgrade     , mccCacheParameterGroupName-    , mccNewAvailabilityZones     , mccSnapshotWindow+    , mccNewAvailabilityZones     , mccPreferredMaintenanceWindow     , mccCacheNodeIdsToRemove     , mccSnapshotRetentionLimit-    , mccAZMode     , mccNotificationTopicStatus+    , mccAZMode     , mccApplyImmediately     , mccNotificationTopicARN     , mccNumCacheNodes@@ -52,7 +52,7 @@     , ModifyCacheClusterResponse     -- * Response Lenses     , mccrsCacheCluster-    , mccrsStatus+    , mccrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -69,13 +69,13 @@     , _mccSecurityGroupIds           :: !(Maybe [Text])     , _mccAutoMinorVersionUpgrade    :: !(Maybe Bool)     , _mccCacheParameterGroupName    :: !(Maybe Text)-    , _mccNewAvailabilityZones       :: !(Maybe [Text])     , _mccSnapshotWindow             :: !(Maybe Text)+    , _mccNewAvailabilityZones       :: !(Maybe [Text])     , _mccPreferredMaintenanceWindow :: !(Maybe Text)     , _mccCacheNodeIdsToRemove       :: !(Maybe [Text])     , _mccSnapshotRetentionLimit     :: !(Maybe Int)-    , _mccAZMode                     :: !(Maybe AZMode)     , _mccNotificationTopicStatus    :: !(Maybe Text)+    , _mccAZMode                     :: !(Maybe AZMode)     , _mccApplyImmediately           :: !(Maybe Bool)     , _mccNotificationTopicARN       :: !(Maybe Text)     , _mccNumCacheNodes              :: !(Maybe Int)@@ -95,20 +95,20 @@ -- -- * 'mccCacheParameterGroupName' ----- * 'mccNewAvailabilityZones'--- -- * 'mccSnapshotWindow' --+-- * 'mccNewAvailabilityZones'+-- -- * 'mccPreferredMaintenanceWindow' -- -- * 'mccCacheNodeIdsToRemove' -- -- * 'mccSnapshotRetentionLimit' ----- * 'mccAZMode'--- -- * 'mccNotificationTopicStatus' --+-- * 'mccAZMode'+-- -- * 'mccApplyImmediately' -- -- * 'mccNotificationTopicARN'@@ -127,13 +127,13 @@     , _mccSecurityGroupIds = Nothing     , _mccAutoMinorVersionUpgrade = Nothing     , _mccCacheParameterGroupName = Nothing-    , _mccNewAvailabilityZones = Nothing     , _mccSnapshotWindow = Nothing+    , _mccNewAvailabilityZones = Nothing     , _mccPreferredMaintenanceWindow = Nothing     , _mccCacheNodeIdsToRemove = Nothing     , _mccSnapshotRetentionLimit = Nothing-    , _mccAZMode = Nothing     , _mccNotificationTopicStatus = Nothing+    , _mccAZMode = Nothing     , _mccApplyImmediately = Nothing     , _mccNotificationTopicARN = Nothing     , _mccNumCacheNodes = Nothing@@ -163,6 +163,11 @@ mccCacheParameterGroupName :: Lens' ModifyCacheCluster (Maybe Text) mccCacheParameterGroupName = lens _mccCacheParameterGroupName (\ s a -> s{_mccCacheParameterGroupName = a}); +-- | The daily time range (in UTC) during which ElastiCache will begin taking+-- a daily snapshot of your cache cluster.+mccSnapshotWindow :: Lens' ModifyCacheCluster (Maybe Text)+mccSnapshotWindow = lens _mccSnapshotWindow (\ s a -> s{_mccSnapshotWindow = a});+ -- | The list of Availability Zones where the new Memcached cache nodes will -- be created. --@@ -217,11 +222,6 @@ mccNewAvailabilityZones :: Lens' ModifyCacheCluster [Text] mccNewAvailabilityZones = lens _mccNewAvailabilityZones (\ s a -> s{_mccNewAvailabilityZones = a}) . _Default . _Coerce; --- | The daily time range (in UTC) during which ElastiCache will begin taking--- a daily snapshot of your cache cluster.-mccSnapshotWindow :: Lens' ModifyCacheCluster (Maybe Text)-mccSnapshotWindow = lens _mccSnapshotWindow (\ s a -> s{_mccSnapshotWindow = a});- -- | Specifies the weekly time range during which maintenance on the cache -- cluster is performed. It is specified as a range in the format -- ddd:hh24:mi-ddd:hh24:mi (24H Clock UTC). The minimum maintenance window@@ -264,6 +264,13 @@ mccSnapshotRetentionLimit :: Lens' ModifyCacheCluster (Maybe Int) mccSnapshotRetentionLimit = lens _mccSnapshotRetentionLimit (\ s a -> s{_mccSnapshotRetentionLimit = a}); +-- | The status of the Amazon SNS notification topic. Notifications are sent+-- only if the status is /active/.+--+-- Valid values: 'active' | 'inactive'+mccNotificationTopicStatus :: Lens' ModifyCacheCluster (Maybe Text)+mccNotificationTopicStatus = lens _mccNotificationTopicStatus (\ s a -> s{_mccNotificationTopicStatus = a});+ -- | Specifies whether the new nodes in this Memcached cache cluster are all -- created in a single Availability Zone or created across multiple -- Availability Zones.@@ -285,13 +292,6 @@ mccAZMode :: Lens' ModifyCacheCluster (Maybe AZMode) mccAZMode = lens _mccAZMode (\ s a -> s{_mccAZMode = a}); --- | The status of the Amazon SNS notification topic. Notifications are sent--- only if the status is /active/.------ Valid values: 'active' | 'inactive'-mccNotificationTopicStatus :: Lens' ModifyCacheCluster (Maybe Text)-mccNotificationTopicStatus = lens _mccNotificationTopicStatus (\ s a -> s{_mccNotificationTopicStatus = a});- -- | If 'true', this parameter causes the modifications in this request and -- any pending modifications to be applied, asynchronously and as soon as -- possible, regardless of the /PreferredMaintenanceWindow/ setting for the@@ -399,11 +399,11 @@                  _mccAutoMinorVersionUpgrade,                "CacheParameterGroupName" =:                  _mccCacheParameterGroupName,+               "SnapshotWindow" =: _mccSnapshotWindow,                "NewAvailabilityZones" =:                  toQuery                    (toQueryList "PreferredAvailabilityZone" <$>                       _mccNewAvailabilityZones),-               "SnapshotWindow" =: _mccSnapshotWindow,                "PreferredMaintenanceWindow" =:                  _mccPreferredMaintenanceWindow,                "CacheNodeIdsToRemove" =:@@ -412,9 +412,9 @@                       _mccCacheNodeIdsToRemove),                "SnapshotRetentionLimit" =:                  _mccSnapshotRetentionLimit,-               "AZMode" =: _mccAZMode,                "NotificationTopicStatus" =:                  _mccNotificationTopicStatus,+               "AZMode" =: _mccAZMode,                "ApplyImmediately" =: _mccApplyImmediately,                "NotificationTopicArn" =: _mccNotificationTopicARN,                "NumCacheNodes" =: _mccNumCacheNodes,@@ -426,8 +426,8 @@  -- | /See:/ 'modifyCacheClusterResponse' smart constructor. data ModifyCacheClusterResponse = ModifyCacheClusterResponse'-    { _mccrsCacheCluster :: !(Maybe CacheCluster)-    , _mccrsStatus       :: !Int+    { _mccrsCacheCluster   :: !(Maybe CacheCluster)+    , _mccrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ModifyCacheClusterResponse' with the minimum fields required to make a request.@@ -436,14 +436,14 @@ -- -- * 'mccrsCacheCluster' ----- * 'mccrsStatus'+-- * 'mccrsResponseStatus' modifyCacheClusterResponse-    :: Int -- ^ 'mccrsStatus'+    :: Int -- ^ 'mccrsResponseStatus'     -> ModifyCacheClusterResponse-modifyCacheClusterResponse pStatus_ =+modifyCacheClusterResponse pResponseStatus_ =     ModifyCacheClusterResponse'     { _mccrsCacheCluster = Nothing-    , _mccrsStatus = pStatus_+    , _mccrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -451,5 +451,5 @@ mccrsCacheCluster = lens _mccrsCacheCluster (\ s a -> s{_mccrsCacheCluster = a});  -- | The response status code.-mccrsStatus :: Lens' ModifyCacheClusterResponse Int-mccrsStatus = lens _mccrsStatus (\ s a -> s{_mccrsStatus = a});+mccrsResponseStatus :: Lens' ModifyCacheClusterResponse Int+mccrsResponseStatus = lens _mccrsResponseStatus (\ s a -> s{_mccrsResponseStatus = a});

@@ -37,7 +37,7 @@     , ModifyCacheSubnetGroupResponse     -- * Response Lenses     , mcsgrsCacheSubnetGroup-    , mcsgrsStatus+    , mcsgrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -124,7 +124,7 @@ -- | /See:/ 'modifyCacheSubnetGroupResponse' smart constructor. data ModifyCacheSubnetGroupResponse = ModifyCacheSubnetGroupResponse'     { _mcsgrsCacheSubnetGroup :: !(Maybe CacheSubnetGroup)-    , _mcsgrsStatus           :: !Int+    , _mcsgrsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ModifyCacheSubnetGroupResponse' with the minimum fields required to make a request.@@ -133,14 +133,14 @@ -- -- * 'mcsgrsCacheSubnetGroup' ----- * 'mcsgrsStatus'+-- * 'mcsgrsResponseStatus' modifyCacheSubnetGroupResponse-    :: Int -- ^ 'mcsgrsStatus'+    :: Int -- ^ 'mcsgrsResponseStatus'     -> ModifyCacheSubnetGroupResponse-modifyCacheSubnetGroupResponse pStatus_ =+modifyCacheSubnetGroupResponse pResponseStatus_ =     ModifyCacheSubnetGroupResponse'     { _mcsgrsCacheSubnetGroup = Nothing-    , _mcsgrsStatus = pStatus_+    , _mcsgrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -148,5 +148,5 @@ mcsgrsCacheSubnetGroup = lens _mcsgrsCacheSubnetGroup (\ s a -> s{_mcsgrsCacheSubnetGroup = a});  -- | The response status code.-mcsgrsStatus :: Lens' ModifyCacheSubnetGroupResponse Int-mcsgrsStatus = lens _mcsgrsStatus (\ s a -> s{_mcsgrsStatus = a});+mcsgrsResponseStatus :: Lens' ModifyCacheSubnetGroupResponse Int+mcsgrsResponseStatus = lens _mcsgrsResponseStatus (\ s a -> s{_mcsgrsResponseStatus = a});

@@ -33,8 +33,8 @@     , mrgSnapshottingClusterId     , mrgSecurityGroupIds     , mrgAutoMinorVersionUpgrade-    , mrgReplicationGroupDescription     , mrgCacheParameterGroupName+    , mrgReplicationGroupDescription     , mrgSnapshotWindow     , mrgPrimaryClusterId     , mrgPreferredMaintenanceWindow@@ -50,7 +50,7 @@     , ModifyReplicationGroupResponse     -- * Response Lenses     , mrgrsReplicationGroup-    , mrgrsStatus+    , mrgrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -68,8 +68,8 @@     , _mrgSnapshottingClusterId       :: !(Maybe Text)     , _mrgSecurityGroupIds            :: !(Maybe [Text])     , _mrgAutoMinorVersionUpgrade     :: !(Maybe Bool)-    , _mrgReplicationGroupDescription :: !(Maybe Text)     , _mrgCacheParameterGroupName     :: !(Maybe Text)+    , _mrgReplicationGroupDescription :: !(Maybe Text)     , _mrgSnapshotWindow              :: !(Maybe Text)     , _mrgPrimaryClusterId            :: !(Maybe Text)     , _mrgPreferredMaintenanceWindow  :: !(Maybe Text)@@ -95,10 +95,10 @@ -- -- * 'mrgAutoMinorVersionUpgrade' ----- * 'mrgReplicationGroupDescription'--- -- * 'mrgCacheParameterGroupName' --+-- * 'mrgReplicationGroupDescription'+-- -- * 'mrgSnapshotWindow' -- -- * 'mrgPrimaryClusterId'@@ -126,8 +126,8 @@     , _mrgSnapshottingClusterId = Nothing     , _mrgSecurityGroupIds = Nothing     , _mrgAutoMinorVersionUpgrade = Nothing-    , _mrgReplicationGroupDescription = Nothing     , _mrgCacheParameterGroupName = Nothing+    , _mrgReplicationGroupDescription = Nothing     , _mrgSnapshotWindow = Nothing     , _mrgPrimaryClusterId = Nothing     , _mrgPreferredMaintenanceWindow = Nothing@@ -173,11 +173,6 @@ mrgAutoMinorVersionUpgrade :: Lens' ModifyReplicationGroup (Maybe Bool) mrgAutoMinorVersionUpgrade = lens _mrgAutoMinorVersionUpgrade (\ s a -> s{_mrgAutoMinorVersionUpgrade = a}); --- | A description for the replication group. Maximum length is 255--- characters.-mrgReplicationGroupDescription :: Lens' ModifyReplicationGroup (Maybe Text)-mrgReplicationGroupDescription = lens _mrgReplicationGroupDescription (\ s a -> s{_mrgReplicationGroupDescription = a});- -- | The name of the cache parameter group to apply to all of the clusters in -- this replication group. This change is asynchronously applied as soon as -- possible for parameters when the /ApplyImmediately/ parameter is@@ -185,6 +180,11 @@ mrgCacheParameterGroupName :: Lens' ModifyReplicationGroup (Maybe Text) mrgCacheParameterGroupName = lens _mrgCacheParameterGroupName (\ s a -> s{_mrgCacheParameterGroupName = a}); +-- | A description for the replication group. Maximum length is 255+-- characters.+mrgReplicationGroupDescription :: Lens' ModifyReplicationGroup (Maybe Text)+mrgReplicationGroupDescription = lens _mrgReplicationGroupDescription (\ s a -> s{_mrgReplicationGroupDescription = a});+ -- | The daily time range (in UTC) during which ElastiCache will begin taking -- a daily snapshot of the node group specified by /SnapshottingClusterId/. --@@ -307,10 +307,10 @@                       _mrgSecurityGroupIds),                "AutoMinorVersionUpgrade" =:                  _mrgAutoMinorVersionUpgrade,-               "ReplicationGroupDescription" =:-                 _mrgReplicationGroupDescription,                "CacheParameterGroupName" =:                  _mrgCacheParameterGroupName,+               "ReplicationGroupDescription" =:+                 _mrgReplicationGroupDescription,                "SnapshotWindow" =: _mrgSnapshotWindow,                "PrimaryClusterId" =: _mrgPrimaryClusterId,                "PreferredMaintenanceWindow" =:@@ -330,7 +330,7 @@ -- | /See:/ 'modifyReplicationGroupResponse' smart constructor. data ModifyReplicationGroupResponse = ModifyReplicationGroupResponse'     { _mrgrsReplicationGroup :: !(Maybe ReplicationGroup)-    , _mrgrsStatus           :: !Int+    , _mrgrsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ModifyReplicationGroupResponse' with the minimum fields required to make a request.@@ -339,14 +339,14 @@ -- -- * 'mrgrsReplicationGroup' ----- * 'mrgrsStatus'+-- * 'mrgrsResponseStatus' modifyReplicationGroupResponse-    :: Int -- ^ 'mrgrsStatus'+    :: Int -- ^ 'mrgrsResponseStatus'     -> ModifyReplicationGroupResponse-modifyReplicationGroupResponse pStatus_ =+modifyReplicationGroupResponse pResponseStatus_ =     ModifyReplicationGroupResponse'     { _mrgrsReplicationGroup = Nothing-    , _mrgrsStatus = pStatus_+    , _mrgrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -354,5 +354,5 @@ mrgrsReplicationGroup = lens _mrgrsReplicationGroup (\ s a -> s{_mrgrsReplicationGroup = a});  -- | The response status code.-mrgrsStatus :: Lens' ModifyReplicationGroupResponse Int-mrgrsStatus = lens _mrgrsStatus (\ s a -> s{_mrgrsStatus = a});+mrgrsResponseStatus :: Lens' ModifyReplicationGroupResponse Int+mrgrsResponseStatus = lens _mrgrsResponseStatus (\ s a -> s{_mrgrsResponseStatus = a});

@@ -37,7 +37,7 @@     , PurchaseReservedCacheNodesOfferingResponse     -- * Response Lenses     , prcnorsReservedCacheNode-    , prcnorsStatus+    , prcnorsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -127,7 +127,7 @@ -- | /See:/ 'purchaseReservedCacheNodesOfferingResponse' smart constructor. data PurchaseReservedCacheNodesOfferingResponse = PurchaseReservedCacheNodesOfferingResponse'     { _prcnorsReservedCacheNode :: !(Maybe ReservedCacheNode)-    , _prcnorsStatus            :: !Int+    , _prcnorsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'PurchaseReservedCacheNodesOfferingResponse' with the minimum fields required to make a request.@@ -136,14 +136,14 @@ -- -- * 'prcnorsReservedCacheNode' ----- * 'prcnorsStatus'+-- * 'prcnorsResponseStatus' purchaseReservedCacheNodesOfferingResponse-    :: Int -- ^ 'prcnorsStatus'+    :: Int -- ^ 'prcnorsResponseStatus'     -> PurchaseReservedCacheNodesOfferingResponse-purchaseReservedCacheNodesOfferingResponse pStatus_ =+purchaseReservedCacheNodesOfferingResponse pResponseStatus_ =     PurchaseReservedCacheNodesOfferingResponse'     { _prcnorsReservedCacheNode = Nothing-    , _prcnorsStatus = pStatus_+    , _prcnorsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -151,5 +151,5 @@ prcnorsReservedCacheNode = lens _prcnorsReservedCacheNode (\ s a -> s{_prcnorsReservedCacheNode = a});  -- | The response status code.-prcnorsStatus :: Lens' PurchaseReservedCacheNodesOfferingResponse Int-prcnorsStatus = lens _prcnorsStatus (\ s a -> s{_prcnorsStatus = a});+prcnorsResponseStatus :: Lens' PurchaseReservedCacheNodesOfferingResponse Int+prcnorsResponseStatus = lens _prcnorsResponseStatus (\ s a -> s{_prcnorsResponseStatus = a});

@@ -45,7 +45,7 @@     , RebootCacheClusterResponse     -- * Response Lenses     , rccrsCacheCluster-    , rccrsStatus+    , rccrsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -116,8 +116,8 @@  -- | /See:/ 'rebootCacheClusterResponse' smart constructor. data RebootCacheClusterResponse = RebootCacheClusterResponse'-    { _rccrsCacheCluster :: !(Maybe CacheCluster)-    , _rccrsStatus       :: !Int+    { _rccrsCacheCluster   :: !(Maybe CacheCluster)+    , _rccrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'RebootCacheClusterResponse' with the minimum fields required to make a request.@@ -126,14 +126,14 @@ -- -- * 'rccrsCacheCluster' ----- * 'rccrsStatus'+-- * 'rccrsResponseStatus' rebootCacheClusterResponse-    :: Int -- ^ 'rccrsStatus'+    :: Int -- ^ 'rccrsResponseStatus'     -> RebootCacheClusterResponse-rebootCacheClusterResponse pStatus_ =+rebootCacheClusterResponse pResponseStatus_ =     RebootCacheClusterResponse'     { _rccrsCacheCluster = Nothing-    , _rccrsStatus = pStatus_+    , _rccrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -141,5 +141,5 @@ rccrsCacheCluster = lens _rccrsCacheCluster (\ s a -> s{_rccrsCacheCluster = a});  -- | The response status code.-rccrsStatus :: Lens' RebootCacheClusterResponse Int-rccrsStatus = lens _rccrsStatus (\ s a -> s{_rccrsStatus = a});+rccrsResponseStatus :: Lens' RebootCacheClusterResponse Int+rccrsResponseStatus = lens _rccrsResponseStatus (\ s a -> s{_rccrsResponseStatus = a});

@@ -38,7 +38,7 @@     , RevokeCacheSecurityGroupIngressResponse     -- * Response Lenses     , rcsgirsCacheSecurityGroup-    , rcsgirsStatus+    , rcsgirsResponseStatus     ) where  import           Network.AWS.ElastiCache.Types@@ -126,7 +126,7 @@ -- | /See:/ 'revokeCacheSecurityGroupIngressResponse' smart constructor. data RevokeCacheSecurityGroupIngressResponse = RevokeCacheSecurityGroupIngressResponse'     { _rcsgirsCacheSecurityGroup :: !(Maybe CacheSecurityGroup)-    , _rcsgirsStatus             :: !Int+    , _rcsgirsResponseStatus     :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'RevokeCacheSecurityGroupIngressResponse' with the minimum fields required to make a request.@@ -135,14 +135,14 @@ -- -- * 'rcsgirsCacheSecurityGroup' ----- * 'rcsgirsStatus'+-- * 'rcsgirsResponseStatus' revokeCacheSecurityGroupIngressResponse-    :: Int -- ^ 'rcsgirsStatus'+    :: Int -- ^ 'rcsgirsResponseStatus'     -> RevokeCacheSecurityGroupIngressResponse-revokeCacheSecurityGroupIngressResponse pStatus_ =+revokeCacheSecurityGroupIngressResponse pResponseStatus_ =     RevokeCacheSecurityGroupIngressResponse'     { _rcsgirsCacheSecurityGroup = Nothing-    , _rcsgirsStatus = pStatus_+    , _rcsgirsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -150,5 +150,5 @@ rcsgirsCacheSecurityGroup = lens _rcsgirsCacheSecurityGroup (\ s a -> s{_rcsgirsCacheSecurityGroup = a});  -- | The response status code.-rcsgirsStatus :: Lens' RevokeCacheSecurityGroupIngressResponse Int-rcsgirsStatus = lens _rcsgirsStatus (\ s a -> s{_rcsgirsStatus = a});+rcsgirsResponseStatus :: Lens' RevokeCacheSecurityGroupIngressResponse Int+rcsgirsResponseStatus = lens _rcsgirsResponseStatus (\ s a -> s{_rcsgirsResponseStatus = a});

@@ -16,48 +16,48 @@       elastiCache      -- * Errors-    , _CacheSubnetGroupAlreadyExistsFault     , _CacheSubnetGroupInUse-    , _CacheSecurityGroupNotFoundFault     , _ReservedCacheNodeAlreadyExistsFault+    , _CacheSecurityGroupNotFoundFault+    , _CacheSubnetGroupAlreadyExistsFault+    , _CacheSubnetGroupQuotaExceededFault     , _AuthorizationAlreadyExistsFault     , _ReservedCacheNodeQuotaExceededFault-    , _CacheSubnetGroupQuotaExceededFault-    , _ReplicationGroupNotFoundFault     , _ReservedCacheNodesOfferingNotFoundFault-    , _TagQuotaPerResourceExceeded+    , _ReplicationGroupNotFoundFault     , _InvalidSubnet+    , _TagQuotaPerResourceExceeded     , _SnapshotNotFoundFault     , _InsufficientCacheClusterCapacityFault     , _InvalidSnapshotStateFault     , _SnapshotAlreadyExistsFault     , _TagNotFoundFault     , _SnapshotQuotaExceededFault-    , _CacheParameterGroupAlreadyExistsFault     , _NodeQuotaForClusterExceededFault-    , _SnapshotFeatureNotSupportedFault-    , _CacheSubnetGroupNotFoundFault+    , _CacheParameterGroupAlreadyExistsFault     , _ReservedCacheNodeNotFoundFault+    , _CacheSubnetGroupNotFoundFault+    , _SnapshotFeatureNotSupportedFault     , _InvalidParameterValueException-    , _InvalidVPCNetworkStateFault-    , _CacheClusterNotFoundFault     , _InvalidReplicationGroupStateFault     , _ReplicationGroupAlreadyExistsFault+    , _InvalidVPCNetworkStateFault     , _SubnetInUse-    , _CacheClusterAlreadyExistsFault+    , _CacheClusterNotFoundFault     , _ClusterQuotaForCustomerExceededFault     , _AuthorizationNotFoundFault-    , _CacheSecurityGroupQuotaExceededFault     , _InvalidCacheClusterStateFault+    , _CacheSecurityGroupQuotaExceededFault+    , _CacheClusterAlreadyExistsFault     , _CacheParameterGroupQuotaExceededFault     , _NodeQuotaForCustomerExceededFault     , _CacheSubnetQuotaExceededFault     , _CacheParameterGroupNotFoundFault-    , _InvalidParameterCombinationException     , _InvalidARNFault     , _InvalidCacheParameterGroupStateFault-    , _CacheSecurityGroupAlreadyExistsFault+    , _InvalidParameterCombinationException     , _InvalidCacheSecurityGroupStateFault+    , _CacheSecurityGroupAlreadyExistsFault      -- * AZMode     , AZMode (..)@@ -79,8 +79,8 @@     -- * CacheCluster     , CacheCluster     , cacheCluster-    , ccCacheNodeType     , ccEngineVersion+    , ccCacheNodeType     , ccCacheNodes     , ccCacheClusterCreateTime     , ccAutoMinorVersionUpgrade@@ -94,9 +94,9 @@     , ccClientDownloadLandingPage     , ccPreferredMaintenanceWindow     , ccCacheSubnetGroupName-    , ccCacheClusterStatus     , ccPreferredAvailabilityZone     , ccCacheParameterGroup+    , ccCacheClusterStatus     , ccSnapshotRetentionLimit     , ccReplicationGroupId     , ccPendingModifiedValues@@ -105,11 +105,11 @@     -- * CacheEngineVersion     , CacheEngineVersion     , cacheEngineVersion-    , cevCacheEngineDescription-    , cevCacheParameterGroupFamily     , cevEngineVersion-    , cevCacheEngineVersionDescription+    , cevCacheParameterGroupFamily+    , cevCacheEngineDescription     , cevEngine+    , cevCacheEngineVersionDescription      -- * CacheNode     , CacheNode@@ -129,8 +129,8 @@     , cntspMinimumEngineVersion     , cntspSource     , cntspIsModifiable-    , cntspAllowedValues     , cntspDataType+    , cntspAllowedValues     , cntspParameterName     , cntspDescription @@ -199,8 +199,8 @@     , engineDefaults     , edCacheParameterGroupFamily     , edCacheNodeTypeSpecificParameters-    , edParameters     , edMarker+    , edParameters      -- * Event     , Event@@ -248,8 +248,8 @@     , pMinimumEngineVersion     , pSource     , pIsModifiable-    , pAllowedValues     , pDataType+    , pAllowedValues     , pParameterName     , pDescription @@ -275,13 +275,13 @@     -- * ReplicationGroup     , ReplicationGroup     , replicationGroup-    , rgNodeGroups     , rgStatus+    , rgNodeGroups     , rgSnapshottingClusterId     , rgMemberClusters+    , rgDescription     , rgReplicationGroupId     , rgPendingModifiedValues-    , rgDescription     , rgAutomaticFailover      -- * ReplicationGroupPendingModifiedValues@@ -295,13 +295,13 @@     , reservedCacheNode     , rcnCacheNodeType     , rcnState-    , rcnProductDescription     , rcnStartTime+    , rcnProductDescription     , rcnCacheNodeCount     , rcnReservedCacheNodeId+    , rcnRecurringCharges     , rcnOfferingType     , rcnUsagePrice-    , rcnRecurringCharges     , rcnFixedPrice     , rcnDuration     , rcnReservedCacheNodesOfferingId@@ -311,9 +311,9 @@     , reservedCacheNodesOffering     , rcnoCacheNodeType     , rcnoProductDescription+    , rcnoRecurringCharges     , rcnoOfferingType     , rcnoUsagePrice-    , rcnoRecurringCharges     , rcnoFixedPrice     , rcnoDuration     , rcnoReservedCacheNodesOfferingId@@ -327,26 +327,26 @@     -- * Snapshot     , Snapshot     , snapshot-    , sCacheNodeType     , sEngineVersion+    , sCacheNodeType     , sCacheClusterCreateTime     , sAutoMinorVersionUpgrade     , sCacheParameterGroupName+    , sVPCId     , sSnapshotStatus     , sSnapshotWindow-    , sVPCId     , sCacheClusterId     , sEngine     , sPreferredMaintenanceWindow     , sTopicARN-    , sCacheSubnetGroupName     , sNodeSnapshots+    , sCacheSubnetGroupName     , sPreferredAvailabilityZone     , sSnapshotRetentionLimit     , sSnapshotName-    , sSnapshotSource     , sNumCacheNodes     , sPort+    , sSnapshotSource      -- * Subnet     , Subnet@@ -402,28 +402,34 @@       | 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.-_CacheSubnetGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_CacheSubnetGroupAlreadyExistsFault =-    _ServiceError . hasStatus 400 . hasCode "CacheSubnetGroupAlreadyExists"- -- | The requested cache subnet group is currently in use. _CacheSubnetGroupInUse :: AsError a => Getting (First ServiceError) a ServiceError _CacheSubnetGroupInUse =     _ServiceError . hasStatus 400 . hasCode "CacheSubnetGroupInUse" +-- | You already have a reservation with the given identifier.+_ReservedCacheNodeAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError+_ReservedCacheNodeAlreadyExistsFault =+    _ServiceError . hasStatus 404 . hasCode "ReservedCacheNodeAlreadyExists"+ -- | The requested cache security group name does not refer to an existing -- cache security group. _CacheSecurityGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _CacheSecurityGroupNotFoundFault =     _ServiceError . hasStatus 404 . hasCode "CacheSecurityGroupNotFound" --- | You already have a reservation with the given identifier.-_ReservedCacheNodeAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_ReservedCacheNodeAlreadyExistsFault =-    _ServiceError . hasStatus 404 . hasCode "ReservedCacheNodeAlreadyExists"+-- | The requested cache subnet group name is already in use by an existing+-- cache subnet group.+_CacheSubnetGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError+_CacheSubnetGroupAlreadyExistsFault =+    _ServiceError . hasStatus 400 . hasCode "CacheSubnetGroupAlreadyExists" +-- | The request cannot be processed because it would exceed the allowed+-- number of cache subnet groups.+_CacheSubnetGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError+_CacheSubnetGroupQuotaExceededFault =+    _ServiceError . hasStatus 400 . hasCode "CacheSubnetGroupQuotaExceeded"+ -- | The specified Amazon EC2 security group is already authorized for the -- specified cache security group. _AuthorizationAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError@@ -436,22 +442,20 @@ _ReservedCacheNodeQuotaExceededFault =     _ServiceError . hasStatus 400 . hasCode "ReservedCacheNodeQuotaExceeded" --- | The request cannot be processed because it would exceed the allowed--- number of cache subnet groups.-_CacheSubnetGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_CacheSubnetGroupQuotaExceededFault =-    _ServiceError . hasStatus 400 . hasCode "CacheSubnetGroupQuotaExceeded"+-- | The requested cache node offering does not exist.+_ReservedCacheNodesOfferingNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError+_ReservedCacheNodesOfferingNotFoundFault =+    _ServiceError .+    hasStatus 404 . hasCode "ReservedCacheNodesOfferingNotFound"  -- | The specified replication group does not exist. _ReplicationGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _ReplicationGroupNotFoundFault =     _ServiceError . hasStatus 404 . hasCode "ReplicationGroupNotFoundFault" --- | The requested cache node offering does not exist.-_ReservedCacheNodesOfferingNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_ReservedCacheNodesOfferingNotFoundFault =-    _ServiceError .-    hasStatus 404 . hasCode "ReservedCacheNodesOfferingNotFound"+-- | An invalid subnet identifier was specified.+_InvalidSubnet :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidSubnet = _ServiceError . hasStatus 400 . hasCode "InvalidSubnet"  -- | The request cannot be processed because it would cause the resource to -- have more than the allowed number of tags. The maximum number of tags@@ -460,10 +464,6 @@ _TagQuotaPerResourceExceeded =     _ServiceError . hasStatus 400 . hasCode "TagQuotaPerResourceExceeded" --- | An invalid subnet identifier was specified.-_InvalidSubnet :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidSubnet = _ServiceError . hasStatus 400 . hasCode "InvalidSubnet"- -- | The requested snapshot name does not refer to an existing snapshot. _SnapshotNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _SnapshotNotFoundFault =@@ -496,17 +496,28 @@ _SnapshotQuotaExceededFault =     _ServiceError . hasStatus 400 . hasCode "SnapshotQuotaExceededFault" --- | A cache parameter group with the requested name already exists.-_CacheParameterGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_CacheParameterGroupAlreadyExistsFault =-    _ServiceError . hasStatus 400 . hasCode "CacheParameterGroupAlreadyExists"- -- | The request cannot be processed because it would exceed the allowed -- number of cache nodes in a single cache cluster. _NodeQuotaForClusterExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _NodeQuotaForClusterExceededFault =     _ServiceError . hasStatus 400 . hasCode "NodeQuotaForClusterExceeded" +-- | A cache parameter group with the requested name already exists.+_CacheParameterGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError+_CacheParameterGroupAlreadyExistsFault =+    _ServiceError . hasStatus 400 . hasCode "CacheParameterGroupAlreadyExists"++-- | The requested reserved cache node was not found.+_ReservedCacheNodeNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError+_ReservedCacheNodeNotFoundFault =+    _ServiceError . hasStatus 404 . hasCode "ReservedCacheNodeNotFound"++-- | The requested cache subnet group name does not refer to an existing+-- cache subnet group.+_CacheSubnetGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError+_CacheSubnetGroupNotFoundFault =+    _ServiceError . hasStatus 400 . hasCode "CacheSubnetGroupNotFoundFault"+ -- | You attempted one of the following actions: -- -- -   Creating a snapshot of a Redis cache cluster running on a /t1.micro/@@ -520,33 +531,11 @@ _SnapshotFeatureNotSupportedFault =     _ServiceError . hasStatus 400 . hasCode "SnapshotFeatureNotSupportedFault" --- | The requested cache subnet group name does not refer to an existing--- cache subnet group.-_CacheSubnetGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_CacheSubnetGroupNotFoundFault =-    _ServiceError . hasStatus 400 . hasCode "CacheSubnetGroupNotFoundFault"---- | The requested reserved cache node was not found.-_ReservedCacheNodeNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_ReservedCacheNodeNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "ReservedCacheNodeNotFound"- -- | The value for a parameter is invalid. _InvalidParameterValueException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidParameterValueException =     _ServiceError . hasStatus 400 . hasCode "InvalidParameterValue" --- | The VPC network is in an invalid state.-_InvalidVPCNetworkStateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidVPCNetworkStateFault =-    _ServiceError . hasStatus 400 . hasCode "InvalidVPCNetworkStateFault"---- | The requested cache cluster ID does not refer to an existing cache--- cluster.-_CacheClusterNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_CacheClusterNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "CacheClusterNotFound"- -- | The requested replication group is not in the /available/ state. _InvalidReplicationGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidReplicationGroupStateFault =@@ -557,14 +546,20 @@ _ReplicationGroupAlreadyExistsFault =     _ServiceError . hasStatus 400 . hasCode "ReplicationGroupAlreadyExists" +-- | The VPC network is in an invalid state.+_InvalidVPCNetworkStateFault :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidVPCNetworkStateFault =+    _ServiceError . hasStatus 400 . hasCode "InvalidVPCNetworkStateFault"+ -- | The requested subnet is being used by another cache subnet group. _SubnetInUse :: AsError a => Getting (First ServiceError) a ServiceError _SubnetInUse = _ServiceError . hasStatus 400 . hasCode "SubnetInUse" --- | You already have a cache cluster with the given identifier.-_CacheClusterAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_CacheClusterAlreadyExistsFault =-    _ServiceError . hasStatus 400 . hasCode "CacheClusterAlreadyExists"+-- | The requested cache cluster ID does not refer to an existing cache+-- cluster.+_CacheClusterNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError+_CacheClusterNotFoundFault =+    _ServiceError . hasStatus 404 . hasCode "CacheClusterNotFound"  -- | The request cannot be processed because it would exceed the allowed -- number of cache clusters per customer.@@ -578,16 +573,21 @@ _AuthorizationNotFoundFault =     _ServiceError . hasStatus 404 . hasCode "AuthorizationNotFound" +-- | The requested cache cluster is not in the /available/ state.+_InvalidCacheClusterStateFault :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidCacheClusterStateFault =+    _ServiceError . hasStatus 400 . hasCode "InvalidCacheClusterState"+ -- | The request cannot be processed because it would exceed the allowed -- number of cache security groups. _CacheSecurityGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _CacheSecurityGroupQuotaExceededFault =     _ServiceError . hasStatus 400 . hasCode "QuotaExceeded.CacheSecurityGroup" --- | The requested cache cluster is not in the /available/ state.-_InvalidCacheClusterStateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidCacheClusterStateFault =-    _ServiceError . hasStatus 400 . hasCode "InvalidCacheClusterState"+-- | You already have a cache cluster with the given identifier.+_CacheClusterAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError+_CacheClusterAlreadyExistsFault =+    _ServiceError . hasStatus 400 . hasCode "CacheClusterAlreadyExists"  -- | The request cannot be processed because it would exceed the maximum -- number of cache security groups.@@ -613,11 +613,6 @@ _CacheParameterGroupNotFoundFault =     _ServiceError . hasStatus 404 . hasCode "CacheParameterGroupNotFound" --- | Two or more incompatible parameters were specified.-_InvalidParameterCombinationException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidParameterCombinationException =-    _ServiceError . hasStatus 400 . hasCode "InvalidParameterCombination"- -- | The requested Amazon Resource Name (ARN) does not refer to an existing -- resource. _InvalidARNFault :: AsError a => Getting (First ServiceError) a ServiceError@@ -629,12 +624,17 @@ _InvalidCacheParameterGroupStateFault =     _ServiceError . hasStatus 400 . hasCode "InvalidCacheParameterGroupState" --- | A cache security group with the specified name already exists.-_CacheSecurityGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError-_CacheSecurityGroupAlreadyExistsFault =-    _ServiceError . hasStatus 400 . hasCode "CacheSecurityGroupAlreadyExists"+-- | Two or more incompatible parameters were specified.+_InvalidParameterCombinationException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidParameterCombinationException =+    _ServiceError . hasStatus 400 . hasCode "InvalidParameterCombination"  -- | The current state of the cache security group does not allow deletion. _InvalidCacheSecurityGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidCacheSecurityGroupStateFault =     _ServiceError . hasStatus 400 . hasCode "InvalidCacheSecurityGroupState"++-- | A cache security group with the specified name already exists.+_CacheSecurityGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError+_CacheSecurityGroupAlreadyExistsFault =+    _ServiceError . hasStatus 400 . hasCode "CacheSecurityGroupAlreadyExists"

@@ -50,8 +50,8 @@ -- -- /See:/ 'cacheCluster' smart constructor. data CacheCluster = CacheCluster'-    { _ccCacheNodeType              :: !(Maybe Text)-    , _ccEngineVersion              :: !(Maybe Text)+    { _ccEngineVersion              :: !(Maybe Text)+    , _ccCacheNodeType              :: !(Maybe Text)     , _ccCacheNodes                 :: !(Maybe [CacheNode])     , _ccCacheClusterCreateTime     :: !(Maybe ISO8601)     , _ccAutoMinorVersionUpgrade    :: !(Maybe Bool)@@ -65,9 +65,9 @@     , _ccClientDownloadLandingPage  :: !(Maybe Text)     , _ccPreferredMaintenanceWindow :: !(Maybe Text)     , _ccCacheSubnetGroupName       :: !(Maybe Text)-    , _ccCacheClusterStatus         :: !(Maybe Text)     , _ccPreferredAvailabilityZone  :: !(Maybe Text)     , _ccCacheParameterGroup        :: !(Maybe CacheParameterGroupStatus)+    , _ccCacheClusterStatus         :: !(Maybe Text)     , _ccSnapshotRetentionLimit     :: !(Maybe Int)     , _ccReplicationGroupId         :: !(Maybe Text)     , _ccPendingModifiedValues      :: !(Maybe PendingModifiedValues)@@ -78,10 +78,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ccCacheNodeType'--- -- * 'ccEngineVersion' --+-- * 'ccCacheNodeType'+-- -- * 'ccCacheNodes' -- -- * 'ccCacheClusterCreateTime'@@ -108,12 +108,12 @@ -- -- * 'ccCacheSubnetGroupName' ----- * 'ccCacheClusterStatus'--- -- * 'ccPreferredAvailabilityZone' -- -- * 'ccCacheParameterGroup' --+-- * 'ccCacheClusterStatus'+-- -- * 'ccSnapshotRetentionLimit' -- -- * 'ccReplicationGroupId'@@ -125,8 +125,8 @@     :: CacheCluster cacheCluster =     CacheCluster'-    { _ccCacheNodeType = Nothing-    , _ccEngineVersion = Nothing+    { _ccEngineVersion = Nothing+    , _ccCacheNodeType = Nothing     , _ccCacheNodes = Nothing     , _ccCacheClusterCreateTime = Nothing     , _ccAutoMinorVersionUpgrade = Nothing@@ -140,15 +140,20 @@     , _ccClientDownloadLandingPage = Nothing     , _ccPreferredMaintenanceWindow = Nothing     , _ccCacheSubnetGroupName = Nothing-    , _ccCacheClusterStatus = Nothing     , _ccPreferredAvailabilityZone = Nothing     , _ccCacheParameterGroup = Nothing+    , _ccCacheClusterStatus = Nothing     , _ccSnapshotRetentionLimit = Nothing     , _ccReplicationGroupId = Nothing     , _ccPendingModifiedValues = Nothing     , _ccNumCacheNodes = Nothing     } +-- | The version of the cache engine version that is used in this cache+-- cluster.+ccEngineVersion :: Lens' CacheCluster (Maybe Text)+ccEngineVersion = lens _ccEngineVersion (\ s a -> s{_ccEngineVersion = a});+ -- | The name of the compute and memory capacity node type for the cache -- cluster. --@@ -184,11 +189,6 @@ ccCacheNodeType :: Lens' CacheCluster (Maybe Text) ccCacheNodeType = lens _ccCacheNodeType (\ s a -> s{_ccCacheNodeType = a}); --- | The version of the cache engine version that is used in this cache--- cluster.-ccEngineVersion :: Lens' CacheCluster (Maybe Text)-ccEngineVersion = lens _ccEngineVersion (\ s a -> s{_ccEngineVersion = a});- -- | A list of cache nodes that are members of the cache cluster. ccCacheNodes :: Lens' CacheCluster [CacheNode] ccCacheNodes = lens _ccCacheNodes (\ s a -> s{_ccCacheNodes = a}) . _Default . _Coerce;@@ -261,13 +261,6 @@ ccCacheSubnetGroupName :: Lens' CacheCluster (Maybe Text) ccCacheSubnetGroupName = lens _ccCacheSubnetGroupName (\ s a -> s{_ccCacheSubnetGroupName = a}); --- | The current state of this cache cluster, one of the following values:--- /available/, /creating/, /deleted/, /deleting/, /incompatible-network/,--- /modifying/, /rebooting cache cluster nodes/, /restore-failed/, or--- /snapshotting/.-ccCacheClusterStatus :: Lens' CacheCluster (Maybe Text)-ccCacheClusterStatus = lens _ccCacheClusterStatus (\ s a -> s{_ccCacheClusterStatus = a});- -- | The name of the Availability Zone in which the cache cluster is located -- or \"Multiple\" if the cache nodes are located in different Availability -- Zones.@@ -278,6 +271,13 @@ ccCacheParameterGroup :: Lens' CacheCluster (Maybe CacheParameterGroupStatus) ccCacheParameterGroup = lens _ccCacheParameterGroup (\ s a -> s{_ccCacheParameterGroup = a}); +-- | The current state of this cache cluster, one of the following values:+-- /available/, /creating/, /deleted/, /deleting/, /incompatible-network/,+-- /modifying/, /rebooting cache cluster nodes/, /restore-failed/, or+-- /snapshotting/.+ccCacheClusterStatus :: Lens' CacheCluster (Maybe Text)+ccCacheClusterStatus = lens _ccCacheClusterStatus (\ s a -> s{_ccCacheClusterStatus = a});+ -- | The number of days for which ElastiCache will retain automatic cache -- cluster snapshots before deleting them. For example, if you set -- /SnapshotRetentionLimit/ to 5, then a snapshot that was taken today will@@ -309,7 +309,7 @@ instance FromXML CacheCluster where         parseXML x           = CacheCluster' <$>-              (x .@? "CacheNodeType") <*> (x .@? "EngineVersion")+              (x .@? "EngineVersion") <*> (x .@? "CacheNodeType")                 <*>                 (x .@? "CacheNodes" .!@ mempty >>=                    may (parseXMLList "CacheNode"))@@ -329,9 +329,9 @@                 <*> (x .@? "ClientDownloadLandingPage")                 <*> (x .@? "PreferredMaintenanceWindow")                 <*> (x .@? "CacheSubnetGroupName")-                <*> (x .@? "CacheClusterStatus")                 <*> (x .@? "PreferredAvailabilityZone")                 <*> (x .@? "CacheParameterGroup")+                <*> (x .@? "CacheClusterStatus")                 <*> (x .@? "SnapshotRetentionLimit")                 <*> (x .@? "ReplicationGroupId")                 <*> (x .@? "PendingModifiedValues")@@ -341,66 +341,66 @@ -- -- /See:/ 'cacheEngineVersion' smart constructor. data CacheEngineVersion = CacheEngineVersion'-    { _cevCacheEngineDescription        :: !(Maybe Text)+    { _cevEngineVersion                 :: !(Maybe Text)     , _cevCacheParameterGroupFamily     :: !(Maybe Text)-    , _cevEngineVersion                 :: !(Maybe Text)-    , _cevCacheEngineVersionDescription :: !(Maybe Text)+    , _cevCacheEngineDescription        :: !(Maybe Text)     , _cevEngine                        :: !(Maybe Text)+    , _cevCacheEngineVersionDescription :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CacheEngineVersion' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cevCacheEngineDescription'+-- * 'cevEngineVersion' -- -- * 'cevCacheParameterGroupFamily' ----- * 'cevEngineVersion'------ * 'cevCacheEngineVersionDescription'+-- * 'cevCacheEngineDescription' -- -- * 'cevEngine'+--+-- * 'cevCacheEngineVersionDescription' cacheEngineVersion     :: CacheEngineVersion cacheEngineVersion =     CacheEngineVersion'-    { _cevCacheEngineDescription = Nothing+    { _cevEngineVersion = Nothing     , _cevCacheParameterGroupFamily = Nothing-    , _cevEngineVersion = Nothing-    , _cevCacheEngineVersionDescription = Nothing+    , _cevCacheEngineDescription = Nothing     , _cevEngine = Nothing+    , _cevCacheEngineVersionDescription = Nothing     } --- | The description of the cache engine.-cevCacheEngineDescription :: Lens' CacheEngineVersion (Maybe Text)-cevCacheEngineDescription = lens _cevCacheEngineDescription (\ s a -> s{_cevCacheEngineDescription = a});+-- | The version number of the cache engine.+cevEngineVersion :: Lens' CacheEngineVersion (Maybe Text)+cevEngineVersion = lens _cevEngineVersion (\ s a -> s{_cevEngineVersion = a});  -- | The name of the cache parameter group family associated with this cache -- engine. cevCacheParameterGroupFamily :: Lens' CacheEngineVersion (Maybe Text) cevCacheParameterGroupFamily = lens _cevCacheParameterGroupFamily (\ s a -> s{_cevCacheParameterGroupFamily = a}); --- | The version number of the cache engine.-cevEngineVersion :: Lens' CacheEngineVersion (Maybe Text)-cevEngineVersion = lens _cevEngineVersion (\ s a -> s{_cevEngineVersion = a});---- | The description of the cache engine version.-cevCacheEngineVersionDescription :: Lens' CacheEngineVersion (Maybe Text)-cevCacheEngineVersionDescription = lens _cevCacheEngineVersionDescription (\ s a -> s{_cevCacheEngineVersionDescription = a});+-- | The description of the cache engine.+cevCacheEngineDescription :: Lens' CacheEngineVersion (Maybe Text)+cevCacheEngineDescription = lens _cevCacheEngineDescription (\ s a -> s{_cevCacheEngineDescription = a});  -- | The name of the cache engine. cevEngine :: Lens' CacheEngineVersion (Maybe Text) cevEngine = lens _cevEngine (\ s a -> s{_cevEngine = a}); +-- | The description of the cache engine version.+cevCacheEngineVersionDescription :: Lens' CacheEngineVersion (Maybe Text)+cevCacheEngineVersionDescription = lens _cevCacheEngineVersionDescription (\ s a -> s{_cevCacheEngineVersionDescription = a});+ instance FromXML CacheEngineVersion where         parseXML x           = CacheEngineVersion' <$>-              (x .@? "CacheEngineDescription") <*>+              (x .@? "EngineVersion") <*>                 (x .@? "CacheParameterGroupFamily")-                <*> (x .@? "EngineVersion")-                <*> (x .@? "CacheEngineVersionDescription")+                <*> (x .@? "CacheEngineDescription")                 <*> (x .@? "Engine")+                <*> (x .@? "CacheEngineVersionDescription")  -- | Represents an individual cache node within a cache cluster. Each cache -- node runs its own instance of the cluster\'s protocol-compliant caching@@ -531,8 +531,8 @@     , _cntspMinimumEngineVersion        :: !(Maybe Text)     , _cntspSource                      :: !(Maybe Text)     , _cntspIsModifiable                :: !(Maybe Bool)-    , _cntspAllowedValues               :: !(Maybe Text)     , _cntspDataType                    :: !(Maybe Text)+    , _cntspAllowedValues               :: !(Maybe Text)     , _cntspParameterName               :: !(Maybe Text)     , _cntspDescription                 :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -549,10 +549,10 @@ -- -- * 'cntspIsModifiable' ----- * 'cntspAllowedValues'--- -- * 'cntspDataType' --+-- * 'cntspAllowedValues'+-- -- * 'cntspParameterName' -- -- * 'cntspDescription'@@ -564,8 +564,8 @@     , _cntspMinimumEngineVersion = Nothing     , _cntspSource = Nothing     , _cntspIsModifiable = Nothing-    , _cntspAllowedValues = Nothing     , _cntspDataType = Nothing+    , _cntspAllowedValues = Nothing     , _cntspParameterName = Nothing     , _cntspDescription = Nothing     }@@ -589,14 +589,14 @@ cntspIsModifiable :: Lens' CacheNodeTypeSpecificParameter (Maybe Bool) cntspIsModifiable = lens _cntspIsModifiable (\ s a -> s{_cntspIsModifiable = a}); --- | The valid range of values for the parameter.-cntspAllowedValues :: Lens' CacheNodeTypeSpecificParameter (Maybe Text)-cntspAllowedValues = lens _cntspAllowedValues (\ s a -> s{_cntspAllowedValues = a});- -- | The valid data type for the parameter. cntspDataType :: Lens' CacheNodeTypeSpecificParameter (Maybe Text) cntspDataType = lens _cntspDataType (\ s a -> s{_cntspDataType = a}); +-- | The valid range of values for the parameter.+cntspAllowedValues :: Lens' CacheNodeTypeSpecificParameter (Maybe Text)+cntspAllowedValues = lens _cntspAllowedValues (\ s a -> s{_cntspAllowedValues = a});+ -- | The name of the parameter. cntspParameterName :: Lens' CacheNodeTypeSpecificParameter (Maybe Text) cntspParameterName = lens _cntspParameterName (\ s a -> s{_cntspParameterName = a});@@ -613,8 +613,8 @@                 <*> (x .@? "MinimumEngineVersion")                 <*> (x .@? "Source")                 <*> (x .@? "IsModifiable")-                <*> (x .@? "AllowedValues")                 <*> (x .@? "DataType")+                <*> (x .@? "AllowedValues")                 <*> (x .@? "ParameterName")                 <*> (x .@? "Description") @@ -1031,8 +1031,8 @@ data EngineDefaults = EngineDefaults'     { _edCacheParameterGroupFamily       :: !(Maybe Text)     , _edCacheNodeTypeSpecificParameters :: !(Maybe [CacheNodeTypeSpecificParameter])-    , _edParameters                      :: !(Maybe [Parameter])     , _edMarker                          :: !(Maybe Text)+    , _edParameters                      :: !(Maybe [Parameter])     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'EngineDefaults' with the minimum fields required to make a request.@@ -1043,17 +1043,17 @@ -- -- * 'edCacheNodeTypeSpecificParameters' ----- * 'edParameters'--- -- * 'edMarker'+--+-- * 'edParameters' engineDefaults     :: EngineDefaults engineDefaults =     EngineDefaults'     { _edCacheParameterGroupFamily = Nothing     , _edCacheNodeTypeSpecificParameters = Nothing-    , _edParameters = Nothing     , _edMarker = Nothing+    , _edParameters = Nothing     }  -- | Specifies the name of the cache parameter group family to which the@@ -1066,14 +1066,14 @@ edCacheNodeTypeSpecificParameters :: Lens' EngineDefaults [CacheNodeTypeSpecificParameter] edCacheNodeTypeSpecificParameters = lens _edCacheNodeTypeSpecificParameters (\ s a -> s{_edCacheNodeTypeSpecificParameters = a}) . _Default . _Coerce; --- | Contains a list of engine default parameters.-edParameters :: Lens' EngineDefaults [Parameter]-edParameters = lens _edParameters (\ s a -> s{_edParameters = a}) . _Default . _Coerce;- -- | Provides an identifier to allow retrieval of paginated results. edMarker :: Lens' EngineDefaults (Maybe Text) edMarker = lens _edMarker (\ s a -> s{_edMarker = a}); +-- | Contains a list of engine default parameters.+edParameters :: Lens' EngineDefaults [Parameter]+edParameters = lens _edParameters (\ s a -> s{_edParameters = a}) . _Default . _Coerce;+ instance FromXML EngineDefaults where         parseXML x           = EngineDefaults' <$>@@ -1081,10 +1081,10 @@                 (x .@? "CacheNodeTypeSpecificParameters" .!@ mempty                    >>=                    may (parseXMLList "CacheNodeTypeSpecificParameter"))+                <*> (x .@? "Marker")                 <*>                 (x .@? "Parameters" .!@ mempty >>=                    may (parseXMLList "Parameter"))-                <*> (x .@? "Marker")  -- | Represents a single occurrence of something interesting within the -- system. Some examples of events are creating a cache cluster, adding or@@ -1372,8 +1372,8 @@     , _pMinimumEngineVersion :: !(Maybe Text)     , _pSource               :: !(Maybe Text)     , _pIsModifiable         :: !(Maybe Bool)-    , _pAllowedValues        :: !(Maybe Text)     , _pDataType             :: !(Maybe Text)+    , _pAllowedValues        :: !(Maybe Text)     , _pParameterName        :: !(Maybe Text)     , _pDescription          :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -1390,10 +1390,10 @@ -- -- * 'pIsModifiable' ----- * 'pAllowedValues'--- -- * 'pDataType' --+-- * 'pAllowedValues'+-- -- * 'pParameterName' -- -- * 'pDescription'@@ -1405,8 +1405,8 @@     , _pMinimumEngineVersion = Nothing     , _pSource = Nothing     , _pIsModifiable = Nothing-    , _pAllowedValues = Nothing     , _pDataType = Nothing+    , _pAllowedValues = Nothing     , _pParameterName = Nothing     , _pDescription = Nothing     }@@ -1429,14 +1429,14 @@ pIsModifiable :: Lens' Parameter (Maybe Bool) pIsModifiable = lens _pIsModifiable (\ s a -> s{_pIsModifiable = a}); --- | The valid range of values for the parameter.-pAllowedValues :: Lens' Parameter (Maybe Text)-pAllowedValues = lens _pAllowedValues (\ s a -> s{_pAllowedValues = a});- -- | The valid data type for the parameter. pDataType :: Lens' Parameter (Maybe Text) pDataType = lens _pDataType (\ s a -> s{_pDataType = a}); +-- | The valid range of values for the parameter.+pAllowedValues :: Lens' Parameter (Maybe Text)+pAllowedValues = lens _pAllowedValues (\ s a -> s{_pAllowedValues = a});+ -- | The name of the parameter. pParameterName :: Lens' Parameter (Maybe Text) pParameterName = lens _pParameterName (\ s a -> s{_pParameterName = a});@@ -1452,8 +1452,8 @@                 (x .@? "MinimumEngineVersion")                 <*> (x .@? "Source")                 <*> (x .@? "IsModifiable")-                <*> (x .@? "AllowedValues")                 <*> (x .@? "DataType")+                <*> (x .@? "AllowedValues")                 <*> (x .@? "ParameterName")                 <*> (x .@? "Description") @@ -1590,13 +1590,13 @@ -- -- /See:/ 'replicationGroup' smart constructor. data ReplicationGroup = ReplicationGroup'-    { _rgNodeGroups            :: !(Maybe [NodeGroup])-    , _rgStatus                :: !(Maybe Text)+    { _rgStatus                :: !(Maybe Text)+    , _rgNodeGroups            :: !(Maybe [NodeGroup])     , _rgSnapshottingClusterId :: !(Maybe Text)     , _rgMemberClusters        :: !(Maybe [Text])+    , _rgDescription           :: !(Maybe Text)     , _rgReplicationGroupId    :: !(Maybe Text)     , _rgPendingModifiedValues :: !(Maybe ReplicationGroupPendingModifiedValues)-    , _rgDescription           :: !(Maybe Text)     , _rgAutomaticFailover     :: !(Maybe AutomaticFailoverStatus)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -1604,45 +1604,45 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rgNodeGroups'--- -- * 'rgStatus' --+-- * 'rgNodeGroups'+-- -- * 'rgSnapshottingClusterId' -- -- * 'rgMemberClusters' --+-- * 'rgDescription'+-- -- * 'rgReplicationGroupId' -- -- * 'rgPendingModifiedValues' ----- * 'rgDescription'--- -- * 'rgAutomaticFailover' replicationGroup     :: ReplicationGroup replicationGroup =     ReplicationGroup'-    { _rgNodeGroups = Nothing-    , _rgStatus = Nothing+    { _rgStatus = Nothing+    , _rgNodeGroups = Nothing     , _rgSnapshottingClusterId = Nothing     , _rgMemberClusters = Nothing+    , _rgDescription = Nothing     , _rgReplicationGroupId = Nothing     , _rgPendingModifiedValues = Nothing-    , _rgDescription = Nothing     , _rgAutomaticFailover = Nothing     } --- | A single element list with information about the nodes in the--- replication group.-rgNodeGroups :: Lens' ReplicationGroup [NodeGroup]-rgNodeGroups = lens _rgNodeGroups (\ s a -> s{_rgNodeGroups = a}) . _Default . _Coerce;- -- | The current state of this replication group - /creating/, /available/, -- etc. rgStatus :: Lens' ReplicationGroup (Maybe Text) rgStatus = lens _rgStatus (\ s a -> s{_rgStatus = a}); +-- | A single element list with information about the nodes in the+-- replication group.+rgNodeGroups :: Lens' ReplicationGroup [NodeGroup]+rgNodeGroups = lens _rgNodeGroups (\ s a -> s{_rgNodeGroups = a}) . _Default . _Coerce;+ -- | The cache cluster ID that is used as the daily snapshot source for the -- replication group. rgSnapshottingClusterId :: Lens' ReplicationGroup (Maybe Text)@@ -1653,6 +1653,10 @@ rgMemberClusters :: Lens' ReplicationGroup [Text] rgMemberClusters = lens _rgMemberClusters (\ s a -> s{_rgMemberClusters = a}) . _Default . _Coerce; +-- | The description of the replication group.+rgDescription :: Lens' ReplicationGroup (Maybe Text)+rgDescription = lens _rgDescription (\ s a -> s{_rgDescription = a});+ -- | The identifier for the replication group. rgReplicationGroupId :: Lens' ReplicationGroup (Maybe Text) rgReplicationGroupId = lens _rgReplicationGroupId (\ s a -> s{_rgReplicationGroupId = a});@@ -1662,10 +1666,6 @@ rgPendingModifiedValues :: Lens' ReplicationGroup (Maybe ReplicationGroupPendingModifiedValues) rgPendingModifiedValues = lens _rgPendingModifiedValues (\ s a -> s{_rgPendingModifiedValues = a}); --- | The description of the replication group.-rgDescription :: Lens' ReplicationGroup (Maybe Text)-rgDescription = lens _rgDescription (\ s a -> s{_rgDescription = a});- -- | Indicates the status of Multi-AZ for this replication group. -- -- ElastiCache Multi-AZ replication groups are not supported on:@@ -1678,16 +1678,16 @@ instance FromXML ReplicationGroup where         parseXML x           = ReplicationGroup' <$>-              (x .@? "NodeGroups" .!@ mempty >>=-                 may (parseXMLList "NodeGroup"))-                <*> (x .@? "Status")+              (x .@? "Status") <*>+                (x .@? "NodeGroups" .!@ mempty >>=+                   may (parseXMLList "NodeGroup"))                 <*> (x .@? "SnapshottingClusterId")                 <*>                 (x .@? "MemberClusters" .!@ mempty >>=                    may (parseXMLList "ClusterId"))+                <*> (x .@? "Description")                 <*> (x .@? "ReplicationGroupId")                 <*> (x .@? "PendingModifiedValues")-                <*> (x .@? "Description")                 <*> (x .@? "AutomaticFailover")  -- | The settings to be applied to the replication group, either immediately@@ -1742,13 +1742,13 @@ data ReservedCacheNode = ReservedCacheNode'     { _rcnCacheNodeType                :: !(Maybe Text)     , _rcnState                        :: !(Maybe Text)-    , _rcnProductDescription           :: !(Maybe Text)     , _rcnStartTime                    :: !(Maybe ISO8601)+    , _rcnProductDescription           :: !(Maybe Text)     , _rcnCacheNodeCount               :: !(Maybe Int)     , _rcnReservedCacheNodeId          :: !(Maybe Text)+    , _rcnRecurringCharges             :: !(Maybe [RecurringCharge])     , _rcnOfferingType                 :: !(Maybe Text)     , _rcnUsagePrice                   :: !(Maybe Double)-    , _rcnRecurringCharges             :: !(Maybe [RecurringCharge])     , _rcnFixedPrice                   :: !(Maybe Double)     , _rcnDuration                     :: !(Maybe Int)     , _rcnReservedCacheNodesOfferingId :: !(Maybe Text)@@ -1762,20 +1762,20 @@ -- -- * 'rcnState' ----- * 'rcnProductDescription'--- -- * 'rcnStartTime' --+-- * 'rcnProductDescription'+-- -- * 'rcnCacheNodeCount' -- -- * 'rcnReservedCacheNodeId' --+-- * 'rcnRecurringCharges'+-- -- * 'rcnOfferingType' -- -- * 'rcnUsagePrice' ----- * 'rcnRecurringCharges'--- -- * 'rcnFixedPrice' -- -- * 'rcnDuration'@@ -1787,13 +1787,13 @@     ReservedCacheNode'     { _rcnCacheNodeType = Nothing     , _rcnState = Nothing-    , _rcnProductDescription = Nothing     , _rcnStartTime = Nothing+    , _rcnProductDescription = Nothing     , _rcnCacheNodeCount = Nothing     , _rcnReservedCacheNodeId = Nothing+    , _rcnRecurringCharges = Nothing     , _rcnOfferingType = Nothing     , _rcnUsagePrice = Nothing-    , _rcnRecurringCharges = Nothing     , _rcnFixedPrice = Nothing     , _rcnDuration = Nothing     , _rcnReservedCacheNodesOfferingId = Nothing@@ -1837,14 +1837,14 @@ rcnState :: Lens' ReservedCacheNode (Maybe Text) rcnState = lens _rcnState (\ s a -> s{_rcnState = a}); --- | The description of the reserved cache node.-rcnProductDescription :: Lens' ReservedCacheNode (Maybe Text)-rcnProductDescription = lens _rcnProductDescription (\ s a -> s{_rcnProductDescription = a});- -- | The time the reservation started. rcnStartTime :: Lens' ReservedCacheNode (Maybe UTCTime) rcnStartTime = lens _rcnStartTime (\ s a -> s{_rcnStartTime = a}) . mapping _Time; +-- | The description of the reserved cache node.+rcnProductDescription :: Lens' ReservedCacheNode (Maybe Text)+rcnProductDescription = lens _rcnProductDescription (\ s a -> s{_rcnProductDescription = a});+ -- | The number of cache nodes that have been reserved. rcnCacheNodeCount :: Lens' ReservedCacheNode (Maybe Int) rcnCacheNodeCount = lens _rcnCacheNodeCount (\ s a -> s{_rcnCacheNodeCount = a});@@ -1853,6 +1853,10 @@ rcnReservedCacheNodeId :: Lens' ReservedCacheNode (Maybe Text) rcnReservedCacheNodeId = lens _rcnReservedCacheNodeId (\ s a -> s{_rcnReservedCacheNodeId = a}); +-- | The recurring price charged to run this reserved cache node.+rcnRecurringCharges :: Lens' ReservedCacheNode [RecurringCharge]+rcnRecurringCharges = lens _rcnRecurringCharges (\ s a -> s{_rcnRecurringCharges = a}) . _Default . _Coerce;+ -- | The offering type of this reserved cache node. rcnOfferingType :: Lens' ReservedCacheNode (Maybe Text) rcnOfferingType = lens _rcnOfferingType (\ s a -> s{_rcnOfferingType = a});@@ -1861,10 +1865,6 @@ rcnUsagePrice :: Lens' ReservedCacheNode (Maybe Double) rcnUsagePrice = lens _rcnUsagePrice (\ s a -> s{_rcnUsagePrice = a}); --- | The recurring price charged to run this reserved cache node.-rcnRecurringCharges :: Lens' ReservedCacheNode [RecurringCharge]-rcnRecurringCharges = lens _rcnRecurringCharges (\ s a -> s{_rcnRecurringCharges = a}) . _Default . _Coerce;- -- | The fixed price charged for this reserved cache node. rcnFixedPrice :: Lens' ReservedCacheNode (Maybe Double) rcnFixedPrice = lens _rcnFixedPrice (\ s a -> s{_rcnFixedPrice = a});@@ -1881,15 +1881,15 @@         parseXML x           = ReservedCacheNode' <$>               (x .@? "CacheNodeType") <*> (x .@? "State") <*>-                (x .@? "ProductDescription")-                <*> (x .@? "StartTime")+                (x .@? "StartTime")+                <*> (x .@? "ProductDescription")                 <*> (x .@? "CacheNodeCount")                 <*> (x .@? "ReservedCacheNodeId")-                <*> (x .@? "OfferingType")-                <*> (x .@? "UsagePrice")                 <*>                 (x .@? "RecurringCharges" .!@ mempty >>=                    may (parseXMLList "RecurringCharge"))+                <*> (x .@? "OfferingType")+                <*> (x .@? "UsagePrice")                 <*> (x .@? "FixedPrice")                 <*> (x .@? "Duration")                 <*> (x .@? "ReservedCacheNodesOfferingId")@@ -1900,9 +1900,9 @@ data ReservedCacheNodesOffering = ReservedCacheNodesOffering'     { _rcnoCacheNodeType                :: !(Maybe Text)     , _rcnoProductDescription           :: !(Maybe Text)+    , _rcnoRecurringCharges             :: !(Maybe [RecurringCharge])     , _rcnoOfferingType                 :: !(Maybe Text)     , _rcnoUsagePrice                   :: !(Maybe Double)-    , _rcnoRecurringCharges             :: !(Maybe [RecurringCharge])     , _rcnoFixedPrice                   :: !(Maybe Double)     , _rcnoDuration                     :: !(Maybe Int)     , _rcnoReservedCacheNodesOfferingId :: !(Maybe Text)@@ -1916,12 +1916,12 @@ -- -- * 'rcnoProductDescription' --+-- * 'rcnoRecurringCharges'+-- -- * 'rcnoOfferingType' -- -- * 'rcnoUsagePrice' ----- * 'rcnoRecurringCharges'--- -- * 'rcnoFixedPrice' -- -- * 'rcnoDuration'@@ -1933,9 +1933,9 @@     ReservedCacheNodesOffering'     { _rcnoCacheNodeType = Nothing     , _rcnoProductDescription = Nothing+    , _rcnoRecurringCharges = Nothing     , _rcnoOfferingType = Nothing     , _rcnoUsagePrice = Nothing-    , _rcnoRecurringCharges = Nothing     , _rcnoFixedPrice = Nothing     , _rcnoDuration = Nothing     , _rcnoReservedCacheNodesOfferingId = Nothing@@ -1979,6 +1979,10 @@ rcnoProductDescription :: Lens' ReservedCacheNodesOffering (Maybe Text) rcnoProductDescription = lens _rcnoProductDescription (\ s a -> s{_rcnoProductDescription = a}); +-- | The recurring price charged to run this reserved cache node.+rcnoRecurringCharges :: Lens' ReservedCacheNodesOffering [RecurringCharge]+rcnoRecurringCharges = lens _rcnoRecurringCharges (\ s a -> s{_rcnoRecurringCharges = a}) . _Default . _Coerce;+ -- | The offering type. rcnoOfferingType :: Lens' ReservedCacheNodesOffering (Maybe Text) rcnoOfferingType = lens _rcnoOfferingType (\ s a -> s{_rcnoOfferingType = a});@@ -1987,10 +1991,6 @@ rcnoUsagePrice :: Lens' ReservedCacheNodesOffering (Maybe Double) rcnoUsagePrice = lens _rcnoUsagePrice (\ s a -> s{_rcnoUsagePrice = a}); --- | The recurring price charged to run this reserved cache node.-rcnoRecurringCharges :: Lens' ReservedCacheNodesOffering [RecurringCharge]-rcnoRecurringCharges = lens _rcnoRecurringCharges (\ s a -> s{_rcnoRecurringCharges = a}) . _Default . _Coerce;- -- | The fixed price charged for this offering. rcnoFixedPrice :: Lens' ReservedCacheNodesOffering (Maybe Double) rcnoFixedPrice = lens _rcnoFixedPrice (\ s a -> s{_rcnoFixedPrice = a});@@ -2008,11 +2008,11 @@           = ReservedCacheNodesOffering' <$>               (x .@? "CacheNodeType") <*>                 (x .@? "ProductDescription")-                <*> (x .@? "OfferingType")-                <*> (x .@? "UsagePrice")                 <*>                 (x .@? "RecurringCharges" .!@ mempty >>=                    may (parseXMLList "RecurringCharge"))+                <*> (x .@? "OfferingType")+                <*> (x .@? "UsagePrice")                 <*> (x .@? "FixedPrice")                 <*> (x .@? "Duration")                 <*> (x .@? "ReservedCacheNodesOfferingId")@@ -2060,48 +2060,48 @@ -- -- /See:/ 'snapshot' smart constructor. data Snapshot = Snapshot'-    { _sCacheNodeType              :: !(Maybe Text)-    , _sEngineVersion              :: !(Maybe Text)+    { _sEngineVersion              :: !(Maybe Text)+    , _sCacheNodeType              :: !(Maybe Text)     , _sCacheClusterCreateTime     :: !(Maybe ISO8601)     , _sAutoMinorVersionUpgrade    :: !(Maybe Bool)     , _sCacheParameterGroupName    :: !(Maybe Text)+    , _sVPCId                      :: !(Maybe Text)     , _sSnapshotStatus             :: !(Maybe Text)     , _sSnapshotWindow             :: !(Maybe Text)-    , _sVPCId                      :: !(Maybe Text)     , _sCacheClusterId             :: !(Maybe Text)     , _sEngine                     :: !(Maybe Text)     , _sPreferredMaintenanceWindow :: !(Maybe Text)     , _sTopicARN                   :: !(Maybe Text)-    , _sCacheSubnetGroupName       :: !(Maybe Text)     , _sNodeSnapshots              :: !(Maybe [NodeSnapshot])+    , _sCacheSubnetGroupName       :: !(Maybe Text)     , _sPreferredAvailabilityZone  :: !(Maybe Text)     , _sSnapshotRetentionLimit     :: !(Maybe Int)     , _sSnapshotName               :: !(Maybe Text)-    , _sSnapshotSource             :: !(Maybe Text)     , _sNumCacheNodes              :: !(Maybe Int)     , _sPort                       :: !(Maybe Int)+    , _sSnapshotSource             :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'Snapshot' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sCacheNodeType'--- -- * 'sEngineVersion' --+-- * 'sCacheNodeType'+-- -- * 'sCacheClusterCreateTime' -- -- * 'sAutoMinorVersionUpgrade' -- -- * 'sCacheParameterGroupName' --+-- * 'sVPCId'+-- -- * 'sSnapshotStatus' -- -- * 'sSnapshotWindow' ----- * 'sVPCId'--- -- * 'sCacheClusterId' -- -- * 'sEngine'@@ -2110,47 +2110,52 @@ -- -- * 'sTopicARN' ----- * 'sCacheSubnetGroupName'--- -- * 'sNodeSnapshots' --+-- * 'sCacheSubnetGroupName'+-- -- * 'sPreferredAvailabilityZone' -- -- * 'sSnapshotRetentionLimit' -- -- * 'sSnapshotName' ----- * 'sSnapshotSource'--- -- * 'sNumCacheNodes' -- -- * 'sPort'+--+-- * 'sSnapshotSource' snapshot     :: Snapshot snapshot =     Snapshot'-    { _sCacheNodeType = Nothing-    , _sEngineVersion = Nothing+    { _sEngineVersion = Nothing+    , _sCacheNodeType = Nothing     , _sCacheClusterCreateTime = Nothing     , _sAutoMinorVersionUpgrade = Nothing     , _sCacheParameterGroupName = Nothing+    , _sVPCId = Nothing     , _sSnapshotStatus = Nothing     , _sSnapshotWindow = Nothing-    , _sVPCId = Nothing     , _sCacheClusterId = Nothing     , _sEngine = Nothing     , _sPreferredMaintenanceWindow = Nothing     , _sTopicARN = Nothing-    , _sCacheSubnetGroupName = Nothing     , _sNodeSnapshots = Nothing+    , _sCacheSubnetGroupName = Nothing     , _sPreferredAvailabilityZone = Nothing     , _sSnapshotRetentionLimit = Nothing     , _sSnapshotName = Nothing-    , _sSnapshotSource = Nothing     , _sNumCacheNodes = Nothing     , _sPort = Nothing+    , _sSnapshotSource = Nothing     } +-- | The version of the cache engine version that is used by the source cache+-- cluster.+sEngineVersion :: Lens' Snapshot (Maybe Text)+sEngineVersion = lens _sEngineVersion (\ s a -> s{_sEngineVersion = a});+ -- | The name of the compute and memory capacity node type for the source -- cache cluster. --@@ -2186,11 +2191,6 @@ sCacheNodeType :: Lens' Snapshot (Maybe Text) sCacheNodeType = lens _sCacheNodeType (\ s a -> s{_sCacheNodeType = a}); --- | The version of the cache engine version that is used by the source cache--- cluster.-sEngineVersion :: Lens' Snapshot (Maybe Text)-sEngineVersion = lens _sEngineVersion (\ s a -> s{_sEngineVersion = a});- -- | The date and time when the source cache cluster was created. sCacheClusterCreateTime :: Lens' Snapshot (Maybe UTCTime) sCacheClusterCreateTime = lens _sCacheClusterCreateTime (\ s a -> s{_sCacheClusterCreateTime = a}) . mapping _Time;@@ -2204,6 +2204,11 @@ sCacheParameterGroupName :: Lens' Snapshot (Maybe Text) sCacheParameterGroupName = lens _sCacheParameterGroupName (\ s a -> s{_sCacheParameterGroupName = a}); +-- | The Amazon Virtual Private Cloud identifier (VPC ID) of the cache subnet+-- group for the source cache cluster.+sVPCId :: Lens' Snapshot (Maybe Text)+sVPCId = lens _sVPCId (\ s a -> s{_sVPCId = a});+ -- | The status of the snapshot. Valid values: 'creating' | 'available' | -- 'restoring' | 'copying' | 'deleting'. sSnapshotStatus :: Lens' Snapshot (Maybe Text)@@ -2214,11 +2219,6 @@ sSnapshotWindow :: Lens' Snapshot (Maybe Text) sSnapshotWindow = lens _sSnapshotWindow (\ s a -> s{_sSnapshotWindow = a}); --- | The Amazon Virtual Private Cloud identifier (VPC ID) of the cache subnet--- group for the source cache cluster.-sVPCId :: Lens' Snapshot (Maybe Text)-sVPCId = lens _sVPCId (\ s a -> s{_sVPCId = a});- -- | The user-supplied identifier of the source cache cluster. sCacheClusterId :: Lens' Snapshot (Maybe Text) sCacheClusterId = lens _sCacheClusterId (\ s a -> s{_sCacheClusterId = a});@@ -2250,15 +2250,15 @@ sTopicARN :: Lens' Snapshot (Maybe Text) sTopicARN = lens _sTopicARN (\ s a -> s{_sTopicARN = a}); +-- | A list of the cache nodes in the source cache cluster.+sNodeSnapshots :: Lens' Snapshot [NodeSnapshot]+sNodeSnapshots = lens _sNodeSnapshots (\ s a -> s{_sNodeSnapshots = a}) . _Default . _Coerce;+ -- | The name of the cache subnet group associated with the source cache -- cluster. sCacheSubnetGroupName :: Lens' Snapshot (Maybe Text) sCacheSubnetGroupName = lens _sCacheSubnetGroupName (\ s a -> s{_sCacheSubnetGroupName = a}); --- | A list of the cache nodes in the source cache cluster.-sNodeSnapshots :: Lens' Snapshot [NodeSnapshot]-sNodeSnapshots = lens _sNodeSnapshots (\ s a -> s{_sNodeSnapshots = a}) . _Default . _Coerce;- -- | The name of the Availability Zone in which the source cache cluster is -- located. sPreferredAvailabilityZone :: Lens' Snapshot (Maybe Text)@@ -2283,11 +2283,6 @@ sSnapshotName :: Lens' Snapshot (Maybe Text) sSnapshotName = lens _sSnapshotName (\ s a -> s{_sSnapshotName = a}); --- | Indicates whether the snapshot is from an automatic backup ('automated')--- or was created manually ('manual').-sSnapshotSource :: Lens' Snapshot (Maybe Text)-sSnapshotSource = lens _sSnapshotSource (\ s a -> s{_sSnapshotSource = a});- -- | The number of cache nodes in the source cache cluster. -- -- For clusters running Redis, this value must be 1. For clusters running@@ -2299,30 +2294,35 @@ sPort :: Lens' Snapshot (Maybe Int) sPort = lens _sPort (\ s a -> s{_sPort = a}); +-- | Indicates whether the snapshot is from an automatic backup ('automated')+-- or was created manually ('manual').+sSnapshotSource :: Lens' Snapshot (Maybe Text)+sSnapshotSource = lens _sSnapshotSource (\ s a -> s{_sSnapshotSource = a});+ instance FromXML Snapshot where         parseXML x           = Snapshot' <$>-              (x .@? "CacheNodeType") <*> (x .@? "EngineVersion")+              (x .@? "EngineVersion") <*> (x .@? "CacheNodeType")                 <*> (x .@? "CacheClusterCreateTime")                 <*> (x .@? "AutoMinorVersionUpgrade")                 <*> (x .@? "CacheParameterGroupName")+                <*> (x .@? "VpcId")                 <*> (x .@? "SnapshotStatus")                 <*> (x .@? "SnapshotWindow")-                <*> (x .@? "VpcId")                 <*> (x .@? "CacheClusterId")                 <*> (x .@? "Engine")                 <*> (x .@? "PreferredMaintenanceWindow")                 <*> (x .@? "TopicArn")-                <*> (x .@? "CacheSubnetGroupName")                 <*>                 (x .@? "NodeSnapshots" .!@ mempty >>=                    may (parseXMLList "NodeSnapshot"))+                <*> (x .@? "CacheSubnetGroupName")                 <*> (x .@? "PreferredAvailabilityZone")                 <*> (x .@? "SnapshotRetentionLimit")                 <*> (x .@? "SnapshotName")-                <*> (x .@? "SnapshotSource")                 <*> (x .@? "NumCacheNodes")                 <*> (x .@? "Port")+                <*> (x .@? "SnapshotSource")  -- | Represents the subnet associated with a cache cluster. This parameter -- refers to subnets defined in Amazon Virtual Private Cloud (Amazon VPC)

@@ -43,6 +43,9 @@ --         , testRevokeCacheSecurityGroupIngress $ --             revokeCacheSecurityGroupIngress --+--         , testCreateCacheCluster $+--             createCacheCluster+-- --         , testDescribeEvents $ --             describeEvents --@@ -52,27 +55,24 @@ --         , testModifyCacheParameterGroup $ --             modifyCacheParameterGroup -----         , testCreateCacheCluster $---             createCacheCluster+--         , testDeleteReplicationGroup $+--             deleteReplicationGroup -- --         , testListTagsForResource $ --             listTagsForResource -----         , testDeleteReplicationGroup $---             deleteReplicationGroup+--         , testDescribeCacheClusters $+--             describeCacheClusters -- --         , testPurchaseReservedCacheNodesOffering $ --             purchaseReservedCacheNodesOffering -----         , testDescribeCacheClusters $---             describeCacheClusters+--         , testRemoveTagsFromResource $+--             removeTagsFromResource -- --         , testModifyReplicationGroup $ --             modifyReplicationGroup -----         , testRemoveTagsFromResource $---             removeTagsFromResource--- --         , testDescribeCacheParameters $ --             describeCacheParameters --@@ -103,14 +103,14 @@ --         , testDescribeSnapshots $ --             describeSnapshots -----         , testDescribeReservedCacheNodesOfferings $---             describeReservedCacheNodesOfferings+--         , testDescribeReplicationGroups $+--             describeReplicationGroups -- --         , testDeleteSnapshot $ --             deleteSnapshot -----         , testDescribeReplicationGroups $---             describeReplicationGroups+--         , testDescribeReservedCacheNodesOfferings $+--             describeReservedCacheNodesOfferings -- --         , testModifyCacheSubnetGroup $ --             modifyCacheSubnetGroup@@ -118,24 +118,24 @@ --         , testCreateSnapshot $ --             createSnapshot -----         , testDescribeCacheSecurityGroups $---             describeCacheSecurityGroups--- --         , testDeleteCacheParameterGroup $ --             deleteCacheParameterGroup -----         , testDescribeReservedCacheNodes $---             describeReservedCacheNodes------         , testDescribeCacheEngineVersions $---             describeCacheEngineVersions+--         , testDescribeCacheSecurityGroups $+--             describeCacheSecurityGroups -- --         , testModifyCacheCluster $ --             modifyCacheCluster --+--         , testDescribeCacheEngineVersions $+--             describeCacheEngineVersions+-- --         , testCreateCacheParameterGroup $ --             createCacheParameterGroup --+--         , testDescribeReservedCacheNodes $+--             describeReservedCacheNodes+-- --         , testDeleteCacheSubnetGroup $ --             deleteCacheSubnetGroup --@@ -157,6 +157,9 @@ --         , testRevokeCacheSecurityGroupIngressResponse $ --             revokeCacheSecurityGroupIngressResponse --+--         , testCreateCacheClusterResponse $+--             createCacheClusterResponse+-- --         , testDescribeEventsResponse $ --             describeEventsResponse --@@ -166,27 +169,24 @@ --         , testModifyCacheParameterGroupResponse $ --             cacheParameterGroupNameMessage -----         , testCreateCacheClusterResponse $---             createCacheClusterResponse+--         , testDeleteReplicationGroupResponse $+--             deleteReplicationGroupResponse -- --         , testListTagsForResourceResponse $ --             tagListMessage -----         , testDeleteReplicationGroupResponse $---             deleteReplicationGroupResponse+--         , testDescribeCacheClustersResponse $+--             describeCacheClustersResponse -- --         , testPurchaseReservedCacheNodesOfferingResponse $ --             purchaseReservedCacheNodesOfferingResponse -----         , testDescribeCacheClustersResponse $---             describeCacheClustersResponse+--         , testRemoveTagsFromResourceResponse $+--             tagListMessage -- --         , testModifyReplicationGroupResponse $ --             modifyReplicationGroupResponse -----         , testRemoveTagsFromResourceResponse $---             tagListMessage--- --         , testDescribeCacheParametersResponse $ --             describeCacheParametersResponse --@@ -217,14 +217,14 @@ --         , testDescribeSnapshotsResponse $ --             describeSnapshotsResponse -----         , testDescribeReservedCacheNodesOfferingsResponse $---             describeReservedCacheNodesOfferingsResponse+--         , testDescribeReplicationGroupsResponse $+--             describeReplicationGroupsResponse -- --         , testDeleteSnapshotResponse $ --             deleteSnapshotResponse -----         , testDescribeReplicationGroupsResponse $---             describeReplicationGroupsResponse+--         , testDescribeReservedCacheNodesOfferingsResponse $+--             describeReservedCacheNodesOfferingsResponse -- --         , testModifyCacheSubnetGroupResponse $ --             modifyCacheSubnetGroupResponse@@ -232,24 +232,24 @@ --         , testCreateSnapshotResponse $ --             createSnapshotResponse -----         , testDescribeCacheSecurityGroupsResponse $---             describeCacheSecurityGroupsResponse--- --         , testDeleteCacheParameterGroupResponse $ --             deleteCacheParameterGroupResponse -----         , testDescribeReservedCacheNodesResponse $---             describeReservedCacheNodesResponse------         , testDescribeCacheEngineVersionsResponse $---             describeCacheEngineVersionsResponse+--         , testDescribeCacheSecurityGroupsResponse $+--             describeCacheSecurityGroupsResponse -- --         , testModifyCacheClusterResponse $ --             modifyCacheClusterResponse --+--         , testDescribeCacheEngineVersionsResponse $+--             describeCacheEngineVersionsResponse+-- --         , testCreateCacheParameterGroupResponse $ --             createCacheParameterGroupResponse --+--         , testDescribeReservedCacheNodesResponse $+--             describeReservedCacheNodesResponse+-- --         , testDeleteCacheSubnetGroupResponse $ --             deleteCacheSubnetGroupResponse --@@ -283,6 +283,11 @@     "RevokeCacheSecurityGroupIngress"     "fixture/RevokeCacheSecurityGroupIngress.yaml" +testCreateCacheCluster :: CreateCacheCluster -> TestTree+testCreateCacheCluster = req+    "CreateCacheCluster"+    "fixture/CreateCacheCluster.yaml"+ testDescribeEvents :: DescribeEvents -> TestTree testDescribeEvents = req     "DescribeEvents"@@ -298,41 +303,36 @@     "ModifyCacheParameterGroup"     "fixture/ModifyCacheParameterGroup.yaml" -testCreateCacheCluster :: CreateCacheCluster -> TestTree-testCreateCacheCluster = req-    "CreateCacheCluster"-    "fixture/CreateCacheCluster.yaml"+testDeleteReplicationGroup :: DeleteReplicationGroup -> TestTree+testDeleteReplicationGroup = req+    "DeleteReplicationGroup"+    "fixture/DeleteReplicationGroup.yaml"  testListTagsForResource :: ListTagsForResource -> TestTree testListTagsForResource = req     "ListTagsForResource"     "fixture/ListTagsForResource.yaml" -testDeleteReplicationGroup :: DeleteReplicationGroup -> TestTree-testDeleteReplicationGroup = req-    "DeleteReplicationGroup"-    "fixture/DeleteReplicationGroup.yaml"+testDescribeCacheClusters :: DescribeCacheClusters -> TestTree+testDescribeCacheClusters = req+    "DescribeCacheClusters"+    "fixture/DescribeCacheClusters.yaml"  testPurchaseReservedCacheNodesOffering :: PurchaseReservedCacheNodesOffering -> TestTree testPurchaseReservedCacheNodesOffering = req     "PurchaseReservedCacheNodesOffering"     "fixture/PurchaseReservedCacheNodesOffering.yaml" -testDescribeCacheClusters :: DescribeCacheClusters -> TestTree-testDescribeCacheClusters = req-    "DescribeCacheClusters"-    "fixture/DescribeCacheClusters.yaml"+testRemoveTagsFromResource :: RemoveTagsFromResource -> TestTree+testRemoveTagsFromResource = req+    "RemoveTagsFromResource"+    "fixture/RemoveTagsFromResource.yaml"  testModifyReplicationGroup :: ModifyReplicationGroup -> TestTree testModifyReplicationGroup = req     "ModifyReplicationGroup"     "fixture/ModifyReplicationGroup.yaml" -testRemoveTagsFromResource :: RemoveTagsFromResource -> TestTree-testRemoveTagsFromResource = req-    "RemoveTagsFromResource"-    "fixture/RemoveTagsFromResource.yaml"- testDescribeCacheParameters :: DescribeCacheParameters -> TestTree testDescribeCacheParameters = req     "DescribeCacheParameters"@@ -383,20 +383,20 @@     "DescribeSnapshots"     "fixture/DescribeSnapshots.yaml" -testDescribeReservedCacheNodesOfferings :: DescribeReservedCacheNodesOfferings -> TestTree-testDescribeReservedCacheNodesOfferings = req-    "DescribeReservedCacheNodesOfferings"-    "fixture/DescribeReservedCacheNodesOfferings.yaml"+testDescribeReplicationGroups :: DescribeReplicationGroups -> TestTree+testDescribeReplicationGroups = req+    "DescribeReplicationGroups"+    "fixture/DescribeReplicationGroups.yaml"  testDeleteSnapshot :: DeleteSnapshot -> TestTree testDeleteSnapshot = req     "DeleteSnapshot"     "fixture/DeleteSnapshot.yaml" -testDescribeReplicationGroups :: DescribeReplicationGroups -> TestTree-testDescribeReplicationGroups = req-    "DescribeReplicationGroups"-    "fixture/DescribeReplicationGroups.yaml"+testDescribeReservedCacheNodesOfferings :: DescribeReservedCacheNodesOfferings -> TestTree+testDescribeReservedCacheNodesOfferings = req+    "DescribeReservedCacheNodesOfferings"+    "fixture/DescribeReservedCacheNodesOfferings.yaml"  testModifyCacheSubnetGroup :: ModifyCacheSubnetGroup -> TestTree testModifyCacheSubnetGroup = req@@ -408,36 +408,36 @@     "CreateSnapshot"     "fixture/CreateSnapshot.yaml" -testDescribeCacheSecurityGroups :: DescribeCacheSecurityGroups -> TestTree-testDescribeCacheSecurityGroups = req-    "DescribeCacheSecurityGroups"-    "fixture/DescribeCacheSecurityGroups.yaml"- testDeleteCacheParameterGroup :: DeleteCacheParameterGroup -> TestTree testDeleteCacheParameterGroup = req     "DeleteCacheParameterGroup"     "fixture/DeleteCacheParameterGroup.yaml" -testDescribeReservedCacheNodes :: DescribeReservedCacheNodes -> TestTree-testDescribeReservedCacheNodes = req-    "DescribeReservedCacheNodes"-    "fixture/DescribeReservedCacheNodes.yaml"--testDescribeCacheEngineVersions :: DescribeCacheEngineVersions -> TestTree-testDescribeCacheEngineVersions = req-    "DescribeCacheEngineVersions"-    "fixture/DescribeCacheEngineVersions.yaml"+testDescribeCacheSecurityGroups :: DescribeCacheSecurityGroups -> TestTree+testDescribeCacheSecurityGroups = req+    "DescribeCacheSecurityGroups"+    "fixture/DescribeCacheSecurityGroups.yaml"  testModifyCacheCluster :: ModifyCacheCluster -> TestTree testModifyCacheCluster = req     "ModifyCacheCluster"     "fixture/ModifyCacheCluster.yaml" +testDescribeCacheEngineVersions :: DescribeCacheEngineVersions -> TestTree+testDescribeCacheEngineVersions = req+    "DescribeCacheEngineVersions"+    "fixture/DescribeCacheEngineVersions.yaml"+ testCreateCacheParameterGroup :: CreateCacheParameterGroup -> TestTree testCreateCacheParameterGroup = req     "CreateCacheParameterGroup"     "fixture/CreateCacheParameterGroup.yaml" +testDescribeReservedCacheNodes :: DescribeReservedCacheNodes -> TestTree+testDescribeReservedCacheNodes = req+    "DescribeReservedCacheNodes"+    "fixture/DescribeReservedCacheNodes.yaml"+ testDeleteCacheSubnetGroup :: DeleteCacheSubnetGroup -> TestTree testDeleteCacheSubnetGroup = req     "DeleteCacheSubnetGroup"@@ -480,6 +480,13 @@     elastiCache     (Proxy :: Proxy RevokeCacheSecurityGroupIngress) +testCreateCacheClusterResponse :: CreateCacheClusterResponse -> TestTree+testCreateCacheClusterResponse = res+    "CreateCacheClusterResponse"+    "fixture/CreateCacheClusterResponse.proto"+    elastiCache+    (Proxy :: Proxy CreateCacheCluster)+ testDescribeEventsResponse :: DescribeEventsResponse -> TestTree testDescribeEventsResponse = res     "DescribeEventsResponse"@@ -501,12 +508,12 @@     elastiCache     (Proxy :: Proxy ModifyCacheParameterGroup) -testCreateCacheClusterResponse :: CreateCacheClusterResponse -> TestTree-testCreateCacheClusterResponse = res-    "CreateCacheClusterResponse"-    "fixture/CreateCacheClusterResponse.proto"+testDeleteReplicationGroupResponse :: DeleteReplicationGroupResponse -> TestTree+testDeleteReplicationGroupResponse = res+    "DeleteReplicationGroupResponse"+    "fixture/DeleteReplicationGroupResponse.proto"     elastiCache-    (Proxy :: Proxy CreateCacheCluster)+    (Proxy :: Proxy DeleteReplicationGroup)  testListTagsForResourceResponse :: TagListMessage -> TestTree testListTagsForResourceResponse = res@@ -515,12 +522,12 @@     elastiCache     (Proxy :: Proxy ListTagsForResource) -testDeleteReplicationGroupResponse :: DeleteReplicationGroupResponse -> TestTree-testDeleteReplicationGroupResponse = res-    "DeleteReplicationGroupResponse"-    "fixture/DeleteReplicationGroupResponse.proto"+testDescribeCacheClustersResponse :: DescribeCacheClustersResponse -> TestTree+testDescribeCacheClustersResponse = res+    "DescribeCacheClustersResponse"+    "fixture/DescribeCacheClustersResponse.proto"     elastiCache-    (Proxy :: Proxy DeleteReplicationGroup)+    (Proxy :: Proxy DescribeCacheClusters)  testPurchaseReservedCacheNodesOfferingResponse :: PurchaseReservedCacheNodesOfferingResponse -> TestTree testPurchaseReservedCacheNodesOfferingResponse = res@@ -529,12 +536,12 @@     elastiCache     (Proxy :: Proxy PurchaseReservedCacheNodesOffering) -testDescribeCacheClustersResponse :: DescribeCacheClustersResponse -> TestTree-testDescribeCacheClustersResponse = res-    "DescribeCacheClustersResponse"-    "fixture/DescribeCacheClustersResponse.proto"+testRemoveTagsFromResourceResponse :: TagListMessage -> TestTree+testRemoveTagsFromResourceResponse = res+    "RemoveTagsFromResourceResponse"+    "fixture/RemoveTagsFromResourceResponse.proto"     elastiCache-    (Proxy :: Proxy DescribeCacheClusters)+    (Proxy :: Proxy RemoveTagsFromResource)  testModifyReplicationGroupResponse :: ModifyReplicationGroupResponse -> TestTree testModifyReplicationGroupResponse = res@@ -543,13 +550,6 @@     elastiCache     (Proxy :: Proxy ModifyReplicationGroup) -testRemoveTagsFromResourceResponse :: TagListMessage -> TestTree-testRemoveTagsFromResourceResponse = res-    "RemoveTagsFromResourceResponse"-    "fixture/RemoveTagsFromResourceResponse.proto"-    elastiCache-    (Proxy :: Proxy RemoveTagsFromResource)- testDescribeCacheParametersResponse :: DescribeCacheParametersResponse -> TestTree testDescribeCacheParametersResponse = res     "DescribeCacheParametersResponse"@@ -620,12 +620,12 @@     elastiCache     (Proxy :: Proxy DescribeSnapshots) -testDescribeReservedCacheNodesOfferingsResponse :: DescribeReservedCacheNodesOfferingsResponse -> TestTree-testDescribeReservedCacheNodesOfferingsResponse = res-    "DescribeReservedCacheNodesOfferingsResponse"-    "fixture/DescribeReservedCacheNodesOfferingsResponse.proto"+testDescribeReplicationGroupsResponse :: DescribeReplicationGroupsResponse -> TestTree+testDescribeReplicationGroupsResponse = res+    "DescribeReplicationGroupsResponse"+    "fixture/DescribeReplicationGroupsResponse.proto"     elastiCache-    (Proxy :: Proxy DescribeReservedCacheNodesOfferings)+    (Proxy :: Proxy DescribeReplicationGroups)  testDeleteSnapshotResponse :: DeleteSnapshotResponse -> TestTree testDeleteSnapshotResponse = res@@ -634,12 +634,12 @@     elastiCache     (Proxy :: Proxy DeleteSnapshot) -testDescribeReplicationGroupsResponse :: DescribeReplicationGroupsResponse -> TestTree-testDescribeReplicationGroupsResponse = res-    "DescribeReplicationGroupsResponse"-    "fixture/DescribeReplicationGroupsResponse.proto"+testDescribeReservedCacheNodesOfferingsResponse :: DescribeReservedCacheNodesOfferingsResponse -> TestTree+testDescribeReservedCacheNodesOfferingsResponse = res+    "DescribeReservedCacheNodesOfferingsResponse"+    "fixture/DescribeReservedCacheNodesOfferingsResponse.proto"     elastiCache-    (Proxy :: Proxy DescribeReplicationGroups)+    (Proxy :: Proxy DescribeReservedCacheNodesOfferings)  testModifyCacheSubnetGroupResponse :: ModifyCacheSubnetGroupResponse -> TestTree testModifyCacheSubnetGroupResponse = res@@ -655,13 +655,6 @@     elastiCache     (Proxy :: Proxy CreateSnapshot) -testDescribeCacheSecurityGroupsResponse :: DescribeCacheSecurityGroupsResponse -> TestTree-testDescribeCacheSecurityGroupsResponse = res-    "DescribeCacheSecurityGroupsResponse"-    "fixture/DescribeCacheSecurityGroupsResponse.proto"-    elastiCache-    (Proxy :: Proxy DescribeCacheSecurityGroups)- testDeleteCacheParameterGroupResponse :: DeleteCacheParameterGroupResponse -> TestTree testDeleteCacheParameterGroupResponse = res     "DeleteCacheParameterGroupResponse"@@ -669,19 +662,12 @@     elastiCache     (Proxy :: Proxy DeleteCacheParameterGroup) -testDescribeReservedCacheNodesResponse :: DescribeReservedCacheNodesResponse -> TestTree-testDescribeReservedCacheNodesResponse = res-    "DescribeReservedCacheNodesResponse"-    "fixture/DescribeReservedCacheNodesResponse.proto"-    elastiCache-    (Proxy :: Proxy DescribeReservedCacheNodes)--testDescribeCacheEngineVersionsResponse :: DescribeCacheEngineVersionsResponse -> TestTree-testDescribeCacheEngineVersionsResponse = res-    "DescribeCacheEngineVersionsResponse"-    "fixture/DescribeCacheEngineVersionsResponse.proto"+testDescribeCacheSecurityGroupsResponse :: DescribeCacheSecurityGroupsResponse -> TestTree+testDescribeCacheSecurityGroupsResponse = res+    "DescribeCacheSecurityGroupsResponse"+    "fixture/DescribeCacheSecurityGroupsResponse.proto"     elastiCache-    (Proxy :: Proxy DescribeCacheEngineVersions)+    (Proxy :: Proxy DescribeCacheSecurityGroups)  testModifyCacheClusterResponse :: ModifyCacheClusterResponse -> TestTree testModifyCacheClusterResponse = res@@ -690,12 +676,26 @@     elastiCache     (Proxy :: Proxy ModifyCacheCluster) +testDescribeCacheEngineVersionsResponse :: DescribeCacheEngineVersionsResponse -> TestTree+testDescribeCacheEngineVersionsResponse = res+    "DescribeCacheEngineVersionsResponse"+    "fixture/DescribeCacheEngineVersionsResponse.proto"+    elastiCache+    (Proxy :: Proxy DescribeCacheEngineVersions)+ testCreateCacheParameterGroupResponse :: CreateCacheParameterGroupResponse -> TestTree testCreateCacheParameterGroupResponse = res     "CreateCacheParameterGroupResponse"     "fixture/CreateCacheParameterGroupResponse.proto"     elastiCache     (Proxy :: Proxy CreateCacheParameterGroup)++testDescribeReservedCacheNodesResponse :: DescribeReservedCacheNodesResponse -> TestTree+testDescribeReservedCacheNodesResponse = res+    "DescribeReservedCacheNodesResponse"+    "fixture/DescribeReservedCacheNodesResponse.proto"+    elastiCache+    (Proxy :: Proxy DescribeReservedCacheNodes)  testDeleteCacheSubnetGroupResponse :: DeleteCacheSubnetGroupResponse -> TestTree testDeleteCacheSubnetGroupResponse = res