amazonka-dynamodb-dax 1.5.0 → 1.6.0

raw patch · 32 files changed

+387/−385 lines, 32 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 +1/−1
• amazonka-dynamodb-dax.cabal +5/−5
• gen/Network/AWS/DAX.hs +1/−1
• gen/Network/AWS/DAX/CreateCluster.hs +29/−29
• gen/Network/AWS/DAX/CreateParameterGroup.hs +7/−7
• gen/Network/AWS/DAX/CreateSubnetGroup.hs +11/−11
• gen/Network/AWS/DAX/DecreaseReplicationFactor.hs +13/−13
• gen/Network/AWS/DAX/DeleteCluster.hs +5/−5
• gen/Network/AWS/DAX/DeleteParameterGroup.hs +5/−5
• gen/Network/AWS/DAX/DeleteSubnetGroup.hs +5/−5
• gen/Network/AWS/DAX/DescribeClusters.hs +12/−12
• gen/Network/AWS/DAX/DescribeDefaultParameters.hs +10/−10
• gen/Network/AWS/DAX/DescribeEvents.hs +23/−23
• gen/Network/AWS/DAX/DescribeParameterGroups.hs +15/−15
• gen/Network/AWS/DAX/DescribeParameters.hs +17/−17
• gen/Network/AWS/DAX/DescribeSubnetGroups.hs +15/−15
• gen/Network/AWS/DAX/IncreaseReplicationFactor.hs +11/−11
• gen/Network/AWS/DAX/ListTags.hs +10/−10
• gen/Network/AWS/DAX/RebootNode.hs +6/−6
• gen/Network/AWS/DAX/TagResource.hs +6/−6
• gen/Network/AWS/DAX/Types.hs +18/−16
• gen/Network/AWS/DAX/Types/Product.hs +111/−111
• gen/Network/AWS/DAX/Types/Sum.hs +1/−1
• gen/Network/AWS/DAX/UntagResource.hs +6/−6
• gen/Network/AWS/DAX/UpdateCluster.hs +19/−19
• gen/Network/AWS/DAX/UpdateParameterGroup.hs +9/−9
• gen/Network/AWS/DAX/UpdateSubnetGroup.hs +11/−11
• gen/Network/AWS/DAX/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/DAX.hs +1/−1
• test/Test/AWS/DAX/Internal.hs +1/−1
• test/Test/AWS/Gen/DAX.hs +1/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-dynamodb-dax-version:               1.5.0+version:               1.6.0 synopsis:              Amazon DynamoDB Accelerator (DAX) 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@@ -74,7 +74,7 @@         , Network.AWS.DAX.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-dynamodb-dax-test@@ -94,8 +94,8 @@         , Test.AWS.DAX.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-dynamodb-dax         , base         , bytestring

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.DAX--- 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

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.CreateCluster--- 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@@ -107,68 +107,68 @@     -> CreateCluster createCluster pClusterName_ pNodeType_ pReplicationFactor_ pIAMRoleARN_ =   CreateCluster'-  { _ccSecurityGroupIds = Nothing-  , _ccSubnetGroupName = Nothing-  , _ccPreferredMaintenanceWindow = Nothing-  , _ccAvailabilityZones = Nothing-  , _ccDescription = Nothing-  , _ccNotificationTopicARN = Nothing-  , _ccTags = Nothing-  , _ccParameterGroupName = Nothing-  , _ccClusterName = pClusterName_-  , _ccNodeType = pNodeType_-  , _ccReplicationFactor = pReplicationFactor_-  , _ccIAMRoleARN = pIAMRoleARN_-  }+    { _ccSecurityGroupIds = Nothing+    , _ccSubnetGroupName = Nothing+    , _ccPreferredMaintenanceWindow = Nothing+    , _ccAvailabilityZones = Nothing+    , _ccDescription = Nothing+    , _ccNotificationTopicARN = Nothing+    , _ccTags = Nothing+    , _ccParameterGroupName = Nothing+    , _ccClusterName = pClusterName_+    , _ccNodeType = pNodeType_+    , _ccReplicationFactor = pReplicationFactor_+    , _ccIAMRoleARN = pIAMRoleARN_+    }   -- | A list of security group IDs to be assigned to each node in the DAX cluster. (Each of the security group ID is system-generated.) If this parameter is not specified, DAX assigns the default VPC security group to each node. ccSecurityGroupIds :: Lens' CreateCluster [Text]-ccSecurityGroupIds = lens _ccSecurityGroupIds (\ s a -> s{_ccSecurityGroupIds = a}) . _Default . _Coerce;+ccSecurityGroupIds = lens _ccSecurityGroupIds (\ s a -> s{_ccSecurityGroupIds = a}) . _Default . _Coerce  -- | The name of the subnet group to be used for the replication group. /Important:/ DAX clusters can only run in an Amazon VPC environment. All of the subnets that you specify in a subnet group must exist in the same VPC. ccSubnetGroupName :: Lens' CreateCluster (Maybe Text)-ccSubnetGroupName = lens _ccSubnetGroupName (\ s a -> s{_ccSubnetGroupName = a});+ccSubnetGroupName = lens _ccSubnetGroupName (\ s a -> s{_ccSubnetGroupName = a})  -- | Specifies the weekly time range during which maintenance on the DAX 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:05:00-sun:09:00@ ccPreferredMaintenanceWindow :: Lens' CreateCluster (Maybe Text)-ccPreferredMaintenanceWindow = lens _ccPreferredMaintenanceWindow (\ s a -> s{_ccPreferredMaintenanceWindow = a});+ccPreferredMaintenanceWindow = lens _ccPreferredMaintenanceWindow (\ s a -> s{_ccPreferredMaintenanceWindow = a})  -- | The Availability Zones (AZs) in which the cluster nodes will be created. All nodes belonging to the cluster are placed in these Availability Zones. Use this parameter if you want to distribute the nodes across multiple AZs. ccAvailabilityZones :: Lens' CreateCluster [Text]-ccAvailabilityZones = lens _ccAvailabilityZones (\ s a -> s{_ccAvailabilityZones = a}) . _Default . _Coerce;+ccAvailabilityZones = lens _ccAvailabilityZones (\ s a -> s{_ccAvailabilityZones = a}) . _Default . _Coerce  -- | A description of the cluster. ccDescription :: Lens' CreateCluster (Maybe Text)-ccDescription = lens _ccDescription (\ s a -> s{_ccDescription = a});+ccDescription = lens _ccDescription (\ s a -> s{_ccDescription = a})  -- | The Amazon Resource Name (ARN) of the Amazon SNS topic to which notifications will be sent. ccNotificationTopicARN :: Lens' CreateCluster (Maybe Text)-ccNotificationTopicARN = lens _ccNotificationTopicARN (\ s a -> s{_ccNotificationTopicARN = a});+ccNotificationTopicARN = lens _ccNotificationTopicARN (\ s a -> s{_ccNotificationTopicARN = a})  -- | A set of tags to associate with the DAX cluster. ccTags :: Lens' CreateCluster [Tag]-ccTags = lens _ccTags (\ s a -> s{_ccTags = a}) . _Default . _Coerce;+ccTags = lens _ccTags (\ s a -> s{_ccTags = a}) . _Default . _Coerce  -- | The parameter group to be associated with the DAX cluster. ccParameterGroupName :: Lens' CreateCluster (Maybe Text)-ccParameterGroupName = lens _ccParameterGroupName (\ s a -> s{_ccParameterGroupName = a});+ccParameterGroupName = lens _ccParameterGroupName (\ s a -> s{_ccParameterGroupName = a})  -- | The cluster 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. ccClusterName :: Lens' CreateCluster Text-ccClusterName = lens _ccClusterName (\ s a -> s{_ccClusterName = a});+ccClusterName = lens _ccClusterName (\ s a -> s{_ccClusterName = a})  -- | The compute and memory capacity of the nodes in the cluster. ccNodeType :: Lens' CreateCluster Text-ccNodeType = lens _ccNodeType (\ s a -> s{_ccNodeType = a});+ccNodeType = lens _ccNodeType (\ s a -> s{_ccNodeType = a})  -- | The number of nodes in the DAX cluster. A replication factor of 1 will create a single-node cluster, without any read replicas. For additional fault tolerance, you can create a multiple node cluster with one or more read replicas. To do this, set /ReplicationFactor/ to 2 or more. ccReplicationFactor :: Lens' CreateCluster Int-ccReplicationFactor = lens _ccReplicationFactor (\ s a -> s{_ccReplicationFactor = a});+ccReplicationFactor = lens _ccReplicationFactor (\ s a -> s{_ccReplicationFactor = a})  -- | A valid Amazon Resource Name (ARN) that identifies an IAM role. At runtime, DAX will assume this role and use the role's permissions to access DynamoDB on your behalf. ccIAMRoleARN :: Lens' CreateCluster Text-ccIAMRoleARN = lens _ccIAMRoleARN (\ s a -> s{_ccIAMRoleARN = a});+ccIAMRoleARN = lens _ccIAMRoleARN (\ s a -> s{_ccIAMRoleARN = a})  instance AWSRequest CreateCluster where         type Rs CreateCluster = CreateClusterResponse@@ -236,15 +236,15 @@     -> CreateClusterResponse createClusterResponse pResponseStatus_ =   CreateClusterResponse'-  {_ccrsCluster = Nothing, _ccrsResponseStatus = pResponseStatus_}+    {_ccrsCluster = Nothing, _ccrsResponseStatus = pResponseStatus_}   -- | A description of the DAX cluster that you have created. ccrsCluster :: Lens' CreateClusterResponse (Maybe Cluster)-ccrsCluster = lens _ccrsCluster (\ s a -> s{_ccrsCluster = a});+ccrsCluster = lens _ccrsCluster (\ s a -> s{_ccrsCluster = a})  -- | -- | The response status code. ccrsResponseStatus :: Lens' CreateClusterResponse Int-ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});+ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})  instance NFData CreateClusterResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.CreateParameterGroup--- 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@@ -64,16 +64,16 @@     -> CreateParameterGroup createParameterGroup pParameterGroupName_ =   CreateParameterGroup'-  {_cpgDescription = Nothing, _cpgParameterGroupName = pParameterGroupName_}+    {_cpgDescription = Nothing, _cpgParameterGroupName = pParameterGroupName_}   -- | A description of the parameter group. cpgDescription :: Lens' CreateParameterGroup (Maybe Text)-cpgDescription = lens _cpgDescription (\ s a -> s{_cpgDescription = a});+cpgDescription = lens _cpgDescription (\ s a -> s{_cpgDescription = a})  -- | The name of the parameter group to apply to all of the clusters in this replication group. cpgParameterGroupName :: Lens' CreateParameterGroup Text-cpgParameterGroupName = lens _cpgParameterGroupName (\ s a -> s{_cpgParameterGroupName = a});+cpgParameterGroupName = lens _cpgParameterGroupName (\ s a -> s{_cpgParameterGroupName = a})  instance AWSRequest CreateParameterGroup where         type Rs CreateParameterGroup =@@ -131,15 +131,15 @@     -> CreateParameterGroupResponse createParameterGroupResponse pResponseStatus_ =   CreateParameterGroupResponse'-  {_cpgrsParameterGroup = Nothing, _cpgrsResponseStatus = pResponseStatus_}+    {_cpgrsParameterGroup = Nothing, _cpgrsResponseStatus = pResponseStatus_}   -- | Represents the output of a /CreateParameterGroup/ action. cpgrsParameterGroup :: Lens' CreateParameterGroupResponse (Maybe ParameterGroup)-cpgrsParameterGroup = lens _cpgrsParameterGroup (\ s a -> s{_cpgrsParameterGroup = a});+cpgrsParameterGroup = lens _cpgrsParameterGroup (\ s a -> s{_cpgrsParameterGroup = a})  -- | -- | The response status code. cpgrsResponseStatus :: Lens' CreateParameterGroupResponse Int-cpgrsResponseStatus = lens _cpgrsResponseStatus (\ s a -> s{_cpgrsResponseStatus = a});+cpgrsResponseStatus = lens _cpgrsResponseStatus (\ s a -> s{_cpgrsResponseStatus = a})  instance NFData CreateParameterGroupResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.CreateSubnetGroup--- 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,23 +68,23 @@     -> CreateSubnetGroup createSubnetGroup pSubnetGroupName_ =   CreateSubnetGroup'-  { _csgDescription = Nothing-  , _csgSubnetGroupName = pSubnetGroupName_-  , _csgSubnetIds = mempty-  }+    { _csgDescription = Nothing+    , _csgSubnetGroupName = pSubnetGroupName_+    , _csgSubnetIds = mempty+    }   -- | A description for the subnet group csgDescription :: Lens' CreateSubnetGroup (Maybe Text)-csgDescription = lens _csgDescription (\ s a -> s{_csgDescription = a});+csgDescription = lens _csgDescription (\ s a -> s{_csgDescription = a})  -- | A name for the subnet group. This value is stored as a lowercase string. csgSubnetGroupName :: Lens' CreateSubnetGroup Text-csgSubnetGroupName = lens _csgSubnetGroupName (\ s a -> s{_csgSubnetGroupName = a});+csgSubnetGroupName = lens _csgSubnetGroupName (\ s a -> s{_csgSubnetGroupName = a})  -- | A list of VPC subnet IDs for the subnet group. csgSubnetIds :: Lens' CreateSubnetGroup [Text]-csgSubnetIds = lens _csgSubnetIds (\ s a -> s{_csgSubnetIds = a}) . _Coerce;+csgSubnetIds = lens _csgSubnetIds (\ s a -> s{_csgSubnetIds = a}) . _Coerce  instance AWSRequest CreateSubnetGroup where         type Rs CreateSubnetGroup = CreateSubnetGroupResponse@@ -141,15 +141,15 @@     -> CreateSubnetGroupResponse createSubnetGroupResponse pResponseStatus_ =   CreateSubnetGroupResponse'-  {_csgrsSubnetGroup = Nothing, _csgrsResponseStatus = pResponseStatus_}+    {_csgrsSubnetGroup = Nothing, _csgrsResponseStatus = pResponseStatus_}   -- | Represents the output of a /CreateSubnetGroup/ operation. csgrsSubnetGroup :: Lens' CreateSubnetGroupResponse (Maybe SubnetGroup)-csgrsSubnetGroup = lens _csgrsSubnetGroup (\ s a -> s{_csgrsSubnetGroup = a});+csgrsSubnetGroup = lens _csgrsSubnetGroup (\ s a -> s{_csgrsSubnetGroup = a})  -- | -- | The response status code. csgrsResponseStatus :: Lens' CreateSubnetGroupResponse Int-csgrsResponseStatus = lens _csgrsResponseStatus (\ s a -> s{_csgrsResponseStatus = a});+csgrsResponseStatus = lens _csgrsResponseStatus (\ s a -> s{_csgrsResponseStatus = a})  instance NFData CreateSubnetGroupResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.DecreaseReplicationFactor--- 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,28 +73,28 @@     -> DecreaseReplicationFactor decreaseReplicationFactor pClusterName_ pNewReplicationFactor_ =   DecreaseReplicationFactor'-  { _drfNodeIdsToRemove = Nothing-  , _drfAvailabilityZones = Nothing-  , _drfClusterName = pClusterName_-  , _drfNewReplicationFactor = pNewReplicationFactor_-  }+    { _drfNodeIdsToRemove = Nothing+    , _drfAvailabilityZones = Nothing+    , _drfClusterName = pClusterName_+    , _drfNewReplicationFactor = pNewReplicationFactor_+    }   -- | The unique identifiers of the nodes to be removed from the cluster. drfNodeIdsToRemove :: Lens' DecreaseReplicationFactor [Text]-drfNodeIdsToRemove = lens _drfNodeIdsToRemove (\ s a -> s{_drfNodeIdsToRemove = a}) . _Default . _Coerce;+drfNodeIdsToRemove = lens _drfNodeIdsToRemove (\ s a -> s{_drfNodeIdsToRemove = a}) . _Default . _Coerce  -- | The Availability Zone(s) from which to remove nodes. drfAvailabilityZones :: Lens' DecreaseReplicationFactor [Text]-drfAvailabilityZones = lens _drfAvailabilityZones (\ s a -> s{_drfAvailabilityZones = a}) . _Default . _Coerce;+drfAvailabilityZones = lens _drfAvailabilityZones (\ s a -> s{_drfAvailabilityZones = a}) . _Default . _Coerce  -- | The name of the DAX cluster from which you want to remove nodes. drfClusterName :: Lens' DecreaseReplicationFactor Text-drfClusterName = lens _drfClusterName (\ s a -> s{_drfClusterName = a});+drfClusterName = lens _drfClusterName (\ s a -> s{_drfClusterName = a})  -- | The new number of nodes for the DAX cluster. drfNewReplicationFactor :: Lens' DecreaseReplicationFactor Int-drfNewReplicationFactor = lens _drfNewReplicationFactor (\ s a -> s{_drfNewReplicationFactor = a});+drfNewReplicationFactor = lens _drfNewReplicationFactor (\ s a -> s{_drfNewReplicationFactor = a})  instance AWSRequest DecreaseReplicationFactor where         type Rs DecreaseReplicationFactor =@@ -156,16 +156,16 @@     -> DecreaseReplicationFactorResponse decreaseReplicationFactorResponse pResponseStatus_ =   DecreaseReplicationFactorResponse'-  {_drfrsCluster = Nothing, _drfrsResponseStatus = pResponseStatus_}+    {_drfrsCluster = Nothing, _drfrsResponseStatus = pResponseStatus_}   -- | A description of the DAX cluster, after you have decreased its replication factor. drfrsCluster :: Lens' DecreaseReplicationFactorResponse (Maybe Cluster)-drfrsCluster = lens _drfrsCluster (\ s a -> s{_drfrsCluster = a});+drfrsCluster = lens _drfrsCluster (\ s a -> s{_drfrsCluster = a})  -- | -- | The response status code. drfrsResponseStatus :: Lens' DecreaseReplicationFactorResponse Int-drfrsResponseStatus = lens _drfrsResponseStatus (\ s a -> s{_drfrsResponseStatus = a});+drfrsResponseStatus = lens _drfrsResponseStatus (\ s a -> s{_drfrsResponseStatus = a})  instance NFData DecreaseReplicationFactorResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.DeleteCluster--- 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@@ -63,7 +63,7 @@  -- | The name of the cluster to be deleted. dcClusterName :: Lens' DeleteCluster Text-dcClusterName = lens _dcClusterName (\ s a -> s{_dcClusterName = a});+dcClusterName = lens _dcClusterName (\ s a -> s{_dcClusterName = a})  instance AWSRequest DeleteCluster where         type Rs DeleteCluster = DeleteClusterResponse@@ -117,15 +117,15 @@     -> DeleteClusterResponse deleteClusterResponse pResponseStatus_ =   DeleteClusterResponse'-  {_drsCluster = Nothing, _drsResponseStatus = pResponseStatus_}+    {_drsCluster = Nothing, _drsResponseStatus = pResponseStatus_}   -- | A description of the DAX cluster that is being deleted. drsCluster :: Lens' DeleteClusterResponse (Maybe Cluster)-drsCluster = lens _drsCluster (\ s a -> s{_drsCluster = a});+drsCluster = lens _drsCluster (\ s a -> s{_drsCluster = a})  -- | -- | The response status code. drsResponseStatus :: Lens' DeleteClusterResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DeleteClusterResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.DeleteParameterGroup--- 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@@ -64,7 +64,7 @@  -- | The name of the parameter group to delete. dpgParameterGroupName :: Lens' DeleteParameterGroup Text-dpgParameterGroupName = lens _dpgParameterGroupName (\ s a -> s{_dpgParameterGroupName = a});+dpgParameterGroupName = lens _dpgParameterGroupName (\ s a -> s{_dpgParameterGroupName = a})  instance AWSRequest DeleteParameterGroup where         type Rs DeleteParameterGroup =@@ -121,15 +121,15 @@     -> DeleteParameterGroupResponse deleteParameterGroupResponse pResponseStatus_ =   DeleteParameterGroupResponse'-  {_dpgrsDeletionMessage = Nothing, _dpgrsResponseStatus = pResponseStatus_}+    {_dpgrsDeletionMessage = Nothing, _dpgrsResponseStatus = pResponseStatus_}   -- | A user-specified message for this action (i.e., a reason for deleting the parameter group). dpgrsDeletionMessage :: Lens' DeleteParameterGroupResponse (Maybe Text)-dpgrsDeletionMessage = lens _dpgrsDeletionMessage (\ s a -> s{_dpgrsDeletionMessage = a});+dpgrsDeletionMessage = lens _dpgrsDeletionMessage (\ s a -> s{_dpgrsDeletionMessage = a})  -- | -- | The response status code. dpgrsResponseStatus :: Lens' DeleteParameterGroupResponse Int-dpgrsResponseStatus = lens _dpgrsResponseStatus (\ s a -> s{_dpgrsResponseStatus = a});+dpgrsResponseStatus = lens _dpgrsResponseStatus (\ s a -> s{_dpgrsResponseStatus = a})  instance NFData DeleteParameterGroupResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.DeleteSubnetGroup--- 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@@ -64,7 +64,7 @@  -- | The name of the subnet group to delete. dsgSubnetGroupName :: Lens' DeleteSubnetGroup Text-dsgSubnetGroupName = lens _dsgSubnetGroupName (\ s a -> s{_dsgSubnetGroupName = a});+dsgSubnetGroupName = lens _dsgSubnetGroupName (\ s a -> s{_dsgSubnetGroupName = a})  instance AWSRequest DeleteSubnetGroup where         type Rs DeleteSubnetGroup = DeleteSubnetGroupResponse@@ -119,15 +119,15 @@     -> DeleteSubnetGroupResponse deleteSubnetGroupResponse pResponseStatus_ =   DeleteSubnetGroupResponse'-  {_dsgrsDeletionMessage = Nothing, _dsgrsResponseStatus = pResponseStatus_}+    {_dsgrsDeletionMessage = Nothing, _dsgrsResponseStatus = pResponseStatus_}   -- | A user-specified message for this action (i.e., a reason for deleting the subnet group). dsgrsDeletionMessage :: Lens' DeleteSubnetGroupResponse (Maybe Text)-dsgrsDeletionMessage = lens _dsgrsDeletionMessage (\ s a -> s{_dsgrsDeletionMessage = a});+dsgrsDeletionMessage = lens _dsgrsDeletionMessage (\ s a -> s{_dsgrsDeletionMessage = a})  -- | -- | The response status code. dsgrsResponseStatus :: Lens' DeleteSubnetGroupResponse Int-dsgrsResponseStatus = lens _dsgrsResponseStatus (\ s a -> s{_dsgrsResponseStatus = a});+dsgrsResponseStatus = lens _dsgrsResponseStatus (\ s a -> s{_dsgrsResponseStatus = a})  instance NFData DeleteSubnetGroupResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.DescribeClusters--- 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,20 +76,20 @@     :: DescribeClusters describeClusters =   DescribeClusters'-  {_dcClusterNames = Nothing, _dcNextToken = Nothing, _dcMaxResults = Nothing}+    {_dcClusterNames = Nothing, _dcNextToken = Nothing, _dcMaxResults = Nothing}   -- | The names of the DAX clusters being described. dcClusterNames :: Lens' DescribeClusters [Text]-dcClusterNames = lens _dcClusterNames (\ s a -> s{_dcClusterNames = a}) . _Default . _Coerce;+dcClusterNames = lens _dcClusterNames (\ s a -> s{_dcClusterNames = a}) . _Default . _Coerce  -- | An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by @MaxResults@ . dcNextToken :: Lens' DescribeClusters (Maybe Text)-dcNextToken = lens _dcNextToken (\ s a -> s{_dcNextToken = a});+dcNextToken = lens _dcNextToken (\ s a -> s{_dcNextToken = a})  -- | The maximum number of results to include in the response. If more results exist than the specified @MaxResults@ value, a token is included in the response so that the remaining results can be retrieved. The value for @MaxResults@ must be between 20 and 100. dcMaxResults :: Lens' DescribeClusters (Maybe Int)-dcMaxResults = lens _dcMaxResults (\ s a -> s{_dcMaxResults = a});+dcMaxResults = lens _dcMaxResults (\ s a -> s{_dcMaxResults = a})  instance AWSRequest DescribeClusters where         type Rs DescribeClusters = DescribeClustersResponse@@ -150,22 +150,22 @@     -> DescribeClustersResponse describeClustersResponse pResponseStatus_ =   DescribeClustersResponse'-  { _dcrsNextToken = Nothing-  , _dcrsClusters = Nothing-  , _dcrsResponseStatus = pResponseStatus_-  }+    { _dcrsNextToken = Nothing+    , _dcrsClusters = Nothing+    , _dcrsResponseStatus = pResponseStatus_+    }   -- | Provides an identifier to allow retrieval of paginated results. dcrsNextToken :: Lens' DescribeClustersResponse (Maybe Text)-dcrsNextToken = lens _dcrsNextToken (\ s a -> s{_dcrsNextToken = a});+dcrsNextToken = lens _dcrsNextToken (\ s a -> s{_dcrsNextToken = a})  -- | The descriptions of your DAX clusters, in response to a /DescribeClusters/ request. dcrsClusters :: Lens' DescribeClustersResponse [Cluster]-dcrsClusters = lens _dcrsClusters (\ s a -> s{_dcrsClusters = a}) . _Default . _Coerce;+dcrsClusters = lens _dcrsClusters (\ s a -> s{_dcrsClusters = a}) . _Default . _Coerce  -- | -- | The response status code. dcrsResponseStatus :: Lens' DescribeClustersResponse Int-dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})  instance NFData DescribeClustersResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.DescribeDefaultParameters--- 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,11 +68,11 @@  -- | An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by @MaxResults@ . ddpNextToken :: Lens' DescribeDefaultParameters (Maybe Text)-ddpNextToken = lens _ddpNextToken (\ s a -> s{_ddpNextToken = a});+ddpNextToken = lens _ddpNextToken (\ s a -> s{_ddpNextToken = a})  -- | The maximum number of results to include in the response. If more results exist than the specified @MaxResults@ value, a token is included in the response so that the remaining results can be retrieved. The value for @MaxResults@ must be between 20 and 100. ddpMaxResults :: Lens' DescribeDefaultParameters (Maybe Int)-ddpMaxResults = lens _ddpMaxResults (\ s a -> s{_ddpMaxResults = a});+ddpMaxResults = lens _ddpMaxResults (\ s a -> s{_ddpMaxResults = a})  instance AWSRequest DescribeDefaultParameters where         type Rs DescribeDefaultParameters =@@ -135,23 +135,23 @@     -> DescribeDefaultParametersResponse describeDefaultParametersResponse pResponseStatus_ =   DescribeDefaultParametersResponse'-  { _ddprsNextToken = Nothing-  , _ddprsParameters = Nothing-  , _ddprsResponseStatus = pResponseStatus_-  }+    { _ddprsNextToken = Nothing+    , _ddprsParameters = Nothing+    , _ddprsResponseStatus = pResponseStatus_+    }   -- | Provides an identifier to allow retrieval of paginated results. ddprsNextToken :: Lens' DescribeDefaultParametersResponse (Maybe Text)-ddprsNextToken = lens _ddprsNextToken (\ s a -> s{_ddprsNextToken = a});+ddprsNextToken = lens _ddprsNextToken (\ s a -> s{_ddprsNextToken = a})  -- | A list of parameters. Each element in the list represents one parameter. ddprsParameters :: Lens' DescribeDefaultParametersResponse [Parameter]-ddprsParameters = lens _ddprsParameters (\ s a -> s{_ddprsParameters = a}) . _Default . _Coerce;+ddprsParameters = lens _ddprsParameters (\ s a -> s{_ddprsParameters = a}) . _Default . _Coerce  -- | -- | The response status code. ddprsResponseStatus :: Lens' DescribeDefaultParametersResponse Int-ddprsResponseStatus = lens _ddprsResponseStatus (\ s a -> s{_ddprsResponseStatus = a});+ddprsResponseStatus = lens _ddprsResponseStatus (\ s a -> s{_ddprsResponseStatus = a})  instance NFData DescribeDefaultParametersResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.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@@ -86,43 +86,43 @@     :: DescribeEvents describeEvents =   DescribeEvents'-  { _deSourceName = Nothing-  , _deStartTime = Nothing-  , _deSourceType = Nothing-  , _deNextToken = Nothing-  , _deEndTime = Nothing-  , _deDuration = Nothing-  , _deMaxResults = Nothing-  }+    { _deSourceName = Nothing+    , _deStartTime = Nothing+    , _deSourceType = Nothing+    , _deNextToken = Nothing+    , _deEndTime = Nothing+    , _deDuration = Nothing+    , _deMaxResults = Nothing+    }   -- | The identifier of the event source for which events will be returned. If not specified, then all sources are included in the response. deSourceName :: Lens' DescribeEvents (Maybe Text)-deSourceName = lens _deSourceName (\ s a -> s{_deSourceName = a});+deSourceName = lens _deSourceName (\ s a -> s{_deSourceName = a})  -- | The beginning of the time interval to retrieve events for, specified in ISO 8601 format. 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})  -- | An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by @MaxResults@ . deNextToken :: Lens' DescribeEvents (Maybe Text)-deNextToken = lens _deNextToken (\ s a -> s{_deNextToken = a});+deNextToken = lens _deNextToken (\ s a -> s{_deNextToken = a})  -- | The end of the time interval for which to retrieve events, specified in ISO 8601 format. 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})  -- | The maximum number of results to include in the response. If more results exist than the specified @MaxResults@ value, a token is included in the response so that the remaining results can be retrieved. The value for @MaxResults@ must be between 20 and 100. deMaxResults :: Lens' DescribeEvents (Maybe Int)-deMaxResults = lens _deMaxResults (\ s a -> s{_deMaxResults = a});+deMaxResults = lens _deMaxResults (\ s a -> s{_deMaxResults = a})  instance AWSRequest DescribeEvents where         type Rs DescribeEvents = DescribeEventsResponse@@ -187,22 +187,22 @@     -> DescribeEventsResponse describeEventsResponse pResponseStatus_ =   DescribeEventsResponse'-  { _dersNextToken = Nothing-  , _dersEvents = Nothing-  , _dersResponseStatus = pResponseStatus_-  }+    { _dersNextToken = Nothing+    , _dersEvents = Nothing+    , _dersResponseStatus = pResponseStatus_+    }   -- | Provides an identifier to allow retrieval of paginated results. dersNextToken :: Lens' DescribeEventsResponse (Maybe Text)-dersNextToken = lens _dersNextToken (\ s a -> s{_dersNextToken = a});+dersNextToken = lens _dersNextToken (\ s a -> s{_dersNextToken = a})  -- | An array of events. Each element in the array represents 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  -- | -- | 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

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.DescribeParameterGroups--- 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,23 +68,23 @@     :: DescribeParameterGroups describeParameterGroups =   DescribeParameterGroups'-  { _dpgNextToken = Nothing-  , _dpgParameterGroupNames = Nothing-  , _dpgMaxResults = Nothing-  }+    { _dpgNextToken = Nothing+    , _dpgParameterGroupNames = Nothing+    , _dpgMaxResults = Nothing+    }   -- | An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by @MaxResults@ . dpgNextToken :: Lens' DescribeParameterGroups (Maybe Text)-dpgNextToken = lens _dpgNextToken (\ s a -> s{_dpgNextToken = a});+dpgNextToken = lens _dpgNextToken (\ s a -> s{_dpgNextToken = a})  -- | The names of the parameter groups. dpgParameterGroupNames :: Lens' DescribeParameterGroups [Text]-dpgParameterGroupNames = lens _dpgParameterGroupNames (\ s a -> s{_dpgParameterGroupNames = a}) . _Default . _Coerce;+dpgParameterGroupNames = lens _dpgParameterGroupNames (\ s a -> s{_dpgParameterGroupNames = a}) . _Default . _Coerce  -- | The maximum number of results to include in the response. If more results exist than the specified @MaxResults@ value, a token is included in the response so that the remaining results can be retrieved. The value for @MaxResults@ must be between 20 and 100. dpgMaxResults :: Lens' DescribeParameterGroups (Maybe Int)-dpgMaxResults = lens _dpgMaxResults (\ s a -> s{_dpgMaxResults = a});+dpgMaxResults = lens _dpgMaxResults (\ s a -> s{_dpgMaxResults = a})  instance AWSRequest DescribeParameterGroups where         type Rs DescribeParameterGroups =@@ -149,22 +149,22 @@     -> DescribeParameterGroupsResponse describeParameterGroupsResponse pResponseStatus_ =   DescribeParameterGroupsResponse'-  { _dpgsrsNextToken = Nothing-  , _dpgsrsParameterGroups = Nothing-  , _dpgsrsResponseStatus = pResponseStatus_-  }+    { _dpgsrsNextToken = Nothing+    , _dpgsrsParameterGroups = Nothing+    , _dpgsrsResponseStatus = pResponseStatus_+    }   -- | Provides an identifier to allow retrieval of paginated results. dpgsrsNextToken :: Lens' DescribeParameterGroupsResponse (Maybe Text)-dpgsrsNextToken = lens _dpgsrsNextToken (\ s a -> s{_dpgsrsNextToken = a});+dpgsrsNextToken = lens _dpgsrsNextToken (\ s a -> s{_dpgsrsNextToken = a})  -- | An array of parameter groups. Each element in the array represents one parameter group. dpgsrsParameterGroups :: Lens' DescribeParameterGroupsResponse [ParameterGroup]-dpgsrsParameterGroups = lens _dpgsrsParameterGroups (\ s a -> s{_dpgsrsParameterGroups = a}) . _Default . _Coerce;+dpgsrsParameterGroups = lens _dpgsrsParameterGroups (\ s a -> s{_dpgsrsParameterGroups = a}) . _Default . _Coerce  -- | -- | The response status code. dpgsrsResponseStatus :: Lens' DescribeParameterGroupsResponse Int-dpgsrsResponseStatus = lens _dpgsrsResponseStatus (\ s a -> s{_dpgsrsResponseStatus = a});+dpgsrsResponseStatus = lens _dpgsrsResponseStatus (\ s a -> s{_dpgsrsResponseStatus = a})  instance NFData DescribeParameterGroupsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.DescribeParameters--- 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,28 +73,28 @@     -> DescribeParameters describeParameters pParameterGroupName_ =   DescribeParameters'-  { _dpNextToken = Nothing-  , _dpSource = Nothing-  , _dpMaxResults = Nothing-  , _dpParameterGroupName = pParameterGroupName_-  }+    { _dpNextToken = Nothing+    , _dpSource = Nothing+    , _dpMaxResults = Nothing+    , _dpParameterGroupName = pParameterGroupName_+    }   -- | An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by @MaxResults@ . dpNextToken :: Lens' DescribeParameters (Maybe Text)-dpNextToken = lens _dpNextToken (\ s a -> s{_dpNextToken = a});+dpNextToken = lens _dpNextToken (\ s a -> s{_dpNextToken = a})  -- | How the parameter is defined. For example, @system@ denotes a system-defined parameter. dpSource :: Lens' DescribeParameters (Maybe Text)-dpSource = lens _dpSource (\ s a -> s{_dpSource = a});+dpSource = lens _dpSource (\ s a -> s{_dpSource = a})  -- | The maximum number of results to include in the response. If more results exist than the specified @MaxResults@ value, a token is included in the response so that the remaining results can be retrieved. The value for @MaxResults@ must be between 20 and 100. dpMaxResults :: Lens' DescribeParameters (Maybe Int)-dpMaxResults = lens _dpMaxResults (\ s a -> s{_dpMaxResults = a});+dpMaxResults = lens _dpMaxResults (\ s a -> s{_dpMaxResults = a})  -- | The name of the parameter group. dpParameterGroupName :: Lens' DescribeParameters Text-dpParameterGroupName = lens _dpParameterGroupName (\ s a -> s{_dpParameterGroupName = a});+dpParameterGroupName = lens _dpParameterGroupName (\ s a -> s{_dpParameterGroupName = a})  instance AWSRequest DescribeParameters where         type Rs DescribeParameters =@@ -159,22 +159,22 @@     -> DescribeParametersResponse describeParametersResponse pResponseStatus_ =   DescribeParametersResponse'-  { _dprsNextToken = Nothing-  , _dprsParameters = Nothing-  , _dprsResponseStatus = pResponseStatus_-  }+    { _dprsNextToken = Nothing+    , _dprsParameters = Nothing+    , _dprsResponseStatus = pResponseStatus_+    }   -- | Provides an identifier to allow retrieval of paginated results. dprsNextToken :: Lens' DescribeParametersResponse (Maybe Text)-dprsNextToken = lens _dprsNextToken (\ s a -> s{_dprsNextToken = a});+dprsNextToken = lens _dprsNextToken (\ s a -> s{_dprsNextToken = a})  -- | A list of parameters within a parameter group. Each element in the list represents one parameter. dprsParameters :: Lens' DescribeParametersResponse [Parameter]-dprsParameters = lens _dprsParameters (\ s a -> s{_dprsParameters = a}) . _Default . _Coerce;+dprsParameters = lens _dprsParameters (\ s a -> s{_dprsParameters = a}) . _Default . _Coerce  -- | -- | The response status code. dprsResponseStatus :: Lens' DescribeParametersResponse Int-dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});+dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a})  instance NFData DescribeParametersResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.DescribeSubnetGroups--- 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,23 +68,23 @@     :: DescribeSubnetGroups describeSubnetGroups =   DescribeSubnetGroups'-  { _dsgSubnetGroupNames = Nothing-  , _dsgNextToken = Nothing-  , _dsgMaxResults = Nothing-  }+    { _dsgSubnetGroupNames = Nothing+    , _dsgNextToken = Nothing+    , _dsgMaxResults = Nothing+    }   -- | The name of the subnet group. dsgSubnetGroupNames :: Lens' DescribeSubnetGroups [Text]-dsgSubnetGroupNames = lens _dsgSubnetGroupNames (\ s a -> s{_dsgSubnetGroupNames = a}) . _Default . _Coerce;+dsgSubnetGroupNames = lens _dsgSubnetGroupNames (\ s a -> s{_dsgSubnetGroupNames = a}) . _Default . _Coerce  -- | An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token, up to the value specified by @MaxResults@ . dsgNextToken :: Lens' DescribeSubnetGroups (Maybe Text)-dsgNextToken = lens _dsgNextToken (\ s a -> s{_dsgNextToken = a});+dsgNextToken = lens _dsgNextToken (\ s a -> s{_dsgNextToken = a})  -- | The maximum number of results to include in the response. If more results exist than the specified @MaxResults@ value, a token is included in the response so that the remaining results can be retrieved. The value for @MaxResults@ must be between 20 and 100. dsgMaxResults :: Lens' DescribeSubnetGroups (Maybe Int)-dsgMaxResults = lens _dsgMaxResults (\ s a -> s{_dsgMaxResults = a});+dsgMaxResults = lens _dsgMaxResults (\ s a -> s{_dsgMaxResults = a})  instance AWSRequest DescribeSubnetGroups where         type Rs DescribeSubnetGroups =@@ -147,22 +147,22 @@     -> DescribeSubnetGroupsResponse describeSubnetGroupsResponse pResponseStatus_ =   DescribeSubnetGroupsResponse'-  { _dsgsrsSubnetGroups = Nothing-  , _dsgsrsNextToken = Nothing-  , _dsgsrsResponseStatus = pResponseStatus_-  }+    { _dsgsrsSubnetGroups = Nothing+    , _dsgsrsNextToken = Nothing+    , _dsgsrsResponseStatus = pResponseStatus_+    }   -- | An array of subnet groups. Each element in the array represents a single subnet group. dsgsrsSubnetGroups :: Lens' DescribeSubnetGroupsResponse [SubnetGroup]-dsgsrsSubnetGroups = lens _dsgsrsSubnetGroups (\ s a -> s{_dsgsrsSubnetGroups = a}) . _Default . _Coerce;+dsgsrsSubnetGroups = lens _dsgsrsSubnetGroups (\ s a -> s{_dsgsrsSubnetGroups = a}) . _Default . _Coerce  -- | Provides an identifier to allow retrieval of paginated results. dsgsrsNextToken :: Lens' DescribeSubnetGroupsResponse (Maybe Text)-dsgsrsNextToken = lens _dsgsrsNextToken (\ s a -> s{_dsgsrsNextToken = a});+dsgsrsNextToken = lens _dsgsrsNextToken (\ s a -> s{_dsgsrsNextToken = a})  -- | -- | The response status code. dsgsrsResponseStatus :: Lens' DescribeSubnetGroupsResponse Int-dsgsrsResponseStatus = lens _dsgsrsResponseStatus (\ s a -> s{_dsgsrsResponseStatus = a});+dsgsrsResponseStatus = lens _dsgsrsResponseStatus (\ s a -> s{_dsgsrsResponseStatus = a})  instance NFData DescribeSubnetGroupsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.IncreaseReplicationFactor--- 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,23 +69,23 @@     -> IncreaseReplicationFactor increaseReplicationFactor pClusterName_ pNewReplicationFactor_ =   IncreaseReplicationFactor'-  { _irfAvailabilityZones = Nothing-  , _irfClusterName = pClusterName_-  , _irfNewReplicationFactor = pNewReplicationFactor_-  }+    { _irfAvailabilityZones = Nothing+    , _irfClusterName = pClusterName_+    , _irfNewReplicationFactor = pNewReplicationFactor_+    }   -- | The Availability Zones (AZs) in which the cluster nodes will be created. All nodes belonging to the cluster are placed in these Availability Zones. Use this parameter if you want to distribute the nodes across multiple AZs. irfAvailabilityZones :: Lens' IncreaseReplicationFactor [Text]-irfAvailabilityZones = lens _irfAvailabilityZones (\ s a -> s{_irfAvailabilityZones = a}) . _Default . _Coerce;+irfAvailabilityZones = lens _irfAvailabilityZones (\ s a -> s{_irfAvailabilityZones = a}) . _Default . _Coerce  -- | The name of the DAX cluster that will receive additional nodes. irfClusterName :: Lens' IncreaseReplicationFactor Text-irfClusterName = lens _irfClusterName (\ s a -> s{_irfClusterName = a});+irfClusterName = lens _irfClusterName (\ s a -> s{_irfClusterName = a})  -- | The new number of nodes for the DAX cluster. irfNewReplicationFactor :: Lens' IncreaseReplicationFactor Int-irfNewReplicationFactor = lens _irfNewReplicationFactor (\ s a -> s{_irfNewReplicationFactor = a});+irfNewReplicationFactor = lens _irfNewReplicationFactor (\ s a -> s{_irfNewReplicationFactor = a})  instance AWSRequest IncreaseReplicationFactor where         type Rs IncreaseReplicationFactor =@@ -146,16 +146,16 @@     -> IncreaseReplicationFactorResponse increaseReplicationFactorResponse pResponseStatus_ =   IncreaseReplicationFactorResponse'-  {_irfrsCluster = Nothing, _irfrsResponseStatus = pResponseStatus_}+    {_irfrsCluster = Nothing, _irfrsResponseStatus = pResponseStatus_}   -- | A description of the DAX cluster. with its new replication factor. irfrsCluster :: Lens' IncreaseReplicationFactorResponse (Maybe Cluster)-irfrsCluster = lens _irfrsCluster (\ s a -> s{_irfrsCluster = a});+irfrsCluster = lens _irfrsCluster (\ s a -> s{_irfrsCluster = a})  -- | -- | The response status code. irfrsResponseStatus :: Lens' IncreaseReplicationFactorResponse Int-irfrsResponseStatus = lens _irfrsResponseStatus (\ s a -> s{_irfrsResponseStatus = a});+irfrsResponseStatus = lens _irfrsResponseStatus (\ s a -> s{_irfrsResponseStatus = a})  instance NFData IncreaseReplicationFactorResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.ListTags--- 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,11 +69,11 @@  -- | An optional token returned from a prior request. Use this token for pagination of results from this action. If this parameter is specified, the response includes only results beyond the token. ltNextToken :: Lens' ListTags (Maybe Text)-ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a});+ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a})  -- | The name of the DAX resource to which the tags belong. ltResourceName :: Lens' ListTags Text-ltResourceName = lens _ltResourceName (\ s a -> s{_ltResourceName = a});+ltResourceName = lens _ltResourceName (\ s a -> s{_ltResourceName = a})  instance AWSRequest ListTags where         type Rs ListTags = ListTagsResponse@@ -133,22 +133,22 @@     -> ListTagsResponse listTagsResponse pResponseStatus_ =   ListTagsResponse'-  { _ltrsNextToken = Nothing-  , _ltrsTags = Nothing-  , _ltrsResponseStatus = pResponseStatus_-  }+    { _ltrsNextToken = Nothing+    , _ltrsTags = Nothing+    , _ltrsResponseStatus = pResponseStatus_+    }   -- | If this value is present, there are additional results to be displayed. To retrieve them, call @ListTags@ again, with @NextToken@ set to this value. ltrsNextToken :: Lens' ListTagsResponse (Maybe Text)-ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a});+ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a})  -- | A list of tags currently associated with the DAX cluster. ltrsTags :: Lens' ListTagsResponse [Tag]-ltrsTags = lens _ltrsTags (\ s a -> s{_ltrsTags = a}) . _Default . _Coerce;+ltrsTags = lens _ltrsTags (\ s a -> s{_ltrsTags = a}) . _Default . _Coerce  -- | -- | The response status code. ltrsResponseStatus :: Lens' ListTagsResponse Int-ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a});+ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a})  instance NFData ListTagsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.RebootNode--- 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,11 +69,11 @@  -- | The name of the DAX cluster containing the node to be rebooted. rnClusterName :: Lens' RebootNode Text-rnClusterName = lens _rnClusterName (\ s a -> s{_rnClusterName = a});+rnClusterName = lens _rnClusterName (\ s a -> s{_rnClusterName = a})  -- | The system-assigned ID of the node to be rebooted. rnNodeId :: Lens' RebootNode Text-rnNodeId = lens _rnNodeId (\ s a -> s{_rnNodeId = a});+rnNodeId = lens _rnNodeId (\ s a -> s{_rnNodeId = a})  instance AWSRequest RebootNode where         type Rs RebootNode = RebootNodeResponse@@ -129,15 +129,15 @@     -> RebootNodeResponse rebootNodeResponse pResponseStatus_ =   RebootNodeResponse'-  {_rnrsCluster = Nothing, _rnrsResponseStatus = pResponseStatus_}+    {_rnrsCluster = Nothing, _rnrsResponseStatus = pResponseStatus_}   -- | A description of the DAX cluster after a node has been rebooted. rnrsCluster :: Lens' RebootNodeResponse (Maybe Cluster)-rnrsCluster = lens _rnrsCluster (\ s a -> s{_rnrsCluster = a});+rnrsCluster = lens _rnrsCluster (\ s a -> s{_rnrsCluster = a})  -- | -- | The response status code. rnrsResponseStatus :: Lens' RebootNodeResponse Int-rnrsResponseStatus = lens _rnrsResponseStatus (\ s a -> s{_rnrsResponseStatus = a});+rnrsResponseStatus = lens _rnrsResponseStatus (\ s a -> s{_rnrsResponseStatus = a})  instance NFData RebootNodeResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.TagResource--- 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,11 +68,11 @@  -- | The name of the DAX resource to which tags should be added. trResourceName :: Lens' TagResource Text-trResourceName = lens _trResourceName (\ s a -> s{_trResourceName = a});+trResourceName = lens _trResourceName (\ s a -> s{_trResourceName = a})  -- | The tags to be assigned to the DAX resource. trTags :: Lens' TagResource [Tag]-trTags = lens _trTags (\ s a -> s{_trTags = a}) . _Coerce;+trTags = lens _trTags (\ s a -> s{_trTags = a}) . _Coerce  instance AWSRequest TagResource where         type Rs TagResource = TagResourceResponse@@ -128,15 +128,15 @@     -> TagResourceResponse tagResourceResponse pResponseStatus_ =   TagResourceResponse'-  {_trrsTags = Nothing, _trrsResponseStatus = pResponseStatus_}+    {_trrsTags = Nothing, _trrsResponseStatus = pResponseStatus_}   -- | The list of tags that are associated with the DAX resource. trrsTags :: Lens' TagResourceResponse [Tag]-trrsTags = lens _trrsTags (\ s a -> s{_trrsTags = a}) . _Default . _Coerce;+trrsTags = lens _trrsTags (\ s a -> s{_trrsTags = a}) . _Default . _Coerce  -- | -- | The response status code. trrsResponseStatus :: Lens' TagResourceResponse Int-trrsResponseStatus = lens _trrsResponseStatus (\ s a -> s{_trrsResponseStatus = a});+trrsResponseStatus = lens _trrsResponseStatus (\ s a -> s{_trrsResponseStatus = a})  instance NFData TagResourceResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.DAX.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@@ -180,24 +180,24 @@ dax :: Service dax =   Service-  { _svcAbbrev = "DAX"-  , _svcSigner = v4-  , _svcPrefix = "dax"-  , _svcVersion = "2017-04-19"-  , _svcEndpoint = defaultEndpoint dax-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "DAX"-  , _svcRetry = retry-  }+    { _svcAbbrev = "DAX"+    , _svcSigner = v4+    , _svcPrefix = "dax"+    , _svcVersion = "2017-04-19"+    , _svcEndpoint = defaultEndpoint dax+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "DAX"+    , _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"@@ -206,6 +206,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"

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.DAX.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@@ -85,88 +85,88 @@     :: Cluster cluster =   Cluster'-  { _cStatus = Nothing-  , _cIAMRoleARN = Nothing-  , _cClusterARN = Nothing-  , _cActiveNodes = Nothing-  , _cSecurityGroups = Nothing-  , _cNotificationConfiguration = Nothing-  , _cNodeIdsToRemove = Nothing-  , _cTotalNodes = Nothing-  , _cPreferredMaintenanceWindow = Nothing-  , _cSubnetGroup = Nothing-  , _cClusterName = Nothing-  , _cNodeType = Nothing-  , _cNodes = Nothing-  , _cClusterDiscoveryEndpoint = Nothing-  , _cDescription = Nothing-  , _cParameterGroup = Nothing-  }+    { _cStatus = Nothing+    , _cIAMRoleARN = Nothing+    , _cClusterARN = Nothing+    , _cActiveNodes = Nothing+    , _cSecurityGroups = Nothing+    , _cNotificationConfiguration = Nothing+    , _cNodeIdsToRemove = Nothing+    , _cTotalNodes = Nothing+    , _cPreferredMaintenanceWindow = Nothing+    , _cSubnetGroup = Nothing+    , _cClusterName = Nothing+    , _cNodeType = Nothing+    , _cNodes = Nothing+    , _cClusterDiscoveryEndpoint = Nothing+    , _cDescription = Nothing+    , _cParameterGroup = Nothing+    }   -- | The current status of the cluster. cStatus :: Lens' Cluster (Maybe Text)-cStatus = lens _cStatus (\ s a -> s{_cStatus = a});+cStatus = lens _cStatus (\ s a -> s{_cStatus = a})  -- | A valid Amazon Resource Name (ARN) that identifies an IAM role. At runtime, DAX will assume this role and use the role's permissions to access DynamoDB on your behalf. cIAMRoleARN :: Lens' Cluster (Maybe Text)-cIAMRoleARN = lens _cIAMRoleARN (\ s a -> s{_cIAMRoleARN = a});+cIAMRoleARN = lens _cIAMRoleARN (\ s a -> s{_cIAMRoleARN = a})  -- | The Amazon Resource Name (ARN) that uniquely identifies the cluster. cClusterARN :: Lens' Cluster (Maybe Text)-cClusterARN = lens _cClusterARN (\ s a -> s{_cClusterARN = a});+cClusterARN = lens _cClusterARN (\ s a -> s{_cClusterARN = a})  -- | The number of nodes in the cluster that are active (i.e., capable of serving requests). cActiveNodes :: Lens' Cluster (Maybe Int)-cActiveNodes = lens _cActiveNodes (\ s a -> s{_cActiveNodes = a});+cActiveNodes = lens _cActiveNodes (\ s a -> s{_cActiveNodes = a})  -- | A list of security groups, and the status of each, for the nodes in the cluster. cSecurityGroups :: Lens' Cluster [SecurityGroupMembership]-cSecurityGroups = lens _cSecurityGroups (\ s a -> s{_cSecurityGroups = a}) . _Default . _Coerce;+cSecurityGroups = lens _cSecurityGroups (\ s a -> s{_cSecurityGroups = a}) . _Default . _Coerce  -- | Describes a notification topic and its status. Notification topics are used for publishing DAX events to subscribers using Amazon Simple Notification Service (SNS). cNotificationConfiguration :: Lens' Cluster (Maybe NotificationConfiguration)-cNotificationConfiguration = lens _cNotificationConfiguration (\ s a -> s{_cNotificationConfiguration = a});+cNotificationConfiguration = lens _cNotificationConfiguration (\ s a -> s{_cNotificationConfiguration = a})  -- | A list of nodes to be removed from the cluster. cNodeIdsToRemove :: Lens' Cluster [Text]-cNodeIdsToRemove = lens _cNodeIdsToRemove (\ s a -> s{_cNodeIdsToRemove = a}) . _Default . _Coerce;+cNodeIdsToRemove = lens _cNodeIdsToRemove (\ s a -> s{_cNodeIdsToRemove = a}) . _Default . _Coerce  -- | The total number of nodes in the cluster. cTotalNodes :: Lens' Cluster (Maybe Int)-cTotalNodes = lens _cTotalNodes (\ s a -> s{_cTotalNodes = a});+cTotalNodes = lens _cTotalNodes (\ s a -> s{_cTotalNodes = a})  -- | A range of time when maintenance of DAX cluster software will be performed. For example: @sun:01:00-sun:09:00@ . Cluster maintenance normally takes less than 30 minutes, and is performed automatically within the maintenance window. cPreferredMaintenanceWindow :: Lens' Cluster (Maybe Text)-cPreferredMaintenanceWindow = lens _cPreferredMaintenanceWindow (\ s a -> s{_cPreferredMaintenanceWindow = a});+cPreferredMaintenanceWindow = lens _cPreferredMaintenanceWindow (\ s a -> s{_cPreferredMaintenanceWindow = a})  -- | The subnet group where the DAX cluster is running. cSubnetGroup :: Lens' Cluster (Maybe Text)-cSubnetGroup = lens _cSubnetGroup (\ s a -> s{_cSubnetGroup = a});+cSubnetGroup = lens _cSubnetGroup (\ s a -> s{_cSubnetGroup = a})  -- | The name of the DAX cluster. cClusterName :: Lens' Cluster (Maybe Text)-cClusterName = lens _cClusterName (\ s a -> s{_cClusterName = a});+cClusterName = lens _cClusterName (\ s a -> s{_cClusterName = a})  -- | The node type for the nodes in the cluster. (All nodes in a DAX cluster are of the same type.) cNodeType :: Lens' Cluster (Maybe Text)-cNodeType = lens _cNodeType (\ s a -> s{_cNodeType = a});+cNodeType = lens _cNodeType (\ s a -> s{_cNodeType = a})  -- | A list of nodes that are currently in the cluster. cNodes :: Lens' Cluster [Node]-cNodes = lens _cNodes (\ s a -> s{_cNodes = a}) . _Default . _Coerce;+cNodes = lens _cNodes (\ s a -> s{_cNodes = a}) . _Default . _Coerce  -- | The configuration endpoint for this DAX cluster, consisting of a DNS name and a port number. Client applications can specify this endpoint, rather than an individual node endpoint, and allow the DAX client software to intelligently route requests and responses to nodes in the DAX cluster. cClusterDiscoveryEndpoint :: Lens' Cluster (Maybe Endpoint)-cClusterDiscoveryEndpoint = lens _cClusterDiscoveryEndpoint (\ s a -> s{_cClusterDiscoveryEndpoint = a});+cClusterDiscoveryEndpoint = lens _cClusterDiscoveryEndpoint (\ s a -> s{_cClusterDiscoveryEndpoint = a})  -- | The description of the cluster. cDescription :: Lens' Cluster (Maybe Text)-cDescription = lens _cDescription (\ s a -> s{_cDescription = a});+cDescription = lens _cDescription (\ s a -> s{_cDescription = a})  -- | The parameter group being used by nodes in the cluster. cParameterGroup :: Lens' Cluster (Maybe ParameterGroupStatus)-cParameterGroup = lens _cParameterGroup (\ s a -> s{_cParameterGroup = a});+cParameterGroup = lens _cParameterGroup (\ s a -> s{_cParameterGroup = a})  instance FromJSON Cluster where         parseJSON@@ -218,11 +218,11 @@  -- | The DNS hostname of the endpoint. 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 applications should use to connect to the endpoint. ePort :: Lens' Endpoint (Maybe Int)-ePort = lens _ePort (\ s a -> s{_ePort = a});+ePort = lens _ePort (\ s a -> s{_ePort = a})  instance FromJSON Endpoint where         parseJSON@@ -262,28 +262,28 @@     :: Event event =   Event'-  { _eSourceName = Nothing-  , _eSourceType = Nothing-  , _eDate = Nothing-  , _eMessage = Nothing-  }+    { _eSourceName = Nothing+    , _eSourceType = Nothing+    , _eDate = Nothing+    , _eMessage = Nothing+    }   -- | The source of the event. For example, if the event occurred at the node level, the source would be the node ID. eSourceName :: Lens' Event (Maybe Text)-eSourceName = lens _eSourceName (\ s a -> s{_eSourceName = a});+eSourceName = lens _eSourceName (\ s a -> s{_eSourceName = a})  -- | Specifies the origin of this event - a cluster, a parameter group, a node ID, etc. eSourceType :: Lens' Event (Maybe SourceType)-eSourceType = lens _eSourceType (\ s a -> s{_eSourceType = a});+eSourceType = lens _eSourceType (\ s a -> s{_eSourceType = 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  -- | A user-defined message associated with the event. eMessage :: Lens' Event (Maybe Text)-eMessage = lens _eMessage (\ s a -> s{_eMessage = a});+eMessage = lens _eMessage (\ s a -> s{_eMessage = a})  instance FromJSON Event where         parseJSON@@ -332,38 +332,38 @@     :: Node node =   Node'-  { _nNodeStatus = Nothing-  , _nParameterGroupStatus = Nothing-  , _nAvailabilityZone = Nothing-  , _nNodeId = Nothing-  , _nEndpoint = Nothing-  , _nNodeCreateTime = Nothing-  }+    { _nNodeStatus = Nothing+    , _nParameterGroupStatus = Nothing+    , _nAvailabilityZone = Nothing+    , _nNodeId = Nothing+    , _nEndpoint = Nothing+    , _nNodeCreateTime = Nothing+    }   -- | The current status of the node. For example: @available@ . nNodeStatus :: Lens' Node (Maybe Text)-nNodeStatus = lens _nNodeStatus (\ s a -> s{_nNodeStatus = a});+nNodeStatus = lens _nNodeStatus (\ s a -> s{_nNodeStatus = a})  -- | The status of the parameter group associated with this node. For example, @in-sync@ . nParameterGroupStatus :: Lens' Node (Maybe Text)-nParameterGroupStatus = lens _nParameterGroupStatus (\ s a -> s{_nParameterGroupStatus = a});+nParameterGroupStatus = lens _nParameterGroupStatus (\ s a -> s{_nParameterGroupStatus = a})  -- | The Availability Zone (AZ) in which the node has been deployed. nAvailabilityZone :: Lens' Node (Maybe Text)-nAvailabilityZone = lens _nAvailabilityZone (\ s a -> s{_nAvailabilityZone = a});+nAvailabilityZone = lens _nAvailabilityZone (\ s a -> s{_nAvailabilityZone = a})  -- | A system-generated identifier for the node. nNodeId :: Lens' Node (Maybe Text)-nNodeId = lens _nNodeId (\ s a -> s{_nNodeId = a});+nNodeId = lens _nNodeId (\ s a -> s{_nNodeId = a})  -- | The endpoint for the node, consisting of a DNS name and a port number. Client applications can connect directly to a node endpoint, if desired (as an alternative to allowing DAX client software to intelligently route requests and responses to nodes in the DAX cluster. nEndpoint :: Lens' Node (Maybe Endpoint)-nEndpoint = lens _nEndpoint (\ s a -> s{_nEndpoint = a});+nEndpoint = lens _nEndpoint (\ s a -> s{_nEndpoint = a})  -- | The date and time (in UNIX epoch format) when the node was launched. nNodeCreateTime :: Lens' Node (Maybe UTCTime)-nNodeCreateTime = lens _nNodeCreateTime (\ s a -> s{_nNodeCreateTime = a}) . mapping _Time;+nNodeCreateTime = lens _nNodeCreateTime (\ s a -> s{_nNodeCreateTime = a}) . mapping _Time  instance FromJSON Node where         parseJSON@@ -407,11 +407,11 @@  -- | The parameter value for this node type. ntsvValue :: Lens' NodeTypeSpecificValue (Maybe Text)-ntsvValue = lens _ntsvValue (\ s a -> s{_ntsvValue = a});+ntsvValue = lens _ntsvValue (\ s a -> s{_ntsvValue = a})  -- | A node type to which the parameter value applies. ntsvNodeType :: Lens' NodeTypeSpecificValue (Maybe Text)-ntsvNodeType = lens _ntsvNodeType (\ s a -> s{_ntsvNodeType = a});+ntsvNodeType = lens _ntsvNodeType (\ s a -> s{_ntsvNodeType = a})  instance FromJSON NodeTypeSpecificValue where         parseJSON@@ -450,11 +450,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 FromJSON NotificationConfiguration where         parseJSON@@ -513,58 +513,58 @@     :: Parameter parameter =   Parameter'-  { _pParameterValue = Nothing-  , _pParameterType = Nothing-  , _pSource = Nothing-  , _pIsModifiable = Nothing-  , _pDataType = Nothing-  , _pNodeTypeSpecificValues = Nothing-  , _pAllowedValues = Nothing-  , _pParameterName = Nothing-  , _pDescription = Nothing-  , _pChangeType = Nothing-  }+    { _pParameterValue = Nothing+    , _pParameterType = Nothing+    , _pSource = Nothing+    , _pIsModifiable = Nothing+    , _pDataType = Nothing+    , _pNodeTypeSpecificValues = Nothing+    , _pAllowedValues = Nothing+    , _pParameterName = Nothing+    , _pDescription = Nothing+    , _pChangeType = Nothing+    }   -- | The value for the parameter. pParameterValue :: Lens' Parameter (Maybe Text)-pParameterValue = lens _pParameterValue (\ s a -> s{_pParameterValue = a});+pParameterValue = lens _pParameterValue (\ s a -> s{_pParameterValue = a})  -- | Determines whether the parameter can be applied to any nodes, or only nodes of a particular type. pParameterType :: Lens' Parameter (Maybe ParameterType)-pParameterType = lens _pParameterType (\ s a -> s{_pParameterType = a});+pParameterType = lens _pParameterType (\ s a -> s{_pParameterType = a})  -- | How the parameter is defined. For example, @system@ denotes a system-defined parameter. pSource :: Lens' Parameter (Maybe Text)-pSource = lens _pSource (\ s a -> s{_pSource = a});+pSource = lens _pSource (\ s a -> s{_pSource = a})  -- | Whether the customer is allowed to modify the parameter. pIsModifiable :: Lens' Parameter (Maybe IsModifiable)-pIsModifiable = lens _pIsModifiable (\ s a -> s{_pIsModifiable = a});+pIsModifiable = lens _pIsModifiable (\ s a -> s{_pIsModifiable = a})  -- | The data type of the parameter. For example, @integer@ : pDataType :: Lens' Parameter (Maybe Text)-pDataType = lens _pDataType (\ s a -> s{_pDataType = a});+pDataType = lens _pDataType (\ s a -> s{_pDataType = a})  -- | A list of node types, and specific parameter values for each node. pNodeTypeSpecificValues :: Lens' Parameter [NodeTypeSpecificValue]-pNodeTypeSpecificValues = lens _pNodeTypeSpecificValues (\ s a -> s{_pNodeTypeSpecificValues = a}) . _Default . _Coerce;+pNodeTypeSpecificValues = lens _pNodeTypeSpecificValues (\ s a -> s{_pNodeTypeSpecificValues = a}) . _Default . _Coerce  -- | A range of values within which the parameter can be set. 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})  -- | The conditions under which changes to this parameter can be applied. For example, @requires-reboot@ indicates that a new value for this parameter will only take effect if a node is rebooted. pChangeType :: Lens' Parameter (Maybe ChangeType)-pChangeType = lens _pChangeType (\ s a -> s{_pChangeType = a});+pChangeType = lens _pChangeType (\ s a -> s{_pChangeType = a})  instance FromJSON Parameter where         parseJSON@@ -611,11 +611,11 @@  -- | A description of the parameter group. pgDescription :: Lens' ParameterGroup (Maybe Text)-pgDescription = lens _pgDescription (\ s a -> s{_pgDescription = a});+pgDescription = lens _pgDescription (\ s a -> s{_pgDescription = a})  -- | The name of the parameter group. pgParameterGroupName :: Lens' ParameterGroup (Maybe Text)-pgParameterGroupName = lens _pgParameterGroupName (\ s a -> s{_pgParameterGroupName = a});+pgParameterGroupName = lens _pgParameterGroupName (\ s a -> s{_pgParameterGroupName = a})  instance FromJSON ParameterGroup where         parseJSON@@ -654,23 +654,23 @@     :: ParameterGroupStatus parameterGroupStatus =   ParameterGroupStatus'-  { _pgsNodeIdsToReboot = Nothing-  , _pgsParameterApplyStatus = Nothing-  , _pgsParameterGroupName = Nothing-  }+    { _pgsNodeIdsToReboot = Nothing+    , _pgsParameterApplyStatus = Nothing+    , _pgsParameterGroupName = Nothing+    }   -- | The node IDs of one or more nodes to be rebooted. pgsNodeIdsToReboot :: Lens' ParameterGroupStatus [Text]-pgsNodeIdsToReboot = lens _pgsNodeIdsToReboot (\ s a -> s{_pgsNodeIdsToReboot = a}) . _Default . _Coerce;+pgsNodeIdsToReboot = lens _pgsNodeIdsToReboot (\ s a -> s{_pgsNodeIdsToReboot = a}) . _Default . _Coerce  -- | The status of parameter updates. pgsParameterApplyStatus :: Lens' ParameterGroupStatus (Maybe Text)-pgsParameterApplyStatus = lens _pgsParameterApplyStatus (\ s a -> s{_pgsParameterApplyStatus = a});+pgsParameterApplyStatus = lens _pgsParameterApplyStatus (\ s a -> s{_pgsParameterApplyStatus = a})  -- | The name of the parameter group. pgsParameterGroupName :: Lens' ParameterGroupStatus (Maybe Text)-pgsParameterGroupName = lens _pgsParameterGroupName (\ s a -> s{_pgsParameterGroupName = a});+pgsParameterGroupName = lens _pgsParameterGroupName (\ s a -> s{_pgsParameterGroupName = a})  instance FromJSON ParameterGroupStatus where         parseJSON@@ -707,16 +707,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 @@ -751,16 +751,16 @@     :: SecurityGroupMembership securityGroupMembership =   SecurityGroupMembership'-  {_sgmStatus = Nothing, _sgmSecurityGroupIdentifier = Nothing}+    {_sgmStatus = Nothing, _sgmSecurityGroupIdentifier = Nothing}   -- | The status of this security group. sgmStatus :: Lens' SecurityGroupMembership (Maybe Text)-sgmStatus = lens _sgmStatus (\ s a -> s{_sgmStatus = a});+sgmStatus = lens _sgmStatus (\ s a -> s{_sgmStatus = a})  -- | The unique ID for this security group. sgmSecurityGroupIdentifier :: Lens' SecurityGroupMembership (Maybe Text)-sgmSecurityGroupIdentifier = lens _sgmSecurityGroupIdentifier (\ s a -> s{_sgmSecurityGroupIdentifier = a});+sgmSecurityGroupIdentifier = lens _sgmSecurityGroupIdentifier (\ s a -> s{_sgmSecurityGroupIdentifier = a})  instance FromJSON SecurityGroupMembership where         parseJSON@@ -800,11 +800,11 @@  -- | The system-assigned 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 (AZ) for subnet subnet. sSubnetAvailabilityZone :: Lens' Subnet (Maybe Text)-sSubnetAvailabilityZone = lens _sSubnetAvailabilityZone (\ s a -> s{_sSubnetAvailabilityZone = a});+sSubnetAvailabilityZone = lens _sSubnetAvailabilityZone (\ s a -> s{_sSubnetAvailabilityZone = a})  instance FromJSON Subnet where         parseJSON@@ -852,28 +852,28 @@     :: SubnetGroup subnetGroup =   SubnetGroup'-  { _sgVPCId = Nothing-  , _sgSubnets = Nothing-  , _sgSubnetGroupName = Nothing-  , _sgDescription = Nothing-  }+    { _sgVPCId = Nothing+    , _sgSubnets = Nothing+    , _sgSubnetGroupName = Nothing+    , _sgDescription = Nothing+    }   -- | The Amazon Virtual Private Cloud identifier (VPC ID) of the subnet group. sgVPCId :: Lens' SubnetGroup (Maybe Text)-sgVPCId = lens _sgVPCId (\ s a -> s{_sgVPCId = a});+sgVPCId = lens _sgVPCId (\ s a -> s{_sgVPCId = a})  -- | A list of subnets associated with the subnet group. sgSubnets :: Lens' SubnetGroup [Subnet]-sgSubnets = lens _sgSubnets (\ s a -> s{_sgSubnets = a}) . _Default . _Coerce;+sgSubnets = lens _sgSubnets (\ s a -> s{_sgSubnets = a}) . _Default . _Coerce  -- | The name of the subnet group. sgSubnetGroupName :: Lens' SubnetGroup (Maybe Text)-sgSubnetGroupName = lens _sgSubnetGroupName (\ s a -> s{_sgSubnetGroupName = a});+sgSubnetGroupName = lens _sgSubnetGroupName (\ s a -> s{_sgSubnetGroupName = a})  -- | The description of the subnet group. sgDescription :: Lens' SubnetGroup (Maybe Text)-sgDescription = lens _sgDescription (\ s a -> s{_sgDescription = a});+sgDescription = lens _sgDescription (\ s a -> s{_sgDescription = a})  instance FromJSON SubnetGroup where         parseJSON@@ -917,11 +917,11 @@  -- | The value of the tag. Tag values are case-sensitive and can 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. Tag keys are case sensitive. Every DAX cluster can only have one tag with the same key. If you try to add an existing tag (same key), the existing tag value will be updated to the new value. tagKey :: Lens' Tag (Maybe Text)-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})  instance FromJSON Tag where         parseJSON

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.DAX.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

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.UntagResource--- 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,11 +68,11 @@  -- | The name of the DAX resource from which the tags should be removed. urResourceName :: Lens' UntagResource Text-urResourceName = lens _urResourceName (\ s a -> s{_urResourceName = a});+urResourceName = lens _urResourceName (\ s a -> s{_urResourceName = a})  -- | A list of tag keys. If the DAX cluster has any tags with these keys, then the tags are removed from the cluster. urTagKeys :: Lens' UntagResource [Text]-urTagKeys = lens _urTagKeys (\ s a -> s{_urTagKeys = a}) . _Coerce;+urTagKeys = lens _urTagKeys (\ s a -> s{_urTagKeys = a}) . _Coerce  instance AWSRequest UntagResource where         type Rs UntagResource = UntagResourceResponse@@ -128,15 +128,15 @@     -> UntagResourceResponse untagResourceResponse pResponseStatus_ =   UntagResourceResponse'-  {_urrsTags = Nothing, _urrsResponseStatus = pResponseStatus_}+    {_urrsTags = Nothing, _urrsResponseStatus = pResponseStatus_}   -- | The tag keys that have been removed from the cluster. urrsTags :: Lens' UntagResourceResponse [Tag]-urrsTags = lens _urrsTags (\ s a -> s{_urrsTags = a}) . _Default . _Coerce;+urrsTags = lens _urrsTags (\ s a -> s{_urrsTags = a}) . _Default . _Coerce  -- | -- | The response status code. urrsResponseStatus :: Lens' UntagResourceResponse Int-urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a});+urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a})  instance NFData UntagResourceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.UpdateCluster--- 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,43 +84,43 @@     -> UpdateCluster updateCluster pClusterName_ =   UpdateCluster'-  { _ucSecurityGroupIds = Nothing-  , _ucPreferredMaintenanceWindow = Nothing-  , _ucNotificationTopicStatus = Nothing-  , _ucDescription = Nothing-  , _ucNotificationTopicARN = Nothing-  , _ucParameterGroupName = Nothing-  , _ucClusterName = pClusterName_-  }+    { _ucSecurityGroupIds = Nothing+    , _ucPreferredMaintenanceWindow = Nothing+    , _ucNotificationTopicStatus = Nothing+    , _ucDescription = Nothing+    , _ucNotificationTopicARN = Nothing+    , _ucParameterGroupName = Nothing+    , _ucClusterName = pClusterName_+    }   -- | A list of user-specified security group IDs to be assigned to each node in the DAX cluster. If this parameter is not specified, DAX assigns the default VPC security group to each node. ucSecurityGroupIds :: Lens' UpdateCluster [Text]-ucSecurityGroupIds = lens _ucSecurityGroupIds (\ s a -> s{_ucSecurityGroupIds = a}) . _Default . _Coerce;+ucSecurityGroupIds = lens _ucSecurityGroupIds (\ s a -> s{_ucSecurityGroupIds = a}) . _Default . _Coerce  -- | A range of time when maintenance of DAX cluster software will be performed. For example: @sun:01:00-sun:09:00@ . Cluster maintenance normally takes less than 30 minutes, and is performed automatically within the maintenance window. ucPreferredMaintenanceWindow :: Lens' UpdateCluster (Maybe Text)-ucPreferredMaintenanceWindow = lens _ucPreferredMaintenanceWindow (\ s a -> s{_ucPreferredMaintenanceWindow = a});+ucPreferredMaintenanceWindow = lens _ucPreferredMaintenanceWindow (\ s a -> s{_ucPreferredMaintenanceWindow = a})  -- | The current state of the topic. ucNotificationTopicStatus :: Lens' UpdateCluster (Maybe Text)-ucNotificationTopicStatus = lens _ucNotificationTopicStatus (\ s a -> s{_ucNotificationTopicStatus = a});+ucNotificationTopicStatus = lens _ucNotificationTopicStatus (\ s a -> s{_ucNotificationTopicStatus = a})  -- | A description of the changes being made to the cluster. ucDescription :: Lens' UpdateCluster (Maybe Text)-ucDescription = lens _ucDescription (\ s a -> s{_ucDescription = a});+ucDescription = lens _ucDescription (\ s a -> s{_ucDescription = a})  -- | The Amazon Resource Name (ARN) that identifies the topic. ucNotificationTopicARN :: Lens' UpdateCluster (Maybe Text)-ucNotificationTopicARN = lens _ucNotificationTopicARN (\ s a -> s{_ucNotificationTopicARN = a});+ucNotificationTopicARN = lens _ucNotificationTopicARN (\ s a -> s{_ucNotificationTopicARN = a})  -- | The name of a parameter group for this cluster. ucParameterGroupName :: Lens' UpdateCluster (Maybe Text)-ucParameterGroupName = lens _ucParameterGroupName (\ s a -> s{_ucParameterGroupName = a});+ucParameterGroupName = lens _ucParameterGroupName (\ s a -> s{_ucParameterGroupName = a})  -- | The name of the DAX cluster to be modified. ucClusterName :: Lens' UpdateCluster Text-ucClusterName = lens _ucClusterName (\ s a -> s{_ucClusterName = a});+ucClusterName = lens _ucClusterName (\ s a -> s{_ucClusterName = a})  instance AWSRequest UpdateCluster where         type Rs UpdateCluster = UpdateClusterResponse@@ -184,15 +184,15 @@     -> UpdateClusterResponse updateClusterResponse pResponseStatus_ =   UpdateClusterResponse'-  {_ucrsCluster = Nothing, _ucrsResponseStatus = pResponseStatus_}+    {_ucrsCluster = Nothing, _ucrsResponseStatus = pResponseStatus_}   -- | A description of the DAX cluster, after it has been modified. ucrsCluster :: Lens' UpdateClusterResponse (Maybe Cluster)-ucrsCluster = lens _ucrsCluster (\ s a -> s{_ucrsCluster = a});+ucrsCluster = lens _ucrsCluster (\ s a -> s{_ucrsCluster = a})  -- | -- | The response status code. ucrsResponseStatus :: Lens' UpdateClusterResponse Int-ucrsResponseStatus = lens _ucrsResponseStatus (\ s a -> s{_ucrsResponseStatus = a});+ucrsResponseStatus = lens _ucrsResponseStatus (\ s a -> s{_ucrsResponseStatus = a})  instance NFData UpdateClusterResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.UpdateParameterGroup--- 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@@ -64,18 +64,18 @@     -> UpdateParameterGroup updateParameterGroup pParameterGroupName_ =   UpdateParameterGroup'-  { _upgParameterGroupName = pParameterGroupName_-  , _upgParameterNameValues = mempty-  }+    { _upgParameterGroupName = pParameterGroupName_+    , _upgParameterNameValues = mempty+    }   -- | The name of the parameter group. upgParameterGroupName :: Lens' UpdateParameterGroup Text-upgParameterGroupName = lens _upgParameterGroupName (\ s a -> s{_upgParameterGroupName = a});+upgParameterGroupName = lens _upgParameterGroupName (\ s a -> s{_upgParameterGroupName = a})  -- | An array of name-value pairs for the parameters in the group. Each element in the array represents a single parameter. upgParameterNameValues :: Lens' UpdateParameterGroup [ParameterNameValue]-upgParameterNameValues = lens _upgParameterNameValues (\ s a -> s{_upgParameterNameValues = a}) . _Coerce;+upgParameterNameValues = lens _upgParameterNameValues (\ s a -> s{_upgParameterNameValues = a}) . _Coerce  instance AWSRequest UpdateParameterGroup where         type Rs UpdateParameterGroup =@@ -134,15 +134,15 @@     -> UpdateParameterGroupResponse updateParameterGroupResponse pResponseStatus_ =   UpdateParameterGroupResponse'-  {_upgrsParameterGroup = Nothing, _upgrsResponseStatus = pResponseStatus_}+    {_upgrsParameterGroup = Nothing, _upgrsResponseStatus = pResponseStatus_}   -- | The parameter group that has been modified. upgrsParameterGroup :: Lens' UpdateParameterGroupResponse (Maybe ParameterGroup)-upgrsParameterGroup = lens _upgrsParameterGroup (\ s a -> s{_upgrsParameterGroup = a});+upgrsParameterGroup = lens _upgrsParameterGroup (\ s a -> s{_upgrsParameterGroup = a})  -- | -- | The response status code. upgrsResponseStatus :: Lens' UpdateParameterGroupResponse Int-upgrsResponseStatus = lens _upgrsResponseStatus (\ s a -> s{_upgrsResponseStatus = a});+upgrsResponseStatus = lens _upgrsResponseStatus (\ s a -> s{_upgrsResponseStatus = a})  instance NFData UpdateParameterGroupResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DAX.UpdateSubnetGroup--- 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,23 +68,23 @@     -> UpdateSubnetGroup updateSubnetGroup pSubnetGroupName_ =   UpdateSubnetGroup'-  { _usgSubnetIds = Nothing-  , _usgDescription = Nothing-  , _usgSubnetGroupName = pSubnetGroupName_-  }+    { _usgSubnetIds = Nothing+    , _usgDescription = Nothing+    , _usgSubnetGroupName = pSubnetGroupName_+    }   -- | A list of subnet IDs in the subnet group. usgSubnetIds :: Lens' UpdateSubnetGroup [Text]-usgSubnetIds = lens _usgSubnetIds (\ s a -> s{_usgSubnetIds = a}) . _Default . _Coerce;+usgSubnetIds = lens _usgSubnetIds (\ s a -> s{_usgSubnetIds = a}) . _Default . _Coerce  -- | A description of the subnet group. usgDescription :: Lens' UpdateSubnetGroup (Maybe Text)-usgDescription = lens _usgDescription (\ s a -> s{_usgDescription = a});+usgDescription = lens _usgDescription (\ s a -> s{_usgDescription = a})  -- | The name of the subnet group. usgSubnetGroupName :: Lens' UpdateSubnetGroup Text-usgSubnetGroupName = lens _usgSubnetGroupName (\ s a -> s{_usgSubnetGroupName = a});+usgSubnetGroupName = lens _usgSubnetGroupName (\ s a -> s{_usgSubnetGroupName = a})  instance AWSRequest UpdateSubnetGroup where         type Rs UpdateSubnetGroup = UpdateSubnetGroupResponse@@ -141,15 +141,15 @@     -> UpdateSubnetGroupResponse updateSubnetGroupResponse pResponseStatus_ =   UpdateSubnetGroupResponse'-  {_usgrsSubnetGroup = Nothing, _usgrsResponseStatus = pResponseStatus_}+    {_usgrsSubnetGroup = Nothing, _usgrsResponseStatus = pResponseStatus_}   -- | The subnet group that has been modified. usgrsSubnetGroup :: Lens' UpdateSubnetGroupResponse (Maybe SubnetGroup)-usgrsSubnetGroup = lens _usgrsSubnetGroup (\ s a -> s{_usgrsSubnetGroup = a});+usgrsSubnetGroup = lens _usgrsSubnetGroup (\ s a -> s{_usgrsSubnetGroup = a})  -- | -- | The response status code. usgrsResponseStatus :: Lens' UpdateSubnetGroupResponse Int-usgrsResponseStatus = lens _usgrsResponseStatus (\ s a -> s{_usgrsResponseStatus = a});+usgrsResponseStatus = lens _usgrsResponseStatus (\ s a -> s{_usgrsResponseStatus = a})  instance NFData UpdateSubnetGroupResponse where

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.DAX.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

@@ -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

@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.DAX--- 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

@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.DAX.Internal--- 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

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.DAX--- 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