packages feed

amazonka-elasticache 1.5.0 → 1.6.0

raw patch · 51 files changed

+1153/−1145 lines, 51 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description
amazonka-elasticache.cabal view
@@ -1,5 +1,5 @@ name:                  amazonka-elasticache-version:               1.5.0+version:               1.6.0 synopsis:              Amazon ElastiCache SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -93,7 +93,7 @@         , Network.AWS.ElastiCache.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-elasticache-test@@ -113,8 +113,8 @@         , Test.AWS.ElastiCache.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-elasticache         , base         , bytestring
gen/Network/AWS/ElastiCache.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.ElastiCache--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
gen/Network/AWS/ElastiCache/AddTagsToResource.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.AddTagsToResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,11 +73,11 @@  -- | The Amazon Resource Name (ARN) of the resource to which the tags are to be added, for example @arn:aws:elasticache:us-west-2:0123456789:cluster:myCluster@ or @arn:aws:elasticache:us-west-2:0123456789:snapshot:mySnapshot@ . ElastiCache resources are /cluster/ and /snapshot/ . For more information about ARNs, see <http://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html Amazon Resource Names (ARNs) and AWS Service Namespaces> . attrResourceName :: Lens' AddTagsToResource Text-attrResourceName = lens _attrResourceName (\ s a -> s{_attrResourceName = a});+attrResourceName = lens _attrResourceName (\ s a -> s{_attrResourceName = 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. attrTags :: Lens' AddTagsToResource [Tag]-attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce;+attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce  instance AWSRequest AddTagsToResource where         type Rs AddTagsToResource = TagListMessage
gen/Network/AWS/ElastiCache/AuthorizeCacheSecurityGroupIngress.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.AuthorizeCacheSecurityGroupIngress--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,23 +74,23 @@     -> AuthorizeCacheSecurityGroupIngress authorizeCacheSecurityGroupIngress pCacheSecurityGroupName_ pEC2SecurityGroupName_ pEC2SecurityGroupOwnerId_ =   AuthorizeCacheSecurityGroupIngress'-  { _acsgiCacheSecurityGroupName = pCacheSecurityGroupName_-  , _acsgiEC2SecurityGroupName = pEC2SecurityGroupName_-  , _acsgiEC2SecurityGroupOwnerId = pEC2SecurityGroupOwnerId_-  }+    { _acsgiCacheSecurityGroupName = pCacheSecurityGroupName_+    , _acsgiEC2SecurityGroupName = pEC2SecurityGroupName_+    , _acsgiEC2SecurityGroupOwnerId = pEC2SecurityGroupOwnerId_+    }   -- | The cache security group that allows network ingress. acsgiCacheSecurityGroupName :: Lens' AuthorizeCacheSecurityGroupIngress Text-acsgiCacheSecurityGroupName = lens _acsgiCacheSecurityGroupName (\ s a -> s{_acsgiCacheSecurityGroupName = a});+acsgiCacheSecurityGroupName = lens _acsgiCacheSecurityGroupName (\ s a -> s{_acsgiCacheSecurityGroupName = a})  -- | The Amazon EC2 security group to be authorized for ingress to the cache security group. acsgiEC2SecurityGroupName :: Lens' AuthorizeCacheSecurityGroupIngress Text-acsgiEC2SecurityGroupName = lens _acsgiEC2SecurityGroupName (\ s a -> s{_acsgiEC2SecurityGroupName = a});+acsgiEC2SecurityGroupName = lens _acsgiEC2SecurityGroupName (\ s a -> s{_acsgiEC2SecurityGroupName = a})  -- | The AWS account number of the Amazon EC2 security group owner. Note that this is not the same thing as an AWS access key ID - you must provide a valid AWS account number for this parameter. acsgiEC2SecurityGroupOwnerId :: Lens' AuthorizeCacheSecurityGroupIngress Text-acsgiEC2SecurityGroupOwnerId = lens _acsgiEC2SecurityGroupOwnerId (\ s a -> s{_acsgiEC2SecurityGroupOwnerId = a});+acsgiEC2SecurityGroupOwnerId = lens _acsgiEC2SecurityGroupOwnerId (\ s a -> s{_acsgiEC2SecurityGroupOwnerId = a})  instance AWSRequest            AuthorizeCacheSecurityGroupIngress@@ -151,18 +151,18 @@     -> AuthorizeCacheSecurityGroupIngressResponse authorizeCacheSecurityGroupIngressResponse pResponseStatus_ =   AuthorizeCacheSecurityGroupIngressResponse'-  { _acsgirsCacheSecurityGroup = Nothing-  , _acsgirsResponseStatus = pResponseStatus_-  }+    { _acsgirsCacheSecurityGroup = Nothing+    , _acsgirsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. acsgirsCacheSecurityGroup :: Lens' AuthorizeCacheSecurityGroupIngressResponse (Maybe CacheSecurityGroup)-acsgirsCacheSecurityGroup = lens _acsgirsCacheSecurityGroup (\ s a -> s{_acsgirsCacheSecurityGroup = a});+acsgirsCacheSecurityGroup = lens _acsgirsCacheSecurityGroup (\ s a -> s{_acsgirsCacheSecurityGroup = a})  -- | -- | The response status code. acsgirsResponseStatus :: Lens' AuthorizeCacheSecurityGroupIngressResponse Int-acsgirsResponseStatus = lens _acsgirsResponseStatus (\ s a -> s{_acsgirsResponseStatus = a});+acsgirsResponseStatus = lens _acsgirsResponseStatus (\ s a -> s{_acsgirsResponseStatus = a})  instance NFData            AuthorizeCacheSecurityGroupIngressResponse
gen/Network/AWS/ElastiCache/CopySnapshot.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.CopySnapshot--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -113,23 +113,23 @@     -> CopySnapshot copySnapshot pSourceSnapshotName_ pTargetSnapshotName_ =   CopySnapshot'-  { _csTargetBucket = Nothing-  , _csSourceSnapshotName = pSourceSnapshotName_-  , _csTargetSnapshotName = pTargetSnapshotName_-  }+    { _csTargetBucket = Nothing+    , _csSourceSnapshotName = pSourceSnapshotName_+    , _csTargetSnapshotName = pTargetSnapshotName_+    }   -- | The Amazon S3 bucket to which the snapshot is exported. This parameter is used only when exporting a snapshot for external access. When using this parameter to export a snapshot, be sure Amazon ElastiCache has the needed permissions to this S3 bucket. For more information, see <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/Snapshots.Exporting.html#Snapshots.Exporting.GrantAccess Step 2: Grant ElastiCache Access to Your Amazon S3 Bucket> in the /Amazon ElastiCache User Guide/ . For more information, see <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/Snapshots.Exporting.html Exporting a Snapshot> in the /Amazon ElastiCache User Guide/ . csTargetBucket :: Lens' CopySnapshot (Maybe Text)-csTargetBucket = lens _csTargetBucket (\ s a -> s{_csTargetBucket = a});+csTargetBucket = lens _csTargetBucket (\ s a -> s{_csTargetBucket = a})  -- | The name of an existing snapshot from which to make a copy. csSourceSnapshotName :: Lens' CopySnapshot Text-csSourceSnapshotName = lens _csSourceSnapshotName (\ s a -> s{_csSourceSnapshotName = a});+csSourceSnapshotName = lens _csSourceSnapshotName (\ s a -> s{_csSourceSnapshotName = a})  -- | A name for the snapshot copy. ElastiCache does not permit overwriting a snapshot, therefore this name must be unique within its context - ElastiCache or an Amazon S3 bucket if exporting. csTargetSnapshotName :: Lens' CopySnapshot Text-csTargetSnapshotName = lens _csTargetSnapshotName (\ s a -> s{_csTargetSnapshotName = a});+csTargetSnapshotName = lens _csTargetSnapshotName (\ s a -> s{_csTargetSnapshotName = a})  instance AWSRequest CopySnapshot where         type Rs CopySnapshot = CopySnapshotResponse@@ -178,15 +178,15 @@     -> CopySnapshotResponse copySnapshotResponse pResponseStatus_ =   CopySnapshotResponse'-  {_csrsSnapshot = Nothing, _csrsResponseStatus = pResponseStatus_}+    {_csrsSnapshot = Nothing, _csrsResponseStatus = pResponseStatus_}   -- | Undocumented member. csrsSnapshot :: Lens' CopySnapshotResponse (Maybe Snapshot)-csrsSnapshot = lens _csrsSnapshot (\ s a -> s{_csrsSnapshot = a});+csrsSnapshot = lens _csrsSnapshot (\ s a -> s{_csrsSnapshot = a})  -- | -- | The response status code. csrsResponseStatus :: Lens' CopySnapshotResponse Int-csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});+csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a})  instance NFData CopySnapshotResponse where
gen/Network/AWS/ElastiCache/CreateCacheCluster.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.CreateCacheCluster--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -154,123 +154,123 @@     -> CreateCacheCluster createCacheCluster pCacheClusterId_ =   CreateCacheCluster'-  { _cccEngineVersion = Nothing-  , _cccCacheNodeType = Nothing-  , _cccSecurityGroupIds = Nothing-  , _cccSnapshotARNs = Nothing-  , _cccAutoMinorVersionUpgrade = Nothing-  , _cccCacheParameterGroupName = Nothing-  , _cccSnapshotWindow = Nothing-  , _cccAuthToken = Nothing-  , _cccEngine = Nothing-  , _cccPreferredAvailabilityZones = Nothing-  , _cccPreferredMaintenanceWindow = Nothing-  , _cccCacheSubnetGroupName = Nothing-  , _cccPreferredAvailabilityZone = Nothing-  , _cccSnapshotRetentionLimit = Nothing-  , _cccAZMode = Nothing-  , _cccSnapshotName = Nothing-  , _cccReplicationGroupId = Nothing-  , _cccNotificationTopicARN = Nothing-  , _cccNumCacheNodes = Nothing-  , _cccTags = Nothing-  , _cccPort = Nothing-  , _cccCacheSecurityGroupNames = Nothing-  , _cccCacheClusterId = pCacheClusterId_-  }+    { _cccEngineVersion = Nothing+    , _cccCacheNodeType = Nothing+    , _cccSecurityGroupIds = Nothing+    , _cccSnapshotARNs = Nothing+    , _cccAutoMinorVersionUpgrade = Nothing+    , _cccCacheParameterGroupName = Nothing+    , _cccSnapshotWindow = Nothing+    , _cccAuthToken = Nothing+    , _cccEngine = Nothing+    , _cccPreferredAvailabilityZones = Nothing+    , _cccPreferredMaintenanceWindow = Nothing+    , _cccCacheSubnetGroupName = Nothing+    , _cccPreferredAvailabilityZone = Nothing+    , _cccSnapshotRetentionLimit = Nothing+    , _cccAZMode = Nothing+    , _cccSnapshotName = Nothing+    , _cccReplicationGroupId = Nothing+    , _cccNotificationTopicARN = Nothing+    , _cccNumCacheNodes = Nothing+    , _cccTags = Nothing+    , _cccPort = Nothing+    , _cccCacheSecurityGroupNames = Nothing+    , _cccCacheClusterId = pCacheClusterId_+    }   -- | The version number of the cache engine to be used for this cluster. To view the supported cache engine versions, use the DescribeCacheEngineVersions operation. __Important:__ You can upgrade to a newer engine version (see <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/SelectEngine.html#VersionManagement Selecting a Cache Engine and Version> ), but you cannot downgrade to an earlier engine version. If you want to use an earlier engine version, you must delete the existing cluster or replication group and create it anew with the earlier engine version. cccEngineVersion :: Lens' CreateCacheCluster (Maybe Text)-cccEngineVersion = lens _cccEngineVersion (\ s a -> s{_cccEngineVersion = a});+cccEngineVersion = lens _cccEngineVersion (\ s a -> s{_cccEngineVersion = a})  -- | The compute and memory capacity of the nodes in the node group (shard). The following node types are supported by ElastiCache. Generally speaking, the current generation types provide more memory and computational power at lower cost when compared to their equivalent previous generation counterparts.     * General purpose:     * Current generation:  __T2 node types:__ @cache.t2.micro@ , @cache.t2.small@ , @cache.t2.medium@  __M3 node types:__ @cache.m3.medium@ , @cache.m3.large@ , @cache.m3.xlarge@ , @cache.m3.2xlarge@  __M4 node types:__ @cache.m4.large@ , @cache.m4.xlarge@ , @cache.m4.2xlarge@ , @cache.m4.4xlarge@ , @cache.m4.10xlarge@      * Previous generation: (not recommended) __T1 node types:__ @cache.t1.micro@  __M1 node types:__ @cache.m1.small@ , @cache.m1.medium@ , @cache.m1.large@ , @cache.m1.xlarge@      * Compute optimized:     * Previous generation: (not recommended) __C1 node types:__ @cache.c1.xlarge@      * Memory optimized:     * Current generation:  __R3 node types:__ @cache.r3.large@ , @cache.r3.xlarge@ , @cache.r3.2xlarge@ , @cache.r3.4xlarge@ , @cache.r3.8xlarge@      * Previous generation: (not recommended) __M2 node types:__ @cache.m2.xlarge@ , @cache.m2.2xlarge@ , @cache.m2.4xlarge@  __Notes:__      * All T2 instances are created in an Amazon Virtual Private Cloud (Amazon VPC).     * Redis (cluster mode disabled): Redis backup/restore is not supported on T1 and T2 instances.      * Redis (cluster mode enabled): Backup/restore is not supported on T1 instances.     * Redis Append-only files (AOF) functionality is not supported for T1 or T2 instances. For a complete listing of node types and specifications, see <http://aws.amazon.com/elasticache/details Amazon ElastiCache Product Features and Details> and either <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Memcached.html#ParameterGroups.Memcached.NodeSpecific Cache Node Type-Specific Parameters for Memcached> or <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Redis.html#ParameterGroups.Redis.NodeSpecific Cache Node Type-Specific Parameters for Redis> . cccCacheNodeType :: Lens' CreateCacheCluster (Maybe Text)-cccCacheNodeType = lens _cccCacheNodeType (\ s a -> s{_cccCacheNodeType = a});+cccCacheNodeType = lens _cccCacheNodeType (\ s a -> s{_cccCacheNodeType = a})  -- | One or more VPC security groups associated with the cluster. Use this parameter only when you are creating a cluster in an Amazon Virtual Private Cloud (Amazon VPC). cccSecurityGroupIds :: Lens' CreateCacheCluster [Text]-cccSecurityGroupIds = lens _cccSecurityGroupIds (\ s a -> s{_cccSecurityGroupIds = a}) . _Default . _Coerce;+cccSecurityGroupIds = lens _cccSecurityGroupIds (\ s a -> s{_cccSecurityGroupIds = a}) . _Default . _Coerce  -- | 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 is used to populate the node group (shard). The Amazon S3 object name in the ARN cannot contain any commas. Example of an Amazon S3 ARN: @arn:aws:s3:::my_bucket/snapshot1.rdb@ cccSnapshotARNs :: Lens' CreateCacheCluster [Text]-cccSnapshotARNs = lens _cccSnapshotARNs (\ s a -> s{_cccSnapshotARNs = a}) . _Default . _Coerce;+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});+cccAutoMinorVersionUpgrade = lens _cccAutoMinorVersionUpgrade (\ s a -> s{_cccAutoMinorVersionUpgrade = a})  -- | The name of the parameter group to associate with this cluster. If this argument is omitted, the default parameter group for the specified engine is used. You cannot use any parameter group which has @cluster-enabled='yes'@ when creating a cluster. cccCacheParameterGroupName :: Lens' CreateCacheCluster (Maybe Text)-cccCacheParameterGroupName = lens _cccCacheParameterGroupName (\ s a -> s{_cccCacheParameterGroupName = a});+cccCacheParameterGroupName = lens _cccCacheParameterGroupName (\ s a -> s{_cccCacheParameterGroupName = a})  -- | The daily time range (in UTC) during which ElastiCache begins taking a daily snapshot of your node group (shard). Example: @05:00-09:00@  If you do not specify this parameter, ElastiCache automatically chooses an appropriate time range. cccSnapshotWindow :: Lens' CreateCacheCluster (Maybe Text)-cccSnapshotWindow = lens _cccSnapshotWindow (\ s a -> s{_cccSnapshotWindow = a});+cccSnapshotWindow = lens _cccSnapshotWindow (\ s a -> s{_cccSnapshotWindow = a})  -- | __Reserved parameter.__ The password used to access a password protected server. This parameter is valid only if:     * The parameter @TransitEncryptionEnabled@ was set to @true@ when the cluster was created.     * The line @requirepass@ was added to the database configuration file. Password constraints:     * Must be only printable ASCII characters.     * Must be at least 16 characters and no more than 128 characters in length.     * Cannot contain any of the following characters: '/', '"', or '@'.  For more information, see <http://redis.io/commands/AUTH AUTH password> at http://redis.io/commands/AUTH. cccAuthToken :: Lens' CreateCacheCluster (Maybe Text)-cccAuthToken = lens _cccAuthToken (\ s a -> s{_cccAuthToken = a});+cccAuthToken = lens _cccAuthToken (\ s a -> s{_cccAuthToken = a})  -- | The name of the cache engine to be used for this cluster. Valid values for this parameter are: @memcached@ | @redis@ cccEngine :: Lens' CreateCacheCluster (Maybe Text)-cccEngine = lens _cccEngine (\ s a -> s{_cccEngine = a});+cccEngine = lens _cccEngine (\ s a -> s{_cccEngine = a})  -- | A list of the Availability Zones in which cache nodes are created. The order of the zones in the list is not important. This option is only supported on Memcached. If you want all the nodes in the same Availability Zone, use @PreferredAvailabilityZone@ instead, or repeat the Availability Zone multiple times in the list. Default: System chosen Availability Zones. cccPreferredAvailabilityZones :: Lens' CreateCacheCluster [Text]-cccPreferredAvailabilityZones = lens _cccPreferredAvailabilityZones (\ s a -> s{_cccPreferredAvailabilityZones = a}) . _Default . _Coerce;+cccPreferredAvailabilityZones = lens _cccPreferredAvailabilityZones (\ s a -> s{_cccPreferredAvailabilityZones = a}) . _Default . _Coerce  -- | Specifies the weekly time range during which maintenance on the 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 is a 60 minute period. Valid values for @ddd@ are: Specifies the weekly time range during which maintenance on the 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 is a 60 minute period. Valid values for @ddd@ are:     * @sun@      * @mon@      * @tue@      * @wed@      * @thu@      * @fri@      * @sat@  Example: @sun:23:00-mon:01:30@ cccPreferredMaintenanceWindow :: Lens' CreateCacheCluster (Maybe Text)-cccPreferredMaintenanceWindow = lens _cccPreferredMaintenanceWindow (\ s a -> s{_cccPreferredMaintenanceWindow = a});+cccPreferredMaintenanceWindow = lens _cccPreferredMaintenanceWindow (\ s a -> s{_cccPreferredMaintenanceWindow = a})  -- | The name of the subnet group to be used for the cluster. Use this parameter only when you are creating a cluster in an Amazon Virtual Private Cloud (Amazon VPC). /Important:/ If you're going to launch your cluster in an Amazon VPC, you need to create a subnet group before you start creating a cluster. For more information, see <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/SubnetGroups.html Subnets and Subnet Groups> . cccCacheSubnetGroupName :: Lens' CreateCacheCluster (Maybe Text)-cccCacheSubnetGroupName = lens _cccCacheSubnetGroupName (\ s a -> s{_cccCacheSubnetGroupName = a});+cccCacheSubnetGroupName = lens _cccCacheSubnetGroupName (\ s a -> s{_cccCacheSubnetGroupName = a})  -- | The EC2 Availability Zone in which the cluster is created. All nodes belonging to this Memcached cluster are placed in the preferred Availability Zone. If you want to create your nodes across multiple Availability Zones, use @PreferredAvailabilityZones@ . Default: System chosen Availability Zone. cccPreferredAvailabilityZone :: Lens' CreateCacheCluster (Maybe Text)-cccPreferredAvailabilityZone = lens _cccPreferredAvailabilityZone (\ s a -> s{_cccPreferredAvailabilityZone = a});+cccPreferredAvailabilityZone = lens _cccPreferredAvailabilityZone (\ s a -> s{_cccPreferredAvailabilityZone = a})  -- | The number of days for which ElastiCache retains automatic snapshots before deleting them. For example, if you set @SnapshotRetentionLimit@ to 5, a snapshot taken today is retained for 5 days before being deleted. Default: 0 (i.e., automatic backups are disabled for this cluster). cccSnapshotRetentionLimit :: Lens' CreateCacheCluster (Maybe Int)-cccSnapshotRetentionLimit = lens _cccSnapshotRetentionLimit (\ s a -> s{_cccSnapshotRetentionLimit = a});+cccSnapshotRetentionLimit = lens _cccSnapshotRetentionLimit (\ s a -> s{_cccSnapshotRetentionLimit = a})  -- | Specifies whether the nodes in this Memcached cluster are created in a single Availability Zone or created across multiple Availability Zones in the cluster's region. This parameter is only supported for Memcached clusters. If the @AZMode@ and @PreferredAvailabilityZones@ are not specified, ElastiCache assumes @single-az@ mode. cccAZMode :: Lens' CreateCacheCluster (Maybe AZMode)-cccAZMode = lens _cccAZMode (\ s a -> s{_cccAZMode = a});+cccAZMode = lens _cccAZMode (\ s a -> s{_cccAZMode = a})  -- | The name of a Redis snapshot from which to restore data into the new node group (shard). The snapshot status changes to @restoring@ while the new node group (shard) is being created. cccSnapshotName :: Lens' CreateCacheCluster (Maybe Text)-cccSnapshotName = lens _cccSnapshotName (\ s a -> s{_cccSnapshotName = a});+cccSnapshotName = lens _cccSnapshotName (\ s a -> s{_cccSnapshotName = a})  -- | /Important:/ Due to current limitations on Redis (cluster mode disabled), this operation or parameter is not supported on Redis (cluster mode enabled) replication groups. The ID of the replication group to which this cluster should belong. If this parameter is specified, the cluster is added to the specified replication group as a read replica; otherwise, the cluster is a standalone primary that is not part of any replication group. If the specified replication group is Multi-AZ enabled and the Availability Zone is not specified, the cluster is created in Availability Zones that provide the best spread of read replicas across Availability Zones. cccReplicationGroupId :: Lens' CreateCacheCluster (Maybe Text)-cccReplicationGroupId = lens _cccReplicationGroupId (\ s a -> s{_cccReplicationGroupId = a});+cccReplicationGroupId = lens _cccReplicationGroupId (\ s a -> s{_cccReplicationGroupId = a})  -- | The Amazon Resource Name (ARN) of the Amazon Simple Notification Service (SNS) topic to which notifications are sent. cccNotificationTopicARN :: Lens' CreateCacheCluster (Maybe Text)-cccNotificationTopicARN = lens _cccNotificationTopicARN (\ s a -> s{_cccNotificationTopicARN = a});+cccNotificationTopicARN = lens _cccNotificationTopicARN (\ s a -> s{_cccNotificationTopicARN = a})  -- | The initial number of cache nodes that the cluster has. For clusters running Redis, this value must be 1. For clusters running Memcached, this value must be between 1 and 20. If you need more than 20 nodes for your Memcached cluster, please fill out the ElastiCache Limit Increase Request form at <http://aws.amazon.com/contact-us/elasticache-node-limit-request/ http://aws.amazon.com/contact-us/elasticache-node-limit-request/> . cccNumCacheNodes :: Lens' CreateCacheCluster (Maybe Int)-cccNumCacheNodes = lens _cccNumCacheNodes (\ s a -> s{_cccNumCacheNodes = a});+cccNumCacheNodes = lens _cccNumCacheNodes (\ s a -> s{_cccNumCacheNodes = a})  -- | A list of cost allocation tags to be added to this resource. cccTags :: Lens' CreateCacheCluster [Tag]-cccTags = lens _cccTags (\ s a -> s{_cccTags = a}) . _Default . _Coerce;+cccTags = lens _cccTags (\ s a -> s{_cccTags = a}) . _Default . _Coerce  -- | The port number on which each of the cache nodes accepts connections. cccPort :: Lens' CreateCacheCluster (Maybe Int)-cccPort = lens _cccPort (\ s a -> s{_cccPort = a});+cccPort = lens _cccPort (\ s a -> s{_cccPort = a})  -- | A list of security group names to associate with this cluster. Use this parameter only when you are creating a cluster outside of an Amazon Virtual Private Cloud (Amazon VPC). cccCacheSecurityGroupNames :: Lens' CreateCacheCluster [Text]-cccCacheSecurityGroupNames = lens _cccCacheSecurityGroupNames (\ s a -> s{_cccCacheSecurityGroupNames = a}) . _Default . _Coerce;+cccCacheSecurityGroupNames = lens _cccCacheSecurityGroupNames (\ s a -> s{_cccCacheSecurityGroupNames = a}) . _Default . _Coerce  -- | The node group (shard) identifier. This parameter is stored as a lowercase string. __Constraints:__      * A name must contain from 1 to 20 alphanumeric characters or hyphens.     * The first character must be a letter.     * A name cannot end with a hyphen or contain two consecutive hyphens. cccCacheClusterId :: Lens' CreateCacheCluster Text-cccCacheClusterId = lens _cccCacheClusterId (\ s a -> s{_cccCacheClusterId = a});+cccCacheClusterId = lens _cccCacheClusterId (\ s a -> s{_cccCacheClusterId = a})  instance AWSRequest CreateCacheCluster where         type Rs CreateCacheCluster =@@ -355,15 +355,15 @@     -> CreateCacheClusterResponse createCacheClusterResponse pResponseStatus_ =   CreateCacheClusterResponse'-  {_cccrsCacheCluster = Nothing, _cccrsResponseStatus = pResponseStatus_}+    {_cccrsCacheCluster = Nothing, _cccrsResponseStatus = pResponseStatus_}   -- | Undocumented member. cccrsCacheCluster :: Lens' CreateCacheClusterResponse (Maybe CacheCluster)-cccrsCacheCluster = lens _cccrsCacheCluster (\ s a -> s{_cccrsCacheCluster = a});+cccrsCacheCluster = lens _cccrsCacheCluster (\ s a -> s{_cccrsCacheCluster = a})  -- | -- | The response status code. cccrsResponseStatus :: Lens' CreateCacheClusterResponse Int-cccrsResponseStatus = lens _cccrsResponseStatus (\ s a -> s{_cccrsResponseStatus = a});+cccrsResponseStatus = lens _cccrsResponseStatus (\ s a -> s{_cccrsResponseStatus = a})  instance NFData CreateCacheClusterResponse where
gen/Network/AWS/ElastiCache/CreateCacheParameterGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.CreateCacheParameterGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -82,23 +82,23 @@     -> CreateCacheParameterGroup createCacheParameterGroup pCacheParameterGroupName_ pCacheParameterGroupFamily_ pDescription_ =   CreateCacheParameterGroup'-  { _ccpgCacheParameterGroupName = pCacheParameterGroupName_-  , _ccpgCacheParameterGroupFamily = pCacheParameterGroupFamily_-  , _ccpgDescription = pDescription_-  }+    { _ccpgCacheParameterGroupName = pCacheParameterGroupName_+    , _ccpgCacheParameterGroupFamily = pCacheParameterGroupFamily_+    , _ccpgDescription = pDescription_+    }   -- | A user-specified name for the cache parameter group. ccpgCacheParameterGroupName :: Lens' CreateCacheParameterGroup Text-ccpgCacheParameterGroupName = lens _ccpgCacheParameterGroupName (\ s a -> s{_ccpgCacheParameterGroupName = a});+ccpgCacheParameterGroupName = lens _ccpgCacheParameterGroupName (\ s a -> s{_ccpgCacheParameterGroupName = a})  -- | The name of the cache parameter group family that the cache parameter group can be used with. Valid values are: @memcached1.4@ | @redis2.6@ | @redis2.8@ | @redis3.2@ ccpgCacheParameterGroupFamily :: Lens' CreateCacheParameterGroup Text-ccpgCacheParameterGroupFamily = lens _ccpgCacheParameterGroupFamily (\ s a -> s{_ccpgCacheParameterGroupFamily = a});+ccpgCacheParameterGroupFamily = lens _ccpgCacheParameterGroupFamily (\ s a -> s{_ccpgCacheParameterGroupFamily = a})  -- | A user-specified description for the cache parameter group. ccpgDescription :: Lens' CreateCacheParameterGroup Text-ccpgDescription = lens _ccpgDescription (\ s a -> s{_ccpgDescription = a});+ccpgDescription = lens _ccpgDescription (\ s a -> s{_ccpgDescription = a})  instance AWSRequest CreateCacheParameterGroup where         type Rs CreateCacheParameterGroup =@@ -152,18 +152,18 @@     -> CreateCacheParameterGroupResponse createCacheParameterGroupResponse pResponseStatus_ =   CreateCacheParameterGroupResponse'-  { _ccpgrsCacheParameterGroup = Nothing-  , _ccpgrsResponseStatus = pResponseStatus_-  }+    { _ccpgrsCacheParameterGroup = Nothing+    , _ccpgrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. ccpgrsCacheParameterGroup :: Lens' CreateCacheParameterGroupResponse (Maybe CacheParameterGroup)-ccpgrsCacheParameterGroup = lens _ccpgrsCacheParameterGroup (\ s a -> s{_ccpgrsCacheParameterGroup = a});+ccpgrsCacheParameterGroup = lens _ccpgrsCacheParameterGroup (\ s a -> s{_ccpgrsCacheParameterGroup = a})  -- | -- | The response status code. ccpgrsResponseStatus :: Lens' CreateCacheParameterGroupResponse Int-ccpgrsResponseStatus = lens _ccpgrsResponseStatus (\ s a -> s{_ccpgrsResponseStatus = a});+ccpgrsResponseStatus = lens _ccpgrsResponseStatus (\ s a -> s{_ccpgrsResponseStatus = a})  instance NFData CreateCacheParameterGroupResponse          where
gen/Network/AWS/ElastiCache/CreateCacheSecurityGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.CreateCacheSecurityGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,18 +71,18 @@     -> CreateCacheSecurityGroup createCacheSecurityGroup pCacheSecurityGroupName_ pDescription_ =   CreateCacheSecurityGroup'-  { _ccsgCacheSecurityGroupName = pCacheSecurityGroupName_-  , _ccsgDescription = pDescription_-  }+    { _ccsgCacheSecurityGroupName = pCacheSecurityGroupName_+    , _ccsgDescription = pDescription_+    }   -- | A name for the cache security group. This value is stored as a lowercase string. Constraints: Must contain no more than 255 alphanumeric characters. Cannot be the word "Default". Example: @mysecuritygroup@ ccsgCacheSecurityGroupName :: Lens' CreateCacheSecurityGroup Text-ccsgCacheSecurityGroupName = lens _ccsgCacheSecurityGroupName (\ s a -> s{_ccsgCacheSecurityGroupName = a});+ccsgCacheSecurityGroupName = lens _ccsgCacheSecurityGroupName (\ s a -> s{_ccsgCacheSecurityGroupName = a})  -- | A description for the cache security group. ccsgDescription :: Lens' CreateCacheSecurityGroup Text-ccsgDescription = lens _ccsgDescription (\ s a -> s{_ccsgDescription = a});+ccsgDescription = lens _ccsgDescription (\ s a -> s{_ccsgDescription = a})  instance AWSRequest CreateCacheSecurityGroup where         type Rs CreateCacheSecurityGroup =@@ -133,18 +133,18 @@     -> CreateCacheSecurityGroupResponse createCacheSecurityGroupResponse pResponseStatus_ =   CreateCacheSecurityGroupResponse'-  { _ccsgrsCacheSecurityGroup = Nothing-  , _ccsgrsResponseStatus = pResponseStatus_-  }+    { _ccsgrsCacheSecurityGroup = Nothing+    , _ccsgrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. ccsgrsCacheSecurityGroup :: Lens' CreateCacheSecurityGroupResponse (Maybe CacheSecurityGroup)-ccsgrsCacheSecurityGroup = lens _ccsgrsCacheSecurityGroup (\ s a -> s{_ccsgrsCacheSecurityGroup = a});+ccsgrsCacheSecurityGroup = lens _ccsgrsCacheSecurityGroup (\ s a -> s{_ccsgrsCacheSecurityGroup = a})  -- | -- | The response status code. ccsgrsResponseStatus :: Lens' CreateCacheSecurityGroupResponse Int-ccsgrsResponseStatus = lens _ccsgrsResponseStatus (\ s a -> s{_ccsgrsResponseStatus = a});+ccsgrsResponseStatus = lens _ccsgrsResponseStatus (\ s a -> s{_ccsgrsResponseStatus = a})  instance NFData CreateCacheSecurityGroupResponse          where
gen/Network/AWS/ElastiCache/CreateCacheSubnetGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.CreateCacheSubnetGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,23 +75,23 @@     -> CreateCacheSubnetGroup createCacheSubnetGroup pCacheSubnetGroupName_ pCacheSubnetGroupDescription_ =   CreateCacheSubnetGroup'-  { _ccsgCacheSubnetGroupName = pCacheSubnetGroupName_-  , _ccsgCacheSubnetGroupDescription = pCacheSubnetGroupDescription_-  , _ccsgSubnetIds = mempty-  }+    { _ccsgCacheSubnetGroupName = pCacheSubnetGroupName_+    , _ccsgCacheSubnetGroupDescription = pCacheSubnetGroupDescription_+    , _ccsgSubnetIds = mempty+    }   -- | A name for the cache subnet group. This value is stored as a lowercase string. Constraints: Must contain no more than 255 alphanumeric characters or hyphens. Example: @mysubnetgroup@ ccsgCacheSubnetGroupName :: Lens' CreateCacheSubnetGroup Text-ccsgCacheSubnetGroupName = lens _ccsgCacheSubnetGroupName (\ s a -> s{_ccsgCacheSubnetGroupName = a});+ccsgCacheSubnetGroupName = lens _ccsgCacheSubnetGroupName (\ s a -> s{_ccsgCacheSubnetGroupName = a})  -- | A description for the cache subnet group. ccsgCacheSubnetGroupDescription :: Lens' CreateCacheSubnetGroup Text-ccsgCacheSubnetGroupDescription = lens _ccsgCacheSubnetGroupDescription (\ s a -> s{_ccsgCacheSubnetGroupDescription = a});+ccsgCacheSubnetGroupDescription = lens _ccsgCacheSubnetGroupDescription (\ s a -> s{_ccsgCacheSubnetGroupDescription = a})  -- | A list of VPC subnet IDs for the cache subnet group. ccsgSubnetIds :: Lens' CreateCacheSubnetGroup [Text]-ccsgSubnetIds = lens _ccsgSubnetIds (\ s a -> s{_ccsgSubnetIds = a}) . _Coerce;+ccsgSubnetIds = lens _ccsgSubnetIds (\ s a -> s{_ccsgSubnetIds = a}) . _Coerce  instance AWSRequest CreateCacheSubnetGroup where         type Rs CreateCacheSubnetGroup =@@ -144,15 +144,15 @@     -> CreateCacheSubnetGroupResponse createCacheSubnetGroupResponse pResponseStatus_ =   CreateCacheSubnetGroupResponse'-  {_crsCacheSubnetGroup = Nothing, _crsResponseStatus = pResponseStatus_}+    {_crsCacheSubnetGroup = Nothing, _crsResponseStatus = pResponseStatus_}   -- | Undocumented member. crsCacheSubnetGroup :: Lens' CreateCacheSubnetGroupResponse (Maybe CacheSubnetGroup)-crsCacheSubnetGroup = lens _crsCacheSubnetGroup (\ s a -> s{_crsCacheSubnetGroup = a});+crsCacheSubnetGroup = lens _crsCacheSubnetGroup (\ s a -> s{_crsCacheSubnetGroup = a})  -- | -- | The response status code. crsResponseStatus :: Lens' CreateCacheSubnetGroupResponse Int-crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a})  instance NFData CreateCacheSubnetGroupResponse where
gen/Network/AWS/ElastiCache/CreateReplicationGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.CreateReplicationGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -179,148 +179,148 @@     -> CreateReplicationGroup createReplicationGroup pReplicationGroupId_ pReplicationGroupDescription_ =   CreateReplicationGroup'-  { _crgAutomaticFailoverEnabled = Nothing-  , _crgEngineVersion = Nothing-  , _crgCacheNodeType = Nothing-  , _crgNodeGroupConfiguration = Nothing-  , _crgAtRestEncryptionEnabled = Nothing-  , _crgSecurityGroupIds = Nothing-  , _crgSnapshotARNs = Nothing-  , _crgAutoMinorVersionUpgrade = Nothing-  , _crgCacheParameterGroupName = Nothing-  , _crgTransitEncryptionEnabled = Nothing-  , _crgSnapshotWindow = Nothing-  , _crgAuthToken = Nothing-  , _crgPrimaryClusterId = Nothing-  , _crgEngine = Nothing-  , _crgPreferredMaintenanceWindow = Nothing-  , _crgCacheSubnetGroupName = Nothing-  , _crgNumNodeGroups = Nothing-  , _crgSnapshotRetentionLimit = Nothing-  , _crgReplicasPerNodeGroup = Nothing-  , _crgNumCacheClusters = Nothing-  , _crgPreferredCacheClusterAZs = Nothing-  , _crgSnapshotName = Nothing-  , _crgNotificationTopicARN = Nothing-  , _crgTags = Nothing-  , _crgPort = Nothing-  , _crgCacheSecurityGroupNames = Nothing-  , _crgReplicationGroupId = pReplicationGroupId_-  , _crgReplicationGroupDescription = pReplicationGroupDescription_-  }+    { _crgAutomaticFailoverEnabled = Nothing+    , _crgEngineVersion = Nothing+    , _crgCacheNodeType = Nothing+    , _crgNodeGroupConfiguration = Nothing+    , _crgAtRestEncryptionEnabled = Nothing+    , _crgSecurityGroupIds = Nothing+    , _crgSnapshotARNs = Nothing+    , _crgAutoMinorVersionUpgrade = Nothing+    , _crgCacheParameterGroupName = Nothing+    , _crgTransitEncryptionEnabled = Nothing+    , _crgSnapshotWindow = Nothing+    , _crgAuthToken = Nothing+    , _crgPrimaryClusterId = Nothing+    , _crgEngine = Nothing+    , _crgPreferredMaintenanceWindow = Nothing+    , _crgCacheSubnetGroupName = Nothing+    , _crgNumNodeGroups = Nothing+    , _crgSnapshotRetentionLimit = Nothing+    , _crgReplicasPerNodeGroup = Nothing+    , _crgNumCacheClusters = Nothing+    , _crgPreferredCacheClusterAZs = Nothing+    , _crgSnapshotName = Nothing+    , _crgNotificationTopicARN = Nothing+    , _crgTags = Nothing+    , _crgPort = Nothing+    , _crgCacheSecurityGroupNames = Nothing+    , _crgReplicationGroupId = pReplicationGroupId_+    , _crgReplicationGroupDescription = pReplicationGroupDescription_+    }   -- | Specifies whether a read-only replica is automatically promoted to read/write primary if the existing primary fails. If @true@ , Multi-AZ is enabled for this replication group. If @false@ , Multi-AZ is disabled for this replication group. @AutomaticFailoverEnabled@ must be enabled for Redis (cluster mode enabled) replication groups. Default: false Amazon ElastiCache for Redis does not support Multi-AZ with automatic failover on:     * Redis versions earlier than 2.8.6.     * Redis (cluster mode disabled): T1 and T2 cache node types.     * Redis (cluster mode enabled): T1 node types. crgAutomaticFailoverEnabled :: Lens' CreateReplicationGroup (Maybe Bool)-crgAutomaticFailoverEnabled = lens _crgAutomaticFailoverEnabled (\ s a -> s{_crgAutomaticFailoverEnabled = a});+crgAutomaticFailoverEnabled = lens _crgAutomaticFailoverEnabled (\ s a -> s{_crgAutomaticFailoverEnabled = a})  -- | The version number of the cache engine to be used for the clusters in this replication group. To view the supported cache engine versions, use the @DescribeCacheEngineVersions@ operation. __Important:__ You can upgrade to a newer engine version (see <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/SelectEngine.html#VersionManagement Selecting a Cache Engine and Version> ) in the /ElastiCache User Guide/ , but you cannot downgrade to an earlier engine version. If you want to use an earlier engine version, you must delete the existing cluster or replication group and create it anew with the earlier engine version. crgEngineVersion :: Lens' CreateReplicationGroup (Maybe Text)-crgEngineVersion = lens _crgEngineVersion (\ s a -> s{_crgEngineVersion = a});+crgEngineVersion = lens _crgEngineVersion (\ s a -> s{_crgEngineVersion = a})  -- | The compute and memory capacity of the nodes in the node group (shard). The following node types are supported by ElastiCache. Generally speaking, the current generation types provide more memory and computational power at lower cost when compared to their equivalent previous generation counterparts.     * General purpose:     * Current generation:  __T2 node types:__ @cache.t2.micro@ , @cache.t2.small@ , @cache.t2.medium@  __M3 node types:__ @cache.m3.medium@ , @cache.m3.large@ , @cache.m3.xlarge@ , @cache.m3.2xlarge@  __M4 node types:__ @cache.m4.large@ , @cache.m4.xlarge@ , @cache.m4.2xlarge@ , @cache.m4.4xlarge@ , @cache.m4.10xlarge@      * Previous generation: (not recommended) __T1 node types:__ @cache.t1.micro@  __M1 node types:__ @cache.m1.small@ , @cache.m1.medium@ , @cache.m1.large@ , @cache.m1.xlarge@      * Compute optimized:     * Previous generation: (not recommended) __C1 node types:__ @cache.c1.xlarge@      * Memory optimized:     * Current generation:  __R3 node types:__ @cache.r3.large@ , @cache.r3.xlarge@ , @cache.r3.2xlarge@ , @cache.r3.4xlarge@ , @cache.r3.8xlarge@      * Previous generation: (not recommended) __M2 node types:__ @cache.m2.xlarge@ , @cache.m2.2xlarge@ , @cache.m2.4xlarge@  __Notes:__      * All T2 instances are created in an Amazon Virtual Private Cloud (Amazon VPC).     * Redis (cluster mode disabled): Redis backup/restore is not supported on T1 and T2 instances.      * Redis (cluster mode enabled): Backup/restore is not supported on T1 instances.     * Redis Append-only files (AOF) functionality is not supported for T1 or T2 instances. For a complete listing of node types and specifications, see <http://aws.amazon.com/elasticache/details Amazon ElastiCache Product Features and Details> and either <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Memcached.html#ParameterGroups.Memcached.NodeSpecific Cache Node Type-Specific Parameters for Memcached> or <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Redis.html#ParameterGroups.Redis.NodeSpecific Cache Node Type-Specific Parameters for Redis> . crgCacheNodeType :: Lens' CreateReplicationGroup (Maybe Text)-crgCacheNodeType = lens _crgCacheNodeType (\ s a -> s{_crgCacheNodeType = a});+crgCacheNodeType = lens _crgCacheNodeType (\ s a -> s{_crgCacheNodeType = a})  -- | A list of node group (shard) configuration options. Each node group (shard) configuration has the following: Slots, PrimaryAvailabilityZone, ReplicaAvailabilityZones, ReplicaCount. If you're creating a Redis (cluster mode disabled) or a Redis (cluster mode enabled) replication group, you can use this parameter to individually configure each node group (shard), or you can omit this parameter. crgNodeGroupConfiguration :: Lens' CreateReplicationGroup [NodeGroupConfiguration]-crgNodeGroupConfiguration = lens _crgNodeGroupConfiguration (\ s a -> s{_crgNodeGroupConfiguration = a}) . _Default . _Coerce;+crgNodeGroupConfiguration = lens _crgNodeGroupConfiguration (\ s a -> s{_crgNodeGroupConfiguration = a}) . _Default . _Coerce  -- | A flag that enables encryption at rest when set to @true@ . You cannot modify the value of @AtRestEncryptionEnabled@ after the replication group is created. To enable encryption at rest on a replication group you must set @AtRestEncryptionEnabled@ to @true@ when you create the replication group.  Default: @false@ crgAtRestEncryptionEnabled :: Lens' CreateReplicationGroup (Maybe Bool)-crgAtRestEncryptionEnabled = lens _crgAtRestEncryptionEnabled (\ s a -> s{_crgAtRestEncryptionEnabled = a});+crgAtRestEncryptionEnabled = lens _crgAtRestEncryptionEnabled (\ s a -> s{_crgAtRestEncryptionEnabled = a})  -- | One or more Amazon VPC security groups associated with this replication group. Use this parameter only when you are creating a replication group in an Amazon Virtual Private Cloud (Amazon VPC). crgSecurityGroupIds :: Lens' CreateReplicationGroup [Text]-crgSecurityGroupIds = lens _crgSecurityGroupIds (\ s a -> s{_crgSecurityGroupIds = a}) . _Default . _Coerce;+crgSecurityGroupIds = lens _crgSecurityGroupIds (\ s a -> s{_crgSecurityGroupIds = a}) . _Default . _Coerce  -- | A list of Amazon Resource Names (ARN) that uniquely identify the Redis RDB snapshot files stored in Amazon S3. The snapshot files are used to populate the new replication group. The Amazon S3 object name in the ARN cannot contain any commas. The new replication group will have the number of node groups (console: shards) specified by the parameter /NumNodeGroups/ or the number of node groups configured by /NodeGroupConfiguration/ regardless of the number of ARNs specified here. Example of an Amazon S3 ARN: @arn:aws:s3:::my_bucket/snapshot1.rdb@ crgSnapshotARNs :: Lens' CreateReplicationGroup [Text]-crgSnapshotARNs = lens _crgSnapshotARNs (\ s a -> s{_crgSnapshotARNs = a}) . _Default . _Coerce;+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});+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. If you are running Redis version 3.2.4 or later, only one node group (shard), and want to use a default parameter group, we recommend that you specify the parameter group by name.      * To create a Redis (cluster mode disabled) replication group, use @CacheParameterGroupName=default.redis3.2@ .     * To create a Redis (cluster mode enabled) replication group, use @CacheParameterGroupName=default.redis3.2.cluster.on@ . crgCacheParameterGroupName :: Lens' CreateReplicationGroup (Maybe Text)-crgCacheParameterGroupName = lens _crgCacheParameterGroupName (\ s a -> s{_crgCacheParameterGroupName = a});+crgCacheParameterGroupName = lens _crgCacheParameterGroupName (\ s a -> s{_crgCacheParameterGroupName = a})  -- | A flag that enables in-transit encryption when set to @true@ . You cannot modify the value of @TransitEncryptionEnabled@ after the cluster is created. To enable in-transit encryption on a cluster you must set @TransitEncryptionEnabled@ to @true@ when you create a cluster. This parameter is valid only if the @Engine@ parameter is @redis@ , the @EngineVersion@ parameter is @3.2.4@ or later, and the cluster is being created in an Amazon VPC. If you enable in-transit encryption, you must also specify a value for @CacheSubnetGroup@ . Default: @false@ crgTransitEncryptionEnabled :: Lens' CreateReplicationGroup (Maybe Bool)-crgTransitEncryptionEnabled = lens _crgTransitEncryptionEnabled (\ s a -> s{_crgTransitEncryptionEnabled = a});+crgTransitEncryptionEnabled = lens _crgTransitEncryptionEnabled (\ s a -> s{_crgTransitEncryptionEnabled = a})  -- | The daily time range (in UTC) during which ElastiCache begins taking a daily snapshot of your node group (shard). Example: @05:00-09:00@  If you do not specify this parameter, ElastiCache automatically chooses an appropriate time range. crgSnapshotWindow :: Lens' CreateReplicationGroup (Maybe Text)-crgSnapshotWindow = lens _crgSnapshotWindow (\ s a -> s{_crgSnapshotWindow = a});+crgSnapshotWindow = lens _crgSnapshotWindow (\ s a -> s{_crgSnapshotWindow = a})  -- | __Reserved parameter.__ The password used to access a password protected server. This parameter is valid only if:     * The parameter @TransitEncryptionEnabled@ was set to @true@ when the cluster was created.     * The line @requirepass@ was added to the database configuration file. Password constraints:     * Must be only printable ASCII characters.     * Must be at least 16 characters and no more than 128 characters in length.     * Cannot contain any of the following characters: '/', '"', or '@'.  For more information, see <http://redis.io/commands/AUTH AUTH password> at http://redis.io/commands/AUTH. crgAuthToken :: Lens' CreateReplicationGroup (Maybe Text)-crgAuthToken = lens _crgAuthToken (\ s a -> s{_crgAuthToken = a});+crgAuthToken = lens _crgAuthToken (\ s a -> s{_crgAuthToken = a})  -- | The identifier of the cluster that serves as the primary for this replication group. This cluster must already exist and have a status of @available@ . This parameter is not required if @NumCacheClusters@ , @NumNodeGroups@ , or @ReplicasPerNodeGroup@ is specified. crgPrimaryClusterId :: Lens' CreateReplicationGroup (Maybe Text)-crgPrimaryClusterId = lens _crgPrimaryClusterId (\ s a -> s{_crgPrimaryClusterId = a});+crgPrimaryClusterId = lens _crgPrimaryClusterId (\ s a -> s{_crgPrimaryClusterId = a})  -- | The name of the cache engine to be used for the clusters in this replication group. crgEngine :: Lens' CreateReplicationGroup (Maybe Text)-crgEngine = lens _crgEngine (\ s a -> s{_crgEngine = a});+crgEngine = lens _crgEngine (\ s a -> s{_crgEngine = a})  -- | Specifies the weekly time range during which maintenance on the 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 is a 60 minute period. Valid values for @ddd@ are: Specifies the weekly time range during which maintenance on the 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 is a 60 minute period. Valid values for @ddd@ are:     * @sun@      * @mon@      * @tue@      * @wed@      * @thu@      * @fri@      * @sat@  Example: @sun:23:00-mon:01:30@ crgPreferredMaintenanceWindow :: Lens' CreateReplicationGroup (Maybe Text)-crgPreferredMaintenanceWindow = lens _crgPreferredMaintenanceWindow (\ s a -> s{_crgPreferredMaintenanceWindow = a});+crgPreferredMaintenanceWindow = lens _crgPreferredMaintenanceWindow (\ s a -> s{_crgPreferredMaintenanceWindow = a})  -- | The name of the cache subnet group to be used for the replication group. /Important:/ If you're going to launch your cluster in an Amazon VPC, you need to create a subnet group before you start creating a cluster. For more information, see <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/SubnetGroups.html Subnets and Subnet Groups> . crgCacheSubnetGroupName :: Lens' CreateReplicationGroup (Maybe Text)-crgCacheSubnetGroupName = lens _crgCacheSubnetGroupName (\ s a -> s{_crgCacheSubnetGroupName = a});+crgCacheSubnetGroupName = lens _crgCacheSubnetGroupName (\ s a -> s{_crgCacheSubnetGroupName = a})  -- | An optional parameter that specifies the number of node groups (shards) for this Redis (cluster mode enabled) replication group. For Redis (cluster mode disabled) either omit this parameter or set it to 1. Default: 1 crgNumNodeGroups :: Lens' CreateReplicationGroup (Maybe Int)-crgNumNodeGroups = lens _crgNumNodeGroups (\ s a -> s{_crgNumNodeGroups = a});+crgNumNodeGroups = lens _crgNumNodeGroups (\ s a -> s{_crgNumNodeGroups = a})  -- | The number of days for which ElastiCache retains automatic snapshots before deleting them. For example, if you set @SnapshotRetentionLimit@ to 5, a snapshot that was taken today is retained for 5 days before being deleted. Default: 0 (i.e., automatic backups are disabled for this cluster). crgSnapshotRetentionLimit :: Lens' CreateReplicationGroup (Maybe Int)-crgSnapshotRetentionLimit = lens _crgSnapshotRetentionLimit (\ s a -> s{_crgSnapshotRetentionLimit = a});+crgSnapshotRetentionLimit = lens _crgSnapshotRetentionLimit (\ s a -> s{_crgSnapshotRetentionLimit = a})  -- | An optional parameter that specifies the number of replica nodes in each node group (shard). Valid values are 0 to 5. crgReplicasPerNodeGroup :: Lens' CreateReplicationGroup (Maybe Int)-crgReplicasPerNodeGroup = lens _crgReplicasPerNodeGroup (\ s a -> s{_crgReplicasPerNodeGroup = a});+crgReplicasPerNodeGroup = lens _crgReplicasPerNodeGroup (\ s a -> s{_crgReplicasPerNodeGroup = a})  -- | The number of clusters this replication group initially has. This parameter is not used if there is more than one node group (shard). You should use @ReplicasPerNodeGroup@ instead. If @AutomaticFailoverEnabled@ is @true@ , the value of this parameter must be at least 2. If @AutomaticFailoverEnabled@ is @false@ you can omit this parameter (it will default to 1), or you can explicitly set it to a value between 2 and 6. The maximum permitted value for @NumCacheClusters@ is 6 (primary plus 5 replicas). crgNumCacheClusters :: Lens' CreateReplicationGroup (Maybe Int)-crgNumCacheClusters = lens _crgNumCacheClusters (\ s a -> s{_crgNumCacheClusters = a});+crgNumCacheClusters = lens _crgNumCacheClusters (\ s a -> s{_crgNumCacheClusters = a})  -- | A list of EC2 Availability Zones in which the replication group's clusters are created. The order of the Availability Zones in the list is the order in which clusters are allocated. The primary cluster is created in the first AZ in the list. This parameter is not used if there is more than one node group (shard). You should use @NodeGroupConfiguration@ instead. Default: system chosen Availability Zones. crgPreferredCacheClusterAZs :: Lens' CreateReplicationGroup [Text]-crgPreferredCacheClusterAZs = lens _crgPreferredCacheClusterAZs (\ s a -> s{_crgPreferredCacheClusterAZs = a}) . _Default . _Coerce;+crgPreferredCacheClusterAZs = lens _crgPreferredCacheClusterAZs (\ s a -> s{_crgPreferredCacheClusterAZs = a}) . _Default . _Coerce  -- | The name of a snapshot from which to restore data into the new replication group. The snapshot status changes to @restoring@ while the new replication group is being created. crgSnapshotName :: Lens' CreateReplicationGroup (Maybe Text)-crgSnapshotName = lens _crgSnapshotName (\ s a -> s{_crgSnapshotName = a});+crgSnapshotName = lens _crgSnapshotName (\ s a -> s{_crgSnapshotName = a})  -- | The Amazon Resource Name (ARN) of the Amazon Simple Notification Service (SNS) topic to which notifications are sent. crgNotificationTopicARN :: Lens' CreateReplicationGroup (Maybe Text)-crgNotificationTopicARN = lens _crgNotificationTopicARN (\ s a -> s{_crgNotificationTopicARN = a});+crgNotificationTopicARN = lens _crgNotificationTopicARN (\ s a -> s{_crgNotificationTopicARN = a})  -- | A list of cost allocation tags to be added to this resource. A tag is a key-value pair. A tag key does not have to be accompanied by a tag value. crgTags :: Lens' CreateReplicationGroup [Tag]-crgTags = lens _crgTags (\ s a -> s{_crgTags = a}) . _Default . _Coerce;+crgTags = lens _crgTags (\ s a -> s{_crgTags = a}) . _Default . _Coerce  -- | The port number on which each member of the replication group accepts connections. crgPort :: Lens' CreateReplicationGroup (Maybe Int)-crgPort = lens _crgPort (\ s a -> s{_crgPort = a});+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;+crgCacheSecurityGroupNames = lens _crgCacheSecurityGroupNames (\ s a -> s{_crgCacheSecurityGroupNames = a}) . _Default . _Coerce  -- | The replication group identifier. This parameter is stored as a lowercase string. Constraints:     * A name must contain from 1 to 20 alphanumeric characters or hyphens.     * The first character must be a letter.     * A name cannot end with a hyphen or contain two consecutive hyphens. crgReplicationGroupId :: Lens' CreateReplicationGroup Text-crgReplicationGroupId = lens _crgReplicationGroupId (\ s a -> s{_crgReplicationGroupId = a});+crgReplicationGroupId = lens _crgReplicationGroupId (\ s a -> s{_crgReplicationGroupId = a})  -- | A user-created description for the replication group. crgReplicationGroupDescription :: Lens' CreateReplicationGroup Text-crgReplicationGroupDescription = lens _crgReplicationGroupDescription (\ s a -> s{_crgReplicationGroupDescription = a});+crgReplicationGroupDescription = lens _crgReplicationGroupDescription (\ s a -> s{_crgReplicationGroupDescription = a})  instance AWSRequest CreateReplicationGroup where         type Rs CreateReplicationGroup =@@ -418,15 +418,15 @@     -> CreateReplicationGroupResponse createReplicationGroupResponse pResponseStatus_ =   CreateReplicationGroupResponse'-  {_crgrsReplicationGroup = Nothing, _crgrsResponseStatus = pResponseStatus_}+    {_crgrsReplicationGroup = Nothing, _crgrsResponseStatus = pResponseStatus_}   -- | Undocumented member. crgrsReplicationGroup :: Lens' CreateReplicationGroupResponse (Maybe ReplicationGroup)-crgrsReplicationGroup = lens _crgrsReplicationGroup (\ s a -> s{_crgrsReplicationGroup = a});+crgrsReplicationGroup = lens _crgrsReplicationGroup (\ s a -> s{_crgrsReplicationGroup = a})  -- | -- | The response status code. crgrsResponseStatus :: Lens' CreateReplicationGroupResponse Int-crgrsResponseStatus = lens _crgrsResponseStatus (\ s a -> s{_crgrsResponseStatus = a});+crgrsResponseStatus = lens _crgrsResponseStatus (\ s a -> s{_crgrsResponseStatus = a})  instance NFData CreateReplicationGroupResponse where
gen/Network/AWS/ElastiCache/CreateSnapshot.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.CreateSnapshot--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,23 +72,23 @@     -> CreateSnapshot createSnapshot pSnapshotName_ =   CreateSnapshot'-  { _csCacheClusterId = Nothing-  , _csReplicationGroupId = Nothing-  , _csSnapshotName = pSnapshotName_-  }+    { _csCacheClusterId = Nothing+    , _csReplicationGroupId = Nothing+    , _csSnapshotName = pSnapshotName_+    }   -- | The identifier of an existing cluster. The snapshot is created from this cluster. csCacheClusterId :: Lens' CreateSnapshot (Maybe Text)-csCacheClusterId = lens _csCacheClusterId (\ s a -> s{_csCacheClusterId = a});+csCacheClusterId = lens _csCacheClusterId (\ s a -> s{_csCacheClusterId = a})  -- | The identifier of an existing replication group. The snapshot is created from this replication group. csReplicationGroupId :: Lens' CreateSnapshot (Maybe Text)-csReplicationGroupId = lens _csReplicationGroupId (\ s a -> s{_csReplicationGroupId = a});+csReplicationGroupId = lens _csReplicationGroupId (\ s a -> s{_csReplicationGroupId = a})  -- | A name for the snapshot being created. csSnapshotName :: Lens' CreateSnapshot Text-csSnapshotName = lens _csSnapshotName (\ s a -> s{_csSnapshotName = a});+csSnapshotName = lens _csSnapshotName (\ s a -> s{_csSnapshotName = a})  instance AWSRequest CreateSnapshot where         type Rs CreateSnapshot = CreateSnapshotResponse@@ -137,15 +137,15 @@     -> CreateSnapshotResponse createSnapshotResponse pResponseStatus_ =   CreateSnapshotResponse'-  {_crersSnapshot = Nothing, _crersResponseStatus = pResponseStatus_}+    {_crersSnapshot = Nothing, _crersResponseStatus = pResponseStatus_}   -- | Undocumented member. crersSnapshot :: Lens' CreateSnapshotResponse (Maybe Snapshot)-crersSnapshot = lens _crersSnapshot (\ s a -> s{_crersSnapshot = a});+crersSnapshot = lens _crersSnapshot (\ s a -> s{_crersSnapshot = a})  -- | -- | The response status code. crersResponseStatus :: Lens' CreateSnapshotResponse Int-crersResponseStatus = lens _crersResponseStatus (\ s a -> s{_crersResponseStatus = a});+crersResponseStatus = lens _crersResponseStatus (\ s a -> s{_crersResponseStatus = a})  instance NFData CreateSnapshotResponse where
gen/Network/AWS/ElastiCache/DeleteCacheCluster.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DeleteCacheCluster--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,16 +72,18 @@     -> DeleteCacheCluster deleteCacheCluster pCacheClusterId_ =   DeleteCacheCluster'-  {_dccFinalSnapshotIdentifier = Nothing, _dccCacheClusterId = pCacheClusterId_}+    { _dccFinalSnapshotIdentifier = Nothing+    , _dccCacheClusterId = pCacheClusterId_+    }   -- | The user-supplied name of a final cluster snapshot. This is the unique name that identifies the snapshot. ElastiCache creates the snapshot, and then deletes the cluster immediately afterward. dccFinalSnapshotIdentifier :: Lens' DeleteCacheCluster (Maybe Text)-dccFinalSnapshotIdentifier = lens _dccFinalSnapshotIdentifier (\ s a -> s{_dccFinalSnapshotIdentifier = a});+dccFinalSnapshotIdentifier = lens _dccFinalSnapshotIdentifier (\ s a -> s{_dccFinalSnapshotIdentifier = a})  -- | The cluster identifier for the cluster to be deleted. This parameter is not case sensitive. dccCacheClusterId :: Lens' DeleteCacheCluster Text-dccCacheClusterId = lens _dccCacheClusterId (\ s a -> s{_dccCacheClusterId = a});+dccCacheClusterId = lens _dccCacheClusterId (\ s a -> s{_dccCacheClusterId = a})  instance AWSRequest DeleteCacheCluster where         type Rs DeleteCacheCluster =@@ -131,15 +133,15 @@     -> DeleteCacheClusterResponse deleteCacheClusterResponse pResponseStatus_ =   DeleteCacheClusterResponse'-  {_dccrsCacheCluster = Nothing, _dccrsResponseStatus = pResponseStatus_}+    {_dccrsCacheCluster = Nothing, _dccrsResponseStatus = pResponseStatus_}   -- | Undocumented member. dccrsCacheCluster :: Lens' DeleteCacheClusterResponse (Maybe CacheCluster)-dccrsCacheCluster = lens _dccrsCacheCluster (\ s a -> s{_dccrsCacheCluster = a});+dccrsCacheCluster = lens _dccrsCacheCluster (\ s a -> s{_dccrsCacheCluster = a})  -- | -- | The response status code. dccrsResponseStatus :: Lens' DeleteCacheClusterResponse Int-dccrsResponseStatus = lens _dccrsResponseStatus (\ s a -> s{_dccrsResponseStatus = a});+dccrsResponseStatus = lens _dccrsResponseStatus (\ s a -> s{_dccrsResponseStatus = a})  instance NFData DeleteCacheClusterResponse where
gen/Network/AWS/ElastiCache/DeleteCacheParameterGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DeleteCacheParameterGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,12 +61,12 @@     -> DeleteCacheParameterGroup deleteCacheParameterGroup pCacheParameterGroupName_ =   DeleteCacheParameterGroup'-  {_dCacheParameterGroupName = pCacheParameterGroupName_}+    {_dCacheParameterGroupName = pCacheParameterGroupName_}   -- | The name of the cache parameter group to delete. dCacheParameterGroupName :: Lens' DeleteCacheParameterGroup Text-dCacheParameterGroupName = lens _dCacheParameterGroupName (\ s a -> s{_dCacheParameterGroupName = a});+dCacheParameterGroupName = lens _dCacheParameterGroupName (\ s a -> s{_dCacheParameterGroupName = a})  instance AWSRequest DeleteCacheParameterGroup where         type Rs DeleteCacheParameterGroup =
gen/Network/AWS/ElastiCache/DeleteCacheSecurityGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DeleteCacheSecurityGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -61,12 +61,12 @@     -> DeleteCacheSecurityGroup deleteCacheSecurityGroup pCacheSecurityGroupName_ =   DeleteCacheSecurityGroup'-  {_dcsgCacheSecurityGroupName = pCacheSecurityGroupName_}+    {_dcsgCacheSecurityGroupName = pCacheSecurityGroupName_}   -- | The name of the cache security group to delete. dcsgCacheSecurityGroupName :: Lens' DeleteCacheSecurityGroup Text-dcsgCacheSecurityGroupName = lens _dcsgCacheSecurityGroupName (\ s a -> s{_dcsgCacheSecurityGroupName = a});+dcsgCacheSecurityGroupName = lens _dcsgCacheSecurityGroupName (\ s a -> s{_dcsgCacheSecurityGroupName = a})  instance AWSRequest DeleteCacheSecurityGroup where         type Rs DeleteCacheSecurityGroup =
gen/Network/AWS/ElastiCache/DeleteCacheSubnetGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DeleteCacheSubnetGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -65,7 +65,7 @@  -- | The name of the cache subnet group to delete. Constraints: Must contain no more than 255 alphanumeric characters or hyphens. dCacheSubnetGroupName :: Lens' DeleteCacheSubnetGroup Text-dCacheSubnetGroupName = lens _dCacheSubnetGroupName (\ s a -> s{_dCacheSubnetGroupName = a});+dCacheSubnetGroupName = lens _dCacheSubnetGroupName (\ s a -> s{_dCacheSubnetGroupName = a})  instance AWSRequest DeleteCacheSubnetGroup where         type Rs DeleteCacheSubnetGroup =
gen/Network/AWS/ElastiCache/DeleteReplicationGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DeleteReplicationGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,23 +74,23 @@     -> DeleteReplicationGroup deleteReplicationGroup pReplicationGroupId_ =   DeleteReplicationGroup'-  { _drgFinalSnapshotIdentifier = Nothing-  , _drgRetainPrimaryCluster = Nothing-  , _drgReplicationGroupId = pReplicationGroupId_-  }+    { _drgFinalSnapshotIdentifier = Nothing+    , _drgRetainPrimaryCluster = Nothing+    , _drgReplicationGroupId = pReplicationGroupId_+    }   -- | The name of a final node group (shard) snapshot. ElastiCache creates the snapshot from the primary node in the cluster, rather than one of the replicas; this is to ensure that it captures the freshest data. After the final snapshot is taken, the replication group is immediately deleted. drgFinalSnapshotIdentifier :: Lens' DeleteReplicationGroup (Maybe Text)-drgFinalSnapshotIdentifier = lens _drgFinalSnapshotIdentifier (\ s a -> s{_drgFinalSnapshotIdentifier = a});+drgFinalSnapshotIdentifier = lens _drgFinalSnapshotIdentifier (\ s a -> s{_drgFinalSnapshotIdentifier = a})  -- | If set to @true@ , all of the read replicas are deleted, but the primary node is retained. drgRetainPrimaryCluster :: Lens' DeleteReplicationGroup (Maybe Bool)-drgRetainPrimaryCluster = lens _drgRetainPrimaryCluster (\ s a -> s{_drgRetainPrimaryCluster = a});+drgRetainPrimaryCluster = lens _drgRetainPrimaryCluster (\ s a -> s{_drgRetainPrimaryCluster = a})  -- | The identifier for the cluster to be deleted. This parameter is not case sensitive. drgReplicationGroupId :: Lens' DeleteReplicationGroup Text-drgReplicationGroupId = lens _drgReplicationGroupId (\ s a -> s{_drgReplicationGroupId = a});+drgReplicationGroupId = lens _drgReplicationGroupId (\ s a -> s{_drgReplicationGroupId = a})  instance AWSRequest DeleteReplicationGroup where         type Rs DeleteReplicationGroup =@@ -142,15 +142,15 @@     -> DeleteReplicationGroupResponse deleteReplicationGroupResponse pResponseStatus_ =   DeleteReplicationGroupResponse'-  {_delrsReplicationGroup = Nothing, _delrsResponseStatus = pResponseStatus_}+    {_delrsReplicationGroup = Nothing, _delrsResponseStatus = pResponseStatus_}   -- | Undocumented member. delrsReplicationGroup :: Lens' DeleteReplicationGroupResponse (Maybe ReplicationGroup)-delrsReplicationGroup = lens _delrsReplicationGroup (\ s a -> s{_delrsReplicationGroup = a});+delrsReplicationGroup = lens _delrsReplicationGroup (\ s a -> s{_delrsReplicationGroup = a})  -- | -- | The response status code. delrsResponseStatus :: Lens' DeleteReplicationGroupResponse Int-delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a})  instance NFData DeleteReplicationGroupResponse where
gen/Network/AWS/ElastiCache/DeleteSnapshot.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DeleteSnapshot--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The name of the snapshot to be deleted. dSnapshotName :: Lens' DeleteSnapshot Text-dSnapshotName = lens _dSnapshotName (\ s a -> s{_dSnapshotName = a});+dSnapshotName = lens _dSnapshotName (\ s a -> s{_dSnapshotName = a})  instance AWSRequest DeleteSnapshot where         type Rs DeleteSnapshot = DeleteSnapshotResponse@@ -115,15 +115,15 @@     -> DeleteSnapshotResponse deleteSnapshotResponse pResponseStatus_ =   DeleteSnapshotResponse'-  {_dsrsSnapshot = Nothing, _dsrsResponseStatus = pResponseStatus_}+    {_dsrsSnapshot = Nothing, _dsrsResponseStatus = pResponseStatus_}   -- | Undocumented member. dsrsSnapshot :: Lens' DeleteSnapshotResponse (Maybe Snapshot)-dsrsSnapshot = lens _dsrsSnapshot (\ s a -> s{_dsrsSnapshot = a});+dsrsSnapshot = lens _dsrsSnapshot (\ s a -> s{_dsrsSnapshot = a})  -- | -- | The response status code. dsrsResponseStatus :: Lens' DeleteSnapshotResponse Int-dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a})  instance NFData DeleteSnapshotResponse where
gen/Network/AWS/ElastiCache/DescribeCacheClusters.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DescribeCacheClusters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -93,33 +93,33 @@     :: DescribeCacheClusters describeCacheClusters =   DescribeCacheClusters'-  { _dShowCacheClustersNotInReplicationGroups = Nothing-  , _dCacheClusterId = Nothing-  , _dMarker = Nothing-  , _dMaxRecords = Nothing-  , _dShowCacheNodeInfo = Nothing-  }+    { _dShowCacheClustersNotInReplicationGroups = Nothing+    , _dCacheClusterId = Nothing+    , _dMarker = Nothing+    , _dMaxRecords = Nothing+    , _dShowCacheNodeInfo = Nothing+    }   -- | An optional flag that can be included in the @DescribeCacheCluster@ request to show only nodes (API/CLI: clusters) that are not members of a replication group. In practice, this mean Memcached and single node Redis clusters. dShowCacheClustersNotInReplicationGroups :: Lens' DescribeCacheClusters (Maybe Bool)-dShowCacheClustersNotInReplicationGroups = lens _dShowCacheClustersNotInReplicationGroups (\ s a -> s{_dShowCacheClustersNotInReplicationGroups = a});+dShowCacheClustersNotInReplicationGroups = lens _dShowCacheClustersNotInReplicationGroups (\ s a -> s{_dShowCacheClustersNotInReplicationGroups = a})  -- | The user-supplied cluster identifier. If this parameter is specified, only information about that specific cluster is returned. This parameter isn't case sensitive. dCacheClusterId :: Lens' DescribeCacheClusters (Maybe Text)-dCacheClusterId = lens _dCacheClusterId (\ s a -> s{_dCacheClusterId = a});+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 operation. 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});+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. Default: 100 Constraints: minimum 20; maximum 100. dMaxRecords :: Lens' DescribeCacheClusters (Maybe Int)-dMaxRecords = lens _dMaxRecords (\ s a -> s{_dMaxRecords = a});+dMaxRecords = lens _dMaxRecords (\ s a -> s{_dMaxRecords = 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)-dShowCacheNodeInfo = lens _dShowCacheNodeInfo (\ s a -> s{_dShowCacheNodeInfo = a});+dShowCacheNodeInfo = lens _dShowCacheNodeInfo (\ s a -> s{_dShowCacheNodeInfo = a})  instance AWSPager DescribeCacheClusters where         page rq rs@@ -187,22 +187,22 @@     -> DescribeCacheClustersResponse describeCacheClustersResponse pResponseStatus_ =   DescribeCacheClustersResponse'-  { _drsCacheClusters = Nothing-  , _drsMarker = Nothing-  , _drsResponseStatus = pResponseStatus_-  }+    { _drsCacheClusters = Nothing+    , _drsMarker = Nothing+    , _drsResponseStatus = pResponseStatus_+    }   -- | A list of clusters. Each item in the list contains detailed information about one cluster. drsCacheClusters :: Lens' DescribeCacheClustersResponse [CacheCluster]-drsCacheClusters = lens _drsCacheClusters (\ s a -> s{_drsCacheClusters = a}) . _Default . _Coerce;+drsCacheClusters = lens _drsCacheClusters (\ s a -> s{_drsCacheClusters = a}) . _Default . _Coerce  -- | Provides an identifier to allow retrieval of paginated results. drsMarker :: Lens' DescribeCacheClustersResponse (Maybe Text)-drsMarker = lens _drsMarker (\ s a -> s{_drsMarker = a});+drsMarker = lens _drsMarker (\ s a -> s{_drsMarker = a})  -- | -- | The response status code. drsResponseStatus :: Lens' DescribeCacheClustersResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DescribeCacheClustersResponse where
gen/Network/AWS/ElastiCache/DescribeCacheEngineVersions.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DescribeCacheEngineVersions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -87,38 +87,38 @@     :: DescribeCacheEngineVersions describeCacheEngineVersions =   DescribeCacheEngineVersions'-  { _dcevEngineVersion = Nothing-  , _dcevCacheParameterGroupFamily = Nothing-  , _dcevDefaultOnly = Nothing-  , _dcevEngine = Nothing-  , _dcevMarker = Nothing-  , _dcevMaxRecords = Nothing-  }+    { _dcevEngineVersion = Nothing+    , _dcevCacheParameterGroupFamily = Nothing+    , _dcevDefaultOnly = Nothing+    , _dcevEngine = 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});+dcevEngineVersion = lens _dcevEngineVersion (\ s a -> s{_dcevEngineVersion = a})  -- | The name of a specific cache parameter group family to return details for. Valid values are: @memcached1.4@ | @redis2.6@ | @redis2.8@ | @redis3.2@  Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens dcevCacheParameterGroupFamily :: Lens' DescribeCacheEngineVersions (Maybe Text)-dcevCacheParameterGroupFamily = lens _dcevCacheParameterGroupFamily (\ s a -> s{_dcevCacheParameterGroupFamily = a});+dcevCacheParameterGroupFamily = lens _dcevCacheParameterGroupFamily (\ s a -> s{_dcevCacheParameterGroupFamily = 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)-dcevDefaultOnly = lens _dcevDefaultOnly (\ s a -> s{_dcevDefaultOnly = a});+dcevDefaultOnly = lens _dcevDefaultOnly (\ s a -> s{_dcevDefaultOnly = a})  -- | The cache engine to return. Valid values: @memcached@ | @redis@ dcevEngine :: Lens' DescribeCacheEngineVersions (Maybe Text)-dcevEngine = lens _dcevEngine (\ s a -> s{_dcevEngine = a});+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 operation. 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});+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. Default: 100 Constraints: minimum 20; maximum 100. dcevMaxRecords :: Lens' DescribeCacheEngineVersions (Maybe Int)-dcevMaxRecords = lens _dcevMaxRecords (\ s a -> s{_dcevMaxRecords = a});+dcevMaxRecords = lens _dcevMaxRecords (\ s a -> s{_dcevMaxRecords = a})  instance AWSPager DescribeCacheEngineVersions where         page rq rs@@ -190,23 +190,23 @@     -> DescribeCacheEngineVersionsResponse describeCacheEngineVersionsResponse pResponseStatus_ =   DescribeCacheEngineVersionsResponse'-  { _dcevrsCacheEngineVersions = Nothing-  , _dcevrsMarker = Nothing-  , _dcevrsResponseStatus = pResponseStatus_-  }+    { _dcevrsCacheEngineVersions = Nothing+    , _dcevrsMarker = Nothing+    , _dcevrsResponseStatus = pResponseStatus_+    }   -- | A list of cache engine version details. Each element in the list contains detailed information about one cache engine version. dcevrsCacheEngineVersions :: Lens' DescribeCacheEngineVersionsResponse [CacheEngineVersion]-dcevrsCacheEngineVersions = lens _dcevrsCacheEngineVersions (\ s a -> s{_dcevrsCacheEngineVersions = a}) . _Default . _Coerce;+dcevrsCacheEngineVersions = lens _dcevrsCacheEngineVersions (\ s a -> s{_dcevrsCacheEngineVersions = a}) . _Default . _Coerce  -- | Provides an identifier to allow retrieval of paginated results. dcevrsMarker :: Lens' DescribeCacheEngineVersionsResponse (Maybe Text)-dcevrsMarker = lens _dcevrsMarker (\ s a -> s{_dcevrsMarker = a});+dcevrsMarker = lens _dcevrsMarker (\ s a -> s{_dcevrsMarker = a})  -- | -- | The response status code. dcevrsResponseStatus :: Lens' DescribeCacheEngineVersionsResponse Int-dcevrsResponseStatus = lens _dcevrsResponseStatus (\ s a -> s{_dcevrsResponseStatus = a});+dcevrsResponseStatus = lens _dcevrsResponseStatus (\ s a -> s{_dcevrsResponseStatus = a})  instance NFData DescribeCacheEngineVersionsResponse          where
gen/Network/AWS/ElastiCache/DescribeCacheParameterGroups.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DescribeCacheParameterGroups--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,23 +75,23 @@     :: DescribeCacheParameterGroups describeCacheParameterGroups =   DescribeCacheParameterGroups'-  { _dcpgCacheParameterGroupName = Nothing-  , _dcpgMarker = Nothing-  , _dcpgMaxRecords = Nothing-  }+    { _dcpgCacheParameterGroupName = 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});+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 operation. 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});+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. Default: 100 Constraints: minimum 20; maximum 100. dcpgMaxRecords :: Lens' DescribeCacheParameterGroups (Maybe Int)-dcpgMaxRecords = lens _dcpgMaxRecords (\ s a -> s{_dcpgMaxRecords = a});+dcpgMaxRecords = lens _dcpgMaxRecords (\ s a -> s{_dcpgMaxRecords = a})  instance AWSPager DescribeCacheParameterGroups where         page rq rs@@ -162,23 +162,23 @@     -> DescribeCacheParameterGroupsResponse describeCacheParameterGroupsResponse pResponseStatus_ =   DescribeCacheParameterGroupsResponse'-  { _dcpgrsCacheParameterGroups = Nothing-  , _dcpgrsMarker = Nothing-  , _dcpgrsResponseStatus = pResponseStatus_-  }+    { _dcpgrsCacheParameterGroups = Nothing+    , _dcpgrsMarker = Nothing+    , _dcpgrsResponseStatus = pResponseStatus_+    }   -- | A list of cache parameter groups. Each element in the list contains detailed information about one cache parameter group. dcpgrsCacheParameterGroups :: Lens' DescribeCacheParameterGroupsResponse [CacheParameterGroup]-dcpgrsCacheParameterGroups = lens _dcpgrsCacheParameterGroups (\ s a -> s{_dcpgrsCacheParameterGroups = a}) . _Default . _Coerce;+dcpgrsCacheParameterGroups = lens _dcpgrsCacheParameterGroups (\ s a -> s{_dcpgrsCacheParameterGroups = a}) . _Default . _Coerce  -- | Provides an identifier to allow retrieval of paginated results. dcpgrsMarker :: Lens' DescribeCacheParameterGroupsResponse (Maybe Text)-dcpgrsMarker = lens _dcpgrsMarker (\ s a -> s{_dcpgrsMarker = a});+dcpgrsMarker = lens _dcpgrsMarker (\ s a -> s{_dcpgrsMarker = a})  -- | -- | The response status code. dcpgrsResponseStatus :: Lens' DescribeCacheParameterGroupsResponse Int-dcpgrsResponseStatus = lens _dcpgrsResponseStatus (\ s a -> s{_dcpgrsResponseStatus = a});+dcpgrsResponseStatus = lens _dcpgrsResponseStatus (\ s a -> s{_dcpgrsResponseStatus = a})  instance NFData DescribeCacheParameterGroupsResponse          where
gen/Network/AWS/ElastiCache/DescribeCacheParameters.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DescribeCacheParameters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -81,28 +81,28 @@     -> DescribeCacheParameters describeCacheParameters pCacheParameterGroupName_ =   DescribeCacheParameters'-  { _dcpMarker = Nothing-  , _dcpMaxRecords = Nothing-  , _dcpSource = Nothing-  , _dcpCacheParameterGroupName = pCacheParameterGroupName_-  }+    { _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 operation. 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});+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. Default: 100 Constraints: minimum 20; maximum 100. dcpMaxRecords :: Lens' DescribeCacheParameters (Maybe Int)-dcpMaxRecords = lens _dcpMaxRecords (\ s a -> s{_dcpMaxRecords = a});+dcpMaxRecords = lens _dcpMaxRecords (\ s a -> s{_dcpMaxRecords = a})  -- | The parameter types to return. Valid values: @user@ | @system@ | @engine-default@ dcpSource :: Lens' DescribeCacheParameters (Maybe Text)-dcpSource = lens _dcpSource (\ s a -> s{_dcpSource = a});+dcpSource = lens _dcpSource (\ s a -> s{_dcpSource = a})  -- | The name of a specific cache parameter group to return details for. dcpCacheParameterGroupName :: Lens' DescribeCacheParameters Text-dcpCacheParameterGroupName = lens _dcpCacheParameterGroupName (\ s a -> s{_dcpCacheParameterGroupName = a});+dcpCacheParameterGroupName = lens _dcpCacheParameterGroupName (\ s a -> s{_dcpCacheParameterGroupName = a})  instance AWSPager DescribeCacheParameters where         page rq rs@@ -179,27 +179,27 @@     -> DescribeCacheParametersResponse describeCacheParametersResponse pResponseStatus_ =   DescribeCacheParametersResponse'-  { _dcprsCacheNodeTypeSpecificParameters = Nothing-  , _dcprsMarker = Nothing-  , _dcprsParameters = Nothing-  , _dcprsResponseStatus = pResponseStatus_-  }+    { _dcprsCacheNodeTypeSpecificParameters = Nothing+    , _dcprsMarker = Nothing+    , _dcprsParameters = Nothing+    , _dcprsResponseStatus = pResponseStatus_+    }   -- | A list of parameters specific to a particular cache node type. Each element in the list contains detailed information about one parameter. dcprsCacheNodeTypeSpecificParameters :: Lens' DescribeCacheParametersResponse [CacheNodeTypeSpecificParameter]-dcprsCacheNodeTypeSpecificParameters = lens _dcprsCacheNodeTypeSpecificParameters (\ s a -> s{_dcprsCacheNodeTypeSpecificParameters = a}) . _Default . _Coerce;+dcprsCacheNodeTypeSpecificParameters = lens _dcprsCacheNodeTypeSpecificParameters (\ s a -> s{_dcprsCacheNodeTypeSpecificParameters = 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});+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;+dcprsParameters = lens _dcprsParameters (\ s a -> s{_dcprsParameters = a}) . _Default . _Coerce  -- | -- | The response status code. dcprsResponseStatus :: Lens' DescribeCacheParametersResponse Int-dcprsResponseStatus = lens _dcprsResponseStatus (\ s a -> s{_dcprsResponseStatus = a});+dcprsResponseStatus = lens _dcprsResponseStatus (\ s a -> s{_dcprsResponseStatus = a})  instance NFData DescribeCacheParametersResponse where
gen/Network/AWS/ElastiCache/DescribeCacheSecurityGroups.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DescribeCacheSecurityGroups--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,23 +75,23 @@     :: DescribeCacheSecurityGroups describeCacheSecurityGroups =   DescribeCacheSecurityGroups'-  { _dcsgsCacheSecurityGroupName = Nothing-  , _dcsgsMarker = Nothing-  , _dcsgsMaxRecords = Nothing-  }+    { _dcsgsCacheSecurityGroupName = 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});+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 operation. 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});+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. Default: 100 Constraints: minimum 20; maximum 100. dcsgsMaxRecords :: Lens' DescribeCacheSecurityGroups (Maybe Int)-dcsgsMaxRecords = lens _dcsgsMaxRecords (\ s a -> s{_dcsgsMaxRecords = a});+dcsgsMaxRecords = lens _dcsgsMaxRecords (\ s a -> s{_dcsgsMaxRecords = a})  instance AWSPager DescribeCacheSecurityGroups where         page rq rs@@ -161,23 +161,23 @@     -> DescribeCacheSecurityGroupsResponse describeCacheSecurityGroupsResponse pResponseStatus_ =   DescribeCacheSecurityGroupsResponse'-  { _dcsgsrsCacheSecurityGroups = Nothing-  , _dcsgsrsMarker = Nothing-  , _dcsgsrsResponseStatus = pResponseStatus_-  }+    { _dcsgsrsCacheSecurityGroups = Nothing+    , _dcsgsrsMarker = Nothing+    , _dcsgsrsResponseStatus = pResponseStatus_+    }   -- | A list of cache security groups. Each element in the list contains detailed information about one group. dcsgsrsCacheSecurityGroups :: Lens' DescribeCacheSecurityGroupsResponse [CacheSecurityGroup]-dcsgsrsCacheSecurityGroups = lens _dcsgsrsCacheSecurityGroups (\ s a -> s{_dcsgsrsCacheSecurityGroups = a}) . _Default . _Coerce;+dcsgsrsCacheSecurityGroups = lens _dcsgsrsCacheSecurityGroups (\ s a -> s{_dcsgsrsCacheSecurityGroups = a}) . _Default . _Coerce  -- | Provides an identifier to allow retrieval of paginated results. dcsgsrsMarker :: Lens' DescribeCacheSecurityGroupsResponse (Maybe Text)-dcsgsrsMarker = lens _dcsgsrsMarker (\ s a -> s{_dcsgsrsMarker = a});+dcsgsrsMarker = lens _dcsgsrsMarker (\ s a -> s{_dcsgsrsMarker = a})  -- | -- | The response status code. dcsgsrsResponseStatus :: Lens' DescribeCacheSecurityGroupsResponse Int-dcsgsrsResponseStatus = lens _dcsgsrsResponseStatus (\ s a -> s{_dcsgsrsResponseStatus = a});+dcsgsrsResponseStatus = lens _dcsgsrsResponseStatus (\ s a -> s{_dcsgsrsResponseStatus = a})  instance NFData DescribeCacheSecurityGroupsResponse          where
gen/Network/AWS/ElastiCache/DescribeCacheSubnetGroups.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DescribeCacheSubnetGroups--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,23 +75,23 @@     :: DescribeCacheSubnetGroups describeCacheSubnetGroups =   DescribeCacheSubnetGroups'-  { _dcsgCacheSubnetGroupName = Nothing-  , _dcsgMarker = Nothing-  , _dcsgMaxRecords = Nothing-  }+    { _dcsgCacheSubnetGroupName = 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});+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 operation. 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});+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. Default: 100 Constraints: minimum 20; maximum 100. dcsgMaxRecords :: Lens' DescribeCacheSubnetGroups (Maybe Int)-dcsgMaxRecords = lens _dcsgMaxRecords (\ s a -> s{_dcsgMaxRecords = a});+dcsgMaxRecords = lens _dcsgMaxRecords (\ s a -> s{_dcsgMaxRecords = a})  instance AWSPager DescribeCacheSubnetGroups where         page rq rs@@ -159,23 +159,23 @@     -> DescribeCacheSubnetGroupsResponse describeCacheSubnetGroupsResponse pResponseStatus_ =   DescribeCacheSubnetGroupsResponse'-  { _dcsgrsMarker = Nothing-  , _dcsgrsCacheSubnetGroups = Nothing-  , _dcsgrsResponseStatus = pResponseStatus_-  }+    { _dcsgrsMarker = Nothing+    , _dcsgrsCacheSubnetGroups = Nothing+    , _dcsgrsResponseStatus = pResponseStatus_+    }   -- | Provides an identifier to allow retrieval of paginated results. dcsgrsMarker :: Lens' DescribeCacheSubnetGroupsResponse (Maybe Text)-dcsgrsMarker = lens _dcsgrsMarker (\ s a -> s{_dcsgrsMarker = a});+dcsgrsMarker = lens _dcsgrsMarker (\ s a -> s{_dcsgrsMarker = a})  -- | A list of cache subnet groups. Each element in the list contains detailed information about one group. dcsgrsCacheSubnetGroups :: Lens' DescribeCacheSubnetGroupsResponse [CacheSubnetGroup]-dcsgrsCacheSubnetGroups = lens _dcsgrsCacheSubnetGroups (\ s a -> s{_dcsgrsCacheSubnetGroups = a}) . _Default . _Coerce;+dcsgrsCacheSubnetGroups = lens _dcsgrsCacheSubnetGroups (\ s a -> s{_dcsgrsCacheSubnetGroups = a}) . _Default . _Coerce  -- | -- | The response status code. dcsgrsResponseStatus :: Lens' DescribeCacheSubnetGroupsResponse Int-dcsgrsResponseStatus = lens _dcsgrsResponseStatus (\ s a -> s{_dcsgrsResponseStatus = a});+dcsgrsResponseStatus = lens _dcsgrsResponseStatus (\ s a -> s{_dcsgrsResponseStatus = a})  instance NFData DescribeCacheSubnetGroupsResponse          where
gen/Network/AWS/ElastiCache/DescribeEngineDefaultParameters.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DescribeEngineDefaultParameters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,23 +75,23 @@     -> DescribeEngineDefaultParameters describeEngineDefaultParameters pCacheParameterGroupFamily_ =   DescribeEngineDefaultParameters'-  { _dedpMarker = Nothing-  , _dedpMaxRecords = Nothing-  , _dedpCacheParameterGroupFamily = pCacheParameterGroupFamily_-  }+    { _dedpMarker = Nothing+    , _dedpMaxRecords = Nothing+    , _dedpCacheParameterGroupFamily = pCacheParameterGroupFamily_+    }   -- | An optional marker returned from a prior request. Use this marker for pagination of results from this operation. 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});+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. Default: 100 Constraints: minimum 20; maximum 100. dedpMaxRecords :: Lens' DescribeEngineDefaultParameters (Maybe Int)-dedpMaxRecords = lens _dedpMaxRecords (\ s a -> s{_dedpMaxRecords = a});+dedpMaxRecords = lens _dedpMaxRecords (\ s a -> s{_dedpMaxRecords = a})  -- | The name of the cache parameter group family. Valid values are: @memcached1.4@ | @redis2.6@ | @redis2.8@ | @redis3.2@ dedpCacheParameterGroupFamily :: Lens' DescribeEngineDefaultParameters Text-dedpCacheParameterGroupFamily = lens _dedpCacheParameterGroupFamily (\ s a -> s{_dedpCacheParameterGroupFamily = a});+dedpCacheParameterGroupFamily = lens _dedpCacheParameterGroupFamily (\ s a -> s{_dedpCacheParameterGroupFamily = a})  instance AWSPager DescribeEngineDefaultParameters          where@@ -162,18 +162,18 @@     -> DescribeEngineDefaultParametersResponse describeEngineDefaultParametersResponse pResponseStatus_ pEngineDefaults_ =   DescribeEngineDefaultParametersResponse'-  { _dedprsResponseStatus = pResponseStatus_-  , _dedprsEngineDefaults = pEngineDefaults_-  }+    { _dedprsResponseStatus = pResponseStatus_+    , _dedprsEngineDefaults = pEngineDefaults_+    }   -- | -- | The response status code. dedprsResponseStatus :: Lens' DescribeEngineDefaultParametersResponse Int-dedprsResponseStatus = lens _dedprsResponseStatus (\ s a -> s{_dedprsResponseStatus = a});+dedprsResponseStatus = lens _dedprsResponseStatus (\ s a -> s{_dedprsResponseStatus = a})  -- | Undocumented member. dedprsEngineDefaults :: Lens' DescribeEngineDefaultParametersResponse EngineDefaults-dedprsEngineDefaults = lens _dedprsEngineDefaults (\ s a -> s{_dedprsEngineDefaults = a});+dedprsEngineDefaults = lens _dedprsEngineDefaults (\ s a -> s{_dedprsEngineDefaults = a})  instance NFData            DescribeEngineDefaultParametersResponse
gen/Network/AWS/ElastiCache/DescribeEvents.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DescribeEvents--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -93,43 +93,43 @@     :: DescribeEvents describeEvents =   DescribeEvents'-  { _deStartTime = Nothing-  , _deSourceType = Nothing-  , _deSourceIdentifier = Nothing-  , _deMarker = Nothing-  , _deMaxRecords = Nothing-  , _deEndTime = Nothing-  , _deDuration = Nothing-  }+    { _deStartTime = Nothing+    , _deSourceType = Nothing+    , _deSourceIdentifier = Nothing+    , _deMarker = Nothing+    , _deMaxRecords = Nothing+    , _deEndTime = Nothing+    , _deDuration = Nothing+    }   -- | The beginning of the time interval to retrieve events for, specified in ISO 8601 format. __Example:__ 2017-03-30T07:03:49.555Z deStartTime :: Lens' DescribeEvents (Maybe UTCTime)-deStartTime = lens _deStartTime (\ s a -> s{_deStartTime = a}) . mapping _Time;+deStartTime = lens _deStartTime (\ s a -> s{_deStartTime = a}) . mapping _Time  -- | The event source to retrieve events for. If no value is specified, all events are returned. deSourceType :: Lens' DescribeEvents (Maybe SourceType)-deSourceType = lens _deSourceType (\ s a -> s{_deSourceType = a});+deSourceType = lens _deSourceType (\ s a -> s{_deSourceType = a})  -- | The identifier of the event source for which events are returned. If not specified, all sources are included in the response. deSourceIdentifier :: Lens' DescribeEvents (Maybe Text)-deSourceIdentifier = lens _deSourceIdentifier (\ s a -> s{_deSourceIdentifier = a});+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 operation. 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});+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. Default: 100 Constraints: minimum 20; maximum 100. deMaxRecords :: Lens' DescribeEvents (Maybe Int)-deMaxRecords = lens _deMaxRecords (\ s a -> s{_deMaxRecords = a});+deMaxRecords = lens _deMaxRecords (\ s a -> s{_deMaxRecords = a})  -- | The end of the time interval for which to retrieve events, specified in ISO 8601 format. __Example:__ 2017-03-30T07:03:49.555Z deEndTime :: Lens' DescribeEvents (Maybe UTCTime)-deEndTime = lens _deEndTime (\ s a -> s{_deEndTime = a}) . mapping _Time;+deEndTime = lens _deEndTime (\ s a -> s{_deEndTime = a}) . mapping _Time  -- | The number of minutes worth of events to retrieve. deDuration :: Lens' DescribeEvents (Maybe Int)-deDuration = lens _deDuration (\ s a -> s{_deDuration = a});+deDuration = lens _deDuration (\ s a -> s{_deDuration = a})  instance AWSPager DescribeEvents where         page rq rs@@ -197,22 +197,22 @@     -> DescribeEventsResponse describeEventsResponse pResponseStatus_ =   DescribeEventsResponse'-  { _dersEvents = Nothing-  , _dersMarker = Nothing-  , _dersResponseStatus = pResponseStatus_-  }+    { _dersEvents = Nothing+    , _dersMarker = Nothing+    , _dersResponseStatus = pResponseStatus_+    }   -- | A list of events. Each element in the list contains detailed information about one event. dersEvents :: Lens' DescribeEventsResponse [Event]-dersEvents = lens _dersEvents (\ s a -> s{_dersEvents = a}) . _Default . _Coerce;+dersEvents = lens _dersEvents (\ s a -> s{_dersEvents = a}) . _Default . _Coerce  -- | Provides an identifier to allow retrieval of paginated results. dersMarker :: Lens' DescribeEventsResponse (Maybe Text)-dersMarker = lens _dersMarker (\ s a -> s{_dersMarker = a});+dersMarker = lens _dersMarker (\ s a -> s{_dersMarker = a})  -- | -- | The response status code. dersResponseStatus :: Lens' DescribeEventsResponse Int-dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a});+dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a})  instance NFData DescribeEventsResponse where
gen/Network/AWS/ElastiCache/DescribeReplicationGroups.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DescribeReplicationGroups--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,23 +75,23 @@     :: DescribeReplicationGroups describeReplicationGroups =   DescribeReplicationGroups'-  { _drgsMarker = Nothing-  , _drgsMaxRecords = Nothing-  , _drgsReplicationGroupId = Nothing-  }+    { _drgsMarker = Nothing+    , _drgsMaxRecords = Nothing+    , _drgsReplicationGroupId = Nothing+    }   -- | An optional marker returned from a prior request. Use this marker for pagination of results from this operation. 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});+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. Default: 100 Constraints: minimum 20; maximum 100. drgsMaxRecords :: Lens' DescribeReplicationGroups (Maybe Int)-drgsMaxRecords = lens _drgsMaxRecords (\ s a -> s{_drgsMaxRecords = a});+drgsMaxRecords = lens _drgsMaxRecords (\ s a -> s{_drgsMaxRecords = a})  -- | The identifier for the replication group to be described. This parameter is not case sensitive. If you do not specify this parameter, information about all replication groups is returned. drgsReplicationGroupId :: Lens' DescribeReplicationGroups (Maybe Text)-drgsReplicationGroupId = lens _drgsReplicationGroupId (\ s a -> s{_drgsReplicationGroupId = a});+drgsReplicationGroupId = lens _drgsReplicationGroupId (\ s a -> s{_drgsReplicationGroupId = a})  instance AWSPager DescribeReplicationGroups where         page rq rs@@ -159,23 +159,23 @@     -> DescribeReplicationGroupsResponse describeReplicationGroupsResponse pResponseStatus_ =   DescribeReplicationGroupsResponse'-  { _drgrsMarker = Nothing-  , _drgrsReplicationGroups = Nothing-  , _drgrsResponseStatus = pResponseStatus_-  }+    { _drgrsMarker = Nothing+    , _drgrsReplicationGroups = Nothing+    , _drgrsResponseStatus = pResponseStatus_+    }   -- | Provides an identifier to allow retrieval of paginated results. drgrsMarker :: Lens' DescribeReplicationGroupsResponse (Maybe Text)-drgrsMarker = lens _drgrsMarker (\ s a -> s{_drgrsMarker = a});+drgrsMarker = lens _drgrsMarker (\ s a -> s{_drgrsMarker = a})  -- | A list of replication groups. Each item in the list contains detailed information about one replication group. drgrsReplicationGroups :: Lens' DescribeReplicationGroupsResponse [ReplicationGroup]-drgrsReplicationGroups = lens _drgrsReplicationGroups (\ s a -> s{_drgrsReplicationGroups = a}) . _Default . _Coerce;+drgrsReplicationGroups = lens _drgrsReplicationGroups (\ s a -> s{_drgrsReplicationGroups = a}) . _Default . _Coerce  -- | -- | The response status code. drgrsResponseStatus :: Lens' DescribeReplicationGroupsResponse Int-drgrsResponseStatus = lens _drgrsResponseStatus (\ s a -> s{_drgrsResponseStatus = a});+drgrsResponseStatus = lens _drgrsResponseStatus (\ s a -> s{_drgrsResponseStatus = a})  instance NFData DescribeReplicationGroupsResponse          where
gen/Network/AWS/ElastiCache/DescribeReservedCacheNodes.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DescribeReservedCacheNodes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -95,48 +95,48 @@     :: DescribeReservedCacheNodes describeReservedCacheNodes =   DescribeReservedCacheNodes'-  { _drcnCacheNodeType = Nothing-  , _drcnProductDescription = Nothing-  , _drcnMarker = Nothing-  , _drcnMaxRecords = Nothing-  , _drcnReservedCacheNodeId = Nothing-  , _drcnOfferingType = Nothing-  , _drcnDuration = Nothing-  , _drcnReservedCacheNodesOfferingId = Nothing-  }+    { _drcnCacheNodeType = Nothing+    , _drcnProductDescription = Nothing+    , _drcnMarker = Nothing+    , _drcnMaxRecords = Nothing+    , _drcnReservedCacheNodeId = Nothing+    , _drcnOfferingType = Nothing+    , _drcnDuration = Nothing+    , _drcnReservedCacheNodesOfferingId = Nothing+    }   -- | The cache node type filter value. Use this parameter to show only those reservations matching the specified cache node type. The following node types are supported by ElastiCache. Generally speaking, the current generation types provide more memory and computational power at lower cost when compared to their equivalent previous generation counterparts.     * General purpose:     * Current generation:  __T2 node types:__ @cache.t2.micro@ , @cache.t2.small@ , @cache.t2.medium@  __M3 node types:__ @cache.m3.medium@ , @cache.m3.large@ , @cache.m3.xlarge@ , @cache.m3.2xlarge@  __M4 node types:__ @cache.m4.large@ , @cache.m4.xlarge@ , @cache.m4.2xlarge@ , @cache.m4.4xlarge@ , @cache.m4.10xlarge@      * Previous generation: (not recommended) __T1 node types:__ @cache.t1.micro@  __M1 node types:__ @cache.m1.small@ , @cache.m1.medium@ , @cache.m1.large@ , @cache.m1.xlarge@      * Compute optimized:     * Previous generation: (not recommended) __C1 node types:__ @cache.c1.xlarge@      * Memory optimized:     * Current generation:  __R3 node types:__ @cache.r3.large@ , @cache.r3.xlarge@ , @cache.r3.2xlarge@ , @cache.r3.4xlarge@ , @cache.r3.8xlarge@      * Previous generation: (not recommended) __M2 node types:__ @cache.m2.xlarge@ , @cache.m2.2xlarge@ , @cache.m2.4xlarge@  __Notes:__      * All T2 instances are created in an Amazon Virtual Private Cloud (Amazon VPC).     * Redis (cluster mode disabled): Redis backup/restore is not supported on T1 and T2 instances.      * Redis (cluster mode enabled): Backup/restore is not supported on T1 instances.     * Redis Append-only files (AOF) functionality is not supported for T1 or T2 instances. For a complete listing of node types and specifications, see <http://aws.amazon.com/elasticache/details Amazon ElastiCache Product Features and Details> and either <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Memcached.html#ParameterGroups.Memcached.NodeSpecific Cache Node Type-Specific Parameters for Memcached> or <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Redis.html#ParameterGroups.Redis.NodeSpecific Cache Node Type-Specific Parameters for Redis> . drcnCacheNodeType :: Lens' DescribeReservedCacheNodes (Maybe Text)-drcnCacheNodeType = lens _drcnCacheNodeType (\ s a -> s{_drcnCacheNodeType = a});+drcnCacheNodeType = lens _drcnCacheNodeType (\ s a -> s{_drcnCacheNodeType = a})  -- | The product description filter value. Use this parameter to show only those reservations matching the specified product description. drcnProductDescription :: Lens' DescribeReservedCacheNodes (Maybe Text)-drcnProductDescription = lens _drcnProductDescription (\ s a -> s{_drcnProductDescription = a});+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 operation. 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});+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. Default: 100 Constraints: minimum 20; maximum 100. drcnMaxRecords :: Lens' DescribeReservedCacheNodes (Maybe Int)-drcnMaxRecords = lens _drcnMaxRecords (\ s a -> s{_drcnMaxRecords = a});+drcnMaxRecords = lens _drcnMaxRecords (\ s a -> s{_drcnMaxRecords = 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)-drcnReservedCacheNodeId = lens _drcnReservedCacheNodeId (\ s a -> s{_drcnReservedCacheNodeId = a});+drcnReservedCacheNodeId = lens _drcnReservedCacheNodeId (\ s a -> s{_drcnReservedCacheNodeId = a})  -- | The offering type filter value. Use this parameter to show only the available offerings matching the specified offering type. Valid values: @"Light Utilization"|"Medium Utilization"|"Heavy Utilization"@ drcnOfferingType :: Lens' DescribeReservedCacheNodes (Maybe Text)-drcnOfferingType = lens _drcnOfferingType (\ s a -> s{_drcnOfferingType = a});+drcnOfferingType = lens _drcnOfferingType (\ s a -> s{_drcnOfferingType = a})  -- | The duration filter value, specified in years or seconds. Use this parameter to show only reservations for this duration. Valid Values: @1 | 3 | 31536000 | 94608000@ drcnDuration :: Lens' DescribeReservedCacheNodes (Maybe Text)-drcnDuration = lens _drcnDuration (\ s a -> s{_drcnDuration = a});+drcnDuration = lens _drcnDuration (\ s a -> s{_drcnDuration = a})  -- | The offering identifier filter value. Use this parameter to show only purchased reservations matching the specified offering identifier. drcnReservedCacheNodesOfferingId :: Lens' DescribeReservedCacheNodes (Maybe Text)-drcnReservedCacheNodesOfferingId = lens _drcnReservedCacheNodesOfferingId (\ s a -> s{_drcnReservedCacheNodesOfferingId = a});+drcnReservedCacheNodesOfferingId = lens _drcnReservedCacheNodesOfferingId (\ s a -> s{_drcnReservedCacheNodesOfferingId = a})  instance AWSPager DescribeReservedCacheNodes where         page rq rs@@ -211,23 +211,23 @@     -> DescribeReservedCacheNodesResponse describeReservedCacheNodesResponse pResponseStatus_ =   DescribeReservedCacheNodesResponse'-  { _drcnrsMarker = Nothing-  , _drcnrsReservedCacheNodes = Nothing-  , _drcnrsResponseStatus = pResponseStatus_-  }+    { _drcnrsMarker = Nothing+    , _drcnrsReservedCacheNodes = Nothing+    , _drcnrsResponseStatus = pResponseStatus_+    }   -- | Provides an identifier to allow retrieval of paginated results. drcnrsMarker :: Lens' DescribeReservedCacheNodesResponse (Maybe Text)-drcnrsMarker = lens _drcnrsMarker (\ s a -> s{_drcnrsMarker = a});+drcnrsMarker = lens _drcnrsMarker (\ s a -> s{_drcnrsMarker = a})  -- | A list of reserved cache nodes. Each element in the list contains detailed information about one node. drcnrsReservedCacheNodes :: Lens' DescribeReservedCacheNodesResponse [ReservedCacheNode]-drcnrsReservedCacheNodes = lens _drcnrsReservedCacheNodes (\ s a -> s{_drcnrsReservedCacheNodes = a}) . _Default . _Coerce;+drcnrsReservedCacheNodes = lens _drcnrsReservedCacheNodes (\ s a -> s{_drcnrsReservedCacheNodes = a}) . _Default . _Coerce  -- | -- | The response status code. drcnrsResponseStatus :: Lens' DescribeReservedCacheNodesResponse Int-drcnrsResponseStatus = lens _drcnrsResponseStatus (\ s a -> s{_drcnrsResponseStatus = a});+drcnrsResponseStatus = lens _drcnrsResponseStatus (\ s a -> s{_drcnrsResponseStatus = a})  instance NFData DescribeReservedCacheNodesResponse          where
gen/Network/AWS/ElastiCache/DescribeReservedCacheNodesOfferings.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DescribeReservedCacheNodesOfferings--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -91,43 +91,43 @@     :: DescribeReservedCacheNodesOfferings describeReservedCacheNodesOfferings =   DescribeReservedCacheNodesOfferings'-  { _drcnoCacheNodeType = Nothing-  , _drcnoProductDescription = Nothing-  , _drcnoMarker = Nothing-  , _drcnoMaxRecords = Nothing-  , _drcnoOfferingType = Nothing-  , _drcnoDuration = Nothing-  , _drcnoReservedCacheNodesOfferingId = Nothing-  }+    { _drcnoCacheNodeType = Nothing+    , _drcnoProductDescription = Nothing+    , _drcnoMarker = Nothing+    , _drcnoMaxRecords = Nothing+    , _drcnoOfferingType = Nothing+    , _drcnoDuration = Nothing+    , _drcnoReservedCacheNodesOfferingId = Nothing+    }   -- | The cache node type filter value. Use this parameter to show only the available offerings matching the specified cache node type. The following node types are supported by ElastiCache. Generally speaking, the current generation types provide more memory and computational power at lower cost when compared to their equivalent previous generation counterparts.     * General purpose:     * Current generation:  __T2 node types:__ @cache.t2.micro@ , @cache.t2.small@ , @cache.t2.medium@  __M3 node types:__ @cache.m3.medium@ , @cache.m3.large@ , @cache.m3.xlarge@ , @cache.m3.2xlarge@  __M4 node types:__ @cache.m4.large@ , @cache.m4.xlarge@ , @cache.m4.2xlarge@ , @cache.m4.4xlarge@ , @cache.m4.10xlarge@      * Previous generation: (not recommended) __T1 node types:__ @cache.t1.micro@  __M1 node types:__ @cache.m1.small@ , @cache.m1.medium@ , @cache.m1.large@ , @cache.m1.xlarge@      * Compute optimized:     * Previous generation: (not recommended) __C1 node types:__ @cache.c1.xlarge@      * Memory optimized:     * Current generation:  __R3 node types:__ @cache.r3.large@ , @cache.r3.xlarge@ , @cache.r3.2xlarge@ , @cache.r3.4xlarge@ , @cache.r3.8xlarge@      * Previous generation: (not recommended) __M2 node types:__ @cache.m2.xlarge@ , @cache.m2.2xlarge@ , @cache.m2.4xlarge@  __Notes:__      * All T2 instances are created in an Amazon Virtual Private Cloud (Amazon VPC).     * Redis (cluster mode disabled): Redis backup/restore is not supported on T1 and T2 instances.      * Redis (cluster mode enabled): Backup/restore is not supported on T1 instances.     * Redis Append-only files (AOF) functionality is not supported for T1 or T2 instances. For a complete listing of node types and specifications, see <http://aws.amazon.com/elasticache/details Amazon ElastiCache Product Features and Details> and either <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Memcached.html#ParameterGroups.Memcached.NodeSpecific Cache Node Type-Specific Parameters for Memcached> or <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Redis.html#ParameterGroups.Redis.NodeSpecific Cache Node Type-Specific Parameters for Redis> . drcnoCacheNodeType :: Lens' DescribeReservedCacheNodesOfferings (Maybe Text)-drcnoCacheNodeType = lens _drcnoCacheNodeType (\ s a -> s{_drcnoCacheNodeType = a});+drcnoCacheNodeType = lens _drcnoCacheNodeType (\ s a -> s{_drcnoCacheNodeType = a})  -- | The product description filter value. Use this parameter to show only the available offerings matching the specified product description. drcnoProductDescription :: Lens' DescribeReservedCacheNodesOfferings (Maybe Text)-drcnoProductDescription = lens _drcnoProductDescription (\ s a -> s{_drcnoProductDescription = a});+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 operation. 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});+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. Default: 100 Constraints: minimum 20; maximum 100. drcnoMaxRecords :: Lens' DescribeReservedCacheNodesOfferings (Maybe Int)-drcnoMaxRecords = lens _drcnoMaxRecords (\ s a -> s{_drcnoMaxRecords = a});+drcnoMaxRecords = lens _drcnoMaxRecords (\ s a -> s{_drcnoMaxRecords = a})  -- | The offering type filter value. Use this parameter to show only the available offerings matching the specified offering type. Valid Values: @"Light Utilization"|"Medium Utilization"|"Heavy Utilization"@ drcnoOfferingType :: Lens' DescribeReservedCacheNodesOfferings (Maybe Text)-drcnoOfferingType = lens _drcnoOfferingType (\ s a -> s{_drcnoOfferingType = a});+drcnoOfferingType = lens _drcnoOfferingType (\ s a -> s{_drcnoOfferingType = a})  -- | Duration filter value, specified in years or seconds. Use this parameter to show only reservations for a given duration. Valid Values: @1 | 3 | 31536000 | 94608000@ drcnoDuration :: Lens' DescribeReservedCacheNodesOfferings (Maybe Text)-drcnoDuration = lens _drcnoDuration (\ s a -> s{_drcnoDuration = a});+drcnoDuration = lens _drcnoDuration (\ s a -> s{_drcnoDuration = a})  -- | The offering identifier filter value. Use this parameter to show only the available offering that matches the specified reservation identifier. Example: @438012d3-4052-4cc7-b2e3-8d3372e0e706@ drcnoReservedCacheNodesOfferingId :: Lens' DescribeReservedCacheNodesOfferings (Maybe Text)-drcnoReservedCacheNodesOfferingId = lens _drcnoReservedCacheNodesOfferingId (\ s a -> s{_drcnoReservedCacheNodesOfferingId = a});+drcnoReservedCacheNodesOfferingId = lens _drcnoReservedCacheNodesOfferingId (\ s a -> s{_drcnoReservedCacheNodesOfferingId = a})  instance AWSPager DescribeReservedCacheNodesOfferings          where@@ -212,23 +212,23 @@     -> DescribeReservedCacheNodesOfferingsResponse describeReservedCacheNodesOfferingsResponse pResponseStatus_ =   DescribeReservedCacheNodesOfferingsResponse'-  { _drcnorsMarker = Nothing-  , _drcnorsReservedCacheNodesOfferings = Nothing-  , _drcnorsResponseStatus = pResponseStatus_-  }+    { _drcnorsMarker = Nothing+    , _drcnorsReservedCacheNodesOfferings = Nothing+    , _drcnorsResponseStatus = pResponseStatus_+    }   -- | Provides an identifier to allow retrieval of paginated results. drcnorsMarker :: Lens' DescribeReservedCacheNodesOfferingsResponse (Maybe Text)-drcnorsMarker = lens _drcnorsMarker (\ s a -> s{_drcnorsMarker = a});+drcnorsMarker = lens _drcnorsMarker (\ s a -> s{_drcnorsMarker = a})  -- | A list of reserved cache node offerings. Each element in the list contains detailed information about one offering. drcnorsReservedCacheNodesOfferings :: Lens' DescribeReservedCacheNodesOfferingsResponse [ReservedCacheNodesOffering]-drcnorsReservedCacheNodesOfferings = lens _drcnorsReservedCacheNodesOfferings (\ s a -> s{_drcnorsReservedCacheNodesOfferings = a}) . _Default . _Coerce;+drcnorsReservedCacheNodesOfferings = lens _drcnorsReservedCacheNodesOfferings (\ s a -> s{_drcnorsReservedCacheNodesOfferings = a}) . _Default . _Coerce  -- | -- | The response status code. drcnorsResponseStatus :: Lens' DescribeReservedCacheNodesOfferingsResponse Int-drcnorsResponseStatus = lens _drcnorsResponseStatus (\ s a -> s{_drcnorsResponseStatus = a});+drcnorsResponseStatus = lens _drcnorsResponseStatus (\ s a -> s{_drcnorsResponseStatus = a})  instance NFData            DescribeReservedCacheNodesOfferingsResponse
gen/Network/AWS/ElastiCache/DescribeSnapshots.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.DescribeSnapshots--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -91,43 +91,43 @@     :: DescribeSnapshots describeSnapshots =   DescribeSnapshots'-  { _dsCacheClusterId = Nothing-  , _dsMarker = Nothing-  , _dsMaxRecords = Nothing-  , _dsSnapshotName = Nothing-  , _dsShowNodeGroupConfig = Nothing-  , _dsReplicationGroupId = Nothing-  , _dsSnapshotSource = Nothing-  }+    { _dsCacheClusterId = Nothing+    , _dsMarker = Nothing+    , _dsMaxRecords = Nothing+    , _dsSnapshotName = Nothing+    , _dsShowNodeGroupConfig = Nothing+    , _dsReplicationGroupId = Nothing+    , _dsSnapshotSource = Nothing+    }   -- | A user-supplied cluster identifier. If this parameter is specified, only snapshots associated with that specific cluster are described. dsCacheClusterId :: Lens' DescribeSnapshots (Maybe Text)-dsCacheClusterId = lens _dsCacheClusterId (\ s a -> s{_dsCacheClusterId = a});+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 operation. 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});+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. Default: 50 Constraints: minimum 20; maximum 50. dsMaxRecords :: Lens' DescribeSnapshots (Maybe Int)-dsMaxRecords = lens _dsMaxRecords (\ s a -> s{_dsMaxRecords = a});+dsMaxRecords = lens _dsMaxRecords (\ s a -> s{_dsMaxRecords = a})  -- | A user-supplied name of the snapshot. If this parameter is specified, only this snapshot are described. dsSnapshotName :: Lens' DescribeSnapshots (Maybe Text)-dsSnapshotName = lens _dsSnapshotName (\ s a -> s{_dsSnapshotName = a});+dsSnapshotName = lens _dsSnapshotName (\ s a -> s{_dsSnapshotName = a})  -- | A Boolean value which if true, the node group (shard) configuration is included in the snapshot description. dsShowNodeGroupConfig :: Lens' DescribeSnapshots (Maybe Bool)-dsShowNodeGroupConfig = lens _dsShowNodeGroupConfig (\ s a -> s{_dsShowNodeGroupConfig = a});+dsShowNodeGroupConfig = lens _dsShowNodeGroupConfig (\ s a -> s{_dsShowNodeGroupConfig = a})  -- | A user-supplied replication group identifier. If this parameter is specified, only snapshots associated with that specific replication group are described. dsReplicationGroupId :: Lens' DescribeSnapshots (Maybe Text)-dsReplicationGroupId = lens _dsReplicationGroupId (\ s a -> s{_dsReplicationGroupId = a});+dsReplicationGroupId = lens _dsReplicationGroupId (\ s a -> s{_dsReplicationGroupId = a})  -- | If set to @system@ , the output shows snapshots that were automatically created by ElastiCache. If set to @user@ the output shows snapshots that were manually created. If omitted, the output shows both automatically and manually created snapshots. dsSnapshotSource :: Lens' DescribeSnapshots (Maybe Text)-dsSnapshotSource = lens _dsSnapshotSource (\ s a -> s{_dsSnapshotSource = a});+dsSnapshotSource = lens _dsSnapshotSource (\ s a -> s{_dsSnapshotSource = a})  instance AWSPager DescribeSnapshots where         page rq rs@@ -196,22 +196,22 @@     -> DescribeSnapshotsResponse describeSnapshotsResponse pResponseStatus_ =   DescribeSnapshotsResponse'-  { _dssrsSnapshots = Nothing-  , _dssrsMarker = Nothing-  , _dssrsResponseStatus = pResponseStatus_-  }+    { _dssrsSnapshots = Nothing+    , _dssrsMarker = Nothing+    , _dssrsResponseStatus = pResponseStatus_+    }   -- | A list of snapshots. Each item in the list contains detailed information about one snapshot. dssrsSnapshots :: Lens' DescribeSnapshotsResponse [Snapshot]-dssrsSnapshots = lens _dssrsSnapshots (\ s a -> s{_dssrsSnapshots = a}) . _Default . _Coerce;+dssrsSnapshots = lens _dssrsSnapshots (\ s a -> s{_dssrsSnapshots = a}) . _Default . _Coerce  -- | An optional marker returned from a prior request. Use this marker for pagination of results from this operation. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . dssrsMarker :: Lens' DescribeSnapshotsResponse (Maybe Text)-dssrsMarker = lens _dssrsMarker (\ s a -> s{_dssrsMarker = a});+dssrsMarker = lens _dssrsMarker (\ s a -> s{_dssrsMarker = a})  -- | -- | The response status code. dssrsResponseStatus :: Lens' DescribeSnapshotsResponse Int-dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a});+dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a})  instance NFData DescribeSnapshotsResponse where
gen/Network/AWS/ElastiCache/ListAllowedNodeTypeModifications.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.ListAllowedNodeTypeModifications--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,16 +69,16 @@     :: ListAllowedNodeTypeModifications listAllowedNodeTypeModifications =   ListAllowedNodeTypeModifications'-  {_lantmCacheClusterId = Nothing, _lantmReplicationGroupId = Nothing}+    {_lantmCacheClusterId = Nothing, _lantmReplicationGroupId = Nothing}   -- | The name of the cluster you want to scale up to a larger node instanced type. ElastiCache uses the cluster id to identify the current node type of this cluster and from that to create a list of node types you can scale up to. /Important:/ You must provide a value for either the @CacheClusterId@ or the @ReplicationGroupId@ . lantmCacheClusterId :: Lens' ListAllowedNodeTypeModifications (Maybe Text)-lantmCacheClusterId = lens _lantmCacheClusterId (\ s a -> s{_lantmCacheClusterId = a});+lantmCacheClusterId = lens _lantmCacheClusterId (\ s a -> s{_lantmCacheClusterId = a})  -- | The name of the replication group want to scale up to a larger node type. ElastiCache uses the replication group id to identify the current node type being used by this replication group, and from that to create a list of node types you can scale up to. /Important:/ You must provide a value for either the @CacheClusterId@ or the @ReplicationGroupId@ . lantmReplicationGroupId :: Lens' ListAllowedNodeTypeModifications (Maybe Text)-lantmReplicationGroupId = lens _lantmReplicationGroupId (\ s a -> s{_lantmReplicationGroupId = a});+lantmReplicationGroupId = lens _lantmReplicationGroupId (\ s a -> s{_lantmReplicationGroupId = a})  instance AWSRequest ListAllowedNodeTypeModifications          where@@ -141,18 +141,18 @@     -> ListAllowedNodeTypeModificationsResponse listAllowedNodeTypeModificationsResponse pResponseStatus_ =   ListAllowedNodeTypeModificationsResponse'-  { _lantmrsScaleUpModifications = Nothing-  , _lantmrsResponseStatus = pResponseStatus_-  }+    { _lantmrsScaleUpModifications = Nothing+    , _lantmrsResponseStatus = pResponseStatus_+    }   -- | A string list, each element of which specifies a cache node type which you can use to scale your cluster or replication group. When scaling up a Redis cluster or replication group using @ModifyCacheCluster@ or @ModifyReplicationGroup@ , use a value from this list for the @CacheNodeType@ parameter. lantmrsScaleUpModifications :: Lens' ListAllowedNodeTypeModificationsResponse [Text]-lantmrsScaleUpModifications = lens _lantmrsScaleUpModifications (\ s a -> s{_lantmrsScaleUpModifications = a}) . _Default . _Coerce;+lantmrsScaleUpModifications = lens _lantmrsScaleUpModifications (\ s a -> s{_lantmrsScaleUpModifications = a}) . _Default . _Coerce  -- | -- | The response status code. lantmrsResponseStatus :: Lens' ListAllowedNodeTypeModificationsResponse Int-lantmrsResponseStatus = lens _lantmrsResponseStatus (\ s a -> s{_lantmrsResponseStatus = a});+lantmrsResponseStatus = lens _lantmrsResponseStatus (\ s a -> s{_lantmrsResponseStatus = a})  instance NFData            ListAllowedNodeTypeModificationsResponse
gen/Network/AWS/ElastiCache/ListTagsForResource.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.ListTagsForResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | The Amazon Resource Name (ARN) of the resource for which you want the list of tags, for example @arn:aws:elasticache:us-west-2:0123456789:cluster:myCluster@ or @arn:aws:elasticache:us-west-2:0123456789:snapshot:mySnapshot@ . For more information about ARNs, see <http://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html Amazon Resource Names (ARNs) and AWS Service Namespaces> . ltfrResourceName :: Lens' ListTagsForResource Text-ltfrResourceName = lens _ltfrResourceName (\ s a -> s{_ltfrResourceName = a});+ltfrResourceName = lens _ltfrResourceName (\ s a -> s{_ltfrResourceName = a})  instance AWSRequest ListTagsForResource where         type Rs ListTagsForResource = TagListMessage
gen/Network/AWS/ElastiCache/ModifyCacheCluster.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.ModifyCacheCluster--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -128,93 +128,93 @@     -> ModifyCacheCluster modifyCacheCluster pCacheClusterId_ =   ModifyCacheCluster'-  { _mccEngineVersion = Nothing-  , _mccCacheNodeType = Nothing-  , _mccSecurityGroupIds = Nothing-  , _mccAutoMinorVersionUpgrade = Nothing-  , _mccCacheParameterGroupName = Nothing-  , _mccSnapshotWindow = Nothing-  , _mccNewAvailabilityZones = Nothing-  , _mccPreferredMaintenanceWindow = Nothing-  , _mccCacheNodeIdsToRemove = Nothing-  , _mccSnapshotRetentionLimit = Nothing-  , _mccNotificationTopicStatus = Nothing-  , _mccAZMode = Nothing-  , _mccApplyImmediately = Nothing-  , _mccNotificationTopicARN = Nothing-  , _mccNumCacheNodes = Nothing-  , _mccCacheSecurityGroupNames = Nothing-  , _mccCacheClusterId = pCacheClusterId_-  }+    { _mccEngineVersion = Nothing+    , _mccCacheNodeType = Nothing+    , _mccSecurityGroupIds = Nothing+    , _mccAutoMinorVersionUpgrade = Nothing+    , _mccCacheParameterGroupName = Nothing+    , _mccSnapshotWindow = Nothing+    , _mccNewAvailabilityZones = Nothing+    , _mccPreferredMaintenanceWindow = Nothing+    , _mccCacheNodeIdsToRemove = Nothing+    , _mccSnapshotRetentionLimit = Nothing+    , _mccNotificationTopicStatus = Nothing+    , _mccAZMode = Nothing+    , _mccApplyImmediately = Nothing+    , _mccNotificationTopicARN = Nothing+    , _mccNumCacheNodes = Nothing+    , _mccCacheSecurityGroupNames = Nothing+    , _mccCacheClusterId = pCacheClusterId_+    }   -- | The upgraded version of the cache engine to be run on the cache nodes. __Important:__ You can upgrade to a newer engine version (see <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/SelectEngine.html#VersionManagement Selecting a Cache Engine and Version> ), but you cannot downgrade to an earlier engine version. If you want to use an earlier engine version, you must delete the existing cluster and create it anew with the earlier engine version. mccEngineVersion :: Lens' ModifyCacheCluster (Maybe Text)-mccEngineVersion = lens _mccEngineVersion (\ s a -> s{_mccEngineVersion = a});+mccEngineVersion = lens _mccEngineVersion (\ s a -> s{_mccEngineVersion = a})  -- | A valid cache node type that you want to scale this cluster up to. mccCacheNodeType :: Lens' ModifyCacheCluster (Maybe Text)-mccCacheNodeType = lens _mccCacheNodeType (\ s a -> s{_mccCacheNodeType = a});+mccCacheNodeType = lens _mccCacheNodeType (\ s a -> s{_mccCacheNodeType = a})  -- | Specifies the VPC Security Groups associated with the cluster. This parameter can be used only with clusters that are created in an Amazon Virtual Private Cloud (Amazon VPC). mccSecurityGroupIds :: Lens' ModifyCacheCluster [Text]-mccSecurityGroupIds = lens _mccSecurityGroupIds (\ s a -> s{_mccSecurityGroupIds = a}) . _Default . _Coerce;+mccSecurityGroupIds = lens _mccSecurityGroupIds (\ s a -> s{_mccSecurityGroupIds = a}) . _Default . _Coerce  -- | This parameter is currently disabled. mccAutoMinorVersionUpgrade :: Lens' ModifyCacheCluster (Maybe Bool)-mccAutoMinorVersionUpgrade = lens _mccAutoMinorVersionUpgrade (\ s a -> s{_mccAutoMinorVersionUpgrade = a});+mccAutoMinorVersionUpgrade = lens _mccAutoMinorVersionUpgrade (\ s a -> s{_mccAutoMinorVersionUpgrade = a})  -- | The name of the cache parameter group to apply to this cluster. This change is asynchronously applied as soon as possible for parameters when the @ApplyImmediately@ parameter is specified as @true@ for this request. mccCacheParameterGroupName :: Lens' ModifyCacheCluster (Maybe Text)-mccCacheParameterGroupName = lens _mccCacheParameterGroupName (\ s a -> s{_mccCacheParameterGroupName = a});+mccCacheParameterGroupName = lens _mccCacheParameterGroupName (\ s a -> s{_mccCacheParameterGroupName = a})  -- | The daily time range (in UTC) during which ElastiCache begins taking a daily snapshot of your cluster. mccSnapshotWindow :: Lens' ModifyCacheCluster (Maybe Text)-mccSnapshotWindow = lens _mccSnapshotWindow (\ s a -> s{_mccSnapshotWindow = a});+mccSnapshotWindow = lens _mccSnapshotWindow (\ s a -> s{_mccSnapshotWindow = a})  -- | The list of Availability Zones where the new Memcached cache nodes are created. This parameter is only valid when @NumCacheNodes@ in the request is greater than the sum of the number of active cache nodes and the number of cache nodes pending creation (which may be zero). The number of Availability Zones supplied in this list must match the cache nodes being added in this request. This option is only supported on Memcached clusters. Scenarios:     * __Scenario 1:__ You have 3 active nodes and wish to add 2 nodes. Specify @NumCacheNodes=5@ (3 + 2) and optionally specify two Availability Zones for the two new nodes.     * __Scenario 2:__ You have 3 active nodes and 2 nodes pending creation (from the scenario 1 call) and want to add 1 more node. Specify @NumCacheNodes=6@ ((3 + 2) + 1) and optionally specify an Availability Zone for the new node.     * __Scenario 3:__ You want to cancel all pending operations. Specify @NumCacheNodes=3@ to cancel all pending operations. The Availability Zone placement of nodes pending creation cannot be modified. If you wish to cancel any nodes pending creation, add 0 nodes by setting @NumCacheNodes@ to the number of current nodes. If @cross-az@ is specified, existing Memcached nodes remain in their current Availability Zone. Only newly created nodes can be located in different Availability Zones. For guidance on how to move existing Memcached nodes to different Availability Zones, see the __Availability Zone Considerations__ section of <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheNode.Memcached.html Cache Node Considerations for Memcached> . __Impact of new add/remove requests upon pending requests__      * Scenario-1     * Pending Action: Delete     * New Request: Delete     * Result: The new delete, pending or immediate, replaces the pending delete.     * Scenario-2     * Pending Action: Delete     * New Request: Create     * Result: The new create, pending or immediate, replaces the pending delete.     * Scenario-3     * Pending Action: Create     * New Request: Delete     * Result: The new delete, pending or immediate, replaces the pending create.     * Scenario-4     * Pending Action: Create     * New Request: Create     * Result: The new create is added to the pending create. /Important:/ __Important:__ If the new create request is __Apply Immediately - Yes__ , all creates are performed immediately. If the new create request is __Apply Immediately - No__ , all creates are pending. mccNewAvailabilityZones :: Lens' ModifyCacheCluster [Text]-mccNewAvailabilityZones = lens _mccNewAvailabilityZones (\ s a -> s{_mccNewAvailabilityZones = a}) . _Default . _Coerce;+mccNewAvailabilityZones = lens _mccNewAvailabilityZones (\ s a -> s{_mccNewAvailabilityZones = a}) . _Default . _Coerce  -- | Specifies the weekly time range during which maintenance on the 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 is a 60 minute period. Valid values for @ddd@ are:     * @sun@      * @mon@      * @tue@      * @wed@      * @thu@      * @fri@      * @sat@  Example: @sun:23:00-mon:01:30@ mccPreferredMaintenanceWindow :: Lens' ModifyCacheCluster (Maybe Text)-mccPreferredMaintenanceWindow = lens _mccPreferredMaintenanceWindow (\ s a -> s{_mccPreferredMaintenanceWindow = a});+mccPreferredMaintenanceWindow = lens _mccPreferredMaintenanceWindow (\ s a -> s{_mccPreferredMaintenanceWindow = a})  -- | A list of cache node IDs to be removed. A node ID is a numeric identifier (0001, 0002, etc.). This parameter is only valid when @NumCacheNodes@ is less than the existing number of cache nodes. The number of cache node IDs supplied in this parameter must match the difference between the existing number of cache nodes in the cluster or pending cache nodes, whichever is greater, and the value of @NumCacheNodes@ in the request. For example: If you have 3 active cache nodes, 7 pending cache nodes, and the number of cache nodes in this @ModifyCacheCluster@ call is 5, you must list 2 (7 - 5) cache node IDs to remove. mccCacheNodeIdsToRemove :: Lens' ModifyCacheCluster [Text]-mccCacheNodeIdsToRemove = lens _mccCacheNodeIdsToRemove (\ s a -> s{_mccCacheNodeIdsToRemove = a}) . _Default . _Coerce;+mccCacheNodeIdsToRemove = lens _mccCacheNodeIdsToRemove (\ s a -> s{_mccCacheNodeIdsToRemove = a}) . _Default . _Coerce  -- | The number of days for which ElastiCache retains automatic cluster snapshots before deleting them. For example, if you set @SnapshotRetentionLimit@ to 5, a snapshot that was taken today is retained for 5 days before being deleted. mccSnapshotRetentionLimit :: Lens' ModifyCacheCluster (Maybe Int)-mccSnapshotRetentionLimit = lens _mccSnapshotRetentionLimit (\ s a -> s{_mccSnapshotRetentionLimit = a});+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});+mccNotificationTopicStatus = lens _mccNotificationTopicStatus (\ s a -> s{_mccNotificationTopicStatus = a})  -- | Specifies whether the new nodes in this Memcached cluster are all created in a single Availability Zone or created across multiple Availability Zones. Valid values: @single-az@ | @cross-az@ . This option is only supported for Memcached clusters. mccAZMode :: Lens' ModifyCacheCluster (Maybe AZMode)-mccAZMode = lens _mccAZMode (\ s a -> s{_mccAZMode = a});+mccAZMode = lens _mccAZMode (\ s a -> s{_mccAZMode = 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 cluster. If @false@ , changes to the cluster are applied on the next maintenance reboot, or the next failure reboot, whichever occurs first. /Important:/ If you perform a @ModifyCacheCluster@ before a pending modification is applied, the pending modification is replaced by the newer modification. Valid values: @true@ | @false@  Default: @false@ mccApplyImmediately :: Lens' ModifyCacheCluster (Maybe Bool)-mccApplyImmediately = lens _mccApplyImmediately (\ s a -> s{_mccApplyImmediately = a});+mccApplyImmediately = lens _mccApplyImmediately (\ s a -> s{_mccApplyImmediately = a})  -- | The Amazon Resource Name (ARN) of the Amazon SNS topic to which notifications are sent. mccNotificationTopicARN :: Lens' ModifyCacheCluster (Maybe Text)-mccNotificationTopicARN = lens _mccNotificationTopicARN (\ s a -> s{_mccNotificationTopicARN = a});+mccNotificationTopicARN = lens _mccNotificationTopicARN (\ s a -> s{_mccNotificationTopicARN = a})  -- | The number of cache nodes that the cluster should have. If the value for @NumCacheNodes@ is greater than the sum of the number of current cache nodes and the number of cache nodes pending creation (which may be zero), more nodes are added. If the value is less than the number of existing cache nodes, nodes are removed. If the value is equal to the number of current cache nodes, any pending add or remove requests are canceled. If you are removing cache nodes, you must use the @CacheNodeIdsToRemove@ parameter to provide the IDs of the specific cache nodes to remove. For clusters running Redis, this value must be 1. For clusters running Memcached, this value must be between 1 and 20. mccNumCacheNodes :: Lens' ModifyCacheCluster (Maybe Int)-mccNumCacheNodes = lens _mccNumCacheNodes (\ s a -> s{_mccNumCacheNodes = a});+mccNumCacheNodes = lens _mccNumCacheNodes (\ s a -> s{_mccNumCacheNodes = a})  -- | A list of cache security group names to authorize on this cluster. This change is asynchronously applied as soon as possible. You can use this parameter only with clusters that are created outside of an Amazon Virtual Private Cloud (Amazon VPC). Constraints: Must contain no more than 255 alphanumeric characters. Must not be "Default". mccCacheSecurityGroupNames :: Lens' ModifyCacheCluster [Text]-mccCacheSecurityGroupNames = lens _mccCacheSecurityGroupNames (\ s a -> s{_mccCacheSecurityGroupNames = a}) . _Default . _Coerce;+mccCacheSecurityGroupNames = lens _mccCacheSecurityGroupNames (\ s a -> s{_mccCacheSecurityGroupNames = a}) . _Default . _Coerce  -- | The cluster identifier. This value is stored as a lowercase string. mccCacheClusterId :: Lens' ModifyCacheCluster Text-mccCacheClusterId = lens _mccCacheClusterId (\ s a -> s{_mccCacheClusterId = a});+mccCacheClusterId = lens _mccCacheClusterId (\ s a -> s{_mccCacheClusterId = a})  instance AWSRequest ModifyCacheCluster where         type Rs ModifyCacheCluster =@@ -295,15 +295,15 @@     -> ModifyCacheClusterResponse modifyCacheClusterResponse pResponseStatus_ =   ModifyCacheClusterResponse'-  {_mccrsCacheCluster = Nothing, _mccrsResponseStatus = pResponseStatus_}+    {_mccrsCacheCluster = Nothing, _mccrsResponseStatus = pResponseStatus_}   -- | Undocumented member. mccrsCacheCluster :: Lens' ModifyCacheClusterResponse (Maybe CacheCluster)-mccrsCacheCluster = lens _mccrsCacheCluster (\ s a -> s{_mccrsCacheCluster = a});+mccrsCacheCluster = lens _mccrsCacheCluster (\ s a -> s{_mccrsCacheCluster = a})  -- | -- | The response status code. mccrsResponseStatus :: Lens' ModifyCacheClusterResponse Int-mccrsResponseStatus = lens _mccrsResponseStatus (\ s a -> s{_mccrsResponseStatus = a});+mccrsResponseStatus = lens _mccrsResponseStatus (\ s a -> s{_mccrsResponseStatus = a})  instance NFData ModifyCacheClusterResponse where
gen/Network/AWS/ElastiCache/ModifyCacheParameterGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.ModifyCacheParameterGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,18 +67,18 @@     -> ModifyCacheParameterGroup modifyCacheParameterGroup pCacheParameterGroupName_ =   ModifyCacheParameterGroup'-  { _mcpgCacheParameterGroupName = pCacheParameterGroupName_-  , _mcpgParameterNameValues = mempty-  }+    { _mcpgCacheParameterGroupName = pCacheParameterGroupName_+    , _mcpgParameterNameValues = mempty+    }   -- | The name of the cache parameter group to modify. mcpgCacheParameterGroupName :: Lens' ModifyCacheParameterGroup Text-mcpgCacheParameterGroupName = lens _mcpgCacheParameterGroupName (\ s a -> s{_mcpgCacheParameterGroupName = a});+mcpgCacheParameterGroupName = lens _mcpgCacheParameterGroupName (\ s a -> s{_mcpgCacheParameterGroupName = a})  -- | An array of parameter names and values for the parameter update. You must supply at least one parameter name and value; subsequent arguments are optional. A maximum of 20 parameters may be modified per request. mcpgParameterNameValues :: Lens' ModifyCacheParameterGroup [ParameterNameValue]-mcpgParameterNameValues = lens _mcpgParameterNameValues (\ s a -> s{_mcpgParameterNameValues = a}) . _Coerce;+mcpgParameterNameValues = lens _mcpgParameterNameValues (\ s a -> s{_mcpgParameterNameValues = a}) . _Coerce  instance AWSRequest ModifyCacheParameterGroup where         type Rs ModifyCacheParameterGroup =
gen/Network/AWS/ElastiCache/ModifyCacheSubnetGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.ModifyCacheSubnetGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,23 +72,23 @@     -> ModifyCacheSubnetGroup modifyCacheSubnetGroup pCacheSubnetGroupName_ =   ModifyCacheSubnetGroup'-  { _mcsgSubnetIds = Nothing-  , _mcsgCacheSubnetGroupDescription = Nothing-  , _mcsgCacheSubnetGroupName = pCacheSubnetGroupName_-  }+    { _mcsgSubnetIds = Nothing+    , _mcsgCacheSubnetGroupDescription = Nothing+    , _mcsgCacheSubnetGroupName = pCacheSubnetGroupName_+    }   -- | The EC2 subnet IDs for the cache subnet group. mcsgSubnetIds :: Lens' ModifyCacheSubnetGroup [Text]-mcsgSubnetIds = lens _mcsgSubnetIds (\ s a -> s{_mcsgSubnetIds = a}) . _Default . _Coerce;+mcsgSubnetIds = lens _mcsgSubnetIds (\ s a -> s{_mcsgSubnetIds = a}) . _Default . _Coerce  -- | A description of the cache subnet group. mcsgCacheSubnetGroupDescription :: Lens' ModifyCacheSubnetGroup (Maybe Text)-mcsgCacheSubnetGroupDescription = lens _mcsgCacheSubnetGroupDescription (\ s a -> s{_mcsgCacheSubnetGroupDescription = a});+mcsgCacheSubnetGroupDescription = lens _mcsgCacheSubnetGroupDescription (\ s a -> s{_mcsgCacheSubnetGroupDescription = a})  -- | The name for the cache subnet group. This value is stored as a lowercase string. Constraints: Must contain no more than 255 alphanumeric characters or hyphens. Example: @mysubnetgroup@ mcsgCacheSubnetGroupName :: Lens' ModifyCacheSubnetGroup Text-mcsgCacheSubnetGroupName = lens _mcsgCacheSubnetGroupName (\ s a -> s{_mcsgCacheSubnetGroupName = a});+mcsgCacheSubnetGroupName = lens _mcsgCacheSubnetGroupName (\ s a -> s{_mcsgCacheSubnetGroupName = a})  instance AWSRequest ModifyCacheSubnetGroup where         type Rs ModifyCacheSubnetGroup =@@ -142,15 +142,17 @@     -> ModifyCacheSubnetGroupResponse modifyCacheSubnetGroupResponse pResponseStatus_ =   ModifyCacheSubnetGroupResponse'-  {_mcsgrsCacheSubnetGroup = Nothing, _mcsgrsResponseStatus = pResponseStatus_}+    { _mcsgrsCacheSubnetGroup = Nothing+    , _mcsgrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. mcsgrsCacheSubnetGroup :: Lens' ModifyCacheSubnetGroupResponse (Maybe CacheSubnetGroup)-mcsgrsCacheSubnetGroup = lens _mcsgrsCacheSubnetGroup (\ s a -> s{_mcsgrsCacheSubnetGroup = a});+mcsgrsCacheSubnetGroup = lens _mcsgrsCacheSubnetGroup (\ s a -> s{_mcsgrsCacheSubnetGroup = a})  -- | -- | The response status code. mcsgrsResponseStatus :: Lens' ModifyCacheSubnetGroupResponse Int-mcsgrsResponseStatus = lens _mcsgrsResponseStatus (\ s a -> s{_mcsgrsResponseStatus = a});+mcsgrsResponseStatus = lens _mcsgrsResponseStatus (\ s a -> s{_mcsgrsResponseStatus = a})  instance NFData ModifyCacheSubnetGroupResponse where
gen/Network/AWS/ElastiCache/ModifyReplicationGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.ModifyReplicationGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -134,98 +134,98 @@     -> ModifyReplicationGroup modifyReplicationGroup pReplicationGroupId_ =   ModifyReplicationGroup'-  { _mrgAutomaticFailoverEnabled = Nothing-  , _mrgEngineVersion = Nothing-  , _mrgCacheNodeType = Nothing-  , _mrgSnapshottingClusterId = Nothing-  , _mrgSecurityGroupIds = Nothing-  , _mrgAutoMinorVersionUpgrade = Nothing-  , _mrgCacheParameterGroupName = Nothing-  , _mrgReplicationGroupDescription = Nothing-  , _mrgSnapshotWindow = Nothing-  , _mrgPrimaryClusterId = Nothing-  , _mrgPreferredMaintenanceWindow = Nothing-  , _mrgNodeGroupId = Nothing-  , _mrgSnapshotRetentionLimit = Nothing-  , _mrgNotificationTopicStatus = Nothing-  , _mrgApplyImmediately = Nothing-  , _mrgNotificationTopicARN = Nothing-  , _mrgCacheSecurityGroupNames = Nothing-  , _mrgReplicationGroupId = pReplicationGroupId_-  }+    { _mrgAutomaticFailoverEnabled = Nothing+    , _mrgEngineVersion = Nothing+    , _mrgCacheNodeType = Nothing+    , _mrgSnapshottingClusterId = Nothing+    , _mrgSecurityGroupIds = Nothing+    , _mrgAutoMinorVersionUpgrade = Nothing+    , _mrgCacheParameterGroupName = Nothing+    , _mrgReplicationGroupDescription = Nothing+    , _mrgSnapshotWindow = Nothing+    , _mrgPrimaryClusterId = Nothing+    , _mrgPreferredMaintenanceWindow = Nothing+    , _mrgNodeGroupId = Nothing+    , _mrgSnapshotRetentionLimit = Nothing+    , _mrgNotificationTopicStatus = Nothing+    , _mrgApplyImmediately = Nothing+    , _mrgNotificationTopicARN = Nothing+    , _mrgCacheSecurityGroupNames = Nothing+    , _mrgReplicationGroupId = pReplicationGroupId_+    }   -- | Determines whether a read replica is automatically promoted to read/write primary if the existing primary encounters a failure. Valid values: @true@ | @false@  Amazon ElastiCache for Redis does not support Multi-AZ with automatic failover on:     * Redis versions earlier than 2.8.6.     * Redis (cluster mode disabled): T1 and T2 cache node types.     * Redis (cluster mode enabled): T1 node types. mrgAutomaticFailoverEnabled :: Lens' ModifyReplicationGroup (Maybe Bool)-mrgAutomaticFailoverEnabled = lens _mrgAutomaticFailoverEnabled (\ s a -> s{_mrgAutomaticFailoverEnabled = a});+mrgAutomaticFailoverEnabled = lens _mrgAutomaticFailoverEnabled (\ s a -> s{_mrgAutomaticFailoverEnabled = a})  -- | The upgraded version of the cache engine to be run on the clusters in the replication group. __Important:__ You can upgrade to a newer engine version (see <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/SelectEngine.html#VersionManagement Selecting a Cache Engine and Version> ), but you cannot downgrade to an earlier engine version. If you want to use an earlier engine version, you must delete the existing replication group and create it anew with the earlier engine version. mrgEngineVersion :: Lens' ModifyReplicationGroup (Maybe Text)-mrgEngineVersion = lens _mrgEngineVersion (\ s a -> s{_mrgEngineVersion = a});+mrgEngineVersion = lens _mrgEngineVersion (\ s a -> s{_mrgEngineVersion = a})  -- | A valid cache node type that you want to scale this replication group to. mrgCacheNodeType :: Lens' ModifyReplicationGroup (Maybe Text)-mrgCacheNodeType = lens _mrgCacheNodeType (\ s a -> s{_mrgCacheNodeType = a});+mrgCacheNodeType = lens _mrgCacheNodeType (\ s a -> s{_mrgCacheNodeType = a})  -- | The cluster ID that is used as the daily snapshot source for the replication group. This parameter cannot be set for Redis (cluster mode enabled) replication groups. mrgSnapshottingClusterId :: Lens' ModifyReplicationGroup (Maybe Text)-mrgSnapshottingClusterId = lens _mrgSnapshottingClusterId (\ s a -> s{_mrgSnapshottingClusterId = a});+mrgSnapshottingClusterId = lens _mrgSnapshottingClusterId (\ s a -> s{_mrgSnapshottingClusterId = a})  -- | Specifies the VPC Security Groups associated with the clusters in the replication group. This parameter can be used only with replication group containing clusters running in an Amazon Virtual Private Cloud (Amazon VPC). mrgSecurityGroupIds :: Lens' ModifyReplicationGroup [Text]-mrgSecurityGroupIds = lens _mrgSecurityGroupIds (\ s a -> s{_mrgSecurityGroupIds = a}) . _Default . _Coerce;+mrgSecurityGroupIds = lens _mrgSecurityGroupIds (\ s a -> s{_mrgSecurityGroupIds = a}) . _Default . _Coerce  -- | This parameter is currently disabled. mrgAutoMinorVersionUpgrade :: Lens' ModifyReplicationGroup (Maybe Bool)-mrgAutoMinorVersionUpgrade = lens _mrgAutoMinorVersionUpgrade (\ s a -> s{_mrgAutoMinorVersionUpgrade = a});+mrgAutoMinorVersionUpgrade = lens _mrgAutoMinorVersionUpgrade (\ s a -> s{_mrgAutoMinorVersionUpgrade = 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 specified as @true@ for this request. mrgCacheParameterGroupName :: Lens' ModifyReplicationGroup (Maybe Text)-mrgCacheParameterGroupName = lens _mrgCacheParameterGroupName (\ s a -> s{_mrgCacheParameterGroupName = a});+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});+mrgReplicationGroupDescription = lens _mrgReplicationGroupDescription (\ s a -> s{_mrgReplicationGroupDescription = a})  -- | The daily time range (in UTC) during which ElastiCache begins taking a daily snapshot of the node group (shard) specified by @SnapshottingClusterId@ . Example: @05:00-09:00@  If you do not specify this parameter, ElastiCache automatically chooses an appropriate time range. mrgSnapshotWindow :: Lens' ModifyReplicationGroup (Maybe Text)-mrgSnapshotWindow = lens _mrgSnapshotWindow (\ s a -> s{_mrgSnapshotWindow = a});+mrgSnapshotWindow = lens _mrgSnapshotWindow (\ s a -> s{_mrgSnapshotWindow = a})  -- | For replication groups with a single primary, if this parameter is specified, ElastiCache promotes the specified cluster in the specified replication group to the primary role. The nodes of all other clusters in the replication group are read replicas. mrgPrimaryClusterId :: Lens' ModifyReplicationGroup (Maybe Text)-mrgPrimaryClusterId = lens _mrgPrimaryClusterId (\ s a -> s{_mrgPrimaryClusterId = a});+mrgPrimaryClusterId = lens _mrgPrimaryClusterId (\ s a -> s{_mrgPrimaryClusterId = a})  -- | Specifies the weekly time range during which maintenance on the 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 is a 60 minute period. Valid values for @ddd@ are:     * @sun@      * @mon@      * @tue@      * @wed@      * @thu@      * @fri@      * @sat@  Example: @sun:23:00-mon:01:30@ mrgPreferredMaintenanceWindow :: Lens' ModifyReplicationGroup (Maybe Text)-mrgPreferredMaintenanceWindow = lens _mrgPreferredMaintenanceWindow (\ s a -> s{_mrgPreferredMaintenanceWindow = a});+mrgPreferredMaintenanceWindow = lens _mrgPreferredMaintenanceWindow (\ s a -> s{_mrgPreferredMaintenanceWindow = a})  -- | The name of the Node Group (called shard in the console). mrgNodeGroupId :: Lens' ModifyReplicationGroup (Maybe Text)-mrgNodeGroupId = lens _mrgNodeGroupId (\ s a -> s{_mrgNodeGroupId = a});+mrgNodeGroupId = lens _mrgNodeGroupId (\ s a -> s{_mrgNodeGroupId = a})  -- | The number of days for which ElastiCache retains automatic node group (shard) snapshots before deleting them. For example, if you set @SnapshotRetentionLimit@ to 5, a snapshot that was taken today is retained for 5 days before being deleted. __Important__ If the value of SnapshotRetentionLimit is set to zero (0), backups are turned off. mrgSnapshotRetentionLimit :: Lens' ModifyReplicationGroup (Maybe Int)-mrgSnapshotRetentionLimit = lens _mrgSnapshotRetentionLimit (\ s a -> s{_mrgSnapshotRetentionLimit = a});+mrgSnapshotRetentionLimit = lens _mrgSnapshotRetentionLimit (\ s a -> s{_mrgSnapshotRetentionLimit = a})  -- | The status of the Amazon SNS notification topic for the replication group. Notifications are sent only if the status is @active@ . Valid values: @active@ | @inactive@ mrgNotificationTopicStatus :: Lens' ModifyReplicationGroup (Maybe Text)-mrgNotificationTopicStatus = lens _mrgNotificationTopicStatus (\ s a -> s{_mrgNotificationTopicStatus = a});+mrgNotificationTopicStatus = lens _mrgNotificationTopicStatus (\ s a -> s{_mrgNotificationTopicStatus = 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 replication group. If @false@ , changes to the nodes in the replication group are applied on the next maintenance reboot, or the next failure reboot, whichever occurs first. Valid values: @true@ | @false@  Default: @false@ mrgApplyImmediately :: Lens' ModifyReplicationGroup (Maybe Bool)-mrgApplyImmediately = lens _mrgApplyImmediately (\ s a -> s{_mrgApplyImmediately = a});+mrgApplyImmediately = lens _mrgApplyImmediately (\ s a -> s{_mrgApplyImmediately = a})  -- | The Amazon Resource Name (ARN) of the Amazon SNS topic to which notifications are sent. mrgNotificationTopicARN :: Lens' ModifyReplicationGroup (Maybe Text)-mrgNotificationTopicARN = lens _mrgNotificationTopicARN (\ s a -> s{_mrgNotificationTopicARN = a});+mrgNotificationTopicARN = lens _mrgNotificationTopicARN (\ s a -> s{_mrgNotificationTopicARN = a})  -- | A list of cache security group names to authorize for the clusters in this replication group. This change is asynchronously applied as soon as possible. This parameter can be used only with replication group containing clusters running outside of an Amazon Virtual Private Cloud (Amazon VPC). Constraints: Must contain no more than 255 alphanumeric characters. Must not be @Default@ . mrgCacheSecurityGroupNames :: Lens' ModifyReplicationGroup [Text]-mrgCacheSecurityGroupNames = lens _mrgCacheSecurityGroupNames (\ s a -> s{_mrgCacheSecurityGroupNames = a}) . _Default . _Coerce;+mrgCacheSecurityGroupNames = lens _mrgCacheSecurityGroupNames (\ s a -> s{_mrgCacheSecurityGroupNames = a}) . _Default . _Coerce  -- | The identifier of the replication group to modify. mrgReplicationGroupId :: Lens' ModifyReplicationGroup Text-mrgReplicationGroupId = lens _mrgReplicationGroupId (\ s a -> s{_mrgReplicationGroupId = a});+mrgReplicationGroupId = lens _mrgReplicationGroupId (\ s a -> s{_mrgReplicationGroupId = a})  instance AWSRequest ModifyReplicationGroup where         type Rs ModifyReplicationGroup =@@ -304,15 +304,15 @@     -> ModifyReplicationGroupResponse modifyReplicationGroupResponse pResponseStatus_ =   ModifyReplicationGroupResponse'-  {_mrgrsReplicationGroup = Nothing, _mrgrsResponseStatus = pResponseStatus_}+    {_mrgrsReplicationGroup = Nothing, _mrgrsResponseStatus = pResponseStatus_}   -- | Undocumented member. mrgrsReplicationGroup :: Lens' ModifyReplicationGroupResponse (Maybe ReplicationGroup)-mrgrsReplicationGroup = lens _mrgrsReplicationGroup (\ s a -> s{_mrgrsReplicationGroup = a});+mrgrsReplicationGroup = lens _mrgrsReplicationGroup (\ s a -> s{_mrgrsReplicationGroup = a})  -- | -- | The response status code. mrgrsResponseStatus :: Lens' ModifyReplicationGroupResponse Int-mrgrsResponseStatus = lens _mrgrsResponseStatus (\ s a -> s{_mrgrsResponseStatus = a});+mrgrsResponseStatus = lens _mrgrsResponseStatus (\ s a -> s{_mrgrsResponseStatus = a})  instance NFData ModifyReplicationGroupResponse where
gen/Network/AWS/ElastiCache/ModifyReplicationGroupShardConfiguration.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.ModifyReplicationGroupShardConfiguration--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -84,33 +84,33 @@     -> ModifyReplicationGroupShardConfiguration modifyReplicationGroupShardConfiguration pReplicationGroupId_ pNodeGroupCount_ pApplyImmediately_ =   ModifyReplicationGroupShardConfiguration'-  { _mrgscReshardingConfiguration = Nothing-  , _mrgscNodeGroupsToRemove = Nothing-  , _mrgscReplicationGroupId = pReplicationGroupId_-  , _mrgscNodeGroupCount = pNodeGroupCount_-  , _mrgscApplyImmediately = pApplyImmediately_-  }+    { _mrgscReshardingConfiguration = Nothing+    , _mrgscNodeGroupsToRemove = Nothing+    , _mrgscReplicationGroupId = pReplicationGroupId_+    , _mrgscNodeGroupCount = pNodeGroupCount_+    , _mrgscApplyImmediately = pApplyImmediately_+    }   -- | Specifies the preferred availability zones for each node group in the cluster. If the value of @NodeGroupCount@ is greater than the current number of node groups (shards), you can use this parameter to specify the preferred availability zones of the cluster's shards. If you omit this parameter ElastiCache selects availability zones for you. You can specify this parameter only if the value of @NodeGroupCount@ is greater than the current number of node groups (shards). mrgscReshardingConfiguration :: Lens' ModifyReplicationGroupShardConfiguration [ReshardingConfiguration]-mrgscReshardingConfiguration = lens _mrgscReshardingConfiguration (\ s a -> s{_mrgscReshardingConfiguration = a}) . _Default . _Coerce;+mrgscReshardingConfiguration = lens _mrgscReshardingConfiguration (\ s a -> s{_mrgscReshardingConfiguration = a}) . _Default . _Coerce  -- | If the value of @NodeGroupCount@ is less than the current number of node groups (shards), @NodeGroupsToRemove@ is a required list of node group ids to remove from the cluster. mrgscNodeGroupsToRemove :: Lens' ModifyReplicationGroupShardConfiguration [Text]-mrgscNodeGroupsToRemove = lens _mrgscNodeGroupsToRemove (\ s a -> s{_mrgscNodeGroupsToRemove = a}) . _Default . _Coerce;+mrgscNodeGroupsToRemove = lens _mrgscNodeGroupsToRemove (\ s a -> s{_mrgscNodeGroupsToRemove = a}) . _Default . _Coerce  -- | The name of the Redis (cluster mode enabled) cluster (replication group) on which the shards are to be configured. mrgscReplicationGroupId :: Lens' ModifyReplicationGroupShardConfiguration Text-mrgscReplicationGroupId = lens _mrgscReplicationGroupId (\ s a -> s{_mrgscReplicationGroupId = a});+mrgscReplicationGroupId = lens _mrgscReplicationGroupId (\ s a -> s{_mrgscReplicationGroupId = a})  -- | The number of node groups (shards) that results from the modification of the shard configuration. mrgscNodeGroupCount :: Lens' ModifyReplicationGroupShardConfiguration Int-mrgscNodeGroupCount = lens _mrgscNodeGroupCount (\ s a -> s{_mrgscNodeGroupCount = a});+mrgscNodeGroupCount = lens _mrgscNodeGroupCount (\ s a -> s{_mrgscNodeGroupCount = a})  -- | Indicates that the shard reconfiguration process begins immediately. At present, the only permitted value for this parameter is @true@ . Value: true mrgscApplyImmediately :: Lens' ModifyReplicationGroupShardConfiguration Bool-mrgscApplyImmediately = lens _mrgscApplyImmediately (\ s a -> s{_mrgscApplyImmediately = a});+mrgscApplyImmediately = lens _mrgscApplyImmediately (\ s a -> s{_mrgscApplyImmediately = a})  instance AWSRequest            ModifyReplicationGroupShardConfiguration@@ -183,18 +183,18 @@     -> ModifyReplicationGroupShardConfigurationResponse modifyReplicationGroupShardConfigurationResponse pResponseStatus_ =   ModifyReplicationGroupShardConfigurationResponse'-  { _mrgscrsReplicationGroup = Nothing-  , _mrgscrsResponseStatus = pResponseStatus_-  }+    { _mrgscrsReplicationGroup = Nothing+    , _mrgscrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. mrgscrsReplicationGroup :: Lens' ModifyReplicationGroupShardConfigurationResponse (Maybe ReplicationGroup)-mrgscrsReplicationGroup = lens _mrgscrsReplicationGroup (\ s a -> s{_mrgscrsReplicationGroup = a});+mrgscrsReplicationGroup = lens _mrgscrsReplicationGroup (\ s a -> s{_mrgscrsReplicationGroup = a})  -- | -- | The response status code. mrgscrsResponseStatus :: Lens' ModifyReplicationGroupShardConfigurationResponse Int-mrgscrsResponseStatus = lens _mrgscrsResponseStatus (\ s a -> s{_mrgscrsResponseStatus = a});+mrgscrsResponseStatus = lens _mrgscrsResponseStatus (\ s a -> s{_mrgscrsResponseStatus = a})  instance NFData            ModifyReplicationGroupShardConfigurationResponse
gen/Network/AWS/ElastiCache/PurchaseReservedCacheNodesOffering.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.PurchaseReservedCacheNodesOffering--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,23 +72,23 @@     -> PurchaseReservedCacheNodesOffering purchaseReservedCacheNodesOffering pReservedCacheNodesOfferingId_ =   PurchaseReservedCacheNodesOffering'-  { _prcnoCacheNodeCount = Nothing-  , _prcnoReservedCacheNodeId = Nothing-  , _prcnoReservedCacheNodesOfferingId = pReservedCacheNodesOfferingId_-  }+    { _prcnoCacheNodeCount = Nothing+    , _prcnoReservedCacheNodeId = Nothing+    , _prcnoReservedCacheNodesOfferingId = pReservedCacheNodesOfferingId_+    }   -- | The number of cache node instances to reserve. Default: @1@ prcnoCacheNodeCount :: Lens' PurchaseReservedCacheNodesOffering (Maybe Int)-prcnoCacheNodeCount = lens _prcnoCacheNodeCount (\ s a -> s{_prcnoCacheNodeCount = a});+prcnoCacheNodeCount = lens _prcnoCacheNodeCount (\ s a -> s{_prcnoCacheNodeCount = a})  -- | A customer-specified identifier to track this reservation. Example: myreservationID prcnoReservedCacheNodeId :: Lens' PurchaseReservedCacheNodesOffering (Maybe Text)-prcnoReservedCacheNodeId = lens _prcnoReservedCacheNodeId (\ s a -> s{_prcnoReservedCacheNodeId = a});+prcnoReservedCacheNodeId = lens _prcnoReservedCacheNodeId (\ s a -> s{_prcnoReservedCacheNodeId = a})  -- | The ID of the reserved cache node offering to purchase. Example: @438012d3-4052-4cc7-b2e3-8d3372e0e706@ prcnoReservedCacheNodesOfferingId :: Lens' PurchaseReservedCacheNodesOffering Text-prcnoReservedCacheNodesOfferingId = lens _prcnoReservedCacheNodesOfferingId (\ s a -> s{_prcnoReservedCacheNodesOfferingId = a});+prcnoReservedCacheNodesOfferingId = lens _prcnoReservedCacheNodesOfferingId (\ s a -> s{_prcnoReservedCacheNodesOfferingId = a})  instance AWSRequest            PurchaseReservedCacheNodesOffering@@ -148,18 +148,18 @@     -> PurchaseReservedCacheNodesOfferingResponse purchaseReservedCacheNodesOfferingResponse pResponseStatus_ =   PurchaseReservedCacheNodesOfferingResponse'-  { _prcnorsReservedCacheNode = Nothing-  , _prcnorsResponseStatus = pResponseStatus_-  }+    { _prcnorsReservedCacheNode = Nothing+    , _prcnorsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. prcnorsReservedCacheNode :: Lens' PurchaseReservedCacheNodesOfferingResponse (Maybe ReservedCacheNode)-prcnorsReservedCacheNode = lens _prcnorsReservedCacheNode (\ s a -> s{_prcnorsReservedCacheNode = a});+prcnorsReservedCacheNode = lens _prcnorsReservedCacheNode (\ s a -> s{_prcnorsReservedCacheNode = a})  -- | -- | The response status code. prcnorsResponseStatus :: Lens' PurchaseReservedCacheNodesOfferingResponse Int-prcnorsResponseStatus = lens _prcnorsResponseStatus (\ s a -> s{_prcnorsResponseStatus = a});+prcnorsResponseStatus = lens _prcnorsResponseStatus (\ s a -> s{_prcnorsResponseStatus = a})  instance NFData            PurchaseReservedCacheNodesOfferingResponse
gen/Network/AWS/ElastiCache/RebootCacheCluster.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.RebootCacheCluster--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,16 +76,16 @@     -> RebootCacheCluster rebootCacheCluster pCacheClusterId_ =   RebootCacheCluster'-  {_rccCacheClusterId = pCacheClusterId_, _rccCacheNodeIdsToReboot = mempty}+    {_rccCacheClusterId = pCacheClusterId_, _rccCacheNodeIdsToReboot = mempty}   -- | The cluster identifier. This parameter is stored as a lowercase string. rccCacheClusterId :: Lens' RebootCacheCluster Text-rccCacheClusterId = lens _rccCacheClusterId (\ s a -> s{_rccCacheClusterId = a});+rccCacheClusterId = lens _rccCacheClusterId (\ s a -> s{_rccCacheClusterId = a})  -- | A list of cache node IDs to reboot. A node ID is a numeric identifier (0001, 0002, etc.). To reboot an entire cluster, specify all of the cache node IDs. rccCacheNodeIdsToReboot :: Lens' RebootCacheCluster [Text]-rccCacheNodeIdsToReboot = lens _rccCacheNodeIdsToReboot (\ s a -> s{_rccCacheNodeIdsToReboot = a}) . _Coerce;+rccCacheNodeIdsToReboot = lens _rccCacheNodeIdsToReboot (\ s a -> s{_rccCacheNodeIdsToReboot = a}) . _Coerce  instance AWSRequest RebootCacheCluster where         type Rs RebootCacheCluster =@@ -135,15 +135,15 @@     -> RebootCacheClusterResponse rebootCacheClusterResponse pResponseStatus_ =   RebootCacheClusterResponse'-  {_rccrsCacheCluster = Nothing, _rccrsResponseStatus = pResponseStatus_}+    {_rccrsCacheCluster = Nothing, _rccrsResponseStatus = pResponseStatus_}   -- | Undocumented member. rccrsCacheCluster :: Lens' RebootCacheClusterResponse (Maybe CacheCluster)-rccrsCacheCluster = lens _rccrsCacheCluster (\ s a -> s{_rccrsCacheCluster = a});+rccrsCacheCluster = lens _rccrsCacheCluster (\ s a -> s{_rccrsCacheCluster = a})  -- | -- | The response status code. rccrsResponseStatus :: Lens' RebootCacheClusterResponse Int-rccrsResponseStatus = lens _rccrsResponseStatus (\ s a -> s{_rccrsResponseStatus = a});+rccrsResponseStatus = lens _rccrsResponseStatus (\ s a -> s{_rccrsResponseStatus = a})  instance NFData RebootCacheClusterResponse where
gen/Network/AWS/ElastiCache/RemoveTagsFromResource.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.RemoveTagsFromResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,16 +67,16 @@     -> RemoveTagsFromResource removeTagsFromResource pResourceName_ =   RemoveTagsFromResource'-  {_rtfrResourceName = pResourceName_, _rtfrTagKeys = mempty}+    {_rtfrResourceName = pResourceName_, _rtfrTagKeys = mempty}   -- | The Amazon Resource Name (ARN) of the resource from which you want the tags removed, for example @arn:aws:elasticache:us-west-2:0123456789:cluster:myCluster@ or @arn:aws:elasticache:us-west-2:0123456789:snapshot:mySnapshot@ . For more information about ARNs, see <http://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html Amazon Resource Names (ARNs) and AWS Service Namespaces> . rtfrResourceName :: Lens' RemoveTagsFromResource Text-rtfrResourceName = lens _rtfrResourceName (\ s a -> s{_rtfrResourceName = a});+rtfrResourceName = lens _rtfrResourceName (\ s a -> s{_rtfrResourceName = a})  -- | A list of @TagKeys@ identifying the tags you want removed from the named resource. rtfrTagKeys :: Lens' RemoveTagsFromResource [Text]-rtfrTagKeys = lens _rtfrTagKeys (\ s a -> s{_rtfrTagKeys = a}) . _Coerce;+rtfrTagKeys = lens _rtfrTagKeys (\ s a -> s{_rtfrTagKeys = a}) . _Coerce  instance AWSRequest RemoveTagsFromResource where         type Rs RemoveTagsFromResource = TagListMessage
gen/Network/AWS/ElastiCache/ResetCacheParameterGroup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.ResetCacheParameterGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,23 +71,23 @@     -> ResetCacheParameterGroup resetCacheParameterGroup pCacheParameterGroupName_ =   ResetCacheParameterGroup'-  { _rcpgResetAllParameters = Nothing-  , _rcpgParameterNameValues = Nothing-  , _rcpgCacheParameterGroupName = pCacheParameterGroupName_-  }+    { _rcpgResetAllParameters = Nothing+    , _rcpgParameterNameValues = Nothing+    , _rcpgCacheParameterGroupName = pCacheParameterGroupName_+    }   -- | If @true@ , all parameters in the cache parameter group are reset to their default values. If @false@ , only the parameters listed by @ParameterNameValues@ are reset to their default values. Valid values: @true@ | @false@ rcpgResetAllParameters :: Lens' ResetCacheParameterGroup (Maybe Bool)-rcpgResetAllParameters = lens _rcpgResetAllParameters (\ s a -> s{_rcpgResetAllParameters = a});+rcpgResetAllParameters = lens _rcpgResetAllParameters (\ s a -> s{_rcpgResetAllParameters = a})  -- | An array of parameter names to reset to their default values. If @ResetAllParameters@ is @true@ , do not use @ParameterNameValues@ . If @ResetAllParameters@ is @false@ , you must specify the name of at least one parameter to reset. rcpgParameterNameValues :: Lens' ResetCacheParameterGroup [ParameterNameValue]-rcpgParameterNameValues = lens _rcpgParameterNameValues (\ s a -> s{_rcpgParameterNameValues = a}) . _Default . _Coerce;+rcpgParameterNameValues = lens _rcpgParameterNameValues (\ s a -> s{_rcpgParameterNameValues = a}) . _Default . _Coerce  -- | The name of the cache parameter group to reset. rcpgCacheParameterGroupName :: Lens' ResetCacheParameterGroup Text-rcpgCacheParameterGroupName = lens _rcpgCacheParameterGroupName (\ s a -> s{_rcpgCacheParameterGroupName = a});+rcpgCacheParameterGroupName = lens _rcpgCacheParameterGroupName (\ s a -> s{_rcpgCacheParameterGroupName = a})  instance AWSRequest ResetCacheParameterGroup where         type Rs ResetCacheParameterGroup =
gen/Network/AWS/ElastiCache/RevokeCacheSecurityGroupIngress.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.RevokeCacheSecurityGroupIngress--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,23 +74,23 @@     -> RevokeCacheSecurityGroupIngress revokeCacheSecurityGroupIngress pCacheSecurityGroupName_ pEC2SecurityGroupName_ pEC2SecurityGroupOwnerId_ =   RevokeCacheSecurityGroupIngress'-  { _rcsgiCacheSecurityGroupName = pCacheSecurityGroupName_-  , _rcsgiEC2SecurityGroupName = pEC2SecurityGroupName_-  , _rcsgiEC2SecurityGroupOwnerId = pEC2SecurityGroupOwnerId_-  }+    { _rcsgiCacheSecurityGroupName = pCacheSecurityGroupName_+    , _rcsgiEC2SecurityGroupName = pEC2SecurityGroupName_+    , _rcsgiEC2SecurityGroupOwnerId = pEC2SecurityGroupOwnerId_+    }   -- | The name of the cache security group to revoke ingress from. rcsgiCacheSecurityGroupName :: Lens' RevokeCacheSecurityGroupIngress Text-rcsgiCacheSecurityGroupName = lens _rcsgiCacheSecurityGroupName (\ s a -> s{_rcsgiCacheSecurityGroupName = a});+rcsgiCacheSecurityGroupName = lens _rcsgiCacheSecurityGroupName (\ s a -> s{_rcsgiCacheSecurityGroupName = a})  -- | The name of the Amazon EC2 security group to revoke access from. rcsgiEC2SecurityGroupName :: Lens' RevokeCacheSecurityGroupIngress Text-rcsgiEC2SecurityGroupName = lens _rcsgiEC2SecurityGroupName (\ s a -> s{_rcsgiEC2SecurityGroupName = a});+rcsgiEC2SecurityGroupName = lens _rcsgiEC2SecurityGroupName (\ s a -> s{_rcsgiEC2SecurityGroupName = a})  -- | The AWS account number of the Amazon EC2 security group owner. Note that this is not the same thing as an AWS access key ID - you must provide a valid AWS account number for this parameter. rcsgiEC2SecurityGroupOwnerId :: Lens' RevokeCacheSecurityGroupIngress Text-rcsgiEC2SecurityGroupOwnerId = lens _rcsgiEC2SecurityGroupOwnerId (\ s a -> s{_rcsgiEC2SecurityGroupOwnerId = a});+rcsgiEC2SecurityGroupOwnerId = lens _rcsgiEC2SecurityGroupOwnerId (\ s a -> s{_rcsgiEC2SecurityGroupOwnerId = a})  instance AWSRequest RevokeCacheSecurityGroupIngress          where@@ -148,18 +148,18 @@     -> RevokeCacheSecurityGroupIngressResponse revokeCacheSecurityGroupIngressResponse pResponseStatus_ =   RevokeCacheSecurityGroupIngressResponse'-  { _rcsgirsCacheSecurityGroup = Nothing-  , _rcsgirsResponseStatus = pResponseStatus_-  }+    { _rcsgirsCacheSecurityGroup = Nothing+    , _rcsgirsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. rcsgirsCacheSecurityGroup :: Lens' RevokeCacheSecurityGroupIngressResponse (Maybe CacheSecurityGroup)-rcsgirsCacheSecurityGroup = lens _rcsgirsCacheSecurityGroup (\ s a -> s{_rcsgirsCacheSecurityGroup = a});+rcsgirsCacheSecurityGroup = lens _rcsgirsCacheSecurityGroup (\ s a -> s{_rcsgirsCacheSecurityGroup = a})  -- | -- | The response status code. rcsgirsResponseStatus :: Lens' RevokeCacheSecurityGroupIngressResponse Int-rcsgirsResponseStatus = lens _rcsgirsResponseStatus (\ s a -> s{_rcsgirsResponseStatus = a});+rcsgirsResponseStatus = lens _rcsgirsResponseStatus (\ s a -> s{_rcsgirsResponseStatus = a})  instance NFData            RevokeCacheSecurityGroupIngressResponse
gen/Network/AWS/ElastiCache/TestFailover.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElastiCache.TestFailover--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -101,16 +101,18 @@     -> TestFailover testFailover pReplicationGroupId_ pNodeGroupId_ =   TestFailover'-  {_tfReplicationGroupId = pReplicationGroupId_, _tfNodeGroupId = pNodeGroupId_}+    { _tfReplicationGroupId = pReplicationGroupId_+    , _tfNodeGroupId = pNodeGroupId_+    }   -- | The name of the replication group (console: cluster) whose automatic failover is being tested by this operation. tfReplicationGroupId :: Lens' TestFailover Text-tfReplicationGroupId = lens _tfReplicationGroupId (\ s a -> s{_tfReplicationGroupId = a});+tfReplicationGroupId = lens _tfReplicationGroupId (\ s a -> s{_tfReplicationGroupId = a})  -- | The name of the node group (called shard in the console) in this replication group on which automatic failover is to be tested. You may test automatic failover on up to 5 node groups in any rolling 24-hour period. tfNodeGroupId :: Lens' TestFailover Text-tfNodeGroupId = lens _tfNodeGroupId (\ s a -> s{_tfNodeGroupId = a});+tfNodeGroupId = lens _tfNodeGroupId (\ s a -> s{_tfNodeGroupId = a})  instance AWSRequest TestFailover where         type Rs TestFailover = TestFailoverResponse@@ -158,15 +160,15 @@     -> TestFailoverResponse testFailoverResponse pResponseStatus_ =   TestFailoverResponse'-  {_tfrsReplicationGroup = Nothing, _tfrsResponseStatus = pResponseStatus_}+    {_tfrsReplicationGroup = Nothing, _tfrsResponseStatus = pResponseStatus_}   -- | Undocumented member. tfrsReplicationGroup :: Lens' TestFailoverResponse (Maybe ReplicationGroup)-tfrsReplicationGroup = lens _tfrsReplicationGroup (\ s a -> s{_tfrsReplicationGroup = a});+tfrsReplicationGroup = lens _tfrsReplicationGroup (\ s a -> s{_tfrsReplicationGroup = a})  -- | -- | The response status code. tfrsResponseStatus :: Lens' TestFailoverResponse Int-tfrsResponseStatus = lens _tfrsResponseStatus (\ s a -> s{_tfrsResponseStatus = a});+tfrsResponseStatus = lens _tfrsResponseStatus (\ s a -> s{_tfrsResponseStatus = a})  instance NFData TestFailoverResponse where
gen/Network/AWS/ElastiCache/Types.hs view
@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.ElastiCache.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -429,24 +429,24 @@ elastiCache :: Service elastiCache =   Service-  { _svcAbbrev = "ElastiCache"-  , _svcSigner = v4-  , _svcPrefix = "elasticache"-  , _svcVersion = "2015-02-02"-  , _svcEndpoint = defaultEndpoint elastiCache-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseXMLError "ElastiCache"-  , _svcRetry = retry-  }+    { _svcAbbrev = "ElastiCache"+    , _svcSigner = v4+    , _svcPrefix = "elasticache"+    , _svcVersion = "2015-02-02"+    , _svcEndpoint = defaultEndpoint elastiCache+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError "ElastiCache"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -455,6 +455,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"
gen/Network/AWS/ElastiCache/Types/Product.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.ElastiCache.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -43,7 +43,7 @@  -- | The name of the Availability Zone. azName :: Lens' AvailabilityZone (Maybe Text)-azName = lens _azName (\ s a -> s{_azName = a});+azName = lens _azName (\ s a -> s{_azName = a})  instance FromXML AvailabilityZone where         parseXML x = AvailabilityZone' <$> (x .@? "Name")@@ -143,133 +143,133 @@     :: CacheCluster cacheCluster =   CacheCluster'-  { _ccEngineVersion = Nothing-  , _ccCacheNodeType = Nothing-  , _ccCacheNodes = Nothing-  , _ccCacheClusterCreateTime = Nothing-  , _ccAtRestEncryptionEnabled = Nothing-  , _ccAutoMinorVersionUpgrade = Nothing-  , _ccSecurityGroups = Nothing-  , _ccNotificationConfiguration = Nothing-  , _ccTransitEncryptionEnabled = Nothing-  , _ccSnapshotWindow = Nothing-  , _ccCacheClusterId = Nothing-  , _ccConfigurationEndpoint = Nothing-  , _ccEngine = Nothing-  , _ccCacheSecurityGroups = Nothing-  , _ccAuthTokenEnabled = Nothing-  , _ccClientDownloadLandingPage = Nothing-  , _ccPreferredMaintenanceWindow = Nothing-  , _ccCacheSubnetGroupName = Nothing-  , _ccPreferredAvailabilityZone = Nothing-  , _ccCacheParameterGroup = Nothing-  , _ccCacheClusterStatus = Nothing-  , _ccSnapshotRetentionLimit = Nothing-  , _ccReplicationGroupId = Nothing-  , _ccPendingModifiedValues = Nothing-  , _ccNumCacheNodes = Nothing-  }+    { _ccEngineVersion = Nothing+    , _ccCacheNodeType = Nothing+    , _ccCacheNodes = Nothing+    , _ccCacheClusterCreateTime = Nothing+    , _ccAtRestEncryptionEnabled = Nothing+    , _ccAutoMinorVersionUpgrade = Nothing+    , _ccSecurityGroups = Nothing+    , _ccNotificationConfiguration = Nothing+    , _ccTransitEncryptionEnabled = Nothing+    , _ccSnapshotWindow = Nothing+    , _ccCacheClusterId = Nothing+    , _ccConfigurationEndpoint = Nothing+    , _ccEngine = Nothing+    , _ccCacheSecurityGroups = Nothing+    , _ccAuthTokenEnabled = Nothing+    , _ccClientDownloadLandingPage = Nothing+    , _ccPreferredMaintenanceWindow = Nothing+    , _ccCacheSubnetGroupName = Nothing+    , _ccPreferredAvailabilityZone = Nothing+    , _ccCacheParameterGroup = Nothing+    , _ccCacheClusterStatus = Nothing+    , _ccSnapshotRetentionLimit = Nothing+    , _ccReplicationGroupId = Nothing+    , _ccPendingModifiedValues = Nothing+    , _ccNumCacheNodes = Nothing+    }   -- | The version of the cache engine that is used in this cluster. ccEngineVersion :: Lens' CacheCluster (Maybe Text)-ccEngineVersion = lens _ccEngineVersion (\ s a -> s{_ccEngineVersion = a});+ccEngineVersion = lens _ccEngineVersion (\ s a -> s{_ccEngineVersion = a})  -- | The name of the compute and memory capacity node type for the cluster. The following node types are supported by ElastiCache. Generally speaking, the current generation types provide more memory and computational power at lower cost when compared to their equivalent previous generation counterparts.     * General purpose:     * Current generation:  __T2 node types:__ @cache.t2.micro@ , @cache.t2.small@ , @cache.t2.medium@  __M3 node types:__ @cache.m3.medium@ , @cache.m3.large@ , @cache.m3.xlarge@ , @cache.m3.2xlarge@  __M4 node types:__ @cache.m4.large@ , @cache.m4.xlarge@ , @cache.m4.2xlarge@ , @cache.m4.4xlarge@ , @cache.m4.10xlarge@      * Previous generation: (not recommended) __T1 node types:__ @cache.t1.micro@  __M1 node types:__ @cache.m1.small@ , @cache.m1.medium@ , @cache.m1.large@ , @cache.m1.xlarge@      * Compute optimized:     * Previous generation: (not recommended) __C1 node types:__ @cache.c1.xlarge@      * Memory optimized:     * Current generation:  __R3 node types:__ @cache.r3.large@ , @cache.r3.xlarge@ , @cache.r3.2xlarge@ , @cache.r3.4xlarge@ , @cache.r3.8xlarge@      * Previous generation: (not recommended) __M2 node types:__ @cache.m2.xlarge@ , @cache.m2.2xlarge@ , @cache.m2.4xlarge@  __Notes:__      * All T2 instances are created in an Amazon Virtual Private Cloud (Amazon VPC).     * Redis (cluster mode disabled): Redis backup/restore is not supported on T1 and T2 instances.      * Redis (cluster mode enabled): Backup/restore is not supported on T1 instances.     * Redis Append-only files (AOF) functionality is not supported for T1 or T2 instances. For a complete listing of node types and specifications, see <http://aws.amazon.com/elasticache/details Amazon ElastiCache Product Features and Details> and either <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Memcached.html#ParameterGroups.Memcached.NodeSpecific Cache Node Type-Specific Parameters for Memcached> or <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Redis.html#ParameterGroups.Redis.NodeSpecific Cache Node Type-Specific Parameters for Redis> . ccCacheNodeType :: Lens' CacheCluster (Maybe Text)-ccCacheNodeType = lens _ccCacheNodeType (\ s a -> s{_ccCacheNodeType = a});+ccCacheNodeType = lens _ccCacheNodeType (\ s a -> s{_ccCacheNodeType = a})  -- | A list of cache nodes that are members of the cluster. ccCacheNodes :: Lens' CacheCluster [CacheNode]-ccCacheNodes = lens _ccCacheNodes (\ s a -> s{_ccCacheNodes = a}) . _Default . _Coerce;+ccCacheNodes = lens _ccCacheNodes (\ s a -> s{_ccCacheNodes = a}) . _Default . _Coerce  -- | The date and time when the cluster was created. ccCacheClusterCreateTime :: Lens' CacheCluster (Maybe UTCTime)-ccCacheClusterCreateTime = lens _ccCacheClusterCreateTime (\ s a -> s{_ccCacheClusterCreateTime = a}) . mapping _Time;+ccCacheClusterCreateTime = lens _ccCacheClusterCreateTime (\ s a -> s{_ccCacheClusterCreateTime = a}) . mapping _Time  -- | A flag that enables encryption at-rest when set to @true@ . You cannot modify the value of @AtRestEncryptionEnabled@ after the cluster is created. To enable at-rest encryption on a cluster you must set @AtRestEncryptionEnabled@ to @true@ when you create a cluster. Default: @false@ ccAtRestEncryptionEnabled :: Lens' CacheCluster (Maybe Bool)-ccAtRestEncryptionEnabled = lens _ccAtRestEncryptionEnabled (\ s a -> s{_ccAtRestEncryptionEnabled = a});+ccAtRestEncryptionEnabled = lens _ccAtRestEncryptionEnabled (\ s a -> s{_ccAtRestEncryptionEnabled = a})  -- | This parameter is currently disabled. ccAutoMinorVersionUpgrade :: Lens' CacheCluster (Maybe Bool)-ccAutoMinorVersionUpgrade = lens _ccAutoMinorVersionUpgrade (\ s a -> s{_ccAutoMinorVersionUpgrade = a});+ccAutoMinorVersionUpgrade = lens _ccAutoMinorVersionUpgrade (\ s a -> s{_ccAutoMinorVersionUpgrade = a})  -- | A list of VPC Security Groups associated with the cluster. ccSecurityGroups :: Lens' CacheCluster [SecurityGroupMembership]-ccSecurityGroups = lens _ccSecurityGroups (\ s a -> s{_ccSecurityGroups = a}) . _Default . _Coerce;+ccSecurityGroups = lens _ccSecurityGroups (\ s a -> s{_ccSecurityGroups = a}) . _Default . _Coerce  -- | Describes a notification topic and its status. Notification topics are used for publishing ElastiCache events to subscribers using Amazon Simple Notification Service (SNS). ccNotificationConfiguration :: Lens' CacheCluster (Maybe NotificationConfiguration)-ccNotificationConfiguration = lens _ccNotificationConfiguration (\ s a -> s{_ccNotificationConfiguration = a});+ccNotificationConfiguration = lens _ccNotificationConfiguration (\ s a -> s{_ccNotificationConfiguration = a})  -- | A flag that enables in-transit encryption when set to @true@ . You cannot modify the value of @TransitEncryptionEnabled@ after the cluster is created. To enable in-transit encryption on a cluster you must set @TransitEncryptionEnabled@ to @true@ when you create a cluster. Default: @false@ ccTransitEncryptionEnabled :: Lens' CacheCluster (Maybe Bool)-ccTransitEncryptionEnabled = lens _ccTransitEncryptionEnabled (\ s a -> s{_ccTransitEncryptionEnabled = a});+ccTransitEncryptionEnabled = lens _ccTransitEncryptionEnabled (\ s a -> s{_ccTransitEncryptionEnabled = a})  -- | The daily time range (in UTC) during which ElastiCache begins taking a daily snapshot of your cluster. Example: @05:00-09:00@ ccSnapshotWindow :: Lens' CacheCluster (Maybe Text)-ccSnapshotWindow = lens _ccSnapshotWindow (\ s a -> s{_ccSnapshotWindow = a});+ccSnapshotWindow = lens _ccSnapshotWindow (\ s a -> s{_ccSnapshotWindow = a})  -- | The user-supplied identifier of the cluster. This identifier is a unique key that identifies a cluster. ccCacheClusterId :: Lens' CacheCluster (Maybe Text)-ccCacheClusterId = lens _ccCacheClusterId (\ s a -> s{_ccCacheClusterId = a});+ccCacheClusterId = lens _ccCacheClusterId (\ s a -> s{_ccCacheClusterId = a})  -- | Represents a Memcached cluster endpoint which, if Automatic Discovery is enabled on the cluster, can be used by an application to connect to any node in the cluster. The configuration endpoint will always have @.cfg@ in it. Example: @mem-3.9dvc4r/.cfg/ .usw2.cache.amazonaws.com:11211@ ccConfigurationEndpoint :: Lens' CacheCluster (Maybe Endpoint)-ccConfigurationEndpoint = lens _ccConfigurationEndpoint (\ s a -> s{_ccConfigurationEndpoint = a});+ccConfigurationEndpoint = lens _ccConfigurationEndpoint (\ s a -> s{_ccConfigurationEndpoint = a})  -- | The name of the cache engine (@memcached@ or @redis@ ) to be used for this cluster. ccEngine :: Lens' CacheCluster (Maybe Text)-ccEngine = lens _ccEngine (\ s a -> s{_ccEngine = a});+ccEngine = lens _ccEngine (\ s a -> s{_ccEngine = a})  -- | A list of cache security group elements, composed of name and status sub-elements. ccCacheSecurityGroups :: Lens' CacheCluster [CacheSecurityGroupMembership]-ccCacheSecurityGroups = lens _ccCacheSecurityGroups (\ s a -> s{_ccCacheSecurityGroups = a}) . _Default . _Coerce;+ccCacheSecurityGroups = lens _ccCacheSecurityGroups (\ s a -> s{_ccCacheSecurityGroups = a}) . _Default . _Coerce  -- | A flag that enables using an @AuthToken@ (password) when issuing Redis commands. Default: @false@ ccAuthTokenEnabled :: Lens' CacheCluster (Maybe Bool)-ccAuthTokenEnabled = lens _ccAuthTokenEnabled (\ s a -> s{_ccAuthTokenEnabled = a});+ccAuthTokenEnabled = lens _ccAuthTokenEnabled (\ s a -> s{_ccAuthTokenEnabled = a})  -- | The URL of the web page where you can download the latest ElastiCache client library. ccClientDownloadLandingPage :: Lens' CacheCluster (Maybe Text)-ccClientDownloadLandingPage = lens _ccClientDownloadLandingPage (\ s a -> s{_ccClientDownloadLandingPage = a});+ccClientDownloadLandingPage = lens _ccClientDownloadLandingPage (\ s a -> s{_ccClientDownloadLandingPage = a})  -- | Specifies the weekly time range during which maintenance on the 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 is a 60 minute period. Valid values for @ddd@ are:     * @sun@      * @mon@      * @tue@      * @wed@      * @thu@      * @fri@      * @sat@  Example: @sun:23:00-mon:01:30@ ccPreferredMaintenanceWindow :: Lens' CacheCluster (Maybe Text)-ccPreferredMaintenanceWindow = lens _ccPreferredMaintenanceWindow (\ s a -> s{_ccPreferredMaintenanceWindow = a});+ccPreferredMaintenanceWindow = lens _ccPreferredMaintenanceWindow (\ s a -> s{_ccPreferredMaintenanceWindow = a})  -- | The name of the cache subnet group associated with the cluster. ccCacheSubnetGroupName :: Lens' CacheCluster (Maybe Text)-ccCacheSubnetGroupName = lens _ccCacheSubnetGroupName (\ s a -> s{_ccCacheSubnetGroupName = a});+ccCacheSubnetGroupName = lens _ccCacheSubnetGroupName (\ s a -> s{_ccCacheSubnetGroupName = a})  -- | The name of the Availability Zone in which the cluster is located or "Multiple" if the cache nodes are located in different Availability Zones. ccPreferredAvailabilityZone :: Lens' CacheCluster (Maybe Text)-ccPreferredAvailabilityZone = lens _ccPreferredAvailabilityZone (\ s a -> s{_ccPreferredAvailabilityZone = a});+ccPreferredAvailabilityZone = lens _ccPreferredAvailabilityZone (\ s a -> s{_ccPreferredAvailabilityZone = a})  -- | Status of the cache parameter group. ccCacheParameterGroup :: Lens' CacheCluster (Maybe CacheParameterGroupStatus)-ccCacheParameterGroup = lens _ccCacheParameterGroup (\ s a -> s{_ccCacheParameterGroup = a});+ccCacheParameterGroup = lens _ccCacheParameterGroup (\ s a -> s{_ccCacheParameterGroup = a})  -- | The current state of this cluster, one of the following values: @available@ , @creating@ , @deleted@ , @deleting@ , @incompatible-network@ , @modifying@ , @rebooting cluster nodes@ , @restore-failed@ , or @snapshotting@ . ccCacheClusterStatus :: Lens' CacheCluster (Maybe Text)-ccCacheClusterStatus = lens _ccCacheClusterStatus (\ s a -> s{_ccCacheClusterStatus = a});+ccCacheClusterStatus = lens _ccCacheClusterStatus (\ s a -> s{_ccCacheClusterStatus = a})  -- | The number of days for which ElastiCache retains automatic cluster snapshots before deleting them. For example, if you set @SnapshotRetentionLimit@ to 5, a snapshot that was taken today is retained for 5 days before being deleted. /Important:/ If the value of SnapshotRetentionLimit is set to zero (0), backups are turned off. ccSnapshotRetentionLimit :: Lens' CacheCluster (Maybe Int)-ccSnapshotRetentionLimit = lens _ccSnapshotRetentionLimit (\ s a -> s{_ccSnapshotRetentionLimit = a});+ccSnapshotRetentionLimit = lens _ccSnapshotRetentionLimit (\ s a -> s{_ccSnapshotRetentionLimit = a})  -- | The replication group to which this cluster belongs. If this field is empty, the cluster is not associated with any replication group. ccReplicationGroupId :: Lens' CacheCluster (Maybe Text)-ccReplicationGroupId = lens _ccReplicationGroupId (\ s a -> s{_ccReplicationGroupId = a});+ccReplicationGroupId = lens _ccReplicationGroupId (\ s a -> s{_ccReplicationGroupId = a})  -- | Undocumented member. ccPendingModifiedValues :: Lens' CacheCluster (Maybe PendingModifiedValues)-ccPendingModifiedValues = lens _ccPendingModifiedValues (\ s a -> s{_ccPendingModifiedValues = a});+ccPendingModifiedValues = lens _ccPendingModifiedValues (\ s a -> s{_ccPendingModifiedValues = a})  -- | The number of cache nodes in the cluster. For clusters running Redis, this value must be 1. For clusters running Memcached, this value must be between 1 and 20. ccNumCacheNodes :: Lens' CacheCluster (Maybe Int)-ccNumCacheNodes = lens _ccNumCacheNodes (\ s a -> s{_ccNumCacheNodes = a});+ccNumCacheNodes = lens _ccNumCacheNodes (\ s a -> s{_ccNumCacheNodes = a})  instance FromXML CacheCluster where         parseXML x@@ -340,33 +340,33 @@     :: CacheEngineVersion cacheEngineVersion =   CacheEngineVersion'-  { _cevEngineVersion = Nothing-  , _cevCacheParameterGroupFamily = Nothing-  , _cevCacheEngineDescription = Nothing-  , _cevEngine = Nothing-  , _cevCacheEngineVersionDescription = Nothing-  }+    { _cevEngineVersion = Nothing+    , _cevCacheParameterGroupFamily = Nothing+    , _cevCacheEngineDescription = Nothing+    , _cevEngine = Nothing+    , _cevCacheEngineVersionDescription = Nothing+    }   -- | The version number of the cache engine. cevEngineVersion :: Lens' CacheEngineVersion (Maybe Text)-cevEngineVersion = lens _cevEngineVersion (\ s a -> s{_cevEngineVersion = a});+cevEngineVersion = lens _cevEngineVersion (\ s a -> s{_cevEngineVersion = a})  -- | The name of the cache parameter group family associated with this cache engine. Valid values are: @memcached1.4@ | @redis2.6@ | @redis2.8@ | @redis3.2@ cevCacheParameterGroupFamily :: Lens' CacheEngineVersion (Maybe Text)-cevCacheParameterGroupFamily = lens _cevCacheParameterGroupFamily (\ s a -> s{_cevCacheParameterGroupFamily = a});+cevCacheParameterGroupFamily = lens _cevCacheParameterGroupFamily (\ s a -> s{_cevCacheParameterGroupFamily = a})  -- | The description of the cache engine. cevCacheEngineDescription :: Lens' CacheEngineVersion (Maybe Text)-cevCacheEngineDescription = lens _cevCacheEngineDescription (\ s a -> s{_cevCacheEngineDescription = a});+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});+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});+cevCacheEngineVersionDescription = lens _cevCacheEngineVersionDescription (\ s a -> s{_cevCacheEngineVersionDescription = a})  instance FromXML CacheEngineVersion where         parseXML x@@ -474,43 +474,43 @@     :: CacheNode cacheNode =   CacheNode'-  { _cnSourceCacheNodeId = Nothing-  , _cnParameterGroupStatus = Nothing-  , _cnCacheNodeCreateTime = Nothing-  , _cnCustomerAvailabilityZone = Nothing-  , _cnCacheNodeId = Nothing-  , _cnCacheNodeStatus = Nothing-  , _cnEndpoint = Nothing-  }+    { _cnSourceCacheNodeId = Nothing+    , _cnParameterGroupStatus = Nothing+    , _cnCacheNodeCreateTime = Nothing+    , _cnCustomerAvailabilityZone = Nothing+    , _cnCacheNodeId = Nothing+    , _cnCacheNodeStatus = Nothing+    , _cnEndpoint = Nothing+    }   -- | The ID of the primary node to which this read replica node is synchronized. If this field is empty, this node is not associated with a primary cluster. cnSourceCacheNodeId :: Lens' CacheNode (Maybe Text)-cnSourceCacheNodeId = lens _cnSourceCacheNodeId (\ s a -> s{_cnSourceCacheNodeId = a});+cnSourceCacheNodeId = lens _cnSourceCacheNodeId (\ s a -> s{_cnSourceCacheNodeId = a})  -- | The status of the parameter group applied to this cache node. cnParameterGroupStatus :: Lens' CacheNode (Maybe Text)-cnParameterGroupStatus = lens _cnParameterGroupStatus (\ s a -> s{_cnParameterGroupStatus = a});+cnParameterGroupStatus = lens _cnParameterGroupStatus (\ s a -> s{_cnParameterGroupStatus = a})  -- | The date and time when the cache node was created. cnCacheNodeCreateTime :: Lens' CacheNode (Maybe UTCTime)-cnCacheNodeCreateTime = lens _cnCacheNodeCreateTime (\ s a -> s{_cnCacheNodeCreateTime = a}) . mapping _Time;+cnCacheNodeCreateTime = lens _cnCacheNodeCreateTime (\ s a -> s{_cnCacheNodeCreateTime = a}) . mapping _Time  -- | The Availability Zone where this node was created and now resides. cnCustomerAvailabilityZone :: Lens' CacheNode (Maybe Text)-cnCustomerAvailabilityZone = lens _cnCustomerAvailabilityZone (\ s a -> s{_cnCustomerAvailabilityZone = a});+cnCustomerAvailabilityZone = lens _cnCustomerAvailabilityZone (\ s a -> s{_cnCustomerAvailabilityZone = a})  -- | The cache node identifier. A node ID is a numeric identifier (0001, 0002, etc.). The combination of cluster ID and node ID uniquely identifies every cache node used in a customer's AWS account. cnCacheNodeId :: Lens' CacheNode (Maybe Text)-cnCacheNodeId = lens _cnCacheNodeId (\ s a -> s{_cnCacheNodeId = a});+cnCacheNodeId = lens _cnCacheNodeId (\ s a -> s{_cnCacheNodeId = a})  -- | The current state of this cache node. cnCacheNodeStatus :: Lens' CacheNode (Maybe Text)-cnCacheNodeStatus = lens _cnCacheNodeStatus (\ s a -> s{_cnCacheNodeStatus = a});+cnCacheNodeStatus = lens _cnCacheNodeStatus (\ s a -> s{_cnCacheNodeStatus = a})  -- | The hostname for connecting to this cache node. cnEndpoint :: Lens' CacheNode (Maybe Endpoint)-cnEndpoint = lens _cnEndpoint (\ s a -> s{_cnEndpoint = a});+cnEndpoint = lens _cnEndpoint (\ s a -> s{_cnEndpoint = a})  instance FromXML CacheNode where         parseXML x@@ -570,53 +570,53 @@     :: CacheNodeTypeSpecificParameter cacheNodeTypeSpecificParameter =   CacheNodeTypeSpecificParameter'-  { _cntspCacheNodeTypeSpecificValues = Nothing-  , _cntspMinimumEngineVersion = Nothing-  , _cntspSource = Nothing-  , _cntspIsModifiable = Nothing-  , _cntspDataType = Nothing-  , _cntspAllowedValues = Nothing-  , _cntspParameterName = Nothing-  , _cntspDescription = Nothing-  , _cntspChangeType = Nothing-  }+    { _cntspCacheNodeTypeSpecificValues = Nothing+    , _cntspMinimumEngineVersion = Nothing+    , _cntspSource = Nothing+    , _cntspIsModifiable = Nothing+    , _cntspDataType = Nothing+    , _cntspAllowedValues = Nothing+    , _cntspParameterName = Nothing+    , _cntspDescription = Nothing+    , _cntspChangeType = Nothing+    }   -- | A list of cache node types and their corresponding values for this parameter. cntspCacheNodeTypeSpecificValues :: Lens' CacheNodeTypeSpecificParameter [CacheNodeTypeSpecificValue]-cntspCacheNodeTypeSpecificValues = lens _cntspCacheNodeTypeSpecificValues (\ s a -> s{_cntspCacheNodeTypeSpecificValues = a}) . _Default . _Coerce;+cntspCacheNodeTypeSpecificValues = lens _cntspCacheNodeTypeSpecificValues (\ s a -> s{_cntspCacheNodeTypeSpecificValues = a}) . _Default . _Coerce  -- | The earliest cache engine version to which the parameter can apply. cntspMinimumEngineVersion :: Lens' CacheNodeTypeSpecificParameter (Maybe Text)-cntspMinimumEngineVersion = lens _cntspMinimumEngineVersion (\ s a -> s{_cntspMinimumEngineVersion = a});+cntspMinimumEngineVersion = lens _cntspMinimumEngineVersion (\ s a -> s{_cntspMinimumEngineVersion = a})  -- | The source of the parameter value. cntspSource :: Lens' CacheNodeTypeSpecificParameter (Maybe Text)-cntspSource = lens _cntspSource (\ s a -> s{_cntspSource = a});+cntspSource = lens _cntspSource (\ s a -> s{_cntspSource = a})  -- | Indicates whether (@true@ ) or not (@false@ ) the parameter can be modified. Some parameters have security or operational implications that prevent them from being changed. cntspIsModifiable :: Lens' CacheNodeTypeSpecificParameter (Maybe Bool)-cntspIsModifiable = lens _cntspIsModifiable (\ s a -> s{_cntspIsModifiable = a});+cntspIsModifiable = lens _cntspIsModifiable (\ s a -> s{_cntspIsModifiable = a})  -- | The valid data type for the parameter. cntspDataType :: Lens' CacheNodeTypeSpecificParameter (Maybe Text)-cntspDataType = lens _cntspDataType (\ s a -> s{_cntspDataType = a});+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});+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});+cntspParameterName = lens _cntspParameterName (\ s a -> s{_cntspParameterName = a})  -- | A description of the parameter. cntspDescription :: Lens' CacheNodeTypeSpecificParameter (Maybe Text)-cntspDescription = lens _cntspDescription (\ s a -> s{_cntspDescription = a});+cntspDescription = lens _cntspDescription (\ s a -> s{_cntspDescription = a})  -- | Indicates whether a change to the parameter is applied immediately or requires a reboot for the change to be applied. You can force a reboot or wait until the next maintenance window's reboot. For more information, see <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/Clusters.Rebooting.html Rebooting a Cluster> . cntspChangeType :: Lens' CacheNodeTypeSpecificParameter (Maybe ChangeType)-cntspChangeType = lens _cntspChangeType (\ s a -> s{_cntspChangeType = a});+cntspChangeType = lens _cntspChangeType (\ s a -> s{_cntspChangeType = a})  instance FromXML CacheNodeTypeSpecificParameter where         parseXML x@@ -659,16 +659,16 @@     :: CacheNodeTypeSpecificValue cacheNodeTypeSpecificValue =   CacheNodeTypeSpecificValue'-  {_cntsvCacheNodeType = Nothing, _cntsvValue = Nothing}+    {_cntsvCacheNodeType = Nothing, _cntsvValue = Nothing}   -- | The cache node type for which this value applies. cntsvCacheNodeType :: Lens' CacheNodeTypeSpecificValue (Maybe Text)-cntsvCacheNodeType = lens _cntsvCacheNodeType (\ s a -> s{_cntsvCacheNodeType = a});+cntsvCacheNodeType = lens _cntsvCacheNodeType (\ s a -> s{_cntsvCacheNodeType = a})  -- | The value for the cache node type. cntsvValue :: Lens' CacheNodeTypeSpecificValue (Maybe Text)-cntsvValue = lens _cntsvValue (\ s a -> s{_cntsvValue = a});+cntsvValue = lens _cntsvValue (\ s a -> s{_cntsvValue = a})  instance FromXML CacheNodeTypeSpecificValue where         parseXML x@@ -704,23 +704,23 @@     :: CacheParameterGroup cacheParameterGroup =   CacheParameterGroup'-  { _cpgCacheParameterGroupFamily = Nothing-  , _cpgCacheParameterGroupName = Nothing-  , _cpgDescription = Nothing-  }+    { _cpgCacheParameterGroupFamily = Nothing+    , _cpgCacheParameterGroupName = Nothing+    , _cpgDescription = Nothing+    }   -- | The name of the cache parameter group family that this cache parameter group is compatible with. Valid values are: @memcached1.4@ | @redis2.6@ | @redis2.8@ | @redis3.2@ cpgCacheParameterGroupFamily :: Lens' CacheParameterGroup (Maybe Text)-cpgCacheParameterGroupFamily = lens _cpgCacheParameterGroupFamily (\ s a -> s{_cpgCacheParameterGroupFamily = a});+cpgCacheParameterGroupFamily = lens _cpgCacheParameterGroupFamily (\ s a -> s{_cpgCacheParameterGroupFamily = a})  -- | The name of the cache parameter group. cpgCacheParameterGroupName :: Lens' CacheParameterGroup (Maybe Text)-cpgCacheParameterGroupName = lens _cpgCacheParameterGroupName (\ s a -> s{_cpgCacheParameterGroupName = a});+cpgCacheParameterGroupName = lens _cpgCacheParameterGroupName (\ s a -> s{_cpgCacheParameterGroupName = a})  -- | The description for this cache parameter group. cpgDescription :: Lens' CacheParameterGroup (Maybe Text)-cpgDescription = lens _cpgDescription (\ s a -> s{_cpgDescription = a});+cpgDescription = lens _cpgDescription (\ s a -> s{_cpgDescription = a})  instance FromXML CacheParameterGroup where         parseXML x@@ -762,7 +762,7 @@  -- | The name of the cache parameter group. cpgnmCacheParameterGroupName :: Lens' CacheParameterGroupNameMessage (Maybe Text)-cpgnmCacheParameterGroupName = lens _cpgnmCacheParameterGroupName (\ s a -> s{_cpgnmCacheParameterGroupName = a});+cpgnmCacheParameterGroupName = lens _cpgnmCacheParameterGroupName (\ s a -> s{_cpgnmCacheParameterGroupName = a})  instance FromXML CacheParameterGroupNameMessage where         parseXML x@@ -799,23 +799,23 @@     :: CacheParameterGroupStatus cacheParameterGroupStatus =   CacheParameterGroupStatus'-  { _cpgsCacheParameterGroupName = Nothing-  , _cpgsCacheNodeIdsToReboot = Nothing-  , _cpgsParameterApplyStatus = Nothing-  }+    { _cpgsCacheParameterGroupName = Nothing+    , _cpgsCacheNodeIdsToReboot = Nothing+    , _cpgsParameterApplyStatus = Nothing+    }   -- | The name of the cache parameter group. cpgsCacheParameterGroupName :: Lens' CacheParameterGroupStatus (Maybe Text)-cpgsCacheParameterGroupName = lens _cpgsCacheParameterGroupName (\ s a -> s{_cpgsCacheParameterGroupName = a});+cpgsCacheParameterGroupName = lens _cpgsCacheParameterGroupName (\ s a -> s{_cpgsCacheParameterGroupName = a})  -- | A list of the cache node IDs which need to be rebooted for parameter changes to be applied. A node ID is a numeric identifier (0001, 0002, etc.). cpgsCacheNodeIdsToReboot :: Lens' CacheParameterGroupStatus [Text]-cpgsCacheNodeIdsToReboot = lens _cpgsCacheNodeIdsToReboot (\ s a -> s{_cpgsCacheNodeIdsToReboot = a}) . _Default . _Coerce;+cpgsCacheNodeIdsToReboot = lens _cpgsCacheNodeIdsToReboot (\ s a -> s{_cpgsCacheNodeIdsToReboot = a}) . _Default . _Coerce  -- | The status of parameter updates. cpgsParameterApplyStatus :: Lens' CacheParameterGroupStatus (Maybe Text)-cpgsParameterApplyStatus = lens _cpgsParameterApplyStatus (\ s a -> s{_cpgsParameterApplyStatus = a});+cpgsParameterApplyStatus = lens _cpgsParameterApplyStatus (\ s a -> s{_cpgsParameterApplyStatus = a})  instance FromXML CacheParameterGroupStatus where         parseXML x@@ -865,28 +865,28 @@     :: CacheSecurityGroup cacheSecurityGroup =   CacheSecurityGroup'-  { _csgCacheSecurityGroupName = Nothing-  , _csgOwnerId = Nothing-  , _csgEC2SecurityGroups = Nothing-  , _csgDescription = Nothing-  }+    { _csgCacheSecurityGroupName = Nothing+    , _csgOwnerId = Nothing+    , _csgEC2SecurityGroups = Nothing+    , _csgDescription = Nothing+    }   -- | The name of the cache security group. csgCacheSecurityGroupName :: Lens' CacheSecurityGroup (Maybe Text)-csgCacheSecurityGroupName = lens _csgCacheSecurityGroupName (\ s a -> s{_csgCacheSecurityGroupName = a});+csgCacheSecurityGroupName = lens _csgCacheSecurityGroupName (\ s a -> s{_csgCacheSecurityGroupName = a})  -- | The AWS account ID of the cache security group owner. csgOwnerId :: Lens' CacheSecurityGroup (Maybe Text)-csgOwnerId = lens _csgOwnerId (\ s a -> s{_csgOwnerId = a});+csgOwnerId = lens _csgOwnerId (\ s a -> s{_csgOwnerId = a})  -- | A list of Amazon EC2 security groups that are associated with this cache security group. csgEC2SecurityGroups :: Lens' CacheSecurityGroup [EC2SecurityGroup]-csgEC2SecurityGroups = lens _csgEC2SecurityGroups (\ s a -> s{_csgEC2SecurityGroups = a}) . _Default . _Coerce;+csgEC2SecurityGroups = lens _csgEC2SecurityGroups (\ s a -> s{_csgEC2SecurityGroups = a}) . _Default . _Coerce  -- | The description of the cache security group. csgDescription :: Lens' CacheSecurityGroup (Maybe Text)-csgDescription = lens _csgDescription (\ s a -> s{_csgDescription = a});+csgDescription = lens _csgDescription (\ s a -> s{_csgDescription = a})  instance FromXML CacheSecurityGroup where         parseXML x@@ -924,16 +924,16 @@     :: CacheSecurityGroupMembership cacheSecurityGroupMembership =   CacheSecurityGroupMembership'-  {_csgmStatus = Nothing, _csgmCacheSecurityGroupName = Nothing}+    {_csgmStatus = Nothing, _csgmCacheSecurityGroupName = Nothing}   -- | The membership status in the cache security group. The status changes when a cache security group is modified, or when the cache security groups assigned to a cluster are modified. csgmStatus :: Lens' CacheSecurityGroupMembership (Maybe Text)-csgmStatus = lens _csgmStatus (\ s a -> s{_csgmStatus = a});+csgmStatus = lens _csgmStatus (\ s a -> s{_csgmStatus = a})  -- | The name of the cache security group. csgmCacheSecurityGroupName :: Lens' CacheSecurityGroupMembership (Maybe Text)-csgmCacheSecurityGroupName = lens _csgmCacheSecurityGroupName (\ s a -> s{_csgmCacheSecurityGroupName = a});+csgmCacheSecurityGroupName = lens _csgmCacheSecurityGroupName (\ s a -> s{_csgmCacheSecurityGroupName = a})  instance FromXML CacheSecurityGroupMembership where         parseXML x@@ -978,28 +978,28 @@     :: CacheSubnetGroup cacheSubnetGroup =   CacheSubnetGroup'-  { _csgVPCId = Nothing-  , _csgSubnets = Nothing-  , _csgCacheSubnetGroupName = Nothing-  , _csgCacheSubnetGroupDescription = Nothing-  }+    { _csgVPCId = Nothing+    , _csgSubnets = Nothing+    , _csgCacheSubnetGroupName = Nothing+    , _csgCacheSubnetGroupDescription = Nothing+    }   -- | The Amazon Virtual Private Cloud identifier (VPC ID) of the cache subnet group. csgVPCId :: Lens' CacheSubnetGroup (Maybe Text)-csgVPCId = lens _csgVPCId (\ s a -> s{_csgVPCId = a});+csgVPCId = lens _csgVPCId (\ s a -> s{_csgVPCId = a})  -- | A list of subnets associated with the cache subnet group. csgSubnets :: Lens' CacheSubnetGroup [Subnet]-csgSubnets = lens _csgSubnets (\ s a -> s{_csgSubnets = a}) . _Default . _Coerce;+csgSubnets = lens _csgSubnets (\ s a -> s{_csgSubnets = a}) . _Default . _Coerce  -- | The name of the cache subnet group. csgCacheSubnetGroupName :: Lens' CacheSubnetGroup (Maybe Text)-csgCacheSubnetGroupName = lens _csgCacheSubnetGroupName (\ s a -> s{_csgCacheSubnetGroupName = a});+csgCacheSubnetGroupName = lens _csgCacheSubnetGroupName (\ s a -> s{_csgCacheSubnetGroupName = a})  -- | The description of the cache subnet group. csgCacheSubnetGroupDescription :: Lens' CacheSubnetGroup (Maybe Text)-csgCacheSubnetGroupDescription = lens _csgCacheSubnetGroupDescription (\ s a -> s{_csgCacheSubnetGroupDescription = a});+csgCacheSubnetGroupDescription = lens _csgCacheSubnetGroupDescription (\ s a -> s{_csgCacheSubnetGroupDescription = a})  instance FromXML CacheSubnetGroup where         parseXML x@@ -1039,23 +1039,23 @@     :: EC2SecurityGroup ec2SecurityGroup =   EC2SecurityGroup'-  { _esgStatus = Nothing-  , _esgEC2SecurityGroupOwnerId = Nothing-  , _esgEC2SecurityGroupName = Nothing-  }+    { _esgStatus = Nothing+    , _esgEC2SecurityGroupOwnerId = Nothing+    , _esgEC2SecurityGroupName = Nothing+    }   -- | The status of the Amazon EC2 security group. esgStatus :: Lens' EC2SecurityGroup (Maybe Text)-esgStatus = lens _esgStatus (\ s a -> s{_esgStatus = a});+esgStatus = lens _esgStatus (\ s a -> s{_esgStatus = a})  -- | The AWS account ID of the Amazon EC2 security group owner. esgEC2SecurityGroupOwnerId :: Lens' EC2SecurityGroup (Maybe Text)-esgEC2SecurityGroupOwnerId = lens _esgEC2SecurityGroupOwnerId (\ s a -> s{_esgEC2SecurityGroupOwnerId = a});+esgEC2SecurityGroupOwnerId = lens _esgEC2SecurityGroupOwnerId (\ s a -> s{_esgEC2SecurityGroupOwnerId = a})  -- | The name of the Amazon EC2 security group. esgEC2SecurityGroupName :: Lens' EC2SecurityGroup (Maybe Text)-esgEC2SecurityGroupName = lens _esgEC2SecurityGroupName (\ s a -> s{_esgEC2SecurityGroupName = a});+esgEC2SecurityGroupName = lens _esgEC2SecurityGroupName (\ s a -> s{_esgEC2SecurityGroupName = a})  instance FromXML EC2SecurityGroup where         parseXML x@@ -1093,11 +1093,11 @@  -- | The DNS hostname of the cache node. eAddress :: Lens' Endpoint (Maybe Text)-eAddress = lens _eAddress (\ s a -> s{_eAddress = a});+eAddress = lens _eAddress (\ s a -> s{_eAddress = a})  -- | The port number that the cache engine is listening on. ePort :: Lens' Endpoint (Maybe Int)-ePort = lens _ePort (\ s a -> s{_ePort = a});+ePort = lens _ePort (\ s a -> s{_ePort = a})  instance FromXML Endpoint where         parseXML x@@ -1135,28 +1135,28 @@     :: EngineDefaults engineDefaults =   EngineDefaults'-  { _edCacheParameterGroupFamily = Nothing-  , _edCacheNodeTypeSpecificParameters = Nothing-  , _edMarker = Nothing-  , _edParameters = Nothing-  }+    { _edCacheParameterGroupFamily = Nothing+    , _edCacheNodeTypeSpecificParameters = Nothing+    , _edMarker = Nothing+    , _edParameters = Nothing+    }   -- | Specifies the name of the cache parameter group family to which the engine default parameters apply. Valid values are: @memcached1.4@ | @redis2.6@ | @redis2.8@ | @redis3.2@ edCacheParameterGroupFamily :: Lens' EngineDefaults (Maybe Text)-edCacheParameterGroupFamily = lens _edCacheParameterGroupFamily (\ s a -> s{_edCacheParameterGroupFamily = a});+edCacheParameterGroupFamily = lens _edCacheParameterGroupFamily (\ s a -> s{_edCacheParameterGroupFamily = a})  -- | A list of parameters specific to a particular cache node type. Each element in the list contains detailed information about one parameter. edCacheNodeTypeSpecificParameters :: Lens' EngineDefaults [CacheNodeTypeSpecificParameter]-edCacheNodeTypeSpecificParameters = lens _edCacheNodeTypeSpecificParameters (\ s a -> s{_edCacheNodeTypeSpecificParameters = a}) . _Default . _Coerce;+edCacheNodeTypeSpecificParameters = lens _edCacheNodeTypeSpecificParameters (\ s a -> s{_edCacheNodeTypeSpecificParameters = 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});+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;+edParameters = lens _edParameters (\ s a -> s{_edParameters = a}) . _Default . _Coerce  instance FromXML EngineDefaults where         parseXML x@@ -1202,28 +1202,28 @@     :: Event event =   Event'-  { _eSourceType = Nothing-  , _eSourceIdentifier = Nothing-  , _eDate = Nothing-  , _eMessage = Nothing-  }+    { _eSourceType = Nothing+    , _eSourceIdentifier = Nothing+    , _eDate = Nothing+    , _eMessage = Nothing+    }   -- | Specifies the origin of this event - a cluster, a parameter group, a security group, etc. eSourceType :: Lens' Event (Maybe SourceType)-eSourceType = lens _eSourceType (\ s a -> s{_eSourceType = a});+eSourceType = lens _eSourceType (\ s a -> s{_eSourceType = a})  -- | The identifier for the source of the event. For example, if the event occurred at the cluster level, the identifier would be the name of the cluster. eSourceIdentifier :: Lens' Event (Maybe Text)-eSourceIdentifier = lens _eSourceIdentifier (\ s a -> s{_eSourceIdentifier = a});+eSourceIdentifier = lens _eSourceIdentifier (\ s a -> s{_eSourceIdentifier = a})  -- | The date and time when the event occurred. eDate :: Lens' Event (Maybe UTCTime)-eDate = lens _eDate (\ s a -> s{_eDate = a}) . mapping _Time;+eDate = lens _eDate (\ s a -> s{_eDate = a}) . mapping _Time  -- | The text of the event. eMessage :: Lens' Event (Maybe Text)-eMessage = lens _eMessage (\ s a -> s{_eMessage = a});+eMessage = lens _eMessage (\ s a -> s{_eMessage = a})  instance FromXML Event where         parseXML x@@ -1267,33 +1267,33 @@     :: NodeGroup nodeGroup =   NodeGroup'-  { _ngStatus = Nothing-  , _ngPrimaryEndpoint = Nothing-  , _ngSlots = Nothing-  , _ngNodeGroupMembers = Nothing-  , _ngNodeGroupId = Nothing-  }+    { _ngStatus = Nothing+    , _ngPrimaryEndpoint = Nothing+    , _ngSlots = Nothing+    , _ngNodeGroupMembers = Nothing+    , _ngNodeGroupId = Nothing+    }   -- | The current state of this replication group - @creating@ , @available@ , etc. ngStatus :: Lens' NodeGroup (Maybe Text)-ngStatus = lens _ngStatus (\ s a -> s{_ngStatus = a});+ngStatus = lens _ngStatus (\ s a -> s{_ngStatus = a})  -- | The endpoint of the primary node in this node group (shard). ngPrimaryEndpoint :: Lens' NodeGroup (Maybe Endpoint)-ngPrimaryEndpoint = lens _ngPrimaryEndpoint (\ s a -> s{_ngPrimaryEndpoint = a});+ngPrimaryEndpoint = lens _ngPrimaryEndpoint (\ s a -> s{_ngPrimaryEndpoint = a})  -- | The keyspace for this node group (shard). ngSlots :: Lens' NodeGroup (Maybe Text)-ngSlots = lens _ngSlots (\ s a -> s{_ngSlots = a});+ngSlots = lens _ngSlots (\ s a -> s{_ngSlots = a})  -- | A list containing information about individual nodes within the node group (shard). ngNodeGroupMembers :: Lens' NodeGroup [NodeGroupMember]-ngNodeGroupMembers = lens _ngNodeGroupMembers (\ s a -> s{_ngNodeGroupMembers = a}) . _Default . _Coerce;+ngNodeGroupMembers = lens _ngNodeGroupMembers (\ s a -> s{_ngNodeGroupMembers = a}) . _Default . _Coerce  -- | The identifier for the node group (shard). A Redis (cluster mode disabled) replication group contains only 1 node group; therefore, the node group ID is 0001. A Redis (cluster mode enabled) replication group contains 1 to 15 node groups numbered 0001 to 0015. ngNodeGroupId :: Lens' NodeGroup (Maybe Text)-ngNodeGroupId = lens _ngNodeGroupId (\ s a -> s{_ngNodeGroupId = a});+ngNodeGroupId = lens _ngNodeGroupId (\ s a -> s{_ngNodeGroupId = a})  instance FromXML NodeGroup where         parseXML x@@ -1337,28 +1337,28 @@     :: NodeGroupConfiguration nodeGroupConfiguration =   NodeGroupConfiguration'-  { _ngcSlots = Nothing-  , _ngcReplicaCount = Nothing-  , _ngcPrimaryAvailabilityZone = Nothing-  , _ngcReplicaAvailabilityZones = Nothing-  }+    { _ngcSlots = Nothing+    , _ngcReplicaCount = Nothing+    , _ngcPrimaryAvailabilityZone = Nothing+    , _ngcReplicaAvailabilityZones = Nothing+    }   -- | A string that specifies the keyspace for a particular node group. Keyspaces range from 0 to 16,383. The string is in the format @startkey-endkey@ . Example: @"0-3999"@ ngcSlots :: Lens' NodeGroupConfiguration (Maybe Text)-ngcSlots = lens _ngcSlots (\ s a -> s{_ngcSlots = a});+ngcSlots = lens _ngcSlots (\ s a -> s{_ngcSlots = a})  -- | The number of read replica nodes in this node group (shard). ngcReplicaCount :: Lens' NodeGroupConfiguration (Maybe Int)-ngcReplicaCount = lens _ngcReplicaCount (\ s a -> s{_ngcReplicaCount = a});+ngcReplicaCount = lens _ngcReplicaCount (\ s a -> s{_ngcReplicaCount = a})  -- | The Availability Zone where the primary node of this node group (shard) is launched. ngcPrimaryAvailabilityZone :: Lens' NodeGroupConfiguration (Maybe Text)-ngcPrimaryAvailabilityZone = lens _ngcPrimaryAvailabilityZone (\ s a -> s{_ngcPrimaryAvailabilityZone = a});+ngcPrimaryAvailabilityZone = lens _ngcPrimaryAvailabilityZone (\ s a -> s{_ngcPrimaryAvailabilityZone = a})  -- | A list of Availability Zones to be used for the read replicas. The number of Availability Zones in this list must match the value of @ReplicaCount@ or @ReplicasPerNodeGroup@ if not specified. ngcReplicaAvailabilityZones :: Lens' NodeGroupConfiguration [Text]-ngcReplicaAvailabilityZones = lens _ngcReplicaAvailabilityZones (\ s a -> s{_ngcReplicaAvailabilityZones = a}) . _Default . _Coerce;+ngcReplicaAvailabilityZones = lens _ngcReplicaAvailabilityZones (\ s a -> s{_ngcReplicaAvailabilityZones = a}) . _Default . _Coerce  instance FromXML NodeGroupConfiguration where         parseXML x@@ -1416,33 +1416,33 @@     :: NodeGroupMember nodeGroupMember =   NodeGroupMember'-  { _ngmCacheClusterId = Nothing-  , _ngmCacheNodeId = Nothing-  , _ngmPreferredAvailabilityZone = Nothing-  , _ngmCurrentRole = Nothing-  , _ngmReadEndpoint = Nothing-  }+    { _ngmCacheClusterId = Nothing+    , _ngmCacheNodeId = Nothing+    , _ngmPreferredAvailabilityZone = Nothing+    , _ngmCurrentRole = Nothing+    , _ngmReadEndpoint = Nothing+    }   -- | The ID of the cluster to which the node belongs. ngmCacheClusterId :: Lens' NodeGroupMember (Maybe Text)-ngmCacheClusterId = lens _ngmCacheClusterId (\ s a -> s{_ngmCacheClusterId = a});+ngmCacheClusterId = lens _ngmCacheClusterId (\ s a -> s{_ngmCacheClusterId = a})  -- | The ID of the node within its cluster. A node ID is a numeric identifier (0001, 0002, etc.). ngmCacheNodeId :: Lens' NodeGroupMember (Maybe Text)-ngmCacheNodeId = lens _ngmCacheNodeId (\ s a -> s{_ngmCacheNodeId = a});+ngmCacheNodeId = lens _ngmCacheNodeId (\ s a -> s{_ngmCacheNodeId = a})  -- | The name of the Availability Zone in which the node is located. ngmPreferredAvailabilityZone :: Lens' NodeGroupMember (Maybe Text)-ngmPreferredAvailabilityZone = lens _ngmPreferredAvailabilityZone (\ s a -> s{_ngmPreferredAvailabilityZone = a});+ngmPreferredAvailabilityZone = lens _ngmPreferredAvailabilityZone (\ s a -> s{_ngmPreferredAvailabilityZone = a})  -- | The role that is currently assigned to the node - @primary@ or @replica@ . ngmCurrentRole :: Lens' NodeGroupMember (Maybe Text)-ngmCurrentRole = lens _ngmCurrentRole (\ s a -> s{_ngmCurrentRole = a});+ngmCurrentRole = lens _ngmCurrentRole (\ s a -> s{_ngmCurrentRole = a})  -- | Undocumented member. ngmReadEndpoint :: Lens' NodeGroupMember (Maybe Endpoint)-ngmReadEndpoint = lens _ngmReadEndpoint (\ s a -> s{_ngmReadEndpoint = a});+ngmReadEndpoint = lens _ngmReadEndpoint (\ s a -> s{_ngmReadEndpoint = a})  instance FromXML NodeGroupMember where         parseXML x@@ -1493,43 +1493,43 @@     :: NodeSnapshot nodeSnapshot =   NodeSnapshot'-  { _nsNodeGroupConfiguration = Nothing-  , _nsCacheNodeCreateTime = Nothing-  , _nsCacheClusterId = Nothing-  , _nsCacheNodeId = Nothing-  , _nsNodeGroupId = Nothing-  , _nsSnapshotCreateTime = Nothing-  , _nsCacheSize = Nothing-  }+    { _nsNodeGroupConfiguration = Nothing+    , _nsCacheNodeCreateTime = Nothing+    , _nsCacheClusterId = Nothing+    , _nsCacheNodeId = Nothing+    , _nsNodeGroupId = Nothing+    , _nsSnapshotCreateTime = Nothing+    , _nsCacheSize = Nothing+    }   -- | The configuration for the source node group (shard). nsNodeGroupConfiguration :: Lens' NodeSnapshot (Maybe NodeGroupConfiguration)-nsNodeGroupConfiguration = lens _nsNodeGroupConfiguration (\ s a -> s{_nsNodeGroupConfiguration = a});+nsNodeGroupConfiguration = lens _nsNodeGroupConfiguration (\ s a -> s{_nsNodeGroupConfiguration = a})  -- | The date and time when the cache node was created in the source cluster. nsCacheNodeCreateTime :: Lens' NodeSnapshot (Maybe UTCTime)-nsCacheNodeCreateTime = lens _nsCacheNodeCreateTime (\ s a -> s{_nsCacheNodeCreateTime = a}) . mapping _Time;+nsCacheNodeCreateTime = lens _nsCacheNodeCreateTime (\ s a -> s{_nsCacheNodeCreateTime = a}) . mapping _Time  -- | A unique identifier for the source cluster. nsCacheClusterId :: Lens' NodeSnapshot (Maybe Text)-nsCacheClusterId = lens _nsCacheClusterId (\ s a -> s{_nsCacheClusterId = a});+nsCacheClusterId = lens _nsCacheClusterId (\ s a -> s{_nsCacheClusterId = a})  -- | The cache node identifier for the node in the source cluster. nsCacheNodeId :: Lens' NodeSnapshot (Maybe Text)-nsCacheNodeId = lens _nsCacheNodeId (\ s a -> s{_nsCacheNodeId = a});+nsCacheNodeId = lens _nsCacheNodeId (\ s a -> s{_nsCacheNodeId = a})  -- | A unique identifier for the source node group (shard). nsNodeGroupId :: Lens' NodeSnapshot (Maybe Text)-nsNodeGroupId = lens _nsNodeGroupId (\ s a -> s{_nsNodeGroupId = a});+nsNodeGroupId = lens _nsNodeGroupId (\ s a -> s{_nsNodeGroupId = a})  -- | The date and time when the source node's metadata and cache data set was obtained for the snapshot. nsSnapshotCreateTime :: Lens' NodeSnapshot (Maybe UTCTime)-nsSnapshotCreateTime = lens _nsSnapshotCreateTime (\ s a -> s{_nsSnapshotCreateTime = a}) . mapping _Time;+nsSnapshotCreateTime = lens _nsSnapshotCreateTime (\ s a -> s{_nsSnapshotCreateTime = a}) . mapping _Time  -- | The size of the cache on the source cache node. nsCacheSize :: Lens' NodeSnapshot (Maybe Text)-nsCacheSize = lens _nsCacheSize (\ s a -> s{_nsCacheSize = a});+nsCacheSize = lens _nsCacheSize (\ s a -> s{_nsCacheSize = a})  instance FromXML NodeSnapshot where         parseXML x@@ -1572,11 +1572,11 @@  -- | The current state of the topic. ncTopicStatus :: Lens' NotificationConfiguration (Maybe Text)-ncTopicStatus = lens _ncTopicStatus (\ s a -> s{_ncTopicStatus = a});+ncTopicStatus = lens _ncTopicStatus (\ s a -> s{_ncTopicStatus = a})  -- | The Amazon Resource Name (ARN) that identifies the topic. ncTopicARN :: Lens' NotificationConfiguration (Maybe Text)-ncTopicARN = lens _ncTopicARN (\ s a -> s{_ncTopicARN = a});+ncTopicARN = lens _ncTopicARN (\ s a -> s{_ncTopicARN = a})  instance FromXML NotificationConfiguration where         parseXML x@@ -1630,53 +1630,53 @@     :: Parameter parameter =   Parameter'-  { _pParameterValue = Nothing-  , _pMinimumEngineVersion = Nothing-  , _pSource = Nothing-  , _pIsModifiable = Nothing-  , _pDataType = Nothing-  , _pAllowedValues = Nothing-  , _pParameterName = Nothing-  , _pDescription = Nothing-  , _pChangeType = Nothing-  }+    { _pParameterValue = Nothing+    , _pMinimumEngineVersion = Nothing+    , _pSource = Nothing+    , _pIsModifiable = Nothing+    , _pDataType = Nothing+    , _pAllowedValues = Nothing+    , _pParameterName = Nothing+    , _pDescription = Nothing+    , _pChangeType = Nothing+    }   -- | The value of the parameter. pParameterValue :: Lens' Parameter (Maybe Text)-pParameterValue = lens _pParameterValue (\ s a -> s{_pParameterValue = a});+pParameterValue = lens _pParameterValue (\ s a -> s{_pParameterValue = a})  -- | The earliest cache engine version to which the parameter can apply. pMinimumEngineVersion :: Lens' Parameter (Maybe Text)-pMinimumEngineVersion = lens _pMinimumEngineVersion (\ s a -> s{_pMinimumEngineVersion = a});+pMinimumEngineVersion = lens _pMinimumEngineVersion (\ s a -> s{_pMinimumEngineVersion = a})  -- | The source of the parameter. pSource :: Lens' Parameter (Maybe Text)-pSource = lens _pSource (\ s a -> s{_pSource = a});+pSource = lens _pSource (\ s a -> s{_pSource = a})  -- | Indicates whether (@true@ ) or not (@false@ ) the parameter can be modified. Some parameters have security or operational implications that prevent them from being changed. pIsModifiable :: Lens' Parameter (Maybe Bool)-pIsModifiable = lens _pIsModifiable (\ s a -> s{_pIsModifiable = a});+pIsModifiable = lens _pIsModifiable (\ s a -> s{_pIsModifiable = a})  -- | The valid data type for the parameter. pDataType :: Lens' Parameter (Maybe Text)-pDataType = lens _pDataType (\ s a -> s{_pDataType = a});+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});+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});+pParameterName = lens _pParameterName (\ s a -> s{_pParameterName = a})  -- | A description of the parameter. pDescription :: Lens' Parameter (Maybe Text)-pDescription = lens _pDescription (\ s a -> s{_pDescription = a});+pDescription = lens _pDescription (\ s a -> s{_pDescription = a})  -- | Indicates whether a change to the parameter is applied immediately or requires a reboot for the change to be applied. You can force a reboot or wait until the next maintenance window's reboot. For more information, see <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/Clusters.Rebooting.html Rebooting a Cluster> . pChangeType :: Lens' Parameter (Maybe ChangeType)-pChangeType = lens _pChangeType (\ s a -> s{_pChangeType = a});+pChangeType = lens _pChangeType (\ s a -> s{_pChangeType = a})  instance FromXML Parameter where         parseXML x@@ -1717,16 +1717,16 @@     :: ParameterNameValue parameterNameValue =   ParameterNameValue'-  {_pnvParameterValue = Nothing, _pnvParameterName = Nothing}+    {_pnvParameterValue = Nothing, _pnvParameterName = Nothing}   -- | The value of the parameter. pnvParameterValue :: Lens' ParameterNameValue (Maybe Text)-pnvParameterValue = lens _pnvParameterValue (\ s a -> s{_pnvParameterValue = a});+pnvParameterValue = lens _pnvParameterValue (\ s a -> s{_pnvParameterValue = a})  -- | The name of the parameter. pnvParameterName :: Lens' ParameterNameValue (Maybe Text)-pnvParameterName = lens _pnvParameterName (\ s a -> s{_pnvParameterName = a});+pnvParameterName = lens _pnvParameterName (\ s a -> s{_pnvParameterName = a})  instance Hashable ParameterNameValue where @@ -1766,28 +1766,28 @@     :: PendingModifiedValues pendingModifiedValues =   PendingModifiedValues'-  { _pmvEngineVersion = Nothing-  , _pmvCacheNodeType = Nothing-  , _pmvCacheNodeIdsToRemove = Nothing-  , _pmvNumCacheNodes = Nothing-  }+    { _pmvEngineVersion = Nothing+    , _pmvCacheNodeType = Nothing+    , _pmvCacheNodeIdsToRemove = Nothing+    , _pmvNumCacheNodes = Nothing+    }   -- | The new cache engine version that the cluster runs. pmvEngineVersion :: Lens' PendingModifiedValues (Maybe Text)-pmvEngineVersion = lens _pmvEngineVersion (\ s a -> s{_pmvEngineVersion = a});+pmvEngineVersion = lens _pmvEngineVersion (\ s a -> s{_pmvEngineVersion = a})  -- | The cache node type that this cluster or replication group is scaled to. pmvCacheNodeType :: Lens' PendingModifiedValues (Maybe Text)-pmvCacheNodeType = lens _pmvCacheNodeType (\ s a -> s{_pmvCacheNodeType = a});+pmvCacheNodeType = lens _pmvCacheNodeType (\ s a -> s{_pmvCacheNodeType = a})  -- | A list of cache node IDs that are being removed (or will be removed) from the cluster. A node ID is a numeric identifier (0001, 0002, etc.). pmvCacheNodeIdsToRemove :: Lens' PendingModifiedValues [Text]-pmvCacheNodeIdsToRemove = lens _pmvCacheNodeIdsToRemove (\ s a -> s{_pmvCacheNodeIdsToRemove = a}) . _Default . _Coerce;+pmvCacheNodeIdsToRemove = lens _pmvCacheNodeIdsToRemove (\ s a -> s{_pmvCacheNodeIdsToRemove = a}) . _Default . _Coerce  -- | The new number of cache nodes for the cluster. For clusters running Redis, this value must be 1. For clusters running Memcached, this value must be between 1 and 20. pmvNumCacheNodes :: Lens' PendingModifiedValues (Maybe Int)-pmvNumCacheNodes = lens _pmvNumCacheNodes (\ s a -> s{_pmvNumCacheNodes = a});+pmvNumCacheNodes = lens _pmvNumCacheNodes (\ s a -> s{_pmvNumCacheNodes = a})  instance FromXML PendingModifiedValues where         parseXML x@@ -1824,16 +1824,16 @@     :: RecurringCharge recurringCharge =   RecurringCharge'-  {_rcRecurringChargeFrequency = Nothing, _rcRecurringChargeAmount = Nothing}+    {_rcRecurringChargeFrequency = Nothing, _rcRecurringChargeAmount = Nothing}   -- | The frequency of the recurring charge. rcRecurringChargeFrequency :: Lens' RecurringCharge (Maybe Text)-rcRecurringChargeFrequency = lens _rcRecurringChargeFrequency (\ s a -> s{_rcRecurringChargeFrequency = a});+rcRecurringChargeFrequency = lens _rcRecurringChargeFrequency (\ s a -> s{_rcRecurringChargeFrequency = a})  -- | The monetary amount of the recurring charge. rcRecurringChargeAmount :: Lens' RecurringCharge (Maybe Double)-rcRecurringChargeAmount = lens _rcRecurringChargeAmount (\ s a -> s{_rcRecurringChargeAmount = a});+rcRecurringChargeAmount = lens _rcRecurringChargeAmount (\ s a -> s{_rcRecurringChargeAmount = a})  instance FromXML RecurringCharge where         parseXML x@@ -1909,88 +1909,88 @@     :: ReplicationGroup replicationGroup =   ReplicationGroup'-  { _rgStatus = Nothing-  , _rgCacheNodeType = Nothing-  , _rgNodeGroups = Nothing-  , _rgSnapshottingClusterId = Nothing-  , _rgClusterEnabled = Nothing-  , _rgAtRestEncryptionEnabled = Nothing-  , _rgTransitEncryptionEnabled = Nothing-  , _rgSnapshotWindow = Nothing-  , _rgConfigurationEndpoint = Nothing-  , _rgAuthTokenEnabled = Nothing-  , _rgMemberClusters = Nothing-  , _rgSnapshotRetentionLimit = Nothing-  , _rgDescription = Nothing-  , _rgReplicationGroupId = Nothing-  , _rgPendingModifiedValues = Nothing-  , _rgAutomaticFailover = Nothing-  }+    { _rgStatus = Nothing+    , _rgCacheNodeType = Nothing+    , _rgNodeGroups = Nothing+    , _rgSnapshottingClusterId = Nothing+    , _rgClusterEnabled = Nothing+    , _rgAtRestEncryptionEnabled = Nothing+    , _rgTransitEncryptionEnabled = Nothing+    , _rgSnapshotWindow = Nothing+    , _rgConfigurationEndpoint = Nothing+    , _rgAuthTokenEnabled = Nothing+    , _rgMemberClusters = Nothing+    , _rgSnapshotRetentionLimit = Nothing+    , _rgDescription = Nothing+    , _rgReplicationGroupId = Nothing+    , _rgPendingModifiedValues = Nothing+    , _rgAutomaticFailover = Nothing+    }   -- | The current state of this replication group - @creating@ , @available@ , @modifying@ , @deleting@ , @create-failed@ , @snapshotting@ . rgStatus :: Lens' ReplicationGroup (Maybe Text)-rgStatus = lens _rgStatus (\ s a -> s{_rgStatus = a});+rgStatus = lens _rgStatus (\ s a -> s{_rgStatus = a})  -- | The name of the compute and memory capacity node type for each node in the replication group. rgCacheNodeType :: Lens' ReplicationGroup (Maybe Text)-rgCacheNodeType = lens _rgCacheNodeType (\ s a -> s{_rgCacheNodeType = a});+rgCacheNodeType = lens _rgCacheNodeType (\ s a -> s{_rgCacheNodeType = a})  -- | A list of node groups in this replication group. For Redis (cluster mode disabled) replication groups, this is a single-element list. For Redis (cluster mode enabled) replication groups, the list contains an entry for each node group (shard). rgNodeGroups :: Lens' ReplicationGroup [NodeGroup]-rgNodeGroups = lens _rgNodeGroups (\ s a -> s{_rgNodeGroups = a}) . _Default . _Coerce;+rgNodeGroups = lens _rgNodeGroups (\ s a -> s{_rgNodeGroups = a}) . _Default . _Coerce  -- | The cluster ID that is used as the daily snapshot source for the replication group. rgSnapshottingClusterId :: Lens' ReplicationGroup (Maybe Text)-rgSnapshottingClusterId = lens _rgSnapshottingClusterId (\ s a -> s{_rgSnapshottingClusterId = a});+rgSnapshottingClusterId = lens _rgSnapshottingClusterId (\ s a -> s{_rgSnapshottingClusterId = a})  -- | A flag indicating whether or not this replication group is cluster enabled; i.e., whether its data can be partitioned across multiple shards (API/CLI: node groups). Valid values: @true@ | @false@ rgClusterEnabled :: Lens' ReplicationGroup (Maybe Bool)-rgClusterEnabled = lens _rgClusterEnabled (\ s a -> s{_rgClusterEnabled = a});+rgClusterEnabled = lens _rgClusterEnabled (\ s a -> s{_rgClusterEnabled = a})  -- | A flag that enables encryption at-rest when set to @true@ . You cannot modify the value of @AtRestEncryptionEnabled@ after the cluster is created. To enable encryption at-rest on a cluster you must set @AtRestEncryptionEnabled@ to @true@ when you create a cluster. Default: @false@ rgAtRestEncryptionEnabled :: Lens' ReplicationGroup (Maybe Bool)-rgAtRestEncryptionEnabled = lens _rgAtRestEncryptionEnabled (\ s a -> s{_rgAtRestEncryptionEnabled = a});+rgAtRestEncryptionEnabled = lens _rgAtRestEncryptionEnabled (\ s a -> s{_rgAtRestEncryptionEnabled = a})  -- | A flag that enables in-transit encryption when set to @true@ . You cannot modify the value of @TransitEncryptionEnabled@ after the cluster is created. To enable in-transit encryption on a cluster you must set @TransitEncryptionEnabled@ to @true@ when you create a cluster. Default: @false@ rgTransitEncryptionEnabled :: Lens' ReplicationGroup (Maybe Bool)-rgTransitEncryptionEnabled = lens _rgTransitEncryptionEnabled (\ s a -> s{_rgTransitEncryptionEnabled = a});+rgTransitEncryptionEnabled = lens _rgTransitEncryptionEnabled (\ s a -> s{_rgTransitEncryptionEnabled = a})  -- | The daily time range (in UTC) during which ElastiCache begins taking a daily snapshot of your node group (shard). Example: @05:00-09:00@  If you do not specify this parameter, ElastiCache automatically chooses an appropriate time range. rgSnapshotWindow :: Lens' ReplicationGroup (Maybe Text)-rgSnapshotWindow = lens _rgSnapshotWindow (\ s a -> s{_rgSnapshotWindow = a});+rgSnapshotWindow = lens _rgSnapshotWindow (\ s a -> s{_rgSnapshotWindow = a})  -- | The configuration endpoint for this replication group. Use the configuration endpoint to connect to this replication group. rgConfigurationEndpoint :: Lens' ReplicationGroup (Maybe Endpoint)-rgConfigurationEndpoint = lens _rgConfigurationEndpoint (\ s a -> s{_rgConfigurationEndpoint = a});+rgConfigurationEndpoint = lens _rgConfigurationEndpoint (\ s a -> s{_rgConfigurationEndpoint = a})  -- | A flag that enables using an @AuthToken@ (password) when issuing Redis commands. Default: @false@ rgAuthTokenEnabled :: Lens' ReplicationGroup (Maybe Bool)-rgAuthTokenEnabled = lens _rgAuthTokenEnabled (\ s a -> s{_rgAuthTokenEnabled = a});+rgAuthTokenEnabled = lens _rgAuthTokenEnabled (\ s a -> s{_rgAuthTokenEnabled = a})  -- | The identifiers of all the nodes that are part of this replication group. rgMemberClusters :: Lens' ReplicationGroup [Text]-rgMemberClusters = lens _rgMemberClusters (\ s a -> s{_rgMemberClusters = a}) . _Default . _Coerce;+rgMemberClusters = lens _rgMemberClusters (\ s a -> s{_rgMemberClusters = a}) . _Default . _Coerce  -- | The number of days for which ElastiCache retains automatic cluster snapshots before deleting them. For example, if you set @SnapshotRetentionLimit@ to 5, a snapshot that was taken today is retained for 5 days before being deleted. /Important:/ If the value of @SnapshotRetentionLimit@ is set to zero (0), backups are turned off. rgSnapshotRetentionLimit :: Lens' ReplicationGroup (Maybe Int)-rgSnapshotRetentionLimit = lens _rgSnapshotRetentionLimit (\ s a -> s{_rgSnapshotRetentionLimit = a});+rgSnapshotRetentionLimit = lens _rgSnapshotRetentionLimit (\ s a -> s{_rgSnapshotRetentionLimit = a})  -- | The user supplied description of the replication group. rgDescription :: Lens' ReplicationGroup (Maybe Text)-rgDescription = lens _rgDescription (\ s a -> s{_rgDescription = a});+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});+rgReplicationGroupId = lens _rgReplicationGroupId (\ s a -> s{_rgReplicationGroupId = a})  -- | A group of settings to be applied to the replication group, either immediately or during the next maintenance window. rgPendingModifiedValues :: Lens' ReplicationGroup (Maybe ReplicationGroupPendingModifiedValues)-rgPendingModifiedValues = lens _rgPendingModifiedValues (\ s a -> s{_rgPendingModifiedValues = a});+rgPendingModifiedValues = lens _rgPendingModifiedValues (\ s a -> s{_rgPendingModifiedValues = a})  -- | Indicates the status of Multi-AZ with automatic failover for this Redis replication group. Amazon ElastiCache for Redis does not support Multi-AZ with automatic failover on:     * Redis versions earlier than 2.8.6.     * Redis (cluster mode disabled): T1 and T2 cache node types.     * Redis (cluster mode enabled): T1 node types. rgAutomaticFailover :: Lens' ReplicationGroup (Maybe AutomaticFailoverStatus)-rgAutomaticFailover = lens _rgAutomaticFailover (\ s a -> s{_rgAutomaticFailover = a});+rgAutomaticFailover = lens _rgAutomaticFailover (\ s a -> s{_rgAutomaticFailover = a})  instance FromXML ReplicationGroup where         parseXML x@@ -2043,23 +2043,23 @@     :: ReplicationGroupPendingModifiedValues replicationGroupPendingModifiedValues =   ReplicationGroupPendingModifiedValues'-  { _rgpmvResharding = Nothing-  , _rgpmvPrimaryClusterId = Nothing-  , _rgpmvAutomaticFailoverStatus = Nothing-  }+    { _rgpmvResharding = Nothing+    , _rgpmvPrimaryClusterId = Nothing+    , _rgpmvAutomaticFailoverStatus = Nothing+    }   -- | The status of an online resharding operation. rgpmvResharding :: Lens' ReplicationGroupPendingModifiedValues (Maybe ReshardingStatus)-rgpmvResharding = lens _rgpmvResharding (\ s a -> s{_rgpmvResharding = a});+rgpmvResharding = lens _rgpmvResharding (\ s a -> s{_rgpmvResharding = a})  -- | The primary cluster ID that is applied immediately (if @--apply-immediately@ was specified), or during the next maintenance window. rgpmvPrimaryClusterId :: Lens' ReplicationGroupPendingModifiedValues (Maybe Text)-rgpmvPrimaryClusterId = lens _rgpmvPrimaryClusterId (\ s a -> s{_rgpmvPrimaryClusterId = a});+rgpmvPrimaryClusterId = lens _rgpmvPrimaryClusterId (\ s a -> s{_rgpmvPrimaryClusterId = a})  -- | Indicates the status of Multi-AZ with automatic failover for this Redis replication group. Amazon ElastiCache for Redis does not support Multi-AZ with automatic failover on:     * Redis versions earlier than 2.8.6.     * Redis (cluster mode disabled): T1 and T2 cache node types.     * Redis (cluster mode enabled): T1 node types. rgpmvAutomaticFailoverStatus :: Lens' ReplicationGroupPendingModifiedValues (Maybe PendingAutomaticFailoverStatus)-rgpmvAutomaticFailoverStatus = lens _rgpmvAutomaticFailoverStatus (\ s a -> s{_rgpmvAutomaticFailoverStatus = a});+rgpmvAutomaticFailoverStatus = lens _rgpmvAutomaticFailoverStatus (\ s a -> s{_rgpmvAutomaticFailoverStatus = a})  instance FromXML            ReplicationGroupPendingModifiedValues@@ -2128,68 +2128,68 @@     :: ReservedCacheNode reservedCacheNode =   ReservedCacheNode'-  { _rcnCacheNodeType = Nothing-  , _rcnState = Nothing-  , _rcnStartTime = Nothing-  , _rcnProductDescription = Nothing-  , _rcnCacheNodeCount = Nothing-  , _rcnReservedCacheNodeId = Nothing-  , _rcnRecurringCharges = Nothing-  , _rcnOfferingType = Nothing-  , _rcnUsagePrice = Nothing-  , _rcnFixedPrice = Nothing-  , _rcnDuration = Nothing-  , _rcnReservedCacheNodesOfferingId = Nothing-  }+    { _rcnCacheNodeType = Nothing+    , _rcnState = Nothing+    , _rcnStartTime = Nothing+    , _rcnProductDescription = Nothing+    , _rcnCacheNodeCount = Nothing+    , _rcnReservedCacheNodeId = Nothing+    , _rcnRecurringCharges = Nothing+    , _rcnOfferingType = Nothing+    , _rcnUsagePrice = Nothing+    , _rcnFixedPrice = Nothing+    , _rcnDuration = Nothing+    , _rcnReservedCacheNodesOfferingId = Nothing+    }   -- | The cache node type for the reserved cache nodes. The following node types are supported by ElastiCache. Generally speaking, the current generation types provide more memory and computational power at lower cost when compared to their equivalent previous generation counterparts.     * General purpose:     * Current generation:  __T2 node types:__ @cache.t2.micro@ , @cache.t2.small@ , @cache.t2.medium@  __M3 node types:__ @cache.m3.medium@ , @cache.m3.large@ , @cache.m3.xlarge@ , @cache.m3.2xlarge@  __M4 node types:__ @cache.m4.large@ , @cache.m4.xlarge@ , @cache.m4.2xlarge@ , @cache.m4.4xlarge@ , @cache.m4.10xlarge@      * Previous generation: (not recommended) __T1 node types:__ @cache.t1.micro@  __M1 node types:__ @cache.m1.small@ , @cache.m1.medium@ , @cache.m1.large@ , @cache.m1.xlarge@      * Compute optimized:     * Previous generation: (not recommended) __C1 node types:__ @cache.c1.xlarge@      * Memory optimized:     * Current generation:  __R3 node types:__ @cache.r3.large@ , @cache.r3.xlarge@ , @cache.r3.2xlarge@ , @cache.r3.4xlarge@ , @cache.r3.8xlarge@      * Previous generation: (not recommended) __M2 node types:__ @cache.m2.xlarge@ , @cache.m2.2xlarge@ , @cache.m2.4xlarge@  __Notes:__      * All T2 instances are created in an Amazon Virtual Private Cloud (Amazon VPC).     * Redis (cluster mode disabled): Redis backup/restore is not supported on T1 and T2 instances.      * Redis (cluster mode enabled): Backup/restore is not supported on T1 instances.     * Redis Append-only files (AOF) functionality is not supported for T1 or T2 instances. For a complete listing of node types and specifications, see <http://aws.amazon.com/elasticache/details Amazon ElastiCache Product Features and Details> and either <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Memcached.html#ParameterGroups.Memcached.NodeSpecific Cache Node Type-Specific Parameters for Memcached> or <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Redis.html#ParameterGroups.Redis.NodeSpecific Cache Node Type-Specific Parameters for Redis> . rcnCacheNodeType :: Lens' ReservedCacheNode (Maybe Text)-rcnCacheNodeType = lens _rcnCacheNodeType (\ s a -> s{_rcnCacheNodeType = a});+rcnCacheNodeType = lens _rcnCacheNodeType (\ s a -> s{_rcnCacheNodeType = a})  -- | The state of the reserved cache node. rcnState :: Lens' ReservedCacheNode (Maybe Text)-rcnState = lens _rcnState (\ s a -> s{_rcnState = a});+rcnState = lens _rcnState (\ s a -> s{_rcnState = a})  -- | The time the reservation started. rcnStartTime :: Lens' ReservedCacheNode (Maybe UTCTime)-rcnStartTime = lens _rcnStartTime (\ s a -> s{_rcnStartTime = a}) . mapping _Time;+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});+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});+rcnCacheNodeCount = lens _rcnCacheNodeCount (\ s a -> s{_rcnCacheNodeCount = a})  -- | The unique identifier for the reservation. rcnReservedCacheNodeId :: Lens' ReservedCacheNode (Maybe Text)-rcnReservedCacheNodeId = lens _rcnReservedCacheNodeId (\ s a -> s{_rcnReservedCacheNodeId = a});+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;+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});+rcnOfferingType = lens _rcnOfferingType (\ s a -> s{_rcnOfferingType = a})  -- | The hourly price charged for this reserved cache node. rcnUsagePrice :: Lens' ReservedCacheNode (Maybe Double)-rcnUsagePrice = lens _rcnUsagePrice (\ s a -> s{_rcnUsagePrice = a});+rcnUsagePrice = lens _rcnUsagePrice (\ s a -> s{_rcnUsagePrice = a})  -- | The fixed price charged for this reserved cache node. rcnFixedPrice :: Lens' ReservedCacheNode (Maybe Double)-rcnFixedPrice = lens _rcnFixedPrice (\ s a -> s{_rcnFixedPrice = a});+rcnFixedPrice = lens _rcnFixedPrice (\ s a -> s{_rcnFixedPrice = a})  -- | The duration of the reservation in seconds. rcnDuration :: Lens' ReservedCacheNode (Maybe Int)-rcnDuration = lens _rcnDuration (\ s a -> s{_rcnDuration = a});+rcnDuration = lens _rcnDuration (\ s a -> s{_rcnDuration = a})  -- | The offering identifier. rcnReservedCacheNodesOfferingId :: Lens' ReservedCacheNode (Maybe Text)-rcnReservedCacheNodesOfferingId = lens _rcnReservedCacheNodesOfferingId (\ s a -> s{_rcnReservedCacheNodesOfferingId = a});+rcnReservedCacheNodesOfferingId = lens _rcnReservedCacheNodesOfferingId (\ s a -> s{_rcnReservedCacheNodesOfferingId = a})  instance FromXML ReservedCacheNode where         parseXML x@@ -2252,48 +2252,48 @@     :: ReservedCacheNodesOffering reservedCacheNodesOffering =   ReservedCacheNodesOffering'-  { _rcnoCacheNodeType = Nothing-  , _rcnoProductDescription = Nothing-  , _rcnoRecurringCharges = Nothing-  , _rcnoOfferingType = Nothing-  , _rcnoUsagePrice = Nothing-  , _rcnoFixedPrice = Nothing-  , _rcnoDuration = Nothing-  , _rcnoReservedCacheNodesOfferingId = Nothing-  }+    { _rcnoCacheNodeType = Nothing+    , _rcnoProductDescription = Nothing+    , _rcnoRecurringCharges = Nothing+    , _rcnoOfferingType = Nothing+    , _rcnoUsagePrice = Nothing+    , _rcnoFixedPrice = Nothing+    , _rcnoDuration = Nothing+    , _rcnoReservedCacheNodesOfferingId = Nothing+    }   -- | The cache node type for the reserved cache node. The following node types are supported by ElastiCache. Generally speaking, the current generation types provide more memory and computational power at lower cost when compared to their equivalent previous generation counterparts.     * General purpose:     * Current generation:  __T2 node types:__ @cache.t2.micro@ , @cache.t2.small@ , @cache.t2.medium@  __M3 node types:__ @cache.m3.medium@ , @cache.m3.large@ , @cache.m3.xlarge@ , @cache.m3.2xlarge@  __M4 node types:__ @cache.m4.large@ , @cache.m4.xlarge@ , @cache.m4.2xlarge@ , @cache.m4.4xlarge@ , @cache.m4.10xlarge@      * Previous generation: (not recommended) __T1 node types:__ @cache.t1.micro@  __M1 node types:__ @cache.m1.small@ , @cache.m1.medium@ , @cache.m1.large@ , @cache.m1.xlarge@      * Compute optimized:     * Previous generation: (not recommended) __C1 node types:__ @cache.c1.xlarge@      * Memory optimized:     * Current generation:  __R3 node types:__ @cache.r3.large@ , @cache.r3.xlarge@ , @cache.r3.2xlarge@ , @cache.r3.4xlarge@ , @cache.r3.8xlarge@      * Previous generation: (not recommended) __M2 node types:__ @cache.m2.xlarge@ , @cache.m2.2xlarge@ , @cache.m2.4xlarge@  __Notes:__      * All T2 instances are created in an Amazon Virtual Private Cloud (Amazon VPC).     * Redis (cluster mode disabled): Redis backup/restore is not supported on T1 and T2 instances.      * Redis (cluster mode enabled): Backup/restore is not supported on T1 instances.     * Redis Append-only files (AOF) functionality is not supported for T1 or T2 instances. For a complete listing of node types and specifications, see <http://aws.amazon.com/elasticache/details Amazon ElastiCache Product Features and Details> and either <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Memcached.html#ParameterGroups.Memcached.NodeSpecific Cache Node Type-Specific Parameters for Memcached> or <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Redis.html#ParameterGroups.Redis.NodeSpecific Cache Node Type-Specific Parameters for Redis> . rcnoCacheNodeType :: Lens' ReservedCacheNodesOffering (Maybe Text)-rcnoCacheNodeType = lens _rcnoCacheNodeType (\ s a -> s{_rcnoCacheNodeType = a});+rcnoCacheNodeType = lens _rcnoCacheNodeType (\ s a -> s{_rcnoCacheNodeType = a})  -- | The cache engine used by the offering. rcnoProductDescription :: Lens' ReservedCacheNodesOffering (Maybe Text)-rcnoProductDescription = lens _rcnoProductDescription (\ s a -> s{_rcnoProductDescription = a});+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;+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});+rcnoOfferingType = lens _rcnoOfferingType (\ s a -> s{_rcnoOfferingType = a})  -- | The hourly price charged for this offering. rcnoUsagePrice :: Lens' ReservedCacheNodesOffering (Maybe Double)-rcnoUsagePrice = lens _rcnoUsagePrice (\ s a -> s{_rcnoUsagePrice = a});+rcnoUsagePrice = lens _rcnoUsagePrice (\ s a -> s{_rcnoUsagePrice = a})  -- | The fixed price charged for this offering. rcnoFixedPrice :: Lens' ReservedCacheNodesOffering (Maybe Double)-rcnoFixedPrice = lens _rcnoFixedPrice (\ s a -> s{_rcnoFixedPrice = a});+rcnoFixedPrice = lens _rcnoFixedPrice (\ s a -> s{_rcnoFixedPrice = a})  -- | The duration of the offering. in seconds. rcnoDuration :: Lens' ReservedCacheNodesOffering (Maybe Int)-rcnoDuration = lens _rcnoDuration (\ s a -> s{_rcnoDuration = a});+rcnoDuration = lens _rcnoDuration (\ s a -> s{_rcnoDuration = a})  -- | A unique identifier for the reserved cache node offering. rcnoReservedCacheNodesOfferingId :: Lens' ReservedCacheNodesOffering (Maybe Text)-rcnoReservedCacheNodesOfferingId = lens _rcnoReservedCacheNodesOfferingId (\ s a -> s{_rcnoReservedCacheNodesOfferingId = a});+rcnoReservedCacheNodesOfferingId = lens _rcnoReservedCacheNodesOfferingId (\ s a -> s{_rcnoReservedCacheNodesOfferingId = a})  instance FromXML ReservedCacheNodesOffering where         parseXML x@@ -2336,7 +2336,7 @@  -- | A list of preferred availability zones for the nodes in this cluster. rcPreferredAvailabilityZones :: Lens' ReshardingConfiguration [Text]-rcPreferredAvailabilityZones = lens _rcPreferredAvailabilityZones (\ s a -> s{_rcPreferredAvailabilityZones = a}) . _Default . _Coerce;+rcPreferredAvailabilityZones = lens _rcPreferredAvailabilityZones (\ s a -> s{_rcPreferredAvailabilityZones = a}) . _Default . _Coerce  instance Hashable ReshardingConfiguration where @@ -2372,7 +2372,7 @@  -- | Represents the progress of an online resharding operation. rsSlotMigration :: Lens' ReshardingStatus (Maybe SlotMigration)-rsSlotMigration = lens _rsSlotMigration (\ s a -> s{_rsSlotMigration = a});+rsSlotMigration = lens _rsSlotMigration (\ s a -> s{_rsSlotMigration = a})  instance FromXML ReshardingStatus where         parseXML x@@ -2408,11 +2408,11 @@  -- | The status of the cache security group membership. The status changes whenever a cache security group is modified, or when the cache security groups assigned to a cluster are modified. sgmStatus :: Lens' SecurityGroupMembership (Maybe Text)-sgmStatus = lens _sgmStatus (\ s a -> s{_sgmStatus = a});+sgmStatus = lens _sgmStatus (\ s a -> s{_sgmStatus = a})  -- | The identifier of the cache security group. sgmSecurityGroupId :: Lens' SecurityGroupMembership (Maybe Text)-sgmSecurityGroupId = lens _sgmSecurityGroupId (\ s a -> s{_sgmSecurityGroupId = a});+sgmSecurityGroupId = lens _sgmSecurityGroupId (\ s a -> s{_sgmSecurityGroupId = a})  instance FromXML SecurityGroupMembership where         parseXML x@@ -2445,7 +2445,7 @@  -- | The percentage of the slot migration that is complete. smProgressPercentage :: Lens' SlotMigration (Maybe Double)-smProgressPercentage = lens _smProgressPercentage (\ s a -> s{_smProgressPercentage = a});+smProgressPercentage = lens _smProgressPercentage (\ s a -> s{_smProgressPercentage = a})  instance FromXML SlotMigration where         parseXML x@@ -2543,128 +2543,128 @@     :: Snapshot snapshot =   Snapshot'-  { _sEngineVersion = Nothing-  , _sCacheNodeType = Nothing-  , _sCacheClusterCreateTime = Nothing-  , _sAutoMinorVersionUpgrade = Nothing-  , _sCacheParameterGroupName = Nothing-  , _sReplicationGroupDescription = Nothing-  , _sVPCId = Nothing-  , _sSnapshotStatus = Nothing-  , _sSnapshotWindow = Nothing-  , _sCacheClusterId = Nothing-  , _sEngine = Nothing-  , _sPreferredMaintenanceWindow = Nothing-  , _sTopicARN = Nothing-  , _sNodeSnapshots = Nothing-  , _sCacheSubnetGroupName = Nothing-  , _sPreferredAvailabilityZone = Nothing-  , _sNumNodeGroups = Nothing-  , _sSnapshotRetentionLimit = Nothing-  , _sSnapshotName = Nothing-  , _sReplicationGroupId = Nothing-  , _sNumCacheNodes = Nothing-  , _sPort = Nothing-  , _sAutomaticFailover = Nothing-  , _sSnapshotSource = Nothing-  }+    { _sEngineVersion = Nothing+    , _sCacheNodeType = Nothing+    , _sCacheClusterCreateTime = Nothing+    , _sAutoMinorVersionUpgrade = Nothing+    , _sCacheParameterGroupName = Nothing+    , _sReplicationGroupDescription = Nothing+    , _sVPCId = Nothing+    , _sSnapshotStatus = Nothing+    , _sSnapshotWindow = Nothing+    , _sCacheClusterId = Nothing+    , _sEngine = Nothing+    , _sPreferredMaintenanceWindow = Nothing+    , _sTopicARN = Nothing+    , _sNodeSnapshots = Nothing+    , _sCacheSubnetGroupName = Nothing+    , _sPreferredAvailabilityZone = Nothing+    , _sNumNodeGroups = Nothing+    , _sSnapshotRetentionLimit = Nothing+    , _sSnapshotName = Nothing+    , _sReplicationGroupId = Nothing+    , _sNumCacheNodes = Nothing+    , _sPort = Nothing+    , _sAutomaticFailover = Nothing+    , _sSnapshotSource = Nothing+    }   -- | The version of the cache engine version that is used by the source cluster. sEngineVersion :: Lens' Snapshot (Maybe Text)-sEngineVersion = lens _sEngineVersion (\ s a -> s{_sEngineVersion = a});+sEngineVersion = lens _sEngineVersion (\ s a -> s{_sEngineVersion = a})  -- | The name of the compute and memory capacity node type for the source cluster. The following node types are supported by ElastiCache. Generally speaking, the current generation types provide more memory and computational power at lower cost when compared to their equivalent previous generation counterparts.     * General purpose:     * Current generation:  __T2 node types:__ @cache.t2.micro@ , @cache.t2.small@ , @cache.t2.medium@  __M3 node types:__ @cache.m3.medium@ , @cache.m3.large@ , @cache.m3.xlarge@ , @cache.m3.2xlarge@  __M4 node types:__ @cache.m4.large@ , @cache.m4.xlarge@ , @cache.m4.2xlarge@ , @cache.m4.4xlarge@ , @cache.m4.10xlarge@      * Previous generation: (not recommended) __T1 node types:__ @cache.t1.micro@  __M1 node types:__ @cache.m1.small@ , @cache.m1.medium@ , @cache.m1.large@ , @cache.m1.xlarge@      * Compute optimized:     * Previous generation: (not recommended) __C1 node types:__ @cache.c1.xlarge@      * Memory optimized:     * Current generation:  __R3 node types:__ @cache.r3.large@ , @cache.r3.xlarge@ , @cache.r3.2xlarge@ , @cache.r3.4xlarge@ , @cache.r3.8xlarge@      * Previous generation: (not recommended) __M2 node types:__ @cache.m2.xlarge@ , @cache.m2.2xlarge@ , @cache.m2.4xlarge@  __Notes:__      * All T2 instances are created in an Amazon Virtual Private Cloud (Amazon VPC).     * Redis (cluster mode disabled): Redis backup/restore is not supported on T1 and T2 instances.      * Redis (cluster mode enabled): Backup/restore is not supported on T1 instances.     * Redis Append-only files (AOF) functionality is not supported for T1 or T2 instances. For a complete listing of node types and specifications, see <http://aws.amazon.com/elasticache/details Amazon ElastiCache Product Features and Details> and either <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Memcached.html#ParameterGroups.Memcached.NodeSpecific Cache Node Type-Specific Parameters for Memcached> or <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Redis.html#ParameterGroups.Redis.NodeSpecific Cache Node Type-Specific Parameters for Redis> . sCacheNodeType :: Lens' Snapshot (Maybe Text)-sCacheNodeType = lens _sCacheNodeType (\ s a -> s{_sCacheNodeType = a});+sCacheNodeType = lens _sCacheNodeType (\ s a -> s{_sCacheNodeType = a})  -- | The date and time when the source cluster was created. sCacheClusterCreateTime :: Lens' Snapshot (Maybe UTCTime)-sCacheClusterCreateTime = lens _sCacheClusterCreateTime (\ s a -> s{_sCacheClusterCreateTime = a}) . mapping _Time;+sCacheClusterCreateTime = lens _sCacheClusterCreateTime (\ s a -> s{_sCacheClusterCreateTime = a}) . mapping _Time  -- | This parameter is currently disabled. sAutoMinorVersionUpgrade :: Lens' Snapshot (Maybe Bool)-sAutoMinorVersionUpgrade = lens _sAutoMinorVersionUpgrade (\ s a -> s{_sAutoMinorVersionUpgrade = a});+sAutoMinorVersionUpgrade = lens _sAutoMinorVersionUpgrade (\ s a -> s{_sAutoMinorVersionUpgrade = a})  -- | The cache parameter group that is associated with the source cluster. sCacheParameterGroupName :: Lens' Snapshot (Maybe Text)-sCacheParameterGroupName = lens _sCacheParameterGroupName (\ s a -> s{_sCacheParameterGroupName = a});+sCacheParameterGroupName = lens _sCacheParameterGroupName (\ s a -> s{_sCacheParameterGroupName = a})  -- | A description of the source replication group. sReplicationGroupDescription :: Lens' Snapshot (Maybe Text)-sReplicationGroupDescription = lens _sReplicationGroupDescription (\ s a -> s{_sReplicationGroupDescription = a});+sReplicationGroupDescription = lens _sReplicationGroupDescription (\ s a -> s{_sReplicationGroupDescription = a})  -- | The Amazon Virtual Private Cloud identifier (VPC ID) of the cache subnet group for the source cluster. sVPCId :: Lens' Snapshot (Maybe Text)-sVPCId = lens _sVPCId (\ s a -> s{_sVPCId = a});+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)-sSnapshotStatus = lens _sSnapshotStatus (\ s a -> s{_sSnapshotStatus = a});+sSnapshotStatus = lens _sSnapshotStatus (\ s a -> s{_sSnapshotStatus = a})  -- | The daily time range during which ElastiCache takes daily snapshots of the source cluster. sSnapshotWindow :: Lens' Snapshot (Maybe Text)-sSnapshotWindow = lens _sSnapshotWindow (\ s a -> s{_sSnapshotWindow = a});+sSnapshotWindow = lens _sSnapshotWindow (\ s a -> s{_sSnapshotWindow = a})  -- | The user-supplied identifier of the source cluster. sCacheClusterId :: Lens' Snapshot (Maybe Text)-sCacheClusterId = lens _sCacheClusterId (\ s a -> s{_sCacheClusterId = a});+sCacheClusterId = lens _sCacheClusterId (\ s a -> s{_sCacheClusterId = a})  -- | The name of the cache engine (@memcached@ or @redis@ ) used by the source cluster. sEngine :: Lens' Snapshot (Maybe Text)-sEngine = lens _sEngine (\ s a -> s{_sEngine = a});+sEngine = lens _sEngine (\ s a -> s{_sEngine = a})  -- | Specifies the weekly time range during which maintenance on the 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 is a 60 minute period. Valid values for @ddd@ are:     * @sun@      * @mon@      * @tue@      * @wed@      * @thu@      * @fri@      * @sat@  Example: @sun:23:00-mon:01:30@ sPreferredMaintenanceWindow :: Lens' Snapshot (Maybe Text)-sPreferredMaintenanceWindow = lens _sPreferredMaintenanceWindow (\ s a -> s{_sPreferredMaintenanceWindow = a});+sPreferredMaintenanceWindow = lens _sPreferredMaintenanceWindow (\ s a -> s{_sPreferredMaintenanceWindow = a})  -- | The Amazon Resource Name (ARN) for the topic used by the source cluster for publishing notifications. sTopicARN :: Lens' Snapshot (Maybe Text)-sTopicARN = lens _sTopicARN (\ s a -> s{_sTopicARN = a});+sTopicARN = lens _sTopicARN (\ s a -> s{_sTopicARN = a})  -- | A list of the cache nodes in the source cluster. sNodeSnapshots :: Lens' Snapshot [NodeSnapshot]-sNodeSnapshots = lens _sNodeSnapshots (\ s a -> s{_sNodeSnapshots = a}) . _Default . _Coerce;+sNodeSnapshots = lens _sNodeSnapshots (\ s a -> s{_sNodeSnapshots = a}) . _Default . _Coerce  -- | The name of the cache subnet group associated with the source cluster. sCacheSubnetGroupName :: Lens' Snapshot (Maybe Text)-sCacheSubnetGroupName = lens _sCacheSubnetGroupName (\ s a -> s{_sCacheSubnetGroupName = a});+sCacheSubnetGroupName = lens _sCacheSubnetGroupName (\ s a -> s{_sCacheSubnetGroupName = a})  -- | The name of the Availability Zone in which the source cluster is located. sPreferredAvailabilityZone :: Lens' Snapshot (Maybe Text)-sPreferredAvailabilityZone = lens _sPreferredAvailabilityZone (\ s a -> s{_sPreferredAvailabilityZone = a});+sPreferredAvailabilityZone = lens _sPreferredAvailabilityZone (\ s a -> s{_sPreferredAvailabilityZone = a})  -- | The number of node groups (shards) in this snapshot. When restoring from a snapshot, the number of node groups (shards) in the snapshot and in the restored replication group must be the same. sNumNodeGroups :: Lens' Snapshot (Maybe Int)-sNumNodeGroups = lens _sNumNodeGroups (\ s a -> s{_sNumNodeGroups = a});+sNumNodeGroups = lens _sNumNodeGroups (\ s a -> s{_sNumNodeGroups = a})  -- | For an automatic snapshot, the number of days for which ElastiCache retains the snapshot before deleting it. For manual snapshots, this field reflects the @SnapshotRetentionLimit@ for the source cluster when the snapshot was created. This field is otherwise ignored: Manual snapshots do not expire, and can only be deleted using the @DeleteSnapshot@ operation.  __Important__ If the value of SnapshotRetentionLimit is set to zero (0), backups are turned off. sSnapshotRetentionLimit :: Lens' Snapshot (Maybe Int)-sSnapshotRetentionLimit = lens _sSnapshotRetentionLimit (\ s a -> s{_sSnapshotRetentionLimit = a});+sSnapshotRetentionLimit = lens _sSnapshotRetentionLimit (\ s a -> s{_sSnapshotRetentionLimit = a})  -- | The name of a snapshot. For an automatic snapshot, the name is system-generated. For a manual snapshot, this is the user-provided name. sSnapshotName :: Lens' Snapshot (Maybe Text)-sSnapshotName = lens _sSnapshotName (\ s a -> s{_sSnapshotName = a});+sSnapshotName = lens _sSnapshotName (\ s a -> s{_sSnapshotName = a})  -- | The unique identifier of the source replication group. sReplicationGroupId :: Lens' Snapshot (Maybe Text)-sReplicationGroupId = lens _sReplicationGroupId (\ s a -> s{_sReplicationGroupId = a});+sReplicationGroupId = lens _sReplicationGroupId (\ s a -> s{_sReplicationGroupId = a})  -- | The number of cache nodes in the source cluster. For clusters running Redis, this value must be 1. For clusters running Memcached, this value must be between 1 and 20. sNumCacheNodes :: Lens' Snapshot (Maybe Int)-sNumCacheNodes = lens _sNumCacheNodes (\ s a -> s{_sNumCacheNodes = a});+sNumCacheNodes = lens _sNumCacheNodes (\ s a -> s{_sNumCacheNodes = a})  -- | The port number used by each cache nodes in the source cluster. sPort :: Lens' Snapshot (Maybe Int)-sPort = lens _sPort (\ s a -> s{_sPort = a});+sPort = lens _sPort (\ s a -> s{_sPort = a})  -- | Indicates the status of Multi-AZ with automatic failover for the source Redis replication group. Amazon ElastiCache for Redis does not support Multi-AZ with automatic failover on:     * Redis versions earlier than 2.8.6.     * Redis (cluster mode disabled): T1 and T2 cache node types.     * Redis (cluster mode enabled): T1 node types. sAutomaticFailover :: Lens' Snapshot (Maybe AutomaticFailoverStatus)-sAutomaticFailover = lens _sAutomaticFailover (\ s a -> s{_sAutomaticFailover = a});+sAutomaticFailover = lens _sAutomaticFailover (\ s a -> s{_sAutomaticFailover = 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});+sSnapshotSource = lens _sSnapshotSource (\ s a -> s{_sSnapshotSource = a})  instance FromXML Snapshot where         parseXML x@@ -2725,11 +2725,11 @@  -- | The unique identifier for the subnet. sSubnetIdentifier :: Lens' Subnet (Maybe Text)-sSubnetIdentifier = lens _sSubnetIdentifier (\ s a -> s{_sSubnetIdentifier = a});+sSubnetIdentifier = lens _sSubnetIdentifier (\ s a -> s{_sSubnetIdentifier = a})  -- | The Availability Zone associated with the subnet. sSubnetAvailabilityZone :: Lens' Subnet (Maybe AvailabilityZone)-sSubnetAvailabilityZone = lens _sSubnetAvailabilityZone (\ s a -> s{_sSubnetAvailabilityZone = a});+sSubnetAvailabilityZone = lens _sSubnetAvailabilityZone (\ s a -> s{_sSubnetAvailabilityZone = a})  instance FromXML Subnet where         parseXML x@@ -2766,11 +2766,11 @@  -- | The tag's value. May be null. tagValue :: Lens' Tag (Maybe Text)-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})  -- | The key for the tag. May not be null. tagKey :: Lens' Tag (Maybe Text)-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})  instance FromXML Tag where         parseXML x@@ -2806,7 +2806,7 @@  -- | A list of cost allocation tags as key-value pairs. tlmTagList :: Lens' TagListMessage [Tag]-tlmTagList = lens _tlmTagList (\ s a -> s{_tlmTagList = a}) . _Default . _Coerce;+tlmTagList = lens _tlmTagList (\ s a -> s{_tlmTagList = a}) . _Default . _Coerce  instance FromXML TagListMessage where         parseXML x
gen/Network/AWS/ElastiCache/Types/Sum.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.ElastiCache.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
gen/Network/AWS/ElastiCache/Waiters.hs view
@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.ElastiCache.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -24,132 +24,132 @@ import Network.AWS.Prelude import Network.AWS.Waiter --- | Polls 'Network.AWS.ElastiCache.DescribeCacheClusters' every 30 seconds until a successful state is reached. An error is returned after 60 failed checks.+-- | Polls 'Network.AWS.ElastiCache.DescribeCacheClusters' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. cacheClusterAvailable :: Wait DescribeCacheClusters cacheClusterAvailable =   Wait-  { _waitName = "CacheClusterAvailable"-  , _waitAttempts = 60-  , _waitDelay = 30-  , _waitAcceptors =-      [ matchAll-          "available"-          AcceptSuccess-          (folding (concatOf drsCacheClusters) .-           ccCacheClusterStatus . _Just . to toTextCI)-      , matchAny-          "deleted"-          AcceptFailure-          (folding (concatOf drsCacheClusters) .-           ccCacheClusterStatus . _Just . to toTextCI)-      , matchAny-          "deleting"-          AcceptFailure-          (folding (concatOf drsCacheClusters) .-           ccCacheClusterStatus . _Just . to toTextCI)-      , matchAny-          "incompatible-network"-          AcceptFailure-          (folding (concatOf drsCacheClusters) .-           ccCacheClusterStatus . _Just . to toTextCI)-      , matchAny-          "restore-failed"-          AcceptFailure-          (folding (concatOf drsCacheClusters) .-           ccCacheClusterStatus . _Just . to toTextCI)-      ]-  }+    { _waitName = "CacheClusterAvailable"+    , _waitAttempts = 40+    , _waitDelay = 15+    , _waitAcceptors =+        [ matchAll+            "available"+            AcceptSuccess+            (folding (concatOf drsCacheClusters) .+             ccCacheClusterStatus . _Just . to toTextCI)+        , matchAny+            "deleted"+            AcceptFailure+            (folding (concatOf drsCacheClusters) .+             ccCacheClusterStatus . _Just . to toTextCI)+        , matchAny+            "deleting"+            AcceptFailure+            (folding (concatOf drsCacheClusters) .+             ccCacheClusterStatus . _Just . to toTextCI)+        , matchAny+            "incompatible-network"+            AcceptFailure+            (folding (concatOf drsCacheClusters) .+             ccCacheClusterStatus . _Just . to toTextCI)+        , matchAny+            "restore-failed"+            AcceptFailure+            (folding (concatOf drsCacheClusters) .+             ccCacheClusterStatus . _Just . to toTextCI)+        ]+    }  --- | Polls 'Network.AWS.ElastiCache.DescribeCacheClusters' every 30 seconds until a successful state is reached. An error is returned after 60 failed checks.+-- | Polls 'Network.AWS.ElastiCache.DescribeCacheClusters' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. cacheClusterDeleted :: Wait DescribeCacheClusters cacheClusterDeleted =   Wait-  { _waitName = "CacheClusterDeleted"-  , _waitAttempts = 60-  , _waitDelay = 30-  , _waitAcceptors =-      [ matchError "CacheClusterNotFound" AcceptSuccess-      , matchAny-          "creating"-          AcceptFailure-          (folding (concatOf drsCacheClusters) .-           ccCacheClusterStatus . _Just . to toTextCI)-      , matchAny-          "modifying"-          AcceptFailure-          (folding (concatOf drsCacheClusters) .-           ccCacheClusterStatus . _Just . to toTextCI)-      , matchAny-          "rebooting"-          AcceptFailure-          (folding (concatOf drsCacheClusters) .-           ccCacheClusterStatus . _Just . to toTextCI)-      ]-  }+    { _waitName = "CacheClusterDeleted"+    , _waitAttempts = 40+    , _waitDelay = 15+    , _waitAcceptors =+        [ matchAll+            "deleted"+            AcceptSuccess+            (folding (concatOf drsCacheClusters) .+             ccCacheClusterStatus . _Just . to toTextCI)+        , matchError "CacheClusterNotFound" AcceptSuccess+        , matchAny+            "available"+            AcceptFailure+            (folding (concatOf drsCacheClusters) .+             ccCacheClusterStatus . _Just . to toTextCI)+        , matchAny+            "creating"+            AcceptFailure+            (folding (concatOf drsCacheClusters) .+             ccCacheClusterStatus . _Just . to toTextCI)+        , matchAny+            "incompatible-network"+            AcceptFailure+            (folding (concatOf drsCacheClusters) .+             ccCacheClusterStatus . _Just . to toTextCI)+        , matchAny+            "modifying"+            AcceptFailure+            (folding (concatOf drsCacheClusters) .+             ccCacheClusterStatus . _Just . to toTextCI)+        , matchAny+            "restore-failed"+            AcceptFailure+            (folding (concatOf drsCacheClusters) .+             ccCacheClusterStatus . _Just . to toTextCI)+        , matchAny+            "snapshotting"+            AcceptFailure+            (folding (concatOf drsCacheClusters) .+             ccCacheClusterStatus . _Just . to toTextCI)+        ]+    }  --- | Polls 'Network.AWS.ElastiCache.DescribeReplicationGroups' every 30 seconds until a successful state is reached. An error is returned after 60 failed checks.+-- | Polls 'Network.AWS.ElastiCache.DescribeReplicationGroups' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. replicationGroupDeleted :: Wait DescribeReplicationGroups replicationGroupDeleted =   Wait-  { _waitName = "ReplicationGroupDeleted"-  , _waitAttempts = 60-  , _waitDelay = 30-  , _waitAcceptors =-      [ matchError "ReplicationGroupNotFoundFault" AcceptSuccess-      , matchAny-          "creating"-          AcceptFailure-          (folding (concatOf drgrsReplicationGroups) .-           rgStatus . _Just . to toTextCI)-      , matchAny-          "modifying"-          AcceptFailure-          (folding (concatOf drgrsReplicationGroups) .-           rgStatus . _Just . to toTextCI)-      , matchAny-          "rebooting"-          AcceptFailure-          (folding (concatOf drgrsReplicationGroups) .-           rgStatus . _Just . to toTextCI)-      ]-  }+    { _waitName = "ReplicationGroupDeleted"+    , _waitAttempts = 40+    , _waitDelay = 15+    , _waitAcceptors =+        [ matchAll+            "deleted"+            AcceptSuccess+            (folding (concatOf drgrsReplicationGroups) .+             rgStatus . _Just . to toTextCI)+        , matchAny+            "available"+            AcceptFailure+            (folding (concatOf drgrsReplicationGroups) .+             rgStatus . _Just . to toTextCI)+        , matchError "ReplicationGroupNotFoundFault" AcceptSuccess+        ]+    }  --- | Polls 'Network.AWS.ElastiCache.DescribeReplicationGroups' every 30 seconds until a successful state is reached. An error is returned after 60 failed checks.+-- | Polls 'Network.AWS.ElastiCache.DescribeReplicationGroups' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. replicationGroupAvailable :: Wait DescribeReplicationGroups replicationGroupAvailable =   Wait-  { _waitName = "ReplicationGroupAvailable"-  , _waitAttempts = 60-  , _waitDelay = 30-  , _waitAcceptors =-      [ matchAll-          "available"-          AcceptSuccess-          (folding (concatOf drgrsReplicationGroups) .-           rgStatus . _Just . to toTextCI)-      , matchAny-          "deleted"-          AcceptFailure-          (folding (concatOf drgrsReplicationGroups) .-           rgStatus . _Just . to toTextCI)-      , matchAny-          "deleting"-          AcceptFailure-          (folding (concatOf drgrsReplicationGroups) .-           rgStatus . _Just . to toTextCI)-      , matchAny-          "incompatible-network"-          AcceptFailure-          (folding (concatOf drgrsReplicationGroups) .-           rgStatus . _Just . to toTextCI)-      , matchAny-          "restore-failed"-          AcceptFailure-          (folding (concatOf drgrsReplicationGroups) .-           rgStatus . _Just . to toTextCI)-      ]-  }+    { _waitName = "ReplicationGroupAvailable"+    , _waitAttempts = 40+    , _waitDelay = 15+    , _waitAcceptors =+        [ matchAll+            "available"+            AcceptSuccess+            (folding (concatOf drgrsReplicationGroups) .+             rgStatus . _Just . to toTextCI)+        , matchAny+            "deleted"+            AcceptFailure+            (folding (concatOf drgrsReplicationGroups) .+             rgStatus . _Just . to toTextCI)+        ]+    }
test/Main.hs view
@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Test/AWS/ElastiCache.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-}  -- Module      : Test.AWS.ElastiCache--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/ElastiCache/Internal.hs view
@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.ElastiCache.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/Gen/ElastiCache.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.ElastiCache--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated