amazonka-redshift 1.5.0 → 1.6.0

raw patch · 75 files changed

+4370/−4216 lines, 75 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-redshift.cabal +5/−5
• gen/Network/AWS/Redshift.hs +15/−1
• gen/Network/AWS/Redshift/AuthorizeClusterSecurityGroupIngress.hs +15/−15
• gen/Network/AWS/Redshift/AuthorizeSnapshotAccess.hs +11/−11
• gen/Network/AWS/Redshift/CopyClusterSnapshot.hs +11/−11
• gen/Network/AWS/Redshift/CreateCluster.hs +63/−63
• gen/Network/AWS/Redshift/CreateClusterParameterGroup.hs +15/−15
• gen/Network/AWS/Redshift/CreateClusterSecurityGroup.hs +11/−11
• gen/Network/AWS/Redshift/CreateClusterSnapshot.hs +11/−11
• gen/Network/AWS/Redshift/CreateClusterSubnetGroup.hs +15/−15
• gen/Network/AWS/Redshift/CreateEventSubscription.hs +21/−21
• gen/Network/AWS/Redshift/CreateHSMClientCertificate.hs +11/−11
• gen/Network/AWS/Redshift/CreateHSMConfiguration.hs +19/−19
• gen/Network/AWS/Redshift/CreateSnapshotCopyGrant.hs +13/−11
• gen/Network/AWS/Redshift/CreateTags.hs +3/−3
• gen/Network/AWS/Redshift/DeleteCluster.hs +11/−11
• gen/Network/AWS/Redshift/DeleteClusterParameterGroup.hs +2/−2
• gen/Network/AWS/Redshift/DeleteClusterSecurityGroup.hs +3/−3
• gen/Network/AWS/Redshift/DeleteClusterSnapshot.hs +9/−9
• gen/Network/AWS/Redshift/DeleteClusterSubnetGroup.hs +3/−3
• gen/Network/AWS/Redshift/DeleteEventSubscription.hs +2/−2
• gen/Network/AWS/Redshift/DeleteHSMClientCertificate.hs +3/−3
• gen/Network/AWS/Redshift/DeleteHSMConfiguration.hs +3/−3
• gen/Network/AWS/Redshift/DeleteSnapshotCopyGrant.hs +3/−3
• gen/Network/AWS/Redshift/DeleteTags.hs +3/−3
• gen/Network/AWS/Redshift/DescribeClusterParameterGroups.hs +19/−19
• gen/Network/AWS/Redshift/DescribeClusterParameters.hs +17/−17
• gen/Network/AWS/Redshift/DescribeClusterSecurityGroups.hs +19/−19
• gen/Network/AWS/Redshift/DescribeClusterSnapshots.hs +39/−29
• gen/Network/AWS/Redshift/DescribeClusterSubnetGroups.hs +19/−19
• gen/Network/AWS/Redshift/DescribeClusterVersions.hs +17/−17
• gen/Network/AWS/Redshift/DescribeClusters.hs +19/−19
• gen/Network/AWS/Redshift/DescribeDefaultClusterParameters.hs +13/−13
• gen/Network/AWS/Redshift/DescribeEventCategories.hs +7/−7
• gen/Network/AWS/Redshift/DescribeEventSubscriptions.hs +19/−19
• gen/Network/AWS/Redshift/DescribeEvents.hs +23/−23
• gen/Network/AWS/Redshift/DescribeHSMClientCertificates.hs +19/−19
• gen/Network/AWS/Redshift/DescribeHSMConfigurations.hs +19/−19
• gen/Network/AWS/Redshift/DescribeLoggingStatus.hs +2/−2
• gen/Network/AWS/Redshift/DescribeOrderableClusterOptions.hs +17/−17
• gen/Network/AWS/Redshift/DescribeReservedNodeOfferings.hs +15/−15
• gen/Network/AWS/Redshift/DescribeReservedNodes.hs +15/−12
• gen/Network/AWS/Redshift/DescribeResize.hs +29/−29
• gen/Network/AWS/Redshift/DescribeSnapshotCopyGrants.hs +19/−19
• gen/Network/AWS/Redshift/DescribeTableRestoreStatus.hs +17/−17
• gen/Network/AWS/Redshift/DescribeTags.hs +21/−21
• gen/Network/AWS/Redshift/DisableLogging.hs +2/−2
• gen/Network/AWS/Redshift/DisableSnapshotCopy.hs +5/−5
• gen/Network/AWS/Redshift/EnableLogging.hs +8/−8
• gen/Network/AWS/Redshift/EnableSnapshotCopy.hs +13/−13
• gen/Network/AWS/Redshift/GetClusterCredentials.hs +25/−25
• gen/Network/AWS/Redshift/ModifyCluster.hs +43/−43
• gen/Network/AWS/Redshift/ModifyClusterIAMRoles.hs +11/−11
• gen/Network/AWS/Redshift/ModifyClusterParameterGroup.hs +4/−4
• gen/Network/AWS/Redshift/ModifyClusterSubnetGroup.hs +13/−13
• gen/Network/AWS/Redshift/ModifyEventSubscription.hs +19/−19
• gen/Network/AWS/Redshift/ModifySnapshotCopyRetentionPeriod.hs +9/−9
• gen/Network/AWS/Redshift/PurchaseReservedNodeOffering.hs +9/−9
• gen/Network/AWS/Redshift/RebootCluster.hs +5/−5
• gen/Network/AWS/Redshift/ResetClusterParameterGroup.hs +8/−8
• gen/Network/AWS/Redshift/RestoreFromClusterSnapshot.hs +51/−51
• gen/Network/AWS/Redshift/RestoreTableFromClusterSnapshot.hs +23/−23
• gen/Network/AWS/Redshift/RevokeClusterSecurityGroupIngress.hs +15/−15
• gen/Network/AWS/Redshift/RevokeSnapshotAccess.hs +11/−11
• gen/Network/AWS/Redshift/RotateEncryptionKey.hs +5/−5
• gen/Network/AWS/Redshift/Types.hs +29/−16
• gen/Network/AWS/Redshift/Types/Product.hs +3287/−3225
• gen/Network/AWS/Redshift/Types/Sum.hs +28/−1
• gen/Network/AWS/Redshift/Waiters.hs +76/−53
• src/Network/AWS/Redshift/Internal.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Gen/Redshift.hs +1/−1
• test/Test/AWS/Redshift.hs +1/−1
• test/Test/AWS/Redshift/Internal.hs +1/−1

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

@@ -1,5 +1,5 @@ name:                  amazonka-redshift-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Redshift 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@@ -117,7 +117,7 @@         , Network.AWS.Redshift.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-redshift-test@@ -137,8 +137,8 @@         , Test.AWS.Redshift.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-redshift         , base         , bytestring

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.Redshift--- 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@@ -286,6 +286,9 @@     -- * Waiters     -- $waiters +    -- ** ClusterRestored+    , clusterRestored+     -- ** ClusterDeleted     , clusterDeleted @@ -495,6 +498,9 @@     -- ** ParameterApplyType     , ParameterApplyType (..) +    -- ** ReservedNodeOfferingType+    , ReservedNodeOfferingType (..)+     -- ** SourceType     , SourceType (..) @@ -511,6 +517,7 @@     , AvailabilityZone     , availabilityZone     , azName+    , azSupportedPlatforms      -- ** Cluster     , Cluster@@ -779,6 +786,7 @@     -- ** ReservedNode     , ReservedNode     , reservedNode+    , rnReservedNodeOfferingType     , rnState     , rnCurrencyCode     , rnStartTime@@ -795,6 +803,7 @@     -- ** ReservedNodeOffering     , ReservedNodeOffering     , reservedNodeOffering+    , rnoReservedNodeOfferingType     , rnoCurrencyCode     , rnoReservedNodeOfferingId     , rnoRecurringCharges@@ -860,6 +869,11 @@     , sSubnetStatus     , sSubnetIdentifier     , sSubnetAvailabilityZone++    -- ** SupportedPlatform+    , SupportedPlatform+    , supportedPlatform+    , spName      -- ** TableRestoreStatus     , TableRestoreStatus

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.AuthorizeClusterSecurityGroupIngress--- 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,28 +82,28 @@     -> AuthorizeClusterSecurityGroupIngress authorizeClusterSecurityGroupIngress pClusterSecurityGroupName_ =   AuthorizeClusterSecurityGroupIngress'-  { _acsgiEC2SecurityGroupOwnerId = Nothing-  , _acsgiEC2SecurityGroupName = Nothing-  , _acsgiCIdRIP = Nothing-  , _acsgiClusterSecurityGroupName = pClusterSecurityGroupName_-  }+    { _acsgiEC2SecurityGroupOwnerId = Nothing+    , _acsgiEC2SecurityGroupName = Nothing+    , _acsgiCIdRIP = Nothing+    , _acsgiClusterSecurityGroupName = pClusterSecurityGroupName_+    }   -- | The AWS account number of the owner of the security group specified by the /EC2SecurityGroupName/ parameter. The AWS Access Key ID is not an acceptable value.  Example: @111122223333@ acsgiEC2SecurityGroupOwnerId :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)-acsgiEC2SecurityGroupOwnerId = lens _acsgiEC2SecurityGroupOwnerId (\ s a -> s{_acsgiEC2SecurityGroupOwnerId = a});+acsgiEC2SecurityGroupOwnerId = lens _acsgiEC2SecurityGroupOwnerId (\ s a -> s{_acsgiEC2SecurityGroupOwnerId = a})  -- | The EC2 security group to be added the Amazon Redshift security group. acsgiEC2SecurityGroupName :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)-acsgiEC2SecurityGroupName = lens _acsgiEC2SecurityGroupName (\ s a -> s{_acsgiEC2SecurityGroupName = a});+acsgiEC2SecurityGroupName = lens _acsgiEC2SecurityGroupName (\ s a -> s{_acsgiEC2SecurityGroupName = a})  -- | The IP range to be added the Amazon Redshift security group. acsgiCIdRIP :: Lens' AuthorizeClusterSecurityGroupIngress (Maybe Text)-acsgiCIdRIP = lens _acsgiCIdRIP (\ s a -> s{_acsgiCIdRIP = a});+acsgiCIdRIP = lens _acsgiCIdRIP (\ s a -> s{_acsgiCIdRIP = a})  -- | The name of the security group to which the ingress rule is added. acsgiClusterSecurityGroupName :: Lens' AuthorizeClusterSecurityGroupIngress Text-acsgiClusterSecurityGroupName = lens _acsgiClusterSecurityGroupName (\ s a -> s{_acsgiClusterSecurityGroupName = a});+acsgiClusterSecurityGroupName = lens _acsgiClusterSecurityGroupName (\ s a -> s{_acsgiClusterSecurityGroupName = a})  instance AWSRequest            AuthorizeClusterSecurityGroupIngress@@ -169,18 +169,18 @@     -> AuthorizeClusterSecurityGroupIngressResponse authorizeClusterSecurityGroupIngressResponse pResponseStatus_ =   AuthorizeClusterSecurityGroupIngressResponse'-  { _acsgirsClusterSecurityGroup = Nothing-  , _acsgirsResponseStatus = pResponseStatus_-  }+    { _acsgirsClusterSecurityGroup = Nothing+    , _acsgirsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. acsgirsClusterSecurityGroup :: Lens' AuthorizeClusterSecurityGroupIngressResponse (Maybe ClusterSecurityGroup)-acsgirsClusterSecurityGroup = lens _acsgirsClusterSecurityGroup (\ s a -> s{_acsgirsClusterSecurityGroup = a});+acsgirsClusterSecurityGroup = lens _acsgirsClusterSecurityGroup (\ s a -> s{_acsgirsClusterSecurityGroup = a})  -- | -- | The response status code. acsgirsResponseStatus :: Lens' AuthorizeClusterSecurityGroupIngressResponse Int-acsgirsResponseStatus = lens _acsgirsResponseStatus (\ s a -> s{_acsgirsResponseStatus = a});+acsgirsResponseStatus = lens _acsgirsResponseStatus (\ s a -> s{_acsgirsResponseStatus = a})  instance NFData            AuthorizeClusterSecurityGroupIngressResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.AuthorizeSnapshotAccess--- 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 @@     -> AuthorizeSnapshotAccess authorizeSnapshotAccess pSnapshotIdentifier_ pAccountWithRestoreAccess_ =   AuthorizeSnapshotAccess'-  { _asaSnapshotClusterIdentifier = Nothing-  , _asaSnapshotIdentifier = pSnapshotIdentifier_-  , _asaAccountWithRestoreAccess = pAccountWithRestoreAccess_-  }+    { _asaSnapshotClusterIdentifier = Nothing+    , _asaSnapshotIdentifier = pSnapshotIdentifier_+    , _asaAccountWithRestoreAccess = pAccountWithRestoreAccess_+    }   -- | The identifier of the cluster the snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name. asaSnapshotClusterIdentifier :: Lens' AuthorizeSnapshotAccess (Maybe Text)-asaSnapshotClusterIdentifier = lens _asaSnapshotClusterIdentifier (\ s a -> s{_asaSnapshotClusterIdentifier = a});+asaSnapshotClusterIdentifier = lens _asaSnapshotClusterIdentifier (\ s a -> s{_asaSnapshotClusterIdentifier = a})  -- | The identifier of the snapshot the account is authorized to restore. asaSnapshotIdentifier :: Lens' AuthorizeSnapshotAccess Text-asaSnapshotIdentifier = lens _asaSnapshotIdentifier (\ s a -> s{_asaSnapshotIdentifier = a});+asaSnapshotIdentifier = lens _asaSnapshotIdentifier (\ s a -> s{_asaSnapshotIdentifier = a})  -- | The identifier of the AWS customer account authorized to restore the specified snapshot. To share a snapshot with AWS support, specify amazon-redshift-support. asaAccountWithRestoreAccess :: Lens' AuthorizeSnapshotAccess Text-asaAccountWithRestoreAccess = lens _asaAccountWithRestoreAccess (\ s a -> s{_asaAccountWithRestoreAccess = a});+asaAccountWithRestoreAccess = lens _asaAccountWithRestoreAccess (\ s a -> s{_asaAccountWithRestoreAccess = a})  instance AWSRequest AuthorizeSnapshotAccess where         type Rs AuthorizeSnapshotAccess =@@ -144,15 +144,15 @@     -> AuthorizeSnapshotAccessResponse authorizeSnapshotAccessResponse pResponseStatus_ =   AuthorizeSnapshotAccessResponse'-  {_asarsSnapshot = Nothing, _asarsResponseStatus = pResponseStatus_}+    {_asarsSnapshot = Nothing, _asarsResponseStatus = pResponseStatus_}   -- | Undocumented member. asarsSnapshot :: Lens' AuthorizeSnapshotAccessResponse (Maybe Snapshot)-asarsSnapshot = lens _asarsSnapshot (\ s a -> s{_asarsSnapshot = a});+asarsSnapshot = lens _asarsSnapshot (\ s a -> s{_asarsSnapshot = a})  -- | -- | The response status code. asarsResponseStatus :: Lens' AuthorizeSnapshotAccessResponse Int-asarsResponseStatus = lens _asarsResponseStatus (\ s a -> s{_asarsResponseStatus = a});+asarsResponseStatus = lens _asarsResponseStatus (\ s a -> s{_asarsResponseStatus = a})  instance NFData AuthorizeSnapshotAccessResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.CopyClusterSnapshot--- 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@@ -77,23 +77,23 @@     -> CopyClusterSnapshot copyClusterSnapshot pSourceSnapshotIdentifier_ pTargetSnapshotIdentifier_ =   CopyClusterSnapshot'-  { _ccsSourceSnapshotClusterIdentifier = Nothing-  , _ccsSourceSnapshotIdentifier = pSourceSnapshotIdentifier_-  , _ccsTargetSnapshotIdentifier = pTargetSnapshotIdentifier_-  }+    { _ccsSourceSnapshotClusterIdentifier = Nothing+    , _ccsSourceSnapshotIdentifier = pSourceSnapshotIdentifier_+    , _ccsTargetSnapshotIdentifier = pTargetSnapshotIdentifier_+    }   -- | The identifier of the cluster the source snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name. Constraints:     * Must be the identifier for a valid cluster. ccsSourceSnapshotClusterIdentifier :: Lens' CopyClusterSnapshot (Maybe Text)-ccsSourceSnapshotClusterIdentifier = lens _ccsSourceSnapshotClusterIdentifier (\ s a -> s{_ccsSourceSnapshotClusterIdentifier = a});+ccsSourceSnapshotClusterIdentifier = lens _ccsSourceSnapshotClusterIdentifier (\ s a -> s{_ccsSourceSnapshotClusterIdentifier = a})  -- | The identifier for the source snapshot. Constraints:     * Must be the identifier for a valid automated snapshot whose state is @available@ . ccsSourceSnapshotIdentifier :: Lens' CopyClusterSnapshot Text-ccsSourceSnapshotIdentifier = lens _ccsSourceSnapshotIdentifier (\ s a -> s{_ccsSourceSnapshotIdentifier = a});+ccsSourceSnapshotIdentifier = lens _ccsSourceSnapshotIdentifier (\ s a -> s{_ccsSourceSnapshotIdentifier = a})  -- | The identifier given to the new manual snapshot. Constraints:     * Cannot be null, empty, or blank.     * Must contain from 1 to 255 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens.     * Must be unique for the AWS account that is making the request. ccsTargetSnapshotIdentifier :: Lens' CopyClusterSnapshot Text-ccsTargetSnapshotIdentifier = lens _ccsTargetSnapshotIdentifier (\ s a -> s{_ccsTargetSnapshotIdentifier = a});+ccsTargetSnapshotIdentifier = lens _ccsTargetSnapshotIdentifier (\ s a -> s{_ccsTargetSnapshotIdentifier = a})  instance AWSRequest CopyClusterSnapshot where         type Rs CopyClusterSnapshot =@@ -146,15 +146,15 @@     -> CopyClusterSnapshotResponse copyClusterSnapshotResponse pResponseStatus_ =   CopyClusterSnapshotResponse'-  {_ccsrsSnapshot = Nothing, _ccsrsResponseStatus = pResponseStatus_}+    {_ccsrsSnapshot = Nothing, _ccsrsResponseStatus = pResponseStatus_}   -- | Undocumented member. ccsrsSnapshot :: Lens' CopyClusterSnapshotResponse (Maybe Snapshot)-ccsrsSnapshot = lens _ccsrsSnapshot (\ s a -> s{_ccsrsSnapshot = a});+ccsrsSnapshot = lens _ccsrsSnapshot (\ s a -> s{_ccsrsSnapshot = a})  -- | -- | The response status code. ccsrsResponseStatus :: Lens' CopyClusterSnapshotResponse Int-ccsrsResponseStatus = lens _ccsrsResponseStatus (\ s a -> s{_ccsrsResponseStatus = a});+ccsrsResponseStatus = lens _ccsrsResponseStatus (\ s a -> s{_ccsrsResponseStatus = a})  instance NFData CopyClusterSnapshotResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.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@@ -160,9 +160,9 @@ -- -- * 'ccClusterIdentifier' - A unique identifier for the cluster. You use this identifier to refer to the cluster for any subsequent cluster operations such as deleting or modifying. The identifier also appears in the Amazon Redshift console. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens.     * Alphabetic characters must be lowercase.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens.     * Must be unique for all clusters within an AWS account. Example: @myexamplecluster@ ----- * 'ccNodeType' - The node type to be provisioned for the cluster. For information about node types, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters> in the /Amazon Redshift Cluster Management Guide/ .  Valid Values: @ds1.xlarge@ | @ds1.8xlarge@ | @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@ .+-- * 'ccNodeType' - The node type to be provisioned for the cluster. For information about node types, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters> in the /Amazon Redshift Cluster Management Guide/ .  Valid Values: @ds2.xlarge@ | @ds2.8xlarge@ | @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@ | @dc2.large@ | @dc2.8xlarge@ ----- * 'ccMasterUsername' - The user name associated with the master user account for the cluster that is being created. Constraints:     * Must be 1 - 128 alphanumeric characters.     * First character must be a letter.     * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide.+-- * 'ccMasterUsername' - The user name associated with the master user account for the cluster that is being created. Constraints:     * Must be 1 - 128 alphanumeric characters. The user name can't be @PUBLIC@ .     * First character must be a letter.     * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide. -- -- * 'ccMasterUserPassword' - The password associated with the master user account for the cluster that is being created. Constraints:     * Must be between 8 and 64 characters in length.     * Must contain at least one uppercase letter.     * Must contain at least one lowercase letter.     * Must contain one number.     * Can be any printable ASCII character (ASCII code 33 to 126) except ' (single quote), " (double quote), \, /, @, or space. createCluster@@ -173,143 +173,143 @@     -> CreateCluster createCluster pClusterIdentifier_ pNodeType_ pMasterUsername_ pMasterUserPassword_ =   CreateCluster'-  { _ccEnhancedVPCRouting = Nothing-  , _ccAdditionalInfo = Nothing-  , _ccPubliclyAccessible = Nothing-  , _ccHSMConfigurationIdentifier = Nothing-  , _ccClusterSecurityGroups = Nothing-  , _ccAutomatedSnapshotRetentionPeriod = Nothing-  , _ccEncrypted = Nothing-  , _ccClusterSubnetGroupName = Nothing-  , _ccHSMClientCertificateIdentifier = Nothing-  , _ccNumberOfNodes = Nothing-  , _ccElasticIP = Nothing-  , _ccPreferredMaintenanceWindow = Nothing-  , _ccKMSKeyId = Nothing-  , _ccAvailabilityZone = Nothing-  , _ccVPCSecurityGroupIds = Nothing-  , _ccIAMRoles = Nothing-  , _ccClusterType = Nothing-  , _ccClusterVersion = Nothing-  , _ccAllowVersionUpgrade = Nothing-  , _ccClusterParameterGroupName = Nothing-  , _ccTags = Nothing-  , _ccPort = Nothing-  , _ccDBName = Nothing-  , _ccClusterIdentifier = pClusterIdentifier_-  , _ccNodeType = pNodeType_-  , _ccMasterUsername = pMasterUsername_-  , _ccMasterUserPassword = pMasterUserPassword_-  }+    { _ccEnhancedVPCRouting = Nothing+    , _ccAdditionalInfo = Nothing+    , _ccPubliclyAccessible = Nothing+    , _ccHSMConfigurationIdentifier = Nothing+    , _ccClusterSecurityGroups = Nothing+    , _ccAutomatedSnapshotRetentionPeriod = Nothing+    , _ccEncrypted = Nothing+    , _ccClusterSubnetGroupName = Nothing+    , _ccHSMClientCertificateIdentifier = Nothing+    , _ccNumberOfNodes = Nothing+    , _ccElasticIP = Nothing+    , _ccPreferredMaintenanceWindow = Nothing+    , _ccKMSKeyId = Nothing+    , _ccAvailabilityZone = Nothing+    , _ccVPCSecurityGroupIds = Nothing+    , _ccIAMRoles = Nothing+    , _ccClusterType = Nothing+    , _ccClusterVersion = Nothing+    , _ccAllowVersionUpgrade = Nothing+    , _ccClusterParameterGroupName = Nothing+    , _ccTags = Nothing+    , _ccPort = Nothing+    , _ccDBName = Nothing+    , _ccClusterIdentifier = pClusterIdentifier_+    , _ccNodeType = pNodeType_+    , _ccMasterUsername = pMasterUsername_+    , _ccMasterUserPassword = pMasterUserPassword_+    }   -- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false ccEnhancedVPCRouting :: Lens' CreateCluster (Maybe Bool)-ccEnhancedVPCRouting = lens _ccEnhancedVPCRouting (\ s a -> s{_ccEnhancedVPCRouting = a});+ccEnhancedVPCRouting = lens _ccEnhancedVPCRouting (\ s a -> s{_ccEnhancedVPCRouting = a})  -- | Reserved. ccAdditionalInfo :: Lens' CreateCluster (Maybe Text)-ccAdditionalInfo = lens _ccAdditionalInfo (\ s a -> s{_ccAdditionalInfo = a});+ccAdditionalInfo = lens _ccAdditionalInfo (\ s a -> s{_ccAdditionalInfo = a})  -- | If @true@ , the cluster can be accessed from a public network. ccPubliclyAccessible :: Lens' CreateCluster (Maybe Bool)-ccPubliclyAccessible = lens _ccPubliclyAccessible (\ s a -> s{_ccPubliclyAccessible = a});+ccPubliclyAccessible = lens _ccPubliclyAccessible (\ s a -> s{_ccPubliclyAccessible = a})  -- | Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM. ccHSMConfigurationIdentifier :: Lens' CreateCluster (Maybe Text)-ccHSMConfigurationIdentifier = lens _ccHSMConfigurationIdentifier (\ s a -> s{_ccHSMConfigurationIdentifier = a});+ccHSMConfigurationIdentifier = lens _ccHSMConfigurationIdentifier (\ s a -> s{_ccHSMConfigurationIdentifier = a})  -- | A list of security groups to be associated with this cluster. Default: The default cluster security group for Amazon Redshift. ccClusterSecurityGroups :: Lens' CreateCluster [Text]-ccClusterSecurityGroups = lens _ccClusterSecurityGroups (\ s a -> s{_ccClusterSecurityGroups = a}) . _Default . _Coerce;+ccClusterSecurityGroups = lens _ccClusterSecurityGroups (\ s a -> s{_ccClusterSecurityGroups = a}) . _Default . _Coerce  -- | The number of days that automated snapshots are retained. If the value is 0, automated snapshots are disabled. Even if automated snapshots are disabled, you can still create manual snapshots when you want with 'CreateClusterSnapshot' .  Default: @1@  Constraints: Must be a value from 0 to 35. ccAutomatedSnapshotRetentionPeriod :: Lens' CreateCluster (Maybe Int)-ccAutomatedSnapshotRetentionPeriod = lens _ccAutomatedSnapshotRetentionPeriod (\ s a -> s{_ccAutomatedSnapshotRetentionPeriod = a});+ccAutomatedSnapshotRetentionPeriod = lens _ccAutomatedSnapshotRetentionPeriod (\ s a -> s{_ccAutomatedSnapshotRetentionPeriod = a})  -- | If @true@ , the data in the cluster is encrypted at rest.  Default: false ccEncrypted :: Lens' CreateCluster (Maybe Bool)-ccEncrypted = lens _ccEncrypted (\ s a -> s{_ccEncrypted = a});+ccEncrypted = lens _ccEncrypted (\ s a -> s{_ccEncrypted = a})  -- | The name of a cluster subnet group to be associated with this cluster. If this parameter is not provided the resulting cluster will be deployed outside virtual private cloud (VPC). ccClusterSubnetGroupName :: Lens' CreateCluster (Maybe Text)-ccClusterSubnetGroupName = lens _ccClusterSubnetGroupName (\ s a -> s{_ccClusterSubnetGroupName = a});+ccClusterSubnetGroupName = lens _ccClusterSubnetGroupName (\ s a -> s{_ccClusterSubnetGroupName = a})  -- | Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM. ccHSMClientCertificateIdentifier :: Lens' CreateCluster (Maybe Text)-ccHSMClientCertificateIdentifier = lens _ccHSMClientCertificateIdentifier (\ s a -> s{_ccHSMClientCertificateIdentifier = a});+ccHSMClientCertificateIdentifier = lens _ccHSMClientCertificateIdentifier (\ s a -> s{_ccHSMClientCertificateIdentifier = a})  -- | The number of compute nodes in the cluster. This parameter is required when the __ClusterType__ parameter is specified as @multi-node@ .  For information about determining how many nodes you need, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters> in the /Amazon Redshift Cluster Management Guide/ .  If you don't specify this parameter, you get a single-node cluster. When requesting a multi-node cluster, you must specify the number of nodes that you want in the cluster. Default: @1@  Constraints: Value must be at least 1 and no more than 100. ccNumberOfNodes :: Lens' CreateCluster (Maybe Int)-ccNumberOfNodes = lens _ccNumberOfNodes (\ s a -> s{_ccNumberOfNodes = a});+ccNumberOfNodes = lens _ccNumberOfNodes (\ s a -> s{_ccNumberOfNodes = a})  -- | The Elastic IP (EIP) address for the cluster. Constraints: The cluster must be provisioned in EC2-VPC and publicly-accessible through an Internet gateway. For more information about provisioning clusters in EC2-VPC, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#cluster-platforms Supported Platforms to Launch Your Cluster> in the Amazon Redshift Cluster Management Guide. ccElasticIP :: Lens' CreateCluster (Maybe Text)-ccElasticIP = lens _ccElasticIP (\ s a -> s{_ccElasticIP = a});+ccElasticIP = lens _ccElasticIP (\ s a -> s{_ccElasticIP = a})  -- | The weekly time range (in UTC) during which automated cluster maintenance can occur. Format: @ddd:hh24:mi-ddd:hh24:mi@  Default: A 30-minute window selected at random from an 8-hour block of time per region, occurring on a random day of the week. For more information about the time blocks for each region, see <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-maintenance-windows Maintenance Windows> in Amazon Redshift Cluster Management Guide. Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun Constraints: Minimum 30-minute window. ccPreferredMaintenanceWindow :: Lens' CreateCluster (Maybe Text)-ccPreferredMaintenanceWindow = lens _ccPreferredMaintenanceWindow (\ s a -> s{_ccPreferredMaintenanceWindow = a});+ccPreferredMaintenanceWindow = lens _ccPreferredMaintenanceWindow (\ s a -> s{_ccPreferredMaintenanceWindow = a})  -- | The AWS Key Management Service (KMS) key ID of the encryption key that you want to use to encrypt data in the cluster. ccKMSKeyId :: Lens' CreateCluster (Maybe Text)-ccKMSKeyId = lens _ccKMSKeyId (\ s a -> s{_ccKMSKeyId = a});+ccKMSKeyId = lens _ccKMSKeyId (\ s a -> s{_ccKMSKeyId = a})  -- | The EC2 Availability Zone (AZ) in which you want Amazon Redshift to provision the cluster. For example, if you have several EC2 instances running in a specific Availability Zone, then you might want the cluster to be provisioned in the same zone in order to decrease network latency. Default: A random, system-chosen Availability Zone in the region that is specified by the endpoint. Example: @us-east-1d@  Constraint: The specified Availability Zone must be in the same region as the current endpoint. ccAvailabilityZone :: Lens' CreateCluster (Maybe Text)-ccAvailabilityZone = lens _ccAvailabilityZone (\ s a -> s{_ccAvailabilityZone = a});+ccAvailabilityZone = lens _ccAvailabilityZone (\ s a -> s{_ccAvailabilityZone = a})  -- | A list of Virtual Private Cloud (VPC) security groups to be associated with the cluster. Default: The default VPC security group is associated with the cluster. ccVPCSecurityGroupIds :: Lens' CreateCluster [Text]-ccVPCSecurityGroupIds = lens _ccVPCSecurityGroupIds (\ s a -> s{_ccVPCSecurityGroupIds = a}) . _Default . _Coerce;+ccVPCSecurityGroupIds = lens _ccVPCSecurityGroupIds (\ s a -> s{_ccVPCSecurityGroupIds = a}) . _Default . _Coerce  -- | A list of AWS Identity and Access Management (IAM) roles that can be used by the cluster to access other AWS services. You must supply the IAM roles in their Amazon Resource Name (ARN) format. You can supply up to 10 IAM roles in a single request. A cluster can have up to 10 IAM roles associated with it at any time. ccIAMRoles :: Lens' CreateCluster [Text]-ccIAMRoles = lens _ccIAMRoles (\ s a -> s{_ccIAMRoles = a}) . _Default . _Coerce;+ccIAMRoles = lens _ccIAMRoles (\ s a -> s{_ccIAMRoles = a}) . _Default . _Coerce  -- | The type of the cluster. When cluster type is specified as     * @single-node@ , the __NumberOfNodes__ parameter is not required.     * @multi-node@ , the __NumberOfNodes__ parameter is required. Valid Values: @multi-node@ | @single-node@  Default: @multi-node@ ccClusterType :: Lens' CreateCluster (Maybe Text)-ccClusterType = lens _ccClusterType (\ s a -> s{_ccClusterType = a});+ccClusterType = lens _ccClusterType (\ s a -> s{_ccClusterType = a})  -- | The version of the Amazon Redshift engine software that you want to deploy on the cluster. The version selected runs on all the nodes in the cluster. Constraints: Only version 1.0 is currently available. Example: @1.0@ ccClusterVersion :: Lens' CreateCluster (Maybe Text)-ccClusterVersion = lens _ccClusterVersion (\ s a -> s{_ccClusterVersion = a});+ccClusterVersion = lens _ccClusterVersion (\ s a -> s{_ccClusterVersion = a})  -- | If @true@ , major version upgrades can be applied during the maintenance window to the Amazon Redshift engine that is running on the cluster. When a new major version of the Amazon Redshift engine is released, you can request that the service automatically apply upgrades during the maintenance window to the Amazon Redshift engine that is running on your cluster. Default: @true@ ccAllowVersionUpgrade :: Lens' CreateCluster (Maybe Bool)-ccAllowVersionUpgrade = lens _ccAllowVersionUpgrade (\ s a -> s{_ccAllowVersionUpgrade = a});+ccAllowVersionUpgrade = lens _ccAllowVersionUpgrade (\ s a -> s{_ccAllowVersionUpgrade = a})  -- | The name of the parameter group to be associated with this cluster. Default: The default Amazon Redshift cluster parameter group. For information about the default parameter group, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Working with Amazon Redshift Parameter Groups>  Constraints:     * Must be 1 to 255 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. ccClusterParameterGroupName :: Lens' CreateCluster (Maybe Text)-ccClusterParameterGroupName = lens _ccClusterParameterGroupName (\ s a -> s{_ccClusterParameterGroupName = a});+ccClusterParameterGroupName = lens _ccClusterParameterGroupName (\ s a -> s{_ccClusterParameterGroupName = a})  -- | A list of tag instances. 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 port number on which the cluster accepts incoming connections. The cluster is accessible only via the JDBC and ODBC connection strings. Part of the connection string requires the port on which the cluster will listen for incoming connections. Default: @5439@  Valid Values: @1150-65535@ ccPort :: Lens' CreateCluster (Maybe Int)-ccPort = lens _ccPort (\ s a -> s{_ccPort = a});+ccPort = lens _ccPort (\ s a -> s{_ccPort = a})  -- | The name of the first database to be created when the cluster is created. To create additional databases after the cluster is created, connect to the cluster with a SQL client and use SQL commands to create a database. For more information, go to <http://docs.aws.amazon.com/redshift/latest/dg/t_creating_database.html Create a Database> in the Amazon Redshift Database Developer Guide.  Default: @dev@  Constraints:     * Must contain 1 to 64 alphanumeric characters.     * Must contain only lowercase letters.     * Cannot be a word that is reserved by the service. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide. ccDBName :: Lens' CreateCluster (Maybe Text)-ccDBName = lens _ccDBName (\ s a -> s{_ccDBName = a});+ccDBName = lens _ccDBName (\ s a -> s{_ccDBName = a})  -- | A unique identifier for the cluster. You use this identifier to refer to the cluster for any subsequent cluster operations such as deleting or modifying. The identifier also appears in the Amazon Redshift console. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens.     * Alphabetic characters must be lowercase.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens.     * Must be unique for all clusters within an AWS account. Example: @myexamplecluster@ ccClusterIdentifier :: Lens' CreateCluster Text-ccClusterIdentifier = lens _ccClusterIdentifier (\ s a -> s{_ccClusterIdentifier = a});+ccClusterIdentifier = lens _ccClusterIdentifier (\ s a -> s{_ccClusterIdentifier = a}) --- | The node type to be provisioned for the cluster. For information about node types, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters> in the /Amazon Redshift Cluster Management Guide/ .  Valid Values: @ds1.xlarge@ | @ds1.8xlarge@ | @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@ .+-- | The node type to be provisioned for the cluster. For information about node types, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#how-many-nodes Working with Clusters> in the /Amazon Redshift Cluster Management Guide/ .  Valid Values: @ds2.xlarge@ | @ds2.8xlarge@ | @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@ | @dc2.large@ | @dc2.8xlarge@ ccNodeType :: Lens' CreateCluster Text-ccNodeType = lens _ccNodeType (\ s a -> s{_ccNodeType = a});+ccNodeType = lens _ccNodeType (\ s a -> s{_ccNodeType = a}) --- | The user name associated with the master user account for the cluster that is being created. Constraints:     * Must be 1 - 128 alphanumeric characters.     * First character must be a letter.     * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide.+-- | The user name associated with the master user account for the cluster that is being created. Constraints:     * Must be 1 - 128 alphanumeric characters. The user name can't be @PUBLIC@ .     * First character must be a letter.     * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide. ccMasterUsername :: Lens' CreateCluster Text-ccMasterUsername = lens _ccMasterUsername (\ s a -> s{_ccMasterUsername = a});+ccMasterUsername = lens _ccMasterUsername (\ s a -> s{_ccMasterUsername = a})  -- | The password associated with the master user account for the cluster that is being created. Constraints:     * Must be between 8 and 64 characters in length.     * Must contain at least one uppercase letter.     * Must contain at least one lowercase letter.     * Must contain one number.     * Can be any printable ASCII character (ASCII code 33 to 126) except ' (single quote), " (double quote), \, /, @, or space. ccMasterUserPassword :: Lens' CreateCluster Text-ccMasterUserPassword = lens _ccMasterUserPassword (\ s a -> s{_ccMasterUserPassword = a});+ccMasterUserPassword = lens _ccMasterUserPassword (\ s a -> s{_ccMasterUserPassword = a})  instance AWSRequest CreateCluster where         type Rs CreateCluster = CreateClusterResponse@@ -394,15 +394,15 @@     -> CreateClusterResponse createClusterResponse pResponseStatus_ =   CreateClusterResponse'-  {_ccrsCluster = Nothing, _ccrsResponseStatus = pResponseStatus_}+    {_ccrsCluster = Nothing, _ccrsResponseStatus = pResponseStatus_}   -- | Undocumented member. 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.Redshift.CreateClusterParameterGroup--- 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,28 +82,28 @@     -> CreateClusterParameterGroup createClusterParameterGroup pParameterGroupName_ pParameterGroupFamily_ pDescription_ =   CreateClusterParameterGroup'-  { _ccpgTags = Nothing-  , _ccpgParameterGroupName = pParameterGroupName_-  , _ccpgParameterGroupFamily = pParameterGroupFamily_-  , _ccpgDescription = pDescription_-  }+    { _ccpgTags = Nothing+    , _ccpgParameterGroupName = pParameterGroupName_+    , _ccpgParameterGroupFamily = pParameterGroupFamily_+    , _ccpgDescription = pDescription_+    }   -- | A list of tag instances. ccpgTags :: Lens' CreateClusterParameterGroup [Tag]-ccpgTags = lens _ccpgTags (\ s a -> s{_ccpgTags = a}) . _Default . _Coerce;+ccpgTags = lens _ccpgTags (\ s a -> s{_ccpgTags = a}) . _Default . _Coerce  -- | The name of the cluster parameter group. Constraints:     * Must be 1 to 255 alphanumeric characters or hyphens     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens.     * Must be unique withing your AWS account. ccpgParameterGroupName :: Lens' CreateClusterParameterGroup Text-ccpgParameterGroupName = lens _ccpgParameterGroupName (\ s a -> s{_ccpgParameterGroupName = a});+ccpgParameterGroupName = lens _ccpgParameterGroupName (\ s a -> s{_ccpgParameterGroupName = a})  -- | The Amazon Redshift engine version to which the cluster parameter group applies. The cluster engine version determines the set of parameters. To get a list of valid parameter group family names, you can call 'DescribeClusterParameterGroups' . By default, Amazon Redshift returns a list of all the parameter groups that are owned by your AWS account, including the default parameter groups for each Amazon Redshift engine version. The parameter group family names associated with the default parameter groups provide you the valid values. For example, a valid family name is "redshift-1.0". ccpgParameterGroupFamily :: Lens' CreateClusterParameterGroup Text-ccpgParameterGroupFamily = lens _ccpgParameterGroupFamily (\ s a -> s{_ccpgParameterGroupFamily = a});+ccpgParameterGroupFamily = lens _ccpgParameterGroupFamily (\ s a -> s{_ccpgParameterGroupFamily = a})  -- | A description of the parameter group. ccpgDescription :: Lens' CreateClusterParameterGroup Text-ccpgDescription = lens _ccpgDescription (\ s a -> s{_ccpgDescription = a});+ccpgDescription = lens _ccpgDescription (\ s a -> s{_ccpgDescription = a})  instance AWSRequest CreateClusterParameterGroup where         type Rs CreateClusterParameterGroup =@@ -157,18 +157,18 @@     -> CreateClusterParameterGroupResponse createClusterParameterGroupResponse pResponseStatus_ =   CreateClusterParameterGroupResponse'-  { _ccpgrsClusterParameterGroup = Nothing-  , _ccpgrsResponseStatus = pResponseStatus_-  }+    { _ccpgrsClusterParameterGroup = Nothing+    , _ccpgrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. ccpgrsClusterParameterGroup :: Lens' CreateClusterParameterGroupResponse (Maybe ClusterParameterGroup)-ccpgrsClusterParameterGroup = lens _ccpgrsClusterParameterGroup (\ s a -> s{_ccpgrsClusterParameterGroup = a});+ccpgrsClusterParameterGroup = lens _ccpgrsClusterParameterGroup (\ s a -> s{_ccpgrsClusterParameterGroup = a})  -- | -- | The response status code. ccpgrsResponseStatus :: Lens' CreateClusterParameterGroupResponse Int-ccpgrsResponseStatus = lens _ccpgrsResponseStatus (\ s a -> s{_ccpgrsResponseStatus = a});+ccpgrsResponseStatus = lens _ccpgrsResponseStatus (\ s a -> s{_ccpgrsResponseStatus = a})  instance NFData CreateClusterParameterGroupResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.CreateClusterSecurityGroup--- 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 @@     -> CreateClusterSecurityGroup createClusterSecurityGroup pClusterSecurityGroupName_ pDescription_ =   CreateClusterSecurityGroup'-  { _creTags = Nothing-  , _creClusterSecurityGroupName = pClusterSecurityGroupName_-  , _creDescription = pDescription_-  }+    { _creTags = Nothing+    , _creClusterSecurityGroupName = pClusterSecurityGroupName_+    , _creDescription = pDescription_+    }   -- | A list of tag instances. creTags :: Lens' CreateClusterSecurityGroup [Tag]-creTags = lens _creTags (\ s a -> s{_creTags = a}) . _Default . _Coerce;+creTags = lens _creTags (\ s a -> s{_creTags = a}) . _Default . _Coerce  -- | The name for the security group. Amazon Redshift stores the value as a lowercase string. Constraints:     * Must contain no more than 255 alphanumeric characters or hyphens.     * Must not be "Default".     * Must be unique for all security groups that are created by your AWS account. Example: @examplesecuritygroup@ creClusterSecurityGroupName :: Lens' CreateClusterSecurityGroup Text-creClusterSecurityGroupName = lens _creClusterSecurityGroupName (\ s a -> s{_creClusterSecurityGroupName = a});+creClusterSecurityGroupName = lens _creClusterSecurityGroupName (\ s a -> s{_creClusterSecurityGroupName = a})  -- | A description for the security group. creDescription :: Lens' CreateClusterSecurityGroup Text-creDescription = lens _creDescription (\ s a -> s{_creDescription = a});+creDescription = lens _creDescription (\ s a -> s{_creDescription = a})  instance AWSRequest CreateClusterSecurityGroup where         type Rs CreateClusterSecurityGroup =@@ -145,16 +145,16 @@     -> CreateClusterSecurityGroupResponse createClusterSecurityGroupResponse pResponseStatus_ =   CreateClusterSecurityGroupResponse'-  {_crsClusterSecurityGroup = Nothing, _crsResponseStatus = pResponseStatus_}+    {_crsClusterSecurityGroup = Nothing, _crsResponseStatus = pResponseStatus_}   -- | Undocumented member. crsClusterSecurityGroup :: Lens' CreateClusterSecurityGroupResponse (Maybe ClusterSecurityGroup)-crsClusterSecurityGroup = lens _crsClusterSecurityGroup (\ s a -> s{_crsClusterSecurityGroup = a});+crsClusterSecurityGroup = lens _crsClusterSecurityGroup (\ s a -> s{_crsClusterSecurityGroup = a})  -- | -- | The response status code. crsResponseStatus :: Lens' CreateClusterSecurityGroupResponse Int-crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a})  instance NFData CreateClusterSecurityGroupResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.CreateClusterSnapshot--- 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 @@     -> CreateClusterSnapshot createClusterSnapshot pSnapshotIdentifier_ pClusterIdentifier_ =   CreateClusterSnapshot'-  { _ccsTags = Nothing-  , _ccsSnapshotIdentifier = pSnapshotIdentifier_-  , _ccsClusterIdentifier = pClusterIdentifier_-  }+    { _ccsTags = Nothing+    , _ccsSnapshotIdentifier = pSnapshotIdentifier_+    , _ccsClusterIdentifier = pClusterIdentifier_+    }   -- | A list of tag instances. ccsTags :: Lens' CreateClusterSnapshot [Tag]-ccsTags = lens _ccsTags (\ s a -> s{_ccsTags = a}) . _Default . _Coerce;+ccsTags = lens _ccsTags (\ s a -> s{_ccsTags = a}) . _Default . _Coerce  -- | A unique identifier for the snapshot that you are requesting. This identifier must be unique for all snapshots within the AWS account. Constraints:     * Cannot be null, empty, or blank     * Must contain from 1 to 255 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-snapshot-id@ ccsSnapshotIdentifier :: Lens' CreateClusterSnapshot Text-ccsSnapshotIdentifier = lens _ccsSnapshotIdentifier (\ s a -> s{_ccsSnapshotIdentifier = a});+ccsSnapshotIdentifier = lens _ccsSnapshotIdentifier (\ s a -> s{_ccsSnapshotIdentifier = a})  -- | The cluster identifier for which you want a snapshot. ccsClusterIdentifier :: Lens' CreateClusterSnapshot Text-ccsClusterIdentifier = lens _ccsClusterIdentifier (\ s a -> s{_ccsClusterIdentifier = a});+ccsClusterIdentifier = lens _ccsClusterIdentifier (\ s a -> s{_ccsClusterIdentifier = a})  instance AWSRequest CreateClusterSnapshot where         type Rs CreateClusterSnapshot =@@ -141,15 +141,15 @@     -> CreateClusterSnapshotResponse createClusterSnapshotResponse pResponseStatus_ =   CreateClusterSnapshotResponse'-  {_crersSnapshot = Nothing, _crersResponseStatus = pResponseStatus_}+    {_crersSnapshot = Nothing, _crersResponseStatus = pResponseStatus_}   -- | Undocumented member. crersSnapshot :: Lens' CreateClusterSnapshotResponse (Maybe Snapshot)-crersSnapshot = lens _crersSnapshot (\ s a -> s{_crersSnapshot = a});+crersSnapshot = lens _crersSnapshot (\ s a -> s{_crersSnapshot = a})  -- | -- | The response status code. crersResponseStatus :: Lens' CreateClusterSnapshotResponse Int-crersResponseStatus = lens _crersResponseStatus (\ s a -> s{_crersResponseStatus = a});+crersResponseStatus = lens _crersResponseStatus (\ s a -> s{_crersResponseStatus = a})  instance NFData CreateClusterSnapshotResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.CreateClusterSubnetGroup--- 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@@ -79,28 +79,28 @@     -> CreateClusterSubnetGroup createClusterSubnetGroup pClusterSubnetGroupName_ pDescription_ =   CreateClusterSubnetGroup'-  { _ccsgTags = Nothing-  , _ccsgClusterSubnetGroupName = pClusterSubnetGroupName_-  , _ccsgDescription = pDescription_-  , _ccsgSubnetIds = mempty-  }+    { _ccsgTags = Nothing+    , _ccsgClusterSubnetGroupName = pClusterSubnetGroupName_+    , _ccsgDescription = pDescription_+    , _ccsgSubnetIds = mempty+    }   -- | A list of tag instances. ccsgTags :: Lens' CreateClusterSubnetGroup [Tag]-ccsgTags = lens _ccsgTags (\ s a -> s{_ccsgTags = a}) . _Default . _Coerce;+ccsgTags = lens _ccsgTags (\ s a -> s{_ccsgTags = a}) . _Default . _Coerce  -- | The name for the subnet group. Amazon Redshift stores the value as a lowercase string. Constraints:     * Must contain no more than 255 alphanumeric characters or hyphens.     * Must not be "Default".     * Must be unique for all subnet groups that are created by your AWS account. Example: @examplesubnetgroup@ ccsgClusterSubnetGroupName :: Lens' CreateClusterSubnetGroup Text-ccsgClusterSubnetGroupName = lens _ccsgClusterSubnetGroupName (\ s a -> s{_ccsgClusterSubnetGroupName = a});+ccsgClusterSubnetGroupName = lens _ccsgClusterSubnetGroupName (\ s a -> s{_ccsgClusterSubnetGroupName = a})  -- | A description for the subnet group. ccsgDescription :: Lens' CreateClusterSubnetGroup Text-ccsgDescription = lens _ccsgDescription (\ s a -> s{_ccsgDescription = a});+ccsgDescription = lens _ccsgDescription (\ s a -> s{_ccsgDescription = a})  -- | An array of VPC subnet IDs. A maximum of 20 subnets can be modified in a single request. ccsgSubnetIds :: Lens' CreateClusterSubnetGroup [Text]-ccsgSubnetIds = lens _ccsgSubnetIds (\ s a -> s{_ccsgSubnetIds = a}) . _Coerce;+ccsgSubnetIds = lens _ccsgSubnetIds (\ s a -> s{_ccsgSubnetIds = a}) . _Coerce  instance AWSRequest CreateClusterSubnetGroup where         type Rs CreateClusterSubnetGroup =@@ -154,18 +154,18 @@     -> CreateClusterSubnetGroupResponse createClusterSubnetGroupResponse pResponseStatus_ =   CreateClusterSubnetGroupResponse'-  { _ccsgrsClusterSubnetGroup = Nothing-  , _ccsgrsResponseStatus = pResponseStatus_-  }+    { _ccsgrsClusterSubnetGroup = Nothing+    , _ccsgrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. ccsgrsClusterSubnetGroup :: Lens' CreateClusterSubnetGroupResponse (Maybe ClusterSubnetGroup)-ccsgrsClusterSubnetGroup = lens _ccsgrsClusterSubnetGroup (\ s a -> s{_ccsgrsClusterSubnetGroup = a});+ccsgrsClusterSubnetGroup = lens _ccsgrsClusterSubnetGroup (\ s a -> s{_ccsgrsClusterSubnetGroup = a})  -- | -- | The response status code. ccsgrsResponseStatus :: Lens' CreateClusterSubnetGroupResponse Int-ccsgrsResponseStatus = lens _ccsgrsResponseStatus (\ s a -> s{_ccsgrsResponseStatus = a});+ccsgrsResponseStatus = lens _ccsgrsResponseStatus (\ s a -> s{_ccsgrsResponseStatus = a})  instance NFData CreateClusterSubnetGroupResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.CreateEventSubscription--- 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@@ -97,48 +97,48 @@     -> CreateEventSubscription createEventSubscription pSubscriptionName_ pSNSTopicARN_ =   CreateEventSubscription'-  { _cesEnabled = Nothing-  , _cesSourceType = Nothing-  , _cesSeverity = Nothing-  , _cesEventCategories = Nothing-  , _cesSourceIds = Nothing-  , _cesTags = Nothing-  , _cesSubscriptionName = pSubscriptionName_-  , _cesSNSTopicARN = pSNSTopicARN_-  }+    { _cesEnabled = Nothing+    , _cesSourceType = Nothing+    , _cesSeverity = Nothing+    , _cesEventCategories = Nothing+    , _cesSourceIds = Nothing+    , _cesTags = Nothing+    , _cesSubscriptionName = pSubscriptionName_+    , _cesSNSTopicARN = pSNSTopicARN_+    }   -- | A Boolean value; set to @true@ to activate the subscription, set to @false@ to create the subscription but not active it. cesEnabled :: Lens' CreateEventSubscription (Maybe Bool)-cesEnabled = lens _cesEnabled (\ s a -> s{_cesEnabled = a});+cesEnabled = lens _cesEnabled (\ s a -> s{_cesEnabled = a})  -- | The type of source that will be generating the events. For example, if you want to be notified of events generated by a cluster, you would set this parameter to cluster. If this value is not specified, events are returned for all Amazon Redshift objects in your AWS account. You must specify a source type in order to specify source IDs. Valid values: cluster, cluster-parameter-group, cluster-security-group, and cluster-snapshot. cesSourceType :: Lens' CreateEventSubscription (Maybe Text)-cesSourceType = lens _cesSourceType (\ s a -> s{_cesSourceType = a});+cesSourceType = lens _cesSourceType (\ s a -> s{_cesSourceType = a})  -- | Specifies the Amazon Redshift event severity to be published by the event notification subscription. Values: ERROR, INFO cesSeverity :: Lens' CreateEventSubscription (Maybe Text)-cesSeverity = lens _cesSeverity (\ s a -> s{_cesSeverity = a});+cesSeverity = lens _cesSeverity (\ s a -> s{_cesSeverity = a})  -- | Specifies the Amazon Redshift event categories to be published by the event notification subscription. Values: Configuration, Management, Monitoring, Security cesEventCategories :: Lens' CreateEventSubscription [Text]-cesEventCategories = lens _cesEventCategories (\ s a -> s{_cesEventCategories = a}) . _Default . _Coerce;+cesEventCategories = lens _cesEventCategories (\ s a -> s{_cesEventCategories = a}) . _Default . _Coerce  -- | A list of one or more identifiers of Amazon Redshift source objects. All of the objects must be of the same type as was specified in the source type parameter. The event subscription will return only events generated by the specified objects. If not specified, then events are returned for all objects within the source type specified. Example: my-cluster-1, my-cluster-2 Example: my-snapshot-20131010 cesSourceIds :: Lens' CreateEventSubscription [Text]-cesSourceIds = lens _cesSourceIds (\ s a -> s{_cesSourceIds = a}) . _Default . _Coerce;+cesSourceIds = lens _cesSourceIds (\ s a -> s{_cesSourceIds = a}) . _Default . _Coerce  -- | A list of tag instances. cesTags :: Lens' CreateEventSubscription [Tag]-cesTags = lens _cesTags (\ s a -> s{_cesTags = a}) . _Default . _Coerce;+cesTags = lens _cesTags (\ s a -> s{_cesTags = a}) . _Default . _Coerce  -- | The name of the event subscription to be created. Constraints:     * Cannot be null, empty, or blank.     * Must contain from 1 to 255 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. cesSubscriptionName :: Lens' CreateEventSubscription Text-cesSubscriptionName = lens _cesSubscriptionName (\ s a -> s{_cesSubscriptionName = a});+cesSubscriptionName = lens _cesSubscriptionName (\ s a -> s{_cesSubscriptionName = a})  -- | The Amazon Resource Name (ARN) of the Amazon SNS topic used to transmit the event notifications. The ARN is created by Amazon SNS when you create a topic and subscribe to it. cesSNSTopicARN :: Lens' CreateEventSubscription Text-cesSNSTopicARN = lens _cesSNSTopicARN (\ s a -> s{_cesSNSTopicARN = a});+cesSNSTopicARN = lens _cesSNSTopicARN (\ s a -> s{_cesSNSTopicARN = a})  instance AWSRequest CreateEventSubscription where         type Rs CreateEventSubscription =@@ -198,15 +198,15 @@     -> CreateEventSubscriptionResponse createEventSubscriptionResponse pResponseStatus_ =   CreateEventSubscriptionResponse'-  {_cesrsEventSubscription = Nothing, _cesrsResponseStatus = pResponseStatus_}+    {_cesrsEventSubscription = Nothing, _cesrsResponseStatus = pResponseStatus_}   -- | Undocumented member. cesrsEventSubscription :: Lens' CreateEventSubscriptionResponse (Maybe EventSubscription)-cesrsEventSubscription = lens _cesrsEventSubscription (\ s a -> s{_cesrsEventSubscription = a});+cesrsEventSubscription = lens _cesrsEventSubscription (\ s a -> s{_cesrsEventSubscription = a})  -- | -- | The response status code. cesrsResponseStatus :: Lens' CreateEventSubscriptionResponse Int-cesrsResponseStatus = lens _cesrsResponseStatus (\ s a -> s{_cesrsResponseStatus = a});+cesrsResponseStatus = lens _cesrsResponseStatus (\ s a -> s{_cesrsResponseStatus = a})  instance NFData CreateEventSubscriptionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.CreateHSMClientCertificate--- 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@@ -70,18 +70,18 @@     -> CreateHSMClientCertificate createHSMClientCertificate pHSMClientCertificateIdentifier_ =   CreateHSMClientCertificate'-  { _chccTags = Nothing-  , _chccHSMClientCertificateIdentifier = pHSMClientCertificateIdentifier_-  }+    { _chccTags = Nothing+    , _chccHSMClientCertificateIdentifier = pHSMClientCertificateIdentifier_+    }   -- | A list of tag instances. chccTags :: Lens' CreateHSMClientCertificate [Tag]-chccTags = lens _chccTags (\ s a -> s{_chccTags = a}) . _Default . _Coerce;+chccTags = lens _chccTags (\ s a -> s{_chccTags = a}) . _Default . _Coerce  -- | The identifier to be assigned to the new HSM client certificate that the cluster will use to connect to the HSM to use the database encryption keys. chccHSMClientCertificateIdentifier :: Lens' CreateHSMClientCertificate Text-chccHSMClientCertificateIdentifier = lens _chccHSMClientCertificateIdentifier (\ s a -> s{_chccHSMClientCertificateIdentifier = a});+chccHSMClientCertificateIdentifier = lens _chccHSMClientCertificateIdentifier (\ s a -> s{_chccHSMClientCertificateIdentifier = a})  instance AWSRequest CreateHSMClientCertificate where         type Rs CreateHSMClientCertificate =@@ -134,18 +134,18 @@     -> CreateHSMClientCertificateResponse createHSMClientCertificateResponse pResponseStatus_ =   CreateHSMClientCertificateResponse'-  { _chccrsHSMClientCertificate = Nothing-  , _chccrsResponseStatus = pResponseStatus_-  }+    { _chccrsHSMClientCertificate = Nothing+    , _chccrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. chccrsHSMClientCertificate :: Lens' CreateHSMClientCertificateResponse (Maybe HSMClientCertificate)-chccrsHSMClientCertificate = lens _chccrsHSMClientCertificate (\ s a -> s{_chccrsHSMClientCertificate = a});+chccrsHSMClientCertificate = lens _chccrsHSMClientCertificate (\ s a -> s{_chccrsHSMClientCertificate = a})  -- | -- | The response status code. chccrsResponseStatus :: Lens' CreateHSMClientCertificateResponse Int-chccrsResponseStatus = lens _chccrsResponseStatus (\ s a -> s{_chccrsResponseStatus = a});+chccrsResponseStatus = lens _chccrsResponseStatus (\ s a -> s{_chccrsResponseStatus = a})  instance NFData CreateHSMClientCertificateResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.CreateHSMConfiguration--- 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,43 +95,43 @@     -> CreateHSMConfiguration createHSMConfiguration pHSMConfigurationIdentifier_ pDescription_ pHSMIPAddress_ pHSMPartitionName_ pHSMPartitionPassword_ pHSMServerPublicCertificate_ =   CreateHSMConfiguration'-  { _chcTags = Nothing-  , _chcHSMConfigurationIdentifier = pHSMConfigurationIdentifier_-  , _chcDescription = pDescription_-  , _chcHSMIPAddress = pHSMIPAddress_-  , _chcHSMPartitionName = pHSMPartitionName_-  , _chcHSMPartitionPassword = pHSMPartitionPassword_-  , _chcHSMServerPublicCertificate = pHSMServerPublicCertificate_-  }+    { _chcTags = Nothing+    , _chcHSMConfigurationIdentifier = pHSMConfigurationIdentifier_+    , _chcDescription = pDescription_+    , _chcHSMIPAddress = pHSMIPAddress_+    , _chcHSMPartitionName = pHSMPartitionName_+    , _chcHSMPartitionPassword = pHSMPartitionPassword_+    , _chcHSMServerPublicCertificate = pHSMServerPublicCertificate_+    }   -- | A list of tag instances. chcTags :: Lens' CreateHSMConfiguration [Tag]-chcTags = lens _chcTags (\ s a -> s{_chcTags = a}) . _Default . _Coerce;+chcTags = lens _chcTags (\ s a -> s{_chcTags = a}) . _Default . _Coerce  -- | The identifier to be assigned to the new Amazon Redshift HSM configuration. chcHSMConfigurationIdentifier :: Lens' CreateHSMConfiguration Text-chcHSMConfigurationIdentifier = lens _chcHSMConfigurationIdentifier (\ s a -> s{_chcHSMConfigurationIdentifier = a});+chcHSMConfigurationIdentifier = lens _chcHSMConfigurationIdentifier (\ s a -> s{_chcHSMConfigurationIdentifier = a})  -- | A text description of the HSM configuration to be created. chcDescription :: Lens' CreateHSMConfiguration Text-chcDescription = lens _chcDescription (\ s a -> s{_chcDescription = a});+chcDescription = lens _chcDescription (\ s a -> s{_chcDescription = a})  -- | The IP address that the Amazon Redshift cluster must use to access the HSM. chcHSMIPAddress :: Lens' CreateHSMConfiguration Text-chcHSMIPAddress = lens _chcHSMIPAddress (\ s a -> s{_chcHSMIPAddress = a});+chcHSMIPAddress = lens _chcHSMIPAddress (\ s a -> s{_chcHSMIPAddress = a})  -- | The name of the partition in the HSM where the Amazon Redshift clusters will store their database encryption keys. chcHSMPartitionName :: Lens' CreateHSMConfiguration Text-chcHSMPartitionName = lens _chcHSMPartitionName (\ s a -> s{_chcHSMPartitionName = a});+chcHSMPartitionName = lens _chcHSMPartitionName (\ s a -> s{_chcHSMPartitionName = a})  -- | The password required to access the HSM partition. chcHSMPartitionPassword :: Lens' CreateHSMConfiguration Text-chcHSMPartitionPassword = lens _chcHSMPartitionPassword (\ s a -> s{_chcHSMPartitionPassword = a});+chcHSMPartitionPassword = lens _chcHSMPartitionPassword (\ s a -> s{_chcHSMPartitionPassword = a})  -- | The HSMs public certificate file. When using Cloud HSM, the file name is server.pem. chcHSMServerPublicCertificate :: Lens' CreateHSMConfiguration Text-chcHSMServerPublicCertificate = lens _chcHSMServerPublicCertificate (\ s a -> s{_chcHSMServerPublicCertificate = a});+chcHSMServerPublicCertificate = lens _chcHSMServerPublicCertificate (\ s a -> s{_chcHSMServerPublicCertificate = a})  instance AWSRequest CreateHSMConfiguration where         type Rs CreateHSMConfiguration =@@ -188,15 +188,15 @@     -> CreateHSMConfigurationResponse createHSMConfigurationResponse pResponseStatus_ =   CreateHSMConfigurationResponse'-  {_chcrsHSMConfiguration = Nothing, _chcrsResponseStatus = pResponseStatus_}+    {_chcrsHSMConfiguration = Nothing, _chcrsResponseStatus = pResponseStatus_}   -- | Undocumented member. chcrsHSMConfiguration :: Lens' CreateHSMConfigurationResponse (Maybe HSMConfiguration)-chcrsHSMConfiguration = lens _chcrsHSMConfiguration (\ s a -> s{_chcrsHSMConfiguration = a});+chcrsHSMConfiguration = lens _chcrsHSMConfiguration (\ s a -> s{_chcrsHSMConfiguration = a})  -- | -- | The response status code. chcrsResponseStatus :: Lens' CreateHSMConfigurationResponse Int-chcrsResponseStatus = lens _chcrsResponseStatus (\ s a -> s{_chcrsResponseStatus = a});+chcrsResponseStatus = lens _chcrsResponseStatus (\ s a -> s{_chcrsResponseStatus = a})  instance NFData CreateHSMConfigurationResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.CreateSnapshotCopyGrant--- 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 @@     -> CreateSnapshotCopyGrant createSnapshotCopyGrant pSnapshotCopyGrantName_ =   CreateSnapshotCopyGrant'-  { _cscgKMSKeyId = Nothing-  , _cscgTags = Nothing-  , _cscgSnapshotCopyGrantName = pSnapshotCopyGrantName_-  }+    { _cscgKMSKeyId = Nothing+    , _cscgTags = Nothing+    , _cscgSnapshotCopyGrantName = pSnapshotCopyGrantName_+    }   -- | The unique identifier of the customer master key (CMK) to which to grant Amazon Redshift permission. If no key is specified, the default key is used. cscgKMSKeyId :: Lens' CreateSnapshotCopyGrant (Maybe Text)-cscgKMSKeyId = lens _cscgKMSKeyId (\ s a -> s{_cscgKMSKeyId = a});+cscgKMSKeyId = lens _cscgKMSKeyId (\ s a -> s{_cscgKMSKeyId = a})  -- | A list of tag instances. cscgTags :: Lens' CreateSnapshotCopyGrant [Tag]-cscgTags = lens _cscgTags (\ s a -> s{_cscgTags = a}) . _Default . _Coerce;+cscgTags = lens _cscgTags (\ s a -> s{_cscgTags = a}) . _Default . _Coerce  -- | The name of the snapshot copy grant. This name must be unique in the region for the AWS account. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens.     * Alphabetic characters must be lowercase.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens.     * Must be unique for all clusters within an AWS account. cscgSnapshotCopyGrantName :: Lens' CreateSnapshotCopyGrant Text-cscgSnapshotCopyGrantName = lens _cscgSnapshotCopyGrantName (\ s a -> s{_cscgSnapshotCopyGrantName = a});+cscgSnapshotCopyGrantName = lens _cscgSnapshotCopyGrantName (\ s a -> s{_cscgSnapshotCopyGrantName = a})  instance AWSRequest CreateSnapshotCopyGrant where         type Rs CreateSnapshotCopyGrant =@@ -142,15 +142,17 @@     -> CreateSnapshotCopyGrantResponse createSnapshotCopyGrantResponse pResponseStatus_ =   CreateSnapshotCopyGrantResponse'-  {_cscgrsSnapshotCopyGrant = Nothing, _cscgrsResponseStatus = pResponseStatus_}+    { _cscgrsSnapshotCopyGrant = Nothing+    , _cscgrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. cscgrsSnapshotCopyGrant :: Lens' CreateSnapshotCopyGrantResponse (Maybe SnapshotCopyGrant)-cscgrsSnapshotCopyGrant = lens _cscgrsSnapshotCopyGrant (\ s a -> s{_cscgrsSnapshotCopyGrant = a});+cscgrsSnapshotCopyGrant = lens _cscgrsSnapshotCopyGrant (\ s a -> s{_cscgrsSnapshotCopyGrant = a})  -- | -- | The response status code. cscgrsResponseStatus :: Lens' CreateSnapshotCopyGrantResponse Int-cscgrsResponseStatus = lens _cscgrsResponseStatus (\ s a -> s{_cscgrsResponseStatus = a});+cscgrsResponseStatus = lens _cscgrsResponseStatus (\ s a -> s{_cscgrsResponseStatus = a})  instance NFData CreateSnapshotCopyGrantResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.CreateTags--- 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) to which you want to add the tag or tags. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ . ctResourceName :: Lens' CreateTags Text-ctResourceName = lens _ctResourceName (\ s a -> s{_ctResourceName = a});+ctResourceName = lens _ctResourceName (\ s a -> s{_ctResourceName = a})  -- | One or more name/value pairs to add as tags to the specified resource. Each tag name is passed in with the parameter @Key@ and the corresponding value is passed in with the parameter @Value@ . The @Key@ and @Value@ parameters are separated by a comma (,). Separate multiple tags with a space. For example, @--tags "Key"="owner","Value"="admin" "Key"="environment","Value"="test" "Key"="version","Value"="1.0"@ . ctTags :: Lens' CreateTags [Tag]-ctTags = lens _ctTags (\ s a -> s{_ctTags = a}) . _Coerce;+ctTags = lens _ctTags (\ s a -> s{_ctTags = a}) . _Coerce  instance AWSRequest CreateTags where         type Rs CreateTags = CreateTagsResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.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@@ -76,23 +76,23 @@     -> DeleteCluster deleteCluster pClusterIdentifier_ =   DeleteCluster'-  { _delSkipFinalClusterSnapshot = Nothing-  , _delFinalClusterSnapshotIdentifier = Nothing-  , _delClusterIdentifier = pClusterIdentifier_-  }+    { _delSkipFinalClusterSnapshot = Nothing+    , _delFinalClusterSnapshotIdentifier = Nothing+    , _delClusterIdentifier = pClusterIdentifier_+    }   -- | Determines whether a final snapshot of the cluster is created before Amazon Redshift deletes the cluster. If @true@ , a final cluster snapshot is not created. If @false@ , a final cluster snapshot is created before the cluster is deleted.  Default: @false@ delSkipFinalClusterSnapshot :: Lens' DeleteCluster (Maybe Bool)-delSkipFinalClusterSnapshot = lens _delSkipFinalClusterSnapshot (\ s a -> s{_delSkipFinalClusterSnapshot = a});+delSkipFinalClusterSnapshot = lens _delSkipFinalClusterSnapshot (\ s a -> s{_delSkipFinalClusterSnapshot = a})  -- | The identifier of the final snapshot that is to be created immediately before deleting the cluster. If this parameter is provided, /SkipFinalClusterSnapshot/ must be @false@ .  Constraints:     * Must be 1 to 255 alphanumeric characters.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. delFinalClusterSnapshotIdentifier :: Lens' DeleteCluster (Maybe Text)-delFinalClusterSnapshotIdentifier = lens _delFinalClusterSnapshotIdentifier (\ s a -> s{_delFinalClusterSnapshotIdentifier = a});+delFinalClusterSnapshotIdentifier = lens _delFinalClusterSnapshotIdentifier (\ s a -> s{_delFinalClusterSnapshotIdentifier = a})  -- | The identifier of the cluster to be deleted. Constraints:     * Must contain lowercase characters.     * Must contain from 1 to 63 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. delClusterIdentifier :: Lens' DeleteCluster Text-delClusterIdentifier = lens _delClusterIdentifier (\ s a -> s{_delClusterIdentifier = a});+delClusterIdentifier = lens _delClusterIdentifier (\ s a -> s{_delClusterIdentifier = a})  instance AWSRequest DeleteCluster where         type Rs DeleteCluster = DeleteClusterResponse@@ -143,15 +143,15 @@     -> DeleteClusterResponse deleteClusterResponse pResponseStatus_ =   DeleteClusterResponse'-  {_drsCluster = Nothing, _drsResponseStatus = pResponseStatus_}+    {_drsCluster = Nothing, _drsResponseStatus = pResponseStatus_}   -- | Undocumented member. 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.Redshift.DeleteClusterParameterGroup--- 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 parameter group to be deleted. Constraints:     * Must be the name of an existing cluster parameter group.     * Cannot delete a default cluster parameter group. dParameterGroupName :: Lens' DeleteClusterParameterGroup Text-dParameterGroupName = lens _dParameterGroupName (\ s a -> s{_dParameterGroupName = a});+dParameterGroupName = lens _dParameterGroupName (\ s a -> s{_dParameterGroupName = a})  instance AWSRequest DeleteClusterParameterGroup where         type Rs DeleteClusterParameterGroup =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DeleteClusterSecurityGroup--- 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,12 +63,12 @@     -> DeleteClusterSecurityGroup deleteClusterSecurityGroup pClusterSecurityGroupName_ =   DeleteClusterSecurityGroup'-  {_dClusterSecurityGroupName = pClusterSecurityGroupName_}+    {_dClusterSecurityGroupName = pClusterSecurityGroupName_}   -- | The name of the cluster security group to be deleted. dClusterSecurityGroupName :: Lens' DeleteClusterSecurityGroup Text-dClusterSecurityGroupName = lens _dClusterSecurityGroupName (\ s a -> s{_dClusterSecurityGroupName = a});+dClusterSecurityGroupName = lens _dClusterSecurityGroupName (\ s a -> s{_dClusterSecurityGroupName = a})  instance AWSRequest DeleteClusterSecurityGroup where         type Rs DeleteClusterSecurityGroup =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DeleteClusterSnapshot--- 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@@ -70,18 +70,18 @@     -> DeleteClusterSnapshot deleteClusterSnapshot pSnapshotIdentifier_ =   DeleteClusterSnapshot'-  { _dcsSnapshotClusterIdentifier = Nothing-  , _dcsSnapshotIdentifier = pSnapshotIdentifier_-  }+    { _dcsSnapshotClusterIdentifier = Nothing+    , _dcsSnapshotIdentifier = pSnapshotIdentifier_+    }   -- | The unique identifier of the cluster the snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name. Constraints: Must be the name of valid cluster. dcsSnapshotClusterIdentifier :: Lens' DeleteClusterSnapshot (Maybe Text)-dcsSnapshotClusterIdentifier = lens _dcsSnapshotClusterIdentifier (\ s a -> s{_dcsSnapshotClusterIdentifier = a});+dcsSnapshotClusterIdentifier = lens _dcsSnapshotClusterIdentifier (\ s a -> s{_dcsSnapshotClusterIdentifier = a})  -- | The unique identifier of the manual snapshot to be deleted. Constraints: Must be the name of an existing snapshot that is in the @available@ state. dcsSnapshotIdentifier :: Lens' DeleteClusterSnapshot Text-dcsSnapshotIdentifier = lens _dcsSnapshotIdentifier (\ s a -> s{_dcsSnapshotIdentifier = a});+dcsSnapshotIdentifier = lens _dcsSnapshotIdentifier (\ s a -> s{_dcsSnapshotIdentifier = a})  instance AWSRequest DeleteClusterSnapshot where         type Rs DeleteClusterSnapshot =@@ -131,15 +131,15 @@     -> DeleteClusterSnapshotResponse deleteClusterSnapshotResponse pResponseStatus_ =   DeleteClusterSnapshotResponse'-  {_dcsrsSnapshot = Nothing, _dcsrsResponseStatus = pResponseStatus_}+    {_dcsrsSnapshot = Nothing, _dcsrsResponseStatus = pResponseStatus_}   -- | Undocumented member. dcsrsSnapshot :: Lens' DeleteClusterSnapshotResponse (Maybe Snapshot)-dcsrsSnapshot = lens _dcsrsSnapshot (\ s a -> s{_dcsrsSnapshot = a});+dcsrsSnapshot = lens _dcsrsSnapshot (\ s a -> s{_dcsrsSnapshot = a})  -- | -- | The response status code. dcsrsResponseStatus :: Lens' DeleteClusterSnapshotResponse Int-dcsrsResponseStatus = lens _dcsrsResponseStatus (\ s a -> s{_dcsrsResponseStatus = a});+dcsrsResponseStatus = lens _dcsrsResponseStatus (\ s a -> s{_dcsrsResponseStatus = a})  instance NFData DeleteClusterSnapshotResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DeleteClusterSubnetGroup--- 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 @@     -> DeleteClusterSubnetGroup deleteClusterSubnetGroup pClusterSubnetGroupName_ =   DeleteClusterSubnetGroup'-  {_dcsgClusterSubnetGroupName = pClusterSubnetGroupName_}+    {_dcsgClusterSubnetGroupName = pClusterSubnetGroupName_}   -- | The name of the cluster subnet group name to be deleted. dcsgClusterSubnetGroupName :: Lens' DeleteClusterSubnetGroup Text-dcsgClusterSubnetGroupName = lens _dcsgClusterSubnetGroupName (\ s a -> s{_dcsgClusterSubnetGroupName = a});+dcsgClusterSubnetGroupName = lens _dcsgClusterSubnetGroupName (\ s a -> s{_dcsgClusterSubnetGroupName = a})  instance AWSRequest DeleteClusterSubnetGroup where         type Rs DeleteClusterSubnetGroup =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DeleteEventSubscription--- 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 Amazon Redshift event notification subscription to be deleted. desSubscriptionName :: Lens' DeleteEventSubscription Text-desSubscriptionName = lens _desSubscriptionName (\ s a -> s{_desSubscriptionName = a});+desSubscriptionName = lens _desSubscriptionName (\ s a -> s{_desSubscriptionName = a})  instance AWSRequest DeleteEventSubscription where         type Rs DeleteEventSubscription =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DeleteHSMClientCertificate--- 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 @@     -> DeleteHSMClientCertificate deleteHSMClientCertificate pHSMClientCertificateIdentifier_ =   DeleteHSMClientCertificate'-  {_dhsmccHSMClientCertificateIdentifier = pHSMClientCertificateIdentifier_}+    {_dhsmccHSMClientCertificateIdentifier = pHSMClientCertificateIdentifier_}   -- | The identifier of the HSM client certificate to be deleted. dhsmccHSMClientCertificateIdentifier :: Lens' DeleteHSMClientCertificate Text-dhsmccHSMClientCertificateIdentifier = lens _dhsmccHSMClientCertificateIdentifier (\ s a -> s{_dhsmccHSMClientCertificateIdentifier = a});+dhsmccHSMClientCertificateIdentifier = lens _dhsmccHSMClientCertificateIdentifier (\ s a -> s{_dhsmccHSMClientCertificateIdentifier = a})  instance AWSRequest DeleteHSMClientCertificate where         type Rs DeleteHSMClientCertificate =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DeleteHSMConfiguration--- 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 @@     -> DeleteHSMConfiguration deleteHSMConfiguration pHSMConfigurationIdentifier_ =   DeleteHSMConfiguration'-  {_dhcHSMConfigurationIdentifier = pHSMConfigurationIdentifier_}+    {_dhcHSMConfigurationIdentifier = pHSMConfigurationIdentifier_}   -- | The identifier of the Amazon Redshift HSM configuration to be deleted. dhcHSMConfigurationIdentifier :: Lens' DeleteHSMConfiguration Text-dhcHSMConfigurationIdentifier = lens _dhcHSMConfigurationIdentifier (\ s a -> s{_dhcHSMConfigurationIdentifier = a});+dhcHSMConfigurationIdentifier = lens _dhcHSMConfigurationIdentifier (\ s a -> s{_dhcHSMConfigurationIdentifier = a})  instance AWSRequest DeleteHSMConfiguration where         type Rs DeleteHSMConfiguration =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DeleteSnapshotCopyGrant--- 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 @@     -> DeleteSnapshotCopyGrant deleteSnapshotCopyGrant pSnapshotCopyGrantName_ =   DeleteSnapshotCopyGrant'-  {_dscgSnapshotCopyGrantName = pSnapshotCopyGrantName_}+    {_dscgSnapshotCopyGrantName = pSnapshotCopyGrantName_}   -- | The name of the snapshot copy grant to delete. dscgSnapshotCopyGrantName :: Lens' DeleteSnapshotCopyGrant Text-dscgSnapshotCopyGrantName = lens _dscgSnapshotCopyGrantName (\ s a -> s{_dscgSnapshotCopyGrantName = a});+dscgSnapshotCopyGrantName = lens _dscgSnapshotCopyGrantName (\ s a -> s{_dscgSnapshotCopyGrantName = a})  instance AWSRequest DeleteSnapshotCopyGrant where         type Rs DeleteSnapshotCopyGrant =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DeleteTags--- 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 Amazon Resource Name (ARN) from which you want to remove the tag or tags. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ . dtsResourceName :: Lens' DeleteTags Text-dtsResourceName = lens _dtsResourceName (\ s a -> s{_dtsResourceName = a});+dtsResourceName = lens _dtsResourceName (\ s a -> s{_dtsResourceName = a})  -- | The tag key that you want to delete. dtsTagKeys :: Lens' DeleteTags [Text]-dtsTagKeys = lens _dtsTagKeys (\ s a -> s{_dtsTagKeys = a}) . _Coerce;+dtsTagKeys = lens _dtsTagKeys (\ s a -> s{_dtsTagKeys = a}) . _Coerce  instance AWSRequest DeleteTags where         type Rs DeleteTags = DeleteTagsResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeClusterParameterGroups--- 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@@ -89,33 +89,33 @@     :: DescribeClusterParameterGroups describeClusterParameterGroups =   DescribeClusterParameterGroups'-  { _dcpgTagValues = Nothing-  , _dcpgTagKeys = Nothing-  , _dcpgMarker = Nothing-  , _dcpgMaxRecords = Nothing-  , _dcpgParameterGroupName = Nothing-  }+    { _dcpgTagValues = Nothing+    , _dcpgTagKeys = Nothing+    , _dcpgMarker = Nothing+    , _dcpgMaxRecords = Nothing+    , _dcpgParameterGroupName = Nothing+    }   -- | A tag value or values for which you want to return all matching cluster parameter groups that are associated with the specified tag value or values. For example, suppose that you have parameter groups that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the parameter groups that have either or both of these tag values associated with them. dcpgTagValues :: Lens' DescribeClusterParameterGroups [Text]-dcpgTagValues = lens _dcpgTagValues (\ s a -> s{_dcpgTagValues = a}) . _Default . _Coerce;+dcpgTagValues = lens _dcpgTagValues (\ s a -> s{_dcpgTagValues = a}) . _Default . _Coerce  -- | A tag key or keys for which you want to return all matching cluster parameter groups that are associated with the specified key or keys. For example, suppose that you have parameter groups that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the parameter groups that have either or both of these tag keys associated with them. dcpgTagKeys :: Lens' DescribeClusterParameterGroups [Text]-dcpgTagKeys = lens _dcpgTagKeys (\ s a -> s{_dcpgTagKeys = a}) . _Default . _Coerce;+dcpgTagKeys = lens _dcpgTagKeys (\ s a -> s{_dcpgTagKeys = a}) . _Default . _Coerce  -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterParameterGroups' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. dcpgMarker :: Lens' DescribeClusterParameterGroups (Maybe Text)-dcpgMarker = lens _dcpgMarker (\ s a -> s{_dcpgMarker = a});+dcpgMarker = lens _dcpgMarker (\ s a -> s{_dcpgMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. dcpgMaxRecords :: Lens' DescribeClusterParameterGroups (Maybe Int)-dcpgMaxRecords = lens _dcpgMaxRecords (\ s a -> s{_dcpgMaxRecords = a});+dcpgMaxRecords = lens _dcpgMaxRecords (\ s a -> s{_dcpgMaxRecords = a})  -- | The name of a specific parameter group for which to return details. By default, details about all parameter groups and the default parameter group are returned. dcpgParameterGroupName :: Lens' DescribeClusterParameterGroups (Maybe Text)-dcpgParameterGroupName = lens _dcpgParameterGroupName (\ s a -> s{_dcpgParameterGroupName = a});+dcpgParameterGroupName = lens _dcpgParameterGroupName (\ s a -> s{_dcpgParameterGroupName = a})  instance AWSPager DescribeClusterParameterGroups          where@@ -192,23 +192,23 @@     -> DescribeClusterParameterGroupsResponse describeClusterParameterGroupsResponse pResponseStatus_ =   DescribeClusterParameterGroupsResponse'-  { _dcpgrsMarker = Nothing-  , _dcpgrsParameterGroups = Nothing-  , _dcpgrsResponseStatus = pResponseStatus_-  }+    { _dcpgrsMarker = Nothing+    , _dcpgrsParameterGroups = Nothing+    , _dcpgrsResponseStatus = pResponseStatus_+    }   -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. dcpgrsMarker :: Lens' DescribeClusterParameterGroupsResponse (Maybe Text)-dcpgrsMarker = lens _dcpgrsMarker (\ s a -> s{_dcpgrsMarker = a});+dcpgrsMarker = lens _dcpgrsMarker (\ s a -> s{_dcpgrsMarker = a})  -- | A list of 'ClusterParameterGroup' instances. Each instance describes one cluster parameter group. dcpgrsParameterGroups :: Lens' DescribeClusterParameterGroupsResponse [ClusterParameterGroup]-dcpgrsParameterGroups = lens _dcpgrsParameterGroups (\ s a -> s{_dcpgrsParameterGroups = a}) . _Default . _Coerce;+dcpgrsParameterGroups = lens _dcpgrsParameterGroups (\ s a -> s{_dcpgrsParameterGroups = a}) . _Default . _Coerce  -- | -- | The response status code. dcpgrsResponseStatus :: Lens' DescribeClusterParameterGroupsResponse Int-dcpgrsResponseStatus = lens _dcpgrsResponseStatus (\ s a -> s{_dcpgrsResponseStatus = a});+dcpgrsResponseStatus = lens _dcpgrsResponseStatus (\ s a -> s{_dcpgrsResponseStatus = a})  instance NFData            DescribeClusterParameterGroupsResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeClusterParameters--- 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,28 +84,28 @@     -> DescribeClusterParameters describeClusterParameters pParameterGroupName_ =   DescribeClusterParameters'-  { _dcpsMarker = Nothing-  , _dcpsMaxRecords = Nothing-  , _dcpsSource = Nothing-  , _dcpsParameterGroupName = pParameterGroupName_-  }+    { _dcpsMarker = Nothing+    , _dcpsMaxRecords = Nothing+    , _dcpsSource = Nothing+    , _dcpsParameterGroupName = pParameterGroupName_+    }   -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterParameters' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. dcpsMarker :: Lens' DescribeClusterParameters (Maybe Text)-dcpsMarker = lens _dcpsMarker (\ s a -> s{_dcpsMarker = a});+dcpsMarker = lens _dcpsMarker (\ s a -> s{_dcpsMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. dcpsMaxRecords :: Lens' DescribeClusterParameters (Maybe Int)-dcpsMaxRecords = lens _dcpsMaxRecords (\ s a -> s{_dcpsMaxRecords = a});+dcpsMaxRecords = lens _dcpsMaxRecords (\ s a -> s{_dcpsMaxRecords = a})  -- | The parameter types to return. Specify @user@ to show parameters that are different form the default. Similarly, specify @engine-default@ to show parameters that are the same as the default parameter group.  Default: All parameter types returned. Valid Values: @user@ | @engine-default@ dcpsSource :: Lens' DescribeClusterParameters (Maybe Text)-dcpsSource = lens _dcpsSource (\ s a -> s{_dcpsSource = a});+dcpsSource = lens _dcpsSource (\ s a -> s{_dcpsSource = a})  -- | The name of a cluster parameter group for which to return details. dcpsParameterGroupName :: Lens' DescribeClusterParameters Text-dcpsParameterGroupName = lens _dcpsParameterGroupName (\ s a -> s{_dcpsParameterGroupName = a});+dcpsParameterGroupName = lens _dcpsParameterGroupName (\ s a -> s{_dcpsParameterGroupName = a})  instance AWSPager DescribeClusterParameters where         page rq rs@@ -174,23 +174,23 @@     -> DescribeClusterParametersResponse describeClusterParametersResponse pResponseStatus_ =   DescribeClusterParametersResponse'-  { _dcprsMarker = Nothing-  , _dcprsParameters = Nothing-  , _dcprsResponseStatus = pResponseStatus_-  }+    { _dcprsMarker = Nothing+    , _dcprsParameters = Nothing+    , _dcprsResponseStatus = pResponseStatus_+    }   -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. dcprsMarker :: Lens' DescribeClusterParametersResponse (Maybe Text)-dcprsMarker = lens _dcprsMarker (\ s a -> s{_dcprsMarker = a});+dcprsMarker = lens _dcprsMarker (\ s a -> s{_dcprsMarker = a})  -- | A list of 'Parameter' instances. Each instance lists the parameters of one cluster parameter group. dcprsParameters :: Lens' DescribeClusterParametersResponse [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' DescribeClusterParametersResponse Int-dcprsResponseStatus = lens _dcprsResponseStatus (\ s a -> s{_dcprsResponseStatus = a});+dcprsResponseStatus = lens _dcprsResponseStatus (\ s a -> s{_dcprsResponseStatus = a})  instance NFData DescribeClusterParametersResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeClusterSecurityGroups--- 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@@ -89,33 +89,33 @@     :: DescribeClusterSecurityGroups describeClusterSecurityGroups =   DescribeClusterSecurityGroups'-  { _dcsgTagValues = Nothing-  , _dcsgTagKeys = Nothing-  , _dcsgClusterSecurityGroupName = Nothing-  , _dcsgMarker = Nothing-  , _dcsgMaxRecords = Nothing-  }+    { _dcsgTagValues = Nothing+    , _dcsgTagKeys = Nothing+    , _dcsgClusterSecurityGroupName = Nothing+    , _dcsgMarker = Nothing+    , _dcsgMaxRecords = Nothing+    }   -- | A tag value or values for which you want to return all matching cluster security groups that are associated with the specified tag value or values. For example, suppose that you have security groups that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the security groups that have either or both of these tag values associated with them. dcsgTagValues :: Lens' DescribeClusterSecurityGroups [Text]-dcsgTagValues = lens _dcsgTagValues (\ s a -> s{_dcsgTagValues = a}) . _Default . _Coerce;+dcsgTagValues = lens _dcsgTagValues (\ s a -> s{_dcsgTagValues = a}) . _Default . _Coerce  -- | A tag key or keys for which you want to return all matching cluster security groups that are associated with the specified key or keys. For example, suppose that you have security groups that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the security groups that have either or both of these tag keys associated with them. dcsgTagKeys :: Lens' DescribeClusterSecurityGroups [Text]-dcsgTagKeys = lens _dcsgTagKeys (\ s a -> s{_dcsgTagKeys = a}) . _Default . _Coerce;+dcsgTagKeys = lens _dcsgTagKeys (\ s a -> s{_dcsgTagKeys = a}) . _Default . _Coerce  -- | The name of a cluster security group for which you are requesting details. You can specify either the __Marker__ parameter or a __ClusterSecurityGroupName__ parameter, but not both.  Example: @securitygroup1@ dcsgClusterSecurityGroupName :: Lens' DescribeClusterSecurityGroups (Maybe Text)-dcsgClusterSecurityGroupName = lens _dcsgClusterSecurityGroupName (\ s a -> s{_dcsgClusterSecurityGroupName = a});+dcsgClusterSecurityGroupName = lens _dcsgClusterSecurityGroupName (\ s a -> s{_dcsgClusterSecurityGroupName = a})  -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterSecurityGroups' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.  Constraints: You can specify either the __ClusterSecurityGroupName__ parameter or the __Marker__ parameter, but not both. dcsgMarker :: Lens' DescribeClusterSecurityGroups (Maybe Text)-dcsgMarker = lens _dcsgMarker (\ s a -> s{_dcsgMarker = a});+dcsgMarker = lens _dcsgMarker (\ s a -> s{_dcsgMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. dcsgMaxRecords :: Lens' DescribeClusterSecurityGroups (Maybe Int)-dcsgMaxRecords = lens _dcsgMaxRecords (\ s a -> s{_dcsgMaxRecords = a});+dcsgMaxRecords = lens _dcsgMaxRecords (\ s a -> s{_dcsgMaxRecords = a})  instance AWSPager DescribeClusterSecurityGroups where         page rq rs@@ -191,23 +191,23 @@     -> DescribeClusterSecurityGroupsResponse describeClusterSecurityGroupsResponse pResponseStatus_ =   DescribeClusterSecurityGroupsResponse'-  { _dcsgsrsClusterSecurityGroups = Nothing-  , _dcsgsrsMarker = Nothing-  , _dcsgsrsResponseStatus = pResponseStatus_-  }+    { _dcsgsrsClusterSecurityGroups = Nothing+    , _dcsgsrsMarker = Nothing+    , _dcsgsrsResponseStatus = pResponseStatus_+    }   -- | A list of 'ClusterSecurityGroup' instances. dcsgsrsClusterSecurityGroups :: Lens' DescribeClusterSecurityGroupsResponse [ClusterSecurityGroup]-dcsgsrsClusterSecurityGroups = lens _dcsgsrsClusterSecurityGroups (\ s a -> s{_dcsgsrsClusterSecurityGroups = a}) . _Default . _Coerce;+dcsgsrsClusterSecurityGroups = lens _dcsgsrsClusterSecurityGroups (\ s a -> s{_dcsgsrsClusterSecurityGroups = a}) . _Default . _Coerce  -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. dcsgsrsMarker :: Lens' DescribeClusterSecurityGroupsResponse (Maybe Text)-dcsgsrsMarker = lens _dcsgsrsMarker (\ s a -> s{_dcsgsrsMarker = a});+dcsgsrsMarker = lens _dcsgsrsMarker (\ s a -> s{_dcsgsrsMarker = a})  -- | -- | The response status code. dcsgsrsResponseStatus :: Lens' DescribeClusterSecurityGroupsResponse Int-dcsgsrsResponseStatus = lens _dcsgsrsResponseStatus (\ s a -> s{_dcsgsrsResponseStatus = a});+dcsgsrsResponseStatus = lens _dcsgsrsResponseStatus (\ s a -> s{_dcsgsrsResponseStatus = a})  instance NFData DescribeClusterSecurityGroupsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeClusterSnapshots--- 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@@ -35,6 +35,7 @@     -- * Request Lenses     , dSnapshotIdentifier     , dTagValues+    , dClusterExists     , dStartTime     , dTagKeys     , dClusterIdentifier@@ -69,6 +70,7 @@ data DescribeClusterSnapshots = DescribeClusterSnapshots'   { _dSnapshotIdentifier :: !(Maybe Text)   , _dTagValues          :: !(Maybe [Text])+  , _dClusterExists      :: !(Maybe Bool)   , _dStartTime          :: !(Maybe ISO8601)   , _dTagKeys            :: !(Maybe [Text])   , _dClusterIdentifier  :: !(Maybe Text)@@ -88,6 +90,8 @@ -- -- * 'dTagValues' - A tag value or values for which you want to return all matching cluster snapshots that are associated with the specified tag value or values. For example, suppose that you have snapshots that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the snapshots that have either or both of these tag values associated with them. --+-- * 'dClusterExists' - A value that indicates whether to return snapshots only for an existing cluster. Table-level restore can be performed only using a snapshot of an existing cluster, that is, a cluster that has not been deleted. If @ClusterExists@ is set to @true@ , @ClusterIdentifier@ is required.+-- -- * 'dStartTime' - A value that requests only snapshots created at or after the specified time. The time value is specified in ISO 8601 format. For more information about ISO 8601, go to the <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>  Example: @2012-07-16T18:00:00Z@ -- -- * 'dTagKeys' - A tag key or keys for which you want to return all matching cluster snapshots that are associated with the specified key or keys. For example, suppose that you have snapshots that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the snapshots that have either or both of these tag keys associated with them.@@ -107,58 +111,63 @@     :: DescribeClusterSnapshots describeClusterSnapshots =   DescribeClusterSnapshots'-  { _dSnapshotIdentifier = Nothing-  , _dTagValues = Nothing-  , _dStartTime = Nothing-  , _dTagKeys = Nothing-  , _dClusterIdentifier = Nothing-  , _dSnapshotType = Nothing-  , _dMarker = Nothing-  , _dMaxRecords = Nothing-  , _dEndTime = Nothing-  , _dOwnerAccount = Nothing-  }+    { _dSnapshotIdentifier = Nothing+    , _dTagValues = Nothing+    , _dClusterExists = Nothing+    , _dStartTime = Nothing+    , _dTagKeys = Nothing+    , _dClusterIdentifier = Nothing+    , _dSnapshotType = Nothing+    , _dMarker = Nothing+    , _dMaxRecords = Nothing+    , _dEndTime = Nothing+    , _dOwnerAccount = Nothing+    }   -- | The snapshot identifier of the snapshot about which to return information. dSnapshotIdentifier :: Lens' DescribeClusterSnapshots (Maybe Text)-dSnapshotIdentifier = lens _dSnapshotIdentifier (\ s a -> s{_dSnapshotIdentifier = a});+dSnapshotIdentifier = lens _dSnapshotIdentifier (\ s a -> s{_dSnapshotIdentifier = a})  -- | A tag value or values for which you want to return all matching cluster snapshots that are associated with the specified tag value or values. For example, suppose that you have snapshots that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the snapshots that have either or both of these tag values associated with them. dTagValues :: Lens' DescribeClusterSnapshots [Text]-dTagValues = lens _dTagValues (\ s a -> s{_dTagValues = a}) . _Default . _Coerce;+dTagValues = lens _dTagValues (\ s a -> s{_dTagValues = a}) . _Default . _Coerce +-- | A value that indicates whether to return snapshots only for an existing cluster. Table-level restore can be performed only using a snapshot of an existing cluster, that is, a cluster that has not been deleted. If @ClusterExists@ is set to @true@ , @ClusterIdentifier@ is required.+dClusterExists :: Lens' DescribeClusterSnapshots (Maybe Bool)+dClusterExists = lens _dClusterExists (\ s a -> s{_dClusterExists = a})+ -- | A value that requests only snapshots created at or after the specified time. The time value is specified in ISO 8601 format. For more information about ISO 8601, go to the <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>  Example: @2012-07-16T18:00:00Z@ dStartTime :: Lens' DescribeClusterSnapshots (Maybe UTCTime)-dStartTime = lens _dStartTime (\ s a -> s{_dStartTime = a}) . mapping _Time;+dStartTime = lens _dStartTime (\ s a -> s{_dStartTime = a}) . mapping _Time  -- | A tag key or keys for which you want to return all matching cluster snapshots that are associated with the specified key or keys. For example, suppose that you have snapshots that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the snapshots that have either or both of these tag keys associated with them. dTagKeys :: Lens' DescribeClusterSnapshots [Text]-dTagKeys = lens _dTagKeys (\ s a -> s{_dTagKeys = a}) . _Default . _Coerce;+dTagKeys = lens _dTagKeys (\ s a -> s{_dTagKeys = a}) . _Default . _Coerce  -- | The identifier of the cluster for which information about snapshots is requested. dClusterIdentifier :: Lens' DescribeClusterSnapshots (Maybe Text)-dClusterIdentifier = lens _dClusterIdentifier (\ s a -> s{_dClusterIdentifier = a});+dClusterIdentifier = lens _dClusterIdentifier (\ s a -> s{_dClusterIdentifier = a})  -- | The type of snapshots for which you are requesting information. By default, snapshots of all types are returned. Valid Values: @automated@ | @manual@ dSnapshotType :: Lens' DescribeClusterSnapshots (Maybe Text)-dSnapshotType = lens _dSnapshotType (\ s a -> s{_dSnapshotType = a});+dSnapshotType = lens _dSnapshotType (\ s a -> s{_dSnapshotType = a})  -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterSnapshots' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. dMarker :: Lens' DescribeClusterSnapshots (Maybe Text)-dMarker = lens _dMarker (\ s a -> s{_dMarker = a});+dMarker = lens _dMarker (\ s a -> s{_dMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. dMaxRecords :: Lens' DescribeClusterSnapshots (Maybe Int)-dMaxRecords = lens _dMaxRecords (\ s a -> s{_dMaxRecords = a});+dMaxRecords = lens _dMaxRecords (\ s a -> s{_dMaxRecords = a})  -- | A time value that requests only snapshots created at or before the specified time. The time value is specified in ISO 8601 format. For more information about ISO 8601, go to the <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>  Example: @2012-07-16T18:00:00Z@ dEndTime :: Lens' DescribeClusterSnapshots (Maybe UTCTime)-dEndTime = lens _dEndTime (\ s a -> s{_dEndTime = a}) . mapping _Time;+dEndTime = lens _dEndTime (\ s a -> s{_dEndTime = a}) . mapping _Time  -- | The AWS customer account used to create or copy the snapshot. Use this field to filter the results to snapshots owned by a particular account. To describe snapshots you own, either specify your AWS customer account, or do not specify the parameter. dOwnerAccount :: Lens' DescribeClusterSnapshots (Maybe Text)-dOwnerAccount = lens _dOwnerAccount (\ s a -> s{_dOwnerAccount = a});+dOwnerAccount = lens _dOwnerAccount (\ s a -> s{_dOwnerAccount = a})  instance AWSPager DescribeClusterSnapshots where         page rq rs@@ -199,6 +208,7 @@                "SnapshotIdentifier" =: _dSnapshotIdentifier,                "TagValues" =:                  toQuery (toQueryList "TagValue" <$> _dTagValues),+               "ClusterExists" =: _dClusterExists,                "StartTime" =: _dStartTime,                "TagKeys" =:                  toQuery (toQueryList "TagKey" <$> _dTagKeys),@@ -234,23 +244,23 @@     -> DescribeClusterSnapshotsResponse describeClusterSnapshotsResponse pResponseStatus_ =   DescribeClusterSnapshotsResponse'-  { _dcssrsSnapshots = Nothing-  , _dcssrsMarker = Nothing-  , _dcssrsResponseStatus = pResponseStatus_-  }+    { _dcssrsSnapshots = Nothing+    , _dcssrsMarker = Nothing+    , _dcssrsResponseStatus = pResponseStatus_+    }   -- | A list of 'Snapshot' instances. dcssrsSnapshots :: Lens' DescribeClusterSnapshotsResponse [Snapshot]-dcssrsSnapshots = lens _dcssrsSnapshots (\ s a -> s{_dcssrsSnapshots = a}) . _Default . _Coerce;+dcssrsSnapshots = lens _dcssrsSnapshots (\ s a -> s{_dcssrsSnapshots = a}) . _Default . _Coerce  -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. dcssrsMarker :: Lens' DescribeClusterSnapshotsResponse (Maybe Text)-dcssrsMarker = lens _dcssrsMarker (\ s a -> s{_dcssrsMarker = a});+dcssrsMarker = lens _dcssrsMarker (\ s a -> s{_dcssrsMarker = a})  -- | -- | The response status code. dcssrsResponseStatus :: Lens' DescribeClusterSnapshotsResponse Int-dcssrsResponseStatus = lens _dcssrsResponseStatus (\ s a -> s{_dcssrsResponseStatus = a});+dcssrsResponseStatus = lens _dcssrsResponseStatus (\ s a -> s{_dcssrsResponseStatus = a})  instance NFData DescribeClusterSnapshotsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeClusterSubnetGroups--- 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,33 +87,33 @@     :: DescribeClusterSubnetGroups describeClusterSubnetGroups =   DescribeClusterSubnetGroups'-  { _dcsgsTagValues = Nothing-  , _dcsgsTagKeys = Nothing-  , _dcsgsClusterSubnetGroupName = Nothing-  , _dcsgsMarker = Nothing-  , _dcsgsMaxRecords = Nothing-  }+    { _dcsgsTagValues = Nothing+    , _dcsgsTagKeys = Nothing+    , _dcsgsClusterSubnetGroupName = Nothing+    , _dcsgsMarker = Nothing+    , _dcsgsMaxRecords = Nothing+    }   -- | A tag value or values for which you want to return all matching cluster subnet groups that are associated with the specified tag value or values. For example, suppose that you have subnet groups that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the subnet groups that have either or both of these tag values associated with them. dcsgsTagValues :: Lens' DescribeClusterSubnetGroups [Text]-dcsgsTagValues = lens _dcsgsTagValues (\ s a -> s{_dcsgsTagValues = a}) . _Default . _Coerce;+dcsgsTagValues = lens _dcsgsTagValues (\ s a -> s{_dcsgsTagValues = a}) . _Default . _Coerce  -- | A tag key or keys for which you want to return all matching cluster subnet groups that are associated with the specified key or keys. For example, suppose that you have subnet groups that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the subnet groups that have either or both of these tag keys associated with them. dcsgsTagKeys :: Lens' DescribeClusterSubnetGroups [Text]-dcsgsTagKeys = lens _dcsgsTagKeys (\ s a -> s{_dcsgsTagKeys = a}) . _Default . _Coerce;+dcsgsTagKeys = lens _dcsgsTagKeys (\ s a -> s{_dcsgsTagKeys = a}) . _Default . _Coerce  -- | The name of the cluster subnet group for which information is requested. dcsgsClusterSubnetGroupName :: Lens' DescribeClusterSubnetGroups (Maybe Text)-dcsgsClusterSubnetGroupName = lens _dcsgsClusterSubnetGroupName (\ s a -> s{_dcsgsClusterSubnetGroupName = a});+dcsgsClusterSubnetGroupName = lens _dcsgsClusterSubnetGroupName (\ s a -> s{_dcsgsClusterSubnetGroupName = a})  -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterSubnetGroups' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. dcsgsMarker :: Lens' DescribeClusterSubnetGroups (Maybe Text)-dcsgsMarker = lens _dcsgsMarker (\ s a -> s{_dcsgsMarker = a});+dcsgsMarker = lens _dcsgsMarker (\ s a -> s{_dcsgsMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. dcsgsMaxRecords :: Lens' DescribeClusterSubnetGroups (Maybe Int)-dcsgsMaxRecords = lens _dcsgsMaxRecords (\ s a -> s{_dcsgsMaxRecords = a});+dcsgsMaxRecords = lens _dcsgsMaxRecords (\ s a -> s{_dcsgsMaxRecords = a})  instance AWSPager DescribeClusterSubnetGroups where         page rq rs@@ -187,23 +187,23 @@     -> DescribeClusterSubnetGroupsResponse describeClusterSubnetGroupsResponse pResponseStatus_ =   DescribeClusterSubnetGroupsResponse'-  { _dcsgrsClusterSubnetGroups = Nothing-  , _dcsgrsMarker = Nothing-  , _dcsgrsResponseStatus = pResponseStatus_-  }+    { _dcsgrsClusterSubnetGroups = Nothing+    , _dcsgrsMarker = Nothing+    , _dcsgrsResponseStatus = pResponseStatus_+    }   -- | A list of 'ClusterSubnetGroup' instances. dcsgrsClusterSubnetGroups :: Lens' DescribeClusterSubnetGroupsResponse [ClusterSubnetGroup]-dcsgrsClusterSubnetGroups = lens _dcsgrsClusterSubnetGroups (\ s a -> s{_dcsgrsClusterSubnetGroups = a}) . _Default . _Coerce;+dcsgrsClusterSubnetGroups = lens _dcsgrsClusterSubnetGroups (\ s a -> s{_dcsgrsClusterSubnetGroups = a}) . _Default . _Coerce  -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. dcsgrsMarker :: Lens' DescribeClusterSubnetGroupsResponse (Maybe Text)-dcsgrsMarker = lens _dcsgrsMarker (\ s a -> s{_dcsgrsMarker = a});+dcsgrsMarker = lens _dcsgrsMarker (\ s a -> s{_dcsgrsMarker = a})  -- | -- | The response status code. dcsgrsResponseStatus :: Lens' DescribeClusterSubnetGroupsResponse Int-dcsgrsResponseStatus = lens _dcsgrsResponseStatus (\ s a -> s{_dcsgrsResponseStatus = a});+dcsgrsResponseStatus = lens _dcsgrsResponseStatus (\ s a -> s{_dcsgrsResponseStatus = a})  instance NFData DescribeClusterSubnetGroupsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeClusterVersions--- 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@@ -79,28 +79,28 @@     :: DescribeClusterVersions describeClusterVersions =   DescribeClusterVersions'-  { _dcvClusterParameterGroupFamily = Nothing-  , _dcvMarker = Nothing-  , _dcvMaxRecords = Nothing-  , _dcvClusterVersion = Nothing-  }+    { _dcvClusterParameterGroupFamily = Nothing+    , _dcvMarker = Nothing+    , _dcvMaxRecords = Nothing+    , _dcvClusterVersion = Nothing+    }   -- | The name of a specific cluster parameter group family to return details for. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens dcvClusterParameterGroupFamily :: Lens' DescribeClusterVersions (Maybe Text)-dcvClusterParameterGroupFamily = lens _dcvClusterParameterGroupFamily (\ s a -> s{_dcvClusterParameterGroupFamily = a});+dcvClusterParameterGroupFamily = lens _dcvClusterParameterGroupFamily (\ s a -> s{_dcvClusterParameterGroupFamily = a})  -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusterVersions' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. dcvMarker :: Lens' DescribeClusterVersions (Maybe Text)-dcvMarker = lens _dcvMarker (\ s a -> s{_dcvMarker = a});+dcvMarker = lens _dcvMarker (\ s a -> s{_dcvMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. dcvMaxRecords :: Lens' DescribeClusterVersions (Maybe Int)-dcvMaxRecords = lens _dcvMaxRecords (\ s a -> s{_dcvMaxRecords = a});+dcvMaxRecords = lens _dcvMaxRecords (\ s a -> s{_dcvMaxRecords = a})  -- | The specific cluster version to return. Example: @1.0@ dcvClusterVersion :: Lens' DescribeClusterVersions (Maybe Text)-dcvClusterVersion = lens _dcvClusterVersion (\ s a -> s{_dcvClusterVersion = a});+dcvClusterVersion = lens _dcvClusterVersion (\ s a -> s{_dcvClusterVersion = a})  instance AWSPager DescribeClusterVersions where         page rq rs@@ -170,22 +170,22 @@     -> DescribeClusterVersionsResponse describeClusterVersionsResponse pResponseStatus_ =   DescribeClusterVersionsResponse'-  { _dcvrsClusterVersions = Nothing-  , _dcvrsMarker = Nothing-  , _dcvrsResponseStatus = pResponseStatus_-  }+    { _dcvrsClusterVersions = Nothing+    , _dcvrsMarker = Nothing+    , _dcvrsResponseStatus = pResponseStatus_+    }   -- | A list of @Version@ elements. dcvrsClusterVersions :: Lens' DescribeClusterVersionsResponse [ClusterVersion]-dcvrsClusterVersions = lens _dcvrsClusterVersions (\ s a -> s{_dcvrsClusterVersions = a}) . _Default . _Coerce;+dcvrsClusterVersions = lens _dcvrsClusterVersions (\ s a -> s{_dcvrsClusterVersions = a}) . _Default . _Coerce  -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. dcvrsMarker :: Lens' DescribeClusterVersionsResponse (Maybe Text)-dcvrsMarker = lens _dcvrsMarker (\ s a -> s{_dcvrsMarker = a});+dcvrsMarker = lens _dcvrsMarker (\ s a -> s{_dcvrsMarker = a})  -- | -- | The response status code. dcvrsResponseStatus :: Lens' DescribeClusterVersionsResponse Int-dcvrsResponseStatus = lens _dcvrsResponseStatus (\ s a -> s{_dcvrsResponseStatus = a});+dcvrsResponseStatus = lens _dcvrsResponseStatus (\ s a -> s{_dcvrsResponseStatus = a})  instance NFData DescribeClusterVersionsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.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@@ -87,33 +87,33 @@     :: DescribeClusters describeClusters =   DescribeClusters'-  { _dcTagValues = Nothing-  , _dcTagKeys = Nothing-  , _dcClusterIdentifier = Nothing-  , _dcMarker = Nothing-  , _dcMaxRecords = Nothing-  }+    { _dcTagValues = Nothing+    , _dcTagKeys = Nothing+    , _dcClusterIdentifier = Nothing+    , _dcMarker = Nothing+    , _dcMaxRecords = Nothing+    }   -- | A tag value or values for which you want to return all matching clusters that are associated with the specified tag value or values. For example, suppose that you have clusters that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the clusters that have either or both of these tag values associated with them. dcTagValues :: Lens' DescribeClusters [Text]-dcTagValues = lens _dcTagValues (\ s a -> s{_dcTagValues = a}) . _Default . _Coerce;+dcTagValues = lens _dcTagValues (\ s a -> s{_dcTagValues = a}) . _Default . _Coerce  -- | A tag key or keys for which you want to return all matching clusters that are associated with the specified key or keys. For example, suppose that you have clusters that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the clusters that have either or both of these tag keys associated with them. dcTagKeys :: Lens' DescribeClusters [Text]-dcTagKeys = lens _dcTagKeys (\ s a -> s{_dcTagKeys = a}) . _Default . _Coerce;+dcTagKeys = lens _dcTagKeys (\ s a -> s{_dcTagKeys = a}) . _Default . _Coerce  -- | The unique identifier of a cluster whose properties you are requesting. This parameter is case sensitive. The default is that all clusters defined for an account are returned. dcClusterIdentifier :: Lens' DescribeClusters (Maybe Text)-dcClusterIdentifier = lens _dcClusterIdentifier (\ s a -> s{_dcClusterIdentifier = a});+dcClusterIdentifier = lens _dcClusterIdentifier (\ s a -> s{_dcClusterIdentifier = a})  -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeClusters' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.  Constraints: You can specify either the __ClusterIdentifier__ parameter or the __Marker__ parameter, but not both. dcMarker :: Lens' DescribeClusters (Maybe Text)-dcMarker = lens _dcMarker (\ s a -> s{_dcMarker = a});+dcMarker = lens _dcMarker (\ s a -> s{_dcMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. dcMaxRecords :: Lens' DescribeClusters (Maybe Int)-dcMaxRecords = lens _dcMaxRecords (\ s a -> s{_dcMaxRecords = a});+dcMaxRecords = lens _dcMaxRecords (\ s a -> s{_dcMaxRecords = a})  instance AWSPager DescribeClusters where         page rq rs@@ -182,22 +182,22 @@     -> DescribeClustersResponse describeClustersResponse pResponseStatus_ =   DescribeClustersResponse'-  { _dcrsMarker = Nothing-  , _dcrsClusters = Nothing-  , _dcrsResponseStatus = pResponseStatus_-  }+    { _dcrsMarker = Nothing+    , _dcrsClusters = Nothing+    , _dcrsResponseStatus = pResponseStatus_+    }   -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. dcrsMarker :: Lens' DescribeClustersResponse (Maybe Text)-dcrsMarker = lens _dcrsMarker (\ s a -> s{_dcrsMarker = a});+dcrsMarker = lens _dcrsMarker (\ s a -> s{_dcrsMarker = a})  -- | A list of @Cluster@ objects, where each object describes one cluster. 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.Redshift.DescribeDefaultClusterParameters--- 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@@ -77,23 +77,23 @@     -> DescribeDefaultClusterParameters describeDefaultClusterParameters pParameterGroupFamily_ =   DescribeDefaultClusterParameters'-  { _ddcpMarker = Nothing-  , _ddcpMaxRecords = Nothing-  , _ddcpParameterGroupFamily = pParameterGroupFamily_-  }+    { _ddcpMarker = Nothing+    , _ddcpMaxRecords = Nothing+    , _ddcpParameterGroupFamily = pParameterGroupFamily_+    }   -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeDefaultClusterParameters' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. ddcpMarker :: Lens' DescribeDefaultClusterParameters (Maybe Text)-ddcpMarker = lens _ddcpMarker (\ s a -> s{_ddcpMarker = a});+ddcpMarker = lens _ddcpMarker (\ s a -> s{_ddcpMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. ddcpMaxRecords :: Lens' DescribeDefaultClusterParameters (Maybe Int)-ddcpMaxRecords = lens _ddcpMaxRecords (\ s a -> s{_ddcpMaxRecords = a});+ddcpMaxRecords = lens _ddcpMaxRecords (\ s a -> s{_ddcpMaxRecords = a})  -- | The name of the cluster parameter group family. ddcpParameterGroupFamily :: Lens' DescribeDefaultClusterParameters Text-ddcpParameterGroupFamily = lens _ddcpParameterGroupFamily (\ s a -> s{_ddcpParameterGroupFamily = a});+ddcpParameterGroupFamily = lens _ddcpParameterGroupFamily (\ s a -> s{_ddcpParameterGroupFamily = a})  instance AWSPager DescribeDefaultClusterParameters          where@@ -170,18 +170,18 @@     -> DescribeDefaultClusterParametersResponse describeDefaultClusterParametersResponse pResponseStatus_ pDefaultClusterParameters_ =   DescribeDefaultClusterParametersResponse'-  { _ddcprsResponseStatus = pResponseStatus_-  , _ddcprsDefaultClusterParameters = pDefaultClusterParameters_-  }+    { _ddcprsResponseStatus = pResponseStatus_+    , _ddcprsDefaultClusterParameters = pDefaultClusterParameters_+    }   -- | -- | The response status code. ddcprsResponseStatus :: Lens' DescribeDefaultClusterParametersResponse Int-ddcprsResponseStatus = lens _ddcprsResponseStatus (\ s a -> s{_ddcprsResponseStatus = a});+ddcprsResponseStatus = lens _ddcprsResponseStatus (\ s a -> s{_ddcprsResponseStatus = a})  -- | Undocumented member. ddcprsDefaultClusterParameters :: Lens' DescribeDefaultClusterParametersResponse DefaultClusterParameters-ddcprsDefaultClusterParameters = lens _ddcprsDefaultClusterParameters (\ s a -> s{_ddcprsDefaultClusterParameters = a});+ddcprsDefaultClusterParameters = lens _ddcprsDefaultClusterParameters (\ s a -> s{_ddcprsDefaultClusterParameters = a})  instance NFData            DescribeDefaultClusterParametersResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeEventCategories--- 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@@ -66,7 +66,7 @@  -- | The source type, such as cluster or parameter group, to which the described event categories apply. Valid values: cluster, cluster-snapshot, cluster-parameter-group, and cluster-security-group. decSourceType :: Lens' DescribeEventCategories (Maybe Text)-decSourceType = lens _decSourceType (\ s a -> s{_decSourceType = a});+decSourceType = lens _decSourceType (\ s a -> s{_decSourceType = a})  instance AWSRequest DescribeEventCategories where         type Rs DescribeEventCategories =@@ -121,17 +121,17 @@     -> DescribeEventCategoriesResponse describeEventCategoriesResponse pResponseStatus_ =   DescribeEventCategoriesResponse'-  { _decrsEventCategoriesMapList = Nothing-  , _decrsResponseStatus = pResponseStatus_-  }+    { _decrsEventCategoriesMapList = Nothing+    , _decrsResponseStatus = pResponseStatus_+    }   -- | A list of event categories descriptions. decrsEventCategoriesMapList :: Lens' DescribeEventCategoriesResponse [EventCategoriesMap]-decrsEventCategoriesMapList = lens _decrsEventCategoriesMapList (\ s a -> s{_decrsEventCategoriesMapList = a}) . _Default . _Coerce;+decrsEventCategoriesMapList = lens _decrsEventCategoriesMapList (\ s a -> s{_decrsEventCategoriesMapList = a}) . _Default . _Coerce  -- | -- | The response status code. decrsResponseStatus :: Lens' DescribeEventCategoriesResponse Int-decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a});+decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a})  instance NFData DescribeEventCategoriesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeEventSubscriptions--- 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,33 +87,33 @@     :: DescribeEventSubscriptions describeEventSubscriptions =   DescribeEventSubscriptions'-  { _dessSubscriptionName = Nothing-  , _dessTagValues = Nothing-  , _dessTagKeys = Nothing-  , _dessMarker = Nothing-  , _dessMaxRecords = Nothing-  }+    { _dessSubscriptionName = Nothing+    , _dessTagValues = Nothing+    , _dessTagKeys = Nothing+    , _dessMarker = Nothing+    , _dessMaxRecords = Nothing+    }   -- | The name of the Amazon Redshift event notification subscription to be described. dessSubscriptionName :: Lens' DescribeEventSubscriptions (Maybe Text)-dessSubscriptionName = lens _dessSubscriptionName (\ s a -> s{_dessSubscriptionName = a});+dessSubscriptionName = lens _dessSubscriptionName (\ s a -> s{_dessSubscriptionName = a})  -- | A tag value or values for which you want to return all matching event notification subscriptions that are associated with the specified tag value or values. For example, suppose that you have subscriptions that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the subscriptions that have either or both of these tag values associated with them. dessTagValues :: Lens' DescribeEventSubscriptions [Text]-dessTagValues = lens _dessTagValues (\ s a -> s{_dessTagValues = a}) . _Default . _Coerce;+dessTagValues = lens _dessTagValues (\ s a -> s{_dessTagValues = a}) . _Default . _Coerce  -- | A tag key or keys for which you want to return all matching event notification subscriptions that are associated with the specified key or keys. For example, suppose that you have subscriptions that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the subscriptions that have either or both of these tag keys associated with them. dessTagKeys :: Lens' DescribeEventSubscriptions [Text]-dessTagKeys = lens _dessTagKeys (\ s a -> s{_dessTagKeys = a}) . _Default . _Coerce;+dessTagKeys = lens _dessTagKeys (\ s a -> s{_dessTagKeys = a}) . _Default . _Coerce  -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a DescribeEventSubscriptions request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. dessMarker :: Lens' DescribeEventSubscriptions (Maybe Text)-dessMarker = lens _dessMarker (\ s a -> s{_dessMarker = a});+dessMarker = lens _dessMarker (\ s a -> s{_dessMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. dessMaxRecords :: Lens' DescribeEventSubscriptions (Maybe Int)-dessMaxRecords = lens _dessMaxRecords (\ s a -> s{_dessMaxRecords = a});+dessMaxRecords = lens _dessMaxRecords (\ s a -> s{_dessMaxRecords = a})  instance AWSPager DescribeEventSubscriptions where         page rq rs@@ -186,23 +186,23 @@     -> DescribeEventSubscriptionsResponse describeEventSubscriptionsResponse pResponseStatus_ =   DescribeEventSubscriptionsResponse'-  { _desrsEventSubscriptionsList = Nothing-  , _desrsMarker = Nothing-  , _desrsResponseStatus = pResponseStatus_-  }+    { _desrsEventSubscriptionsList = Nothing+    , _desrsMarker = Nothing+    , _desrsResponseStatus = pResponseStatus_+    }   -- | A list of event subscriptions. desrsEventSubscriptionsList :: Lens' DescribeEventSubscriptionsResponse [EventSubscription]-desrsEventSubscriptionsList = lens _desrsEventSubscriptionsList (\ s a -> s{_desrsEventSubscriptionsList = a}) . _Default . _Coerce;+desrsEventSubscriptionsList = lens _desrsEventSubscriptionsList (\ s a -> s{_desrsEventSubscriptionsList = a}) . _Default . _Coerce  -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. desrsMarker :: Lens' DescribeEventSubscriptionsResponse (Maybe Text)-desrsMarker = lens _desrsMarker (\ s a -> s{_desrsMarker = a});+desrsMarker = lens _desrsMarker (\ s a -> s{_desrsMarker = a})  -- | -- | The response status code. desrsResponseStatus :: Lens' DescribeEventSubscriptionsResponse Int-desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a})  instance NFData DescribeEventSubscriptionsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.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@@ -91,43 +91,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. For more information about ISO 8601, go to the <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>  Example: @2009-07-08T18:00Z@ 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. Constraints: If /SourceType/ is supplied, /SourceIdentifier/ must also be provided.     * Specify @cluster@ when /SourceIdentifier/ is a cluster identifier.     * Specify @cluster-security-group@ when /SourceIdentifier/ is a cluster security group name.     * Specify @cluster-parameter-group@ when /SourceIdentifier/ is a cluster parameter group name.     * Specify @cluster-snapshot@ when /SourceIdentifier/ is a cluster snapshot identifier. 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 will be returned. If this parameter is not specified, then all sources are included in the response. Constraints: If /SourceIdentifier/ is supplied, /SourceType/ must also be provided.     * Specify a cluster identifier when /SourceType/ is @cluster@ .     * Specify a cluster security group name when /SourceType/ is @cluster-security-group@ .     * Specify a cluster parameter group name when /SourceType/ is @cluster-parameter-group@ .     * Specify a cluster snapshot identifier when /SourceType/ is @cluster-snapshot@ . deSourceIdentifier :: Lens' DescribeEvents (Maybe Text)-deSourceIdentifier = lens _deSourceIdentifier (\ s a -> s{_deSourceIdentifier = a});+deSourceIdentifier = lens _deSourceIdentifier (\ s a -> s{_deSourceIdentifier = a})  -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeEvents' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. 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 response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  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. For more information about ISO 8601, go to the <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>  Example: @2009-07-08T18:00Z@ 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 prior to the time of the request for which to retrieve events. For example, if the request is sent at 18:00 and you specify a duration of 60, then only events which have occurred after 17:00 will be returned. Default: @60@ 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@@ -195,22 +195,22 @@     -> DescribeEventsResponse describeEventsResponse pResponseStatus_ =   DescribeEventsResponse'-  { _dersEvents = Nothing-  , _dersMarker = Nothing-  , _dersResponseStatus = pResponseStatus_-  }+    { _dersEvents = Nothing+    , _dersMarker = Nothing+    , _dersResponseStatus = pResponseStatus_+    }   -- | A list of @Event@ instances. dersEvents :: Lens' DescribeEventsResponse [Event]-dersEvents = lens _dersEvents (\ s a -> s{_dersEvents = a}) . _Default . _Coerce;+dersEvents = lens _dersEvents (\ s a -> s{_dersEvents = a}) . _Default . _Coerce  -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. 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

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeHSMClientCertificates--- 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,33 +87,33 @@     :: DescribeHSMClientCertificates describeHSMClientCertificates =   DescribeHSMClientCertificates'-  { _dhccTagValues = Nothing-  , _dhccTagKeys = Nothing-  , _dhccHSMClientCertificateIdentifier = Nothing-  , _dhccMarker = Nothing-  , _dhccMaxRecords = Nothing-  }+    { _dhccTagValues = Nothing+    , _dhccTagKeys = Nothing+    , _dhccHSMClientCertificateIdentifier = Nothing+    , _dhccMarker = Nothing+    , _dhccMaxRecords = Nothing+    }   -- | A tag value or values for which you want to return all matching HSM client certificates that are associated with the specified tag value or values. For example, suppose that you have HSM client certificates that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the HSM client certificates that have either or both of these tag values associated with them. dhccTagValues :: Lens' DescribeHSMClientCertificates [Text]-dhccTagValues = lens _dhccTagValues (\ s a -> s{_dhccTagValues = a}) . _Default . _Coerce;+dhccTagValues = lens _dhccTagValues (\ s a -> s{_dhccTagValues = a}) . _Default . _Coerce  -- | A tag key or keys for which you want to return all matching HSM client certificates that are associated with the specified key or keys. For example, suppose that you have HSM client certificates that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the HSM client certificates that have either or both of these tag keys associated with them. dhccTagKeys :: Lens' DescribeHSMClientCertificates [Text]-dhccTagKeys = lens _dhccTagKeys (\ s a -> s{_dhccTagKeys = a}) . _Default . _Coerce;+dhccTagKeys = lens _dhccTagKeys (\ s a -> s{_dhccTagKeys = a}) . _Default . _Coerce  -- | The identifier of a specific HSM client certificate for which you want information. If no identifier is specified, information is returned for all HSM client certificates owned by your AWS customer account. dhccHSMClientCertificateIdentifier :: Lens' DescribeHSMClientCertificates (Maybe Text)-dhccHSMClientCertificateIdentifier = lens _dhccHSMClientCertificateIdentifier (\ s a -> s{_dhccHSMClientCertificateIdentifier = a});+dhccHSMClientCertificateIdentifier = lens _dhccHSMClientCertificateIdentifier (\ s a -> s{_dhccHSMClientCertificateIdentifier = a})  -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeHsmClientCertificates' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. dhccMarker :: Lens' DescribeHSMClientCertificates (Maybe Text)-dhccMarker = lens _dhccMarker (\ s a -> s{_dhccMarker = a});+dhccMarker = lens _dhccMarker (\ s a -> s{_dhccMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. dhccMaxRecords :: Lens' DescribeHSMClientCertificates (Maybe Int)-dhccMaxRecords = lens _dhccMaxRecords (\ s a -> s{_dhccMaxRecords = a});+dhccMaxRecords = lens _dhccMaxRecords (\ s a -> s{_dhccMaxRecords = a})  instance AWSPager DescribeHSMClientCertificates where         page rq rs@@ -189,23 +189,23 @@     -> DescribeHSMClientCertificatesResponse describeHSMClientCertificatesResponse pResponseStatus_ =   DescribeHSMClientCertificatesResponse'-  { _dhccrsMarker = Nothing-  , _dhccrsHSMClientCertificates = Nothing-  , _dhccrsResponseStatus = pResponseStatus_-  }+    { _dhccrsMarker = Nothing+    , _dhccrsHSMClientCertificates = Nothing+    , _dhccrsResponseStatus = pResponseStatus_+    }   -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. dhccrsMarker :: Lens' DescribeHSMClientCertificatesResponse (Maybe Text)-dhccrsMarker = lens _dhccrsMarker (\ s a -> s{_dhccrsMarker = a});+dhccrsMarker = lens _dhccrsMarker (\ s a -> s{_dhccrsMarker = a})  -- | A list of the identifiers for one or more HSM client certificates used by Amazon Redshift clusters to store and retrieve database encryption keys in an HSM. dhccrsHSMClientCertificates :: Lens' DescribeHSMClientCertificatesResponse [HSMClientCertificate]-dhccrsHSMClientCertificates = lens _dhccrsHSMClientCertificates (\ s a -> s{_dhccrsHSMClientCertificates = a}) . _Default . _Coerce;+dhccrsHSMClientCertificates = lens _dhccrsHSMClientCertificates (\ s a -> s{_dhccrsHSMClientCertificates = a}) . _Default . _Coerce  -- | -- | The response status code. dhccrsResponseStatus :: Lens' DescribeHSMClientCertificatesResponse Int-dhccrsResponseStatus = lens _dhccrsResponseStatus (\ s a -> s{_dhccrsResponseStatus = a});+dhccrsResponseStatus = lens _dhccrsResponseStatus (\ s a -> s{_dhccrsResponseStatus = a})  instance NFData DescribeHSMClientCertificatesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeHSMConfigurations--- 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,33 +87,33 @@     :: DescribeHSMConfigurations describeHSMConfigurations =   DescribeHSMConfigurations'-  { _dhsmcTagValues = Nothing-  , _dhsmcHSMConfigurationIdentifier = Nothing-  , _dhsmcTagKeys = Nothing-  , _dhsmcMarker = Nothing-  , _dhsmcMaxRecords = Nothing-  }+    { _dhsmcTagValues = Nothing+    , _dhsmcHSMConfigurationIdentifier = Nothing+    , _dhsmcTagKeys = Nothing+    , _dhsmcMarker = Nothing+    , _dhsmcMaxRecords = Nothing+    }   -- | A tag value or values for which you want to return all matching HSM configurations that are associated with the specified tag value or values. For example, suppose that you have HSM configurations that are tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with the HSM configurations that have either or both of these tag values associated with them. dhsmcTagValues :: Lens' DescribeHSMConfigurations [Text]-dhsmcTagValues = lens _dhsmcTagValues (\ s a -> s{_dhsmcTagValues = a}) . _Default . _Coerce;+dhsmcTagValues = lens _dhsmcTagValues (\ s a -> s{_dhsmcTagValues = a}) . _Default . _Coerce  -- | The identifier of a specific Amazon Redshift HSM configuration to be described. If no identifier is specified, information is returned for all HSM configurations owned by your AWS customer account. dhsmcHSMConfigurationIdentifier :: Lens' DescribeHSMConfigurations (Maybe Text)-dhsmcHSMConfigurationIdentifier = lens _dhsmcHSMConfigurationIdentifier (\ s a -> s{_dhsmcHSMConfigurationIdentifier = a});+dhsmcHSMConfigurationIdentifier = lens _dhsmcHSMConfigurationIdentifier (\ s a -> s{_dhsmcHSMConfigurationIdentifier = a})  -- | A tag key or keys for which you want to return all matching HSM configurations that are associated with the specified key or keys. For example, suppose that you have HSM configurations that are tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with the HSM configurations that have either or both of these tag keys associated with them. dhsmcTagKeys :: Lens' DescribeHSMConfigurations [Text]-dhsmcTagKeys = lens _dhsmcTagKeys (\ s a -> s{_dhsmcTagKeys = a}) . _Default . _Coerce;+dhsmcTagKeys = lens _dhsmcTagKeys (\ s a -> s{_dhsmcTagKeys = a}) . _Default . _Coerce  -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeHsmConfigurations' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. dhsmcMarker :: Lens' DescribeHSMConfigurations (Maybe Text)-dhsmcMarker = lens _dhsmcMarker (\ s a -> s{_dhsmcMarker = a});+dhsmcMarker = lens _dhsmcMarker (\ s a -> s{_dhsmcMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. dhsmcMaxRecords :: Lens' DescribeHSMConfigurations (Maybe Int)-dhsmcMaxRecords = lens _dhsmcMaxRecords (\ s a -> s{_dhsmcMaxRecords = a});+dhsmcMaxRecords = lens _dhsmcMaxRecords (\ s a -> s{_dhsmcMaxRecords = a})  instance AWSPager DescribeHSMConfigurations where         page rq rs@@ -186,23 +186,23 @@     -> DescribeHSMConfigurationsResponse describeHSMConfigurationsResponse pResponseStatus_ =   DescribeHSMConfigurationsResponse'-  { _dhcrsMarker = Nothing-  , _dhcrsHSMConfigurations = Nothing-  , _dhcrsResponseStatus = pResponseStatus_-  }+    { _dhcrsMarker = Nothing+    , _dhcrsHSMConfigurations = Nothing+    , _dhcrsResponseStatus = pResponseStatus_+    }   -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. dhcrsMarker :: Lens' DescribeHSMConfigurationsResponse (Maybe Text)-dhcrsMarker = lens _dhcrsMarker (\ s a -> s{_dhcrsMarker = a});+dhcrsMarker = lens _dhcrsMarker (\ s a -> s{_dhcrsMarker = a})  -- | A list of @HsmConfiguration@ objects. dhcrsHSMConfigurations :: Lens' DescribeHSMConfigurationsResponse [HSMConfiguration]-dhcrsHSMConfigurations = lens _dhcrsHSMConfigurations (\ s a -> s{_dhcrsHSMConfigurations = a}) . _Default . _Coerce;+dhcrsHSMConfigurations = lens _dhcrsHSMConfigurations (\ s a -> s{_dhcrsHSMConfigurations = a}) . _Default . _Coerce  -- | -- | The response status code. dhcrsResponseStatus :: Lens' DescribeHSMConfigurationsResponse Int-dhcrsResponseStatus = lens _dhcrsResponseStatus (\ s a -> s{_dhcrsResponseStatus = a});+dhcrsResponseStatus = lens _dhcrsResponseStatus (\ s a -> s{_dhcrsResponseStatus = a})  instance NFData DescribeHSMConfigurationsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeLoggingStatus--- 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,7 +72,7 @@  -- | The identifier of the cluster from which to get the logging status. Example: @examplecluster@ dlsClusterIdentifier :: Lens' DescribeLoggingStatus Text-dlsClusterIdentifier = lens _dlsClusterIdentifier (\ s a -> s{_dlsClusterIdentifier = a});+dlsClusterIdentifier = lens _dlsClusterIdentifier (\ s a -> s{_dlsClusterIdentifier = a})  instance AWSRequest DescribeLoggingStatus where         type Rs DescribeLoggingStatus = LoggingStatus

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeOrderableClusterOptions--- 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@@ -79,28 +79,28 @@     :: DescribeOrderableClusterOptions describeOrderableClusterOptions =   DescribeOrderableClusterOptions'-  { _docoMarker = Nothing-  , _docoMaxRecords = Nothing-  , _docoClusterVersion = Nothing-  , _docoNodeType = Nothing-  }+    { _docoMarker = Nothing+    , _docoMaxRecords = Nothing+    , _docoClusterVersion = Nothing+    , _docoNodeType = Nothing+    }   -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeOrderableClusterOptions' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. docoMarker :: Lens' DescribeOrderableClusterOptions (Maybe Text)-docoMarker = lens _docoMarker (\ s a -> s{_docoMarker = a});+docoMarker = lens _docoMarker (\ s a -> s{_docoMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. docoMaxRecords :: Lens' DescribeOrderableClusterOptions (Maybe Int)-docoMaxRecords = lens _docoMaxRecords (\ s a -> s{_docoMaxRecords = a});+docoMaxRecords = lens _docoMaxRecords (\ s a -> s{_docoMaxRecords = a})  -- | The version filter value. Specify this parameter to show only the available offerings matching the specified version. Default: All versions. Constraints: Must be one of the version returned from 'DescribeClusterVersions' . docoClusterVersion :: Lens' DescribeOrderableClusterOptions (Maybe Text)-docoClusterVersion = lens _docoClusterVersion (\ s a -> s{_docoClusterVersion = a});+docoClusterVersion = lens _docoClusterVersion (\ s a -> s{_docoClusterVersion = a})  -- | The node type filter value. Specify this parameter to show only the available offerings matching the specified node type. docoNodeType :: Lens' DescribeOrderableClusterOptions (Maybe Text)-docoNodeType = lens _docoNodeType (\ s a -> s{_docoNodeType = a});+docoNodeType = lens _docoNodeType (\ s a -> s{_docoNodeType = a})  instance AWSPager DescribeOrderableClusterOptions          where@@ -176,23 +176,23 @@     -> DescribeOrderableClusterOptionsResponse describeOrderableClusterOptionsResponse pResponseStatus_ =   DescribeOrderableClusterOptionsResponse'-  { _docorsMarker = Nothing-  , _docorsOrderableClusterOptions = Nothing-  , _docorsResponseStatus = pResponseStatus_-  }+    { _docorsMarker = Nothing+    , _docorsOrderableClusterOptions = Nothing+    , _docorsResponseStatus = pResponseStatus_+    }   -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. docorsMarker :: Lens' DescribeOrderableClusterOptionsResponse (Maybe Text)-docorsMarker = lens _docorsMarker (\ s a -> s{_docorsMarker = a});+docorsMarker = lens _docorsMarker (\ s a -> s{_docorsMarker = a})  -- | An @OrderableClusterOption@ structure containing information about orderable options for the cluster. docorsOrderableClusterOptions :: Lens' DescribeOrderableClusterOptionsResponse [OrderableClusterOption]-docorsOrderableClusterOptions = lens _docorsOrderableClusterOptions (\ s a -> s{_docorsOrderableClusterOptions = a}) . _Default . _Coerce;+docorsOrderableClusterOptions = lens _docorsOrderableClusterOptions (\ s a -> s{_docorsOrderableClusterOptions = a}) . _Default . _Coerce  -- | -- | The response status code. docorsResponseStatus :: Lens' DescribeOrderableClusterOptionsResponse Int-docorsResponseStatus = lens _docorsResponseStatus (\ s a -> s{_docorsResponseStatus = a});+docorsResponseStatus = lens _docorsResponseStatus (\ s a -> s{_docorsResponseStatus = a})  instance NFData            DescribeOrderableClusterOptionsResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeReservedNodeOfferings--- 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@@ -77,23 +77,23 @@     :: DescribeReservedNodeOfferings describeReservedNodeOfferings =   DescribeReservedNodeOfferings'-  { _drnoReservedNodeOfferingId = Nothing-  , _drnoMarker = Nothing-  , _drnoMaxRecords = Nothing-  }+    { _drnoReservedNodeOfferingId = Nothing+    , _drnoMarker = Nothing+    , _drnoMaxRecords = Nothing+    }   -- | The unique identifier for the offering. drnoReservedNodeOfferingId :: Lens' DescribeReservedNodeOfferings (Maybe Text)-drnoReservedNodeOfferingId = lens _drnoReservedNodeOfferingId (\ s a -> s{_drnoReservedNodeOfferingId = a});+drnoReservedNodeOfferingId = lens _drnoReservedNodeOfferingId (\ s a -> s{_drnoReservedNodeOfferingId = a})  -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeReservedNodeOfferings' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. drnoMarker :: Lens' DescribeReservedNodeOfferings (Maybe Text)-drnoMarker = lens _drnoMarker (\ s a -> s{_drnoMarker = a});+drnoMarker = lens _drnoMarker (\ s a -> s{_drnoMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. drnoMaxRecords :: Lens' DescribeReservedNodeOfferings (Maybe Int)-drnoMaxRecords = lens _drnoMaxRecords (\ s a -> s{_drnoMaxRecords = a});+drnoMaxRecords = lens _drnoMaxRecords (\ s a -> s{_drnoMaxRecords = a})  instance AWSPager DescribeReservedNodeOfferings where         page rq rs@@ -165,23 +165,23 @@     -> DescribeReservedNodeOfferingsResponse describeReservedNodeOfferingsResponse pResponseStatus_ =   DescribeReservedNodeOfferingsResponse'-  { _drnorsReservedNodeOfferings = Nothing-  , _drnorsMarker = Nothing-  , _drnorsResponseStatus = pResponseStatus_-  }+    { _drnorsReservedNodeOfferings = Nothing+    , _drnorsMarker = Nothing+    , _drnorsResponseStatus = pResponseStatus_+    }   -- | A list of @ReservedNodeOffering@ objects. drnorsReservedNodeOfferings :: Lens' DescribeReservedNodeOfferingsResponse [ReservedNodeOffering]-drnorsReservedNodeOfferings = lens _drnorsReservedNodeOfferings (\ s a -> s{_drnorsReservedNodeOfferings = a}) . _Default . _Coerce;+drnorsReservedNodeOfferings = lens _drnorsReservedNodeOfferings (\ s a -> s{_drnorsReservedNodeOfferings = a}) . _Default . _Coerce  -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. drnorsMarker :: Lens' DescribeReservedNodeOfferingsResponse (Maybe Text)-drnorsMarker = lens _drnorsMarker (\ s a -> s{_drnorsMarker = a});+drnorsMarker = lens _drnorsMarker (\ s a -> s{_drnorsMarker = a})  -- | -- | The response status code. drnorsResponseStatus :: Lens' DescribeReservedNodeOfferingsResponse Int-drnorsResponseStatus = lens _drnorsResponseStatus (\ s a -> s{_drnorsResponseStatus = a});+drnorsResponseStatus = lens _drnorsResponseStatus (\ s a -> s{_drnorsResponseStatus = a})  instance NFData DescribeReservedNodeOfferingsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeReservedNodes--- 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,20 +75,23 @@     :: DescribeReservedNodes describeReservedNodes =   DescribeReservedNodes'-  {_drnReservedNodeId = Nothing, _drnMarker = Nothing, _drnMaxRecords = Nothing}+    { _drnReservedNodeId = Nothing+    , _drnMarker = Nothing+    , _drnMaxRecords = Nothing+    }   -- | Identifier for the node reservation. drnReservedNodeId :: Lens' DescribeReservedNodes (Maybe Text)-drnReservedNodeId = lens _drnReservedNodeId (\ s a -> s{_drnReservedNodeId = a});+drnReservedNodeId = lens _drnReservedNodeId (\ s a -> s{_drnReservedNodeId = a})  -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a 'DescribeReservedNodes' request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request. drnMarker :: Lens' DescribeReservedNodes (Maybe Text)-drnMarker = lens _drnMarker (\ s a -> s{_drnMarker = a});+drnMarker = lens _drnMarker (\ s a -> s{_drnMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. drnMaxRecords :: Lens' DescribeReservedNodes (Maybe Int)-drnMaxRecords = lens _drnMaxRecords (\ s a -> s{_drnMaxRecords = a});+drnMaxRecords = lens _drnMaxRecords (\ s a -> s{_drnMaxRecords = a})  instance AWSPager DescribeReservedNodes where         page rq rs@@ -155,22 +158,22 @@     -> DescribeReservedNodesResponse describeReservedNodesResponse pResponseStatus_ =   DescribeReservedNodesResponse'-  { _drnrsReservedNodes = Nothing-  , _drnrsMarker = Nothing-  , _drnrsResponseStatus = pResponseStatus_-  }+    { _drnrsReservedNodes = Nothing+    , _drnrsMarker = Nothing+    , _drnrsResponseStatus = pResponseStatus_+    }   -- | The list of @ReservedNode@ objects. drnrsReservedNodes :: Lens' DescribeReservedNodesResponse [ReservedNode]-drnrsReservedNodes = lens _drnrsReservedNodes (\ s a -> s{_drnrsReservedNodes = a}) . _Default . _Coerce;+drnrsReservedNodes = lens _drnrsReservedNodes (\ s a -> s{_drnrsReservedNodes = a}) . _Default . _Coerce  -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. drnrsMarker :: Lens' DescribeReservedNodesResponse (Maybe Text)-drnrsMarker = lens _drnrsMarker (\ s a -> s{_drnrsMarker = a});+drnrsMarker = lens _drnrsMarker (\ s a -> s{_drnrsMarker = a})  -- | -- | The response status code. drnrsResponseStatus :: Lens' DescribeReservedNodesResponse Int-drnrsResponseStatus = lens _drnrsResponseStatus (\ s a -> s{_drnrsResponseStatus = a});+drnrsResponseStatus = lens _drnrsResponseStatus (\ s a -> s{_drnrsResponseStatus = a})  instance NFData DescribeReservedNodesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeResize--- 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,7 +81,7 @@  -- | The unique identifier of a cluster whose resize progress you are requesting. This parameter is case-sensitive. By default, resize operations for all clusters defined for an AWS account are returned. drClusterIdentifier :: Lens' DescribeResize Text-drClusterIdentifier = lens _drClusterIdentifier (\ s a -> s{_drClusterIdentifier = a});+drClusterIdentifier = lens _drClusterIdentifier (\ s a -> s{_drClusterIdentifier = a})  instance AWSRequest DescribeResize where         type Rs DescribeResize = DescribeResizeResponse@@ -182,72 +182,72 @@     -> DescribeResizeResponse describeResizeResponse pResponseStatus_ =   DescribeResizeResponse'-  { _drrsImportTablesNotStarted = Nothing-  , _drrsStatus = Nothing-  , _drrsEstimatedTimeToCompletionInSeconds = Nothing-  , _drrsAvgResizeRateInMegaBytesPerSecond = Nothing-  , _drrsTargetNumberOfNodes = Nothing-  , _drrsTargetNodeType = Nothing-  , _drrsImportTablesInProgress = Nothing-  , _drrsImportTablesCompleted = Nothing-  , _drrsProgressInMegaBytes = Nothing-  , _drrsTotalResizeDataInMegaBytes = Nothing-  , _drrsTargetClusterType = Nothing-  , _drrsElapsedTimeInSeconds = Nothing-  , _drrsResponseStatus = pResponseStatus_-  }+    { _drrsImportTablesNotStarted = Nothing+    , _drrsStatus = Nothing+    , _drrsEstimatedTimeToCompletionInSeconds = Nothing+    , _drrsAvgResizeRateInMegaBytesPerSecond = Nothing+    , _drrsTargetNumberOfNodes = Nothing+    , _drrsTargetNodeType = Nothing+    , _drrsImportTablesInProgress = Nothing+    , _drrsImportTablesCompleted = Nothing+    , _drrsProgressInMegaBytes = Nothing+    , _drrsTotalResizeDataInMegaBytes = Nothing+    , _drrsTargetClusterType = Nothing+    , _drrsElapsedTimeInSeconds = Nothing+    , _drrsResponseStatus = pResponseStatus_+    }   -- | The names of tables that have not been yet imported. Valid Values: List of table names drrsImportTablesNotStarted :: Lens' DescribeResizeResponse [Text]-drrsImportTablesNotStarted = lens _drrsImportTablesNotStarted (\ s a -> s{_drrsImportTablesNotStarted = a}) . _Default . _Coerce;+drrsImportTablesNotStarted = lens _drrsImportTablesNotStarted (\ s a -> s{_drrsImportTablesNotStarted = a}) . _Default . _Coerce  -- | The status of the resize operation. Valid Values: @NONE@ | @IN_PROGRESS@ | @FAILED@ | @SUCCEEDED@ drrsStatus :: Lens' DescribeResizeResponse (Maybe Text)-drrsStatus = lens _drrsStatus (\ s a -> s{_drrsStatus = a});+drrsStatus = lens _drrsStatus (\ s a -> s{_drrsStatus = a})  -- | The estimated time remaining, in seconds, until the resize operation is complete. This value is calculated based on the average resize rate and the estimated amount of data remaining to be processed. Once the resize operation is complete, this value will be 0. drrsEstimatedTimeToCompletionInSeconds :: Lens' DescribeResizeResponse (Maybe Integer)-drrsEstimatedTimeToCompletionInSeconds = lens _drrsEstimatedTimeToCompletionInSeconds (\ s a -> s{_drrsEstimatedTimeToCompletionInSeconds = a});+drrsEstimatedTimeToCompletionInSeconds = lens _drrsEstimatedTimeToCompletionInSeconds (\ s a -> s{_drrsEstimatedTimeToCompletionInSeconds = a})  -- | The average rate of the resize operation over the last few minutes, measured in megabytes per second. After the resize operation completes, this value shows the average rate of the entire resize operation. drrsAvgResizeRateInMegaBytesPerSecond :: Lens' DescribeResizeResponse (Maybe Double)-drrsAvgResizeRateInMegaBytesPerSecond = lens _drrsAvgResizeRateInMegaBytesPerSecond (\ s a -> s{_drrsAvgResizeRateInMegaBytesPerSecond = a});+drrsAvgResizeRateInMegaBytesPerSecond = lens _drrsAvgResizeRateInMegaBytesPerSecond (\ s a -> s{_drrsAvgResizeRateInMegaBytesPerSecond = a})  -- | The number of nodes that the cluster will have after the resize operation is complete. drrsTargetNumberOfNodes :: Lens' DescribeResizeResponse (Maybe Int)-drrsTargetNumberOfNodes = lens _drrsTargetNumberOfNodes (\ s a -> s{_drrsTargetNumberOfNodes = a});+drrsTargetNumberOfNodes = lens _drrsTargetNumberOfNodes (\ s a -> s{_drrsTargetNumberOfNodes = a})  -- | The node type that the cluster will have after the resize operation is complete. drrsTargetNodeType :: Lens' DescribeResizeResponse (Maybe Text)-drrsTargetNodeType = lens _drrsTargetNodeType (\ s a -> s{_drrsTargetNodeType = a});+drrsTargetNodeType = lens _drrsTargetNodeType (\ s a -> s{_drrsTargetNodeType = a})  -- | The names of tables that are being currently imported. Valid Values: List of table names. drrsImportTablesInProgress :: Lens' DescribeResizeResponse [Text]-drrsImportTablesInProgress = lens _drrsImportTablesInProgress (\ s a -> s{_drrsImportTablesInProgress = a}) . _Default . _Coerce;+drrsImportTablesInProgress = lens _drrsImportTablesInProgress (\ s a -> s{_drrsImportTablesInProgress = a}) . _Default . _Coerce  -- | The names of tables that have been completely imported . Valid Values: List of table names. drrsImportTablesCompleted :: Lens' DescribeResizeResponse [Text]-drrsImportTablesCompleted = lens _drrsImportTablesCompleted (\ s a -> s{_drrsImportTablesCompleted = a}) . _Default . _Coerce;+drrsImportTablesCompleted = lens _drrsImportTablesCompleted (\ s a -> s{_drrsImportTablesCompleted = a}) . _Default . _Coerce  -- | While the resize operation is in progress, this value shows the current amount of data, in megabytes, that has been processed so far. When the resize operation is complete, this value shows the total amount of data, in megabytes, on the cluster, which may be more or less than TotalResizeDataInMegaBytes (the estimated total amount of data before resize). drrsProgressInMegaBytes :: Lens' DescribeResizeResponse (Maybe Integer)-drrsProgressInMegaBytes = lens _drrsProgressInMegaBytes (\ s a -> s{_drrsProgressInMegaBytes = a});+drrsProgressInMegaBytes = lens _drrsProgressInMegaBytes (\ s a -> s{_drrsProgressInMegaBytes = a})  -- | The estimated total amount of data, in megabytes, on the cluster before the resize operation began. drrsTotalResizeDataInMegaBytes :: Lens' DescribeResizeResponse (Maybe Integer)-drrsTotalResizeDataInMegaBytes = lens _drrsTotalResizeDataInMegaBytes (\ s a -> s{_drrsTotalResizeDataInMegaBytes = a});+drrsTotalResizeDataInMegaBytes = lens _drrsTotalResizeDataInMegaBytes (\ s a -> s{_drrsTotalResizeDataInMegaBytes = a})  -- | The cluster type after the resize operation is complete. Valid Values: @multi-node@ | @single-node@ drrsTargetClusterType :: Lens' DescribeResizeResponse (Maybe Text)-drrsTargetClusterType = lens _drrsTargetClusterType (\ s a -> s{_drrsTargetClusterType = a});+drrsTargetClusterType = lens _drrsTargetClusterType (\ s a -> s{_drrsTargetClusterType = a})  -- | The amount of seconds that have elapsed since the resize operation began. After the resize operation completes, this value shows the total actual time, in seconds, for the resize operation. drrsElapsedTimeInSeconds :: Lens' DescribeResizeResponse (Maybe Integer)-drrsElapsedTimeInSeconds = lens _drrsElapsedTimeInSeconds (\ s a -> s{_drrsElapsedTimeInSeconds = a});+drrsElapsedTimeInSeconds = lens _drrsElapsedTimeInSeconds (\ s a -> s{_drrsElapsedTimeInSeconds = a})  -- | -- | The response status code. drrsResponseStatus :: Lens' DescribeResizeResponse Int-drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});+drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})  instance NFData DescribeResizeResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeSnapshotCopyGrants--- 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,33 +82,33 @@     :: DescribeSnapshotCopyGrants describeSnapshotCopyGrants =   DescribeSnapshotCopyGrants'-  { _dscgsTagValues = Nothing-  , _dscgsTagKeys = Nothing-  , _dscgsMarker = Nothing-  , _dscgsMaxRecords = Nothing-  , _dscgsSnapshotCopyGrantName = Nothing-  }+    { _dscgsTagValues = Nothing+    , _dscgsTagKeys = Nothing+    , _dscgsMarker = Nothing+    , _dscgsMaxRecords = Nothing+    , _dscgsSnapshotCopyGrantName = Nothing+    }   -- | A tag value or values for which you want to return all matching resources that are associated with the specified value or values. For example, suppose that you have resources tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with all resources that have either or both of these tag values associated with them. dscgsTagValues :: Lens' DescribeSnapshotCopyGrants [Text]-dscgsTagValues = lens _dscgsTagValues (\ s a -> s{_dscgsTagValues = a}) . _Default . _Coerce;+dscgsTagValues = lens _dscgsTagValues (\ s a -> s{_dscgsTagValues = a}) . _Default . _Coerce  -- | A tag key or keys for which you want to return all matching resources that are associated with the specified key or keys. For example, suppose that you have resources tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with all resources that have either or both of these tag keys associated with them. dscgsTagKeys :: Lens' DescribeSnapshotCopyGrants [Text]-dscgsTagKeys = lens _dscgsTagKeys (\ s a -> s{_dscgsTagKeys = a}) . _Default . _Coerce;+dscgsTagKeys = lens _dscgsTagKeys (\ s a -> s{_dscgsTagKeys = a}) . _Default . _Coerce  -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a @DescribeSnapshotCopyGrant@ request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.  Constraints: You can specify either the __SnapshotCopyGrantName__ parameter or the __Marker__ parameter, but not both. dscgsMarker :: Lens' DescribeSnapshotCopyGrants (Maybe Text)-dscgsMarker = lens _dscgsMarker (\ s a -> s{_dscgsMarker = a});+dscgsMarker = lens _dscgsMarker (\ s a -> s{_dscgsMarker = a})  -- | The maximum number of response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned marker value.  Default: @100@  Constraints: minimum 20, maximum 100. dscgsMaxRecords :: Lens' DescribeSnapshotCopyGrants (Maybe Int)-dscgsMaxRecords = lens _dscgsMaxRecords (\ s a -> s{_dscgsMaxRecords = a});+dscgsMaxRecords = lens _dscgsMaxRecords (\ s a -> s{_dscgsMaxRecords = a})  -- | The name of the snapshot copy grant. dscgsSnapshotCopyGrantName :: Lens' DescribeSnapshotCopyGrants (Maybe Text)-dscgsSnapshotCopyGrantName = lens _dscgsSnapshotCopyGrantName (\ s a -> s{_dscgsSnapshotCopyGrantName = a});+dscgsSnapshotCopyGrantName = lens _dscgsSnapshotCopyGrantName (\ s a -> s{_dscgsSnapshotCopyGrantName = a})  instance AWSRequest DescribeSnapshotCopyGrants where         type Rs DescribeSnapshotCopyGrants =@@ -175,23 +175,23 @@     -> DescribeSnapshotCopyGrantsResponse describeSnapshotCopyGrantsResponse pResponseStatus_ =   DescribeSnapshotCopyGrantsResponse'-  { _dscgrsSnapshotCopyGrants = Nothing-  , _dscgrsMarker = Nothing-  , _dscgrsResponseStatus = pResponseStatus_-  }+    { _dscgrsSnapshotCopyGrants = Nothing+    , _dscgrsMarker = Nothing+    , _dscgrsResponseStatus = pResponseStatus_+    }   -- | The list of @SnapshotCopyGrant@ objects. dscgrsSnapshotCopyGrants :: Lens' DescribeSnapshotCopyGrantsResponse [SnapshotCopyGrant]-dscgrsSnapshotCopyGrants = lens _dscgrsSnapshotCopyGrants (\ s a -> s{_dscgrsSnapshotCopyGrants = a}) . _Default . _Coerce;+dscgrsSnapshotCopyGrants = lens _dscgrsSnapshotCopyGrants (\ s a -> s{_dscgrsSnapshotCopyGrants = a}) . _Default . _Coerce  -- | An optional parameter that specifies the starting point to return a set of response records. When the results of a @DescribeSnapshotCopyGrant@ request exceed the value specified in @MaxRecords@ , AWS returns a value in the @Marker@ field of the response. You can retrieve the next set of response records by providing the returned marker value in the @Marker@ parameter and retrying the request.  Constraints: You can specify either the __SnapshotCopyGrantName__ parameter or the __Marker__ parameter, but not both. dscgrsMarker :: Lens' DescribeSnapshotCopyGrantsResponse (Maybe Text)-dscgrsMarker = lens _dscgrsMarker (\ s a -> s{_dscgrsMarker = a});+dscgrsMarker = lens _dscgrsMarker (\ s a -> s{_dscgrsMarker = a})  -- | -- | The response status code. dscgrsResponseStatus :: Lens' DescribeSnapshotCopyGrantsResponse Int-dscgrsResponseStatus = lens _dscgrsResponseStatus (\ s a -> s{_dscgrsResponseStatus = a});+dscgrsResponseStatus = lens _dscgrsResponseStatus (\ s a -> s{_dscgrsResponseStatus = a})  instance NFData DescribeSnapshotCopyGrantsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeTableRestoreStatus--- 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,28 +76,28 @@     :: DescribeTableRestoreStatus describeTableRestoreStatus =   DescribeTableRestoreStatus'-  { _dtrssTableRestoreRequestId = Nothing-  , _dtrssClusterIdentifier = Nothing-  , _dtrssMarker = Nothing-  , _dtrssMaxRecords = Nothing-  }+    { _dtrssTableRestoreRequestId = Nothing+    , _dtrssClusterIdentifier = Nothing+    , _dtrssMarker = Nothing+    , _dtrssMaxRecords = Nothing+    }   -- | The identifier of the table restore request to return status for. If you don't specify a @TableRestoreRequestId@ value, then @DescribeTableRestoreStatus@ returns the status of all in-progress table restore requests. dtrssTableRestoreRequestId :: Lens' DescribeTableRestoreStatus (Maybe Text)-dtrssTableRestoreRequestId = lens _dtrssTableRestoreRequestId (\ s a -> s{_dtrssTableRestoreRequestId = a});+dtrssTableRestoreRequestId = lens _dtrssTableRestoreRequestId (\ s a -> s{_dtrssTableRestoreRequestId = a})  -- | The Amazon Redshift cluster that the table is being restored to. dtrssClusterIdentifier :: Lens' DescribeTableRestoreStatus (Maybe Text)-dtrssClusterIdentifier = lens _dtrssClusterIdentifier (\ s a -> s{_dtrssClusterIdentifier = a});+dtrssClusterIdentifier = lens _dtrssClusterIdentifier (\ s a -> s{_dtrssClusterIdentifier = a})  -- | An optional pagination token provided by a previous @DescribeTableRestoreStatus@ request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by the @MaxRecords@ parameter. dtrssMarker :: Lens' DescribeTableRestoreStatus (Maybe Text)-dtrssMarker = lens _dtrssMarker (\ s a -> s{_dtrssMarker = a});+dtrssMarker = lens _dtrssMarker (\ s a -> s{_dtrssMarker = a})  -- | The maximum number of records to include in the response. If more records exist than the specified @MaxRecords@ value, a pagination token called a marker is included in the response so that the remaining results can be retrieved. dtrssMaxRecords :: Lens' DescribeTableRestoreStatus (Maybe Int)-dtrssMaxRecords = lens _dtrssMaxRecords (\ s a -> s{_dtrssMaxRecords = a});+dtrssMaxRecords = lens _dtrssMaxRecords (\ s a -> s{_dtrssMaxRecords = a})  instance AWSRequest DescribeTableRestoreStatus where         type Rs DescribeTableRestoreStatus =@@ -161,23 +161,23 @@     -> DescribeTableRestoreStatusResponse describeTableRestoreStatusResponse pResponseStatus_ =   DescribeTableRestoreStatusResponse'-  { _dtrsrsMarker = Nothing-  , _dtrsrsTableRestoreStatusDetails = Nothing-  , _dtrsrsResponseStatus = pResponseStatus_-  }+    { _dtrsrsMarker = Nothing+    , _dtrsrsTableRestoreStatusDetails = Nothing+    , _dtrsrsResponseStatus = pResponseStatus_+    }   -- | A pagination token that can be used in a subsequent 'DescribeTableRestoreStatus' request. dtrsrsMarker :: Lens' DescribeTableRestoreStatusResponse (Maybe Text)-dtrsrsMarker = lens _dtrsrsMarker (\ s a -> s{_dtrsrsMarker = a});+dtrsrsMarker = lens _dtrsrsMarker (\ s a -> s{_dtrsrsMarker = a})  -- | A list of status details for one or more table restore requests. dtrsrsTableRestoreStatusDetails :: Lens' DescribeTableRestoreStatusResponse [TableRestoreStatus]-dtrsrsTableRestoreStatusDetails = lens _dtrsrsTableRestoreStatusDetails (\ s a -> s{_dtrsrsTableRestoreStatusDetails = a}) . _Default . _Coerce;+dtrsrsTableRestoreStatusDetails = lens _dtrsrsTableRestoreStatusDetails (\ s a -> s{_dtrsrsTableRestoreStatusDetails = a}) . _Default . _Coerce  -- | -- | The response status code. dtrsrsResponseStatus :: Lens' DescribeTableRestoreStatusResponse Int-dtrsrsResponseStatus = lens _dtrsrsResponseStatus (\ s a -> s{_dtrsrsResponseStatus = a});+dtrsrsResponseStatus = lens _dtrsrsResponseStatus (\ s a -> s{_dtrsrsResponseStatus = a})  instance NFData DescribeTableRestoreStatusResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DescribeTags--- 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@@ -98,38 +98,38 @@     :: DescribeTags describeTags =   DescribeTags'-  { _dtTagValues = Nothing-  , _dtResourceType = Nothing-  , _dtResourceName = Nothing-  , _dtTagKeys = Nothing-  , _dtMarker = Nothing-  , _dtMaxRecords = Nothing-  }+    { _dtTagValues = Nothing+    , _dtResourceType = Nothing+    , _dtResourceName = Nothing+    , _dtTagKeys = Nothing+    , _dtMarker = Nothing+    , _dtMaxRecords = Nothing+    }   -- | A tag value or values for which you want to return all matching resources that are associated with the specified value or values. For example, suppose that you have resources tagged with values called @admin@ and @test@ . If you specify both of these tag values in the request, Amazon Redshift returns a response with all resources that have either or both of these tag values associated with them. dtTagValues :: Lens' DescribeTags [Text]-dtTagValues = lens _dtTagValues (\ s a -> s{_dtTagValues = a}) . _Default . _Coerce;+dtTagValues = lens _dtTagValues (\ s a -> s{_dtTagValues = a}) . _Default . _Coerce  -- | The type of resource with which you want to view tags. Valid resource types are:      * Cluster     * CIDR/IP     * EC2 security group     * Snapshot     * Cluster security group     * Subnet group     * HSM connection     * HSM certificate     * Parameter group     * Snapshot copy grant For more information about Amazon Redshift resource types and constructing ARNs, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Specifying Policy Elements: Actions, Effects, Resources, and Principals> in the Amazon Redshift Cluster Management Guide. dtResourceType :: Lens' DescribeTags (Maybe Text)-dtResourceType = lens _dtResourceType (\ s a -> s{_dtResourceType = a});+dtResourceType = lens _dtResourceType (\ s a -> s{_dtResourceType = a})  -- | The Amazon Resource Name (ARN) for which you want to describe the tag or tags. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ . dtResourceName :: Lens' DescribeTags (Maybe Text)-dtResourceName = lens _dtResourceName (\ s a -> s{_dtResourceName = a});+dtResourceName = lens _dtResourceName (\ s a -> s{_dtResourceName = a})  -- | A tag key or keys for which you want to return all matching resources that are associated with the specified key or keys. For example, suppose that you have resources tagged with keys called @owner@ and @environment@ . If you specify both of these tag keys in the request, Amazon Redshift returns a response with all resources that have either or both of these tag keys associated with them. dtTagKeys :: Lens' DescribeTags [Text]-dtTagKeys = lens _dtTagKeys (\ s a -> s{_dtTagKeys = a}) . _Default . _Coerce;+dtTagKeys = lens _dtTagKeys (\ s a -> s{_dtTagKeys = a}) . _Default . _Coerce  -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @marker@ parameter and retrying the command. If the @marker@ field is empty, all response records have been retrieved for the request. dtMarker :: Lens' DescribeTags (Maybe Text)-dtMarker = lens _dtMarker (\ s a -> s{_dtMarker = a});+dtMarker = lens _dtMarker (\ s a -> s{_dtMarker = a})  -- | The maximum number or response records to return in each call. If the number of remaining response records exceeds the specified @MaxRecords@ value, a value is returned in a @marker@ field of the response. You can retrieve the next set of records by retrying the command with the returned @marker@ value. dtMaxRecords :: Lens' DescribeTags (Maybe Int)-dtMaxRecords = lens _dtMaxRecords (\ s a -> s{_dtMaxRecords = a});+dtMaxRecords = lens _dtMaxRecords (\ s a -> s{_dtMaxRecords = a})  instance AWSRequest DescribeTags where         type Rs DescribeTags = DescribeTagsResponse@@ -192,22 +192,22 @@     -> DescribeTagsResponse describeTagsResponse pResponseStatus_ =   DescribeTagsResponse'-  { _dtrsMarker = Nothing-  , _dtrsTaggedResources = Nothing-  , _dtrsResponseStatus = pResponseStatus_-  }+    { _dtrsMarker = Nothing+    , _dtrsTaggedResources = Nothing+    , _dtrsResponseStatus = pResponseStatus_+    }   -- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request. dtrsMarker :: Lens' DescribeTagsResponse (Maybe Text)-dtrsMarker = lens _dtrsMarker (\ s a -> s{_dtrsMarker = a});+dtrsMarker = lens _dtrsMarker (\ s a -> s{_dtrsMarker = a})  -- | A list of tags with their associated resources. dtrsTaggedResources :: Lens' DescribeTagsResponse [TaggedResource]-dtrsTaggedResources = lens _dtrsTaggedResources (\ s a -> s{_dtrsTaggedResources = a}) . _Default . _Coerce;+dtrsTaggedResources = lens _dtrsTaggedResources (\ s a -> s{_dtrsTaggedResources = a}) . _Default . _Coerce  -- | -- | The response status code. dtrsResponseStatus :: Lens' DescribeTagsResponse Int-dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a})  instance NFData DescribeTagsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DisableLogging--- 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,7 +72,7 @@  -- | The identifier of the cluster on which logging is to be stopped. Example: @examplecluster@ dlClusterIdentifier :: Lens' DisableLogging Text-dlClusterIdentifier = lens _dlClusterIdentifier (\ s a -> s{_dlClusterIdentifier = a});+dlClusterIdentifier = lens _dlClusterIdentifier (\ s a -> s{_dlClusterIdentifier = a})  instance AWSRequest DisableLogging where         type Rs DisableLogging = LoggingStatus

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.DisableSnapshotCopy--- 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@@ -70,7 +70,7 @@  -- | The unique identifier of the source cluster that you want to disable copying of snapshots to a destination region. Constraints: Must be the valid name of an existing cluster that has cross-region snapshot copy enabled. dscClusterIdentifier :: Lens' DisableSnapshotCopy Text-dscClusterIdentifier = lens _dscClusterIdentifier (\ s a -> s{_dscClusterIdentifier = a});+dscClusterIdentifier = lens _dscClusterIdentifier (\ s a -> s{_dscClusterIdentifier = a})  instance AWSRequest DisableSnapshotCopy where         type Rs DisableSnapshotCopy =@@ -118,15 +118,15 @@     -> DisableSnapshotCopyResponse disableSnapshotCopyResponse pResponseStatus_ =   DisableSnapshotCopyResponse'-  {_dscrsCluster = Nothing, _dscrsResponseStatus = pResponseStatus_}+    {_dscrsCluster = Nothing, _dscrsResponseStatus = pResponseStatus_}   -- | Undocumented member. dscrsCluster :: Lens' DisableSnapshotCopyResponse (Maybe Cluster)-dscrsCluster = lens _dscrsCluster (\ s a -> s{_dscrsCluster = a});+dscrsCluster = lens _dscrsCluster (\ s a -> s{_dscrsCluster = a})  -- | -- | The response status code. dscrsResponseStatus :: Lens' DisableSnapshotCopyResponse Int-dscrsResponseStatus = lens _dscrsResponseStatus (\ s a -> s{_dscrsResponseStatus = a});+dscrsResponseStatus = lens _dscrsResponseStatus (\ s a -> s{_dscrsResponseStatus = a})  instance NFData DisableSnapshotCopyResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.EnableLogging--- 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@@ -77,23 +77,23 @@     -> EnableLogging enableLogging pClusterIdentifier_ pBucketName_ =   EnableLogging'-  { _elS3KeyPrefix = Nothing-  , _elClusterIdentifier = pClusterIdentifier_-  , _elBucketName = pBucketName_-  }+    { _elS3KeyPrefix = Nothing+    , _elClusterIdentifier = pClusterIdentifier_+    , _elBucketName = pBucketName_+    }   -- | The prefix applied to the log file names. Constraints:     * Cannot exceed 512 characters     * Cannot contain spaces( ), double quotes ("), single quotes ('), a backslash (\), or control characters. The hexadecimal codes for invalid characters are:      * x00 to x20     * x22     * x27     * x5c     * x7f or larger elS3KeyPrefix :: Lens' EnableLogging (Maybe Text)-elS3KeyPrefix = lens _elS3KeyPrefix (\ s a -> s{_elS3KeyPrefix = a});+elS3KeyPrefix = lens _elS3KeyPrefix (\ s a -> s{_elS3KeyPrefix = a})  -- | The identifier of the cluster on which logging is to be started. Example: @examplecluster@ elClusterIdentifier :: Lens' EnableLogging Text-elClusterIdentifier = lens _elClusterIdentifier (\ s a -> s{_elClusterIdentifier = a});+elClusterIdentifier = lens _elClusterIdentifier (\ s a -> s{_elClusterIdentifier = a})  -- | The name of an existing S3 bucket where the log files are to be stored. Constraints:     * Must be in the same region as the cluster     * The cluster must have read bucket and put object permissions elBucketName :: Lens' EnableLogging Text-elBucketName = lens _elBucketName (\ s a -> s{_elBucketName = a});+elBucketName = lens _elBucketName (\ s a -> s{_elBucketName = a})  instance AWSRequest EnableLogging where         type Rs EnableLogging = LoggingStatus

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.EnableSnapshotCopy--- 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@@ -77,28 +77,28 @@     -> EnableSnapshotCopy enableSnapshotCopy pClusterIdentifier_ pDestinationRegion_ =   EnableSnapshotCopy'-  { _escRetentionPeriod = Nothing-  , _escSnapshotCopyGrantName = Nothing-  , _escClusterIdentifier = pClusterIdentifier_-  , _escDestinationRegion = pDestinationRegion_-  }+    { _escRetentionPeriod = Nothing+    , _escSnapshotCopyGrantName = Nothing+    , _escClusterIdentifier = pClusterIdentifier_+    , _escDestinationRegion = pDestinationRegion_+    }   -- | The number of days to retain automated snapshots in the destination region after they are copied from the source region. Default: 7. Constraints: Must be at least 1 and no more than 35. escRetentionPeriod :: Lens' EnableSnapshotCopy (Maybe Int)-escRetentionPeriod = lens _escRetentionPeriod (\ s a -> s{_escRetentionPeriod = a});+escRetentionPeriod = lens _escRetentionPeriod (\ s a -> s{_escRetentionPeriod = a})  -- | The name of the snapshot copy grant to use when snapshots of an AWS KMS-encrypted cluster are copied to the destination region. escSnapshotCopyGrantName :: Lens' EnableSnapshotCopy (Maybe Text)-escSnapshotCopyGrantName = lens _escSnapshotCopyGrantName (\ s a -> s{_escSnapshotCopyGrantName = a});+escSnapshotCopyGrantName = lens _escSnapshotCopyGrantName (\ s a -> s{_escSnapshotCopyGrantName = a})  -- | The unique identifier of the source cluster to copy snapshots from. Constraints: Must be the valid name of an existing cluster that does not already have cross-region snapshot copy enabled. escClusterIdentifier :: Lens' EnableSnapshotCopy Text-escClusterIdentifier = lens _escClusterIdentifier (\ s a -> s{_escClusterIdentifier = a});+escClusterIdentifier = lens _escClusterIdentifier (\ s a -> s{_escClusterIdentifier = a})  -- | The destination region that you want to copy snapshots to. Constraints: Must be the name of a valid region. For more information, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#redshift_region Regions and Endpoints> in the Amazon Web Services General Reference. escDestinationRegion :: Lens' EnableSnapshotCopy Text-escDestinationRegion = lens _escDestinationRegion (\ s a -> s{_escDestinationRegion = a});+escDestinationRegion = lens _escDestinationRegion (\ s a -> s{_escDestinationRegion = a})  instance AWSRequest EnableSnapshotCopy where         type Rs EnableSnapshotCopy =@@ -149,15 +149,15 @@     -> EnableSnapshotCopyResponse enableSnapshotCopyResponse pResponseStatus_ =   EnableSnapshotCopyResponse'-  {_escrsCluster = Nothing, _escrsResponseStatus = pResponseStatus_}+    {_escrsCluster = Nothing, _escrsResponseStatus = pResponseStatus_}   -- | Undocumented member. escrsCluster :: Lens' EnableSnapshotCopyResponse (Maybe Cluster)-escrsCluster = lens _escrsCluster (\ s a -> s{_escrsCluster = a});+escrsCluster = lens _escrsCluster (\ s a -> s{_escrsCluster = a})  -- | -- | The response status code. escrsResponseStatus :: Lens' EnableSnapshotCopyResponse Int-escrsResponseStatus = lens _escrsResponseStatus (\ s a -> s{_escrsResponseStatus = a});+escrsResponseStatus = lens _escrsResponseStatus (\ s a -> s{_escrsResponseStatus = a})  instance NFData EnableSnapshotCopyResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.GetClusterCredentials--- 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,7 +86,7 @@ -- -- * 'gccDBName' - The name of a database that @DbUser@ is authorized to log on to. If @DbName@ is not specified, @DbUser@ can log on to any existing database. Constraints:     * Must be 1 to 64 alphanumeric characters or hyphens     * Must contain only lowercase letters, numbers, underscore, plus sign, period (dot), at symbol (@), or hyphen.     * First character must be a letter.     * Must not contain a colon ( : ) or slash ( / ).      * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide. ----- * 'gccDBUser' - The name of a database user. If a user name matching @DbUser@ exists in the database, the temporary user credentials have the same permissions as the existing user. If @DbUser@ doesn't exist in the database and @Autocreate@ is @True@ , a new user is created using the value for @DbUser@ with PUBLIC permissions. If a database user matching the value for @DbUser@ doesn't exist and @Autocreate@ is @False@ , then the command succeeds but the connection attempt will fail because the user doesn't exist in the database. For more information, see <http://docs.aws.amazon.com/redshift/latest/dg/r_CREATE_USER.html CREATE USER> in the Amazon Redshift Database Developer Guide.  Constraints:     * Must be 1 to 64 alphanumeric characters or hyphens     * Must contain only lowercase letters, numbers, underscore, plus sign, period (dot), at symbol (@), or hyphen.     * First character must be a letter.     * Must not contain a colon ( : ) or slash ( / ).      * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide.+-- * 'gccDBUser' - The name of a database user. If a user name matching @DbUser@ exists in the database, the temporary user credentials have the same permissions as the existing user. If @DbUser@ doesn't exist in the database and @Autocreate@ is @True@ , a new user is created using the value for @DbUser@ with PUBLIC permissions. If a database user matching the value for @DbUser@ doesn't exist and @Autocreate@ is @False@ , then the command succeeds but the connection attempt will fail because the user doesn't exist in the database. For more information, see <http://docs.aws.amazon.com/redshift/latest/dg/r_CREATE_USER.html CREATE USER> in the Amazon Redshift Database Developer Guide.  Constraints:     * Must be 1 to 64 alphanumeric characters or hyphens. The user name can't be @PUBLIC@ .     * Must contain only lowercase letters, numbers, underscore, plus sign, period (dot), at symbol (@), or hyphen.     * First character must be a letter.     * Must not contain a colon ( : ) or slash ( / ).      * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide. -- -- * 'gccClusterIdentifier' - The unique identifier of the cluster that contains the database for which your are requesting credentials. This parameter is case sensitive. getClusterCredentials@@ -95,38 +95,38 @@     -> GetClusterCredentials getClusterCredentials pDBUser_ pClusterIdentifier_ =   GetClusterCredentials'-  { _gccDBGroups = Nothing-  , _gccDurationSeconds = Nothing-  , _gccAutoCreate = Nothing-  , _gccDBName = Nothing-  , _gccDBUser = pDBUser_-  , _gccClusterIdentifier = pClusterIdentifier_-  }+    { _gccDBGroups = Nothing+    , _gccDurationSeconds = Nothing+    , _gccAutoCreate = Nothing+    , _gccDBName = Nothing+    , _gccDBUser = pDBUser_+    , _gccClusterIdentifier = pClusterIdentifier_+    }   -- | A list of the names of existing database groups that the user named in @DbUser@ will join for the current session, in addition to any group memberships for an existing user. If not specified, a new user is added only to PUBLIC. Database group name constraints     * Must be 1 to 64 alphanumeric characters or hyphens     * Must contain only lowercase letters, numbers, underscore, plus sign, period (dot), at symbol (@), or hyphen.     * First character must be a letter.     * Must not contain a colon ( : ) or slash ( / ).      * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide. gccDBGroups :: Lens' GetClusterCredentials [Text]-gccDBGroups = lens _gccDBGroups (\ s a -> s{_gccDBGroups = a}) . _Default . _Coerce;+gccDBGroups = lens _gccDBGroups (\ s a -> s{_gccDBGroups = a}) . _Default . _Coerce  -- | The number of seconds until the returned temporary password expires. Constraint: minimum 900, maximum 3600. Default: 900 gccDurationSeconds :: Lens' GetClusterCredentials (Maybe Int)-gccDurationSeconds = lens _gccDurationSeconds (\ s a -> s{_gccDurationSeconds = a});+gccDurationSeconds = lens _gccDurationSeconds (\ s a -> s{_gccDurationSeconds = a})  -- | Create a database user with the name specified for the user named in @DbUser@ if one does not exist. gccAutoCreate :: Lens' GetClusterCredentials (Maybe Bool)-gccAutoCreate = lens _gccAutoCreate (\ s a -> s{_gccAutoCreate = a});+gccAutoCreate = lens _gccAutoCreate (\ s a -> s{_gccAutoCreate = a})  -- | The name of a database that @DbUser@ is authorized to log on to. If @DbName@ is not specified, @DbUser@ can log on to any existing database. Constraints:     * Must be 1 to 64 alphanumeric characters or hyphens     * Must contain only lowercase letters, numbers, underscore, plus sign, period (dot), at symbol (@), or hyphen.     * First character must be a letter.     * Must not contain a colon ( : ) or slash ( / ).      * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide. gccDBName :: Lens' GetClusterCredentials (Maybe Text)-gccDBName = lens _gccDBName (\ s a -> s{_gccDBName = a});+gccDBName = lens _gccDBName (\ s a -> s{_gccDBName = a}) --- | The name of a database user. If a user name matching @DbUser@ exists in the database, the temporary user credentials have the same permissions as the existing user. If @DbUser@ doesn't exist in the database and @Autocreate@ is @True@ , a new user is created using the value for @DbUser@ with PUBLIC permissions. If a database user matching the value for @DbUser@ doesn't exist and @Autocreate@ is @False@ , then the command succeeds but the connection attempt will fail because the user doesn't exist in the database. For more information, see <http://docs.aws.amazon.com/redshift/latest/dg/r_CREATE_USER.html CREATE USER> in the Amazon Redshift Database Developer Guide.  Constraints:     * Must be 1 to 64 alphanumeric characters or hyphens     * Must contain only lowercase letters, numbers, underscore, plus sign, period (dot), at symbol (@), or hyphen.     * First character must be a letter.     * Must not contain a colon ( : ) or slash ( / ).      * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide.+-- | The name of a database user. If a user name matching @DbUser@ exists in the database, the temporary user credentials have the same permissions as the existing user. If @DbUser@ doesn't exist in the database and @Autocreate@ is @True@ , a new user is created using the value for @DbUser@ with PUBLIC permissions. If a database user matching the value for @DbUser@ doesn't exist and @Autocreate@ is @False@ , then the command succeeds but the connection attempt will fail because the user doesn't exist in the database. For more information, see <http://docs.aws.amazon.com/redshift/latest/dg/r_CREATE_USER.html CREATE USER> in the Amazon Redshift Database Developer Guide.  Constraints:     * Must be 1 to 64 alphanumeric characters or hyphens. The user name can't be @PUBLIC@ .     * Must contain only lowercase letters, numbers, underscore, plus sign, period (dot), at symbol (@), or hyphen.     * First character must be a letter.     * Must not contain a colon ( : ) or slash ( / ).      * Cannot be a reserved word. A list of reserved words can be found in <http://docs.aws.amazon.com/redshift/latest/dg/r_pg_keywords.html Reserved Words> in the Amazon Redshift Database Developer Guide. gccDBUser :: Lens' GetClusterCredentials Text-gccDBUser = lens _gccDBUser (\ s a -> s{_gccDBUser = a});+gccDBUser = lens _gccDBUser (\ s a -> s{_gccDBUser = a})  -- | The unique identifier of the cluster that contains the database for which your are requesting credentials. This parameter is case sensitive. gccClusterIdentifier :: Lens' GetClusterCredentials Text-gccClusterIdentifier = lens _gccClusterIdentifier (\ s a -> s{_gccClusterIdentifier = a});+gccClusterIdentifier = lens _gccClusterIdentifier (\ s a -> s{_gccClusterIdentifier = a})  instance AWSRequest GetClusterCredentials where         type Rs GetClusterCredentials =@@ -191,27 +191,27 @@     -> GetClusterCredentialsResponse getClusterCredentialsResponse pResponseStatus_ =   GetClusterCredentialsResponse'-  { _gccrsDBUser = Nothing-  , _gccrsExpiration = Nothing-  , _gccrsDBPassword = Nothing-  , _gccrsResponseStatus = pResponseStatus_-  }+    { _gccrsDBUser = Nothing+    , _gccrsExpiration = Nothing+    , _gccrsDBPassword = Nothing+    , _gccrsResponseStatus = pResponseStatus_+    }   -- | A database user name that is authorized to log on to the database @DbName@ using the password @DbPassword@ . If the specified DbUser exists in the database, the new user name has the same database privileges as the the user named in DbUser. By default, the user is added to PUBLIC. If the @DbGroups@ parameter is specifed, @DbUser@ is added to the listed groups for any sessions created using these credentials. gccrsDBUser :: Lens' GetClusterCredentialsResponse (Maybe Text)-gccrsDBUser = lens _gccrsDBUser (\ s a -> s{_gccrsDBUser = a});+gccrsDBUser = lens _gccrsDBUser (\ s a -> s{_gccrsDBUser = a})  -- | The date and time the password in @DbPassword@ expires. gccrsExpiration :: Lens' GetClusterCredentialsResponse (Maybe UTCTime)-gccrsExpiration = lens _gccrsExpiration (\ s a -> s{_gccrsExpiration = a}) . mapping _Time;+gccrsExpiration = lens _gccrsExpiration (\ s a -> s{_gccrsExpiration = a}) . mapping _Time  -- | A temporary password that authorizes the user name returned by @DbUser@ to log on to the database @DbName@ . gccrsDBPassword :: Lens' GetClusterCredentialsResponse (Maybe Text)-gccrsDBPassword = lens _gccrsDBPassword (\ s a -> s{_gccrsDBPassword = a}) . mapping _Sensitive;+gccrsDBPassword = lens _gccrsDBPassword (\ s a -> s{_gccrsDBPassword = a}) . mapping _Sensitive  -- | -- | The response status code. gccrsResponseStatus :: Lens' GetClusterCredentialsResponse Int-gccrsResponseStatus = lens _gccrsResponseStatus (\ s a -> s{_gccrsResponseStatus = a});+gccrsResponseStatus = lens _gccrsResponseStatus (\ s a -> s{_gccrsResponseStatus = a})  instance NFData GetClusterCredentialsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.ModifyCluster--- 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@@ -122,7 +122,7 @@ -- -- * 'mcClusterVersion' - The new version number of the Amazon Redshift engine to upgrade to. For major version upgrades, if a non-default cluster parameter group is currently in use, a new cluster parameter group in the cluster parameter group family for the new version must be specified. The new cluster parameter group can be the default for that cluster parameter group family. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ . Example: @1.0@ ----- * 'mcNodeType' - The new node type of the cluster. If you specify a new node type, you must also specify the number of nodes parameter. When you submit your request to resize a cluster, Amazon Redshift sets access permissions for the cluster to read-only. After Amazon Redshift provisions a new cluster according to your resize requirements, there will be a temporary outage while the old cluster is deleted and your connection is switched to the new cluster. When the new connection is complete, the original access permissions for the cluster are restored. You can use 'DescribeResize' to track the progress of the resize request.  Valid Values: @ds1.xlarge@ | @ds1.8xlarge@ | @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@ .+-- * 'mcNodeType' - The new node type of the cluster. If you specify a new node type, you must also specify the number of nodes parameter. When you submit your request to resize a cluster, Amazon Redshift sets access permissions for the cluster to read-only. After Amazon Redshift provisions a new cluster according to your resize requirements, there will be a temporary outage while the old cluster is deleted and your connection is switched to the new cluster. When the new connection is complete, the original access permissions for the cluster are restored. You can use 'DescribeResize' to track the progress of the resize request.  Valid Values: @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@ | @dc2.large@ | @dc2.8xlarge@ -- -- * 'mcAllowVersionUpgrade' - If @true@ , major version upgrades will be applied automatically to the cluster during the maintenance window.  Default: @false@ --@@ -134,98 +134,98 @@     -> ModifyCluster modifyCluster pClusterIdentifier_ =   ModifyCluster'-  { _mcEnhancedVPCRouting = Nothing-  , _mcMasterUserPassword = Nothing-  , _mcPubliclyAccessible = Nothing-  , _mcHSMConfigurationIdentifier = Nothing-  , _mcClusterSecurityGroups = Nothing-  , _mcAutomatedSnapshotRetentionPeriod = Nothing-  , _mcHSMClientCertificateIdentifier = Nothing-  , _mcNumberOfNodes = Nothing-  , _mcElasticIP = Nothing-  , _mcPreferredMaintenanceWindow = Nothing-  , _mcVPCSecurityGroupIds = Nothing-  , _mcClusterType = Nothing-  , _mcNewClusterIdentifier = Nothing-  , _mcClusterVersion = Nothing-  , _mcNodeType = Nothing-  , _mcAllowVersionUpgrade = Nothing-  , _mcClusterParameterGroupName = Nothing-  , _mcClusterIdentifier = pClusterIdentifier_-  }+    { _mcEnhancedVPCRouting = Nothing+    , _mcMasterUserPassword = Nothing+    , _mcPubliclyAccessible = Nothing+    , _mcHSMConfigurationIdentifier = Nothing+    , _mcClusterSecurityGroups = Nothing+    , _mcAutomatedSnapshotRetentionPeriod = Nothing+    , _mcHSMClientCertificateIdentifier = Nothing+    , _mcNumberOfNodes = Nothing+    , _mcElasticIP = Nothing+    , _mcPreferredMaintenanceWindow = Nothing+    , _mcVPCSecurityGroupIds = Nothing+    , _mcClusterType = Nothing+    , _mcNewClusterIdentifier = Nothing+    , _mcClusterVersion = Nothing+    , _mcNodeType = Nothing+    , _mcAllowVersionUpgrade = Nothing+    , _mcClusterParameterGroupName = Nothing+    , _mcClusterIdentifier = pClusterIdentifier_+    }   -- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false mcEnhancedVPCRouting :: Lens' ModifyCluster (Maybe Bool)-mcEnhancedVPCRouting = lens _mcEnhancedVPCRouting (\ s a -> s{_mcEnhancedVPCRouting = a});+mcEnhancedVPCRouting = lens _mcEnhancedVPCRouting (\ s a -> s{_mcEnhancedVPCRouting = a})  -- | The new password for the cluster master user. This change is asynchronously applied as soon as possible. Between the time of the request and the completion of the request, the @MasterUserPassword@ element exists in the @PendingModifiedValues@ element of the operation response.  Default: Uses existing setting. Constraints:     * Must be between 8 and 64 characters in length.     * Must contain at least one uppercase letter.     * Must contain at least one lowercase letter.     * Must contain one number.     * Can be any printable ASCII character (ASCII code 33 to 126) except ' (single quote), " (double quote), \, /, @, or space. mcMasterUserPassword :: Lens' ModifyCluster (Maybe Text)-mcMasterUserPassword = lens _mcMasterUserPassword (\ s a -> s{_mcMasterUserPassword = a});+mcMasterUserPassword = lens _mcMasterUserPassword (\ s a -> s{_mcMasterUserPassword = a})  -- | If @true@ , the cluster can be accessed from a public network. Only clusters in VPCs can be set to be publicly available. mcPubliclyAccessible :: Lens' ModifyCluster (Maybe Bool)-mcPubliclyAccessible = lens _mcPubliclyAccessible (\ s a -> s{_mcPubliclyAccessible = a});+mcPubliclyAccessible = lens _mcPubliclyAccessible (\ s a -> s{_mcPubliclyAccessible = a})  -- | Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM. mcHSMConfigurationIdentifier :: Lens' ModifyCluster (Maybe Text)-mcHSMConfigurationIdentifier = lens _mcHSMConfigurationIdentifier (\ s a -> s{_mcHSMConfigurationIdentifier = a});+mcHSMConfigurationIdentifier = lens _mcHSMConfigurationIdentifier (\ s a -> s{_mcHSMConfigurationIdentifier = a})  -- | A list of cluster security groups to be authorized on this cluster. This change is asynchronously applied as soon as possible. Security groups currently associated with the cluster, and not in the list of groups to apply, will be revoked from the cluster. Constraints:     * Must be 1 to 255 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens mcClusterSecurityGroups :: Lens' ModifyCluster [Text]-mcClusterSecurityGroups = lens _mcClusterSecurityGroups (\ s a -> s{_mcClusterSecurityGroups = a}) . _Default . _Coerce;+mcClusterSecurityGroups = lens _mcClusterSecurityGroups (\ s a -> s{_mcClusterSecurityGroups = a}) . _Default . _Coerce  -- | The number of days that automated snapshots are retained. If the value is 0, automated snapshots are disabled. Even if automated snapshots are disabled, you can still create manual snapshots when you want with 'CreateClusterSnapshot' .  If you decrease the automated snapshot retention period from its current value, existing automated snapshots that fall outside of the new retention period will be immediately deleted. Default: Uses existing setting. Constraints: Must be a value from 0 to 35. mcAutomatedSnapshotRetentionPeriod :: Lens' ModifyCluster (Maybe Int)-mcAutomatedSnapshotRetentionPeriod = lens _mcAutomatedSnapshotRetentionPeriod (\ s a -> s{_mcAutomatedSnapshotRetentionPeriod = a});+mcAutomatedSnapshotRetentionPeriod = lens _mcAutomatedSnapshotRetentionPeriod (\ s a -> s{_mcAutomatedSnapshotRetentionPeriod = a})  -- | Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM. mcHSMClientCertificateIdentifier :: Lens' ModifyCluster (Maybe Text)-mcHSMClientCertificateIdentifier = lens _mcHSMClientCertificateIdentifier (\ s a -> s{_mcHSMClientCertificateIdentifier = a});+mcHSMClientCertificateIdentifier = lens _mcHSMClientCertificateIdentifier (\ s a -> s{_mcHSMClientCertificateIdentifier = a})  -- | The new number of nodes of the cluster. If you specify a new number of nodes, you must also specify the node type parameter. When you submit your request to resize a cluster, Amazon Redshift sets access permissions for the cluster to read-only. After Amazon Redshift provisions a new cluster according to your resize requirements, there will be a temporary outage while the old cluster is deleted and your connection is switched to the new cluster. When the new connection is complete, the original access permissions for the cluster are restored. You can use 'DescribeResize' to track the progress of the resize request.  Valid Values: Integer greater than @0@ . mcNumberOfNodes :: Lens' ModifyCluster (Maybe Int)-mcNumberOfNodes = lens _mcNumberOfNodes (\ s a -> s{_mcNumberOfNodes = a});+mcNumberOfNodes = lens _mcNumberOfNodes (\ s a -> s{_mcNumberOfNodes = a})  -- | The Elastic IP (EIP) address for the cluster. Constraints: The cluster must be provisioned in EC2-VPC and publicly-accessible through an Internet gateway. For more information about provisioning clusters in EC2-VPC, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#cluster-platforms Supported Platforms to Launch Your Cluster> in the Amazon Redshift Cluster Management Guide. mcElasticIP :: Lens' ModifyCluster (Maybe Text)-mcElasticIP = lens _mcElasticIP (\ s a -> s{_mcElasticIP = a});+mcElasticIP = lens _mcElasticIP (\ s a -> s{_mcElasticIP = a})  -- | The weekly time range (in UTC) during which system maintenance can occur, if necessary. If system maintenance is necessary during the window, it may result in an outage. This maintenance window change is made immediately. If the new maintenance window indicates the current time, there must be at least 120 minutes between the current time and end of the window in order to ensure that pending changes are applied. Default: Uses existing setting. Format: ddd:hh24:mi-ddd:hh24:mi, for example @wed:07:30-wed:08:00@ . Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun Constraints: Must be at least 30 minutes. mcPreferredMaintenanceWindow :: Lens' ModifyCluster (Maybe Text)-mcPreferredMaintenanceWindow = lens _mcPreferredMaintenanceWindow (\ s a -> s{_mcPreferredMaintenanceWindow = a});+mcPreferredMaintenanceWindow = lens _mcPreferredMaintenanceWindow (\ s a -> s{_mcPreferredMaintenanceWindow = a})  -- | A list of virtual private cloud (VPC) security groups to be associated with the cluster. mcVPCSecurityGroupIds :: Lens' ModifyCluster [Text]-mcVPCSecurityGroupIds = lens _mcVPCSecurityGroupIds (\ s a -> s{_mcVPCSecurityGroupIds = a}) . _Default . _Coerce;+mcVPCSecurityGroupIds = lens _mcVPCSecurityGroupIds (\ s a -> s{_mcVPCSecurityGroupIds = a}) . _Default . _Coerce  -- | The new cluster type. When you submit your cluster resize request, your existing cluster goes into a read-only mode. After Amazon Redshift provisions a new cluster based on your resize requirements, there will be outage for a period while the old cluster is deleted and your connection is switched to the new cluster. You can use 'DescribeResize' to track the progress of the resize request.  Valid Values: @multi-node | single-node @ mcClusterType :: Lens' ModifyCluster (Maybe Text)-mcClusterType = lens _mcClusterType (\ s a -> s{_mcClusterType = a});+mcClusterType = lens _mcClusterType (\ s a -> s{_mcClusterType = a})  -- | The new identifier for the cluster. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens.     * Alphabetic characters must be lowercase.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens.     * Must be unique for all clusters within an AWS account. Example: @examplecluster@ mcNewClusterIdentifier :: Lens' ModifyCluster (Maybe Text)-mcNewClusterIdentifier = lens _mcNewClusterIdentifier (\ s a -> s{_mcNewClusterIdentifier = a});+mcNewClusterIdentifier = lens _mcNewClusterIdentifier (\ s a -> s{_mcNewClusterIdentifier = a})  -- | The new version number of the Amazon Redshift engine to upgrade to. For major version upgrades, if a non-default cluster parameter group is currently in use, a new cluster parameter group in the cluster parameter group family for the new version must be specified. The new cluster parameter group can be the default for that cluster parameter group family. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ . Example: @1.0@ mcClusterVersion :: Lens' ModifyCluster (Maybe Text)-mcClusterVersion = lens _mcClusterVersion (\ s a -> s{_mcClusterVersion = a});+mcClusterVersion = lens _mcClusterVersion (\ s a -> s{_mcClusterVersion = a}) --- | The new node type of the cluster. If you specify a new node type, you must also specify the number of nodes parameter. When you submit your request to resize a cluster, Amazon Redshift sets access permissions for the cluster to read-only. After Amazon Redshift provisions a new cluster according to your resize requirements, there will be a temporary outage while the old cluster is deleted and your connection is switched to the new cluster. When the new connection is complete, the original access permissions for the cluster are restored. You can use 'DescribeResize' to track the progress of the resize request.  Valid Values: @ds1.xlarge@ | @ds1.8xlarge@ | @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@ .+-- | The new node type of the cluster. If you specify a new node type, you must also specify the number of nodes parameter. When you submit your request to resize a cluster, Amazon Redshift sets access permissions for the cluster to read-only. After Amazon Redshift provisions a new cluster according to your resize requirements, there will be a temporary outage while the old cluster is deleted and your connection is switched to the new cluster. When the new connection is complete, the original access permissions for the cluster are restored. You can use 'DescribeResize' to track the progress of the resize request.  Valid Values: @ds2.xlarge@ | @ds2.8xlarge@ | @dc1.large@ | @dc1.8xlarge@ | @dc2.large@ | @dc2.8xlarge@ mcNodeType :: Lens' ModifyCluster (Maybe Text)-mcNodeType = lens _mcNodeType (\ s a -> s{_mcNodeType = a});+mcNodeType = lens _mcNodeType (\ s a -> s{_mcNodeType = a})  -- | If @true@ , major version upgrades will be applied automatically to the cluster during the maintenance window.  Default: @false@ mcAllowVersionUpgrade :: Lens' ModifyCluster (Maybe Bool)-mcAllowVersionUpgrade = lens _mcAllowVersionUpgrade (\ s a -> s{_mcAllowVersionUpgrade = a});+mcAllowVersionUpgrade = lens _mcAllowVersionUpgrade (\ s a -> s{_mcAllowVersionUpgrade = a})  -- | The name of the cluster parameter group to apply to this cluster. This change is applied only after the cluster is rebooted. To reboot a cluster use 'RebootCluster' .  Default: Uses existing setting. Constraints: The cluster parameter group must be in the same parameter group family that matches the cluster version. mcClusterParameterGroupName :: Lens' ModifyCluster (Maybe Text)-mcClusterParameterGroupName = lens _mcClusterParameterGroupName (\ s a -> s{_mcClusterParameterGroupName = a});+mcClusterParameterGroupName = lens _mcClusterParameterGroupName (\ s a -> s{_mcClusterParameterGroupName = a})  -- | The unique identifier of the cluster to be modified. Example: @examplecluster@ mcClusterIdentifier :: Lens' ModifyCluster Text-mcClusterIdentifier = lens _mcClusterIdentifier (\ s a -> s{_mcClusterIdentifier = a});+mcClusterIdentifier = lens _mcClusterIdentifier (\ s a -> s{_mcClusterIdentifier = a})  instance AWSRequest ModifyCluster where         type Rs ModifyCluster = ModifyClusterResponse@@ -300,15 +300,15 @@     -> ModifyClusterResponse modifyClusterResponse pResponseStatus_ =   ModifyClusterResponse'-  {_mcrsCluster = Nothing, _mcrsResponseStatus = pResponseStatus_}+    {_mcrsCluster = Nothing, _mcrsResponseStatus = pResponseStatus_}   -- | Undocumented member. mcrsCluster :: Lens' ModifyClusterResponse (Maybe Cluster)-mcrsCluster = lens _mcrsCluster (\ s a -> s{_mcrsCluster = a});+mcrsCluster = lens _mcrsCluster (\ s a -> s{_mcrsCluster = a})  -- | -- | The response status code. mcrsResponseStatus :: Lens' ModifyClusterResponse Int-mcrsResponseStatus = lens _mcrsResponseStatus (\ s a -> s{_mcrsResponseStatus = a});+mcrsResponseStatus = lens _mcrsResponseStatus (\ s a -> s{_mcrsResponseStatus = a})  instance NFData ModifyClusterResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.ModifyClusterIAMRoles--- 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 @@     -> ModifyClusterIAMRoles modifyClusterIAMRoles pClusterIdentifier_ =   ModifyClusterIAMRoles'-  { _mcirRemoveIAMRoles = Nothing-  , _mcirAddIAMRoles = Nothing-  , _mcirClusterIdentifier = pClusterIdentifier_-  }+    { _mcirRemoveIAMRoles = Nothing+    , _mcirAddIAMRoles = Nothing+    , _mcirClusterIdentifier = pClusterIdentifier_+    }   -- | Zero or more IAM roles in ARN format to disassociate from the cluster. You can disassociate up to 10 IAM roles from a single cluster in a single request. mcirRemoveIAMRoles :: Lens' ModifyClusterIAMRoles [Text]-mcirRemoveIAMRoles = lens _mcirRemoveIAMRoles (\ s a -> s{_mcirRemoveIAMRoles = a}) . _Default . _Coerce;+mcirRemoveIAMRoles = lens _mcirRemoveIAMRoles (\ s a -> s{_mcirRemoveIAMRoles = a}) . _Default . _Coerce  -- | Zero or more IAM roles to associate with the cluster. The roles must be in their Amazon Resource Name (ARN) format. You can associate up to 10 IAM roles with a single cluster in a single request. mcirAddIAMRoles :: Lens' ModifyClusterIAMRoles [Text]-mcirAddIAMRoles = lens _mcirAddIAMRoles (\ s a -> s{_mcirAddIAMRoles = a}) . _Default . _Coerce;+mcirAddIAMRoles = lens _mcirAddIAMRoles (\ s a -> s{_mcirAddIAMRoles = a}) . _Default . _Coerce  -- | The unique identifier of the cluster for which you want to associate or disassociate IAM roles. mcirClusterIdentifier :: Lens' ModifyClusterIAMRoles Text-mcirClusterIdentifier = lens _mcirClusterIdentifier (\ s a -> s{_mcirClusterIdentifier = a});+mcirClusterIdentifier = lens _mcirClusterIdentifier (\ s a -> s{_mcirClusterIdentifier = a})  instance AWSRequest ModifyClusterIAMRoles where         type Rs ModifyClusterIAMRoles =@@ -144,15 +144,15 @@     -> ModifyClusterIAMRolesResponse modifyClusterIAMRolesResponse pResponseStatus_ =   ModifyClusterIAMRolesResponse'-  {_mcirrsCluster = Nothing, _mcirrsResponseStatus = pResponseStatus_}+    {_mcirrsCluster = Nothing, _mcirrsResponseStatus = pResponseStatus_}   -- | Undocumented member. mcirrsCluster :: Lens' ModifyClusterIAMRolesResponse (Maybe Cluster)-mcirrsCluster = lens _mcirrsCluster (\ s a -> s{_mcirrsCluster = a});+mcirrsCluster = lens _mcirrsCluster (\ s a -> s{_mcirrsCluster = a})  -- | -- | The response status code. mcirrsResponseStatus :: Lens' ModifyClusterIAMRolesResponse Int-mcirrsResponseStatus = lens _mcirrsResponseStatus (\ s a -> s{_mcirrsResponseStatus = a});+mcirrsResponseStatus = lens _mcirrsResponseStatus (\ s a -> s{_mcirrsResponseStatus = a})  instance NFData ModifyClusterIAMRolesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.ModifyClusterParameterGroup--- 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@@ -70,16 +70,16 @@     -> ModifyClusterParameterGroup modifyClusterParameterGroup pParameterGroupName_ =   ModifyClusterParameterGroup'-  {_mcpgParameterGroupName = pParameterGroupName_, _mcpgParameters = mempty}+    {_mcpgParameterGroupName = pParameterGroupName_, _mcpgParameters = mempty}   -- | The name of the parameter group to be modified. mcpgParameterGroupName :: Lens' ModifyClusterParameterGroup Text-mcpgParameterGroupName = lens _mcpgParameterGroupName (\ s a -> s{_mcpgParameterGroupName = a});+mcpgParameterGroupName = lens _mcpgParameterGroupName (\ s a -> s{_mcpgParameterGroupName = a})  -- | An array of parameters to be modified. A maximum of 20 parameters can be modified in a single request. For each parameter to be modified, you must supply at least the parameter name and parameter value; other name-value pairs of the parameter are optional. For the workload management (WLM) configuration, you must supply all the name-value pairs in the wlm_json_configuration parameter. mcpgParameters :: Lens' ModifyClusterParameterGroup [Parameter]-mcpgParameters = lens _mcpgParameters (\ s a -> s{_mcpgParameters = a}) . _Coerce;+mcpgParameters = lens _mcpgParameters (\ s a -> s{_mcpgParameters = a}) . _Coerce  instance AWSRequest ModifyClusterParameterGroup where         type Rs ModifyClusterParameterGroup =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.ModifyClusterSubnetGroup--- 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 @@     -> ModifyClusterSubnetGroup modifyClusterSubnetGroup pClusterSubnetGroupName_ =   ModifyClusterSubnetGroup'-  { _mcsgDescription = Nothing-  , _mcsgClusterSubnetGroupName = pClusterSubnetGroupName_-  , _mcsgSubnetIds = mempty-  }+    { _mcsgDescription = Nothing+    , _mcsgClusterSubnetGroupName = pClusterSubnetGroupName_+    , _mcsgSubnetIds = mempty+    }   -- | A text description of the subnet group to be modified. mcsgDescription :: Lens' ModifyClusterSubnetGroup (Maybe Text)-mcsgDescription = lens _mcsgDescription (\ s a -> s{_mcsgDescription = a});+mcsgDescription = lens _mcsgDescription (\ s a -> s{_mcsgDescription = a})  -- | The name of the subnet group to be modified. mcsgClusterSubnetGroupName :: Lens' ModifyClusterSubnetGroup Text-mcsgClusterSubnetGroupName = lens _mcsgClusterSubnetGroupName (\ s a -> s{_mcsgClusterSubnetGroupName = a});+mcsgClusterSubnetGroupName = lens _mcsgClusterSubnetGroupName (\ s a -> s{_mcsgClusterSubnetGroupName = a})  -- | An array of VPC subnet IDs. A maximum of 20 subnets can be modified in a single request. mcsgSubnetIds :: Lens' ModifyClusterSubnetGroup [Text]-mcsgSubnetIds = lens _mcsgSubnetIds (\ s a -> s{_mcsgSubnetIds = a}) . _Coerce;+mcsgSubnetIds = lens _mcsgSubnetIds (\ s a -> s{_mcsgSubnetIds = a}) . _Coerce  instance AWSRequest ModifyClusterSubnetGroup where         type Rs ModifyClusterSubnetGroup =@@ -141,18 +141,18 @@     -> ModifyClusterSubnetGroupResponse modifyClusterSubnetGroupResponse pResponseStatus_ =   ModifyClusterSubnetGroupResponse'-  { _mcsgrsClusterSubnetGroup = Nothing-  , _mcsgrsResponseStatus = pResponseStatus_-  }+    { _mcsgrsClusterSubnetGroup = Nothing+    , _mcsgrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. mcsgrsClusterSubnetGroup :: Lens' ModifyClusterSubnetGroupResponse (Maybe ClusterSubnetGroup)-mcsgrsClusterSubnetGroup = lens _mcsgrsClusterSubnetGroup (\ s a -> s{_mcsgrsClusterSubnetGroup = a});+mcsgrsClusterSubnetGroup = lens _mcsgrsClusterSubnetGroup (\ s a -> s{_mcsgrsClusterSubnetGroup = a})  -- | -- | The response status code. mcsgrsResponseStatus :: Lens' ModifyClusterSubnetGroupResponse Int-mcsgrsResponseStatus = lens _mcsgrsResponseStatus (\ s a -> s{_mcsgrsResponseStatus = a});+mcsgrsResponseStatus = lens _mcsgrsResponseStatus (\ s a -> s{_mcsgrsResponseStatus = a})  instance NFData ModifyClusterSubnetGroupResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.ModifyEventSubscription--- 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@@ -88,43 +88,43 @@     -> ModifyEventSubscription modifyEventSubscription pSubscriptionName_ =   ModifyEventSubscription'-  { _mesSNSTopicARN = Nothing-  , _mesEnabled = Nothing-  , _mesSourceType = Nothing-  , _mesSeverity = Nothing-  , _mesEventCategories = Nothing-  , _mesSourceIds = Nothing-  , _mesSubscriptionName = pSubscriptionName_-  }+    { _mesSNSTopicARN = Nothing+    , _mesEnabled = Nothing+    , _mesSourceType = Nothing+    , _mesSeverity = Nothing+    , _mesEventCategories = Nothing+    , _mesSourceIds = Nothing+    , _mesSubscriptionName = pSubscriptionName_+    }   -- | The Amazon Resource Name (ARN) of the SNS topic to be used by the event notification subscription. mesSNSTopicARN :: Lens' ModifyEventSubscription (Maybe Text)-mesSNSTopicARN = lens _mesSNSTopicARN (\ s a -> s{_mesSNSTopicARN = a});+mesSNSTopicARN = lens _mesSNSTopicARN (\ s a -> s{_mesSNSTopicARN = a})  -- | A Boolean value indicating if the subscription is enabled. @true@ indicates the subscription is enabled mesEnabled :: Lens' ModifyEventSubscription (Maybe Bool)-mesEnabled = lens _mesEnabled (\ s a -> s{_mesEnabled = a});+mesEnabled = lens _mesEnabled (\ s a -> s{_mesEnabled = a})  -- | The type of source that will be generating the events. For example, if you want to be notified of events generated by a cluster, you would set this parameter to cluster. If this value is not specified, events are returned for all Amazon Redshift objects in your AWS account. You must specify a source type in order to specify source IDs. Valid values: cluster, cluster-parameter-group, cluster-security-group, and cluster-snapshot. mesSourceType :: Lens' ModifyEventSubscription (Maybe Text)-mesSourceType = lens _mesSourceType (\ s a -> s{_mesSourceType = a});+mesSourceType = lens _mesSourceType (\ s a -> s{_mesSourceType = a})  -- | Specifies the Amazon Redshift event severity to be published by the event notification subscription. Values: ERROR, INFO mesSeverity :: Lens' ModifyEventSubscription (Maybe Text)-mesSeverity = lens _mesSeverity (\ s a -> s{_mesSeverity = a});+mesSeverity = lens _mesSeverity (\ s a -> s{_mesSeverity = a})  -- | Specifies the Amazon Redshift event categories to be published by the event notification subscription. Values: Configuration, Management, Monitoring, Security mesEventCategories :: Lens' ModifyEventSubscription [Text]-mesEventCategories = lens _mesEventCategories (\ s a -> s{_mesEventCategories = a}) . _Default . _Coerce;+mesEventCategories = lens _mesEventCategories (\ s a -> s{_mesEventCategories = a}) . _Default . _Coerce  -- | A list of one or more identifiers of Amazon Redshift source objects. All of the objects must be of the same type as was specified in the source type parameter. The event subscription will return only events generated by the specified objects. If not specified, then events are returned for all objects within the source type specified. Example: my-cluster-1, my-cluster-2 Example: my-snapshot-20131010 mesSourceIds :: Lens' ModifyEventSubscription [Text]-mesSourceIds = lens _mesSourceIds (\ s a -> s{_mesSourceIds = a}) . _Default . _Coerce;+mesSourceIds = lens _mesSourceIds (\ s a -> s{_mesSourceIds = a}) . _Default . _Coerce  -- | The name of the modified Amazon Redshift event notification subscription. mesSubscriptionName :: Lens' ModifyEventSubscription Text-mesSubscriptionName = lens _mesSubscriptionName (\ s a -> s{_mesSubscriptionName = a});+mesSubscriptionName = lens _mesSubscriptionName (\ s a -> s{_mesSubscriptionName = a})  instance AWSRequest ModifyEventSubscription where         type Rs ModifyEventSubscription =@@ -183,15 +183,15 @@     -> ModifyEventSubscriptionResponse modifyEventSubscriptionResponse pResponseStatus_ =   ModifyEventSubscriptionResponse'-  {_mesrsEventSubscription = Nothing, _mesrsResponseStatus = pResponseStatus_}+    {_mesrsEventSubscription = Nothing, _mesrsResponseStatus = pResponseStatus_}   -- | Undocumented member. mesrsEventSubscription :: Lens' ModifyEventSubscriptionResponse (Maybe EventSubscription)-mesrsEventSubscription = lens _mesrsEventSubscription (\ s a -> s{_mesrsEventSubscription = a});+mesrsEventSubscription = lens _mesrsEventSubscription (\ s a -> s{_mesrsEventSubscription = a})  -- | -- | The response status code. mesrsResponseStatus :: Lens' ModifyEventSubscriptionResponse Int-mesrsResponseStatus = lens _mesrsResponseStatus (\ s a -> s{_mesrsResponseStatus = a});+mesrsResponseStatus = lens _mesrsResponseStatus (\ s a -> s{_mesrsResponseStatus = a})  instance NFData ModifyEventSubscriptionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod--- 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,18 +69,18 @@     -> ModifySnapshotCopyRetentionPeriod modifySnapshotCopyRetentionPeriod pClusterIdentifier_ pRetentionPeriod_ =   ModifySnapshotCopyRetentionPeriod'-  { _mscrpClusterIdentifier = pClusterIdentifier_-  , _mscrpRetentionPeriod = pRetentionPeriod_-  }+    { _mscrpClusterIdentifier = pClusterIdentifier_+    , _mscrpRetentionPeriod = pRetentionPeriod_+    }   -- | The unique identifier of the cluster for which you want to change the retention period for automated snapshots that are copied to a destination region. Constraints: Must be the valid name of an existing cluster that has cross-region snapshot copy enabled. mscrpClusterIdentifier :: Lens' ModifySnapshotCopyRetentionPeriod Text-mscrpClusterIdentifier = lens _mscrpClusterIdentifier (\ s a -> s{_mscrpClusterIdentifier = a});+mscrpClusterIdentifier = lens _mscrpClusterIdentifier (\ s a -> s{_mscrpClusterIdentifier = a})  -- | The number of days to retain automated snapshots in the destination region after they are copied from the source region. If you decrease the retention period for automated snapshots that are copied to a destination region, Amazon Redshift will delete any existing automated snapshots that were copied to the destination region and that fall outside of the new retention period. Constraints: Must be at least 1 and no more than 35. mscrpRetentionPeriod :: Lens' ModifySnapshotCopyRetentionPeriod Int-mscrpRetentionPeriod = lens _mscrpRetentionPeriod (\ s a -> s{_mscrpRetentionPeriod = a});+mscrpRetentionPeriod = lens _mscrpRetentionPeriod (\ s a -> s{_mscrpRetentionPeriod = a})  instance AWSRequest ModifySnapshotCopyRetentionPeriod          where@@ -137,16 +137,16 @@     -> ModifySnapshotCopyRetentionPeriodResponse modifySnapshotCopyRetentionPeriodResponse pResponseStatus_ =   ModifySnapshotCopyRetentionPeriodResponse'-  {_mscrprsCluster = Nothing, _mscrprsResponseStatus = pResponseStatus_}+    {_mscrprsCluster = Nothing, _mscrprsResponseStatus = pResponseStatus_}   -- | Undocumented member. mscrprsCluster :: Lens' ModifySnapshotCopyRetentionPeriodResponse (Maybe Cluster)-mscrprsCluster = lens _mscrprsCluster (\ s a -> s{_mscrprsCluster = a});+mscrprsCluster = lens _mscrprsCluster (\ s a -> s{_mscrprsCluster = a})  -- | -- | The response status code. mscrprsResponseStatus :: Lens' ModifySnapshotCopyRetentionPeriodResponse Int-mscrprsResponseStatus = lens _mscrprsResponseStatus (\ s a -> s{_mscrprsResponseStatus = a});+mscrprsResponseStatus = lens _mscrprsResponseStatus (\ s a -> s{_mscrprsResponseStatus = a})  instance NFData            ModifySnapshotCopyRetentionPeriodResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.PurchaseReservedNodeOffering--- 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@@ -70,18 +70,18 @@     -> PurchaseReservedNodeOffering purchaseReservedNodeOffering pReservedNodeOfferingId_ =   PurchaseReservedNodeOffering'-  { _prnoNodeCount = Nothing-  , _prnoReservedNodeOfferingId = pReservedNodeOfferingId_-  }+    { _prnoNodeCount = Nothing+    , _prnoReservedNodeOfferingId = pReservedNodeOfferingId_+    }   -- | The number of reserved nodes that you want to purchase. Default: @1@ prnoNodeCount :: Lens' PurchaseReservedNodeOffering (Maybe Int)-prnoNodeCount = lens _prnoNodeCount (\ s a -> s{_prnoNodeCount = a});+prnoNodeCount = lens _prnoNodeCount (\ s a -> s{_prnoNodeCount = a})  -- | The unique identifier of the reserved node offering you want to purchase. prnoReservedNodeOfferingId :: Lens' PurchaseReservedNodeOffering Text-prnoReservedNodeOfferingId = lens _prnoReservedNodeOfferingId (\ s a -> s{_prnoReservedNodeOfferingId = a});+prnoReservedNodeOfferingId = lens _prnoReservedNodeOfferingId (\ s a -> s{_prnoReservedNodeOfferingId = a})  instance AWSRequest PurchaseReservedNodeOffering          where@@ -134,16 +134,16 @@     -> PurchaseReservedNodeOfferingResponse purchaseReservedNodeOfferingResponse pResponseStatus_ =   PurchaseReservedNodeOfferingResponse'-  {_prnorsReservedNode = Nothing, _prnorsResponseStatus = pResponseStatus_}+    {_prnorsReservedNode = Nothing, _prnorsResponseStatus = pResponseStatus_}   -- | Undocumented member. prnorsReservedNode :: Lens' PurchaseReservedNodeOfferingResponse (Maybe ReservedNode)-prnorsReservedNode = lens _prnorsReservedNode (\ s a -> s{_prnorsReservedNode = a});+prnorsReservedNode = lens _prnorsReservedNode (\ s a -> s{_prnorsReservedNode = a})  -- | -- | The response status code. prnorsResponseStatus :: Lens' PurchaseReservedNodeOfferingResponse Int-prnorsResponseStatus = lens _prnorsResponseStatus (\ s a -> s{_prnorsResponseStatus = a});+prnorsResponseStatus = lens _prnorsResponseStatus (\ s a -> s{_prnorsResponseStatus = a})  instance NFData PurchaseReservedNodeOfferingResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.RebootCluster--- 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 cluster identifier. rcClusterIdentifier :: Lens' RebootCluster Text-rcClusterIdentifier = lens _rcClusterIdentifier (\ s a -> s{_rcClusterIdentifier = a});+rcClusterIdentifier = lens _rcClusterIdentifier (\ s a -> s{_rcClusterIdentifier = a})  instance AWSRequest RebootCluster where         type Rs RebootCluster = RebootClusterResponse@@ -115,15 +115,15 @@     -> RebootClusterResponse rebootClusterResponse pResponseStatus_ =   RebootClusterResponse'-  {_rcrsCluster = Nothing, _rcrsResponseStatus = pResponseStatus_}+    {_rcrsCluster = Nothing, _rcrsResponseStatus = pResponseStatus_}   -- | Undocumented member. rcrsCluster :: Lens' RebootClusterResponse (Maybe Cluster)-rcrsCluster = lens _rcrsCluster (\ s a -> s{_rcrsCluster = a});+rcrsCluster = lens _rcrsCluster (\ s a -> s{_rcrsCluster = a})  -- | -- | The response status code. rcrsResponseStatus :: Lens' RebootClusterResponse Int-rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a});+rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a})  instance NFData RebootClusterResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.ResetClusterParameterGroup--- 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 @@     -> ResetClusterParameterGroup resetClusterParameterGroup pParameterGroupName_ =   ResetClusterParameterGroup'-  { _rcpgResetAllParameters = Nothing-  , _rcpgParameters = Nothing-  , _rcpgParameterGroupName = pParameterGroupName_-  }+    { _rcpgResetAllParameters = Nothing+    , _rcpgParameters = Nothing+    , _rcpgParameterGroupName = pParameterGroupName_+    }   -- | If @true@ , all parameters in the specified parameter group will be reset to their default values.  Default: @true@ rcpgResetAllParameters :: Lens' ResetClusterParameterGroup (Maybe Bool)-rcpgResetAllParameters = lens _rcpgResetAllParameters (\ s a -> s{_rcpgResetAllParameters = a});+rcpgResetAllParameters = lens _rcpgResetAllParameters (\ s a -> s{_rcpgResetAllParameters = a})  -- | An array of names of parameters to be reset. If /ResetAllParameters/ option is not used, then at least one parameter name must be supplied.  Constraints: A maximum of 20 parameters can be reset in a single request. rcpgParameters :: Lens' ResetClusterParameterGroup [Parameter]-rcpgParameters = lens _rcpgParameters (\ s a -> s{_rcpgParameters = a}) . _Default . _Coerce;+rcpgParameters = lens _rcpgParameters (\ s a -> s{_rcpgParameters = a}) . _Default . _Coerce  -- | The name of the cluster parameter group to be reset. rcpgParameterGroupName :: Lens' ResetClusterParameterGroup Text-rcpgParameterGroupName = lens _rcpgParameterGroupName (\ s a -> s{_rcpgParameterGroupName = a});+rcpgParameterGroupName = lens _rcpgParameterGroupName (\ s a -> s{_rcpgParameterGroupName = a})  instance AWSRequest ResetClusterParameterGroup where         type Rs ResetClusterParameterGroup =

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.RestoreFromClusterSnapshot--- 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@@ -136,7 +136,7 @@ -- -- * 'rfcsOwnerAccount' - The AWS customer account used to create or copy the snapshot. Required if you are restoring a snapshot you do not own, optional if you own the snapshot. ----- * 'rfcsNodeType' - The node type that the restored cluster will be provisioned with. Default: The node type of the cluster from which the snapshot was taken. You can modify this if you are using any DS node type. In that case, you can choose to restore into another DS node type of the same size. For example, you can restore ds1.8xlarge into ds2.8xlarge, or ds2.xlarge into ds1.xlarge. If you have a DC instance type, you must restore into that same instance type and size. In other words, you can only restore a dc1.large instance type into another dc1.large instance type. For more information about node types, see <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-about-clusters-and-nodes About Clusters and Nodes> in the /Amazon Redshift Cluster Management Guide/+-- * 'rfcsNodeType' - The node type that the restored cluster will be provisioned with. Default: The node type of the cluster from which the snapshot was taken. You can modify this if you are using any DS node type. In that case, you can choose to restore into another DS node type of the same size. For example, you can restore ds1.8xlarge into ds2.8xlarge, or ds1.xlarge into ds2.xlarge. If you have a DC instance type, you must restore into that same instance type and size. In other words, you can only restore a dc1.large instance type into another dc1.large instance type or dc2.large instance type. You can't restore dc1.8xlarge to dc2.8xlarge. First restore to a dc1.8xlareg cluster, then resize to a dc2.8large cluster. For more information about node types, see <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-about-clusters-and-nodes About Clusters and Nodes> in the /Amazon Redshift Cluster Management Guide/ . -- -- * 'rfcsAllowVersionUpgrade' - If @true@ , major version upgrades can be applied during the maintenance window to the Amazon Redshift engine that is running on the cluster.  Default: @true@ --@@ -153,118 +153,118 @@     -> RestoreFromClusterSnapshot restoreFromClusterSnapshot pClusterIdentifier_ pSnapshotIdentifier_ =   RestoreFromClusterSnapshot'-  { _rfcsEnhancedVPCRouting = Nothing-  , _rfcsAdditionalInfo = Nothing-  , _rfcsPubliclyAccessible = Nothing-  , _rfcsSnapshotClusterIdentifier = Nothing-  , _rfcsHSMConfigurationIdentifier = Nothing-  , _rfcsClusterSecurityGroups = Nothing-  , _rfcsAutomatedSnapshotRetentionPeriod = Nothing-  , _rfcsClusterSubnetGroupName = Nothing-  , _rfcsHSMClientCertificateIdentifier = Nothing-  , _rfcsElasticIP = Nothing-  , _rfcsPreferredMaintenanceWindow = Nothing-  , _rfcsKMSKeyId = Nothing-  , _rfcsAvailabilityZone = Nothing-  , _rfcsVPCSecurityGroupIds = Nothing-  , _rfcsIAMRoles = Nothing-  , _rfcsOwnerAccount = Nothing-  , _rfcsNodeType = Nothing-  , _rfcsAllowVersionUpgrade = Nothing-  , _rfcsClusterParameterGroupName = Nothing-  , _rfcsPort = Nothing-  , _rfcsClusterIdentifier = pClusterIdentifier_-  , _rfcsSnapshotIdentifier = pSnapshotIdentifier_-  }+    { _rfcsEnhancedVPCRouting = Nothing+    , _rfcsAdditionalInfo = Nothing+    , _rfcsPubliclyAccessible = Nothing+    , _rfcsSnapshotClusterIdentifier = Nothing+    , _rfcsHSMConfigurationIdentifier = Nothing+    , _rfcsClusterSecurityGroups = Nothing+    , _rfcsAutomatedSnapshotRetentionPeriod = Nothing+    , _rfcsClusterSubnetGroupName = Nothing+    , _rfcsHSMClientCertificateIdentifier = Nothing+    , _rfcsElasticIP = Nothing+    , _rfcsPreferredMaintenanceWindow = Nothing+    , _rfcsKMSKeyId = Nothing+    , _rfcsAvailabilityZone = Nothing+    , _rfcsVPCSecurityGroupIds = Nothing+    , _rfcsIAMRoles = Nothing+    , _rfcsOwnerAccount = Nothing+    , _rfcsNodeType = Nothing+    , _rfcsAllowVersionUpgrade = Nothing+    , _rfcsClusterParameterGroupName = Nothing+    , _rfcsPort = Nothing+    , _rfcsClusterIdentifier = pClusterIdentifier_+    , _rfcsSnapshotIdentifier = pSnapshotIdentifier_+    }   -- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false rfcsEnhancedVPCRouting :: Lens' RestoreFromClusterSnapshot (Maybe Bool)-rfcsEnhancedVPCRouting = lens _rfcsEnhancedVPCRouting (\ s a -> s{_rfcsEnhancedVPCRouting = a});+rfcsEnhancedVPCRouting = lens _rfcsEnhancedVPCRouting (\ s a -> s{_rfcsEnhancedVPCRouting = a})  -- | Reserved. rfcsAdditionalInfo :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsAdditionalInfo = lens _rfcsAdditionalInfo (\ s a -> s{_rfcsAdditionalInfo = a});+rfcsAdditionalInfo = lens _rfcsAdditionalInfo (\ s a -> s{_rfcsAdditionalInfo = a})  -- | If @true@ , the cluster can be accessed from a public network. rfcsPubliclyAccessible :: Lens' RestoreFromClusterSnapshot (Maybe Bool)-rfcsPubliclyAccessible = lens _rfcsPubliclyAccessible (\ s a -> s{_rfcsPubliclyAccessible = a});+rfcsPubliclyAccessible = lens _rfcsPubliclyAccessible (\ s a -> s{_rfcsPubliclyAccessible = a})  -- | The name of the cluster the source snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name. rfcsSnapshotClusterIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsSnapshotClusterIdentifier = lens _rfcsSnapshotClusterIdentifier (\ s a -> s{_rfcsSnapshotClusterIdentifier = a});+rfcsSnapshotClusterIdentifier = lens _rfcsSnapshotClusterIdentifier (\ s a -> s{_rfcsSnapshotClusterIdentifier = a})  -- | Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM. rfcsHSMConfigurationIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsHSMConfigurationIdentifier = lens _rfcsHSMConfigurationIdentifier (\ s a -> s{_rfcsHSMConfigurationIdentifier = a});+rfcsHSMConfigurationIdentifier = lens _rfcsHSMConfigurationIdentifier (\ s a -> s{_rfcsHSMConfigurationIdentifier = a})  -- | A list of security groups to be associated with this cluster. Default: The default cluster security group for Amazon Redshift. Cluster security groups only apply to clusters outside of VPCs. rfcsClusterSecurityGroups :: Lens' RestoreFromClusterSnapshot [Text]-rfcsClusterSecurityGroups = lens _rfcsClusterSecurityGroups (\ s a -> s{_rfcsClusterSecurityGroups = a}) . _Default . _Coerce;+rfcsClusterSecurityGroups = lens _rfcsClusterSecurityGroups (\ s a -> s{_rfcsClusterSecurityGroups = a}) . _Default . _Coerce  -- | The number of days that automated snapshots are retained. If the value is 0, automated snapshots are disabled. Even if automated snapshots are disabled, you can still create manual snapshots when you want with 'CreateClusterSnapshot' .  Default: The value selected for the cluster from which the snapshot was taken. Constraints: Must be a value from 0 to 35. rfcsAutomatedSnapshotRetentionPeriod :: Lens' RestoreFromClusterSnapshot (Maybe Int)-rfcsAutomatedSnapshotRetentionPeriod = lens _rfcsAutomatedSnapshotRetentionPeriod (\ s a -> s{_rfcsAutomatedSnapshotRetentionPeriod = a});+rfcsAutomatedSnapshotRetentionPeriod = lens _rfcsAutomatedSnapshotRetentionPeriod (\ s a -> s{_rfcsAutomatedSnapshotRetentionPeriod = a})  -- | The name of the subnet group where you want to cluster restored. A snapshot of cluster in VPC can be restored only in VPC. Therefore, you must provide subnet group name where you want the cluster restored. rfcsClusterSubnetGroupName :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsClusterSubnetGroupName = lens _rfcsClusterSubnetGroupName (\ s a -> s{_rfcsClusterSubnetGroupName = a});+rfcsClusterSubnetGroupName = lens _rfcsClusterSubnetGroupName (\ s a -> s{_rfcsClusterSubnetGroupName = a})  -- | Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM. rfcsHSMClientCertificateIdentifier :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsHSMClientCertificateIdentifier = lens _rfcsHSMClientCertificateIdentifier (\ s a -> s{_rfcsHSMClientCertificateIdentifier = a});+rfcsHSMClientCertificateIdentifier = lens _rfcsHSMClientCertificateIdentifier (\ s a -> s{_rfcsHSMClientCertificateIdentifier = a})  -- | The elastic IP (EIP) address for the cluster. rfcsElasticIP :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsElasticIP = lens _rfcsElasticIP (\ s a -> s{_rfcsElasticIP = a});+rfcsElasticIP = lens _rfcsElasticIP (\ s a -> s{_rfcsElasticIP = a})  -- | The weekly time range (in UTC) during which automated cluster maintenance can occur. Format: @ddd:hh24:mi-ddd:hh24:mi@  Default: The value selected for the cluster from which the snapshot was taken. For more information about the time blocks for each region, see <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-maintenance-windows Maintenance Windows> in Amazon Redshift Cluster Management Guide.  Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun Constraints: Minimum 30-minute window. rfcsPreferredMaintenanceWindow :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsPreferredMaintenanceWindow = lens _rfcsPreferredMaintenanceWindow (\ s a -> s{_rfcsPreferredMaintenanceWindow = a});+rfcsPreferredMaintenanceWindow = lens _rfcsPreferredMaintenanceWindow (\ s a -> s{_rfcsPreferredMaintenanceWindow = a})  -- | The AWS Key Management Service (KMS) key ID of the encryption key that you want to use to encrypt data in the cluster that you restore from a shared snapshot. rfcsKMSKeyId :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsKMSKeyId = lens _rfcsKMSKeyId (\ s a -> s{_rfcsKMSKeyId = a});+rfcsKMSKeyId = lens _rfcsKMSKeyId (\ s a -> s{_rfcsKMSKeyId = a})  -- | The Amazon EC2 Availability Zone in which to restore the cluster. Default: A random, system-chosen Availability Zone. Example: @us-east-1a@ rfcsAvailabilityZone :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsAvailabilityZone = lens _rfcsAvailabilityZone (\ s a -> s{_rfcsAvailabilityZone = a});+rfcsAvailabilityZone = lens _rfcsAvailabilityZone (\ s a -> s{_rfcsAvailabilityZone = a})  -- | A list of Virtual Private Cloud (VPC) security groups to be associated with the cluster. Default: The default VPC security group is associated with the cluster. VPC security groups only apply to clusters in VPCs. rfcsVPCSecurityGroupIds :: Lens' RestoreFromClusterSnapshot [Text]-rfcsVPCSecurityGroupIds = lens _rfcsVPCSecurityGroupIds (\ s a -> s{_rfcsVPCSecurityGroupIds = a}) . _Default . _Coerce;+rfcsVPCSecurityGroupIds = lens _rfcsVPCSecurityGroupIds (\ s a -> s{_rfcsVPCSecurityGroupIds = a}) . _Default . _Coerce  -- | A list of AWS Identity and Access Management (IAM) roles that can be used by the cluster to access other AWS services. You must supply the IAM roles in their Amazon Resource Name (ARN) format. You can supply up to 10 IAM roles in a single request. A cluster can have up to 10 IAM roles associated at any time. rfcsIAMRoles :: Lens' RestoreFromClusterSnapshot [Text]-rfcsIAMRoles = lens _rfcsIAMRoles (\ s a -> s{_rfcsIAMRoles = a}) . _Default . _Coerce;+rfcsIAMRoles = lens _rfcsIAMRoles (\ s a -> s{_rfcsIAMRoles = a}) . _Default . _Coerce  -- | The AWS customer account used to create or copy the snapshot. Required if you are restoring a snapshot you do not own, optional if you own the snapshot. rfcsOwnerAccount :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsOwnerAccount = lens _rfcsOwnerAccount (\ s a -> s{_rfcsOwnerAccount = a});+rfcsOwnerAccount = lens _rfcsOwnerAccount (\ s a -> s{_rfcsOwnerAccount = a}) --- | The node type that the restored cluster will be provisioned with. Default: The node type of the cluster from which the snapshot was taken. You can modify this if you are using any DS node type. In that case, you can choose to restore into another DS node type of the same size. For example, you can restore ds1.8xlarge into ds2.8xlarge, or ds2.xlarge into ds1.xlarge. If you have a DC instance type, you must restore into that same instance type and size. In other words, you can only restore a dc1.large instance type into another dc1.large instance type. For more information about node types, see <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-about-clusters-and-nodes About Clusters and Nodes> in the /Amazon Redshift Cluster Management Guide/+-- | The node type that the restored cluster will be provisioned with. Default: The node type of the cluster from which the snapshot was taken. You can modify this if you are using any DS node type. In that case, you can choose to restore into another DS node type of the same size. For example, you can restore ds1.8xlarge into ds2.8xlarge, or ds1.xlarge into ds2.xlarge. If you have a DC instance type, you must restore into that same instance type and size. In other words, you can only restore a dc1.large instance type into another dc1.large instance type or dc2.large instance type. You can't restore dc1.8xlarge to dc2.8xlarge. First restore to a dc1.8xlareg cluster, then resize to a dc2.8large cluster. For more information about node types, see <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-clusters.html#rs-about-clusters-and-nodes About Clusters and Nodes> in the /Amazon Redshift Cluster Management Guide/ . rfcsNodeType :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsNodeType = lens _rfcsNodeType (\ s a -> s{_rfcsNodeType = a});+rfcsNodeType = lens _rfcsNodeType (\ s a -> s{_rfcsNodeType = a})  -- | If @true@ , major version upgrades can be applied during the maintenance window to the Amazon Redshift engine that is running on the cluster.  Default: @true@ rfcsAllowVersionUpgrade :: Lens' RestoreFromClusterSnapshot (Maybe Bool)-rfcsAllowVersionUpgrade = lens _rfcsAllowVersionUpgrade (\ s a -> s{_rfcsAllowVersionUpgrade = a});+rfcsAllowVersionUpgrade = lens _rfcsAllowVersionUpgrade (\ s a -> s{_rfcsAllowVersionUpgrade = a})  -- | The name of the parameter group to be associated with this cluster. Default: The default Amazon Redshift cluster parameter group. For information about the default parameter group, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Working with Amazon Redshift Parameter Groups> . Constraints:     * Must be 1 to 255 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. rfcsClusterParameterGroupName :: Lens' RestoreFromClusterSnapshot (Maybe Text)-rfcsClusterParameterGroupName = lens _rfcsClusterParameterGroupName (\ s a -> s{_rfcsClusterParameterGroupName = a});+rfcsClusterParameterGroupName = lens _rfcsClusterParameterGroupName (\ s a -> s{_rfcsClusterParameterGroupName = a})  -- | The port number on which the cluster accepts connections. Default: The same port as the original cluster. Constraints: Must be between @1115@ and @65535@ . rfcsPort :: Lens' RestoreFromClusterSnapshot (Maybe Int)-rfcsPort = lens _rfcsPort (\ s a -> s{_rfcsPort = a});+rfcsPort = lens _rfcsPort (\ s a -> s{_rfcsPort = a})  -- | The identifier of the cluster that will be created from restoring the snapshot. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens.     * Alphabetic characters must be lowercase.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens.     * Must be unique for all clusters within an AWS account. rfcsClusterIdentifier :: Lens' RestoreFromClusterSnapshot Text-rfcsClusterIdentifier = lens _rfcsClusterIdentifier (\ s a -> s{_rfcsClusterIdentifier = a});+rfcsClusterIdentifier = lens _rfcsClusterIdentifier (\ s a -> s{_rfcsClusterIdentifier = a})  -- | The name of the snapshot from which to create the new cluster. This parameter isn't case sensitive. Example: @my-snapshot-id@ rfcsSnapshotIdentifier :: Lens' RestoreFromClusterSnapshot Text-rfcsSnapshotIdentifier = lens _rfcsSnapshotIdentifier (\ s a -> s{_rfcsSnapshotIdentifier = a});+rfcsSnapshotIdentifier = lens _rfcsSnapshotIdentifier (\ s a -> s{_rfcsSnapshotIdentifier = a})  instance AWSRequest RestoreFromClusterSnapshot where         type Rs RestoreFromClusterSnapshot =@@ -349,16 +349,16 @@     -> RestoreFromClusterSnapshotResponse restoreFromClusterSnapshotResponse pResponseStatus_ =   RestoreFromClusterSnapshotResponse'-  {_rfcsrsCluster = Nothing, _rfcsrsResponseStatus = pResponseStatus_}+    {_rfcsrsCluster = Nothing, _rfcsrsResponseStatus = pResponseStatus_}   -- | Undocumented member. rfcsrsCluster :: Lens' RestoreFromClusterSnapshotResponse (Maybe Cluster)-rfcsrsCluster = lens _rfcsrsCluster (\ s a -> s{_rfcsrsCluster = a});+rfcsrsCluster = lens _rfcsrsCluster (\ s a -> s{_rfcsrsCluster = a})  -- | -- | The response status code. rfcsrsResponseStatus :: Lens' RestoreFromClusterSnapshotResponse Int-rfcsrsResponseStatus = lens _rfcsrsResponseStatus (\ s a -> s{_rfcsrsResponseStatus = a});+rfcsrsResponseStatus = lens _rfcsrsResponseStatus (\ s a -> s{_rfcsrsResponseStatus = a})  instance NFData RestoreFromClusterSnapshotResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.RestoreTableFromClusterSnapshot--- 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@@ -98,48 +98,48 @@     -> RestoreTableFromClusterSnapshot restoreTableFromClusterSnapshot pClusterIdentifier_ pSnapshotIdentifier_ pSourceDatabaseName_ pSourceTableName_ pNewTableName_ =   RestoreTableFromClusterSnapshot'-  { _rtfcsTargetSchemaName = Nothing-  , _rtfcsTargetDatabaseName = Nothing-  , _rtfcsSourceSchemaName = Nothing-  , _rtfcsClusterIdentifier = pClusterIdentifier_-  , _rtfcsSnapshotIdentifier = pSnapshotIdentifier_-  , _rtfcsSourceDatabaseName = pSourceDatabaseName_-  , _rtfcsSourceTableName = pSourceTableName_-  , _rtfcsNewTableName = pNewTableName_-  }+    { _rtfcsTargetSchemaName = Nothing+    , _rtfcsTargetDatabaseName = Nothing+    , _rtfcsSourceSchemaName = Nothing+    , _rtfcsClusterIdentifier = pClusterIdentifier_+    , _rtfcsSnapshotIdentifier = pSnapshotIdentifier_+    , _rtfcsSourceDatabaseName = pSourceDatabaseName_+    , _rtfcsSourceTableName = pSourceTableName_+    , _rtfcsNewTableName = pNewTableName_+    }   -- | The name of the schema to restore the table to. rtfcsTargetSchemaName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)-rtfcsTargetSchemaName = lens _rtfcsTargetSchemaName (\ s a -> s{_rtfcsTargetSchemaName = a});+rtfcsTargetSchemaName = lens _rtfcsTargetSchemaName (\ s a -> s{_rtfcsTargetSchemaName = a})  -- | The name of the database to restore the table to. rtfcsTargetDatabaseName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)-rtfcsTargetDatabaseName = lens _rtfcsTargetDatabaseName (\ s a -> s{_rtfcsTargetDatabaseName = a});+rtfcsTargetDatabaseName = lens _rtfcsTargetDatabaseName (\ s a -> s{_rtfcsTargetDatabaseName = a})  -- | The name of the source schema that contains the table to restore from. If you do not specify a @SourceSchemaName@ value, the default is @public@ . rtfcsSourceSchemaName :: Lens' RestoreTableFromClusterSnapshot (Maybe Text)-rtfcsSourceSchemaName = lens _rtfcsSourceSchemaName (\ s a -> s{_rtfcsSourceSchemaName = a});+rtfcsSourceSchemaName = lens _rtfcsSourceSchemaName (\ s a -> s{_rtfcsSourceSchemaName = a})  -- | The identifier of the Amazon Redshift cluster to restore the table to. rtfcsClusterIdentifier :: Lens' RestoreTableFromClusterSnapshot Text-rtfcsClusterIdentifier = lens _rtfcsClusterIdentifier (\ s a -> s{_rtfcsClusterIdentifier = a});+rtfcsClusterIdentifier = lens _rtfcsClusterIdentifier (\ s a -> s{_rtfcsClusterIdentifier = a})  -- | The identifier of the snapshot to restore the table from. This snapshot must have been created from the Amazon Redshift cluster specified by the @ClusterIdentifier@ parameter. rtfcsSnapshotIdentifier :: Lens' RestoreTableFromClusterSnapshot Text-rtfcsSnapshotIdentifier = lens _rtfcsSnapshotIdentifier (\ s a -> s{_rtfcsSnapshotIdentifier = a});+rtfcsSnapshotIdentifier = lens _rtfcsSnapshotIdentifier (\ s a -> s{_rtfcsSnapshotIdentifier = a})  -- | The name of the source database that contains the table to restore from. rtfcsSourceDatabaseName :: Lens' RestoreTableFromClusterSnapshot Text-rtfcsSourceDatabaseName = lens _rtfcsSourceDatabaseName (\ s a -> s{_rtfcsSourceDatabaseName = a});+rtfcsSourceDatabaseName = lens _rtfcsSourceDatabaseName (\ s a -> s{_rtfcsSourceDatabaseName = a})  -- | The name of the source table to restore from. rtfcsSourceTableName :: Lens' RestoreTableFromClusterSnapshot Text-rtfcsSourceTableName = lens _rtfcsSourceTableName (\ s a -> s{_rtfcsSourceTableName = a});+rtfcsSourceTableName = lens _rtfcsSourceTableName (\ s a -> s{_rtfcsSourceTableName = a})  -- | The name of the table to create as a result of the current request. rtfcsNewTableName :: Lens' RestoreTableFromClusterSnapshot Text-rtfcsNewTableName = lens _rtfcsNewTableName (\ s a -> s{_rtfcsNewTableName = a});+rtfcsNewTableName = lens _rtfcsNewTableName (\ s a -> s{_rtfcsNewTableName = a})  instance AWSRequest RestoreTableFromClusterSnapshot          where@@ -200,18 +200,18 @@     -> RestoreTableFromClusterSnapshotResponse restoreTableFromClusterSnapshotResponse pResponseStatus_ =   RestoreTableFromClusterSnapshotResponse'-  { _rtfcsrsTableRestoreStatus = Nothing-  , _rtfcsrsResponseStatus = pResponseStatus_-  }+    { _rtfcsrsTableRestoreStatus = Nothing+    , _rtfcsrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. rtfcsrsTableRestoreStatus :: Lens' RestoreTableFromClusterSnapshotResponse (Maybe TableRestoreStatus)-rtfcsrsTableRestoreStatus = lens _rtfcsrsTableRestoreStatus (\ s a -> s{_rtfcsrsTableRestoreStatus = a});+rtfcsrsTableRestoreStatus = lens _rtfcsrsTableRestoreStatus (\ s a -> s{_rtfcsrsTableRestoreStatus = a})  -- | -- | The response status code. rtfcsrsResponseStatus :: Lens' RestoreTableFromClusterSnapshotResponse Int-rtfcsrsResponseStatus = lens _rtfcsrsResponseStatus (\ s a -> s{_rtfcsrsResponseStatus = a});+rtfcsrsResponseStatus = lens _rtfcsrsResponseStatus (\ s a -> s{_rtfcsrsResponseStatus = a})  instance NFData            RestoreTableFromClusterSnapshotResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.RevokeClusterSecurityGroupIngress--- 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,28 +76,28 @@     -> RevokeClusterSecurityGroupIngress revokeClusterSecurityGroupIngress pClusterSecurityGroupName_ =   RevokeClusterSecurityGroupIngress'-  { _rcsgiEC2SecurityGroupOwnerId = Nothing-  , _rcsgiEC2SecurityGroupName = Nothing-  , _rcsgiCIdRIP = Nothing-  , _rcsgiClusterSecurityGroupName = pClusterSecurityGroupName_-  }+    { _rcsgiEC2SecurityGroupOwnerId = Nothing+    , _rcsgiEC2SecurityGroupName = Nothing+    , _rcsgiCIdRIP = Nothing+    , _rcsgiClusterSecurityGroupName = pClusterSecurityGroupName_+    }   -- | The AWS account number of the owner of the security group specified in the @EC2SecurityGroupName@ parameter. The AWS access key ID is not an acceptable value. If @EC2SecurityGroupOwnerId@ is specified, @EC2SecurityGroupName@ must also be provided. and @CIDRIP@ cannot be provided.  Example: @111122223333@ rcsgiEC2SecurityGroupOwnerId :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)-rcsgiEC2SecurityGroupOwnerId = lens _rcsgiEC2SecurityGroupOwnerId (\ s a -> s{_rcsgiEC2SecurityGroupOwnerId = a});+rcsgiEC2SecurityGroupOwnerId = lens _rcsgiEC2SecurityGroupOwnerId (\ s a -> s{_rcsgiEC2SecurityGroupOwnerId = a})  -- | The name of the EC2 Security Group whose access is to be revoked. If @EC2SecurityGroupName@ is specified, @EC2SecurityGroupOwnerId@ must also be provided and @CIDRIP@ cannot be provided. rcsgiEC2SecurityGroupName :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)-rcsgiEC2SecurityGroupName = lens _rcsgiEC2SecurityGroupName (\ s a -> s{_rcsgiEC2SecurityGroupName = a});+rcsgiEC2SecurityGroupName = lens _rcsgiEC2SecurityGroupName (\ s a -> s{_rcsgiEC2SecurityGroupName = a})  -- | The IP range for which to revoke access. This range must be a valid Classless Inter-Domain Routing (CIDR) block of IP addresses. If @CIDRIP@ is specified, @EC2SecurityGroupName@ and @EC2SecurityGroupOwnerId@ cannot be provided. rcsgiCIdRIP :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)-rcsgiCIdRIP = lens _rcsgiCIdRIP (\ s a -> s{_rcsgiCIdRIP = a});+rcsgiCIdRIP = lens _rcsgiCIdRIP (\ s a -> s{_rcsgiCIdRIP = a})  -- | The name of the security Group from which to revoke the ingress rule. rcsgiClusterSecurityGroupName :: Lens' RevokeClusterSecurityGroupIngress Text-rcsgiClusterSecurityGroupName = lens _rcsgiClusterSecurityGroupName (\ s a -> s{_rcsgiClusterSecurityGroupName = a});+rcsgiClusterSecurityGroupName = lens _rcsgiClusterSecurityGroupName (\ s a -> s{_rcsgiClusterSecurityGroupName = a})  instance AWSRequest RevokeClusterSecurityGroupIngress          where@@ -159,18 +159,18 @@     -> RevokeClusterSecurityGroupIngressResponse revokeClusterSecurityGroupIngressResponse pResponseStatus_ =   RevokeClusterSecurityGroupIngressResponse'-  { _rcsgirsClusterSecurityGroup = Nothing-  , _rcsgirsResponseStatus = pResponseStatus_-  }+    { _rcsgirsClusterSecurityGroup = Nothing+    , _rcsgirsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. rcsgirsClusterSecurityGroup :: Lens' RevokeClusterSecurityGroupIngressResponse (Maybe ClusterSecurityGroup)-rcsgirsClusterSecurityGroup = lens _rcsgirsClusterSecurityGroup (\ s a -> s{_rcsgirsClusterSecurityGroup = a});+rcsgirsClusterSecurityGroup = lens _rcsgirsClusterSecurityGroup (\ s a -> s{_rcsgirsClusterSecurityGroup = a})  -- | -- | The response status code. rcsgirsResponseStatus :: Lens' RevokeClusterSecurityGroupIngressResponse Int-rcsgirsResponseStatus = lens _rcsgirsResponseStatus (\ s a -> s{_rcsgirsResponseStatus = a});+rcsgirsResponseStatus = lens _rcsgirsResponseStatus (\ s a -> s{_rcsgirsResponseStatus = a})  instance NFData            RevokeClusterSecurityGroupIngressResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.RevokeSnapshotAccess--- 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 @@     -> RevokeSnapshotAccess revokeSnapshotAccess pSnapshotIdentifier_ pAccountWithRestoreAccess_ =   RevokeSnapshotAccess'-  { _rsaSnapshotClusterIdentifier = Nothing-  , _rsaSnapshotIdentifier = pSnapshotIdentifier_-  , _rsaAccountWithRestoreAccess = pAccountWithRestoreAccess_-  }+    { _rsaSnapshotClusterIdentifier = Nothing+    , _rsaSnapshotIdentifier = pSnapshotIdentifier_+    , _rsaAccountWithRestoreAccess = pAccountWithRestoreAccess_+    }   -- | The identifier of the cluster the snapshot was created from. This parameter is required if your IAM user has a policy containing a snapshot resource element that specifies anything other than * for the cluster name. rsaSnapshotClusterIdentifier :: Lens' RevokeSnapshotAccess (Maybe Text)-rsaSnapshotClusterIdentifier = lens _rsaSnapshotClusterIdentifier (\ s a -> s{_rsaSnapshotClusterIdentifier = a});+rsaSnapshotClusterIdentifier = lens _rsaSnapshotClusterIdentifier (\ s a -> s{_rsaSnapshotClusterIdentifier = a})  -- | The identifier of the snapshot that the account can no longer access. rsaSnapshotIdentifier :: Lens' RevokeSnapshotAccess Text-rsaSnapshotIdentifier = lens _rsaSnapshotIdentifier (\ s a -> s{_rsaSnapshotIdentifier = a});+rsaSnapshotIdentifier = lens _rsaSnapshotIdentifier (\ s a -> s{_rsaSnapshotIdentifier = a})  -- | The identifier of the AWS customer account that can no longer restore the specified snapshot. rsaAccountWithRestoreAccess :: Lens' RevokeSnapshotAccess Text-rsaAccountWithRestoreAccess = lens _rsaAccountWithRestoreAccess (\ s a -> s{_rsaAccountWithRestoreAccess = a});+rsaAccountWithRestoreAccess = lens _rsaAccountWithRestoreAccess (\ s a -> s{_rsaAccountWithRestoreAccess = a})  instance AWSRequest RevokeSnapshotAccess where         type Rs RevokeSnapshotAccess =@@ -143,15 +143,15 @@     -> RevokeSnapshotAccessResponse revokeSnapshotAccessResponse pResponseStatus_ =   RevokeSnapshotAccessResponse'-  {_rsarsSnapshot = Nothing, _rsarsResponseStatus = pResponseStatus_}+    {_rsarsSnapshot = Nothing, _rsarsResponseStatus = pResponseStatus_}   -- | Undocumented member. rsarsSnapshot :: Lens' RevokeSnapshotAccessResponse (Maybe Snapshot)-rsarsSnapshot = lens _rsarsSnapshot (\ s a -> s{_rsarsSnapshot = a});+rsarsSnapshot = lens _rsarsSnapshot (\ s a -> s{_rsarsSnapshot = a})  -- | -- | The response status code. rsarsResponseStatus :: Lens' RevokeSnapshotAccessResponse Int-rsarsResponseStatus = lens _rsarsResponseStatus (\ s a -> s{_rsarsResponseStatus = a});+rsarsResponseStatus = lens _rsarsResponseStatus (\ s a -> s{_rsarsResponseStatus = a})  instance NFData RevokeSnapshotAccessResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Redshift.RotateEncryptionKey--- 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 unique identifier of the cluster that you want to rotate the encryption keys for. Constraints: Must be the name of valid cluster that has encryption enabled. rekClusterIdentifier :: Lens' RotateEncryptionKey Text-rekClusterIdentifier = lens _rekClusterIdentifier (\ s a -> s{_rekClusterIdentifier = a});+rekClusterIdentifier = lens _rekClusterIdentifier (\ s a -> s{_rekClusterIdentifier = a})  instance AWSRequest RotateEncryptionKey where         type Rs RotateEncryptionKey =@@ -116,15 +116,15 @@     -> RotateEncryptionKeyResponse rotateEncryptionKeyResponse pResponseStatus_ =   RotateEncryptionKeyResponse'-  {_rekrsCluster = Nothing, _rekrsResponseStatus = pResponseStatus_}+    {_rekrsCluster = Nothing, _rekrsResponseStatus = pResponseStatus_}   -- | Undocumented member. rekrsCluster :: Lens' RotateEncryptionKeyResponse (Maybe Cluster)-rekrsCluster = lens _rekrsCluster (\ s a -> s{_rekrsCluster = a});+rekrsCluster = lens _rekrsCluster (\ s a -> s{_rekrsCluster = a})  -- | -- | The response status code. rekrsResponseStatus :: Lens' RotateEncryptionKeyResponse Int-rekrsResponseStatus = lens _rekrsResponseStatus (\ s a -> s{_rekrsResponseStatus = a});+rekrsResponseStatus = lens _rekrsResponseStatus (\ s a -> s{_rekrsResponseStatus = a})  instance NFData RotateEncryptionKeyResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.Redshift.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@@ -107,6 +107,9 @@     -- * ParameterApplyType     , ParameterApplyType (..) +    -- * ReservedNodeOfferingType+    , ReservedNodeOfferingType (..)+     -- * SourceType     , SourceType (..) @@ -123,6 +126,7 @@     , AvailabilityZone     , availabilityZone     , azName+    , azSupportedPlatforms      -- * Cluster     , Cluster@@ -391,6 +395,7 @@     -- * ReservedNode     , ReservedNode     , reservedNode+    , rnReservedNodeOfferingType     , rnState     , rnCurrencyCode     , rnStartTime@@ -407,6 +412,7 @@     -- * ReservedNodeOffering     , ReservedNodeOffering     , reservedNodeOffering+    , rnoReservedNodeOfferingType     , rnoCurrencyCode     , rnoReservedNodeOfferingId     , rnoRecurringCharges@@ -473,6 +479,11 @@     , sSubnetIdentifier     , sSubnetAvailabilityZone +    -- * SupportedPlatform+    , SupportedPlatform+    , supportedPlatform+    , spName+     -- * TableRestoreStatus     , TableRestoreStatus     , tableRestoreStatus@@ -522,24 +533,24 @@ redshift :: Service redshift =   Service-  { _svcAbbrev = "Redshift"-  , _svcSigner = v4-  , _svcPrefix = "redshift"-  , _svcVersion = "2012-12-01"-  , _svcEndpoint = defaultEndpoint redshift-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseXMLError "Redshift"-  , _svcRetry = retry-  }+    { _svcAbbrev = "Redshift"+    , _svcSigner = v4+    , _svcPrefix = "redshift"+    , _svcVersion = "2012-12-01"+    , _svcEndpoint = defaultEndpoint redshift+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError "Redshift"+    , _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"@@ -548,6 +559,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,3231 +9,3293 @@  -- | -- Module      : Network.AWS.Redshift.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.Redshift.Types.Product where--import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Redshift.Internal-import Network.AWS.Redshift.Types.Sum---- | Describes an AWS customer account authorized to restore a snapshot.------------ /See:/ 'accountWithRestoreAccess' smart constructor.-data AccountWithRestoreAccess = AccountWithRestoreAccess'-  { _awraAccountAlias :: !(Maybe Text)-  , _awraAccountId    :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AccountWithRestoreAccess' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'awraAccountAlias' - The identifier of an AWS support account authorized to restore a snapshot. For AWS support, the identifier is @amazon-redshift-support@ .------ * 'awraAccountId' - The identifier of an AWS customer account authorized to restore a snapshot.-accountWithRestoreAccess-    :: AccountWithRestoreAccess-accountWithRestoreAccess =-  AccountWithRestoreAccess'-  {_awraAccountAlias = Nothing, _awraAccountId = Nothing}----- | The identifier of an AWS support account authorized to restore a snapshot. For AWS support, the identifier is @amazon-redshift-support@ .-awraAccountAlias :: Lens' AccountWithRestoreAccess (Maybe Text)-awraAccountAlias = lens _awraAccountAlias (\ s a -> s{_awraAccountAlias = a});---- | The identifier of an AWS customer account authorized to restore a snapshot.-awraAccountId :: Lens' AccountWithRestoreAccess (Maybe Text)-awraAccountId = lens _awraAccountId (\ s a -> s{_awraAccountId = a});--instance FromXML AccountWithRestoreAccess where-        parseXML x-          = AccountWithRestoreAccess' <$>-              (x .@? "AccountAlias") <*> (x .@? "AccountId")--instance Hashable AccountWithRestoreAccess where--instance NFData AccountWithRestoreAccess where---- | Describes an availability zone.------------ /See:/ 'availabilityZone' smart constructor.-newtype AvailabilityZone = AvailabilityZone'-  { _azName :: Maybe Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AvailabilityZone' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'azName' - The name of the availability zone.-availabilityZone-    :: AvailabilityZone-availabilityZone = AvailabilityZone' {_azName = Nothing}----- | The name of the availability zone.-azName :: Lens' AvailabilityZone (Maybe Text)-azName = lens _azName (\ s a -> s{_azName = a});--instance FromXML AvailabilityZone where-        parseXML x = AvailabilityZone' <$> (x .@? "Name")--instance Hashable AvailabilityZone where--instance NFData AvailabilityZone where---- | Describes a cluster.------------ /See:/ 'cluster' smart constructor.-data Cluster = Cluster'-  { _cRestoreStatus :: !(Maybe RestoreStatus)-  , _cEnhancedVPCRouting :: !(Maybe Bool)-  , _cClusterSnapshotCopyStatus :: !(Maybe ClusterSnapshotCopyStatus)-  , _cClusterRevisionNumber :: !(Maybe Text)-  , _cPubliclyAccessible :: !(Maybe Bool)-  , _cMasterUsername :: !(Maybe Text)-  , _cVPCId :: !(Maybe Text)-  , _cClusterSecurityGroups :: !(Maybe [ClusterSecurityGroupMembership])-  , _cAutomatedSnapshotRetentionPeriod :: !(Maybe Int)-  , _cEncrypted :: !(Maybe Bool)-  , _cClusterSubnetGroupName :: !(Maybe Text)-  , _cClusterIdentifier :: !(Maybe Text)-  , _cNumberOfNodes :: !(Maybe Int)-  , _cClusterPublicKey :: !(Maybe Text)-  , _cPreferredMaintenanceWindow :: !(Maybe Text)-  , _cModifyStatus :: !(Maybe Text)-  , _cKMSKeyId :: !(Maybe Text)-  , _cClusterParameterGroups :: !(Maybe [ClusterParameterGroupStatus])-  , _cAvailabilityZone :: !(Maybe Text)-  , _cVPCSecurityGroups :: !(Maybe [VPCSecurityGroupMembership])-  , _cHSMStatus :: !(Maybe HSMStatus)-  , _cIAMRoles :: !(Maybe [ClusterIAMRole])-  , _cElasticIPStatus :: !(Maybe ElasticIPStatus)-  , _cClusterVersion :: !(Maybe Text)-  , _cNodeType :: !(Maybe Text)-  , _cClusterCreateTime :: !(Maybe ISO8601)-  , _cEndpoint :: !(Maybe Endpoint)-  , _cAllowVersionUpgrade :: !(Maybe Bool)-  , _cClusterStatus :: !(Maybe Text)-  , _cPendingModifiedValues :: !(Maybe PendingModifiedValues)-  , _cTags :: !(Maybe [Tag])-  , _cClusterNodes :: !(Maybe [ClusterNode])-  , _cDBName :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Cluster' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cRestoreStatus' - A value that describes the status of a cluster restore action. This parameter returns null if the cluster was not created by restoring a snapshot.------ * 'cEnhancedVPCRouting' - An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false------ * 'cClusterSnapshotCopyStatus' - A value that returns the destination region and retention period that are configured for cross-region snapshot copy.------ * 'cClusterRevisionNumber' - The specific revision number of the database in the cluster.------ * 'cPubliclyAccessible' - A Boolean value that, if @true@ , indicates that the cluster can be accessed from a public network.------ * 'cMasterUsername' - The master user name for the cluster. This name is used to connect to the database that is specified in the __DBName__ parameter.------ * 'cVPCId' - The identifier of the VPC the cluster is in, if the cluster is in a VPC.------ * 'cClusterSecurityGroups' - A list of cluster security group that are associated with the cluster. Each security group is represented by an element that contains @ClusterSecurityGroup.Name@ and @ClusterSecurityGroup.Status@ subelements.  Cluster security groups are used when the cluster is not created in an Amazon Virtual Private Cloud (VPC). Clusters that are created in a VPC use VPC security groups, which are listed by the __VpcSecurityGroups__ parameter.------ * 'cAutomatedSnapshotRetentionPeriod' - The number of days that automatic cluster snapshots are retained.------ * 'cEncrypted' - A Boolean value that, if @true@ , indicates that data in the cluster is encrypted at rest.------ * 'cClusterSubnetGroupName' - The name of the subnet group that is associated with the cluster. This parameter is valid only when the cluster is in a VPC.------ * 'cClusterIdentifier' - The unique identifier of the cluster.------ * 'cNumberOfNodes' - The number of compute nodes in the cluster.------ * 'cClusterPublicKey' - The public key for the cluster.------ * 'cPreferredMaintenanceWindow' - The weekly time range, in Universal Coordinated Time (UTC), during which system maintenance can occur.------ * 'cModifyStatus' - The status of a modify operation, if any, initiated for the cluster.------ * 'cKMSKeyId' - The AWS Key Management Service (AWS KMS) key ID of the encryption key used to encrypt data in the cluster.------ * 'cClusterParameterGroups' - The list of cluster parameter groups that are associated with this cluster. Each parameter group in the list is returned with its status.------ * 'cAvailabilityZone' - The name of the Availability Zone in which the cluster is located.------ * 'cVPCSecurityGroups' - A list of Amazon Virtual Private Cloud (Amazon VPC) security groups that are associated with the cluster. This parameter is returned only if the cluster is in a VPC.------ * 'cHSMStatus' - A value that reports whether the Amazon Redshift cluster has finished applying any hardware security module (HSM) settings changes specified in a modify cluster command. Values: active, applying------ * 'cIAMRoles' - A list of AWS Identity and Access Management (IAM) roles that can be used by the cluster to access other AWS services.------ * 'cElasticIPStatus' - The status of the elastic IP (EIP) address.------ * 'cClusterVersion' - The version ID of the Amazon Redshift engine that is running on the cluster.------ * 'cNodeType' - The node type for the nodes in the cluster.------ * 'cClusterCreateTime' - The date and time that the cluster was created.------ * 'cEndpoint' - The connection endpoint.------ * 'cAllowVersionUpgrade' - A Boolean value that, if @true@ , indicates that major version upgrades will be applied automatically to the cluster during the maintenance window.------ * 'cClusterStatus' - The current state of the cluster. Possible values are the following:     * @available@      * @creating@      * @deleting@      * @final-snapshot@      * @hardware-failure@      * @incompatible-hsm@      * @incompatible-network@      * @incompatible-parameters@      * @incompatible-restore@      * @modifying@      * @rebooting@      * @renaming@      * @resizing@      * @rotating-keys@      * @storage-full@      * @updating-hsm@------ * 'cPendingModifiedValues' - A value that, if present, indicates that changes to the cluster are pending. Specific pending changes are identified by subelements.------ * 'cTags' - The list of tags for the cluster.------ * 'cClusterNodes' - The nodes in the cluster.------ * 'cDBName' - The name of the initial database that was created when the cluster was created. This same name is returned for the life of the cluster. If an initial database was not specified, a database named @dev@ dev was created by default.-cluster-    :: Cluster-cluster =-  Cluster'-  { _cRestoreStatus = Nothing-  , _cEnhancedVPCRouting = Nothing-  , _cClusterSnapshotCopyStatus = Nothing-  , _cClusterRevisionNumber = Nothing-  , _cPubliclyAccessible = Nothing-  , _cMasterUsername = Nothing-  , _cVPCId = Nothing-  , _cClusterSecurityGroups = Nothing-  , _cAutomatedSnapshotRetentionPeriod = Nothing-  , _cEncrypted = Nothing-  , _cClusterSubnetGroupName = Nothing-  , _cClusterIdentifier = Nothing-  , _cNumberOfNodes = Nothing-  , _cClusterPublicKey = Nothing-  , _cPreferredMaintenanceWindow = Nothing-  , _cModifyStatus = Nothing-  , _cKMSKeyId = Nothing-  , _cClusterParameterGroups = Nothing-  , _cAvailabilityZone = Nothing-  , _cVPCSecurityGroups = Nothing-  , _cHSMStatus = Nothing-  , _cIAMRoles = Nothing-  , _cElasticIPStatus = Nothing-  , _cClusterVersion = Nothing-  , _cNodeType = Nothing-  , _cClusterCreateTime = Nothing-  , _cEndpoint = Nothing-  , _cAllowVersionUpgrade = Nothing-  , _cClusterStatus = Nothing-  , _cPendingModifiedValues = Nothing-  , _cTags = Nothing-  , _cClusterNodes = Nothing-  , _cDBName = Nothing-  }----- | A value that describes the status of a cluster restore action. This parameter returns null if the cluster was not created by restoring a snapshot.-cRestoreStatus :: Lens' Cluster (Maybe RestoreStatus)-cRestoreStatus = lens _cRestoreStatus (\ s a -> s{_cRestoreStatus = a});---- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false-cEnhancedVPCRouting :: Lens' Cluster (Maybe Bool)-cEnhancedVPCRouting = lens _cEnhancedVPCRouting (\ s a -> s{_cEnhancedVPCRouting = a});---- | A value that returns the destination region and retention period that are configured for cross-region snapshot copy.-cClusterSnapshotCopyStatus :: Lens' Cluster (Maybe ClusterSnapshotCopyStatus)-cClusterSnapshotCopyStatus = lens _cClusterSnapshotCopyStatus (\ s a -> s{_cClusterSnapshotCopyStatus = a});---- | The specific revision number of the database in the cluster.-cClusterRevisionNumber :: Lens' Cluster (Maybe Text)-cClusterRevisionNumber = lens _cClusterRevisionNumber (\ s a -> s{_cClusterRevisionNumber = a});---- | A Boolean value that, if @true@ , indicates that the cluster can be accessed from a public network.-cPubliclyAccessible :: Lens' Cluster (Maybe Bool)-cPubliclyAccessible = lens _cPubliclyAccessible (\ s a -> s{_cPubliclyAccessible = a});---- | The master user name for the cluster. This name is used to connect to the database that is specified in the __DBName__ parameter.-cMasterUsername :: Lens' Cluster (Maybe Text)-cMasterUsername = lens _cMasterUsername (\ s a -> s{_cMasterUsername = a});---- | The identifier of the VPC the cluster is in, if the cluster is in a VPC.-cVPCId :: Lens' Cluster (Maybe Text)-cVPCId = lens _cVPCId (\ s a -> s{_cVPCId = a});---- | A list of cluster security group that are associated with the cluster. Each security group is represented by an element that contains @ClusterSecurityGroup.Name@ and @ClusterSecurityGroup.Status@ subelements.  Cluster security groups are used when the cluster is not created in an Amazon Virtual Private Cloud (VPC). Clusters that are created in a VPC use VPC security groups, which are listed by the __VpcSecurityGroups__ parameter.-cClusterSecurityGroups :: Lens' Cluster [ClusterSecurityGroupMembership]-cClusterSecurityGroups = lens _cClusterSecurityGroups (\ s a -> s{_cClusterSecurityGroups = a}) . _Default . _Coerce;---- | The number of days that automatic cluster snapshots are retained.-cAutomatedSnapshotRetentionPeriod :: Lens' Cluster (Maybe Int)-cAutomatedSnapshotRetentionPeriod = lens _cAutomatedSnapshotRetentionPeriod (\ s a -> s{_cAutomatedSnapshotRetentionPeriod = a});---- | A Boolean value that, if @true@ , indicates that data in the cluster is encrypted at rest.-cEncrypted :: Lens' Cluster (Maybe Bool)-cEncrypted = lens _cEncrypted (\ s a -> s{_cEncrypted = a});---- | The name of the subnet group that is associated with the cluster. This parameter is valid only when the cluster is in a VPC.-cClusterSubnetGroupName :: Lens' Cluster (Maybe Text)-cClusterSubnetGroupName = lens _cClusterSubnetGroupName (\ s a -> s{_cClusterSubnetGroupName = a});---- | The unique identifier of the cluster.-cClusterIdentifier :: Lens' Cluster (Maybe Text)-cClusterIdentifier = lens _cClusterIdentifier (\ s a -> s{_cClusterIdentifier = a});---- | The number of compute nodes in the cluster.-cNumberOfNodes :: Lens' Cluster (Maybe Int)-cNumberOfNodes = lens _cNumberOfNodes (\ s a -> s{_cNumberOfNodes = a});---- | The public key for the cluster.-cClusterPublicKey :: Lens' Cluster (Maybe Text)-cClusterPublicKey = lens _cClusterPublicKey (\ s a -> s{_cClusterPublicKey = a});---- | The weekly time range, in Universal Coordinated Time (UTC), during which system maintenance can occur.-cPreferredMaintenanceWindow :: Lens' Cluster (Maybe Text)-cPreferredMaintenanceWindow = lens _cPreferredMaintenanceWindow (\ s a -> s{_cPreferredMaintenanceWindow = a});---- | The status of a modify operation, if any, initiated for the cluster.-cModifyStatus :: Lens' Cluster (Maybe Text)-cModifyStatus = lens _cModifyStatus (\ s a -> s{_cModifyStatus = a});---- | The AWS Key Management Service (AWS KMS) key ID of the encryption key used to encrypt data in the cluster.-cKMSKeyId :: Lens' Cluster (Maybe Text)-cKMSKeyId = lens _cKMSKeyId (\ s a -> s{_cKMSKeyId = a});---- | The list of cluster parameter groups that are associated with this cluster. Each parameter group in the list is returned with its status.-cClusterParameterGroups :: Lens' Cluster [ClusterParameterGroupStatus]-cClusterParameterGroups = lens _cClusterParameterGroups (\ s a -> s{_cClusterParameterGroups = a}) . _Default . _Coerce;---- | The name of the Availability Zone in which the cluster is located.-cAvailabilityZone :: Lens' Cluster (Maybe Text)-cAvailabilityZone = lens _cAvailabilityZone (\ s a -> s{_cAvailabilityZone = a});---- | A list of Amazon Virtual Private Cloud (Amazon VPC) security groups that are associated with the cluster. This parameter is returned only if the cluster is in a VPC.-cVPCSecurityGroups :: Lens' Cluster [VPCSecurityGroupMembership]-cVPCSecurityGroups = lens _cVPCSecurityGroups (\ s a -> s{_cVPCSecurityGroups = a}) . _Default . _Coerce;---- | A value that reports whether the Amazon Redshift cluster has finished applying any hardware security module (HSM) settings changes specified in a modify cluster command. Values: active, applying-cHSMStatus :: Lens' Cluster (Maybe HSMStatus)-cHSMStatus = lens _cHSMStatus (\ s a -> s{_cHSMStatus = a});---- | A list of AWS Identity and Access Management (IAM) roles that can be used by the cluster to access other AWS services.-cIAMRoles :: Lens' Cluster [ClusterIAMRole]-cIAMRoles = lens _cIAMRoles (\ s a -> s{_cIAMRoles = a}) . _Default . _Coerce;---- | The status of the elastic IP (EIP) address.-cElasticIPStatus :: Lens' Cluster (Maybe ElasticIPStatus)-cElasticIPStatus = lens _cElasticIPStatus (\ s a -> s{_cElasticIPStatus = a});---- | The version ID of the Amazon Redshift engine that is running on the cluster.-cClusterVersion :: Lens' Cluster (Maybe Text)-cClusterVersion = lens _cClusterVersion (\ s a -> s{_cClusterVersion = a});---- | The node type for the nodes in the cluster.-cNodeType :: Lens' Cluster (Maybe Text)-cNodeType = lens _cNodeType (\ s a -> s{_cNodeType = a});---- | The date and time that the cluster was created.-cClusterCreateTime :: Lens' Cluster (Maybe UTCTime)-cClusterCreateTime = lens _cClusterCreateTime (\ s a -> s{_cClusterCreateTime = a}) . mapping _Time;---- | The connection endpoint.-cEndpoint :: Lens' Cluster (Maybe Endpoint)-cEndpoint = lens _cEndpoint (\ s a -> s{_cEndpoint = a});---- | A Boolean value that, if @true@ , indicates that major version upgrades will be applied automatically to the cluster during the maintenance window.-cAllowVersionUpgrade :: Lens' Cluster (Maybe Bool)-cAllowVersionUpgrade = lens _cAllowVersionUpgrade (\ s a -> s{_cAllowVersionUpgrade = a});---- | The current state of the cluster. Possible values are the following:     * @available@      * @creating@      * @deleting@      * @final-snapshot@      * @hardware-failure@      * @incompatible-hsm@      * @incompatible-network@      * @incompatible-parameters@      * @incompatible-restore@      * @modifying@      * @rebooting@      * @renaming@      * @resizing@      * @rotating-keys@      * @storage-full@      * @updating-hsm@-cClusterStatus :: Lens' Cluster (Maybe Text)-cClusterStatus = lens _cClusterStatus (\ s a -> s{_cClusterStatus = a});---- | A value that, if present, indicates that changes to the cluster are pending. Specific pending changes are identified by subelements.-cPendingModifiedValues :: Lens' Cluster (Maybe PendingModifiedValues)-cPendingModifiedValues = lens _cPendingModifiedValues (\ s a -> s{_cPendingModifiedValues = a});---- | The list of tags for the cluster.-cTags :: Lens' Cluster [Tag]-cTags = lens _cTags (\ s a -> s{_cTags = a}) . _Default . _Coerce;---- | The nodes in the cluster.-cClusterNodes :: Lens' Cluster [ClusterNode]-cClusterNodes = lens _cClusterNodes (\ s a -> s{_cClusterNodes = a}) . _Default . _Coerce;---- | The name of the initial database that was created when the cluster was created. This same name is returned for the life of the cluster. If an initial database was not specified, a database named @dev@ dev was created by default.-cDBName :: Lens' Cluster (Maybe Text)-cDBName = lens _cDBName (\ s a -> s{_cDBName = a});--instance FromXML Cluster where-        parseXML x-          = Cluster' <$>-              (x .@? "RestoreStatus") <*>-                (x .@? "EnhancedVpcRouting")-                <*> (x .@? "ClusterSnapshotCopyStatus")-                <*> (x .@? "ClusterRevisionNumber")-                <*> (x .@? "PubliclyAccessible")-                <*> (x .@? "MasterUsername")-                <*> (x .@? "VpcId")-                <*>-                (x .@? "ClusterSecurityGroups" .!@ mempty >>=-                   may (parseXMLList "ClusterSecurityGroup"))-                <*> (x .@? "AutomatedSnapshotRetentionPeriod")-                <*> (x .@? "Encrypted")-                <*> (x .@? "ClusterSubnetGroupName")-                <*> (x .@? "ClusterIdentifier")-                <*> (x .@? "NumberOfNodes")-                <*> (x .@? "ClusterPublicKey")-                <*> (x .@? "PreferredMaintenanceWindow")-                <*> (x .@? "ModifyStatus")-                <*> (x .@? "KmsKeyId")-                <*>-                (x .@? "ClusterParameterGroups" .!@ mempty >>=-                   may (parseXMLList "ClusterParameterGroup"))-                <*> (x .@? "AvailabilityZone")-                <*>-                (x .@? "VpcSecurityGroups" .!@ mempty >>=-                   may (parseXMLList "VpcSecurityGroup"))-                <*> (x .@? "HsmStatus")-                <*>-                (x .@? "IamRoles" .!@ mempty >>=-                   may (parseXMLList "ClusterIamRole"))-                <*> (x .@? "ElasticIpStatus")-                <*> (x .@? "ClusterVersion")-                <*> (x .@? "NodeType")-                <*> (x .@? "ClusterCreateTime")-                <*> (x .@? "Endpoint")-                <*> (x .@? "AllowVersionUpgrade")-                <*> (x .@? "ClusterStatus")-                <*> (x .@? "PendingModifiedValues")-                <*>-                (x .@? "Tags" .!@ mempty >>=-                   may (parseXMLList "Tag"))-                <*>-                (x .@? "ClusterNodes" .!@ mempty >>=-                   may (parseXMLList "member"))-                <*> (x .@? "DBName")--instance Hashable Cluster where--instance NFData Cluster where---- | An AWS Identity and Access Management (IAM) role that can be used by the associated Amazon Redshift cluster to access other AWS services.------------ /See:/ 'clusterIAMRole' smart constructor.-data ClusterIAMRole = ClusterIAMRole'-  { _cirIAMRoleARN  :: !(Maybe Text)-  , _cirApplyStatus :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterIAMRole' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cirIAMRoleARN' - The Amazon Resource Name (ARN) of the IAM role, for example, @arn:aws:iam::123456789012:role/RedshiftCopyUnload@ .------ * 'cirApplyStatus' - A value that describes the status of the IAM role's association with an Amazon Redshift cluster. The following are possible statuses and descriptions.     * @in-sync@ : The role is available for use by the cluster.     * @adding@ : The role is in the process of being associated with the cluster.     * @removing@ : The role is in the process of being disassociated with the cluster.-clusterIAMRole-    :: ClusterIAMRole-clusterIAMRole =-  ClusterIAMRole' {_cirIAMRoleARN = Nothing, _cirApplyStatus = Nothing}----- | The Amazon Resource Name (ARN) of the IAM role, for example, @arn:aws:iam::123456789012:role/RedshiftCopyUnload@ .-cirIAMRoleARN :: Lens' ClusterIAMRole (Maybe Text)-cirIAMRoleARN = lens _cirIAMRoleARN (\ s a -> s{_cirIAMRoleARN = a});---- | A value that describes the status of the IAM role's association with an Amazon Redshift cluster. The following are possible statuses and descriptions.     * @in-sync@ : The role is available for use by the cluster.     * @adding@ : The role is in the process of being associated with the cluster.     * @removing@ : The role is in the process of being disassociated with the cluster.-cirApplyStatus :: Lens' ClusterIAMRole (Maybe Text)-cirApplyStatus = lens _cirApplyStatus (\ s a -> s{_cirApplyStatus = a});--instance FromXML ClusterIAMRole where-        parseXML x-          = ClusterIAMRole' <$>-              (x .@? "IamRoleArn") <*> (x .@? "ApplyStatus")--instance Hashable ClusterIAMRole where--instance NFData ClusterIAMRole where---- | The identifier of a node in a cluster.------------ /See:/ 'clusterNode' smart constructor.-data ClusterNode = ClusterNode'-  { _cnNodeRole         :: !(Maybe Text)-  , _cnPrivateIPAddress :: !(Maybe Text)-  , _cnPublicIPAddress  :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterNode' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cnNodeRole' - Whether the node is a leader node or a compute node.------ * 'cnPrivateIPAddress' - The private IP address of a node within a cluster.------ * 'cnPublicIPAddress' - The public IP address of a node within a cluster.-clusterNode-    :: ClusterNode-clusterNode =-  ClusterNode'-  { _cnNodeRole = Nothing-  , _cnPrivateIPAddress = Nothing-  , _cnPublicIPAddress = Nothing-  }----- | Whether the node is a leader node or a compute node.-cnNodeRole :: Lens' ClusterNode (Maybe Text)-cnNodeRole = lens _cnNodeRole (\ s a -> s{_cnNodeRole = a});---- | The private IP address of a node within a cluster.-cnPrivateIPAddress :: Lens' ClusterNode (Maybe Text)-cnPrivateIPAddress = lens _cnPrivateIPAddress (\ s a -> s{_cnPrivateIPAddress = a});---- | The public IP address of a node within a cluster.-cnPublicIPAddress :: Lens' ClusterNode (Maybe Text)-cnPublicIPAddress = lens _cnPublicIPAddress (\ s a -> s{_cnPublicIPAddress = a});--instance FromXML ClusterNode where-        parseXML x-          = ClusterNode' <$>-              (x .@? "NodeRole") <*> (x .@? "PrivateIPAddress") <*>-                (x .@? "PublicIPAddress")--instance Hashable ClusterNode where--instance NFData ClusterNode where---- | Describes a parameter group.------------ /See:/ 'clusterParameterGroup' smart constructor.-data ClusterParameterGroup = ClusterParameterGroup'-  { _cpgParameterGroupFamily :: !(Maybe Text)-  , _cpgDescription          :: !(Maybe Text)-  , _cpgTags                 :: !(Maybe [Tag])-  , _cpgParameterGroupName   :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterParameterGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpgParameterGroupFamily' - The name of the cluster parameter group family that this cluster parameter group is compatible with.------ * 'cpgDescription' - The description of the parameter group.------ * 'cpgTags' - The list of tags for the cluster parameter group.------ * 'cpgParameterGroupName' - The name of the cluster parameter group.-clusterParameterGroup-    :: ClusterParameterGroup-clusterParameterGroup =-  ClusterParameterGroup'-  { _cpgParameterGroupFamily = Nothing-  , _cpgDescription = Nothing-  , _cpgTags = Nothing-  , _cpgParameterGroupName = Nothing-  }----- | The name of the cluster parameter group family that this cluster parameter group is compatible with.-cpgParameterGroupFamily :: Lens' ClusterParameterGroup (Maybe Text)-cpgParameterGroupFamily = lens _cpgParameterGroupFamily (\ s a -> s{_cpgParameterGroupFamily = a});---- | The description of the parameter group.-cpgDescription :: Lens' ClusterParameterGroup (Maybe Text)-cpgDescription = lens _cpgDescription (\ s a -> s{_cpgDescription = a});---- | The list of tags for the cluster parameter group.-cpgTags :: Lens' ClusterParameterGroup [Tag]-cpgTags = lens _cpgTags (\ s a -> s{_cpgTags = a}) . _Default . _Coerce;---- | The name of the cluster parameter group.-cpgParameterGroupName :: Lens' ClusterParameterGroup (Maybe Text)-cpgParameterGroupName = lens _cpgParameterGroupName (\ s a -> s{_cpgParameterGroupName = a});--instance FromXML ClusterParameterGroup where-        parseXML x-          = ClusterParameterGroup' <$>-              (x .@? "ParameterGroupFamily") <*>-                (x .@? "Description")-                <*>-                (x .@? "Tags" .!@ mempty >>=-                   may (parseXMLList "Tag"))-                <*> (x .@? "ParameterGroupName")--instance Hashable ClusterParameterGroup where--instance NFData ClusterParameterGroup where---- |------------ /See:/ 'clusterParameterGroupNameMessage' smart constructor.-data ClusterParameterGroupNameMessage = ClusterParameterGroupNameMessage'-  { _cpgnmParameterGroupStatus :: !(Maybe Text)-  , _cpgnmParameterGroupName   :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterParameterGroupNameMessage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpgnmParameterGroupStatus' - The status of the parameter group. For example, if you made a change to a parameter group name-value pair, then the change could be pending a reboot of an associated cluster.------ * 'cpgnmParameterGroupName' - The name of the cluster parameter group.-clusterParameterGroupNameMessage-    :: ClusterParameterGroupNameMessage-clusterParameterGroupNameMessage =-  ClusterParameterGroupNameMessage'-  {_cpgnmParameterGroupStatus = Nothing, _cpgnmParameterGroupName = Nothing}----- | The status of the parameter group. For example, if you made a change to a parameter group name-value pair, then the change could be pending a reboot of an associated cluster.-cpgnmParameterGroupStatus :: Lens' ClusterParameterGroupNameMessage (Maybe Text)-cpgnmParameterGroupStatus = lens _cpgnmParameterGroupStatus (\ s a -> s{_cpgnmParameterGroupStatus = a});---- | The name of the cluster parameter group.-cpgnmParameterGroupName :: Lens' ClusterParameterGroupNameMessage (Maybe Text)-cpgnmParameterGroupName = lens _cpgnmParameterGroupName (\ s a -> s{_cpgnmParameterGroupName = a});--instance FromXML ClusterParameterGroupNameMessage-         where-        parseXML x-          = ClusterParameterGroupNameMessage' <$>-              (x .@? "ParameterGroupStatus") <*>-                (x .@? "ParameterGroupName")--instance Hashable ClusterParameterGroupNameMessage-         where--instance NFData ClusterParameterGroupNameMessage-         where---- | Describes the status of a parameter group.------------ /See:/ 'clusterParameterGroupStatus' smart constructor.-data ClusterParameterGroupStatus = ClusterParameterGroupStatus'-  { _cpgsClusterParameterStatusList :: !(Maybe [ClusterParameterStatus])-  , _cpgsParameterApplyStatus       :: !(Maybe Text)-  , _cpgsParameterGroupName         :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterParameterGroupStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpgsClusterParameterStatusList' - The list of parameter statuses. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .------ * 'cpgsParameterApplyStatus' - The status of parameter updates.------ * 'cpgsParameterGroupName' - The name of the cluster parameter group.-clusterParameterGroupStatus-    :: ClusterParameterGroupStatus-clusterParameterGroupStatus =-  ClusterParameterGroupStatus'-  { _cpgsClusterParameterStatusList = Nothing-  , _cpgsParameterApplyStatus = Nothing-  , _cpgsParameterGroupName = Nothing-  }----- | The list of parameter statuses. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .-cpgsClusterParameterStatusList :: Lens' ClusterParameterGroupStatus [ClusterParameterStatus]-cpgsClusterParameterStatusList = lens _cpgsClusterParameterStatusList (\ s a -> s{_cpgsClusterParameterStatusList = a}) . _Default . _Coerce;---- | The status of parameter updates.-cpgsParameterApplyStatus :: Lens' ClusterParameterGroupStatus (Maybe Text)-cpgsParameterApplyStatus = lens _cpgsParameterApplyStatus (\ s a -> s{_cpgsParameterApplyStatus = a});---- | The name of the cluster parameter group.-cpgsParameterGroupName :: Lens' ClusterParameterGroupStatus (Maybe Text)-cpgsParameterGroupName = lens _cpgsParameterGroupName (\ s a -> s{_cpgsParameterGroupName = a});--instance FromXML ClusterParameterGroupStatus where-        parseXML x-          = ClusterParameterGroupStatus' <$>-              (x .@? "ClusterParameterStatusList" .!@ mempty >>=-                 may (parseXMLList "member"))-                <*> (x .@? "ParameterApplyStatus")-                <*> (x .@? "ParameterGroupName")--instance Hashable ClusterParameterGroupStatus where--instance NFData ClusterParameterGroupStatus where---- | Describes the status of a parameter group.------------ /See:/ 'clusterParameterStatus' smart constructor.-data ClusterParameterStatus = ClusterParameterStatus'-  { _cpsParameterApplyErrorDescription :: !(Maybe Text)-  , _cpsParameterName                  :: !(Maybe Text)-  , _cpsParameterApplyStatus           :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterParameterStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cpsParameterApplyErrorDescription' - The error that prevented the parameter from being applied to the database.------ * 'cpsParameterName' - The name of the parameter.------ * 'cpsParameterApplyStatus' - The status of the parameter that indicates whether the parameter is in sync with the database, waiting for a cluster reboot, or encountered an error when being applied. The following are possible statuses and descriptions.     * @in-sync@ : The parameter value is in sync with the database.     * @pending-reboot@ : The parameter value will be applied after the cluster reboots.     * @applying@ : The parameter value is being applied to the database.     * @invalid-parameter@ : Cannot apply the parameter value because it has an invalid value or syntax.     * @apply-deferred@ : The parameter contains static property changes. The changes are deferred until the cluster reboots.     * @apply-error@ : Cannot connect to the cluster. The parameter change will be applied after the cluster reboots.     * @unknown-error@ : Cannot apply the parameter change right now. The change will be applied after the cluster reboots.-clusterParameterStatus-    :: ClusterParameterStatus-clusterParameterStatus =-  ClusterParameterStatus'-  { _cpsParameterApplyErrorDescription = Nothing-  , _cpsParameterName = Nothing-  , _cpsParameterApplyStatus = Nothing-  }----- | The error that prevented the parameter from being applied to the database.-cpsParameterApplyErrorDescription :: Lens' ClusterParameterStatus (Maybe Text)-cpsParameterApplyErrorDescription = lens _cpsParameterApplyErrorDescription (\ s a -> s{_cpsParameterApplyErrorDescription = a});---- | The name of the parameter.-cpsParameterName :: Lens' ClusterParameterStatus (Maybe Text)-cpsParameterName = lens _cpsParameterName (\ s a -> s{_cpsParameterName = a});---- | The status of the parameter that indicates whether the parameter is in sync with the database, waiting for a cluster reboot, or encountered an error when being applied. The following are possible statuses and descriptions.     * @in-sync@ : The parameter value is in sync with the database.     * @pending-reboot@ : The parameter value will be applied after the cluster reboots.     * @applying@ : The parameter value is being applied to the database.     * @invalid-parameter@ : Cannot apply the parameter value because it has an invalid value or syntax.     * @apply-deferred@ : The parameter contains static property changes. The changes are deferred until the cluster reboots.     * @apply-error@ : Cannot connect to the cluster. The parameter change will be applied after the cluster reboots.     * @unknown-error@ : Cannot apply the parameter change right now. The change will be applied after the cluster reboots.-cpsParameterApplyStatus :: Lens' ClusterParameterStatus (Maybe Text)-cpsParameterApplyStatus = lens _cpsParameterApplyStatus (\ s a -> s{_cpsParameterApplyStatus = a});--instance FromXML ClusterParameterStatus where-        parseXML x-          = ClusterParameterStatus' <$>-              (x .@? "ParameterApplyErrorDescription") <*>-                (x .@? "ParameterName")-                <*> (x .@? "ParameterApplyStatus")--instance Hashable ClusterParameterStatus where--instance NFData ClusterParameterStatus where---- | Describes a security group.------------ /See:/ 'clusterSecurityGroup' smart constructor.-data ClusterSecurityGroup = ClusterSecurityGroup'-  { _cluClusterSecurityGroupName :: !(Maybe Text)-  , _cluIPRanges                 :: !(Maybe [IPRange])-  , _cluEC2SecurityGroups        :: !(Maybe [EC2SecurityGroup])-  , _cluDescription              :: !(Maybe Text)-  , _cluTags                     :: !(Maybe [Tag])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterSecurityGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cluClusterSecurityGroupName' - The name of the cluster security group to which the operation was applied.------ * 'cluIPRanges' - A list of IP ranges (CIDR blocks) that are permitted to access clusters associated with this cluster security group.------ * 'cluEC2SecurityGroups' - A list of EC2 security groups that are permitted to access clusters associated with this cluster security group.------ * 'cluDescription' - A description of the security group.------ * 'cluTags' - The list of tags for the cluster security group.-clusterSecurityGroup-    :: ClusterSecurityGroup-clusterSecurityGroup =-  ClusterSecurityGroup'-  { _cluClusterSecurityGroupName = Nothing-  , _cluIPRanges = Nothing-  , _cluEC2SecurityGroups = Nothing-  , _cluDescription = Nothing-  , _cluTags = Nothing-  }----- | The name of the cluster security group to which the operation was applied.-cluClusterSecurityGroupName :: Lens' ClusterSecurityGroup (Maybe Text)-cluClusterSecurityGroupName = lens _cluClusterSecurityGroupName (\ s a -> s{_cluClusterSecurityGroupName = a});---- | A list of IP ranges (CIDR blocks) that are permitted to access clusters associated with this cluster security group.-cluIPRanges :: Lens' ClusterSecurityGroup [IPRange]-cluIPRanges = lens _cluIPRanges (\ s a -> s{_cluIPRanges = a}) . _Default . _Coerce;---- | A list of EC2 security groups that are permitted to access clusters associated with this cluster security group.-cluEC2SecurityGroups :: Lens' ClusterSecurityGroup [EC2SecurityGroup]-cluEC2SecurityGroups = lens _cluEC2SecurityGroups (\ s a -> s{_cluEC2SecurityGroups = a}) . _Default . _Coerce;---- | A description of the security group.-cluDescription :: Lens' ClusterSecurityGroup (Maybe Text)-cluDescription = lens _cluDescription (\ s a -> s{_cluDescription = a});---- | The list of tags for the cluster security group.-cluTags :: Lens' ClusterSecurityGroup [Tag]-cluTags = lens _cluTags (\ s a -> s{_cluTags = a}) . _Default . _Coerce;--instance FromXML ClusterSecurityGroup where-        parseXML x-          = ClusterSecurityGroup' <$>-              (x .@? "ClusterSecurityGroupName") <*>-                (x .@? "IPRanges" .!@ mempty >>=-                   may (parseXMLList "IPRange"))-                <*>-                (x .@? "EC2SecurityGroups" .!@ mempty >>=-                   may (parseXMLList "EC2SecurityGroup"))-                <*> (x .@? "Description")-                <*>-                (x .@? "Tags" .!@ mempty >>=-                   may (parseXMLList "Tag"))--instance Hashable ClusterSecurityGroup where--instance NFData ClusterSecurityGroup where---- | Describes a cluster security group.------------ /See:/ 'clusterSecurityGroupMembership' smart constructor.-data ClusterSecurityGroupMembership = ClusterSecurityGroupMembership'-  { _csgmStatus                   :: !(Maybe Text)-  , _csgmClusterSecurityGroupName :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterSecurityGroupMembership' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csgmStatus' - The status of the cluster security group.------ * 'csgmClusterSecurityGroupName' - The name of the cluster security group.-clusterSecurityGroupMembership-    :: ClusterSecurityGroupMembership-clusterSecurityGroupMembership =-  ClusterSecurityGroupMembership'-  {_csgmStatus = Nothing, _csgmClusterSecurityGroupName = Nothing}----- | The status of the cluster security group.-csgmStatus :: Lens' ClusterSecurityGroupMembership (Maybe Text)-csgmStatus = lens _csgmStatus (\ s a -> s{_csgmStatus = a});---- | The name of the cluster security group.-csgmClusterSecurityGroupName :: Lens' ClusterSecurityGroupMembership (Maybe Text)-csgmClusterSecurityGroupName = lens _csgmClusterSecurityGroupName (\ s a -> s{_csgmClusterSecurityGroupName = a});--instance FromXML ClusterSecurityGroupMembership where-        parseXML x-          = ClusterSecurityGroupMembership' <$>-              (x .@? "Status") <*>-                (x .@? "ClusterSecurityGroupName")--instance Hashable ClusterSecurityGroupMembership-         where--instance NFData ClusterSecurityGroupMembership where---- | Returns the destination region and retention period that are configured for cross-region snapshot copy.------------ /See:/ 'clusterSnapshotCopyStatus' smart constructor.-data ClusterSnapshotCopyStatus = ClusterSnapshotCopyStatus'-  { _cscsRetentionPeriod       :: !(Maybe Integer)-  , _cscsDestinationRegion     :: !(Maybe Text)-  , _cscsSnapshotCopyGrantName :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterSnapshotCopyStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cscsRetentionPeriod' - The number of days that automated snapshots are retained in the destination region after they are copied from a source region.------ * 'cscsDestinationRegion' - The destination region that snapshots are automatically copied to when cross-region snapshot copy is enabled.------ * 'cscsSnapshotCopyGrantName' - The name of the snapshot copy grant.-clusterSnapshotCopyStatus-    :: ClusterSnapshotCopyStatus-clusterSnapshotCopyStatus =-  ClusterSnapshotCopyStatus'-  { _cscsRetentionPeriod = Nothing-  , _cscsDestinationRegion = Nothing-  , _cscsSnapshotCopyGrantName = Nothing-  }----- | The number of days that automated snapshots are retained in the destination region after they are copied from a source region.-cscsRetentionPeriod :: Lens' ClusterSnapshotCopyStatus (Maybe Integer)-cscsRetentionPeriod = lens _cscsRetentionPeriod (\ s a -> s{_cscsRetentionPeriod = a});---- | The destination region that snapshots are automatically copied to when cross-region snapshot copy is enabled.-cscsDestinationRegion :: Lens' ClusterSnapshotCopyStatus (Maybe Text)-cscsDestinationRegion = lens _cscsDestinationRegion (\ s a -> s{_cscsDestinationRegion = a});---- | The name of the snapshot copy grant.-cscsSnapshotCopyGrantName :: Lens' ClusterSnapshotCopyStatus (Maybe Text)-cscsSnapshotCopyGrantName = lens _cscsSnapshotCopyGrantName (\ s a -> s{_cscsSnapshotCopyGrantName = a});--instance FromXML ClusterSnapshotCopyStatus where-        parseXML x-          = ClusterSnapshotCopyStatus' <$>-              (x .@? "RetentionPeriod") <*>-                (x .@? "DestinationRegion")-                <*> (x .@? "SnapshotCopyGrantName")--instance Hashable ClusterSnapshotCopyStatus where--instance NFData ClusterSnapshotCopyStatus where---- | Describes a subnet group.------------ /See:/ 'clusterSubnetGroup' smart constructor.-data ClusterSubnetGroup = ClusterSubnetGroup'-  { _csgVPCId                  :: !(Maybe Text)-  , _csgSubnets                :: !(Maybe [Subnet])-  , _csgClusterSubnetGroupName :: !(Maybe Text)-  , _csgSubnetGroupStatus      :: !(Maybe Text)-  , _csgDescription            :: !(Maybe Text)-  , _csgTags                   :: !(Maybe [Tag])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterSubnetGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csgVPCId' - The VPC ID of the cluster subnet group.------ * 'csgSubnets' - A list of the VPC 'Subnet' elements.------ * 'csgClusterSubnetGroupName' - The name of the cluster subnet group.------ * 'csgSubnetGroupStatus' - The status of the cluster subnet group. Possible values are @Complete@ , @Incomplete@ and @Invalid@ .------ * 'csgDescription' - The description of the cluster subnet group.------ * 'csgTags' - The list of tags for the cluster subnet group.-clusterSubnetGroup-    :: ClusterSubnetGroup-clusterSubnetGroup =-  ClusterSubnetGroup'-  { _csgVPCId = Nothing-  , _csgSubnets = Nothing-  , _csgClusterSubnetGroupName = Nothing-  , _csgSubnetGroupStatus = Nothing-  , _csgDescription = Nothing-  , _csgTags = Nothing-  }----- | The VPC ID of the cluster subnet group.-csgVPCId :: Lens' ClusterSubnetGroup (Maybe Text)-csgVPCId = lens _csgVPCId (\ s a -> s{_csgVPCId = a});---- | A list of the VPC 'Subnet' elements.-csgSubnets :: Lens' ClusterSubnetGroup [Subnet]-csgSubnets = lens _csgSubnets (\ s a -> s{_csgSubnets = a}) . _Default . _Coerce;---- | The name of the cluster subnet group.-csgClusterSubnetGroupName :: Lens' ClusterSubnetGroup (Maybe Text)-csgClusterSubnetGroupName = lens _csgClusterSubnetGroupName (\ s a -> s{_csgClusterSubnetGroupName = a});---- | The status of the cluster subnet group. Possible values are @Complete@ , @Incomplete@ and @Invalid@ .-csgSubnetGroupStatus :: Lens' ClusterSubnetGroup (Maybe Text)-csgSubnetGroupStatus = lens _csgSubnetGroupStatus (\ s a -> s{_csgSubnetGroupStatus = a});---- | The description of the cluster subnet group.-csgDescription :: Lens' ClusterSubnetGroup (Maybe Text)-csgDescription = lens _csgDescription (\ s a -> s{_csgDescription = a});---- | The list of tags for the cluster subnet group.-csgTags :: Lens' ClusterSubnetGroup [Tag]-csgTags = lens _csgTags (\ s a -> s{_csgTags = a}) . _Default . _Coerce;--instance FromXML ClusterSubnetGroup where-        parseXML x-          = ClusterSubnetGroup' <$>-              (x .@? "VpcId") <*>-                (x .@? "Subnets" .!@ mempty >>=-                   may (parseXMLList "Subnet"))-                <*> (x .@? "ClusterSubnetGroupName")-                <*> (x .@? "SubnetGroupStatus")-                <*> (x .@? "Description")-                <*>-                (x .@? "Tags" .!@ mempty >>=-                   may (parseXMLList "Tag"))--instance Hashable ClusterSubnetGroup where--instance NFData ClusterSubnetGroup where---- | Describes a cluster version, including the parameter group family and description of the version.------------ /See:/ 'clusterVersion' smart constructor.-data ClusterVersion = ClusterVersion'-  { _cvClusterParameterGroupFamily :: !(Maybe Text)-  , _cvClusterVersion              :: !(Maybe Text)-  , _cvDescription                 :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ClusterVersion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cvClusterParameterGroupFamily' - The name of the cluster parameter group family for the cluster.------ * 'cvClusterVersion' - The version number used by the cluster.------ * 'cvDescription' - The description of the cluster version.-clusterVersion-    :: ClusterVersion-clusterVersion =-  ClusterVersion'-  { _cvClusterParameterGroupFamily = Nothing-  , _cvClusterVersion = Nothing-  , _cvDescription = Nothing-  }----- | The name of the cluster parameter group family for the cluster.-cvClusterParameterGroupFamily :: Lens' ClusterVersion (Maybe Text)-cvClusterParameterGroupFamily = lens _cvClusterParameterGroupFamily (\ s a -> s{_cvClusterParameterGroupFamily = a});---- | The version number used by the cluster.-cvClusterVersion :: Lens' ClusterVersion (Maybe Text)-cvClusterVersion = lens _cvClusterVersion (\ s a -> s{_cvClusterVersion = a});---- | The description of the cluster version.-cvDescription :: Lens' ClusterVersion (Maybe Text)-cvDescription = lens _cvDescription (\ s a -> s{_cvDescription = a});--instance FromXML ClusterVersion where-        parseXML x-          = ClusterVersion' <$>-              (x .@? "ClusterParameterGroupFamily") <*>-                (x .@? "ClusterVersion")-                <*> (x .@? "Description")--instance Hashable ClusterVersion where--instance NFData ClusterVersion where---- | Describes the default cluster parameters for a parameter group family.------------ /See:/ 'defaultClusterParameters' smart constructor.-data DefaultClusterParameters = DefaultClusterParameters'-  { _dcpMarker               :: !(Maybe Text)-  , _dcpParameters           :: !(Maybe [Parameter])-  , _dcpParameterGroupFamily :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DefaultClusterParameters' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcpMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.------ * 'dcpParameters' - The list of cluster default parameters.------ * 'dcpParameterGroupFamily' - The name of the cluster parameter group family to which the engine default parameters apply.-defaultClusterParameters-    :: DefaultClusterParameters-defaultClusterParameters =-  DefaultClusterParameters'-  { _dcpMarker = Nothing-  , _dcpParameters = Nothing-  , _dcpParameterGroupFamily = Nothing-  }----- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.-dcpMarker :: Lens' DefaultClusterParameters (Maybe Text)-dcpMarker = lens _dcpMarker (\ s a -> s{_dcpMarker = a});---- | The list of cluster default parameters.-dcpParameters :: Lens' DefaultClusterParameters [Parameter]-dcpParameters = lens _dcpParameters (\ s a -> s{_dcpParameters = a}) . _Default . _Coerce;---- | The name of the cluster parameter group family to which the engine default parameters apply.-dcpParameterGroupFamily :: Lens' DefaultClusterParameters (Maybe Text)-dcpParameterGroupFamily = lens _dcpParameterGroupFamily (\ s a -> s{_dcpParameterGroupFamily = a});--instance FromXML DefaultClusterParameters where-        parseXML x-          = DefaultClusterParameters' <$>-              (x .@? "Marker") <*>-                (x .@? "Parameters" .!@ mempty >>=-                   may (parseXMLList "Parameter"))-                <*> (x .@? "ParameterGroupFamily")--instance Hashable DefaultClusterParameters where--instance NFData DefaultClusterParameters where---- | Describes an Amazon EC2 security group.------------ /See:/ 'ec2SecurityGroup' smart constructor.-data EC2SecurityGroup = EC2SecurityGroup'-  { _esgStatus                  :: !(Maybe Text)-  , _esgEC2SecurityGroupOwnerId :: !(Maybe Text)-  , _esgEC2SecurityGroupName    :: !(Maybe Text)-  , _esgTags                    :: !(Maybe [Tag])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EC2SecurityGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'esgStatus' - The status of the EC2 security group.------ * 'esgEC2SecurityGroupOwnerId' - The AWS ID of the owner of the EC2 security group specified in the @EC2SecurityGroupName@ field.------ * 'esgEC2SecurityGroupName' - The name of the EC2 Security Group.------ * 'esgTags' - The list of tags for the EC2 security group.-ec2SecurityGroup-    :: EC2SecurityGroup-ec2SecurityGroup =-  EC2SecurityGroup'-  { _esgStatus = Nothing-  , _esgEC2SecurityGroupOwnerId = Nothing-  , _esgEC2SecurityGroupName = Nothing-  , _esgTags = Nothing-  }----- | The status of the EC2 security group.-esgStatus :: Lens' EC2SecurityGroup (Maybe Text)-esgStatus = lens _esgStatus (\ s a -> s{_esgStatus = a});---- | The AWS ID of the owner of the EC2 security group specified in the @EC2SecurityGroupName@ field.-esgEC2SecurityGroupOwnerId :: Lens' EC2SecurityGroup (Maybe Text)-esgEC2SecurityGroupOwnerId = lens _esgEC2SecurityGroupOwnerId (\ s a -> s{_esgEC2SecurityGroupOwnerId = a});---- | The name of the EC2 Security Group.-esgEC2SecurityGroupName :: Lens' EC2SecurityGroup (Maybe Text)-esgEC2SecurityGroupName = lens _esgEC2SecurityGroupName (\ s a -> s{_esgEC2SecurityGroupName = a});---- | The list of tags for the EC2 security group.-esgTags :: Lens' EC2SecurityGroup [Tag]-esgTags = lens _esgTags (\ s a -> s{_esgTags = a}) . _Default . _Coerce;--instance FromXML EC2SecurityGroup where-        parseXML x-          = EC2SecurityGroup' <$>-              (x .@? "Status") <*>-                (x .@? "EC2SecurityGroupOwnerId")-                <*> (x .@? "EC2SecurityGroupName")-                <*>-                (x .@? "Tags" .!@ mempty >>=-                   may (parseXMLList "Tag"))--instance Hashable EC2SecurityGroup where--instance NFData EC2SecurityGroup where---- | Describes the status of the elastic IP (EIP) address.------------ /See:/ 'elasticIPStatus' smart constructor.-data ElasticIPStatus = ElasticIPStatus'-  { _eisStatus    :: !(Maybe Text)-  , _eisElasticIP :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ElasticIPStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eisStatus' - The status of the elastic IP (EIP) address.------ * 'eisElasticIP' - The elastic IP (EIP) address for the cluster.-elasticIPStatus-    :: ElasticIPStatus-elasticIPStatus =-  ElasticIPStatus' {_eisStatus = Nothing, _eisElasticIP = Nothing}----- | The status of the elastic IP (EIP) address.-eisStatus :: Lens' ElasticIPStatus (Maybe Text)-eisStatus = lens _eisStatus (\ s a -> s{_eisStatus = a});---- | The elastic IP (EIP) address for the cluster.-eisElasticIP :: Lens' ElasticIPStatus (Maybe Text)-eisElasticIP = lens _eisElasticIP (\ s a -> s{_eisElasticIP = a});--instance FromXML ElasticIPStatus where-        parseXML x-          = ElasticIPStatus' <$>-              (x .@? "Status") <*> (x .@? "ElasticIp")--instance Hashable ElasticIPStatus where--instance NFData ElasticIPStatus where---- | Describes a connection endpoint.------------ /See:/ 'endpoint' smart constructor.-data Endpoint = Endpoint'-  { _eAddress :: !(Maybe Text)-  , _ePort    :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Endpoint' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eAddress' - The DNS address of the Cluster.------ * 'ePort' - The port that the database engine is listening on.-endpoint-    :: Endpoint-endpoint = Endpoint' {_eAddress = Nothing, _ePort = Nothing}----- | The DNS address of the Cluster.-eAddress :: Lens' Endpoint (Maybe Text)-eAddress = lens _eAddress (\ s a -> s{_eAddress = a});---- | The port that the database engine is listening on.-ePort :: Lens' Endpoint (Maybe Int)-ePort = lens _ePort (\ s a -> s{_ePort = a});--instance FromXML Endpoint where-        parseXML x-          = Endpoint' <$> (x .@? "Address") <*> (x .@? "Port")--instance Hashable Endpoint where--instance NFData Endpoint where---- | Describes an event.------------ /See:/ 'event' smart constructor.-data Event = Event'-  { _eSourceType       :: !(Maybe SourceType)-  , _eSeverity         :: !(Maybe Text)-  , _eSourceIdentifier :: !(Maybe Text)-  , _eDate             :: !(Maybe ISO8601)-  , _eEventCategories  :: !(Maybe [Text])-  , _eMessage          :: !(Maybe Text)-  , _eEventId          :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Event' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eSourceType' - The source type for this event.------ * 'eSeverity' - The severity of the event. Values: ERROR, INFO------ * 'eSourceIdentifier' - The identifier for the source of the event.------ * 'eDate' - The date and time of the event.------ * 'eEventCategories' - A list of the event categories. Values: Configuration, Management, Monitoring, Security------ * 'eMessage' - The text of this event.------ * 'eEventId' - The identifier of the event.-event-    :: Event-event =-  Event'-  { _eSourceType = Nothing-  , _eSeverity = Nothing-  , _eSourceIdentifier = Nothing-  , _eDate = Nothing-  , _eEventCategories = Nothing-  , _eMessage = Nothing-  , _eEventId = Nothing-  }----- | The source type for this event.-eSourceType :: Lens' Event (Maybe SourceType)-eSourceType = lens _eSourceType (\ s a -> s{_eSourceType = a});---- | The severity of the event. Values: ERROR, INFO-eSeverity :: Lens' Event (Maybe Text)-eSeverity = lens _eSeverity (\ s a -> s{_eSeverity = a});---- | The identifier for the source of the event.-eSourceIdentifier :: Lens' Event (Maybe Text)-eSourceIdentifier = lens _eSourceIdentifier (\ s a -> s{_eSourceIdentifier = a});---- | The date and time of the event.-eDate :: Lens' Event (Maybe UTCTime)-eDate = lens _eDate (\ s a -> s{_eDate = a}) . mapping _Time;---- | A list of the event categories. Values: Configuration, Management, Monitoring, Security-eEventCategories :: Lens' Event [Text]-eEventCategories = lens _eEventCategories (\ s a -> s{_eEventCategories = a}) . _Default . _Coerce;---- | The text of this event.-eMessage :: Lens' Event (Maybe Text)-eMessage = lens _eMessage (\ s a -> s{_eMessage = a});---- | The identifier of the event.-eEventId :: Lens' Event (Maybe Text)-eEventId = lens _eEventId (\ s a -> s{_eEventId = a});--instance FromXML Event where-        parseXML x-          = Event' <$>-              (x .@? "SourceType") <*> (x .@? "Severity") <*>-                (x .@? "SourceIdentifier")-                <*> (x .@? "Date")-                <*>-                (x .@? "EventCategories" .!@ mempty >>=-                   may (parseXMLList "EventCategory"))-                <*> (x .@? "Message")-                <*> (x .@? "EventId")--instance Hashable Event where--instance NFData Event where---- | Describes event categories.------------ /See:/ 'eventCategoriesMap' smart constructor.-data EventCategoriesMap = EventCategoriesMap'-  { _ecmSourceType :: !(Maybe Text)-  , _ecmEvents     :: !(Maybe [EventInfoMap])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EventCategoriesMap' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ecmSourceType' - The source type, such as cluster or cluster-snapshot, that the returned categories belong to.------ * 'ecmEvents' - The events in the event category.-eventCategoriesMap-    :: EventCategoriesMap-eventCategoriesMap =-  EventCategoriesMap' {_ecmSourceType = Nothing, _ecmEvents = Nothing}----- | The source type, such as cluster or cluster-snapshot, that the returned categories belong to.-ecmSourceType :: Lens' EventCategoriesMap (Maybe Text)-ecmSourceType = lens _ecmSourceType (\ s a -> s{_ecmSourceType = a});---- | The events in the event category.-ecmEvents :: Lens' EventCategoriesMap [EventInfoMap]-ecmEvents = lens _ecmEvents (\ s a -> s{_ecmEvents = a}) . _Default . _Coerce;--instance FromXML EventCategoriesMap where-        parseXML x-          = EventCategoriesMap' <$>-              (x .@? "SourceType") <*>-                (x .@? "Events" .!@ mempty >>=-                   may (parseXMLList "EventInfoMap"))--instance Hashable EventCategoriesMap where--instance NFData EventCategoriesMap where---- | Describes event information.------------ /See:/ 'eventInfoMap' smart constructor.-data EventInfoMap = EventInfoMap'-  { _eimEventDescription :: !(Maybe Text)-  , _eimSeverity         :: !(Maybe Text)-  , _eimEventCategories  :: !(Maybe [Text])-  , _eimEventId          :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EventInfoMap' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eimEventDescription' - The description of an Amazon Redshift event.------ * 'eimSeverity' - The severity of the event. Values: ERROR, INFO------ * 'eimEventCategories' - The category of an Amazon Redshift event.------ * 'eimEventId' - The identifier of an Amazon Redshift event.-eventInfoMap-    :: EventInfoMap-eventInfoMap =-  EventInfoMap'-  { _eimEventDescription = Nothing-  , _eimSeverity = Nothing-  , _eimEventCategories = Nothing-  , _eimEventId = Nothing-  }----- | The description of an Amazon Redshift event.-eimEventDescription :: Lens' EventInfoMap (Maybe Text)-eimEventDescription = lens _eimEventDescription (\ s a -> s{_eimEventDescription = a});---- | The severity of the event. Values: ERROR, INFO-eimSeverity :: Lens' EventInfoMap (Maybe Text)-eimSeverity = lens _eimSeverity (\ s a -> s{_eimSeverity = a});---- | The category of an Amazon Redshift event.-eimEventCategories :: Lens' EventInfoMap [Text]-eimEventCategories = lens _eimEventCategories (\ s a -> s{_eimEventCategories = a}) . _Default . _Coerce;---- | The identifier of an Amazon Redshift event.-eimEventId :: Lens' EventInfoMap (Maybe Text)-eimEventId = lens _eimEventId (\ s a -> s{_eimEventId = a});--instance FromXML EventInfoMap where-        parseXML x-          = EventInfoMap' <$>-              (x .@? "EventDescription") <*> (x .@? "Severity") <*>-                (x .@? "EventCategories" .!@ mempty >>=-                   may (parseXMLList "EventCategory"))-                <*> (x .@? "EventId")--instance Hashable EventInfoMap where--instance NFData EventInfoMap where---- | Describes event subscriptions.------------ /See:/ 'eventSubscription' smart constructor.-data EventSubscription = EventSubscription'-  { _esStatus                   :: !(Maybe Text)-  , _esCustomerAWSId            :: !(Maybe Text)-  , _esCustSubscriptionId       :: !(Maybe Text)-  , _esSNSTopicARN              :: !(Maybe Text)-  , _esEnabled                  :: !(Maybe Bool)-  , _esSourceType               :: !(Maybe Text)-  , _esSeverity                 :: !(Maybe Text)-  , _esSubscriptionCreationTime :: !(Maybe ISO8601)-  , _esEventCategoriesList      :: !(Maybe [Text])-  , _esTags                     :: !(Maybe [Tag])-  , _esSourceIdsList            :: !(Maybe [Text])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EventSubscription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'esStatus' - The status of the Amazon Redshift event notification subscription. Constraints:     * Can be one of the following: active | no-permission | topic-not-exist     * The status "no-permission" indicates that Amazon Redshift no longer has permission to post to the Amazon SNS topic. The status "topic-not-exist" indicates that the topic was deleted after the subscription was created.------ * 'esCustomerAWSId' - The AWS customer account associated with the Amazon Redshift event notification subscription.------ * 'esCustSubscriptionId' - The name of the Amazon Redshift event notification subscription.------ * 'esSNSTopicARN' - The Amazon Resource Name (ARN) of the Amazon SNS topic used by the event notification subscription.------ * 'esEnabled' - A Boolean value indicating whether the subscription is enabled. @true@ indicates the subscription is enabled.------ * 'esSourceType' - The source type of the events returned the Amazon Redshift event notification, such as cluster, or cluster-snapshot.------ * 'esSeverity' - The event severity specified in the Amazon Redshift event notification subscription. Values: ERROR, INFO------ * 'esSubscriptionCreationTime' - The date and time the Amazon Redshift event notification subscription was created.------ * 'esEventCategoriesList' - The list of Amazon Redshift event categories specified in the event notification subscription. Values: Configuration, Management, Monitoring, Security------ * 'esTags' - The list of tags for the event subscription.------ * 'esSourceIdsList' - A list of the sources that publish events to the Amazon Redshift event notification subscription.-eventSubscription-    :: EventSubscription-eventSubscription =-  EventSubscription'-  { _esStatus = Nothing-  , _esCustomerAWSId = Nothing-  , _esCustSubscriptionId = Nothing-  , _esSNSTopicARN = Nothing-  , _esEnabled = Nothing-  , _esSourceType = Nothing-  , _esSeverity = Nothing-  , _esSubscriptionCreationTime = Nothing-  , _esEventCategoriesList = Nothing-  , _esTags = Nothing-  , _esSourceIdsList = Nothing-  }----- | The status of the Amazon Redshift event notification subscription. Constraints:     * Can be one of the following: active | no-permission | topic-not-exist     * The status "no-permission" indicates that Amazon Redshift no longer has permission to post to the Amazon SNS topic. The status "topic-not-exist" indicates that the topic was deleted after the subscription was created.-esStatus :: Lens' EventSubscription (Maybe Text)-esStatus = lens _esStatus (\ s a -> s{_esStatus = a});---- | The AWS customer account associated with the Amazon Redshift event notification subscription.-esCustomerAWSId :: Lens' EventSubscription (Maybe Text)-esCustomerAWSId = lens _esCustomerAWSId (\ s a -> s{_esCustomerAWSId = a});---- | The name of the Amazon Redshift event notification subscription.-esCustSubscriptionId :: Lens' EventSubscription (Maybe Text)-esCustSubscriptionId = lens _esCustSubscriptionId (\ s a -> s{_esCustSubscriptionId = a});---- | The Amazon Resource Name (ARN) of the Amazon SNS topic used by the event notification subscription.-esSNSTopicARN :: Lens' EventSubscription (Maybe Text)-esSNSTopicARN = lens _esSNSTopicARN (\ s a -> s{_esSNSTopicARN = a});---- | A Boolean value indicating whether the subscription is enabled. @true@ indicates the subscription is enabled.-esEnabled :: Lens' EventSubscription (Maybe Bool)-esEnabled = lens _esEnabled (\ s a -> s{_esEnabled = a});---- | The source type of the events returned the Amazon Redshift event notification, such as cluster, or cluster-snapshot.-esSourceType :: Lens' EventSubscription (Maybe Text)-esSourceType = lens _esSourceType (\ s a -> s{_esSourceType = a});---- | The event severity specified in the Amazon Redshift event notification subscription. Values: ERROR, INFO-esSeverity :: Lens' EventSubscription (Maybe Text)-esSeverity = lens _esSeverity (\ s a -> s{_esSeverity = a});---- | The date and time the Amazon Redshift event notification subscription was created.-esSubscriptionCreationTime :: Lens' EventSubscription (Maybe UTCTime)-esSubscriptionCreationTime = lens _esSubscriptionCreationTime (\ s a -> s{_esSubscriptionCreationTime = a}) . mapping _Time;---- | The list of Amazon Redshift event categories specified in the event notification subscription. Values: Configuration, Management, Monitoring, Security-esEventCategoriesList :: Lens' EventSubscription [Text]-esEventCategoriesList = lens _esEventCategoriesList (\ s a -> s{_esEventCategoriesList = a}) . _Default . _Coerce;---- | The list of tags for the event subscription.-esTags :: Lens' EventSubscription [Tag]-esTags = lens _esTags (\ s a -> s{_esTags = a}) . _Default . _Coerce;---- | A list of the sources that publish events to the Amazon Redshift event notification subscription.-esSourceIdsList :: Lens' EventSubscription [Text]-esSourceIdsList = lens _esSourceIdsList (\ s a -> s{_esSourceIdsList = a}) . _Default . _Coerce;--instance FromXML EventSubscription where-        parseXML x-          = EventSubscription' <$>-              (x .@? "Status") <*> (x .@? "CustomerAwsId") <*>-                (x .@? "CustSubscriptionId")-                <*> (x .@? "SnsTopicArn")-                <*> (x .@? "Enabled")-                <*> (x .@? "SourceType")-                <*> (x .@? "Severity")-                <*> (x .@? "SubscriptionCreationTime")-                <*>-                (x .@? "EventCategoriesList" .!@ mempty >>=-                   may (parseXMLList "EventCategory"))-                <*>-                (x .@? "Tags" .!@ mempty >>=-                   may (parseXMLList "Tag"))-                <*>-                (x .@? "SourceIdsList" .!@ mempty >>=-                   may (parseXMLList "SourceId"))--instance Hashable EventSubscription where--instance NFData EventSubscription where---- | Returns information about an HSM client certificate. The certificate is stored in a secure Hardware Storage Module (HSM), and used by the Amazon Redshift cluster to encrypt data files.------------ /See:/ 'hsmClientCertificate' smart constructor.-data HSMClientCertificate = HSMClientCertificate'-  { _hccHSMClientCertificateIdentifier :: !(Maybe Text)-  , _hccHSMClientCertificatePublicKey  :: !(Maybe Text)-  , _hccTags                           :: !(Maybe [Tag])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'HSMClientCertificate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hccHSMClientCertificateIdentifier' - The identifier of the HSM client certificate.------ * 'hccHSMClientCertificatePublicKey' - The public key that the Amazon Redshift cluster will use to connect to the HSM. You must register the public key in the HSM.------ * 'hccTags' - The list of tags for the HSM client certificate.-hsmClientCertificate-    :: HSMClientCertificate-hsmClientCertificate =-  HSMClientCertificate'-  { _hccHSMClientCertificateIdentifier = Nothing-  , _hccHSMClientCertificatePublicKey = Nothing-  , _hccTags = Nothing-  }----- | The identifier of the HSM client certificate.-hccHSMClientCertificateIdentifier :: Lens' HSMClientCertificate (Maybe Text)-hccHSMClientCertificateIdentifier = lens _hccHSMClientCertificateIdentifier (\ s a -> s{_hccHSMClientCertificateIdentifier = a});---- | The public key that the Amazon Redshift cluster will use to connect to the HSM. You must register the public key in the HSM.-hccHSMClientCertificatePublicKey :: Lens' HSMClientCertificate (Maybe Text)-hccHSMClientCertificatePublicKey = lens _hccHSMClientCertificatePublicKey (\ s a -> s{_hccHSMClientCertificatePublicKey = a});---- | The list of tags for the HSM client certificate.-hccTags :: Lens' HSMClientCertificate [Tag]-hccTags = lens _hccTags (\ s a -> s{_hccTags = a}) . _Default . _Coerce;--instance FromXML HSMClientCertificate where-        parseXML x-          = HSMClientCertificate' <$>-              (x .@? "HsmClientCertificateIdentifier") <*>-                (x .@? "HsmClientCertificatePublicKey")-                <*>-                (x .@? "Tags" .!@ mempty >>=-                   may (parseXMLList "Tag"))--instance Hashable HSMClientCertificate where--instance NFData HSMClientCertificate where---- | Returns information about an HSM configuration, which is an object that describes to Amazon Redshift clusters the information they require to connect to an HSM where they can store database encryption keys.------------ /See:/ 'hsmConfiguration' smart constructor.-data HSMConfiguration = HSMConfiguration'-  { _hcHSMConfigurationIdentifier :: !(Maybe Text)-  , _hcHSMPartitionName           :: !(Maybe Text)-  , _hcDescription                :: !(Maybe Text)-  , _hcTags                       :: !(Maybe [Tag])-  , _hcHSMIPAddress               :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'HSMConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hcHSMConfigurationIdentifier' - The name of the Amazon Redshift HSM configuration.------ * 'hcHSMPartitionName' - The name of the partition in the HSM where the Amazon Redshift clusters will store their database encryption keys.------ * 'hcDescription' - A text description of the HSM configuration.------ * 'hcTags' - The list of tags for the HSM configuration.------ * 'hcHSMIPAddress' - The IP address that the Amazon Redshift cluster must use to access the HSM.-hsmConfiguration-    :: HSMConfiguration-hsmConfiguration =-  HSMConfiguration'-  { _hcHSMConfigurationIdentifier = Nothing-  , _hcHSMPartitionName = Nothing-  , _hcDescription = Nothing-  , _hcTags = Nothing-  , _hcHSMIPAddress = Nothing-  }----- | The name of the Amazon Redshift HSM configuration.-hcHSMConfigurationIdentifier :: Lens' HSMConfiguration (Maybe Text)-hcHSMConfigurationIdentifier = lens _hcHSMConfigurationIdentifier (\ s a -> s{_hcHSMConfigurationIdentifier = a});---- | The name of the partition in the HSM where the Amazon Redshift clusters will store their database encryption keys.-hcHSMPartitionName :: Lens' HSMConfiguration (Maybe Text)-hcHSMPartitionName = lens _hcHSMPartitionName (\ s a -> s{_hcHSMPartitionName = a});---- | A text description of the HSM configuration.-hcDescription :: Lens' HSMConfiguration (Maybe Text)-hcDescription = lens _hcDescription (\ s a -> s{_hcDescription = a});---- | The list of tags for the HSM configuration.-hcTags :: Lens' HSMConfiguration [Tag]-hcTags = lens _hcTags (\ s a -> s{_hcTags = a}) . _Default . _Coerce;---- | The IP address that the Amazon Redshift cluster must use to access the HSM.-hcHSMIPAddress :: Lens' HSMConfiguration (Maybe Text)-hcHSMIPAddress = lens _hcHSMIPAddress (\ s a -> s{_hcHSMIPAddress = a});--instance FromXML HSMConfiguration where-        parseXML x-          = HSMConfiguration' <$>-              (x .@? "HsmConfigurationIdentifier") <*>-                (x .@? "HsmPartitionName")-                <*> (x .@? "Description")-                <*>-                (x .@? "Tags" .!@ mempty >>=-                   may (parseXMLList "Tag"))-                <*> (x .@? "HsmIpAddress")--instance Hashable HSMConfiguration where--instance NFData HSMConfiguration where---- | Describes the status of changes to HSM settings.------------ /See:/ 'hsmStatus' smart constructor.-data HSMStatus = HSMStatus'-  { _hsStatus                         :: !(Maybe Text)-  , _hsHSMConfigurationIdentifier     :: !(Maybe Text)-  , _hsHSMClientCertificateIdentifier :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'HSMStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hsStatus' - Reports whether the Amazon Redshift cluster has finished applying any HSM settings changes specified in a modify cluster command. Values: active, applying------ * 'hsHSMConfigurationIdentifier' - Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM.------ * 'hsHSMClientCertificateIdentifier' - Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM.-hsmStatus-    :: HSMStatus-hsmStatus =-  HSMStatus'-  { _hsStatus = Nothing-  , _hsHSMConfigurationIdentifier = Nothing-  , _hsHSMClientCertificateIdentifier = Nothing-  }----- | Reports whether the Amazon Redshift cluster has finished applying any HSM settings changes specified in a modify cluster command. Values: active, applying-hsStatus :: Lens' HSMStatus (Maybe Text)-hsStatus = lens _hsStatus (\ s a -> s{_hsStatus = a});---- | Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM.-hsHSMConfigurationIdentifier :: Lens' HSMStatus (Maybe Text)-hsHSMConfigurationIdentifier = lens _hsHSMConfigurationIdentifier (\ s a -> s{_hsHSMConfigurationIdentifier = a});---- | Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM.-hsHSMClientCertificateIdentifier :: Lens' HSMStatus (Maybe Text)-hsHSMClientCertificateIdentifier = lens _hsHSMClientCertificateIdentifier (\ s a -> s{_hsHSMClientCertificateIdentifier = a});--instance FromXML HSMStatus where-        parseXML x-          = HSMStatus' <$>-              (x .@? "Status") <*>-                (x .@? "HsmConfigurationIdentifier")-                <*> (x .@? "HsmClientCertificateIdentifier")--instance Hashable HSMStatus where--instance NFData HSMStatus where---- | Describes an IP range used in a security group.------------ /See:/ 'ipRange' smart constructor.-data IPRange = IPRange'-  { _irStatus :: !(Maybe Text)-  , _irCIdRIP :: !(Maybe Text)-  , _irTags   :: !(Maybe [Tag])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'IPRange' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'irStatus' - The status of the IP range, for example, "authorized".------ * 'irCIdRIP' - The IP range in Classless Inter-Domain Routing (CIDR) notation.------ * 'irTags' - The list of tags for the IP range.-ipRange-    :: IPRange-ipRange = IPRange' {_irStatus = Nothing, _irCIdRIP = Nothing, _irTags = Nothing}----- | The status of the IP range, for example, "authorized".-irStatus :: Lens' IPRange (Maybe Text)-irStatus = lens _irStatus (\ s a -> s{_irStatus = a});---- | The IP range in Classless Inter-Domain Routing (CIDR) notation.-irCIdRIP :: Lens' IPRange (Maybe Text)-irCIdRIP = lens _irCIdRIP (\ s a -> s{_irCIdRIP = a});---- | The list of tags for the IP range.-irTags :: Lens' IPRange [Tag]-irTags = lens _irTags (\ s a -> s{_irTags = a}) . _Default . _Coerce;--instance FromXML IPRange where-        parseXML x-          = IPRange' <$>-              (x .@? "Status") <*> (x .@? "CIDRIP") <*>-                (x .@? "Tags" .!@ mempty >>=-                   may (parseXMLList "Tag"))--instance Hashable IPRange where--instance NFData IPRange where---- | Describes the status of logging for a cluster.------------ /See:/ 'loggingStatus' smart constructor.-data LoggingStatus = LoggingStatus'-  { _lsLastFailureTime            :: !(Maybe ISO8601)-  , _lsLastSuccessfulDeliveryTime :: !(Maybe ISO8601)-  , _lsS3KeyPrefix                :: !(Maybe Text)-  , _lsBucketName                 :: !(Maybe Text)-  , _lsLoggingEnabled             :: !(Maybe Bool)-  , _lsLastFailureMessage         :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'LoggingStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lsLastFailureTime' - The last time when logs failed to be delivered.------ * 'lsLastSuccessfulDeliveryTime' - The last time that logs were delivered.------ * 'lsS3KeyPrefix' - The prefix applied to the log file names.------ * 'lsBucketName' - The name of the S3 bucket where the log files are stored.------ * 'lsLoggingEnabled' - @true@ if logging is on, @false@ if logging is off.------ * 'lsLastFailureMessage' - The message indicating that logs failed to be delivered.-loggingStatus-    :: LoggingStatus-loggingStatus =-  LoggingStatus'-  { _lsLastFailureTime = Nothing-  , _lsLastSuccessfulDeliveryTime = Nothing-  , _lsS3KeyPrefix = Nothing-  , _lsBucketName = Nothing-  , _lsLoggingEnabled = Nothing-  , _lsLastFailureMessage = Nothing-  }----- | The last time when logs failed to be delivered.-lsLastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)-lsLastFailureTime = lens _lsLastFailureTime (\ s a -> s{_lsLastFailureTime = a}) . mapping _Time;---- | The last time that logs were delivered.-lsLastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)-lsLastSuccessfulDeliveryTime = lens _lsLastSuccessfulDeliveryTime (\ s a -> s{_lsLastSuccessfulDeliveryTime = a}) . mapping _Time;---- | The prefix applied to the log file names.-lsS3KeyPrefix :: Lens' LoggingStatus (Maybe Text)-lsS3KeyPrefix = lens _lsS3KeyPrefix (\ s a -> s{_lsS3KeyPrefix = a});---- | The name of the S3 bucket where the log files are stored.-lsBucketName :: Lens' LoggingStatus (Maybe Text)-lsBucketName = lens _lsBucketName (\ s a -> s{_lsBucketName = a});---- | @true@ if logging is on, @false@ if logging is off.-lsLoggingEnabled :: Lens' LoggingStatus (Maybe Bool)-lsLoggingEnabled = lens _lsLoggingEnabled (\ s a -> s{_lsLoggingEnabled = a});---- | The message indicating that logs failed to be delivered.-lsLastFailureMessage :: Lens' LoggingStatus (Maybe Text)-lsLastFailureMessage = lens _lsLastFailureMessage (\ s a -> s{_lsLastFailureMessage = a});--instance FromXML LoggingStatus where-        parseXML x-          = LoggingStatus' <$>-              (x .@? "LastFailureTime") <*>-                (x .@? "LastSuccessfulDeliveryTime")-                <*> (x .@? "S3KeyPrefix")-                <*> (x .@? "BucketName")-                <*> (x .@? "LoggingEnabled")-                <*> (x .@? "LastFailureMessage")--instance Hashable LoggingStatus where--instance NFData LoggingStatus where---- | Describes an orderable cluster option.------------ /See:/ 'orderableClusterOption' smart constructor.-data OrderableClusterOption = OrderableClusterOption'-  { _ocoAvailabilityZones :: !(Maybe [AvailabilityZone])-  , _ocoClusterType       :: !(Maybe Text)-  , _ocoClusterVersion    :: !(Maybe Text)-  , _ocoNodeType          :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'OrderableClusterOption' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ocoAvailabilityZones' - A list of availability zones for the orderable cluster.------ * 'ocoClusterType' - The cluster type, for example @multi-node@ .------ * 'ocoClusterVersion' - The version of the orderable cluster.------ * 'ocoNodeType' - The node type for the orderable cluster.-orderableClusterOption-    :: OrderableClusterOption-orderableClusterOption =-  OrderableClusterOption'-  { _ocoAvailabilityZones = Nothing-  , _ocoClusterType = Nothing-  , _ocoClusterVersion = Nothing-  , _ocoNodeType = Nothing-  }----- | A list of availability zones for the orderable cluster.-ocoAvailabilityZones :: Lens' OrderableClusterOption [AvailabilityZone]-ocoAvailabilityZones = lens _ocoAvailabilityZones (\ s a -> s{_ocoAvailabilityZones = a}) . _Default . _Coerce;---- | The cluster type, for example @multi-node@ .-ocoClusterType :: Lens' OrderableClusterOption (Maybe Text)-ocoClusterType = lens _ocoClusterType (\ s a -> s{_ocoClusterType = a});---- | The version of the orderable cluster.-ocoClusterVersion :: Lens' OrderableClusterOption (Maybe Text)-ocoClusterVersion = lens _ocoClusterVersion (\ s a -> s{_ocoClusterVersion = a});---- | The node type for the orderable cluster.-ocoNodeType :: Lens' OrderableClusterOption (Maybe Text)-ocoNodeType = lens _ocoNodeType (\ s a -> s{_ocoNodeType = a});--instance FromXML OrderableClusterOption where-        parseXML x-          = OrderableClusterOption' <$>-              (x .@? "AvailabilityZones" .!@ mempty >>=-                 may (parseXMLList "AvailabilityZone"))-                <*> (x .@? "ClusterType")-                <*> (x .@? "ClusterVersion")-                <*> (x .@? "NodeType")--instance Hashable OrderableClusterOption where--instance NFData OrderableClusterOption where---- | Describes a parameter in a cluster parameter group.------------ /See:/ 'parameter' smart constructor.-data Parameter = Parameter'-  { _pApplyType            :: !(Maybe ParameterApplyType)-  , _pParameterValue       :: !(Maybe Text)-  , _pMinimumEngineVersion :: !(Maybe Text)-  , _pSource               :: !(Maybe Text)-  , _pIsModifiable         :: !(Maybe Bool)-  , _pDataType             :: !(Maybe Text)-  , _pAllowedValues        :: !(Maybe Text)-  , _pParameterName        :: !(Maybe Text)-  , _pDescription          :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Parameter' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pApplyType' - Specifies how to apply the WLM configuration parameter. Some properties can be applied dynamically, while other properties require that any associated clusters be rebooted for the configuration changes to be applied. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .------ * 'pParameterValue' - The value of the parameter.------ * 'pMinimumEngineVersion' - The earliest engine version to which the parameter can apply.------ * 'pSource' - The source of the parameter value, such as "engine-default" or "user".------ * 'pIsModifiable' - If @true@ , the parameter can be modified. Some parameters have security or operational implications that prevent them from being changed.------ * 'pDataType' - The data type of the parameter.------ * 'pAllowedValues' - The valid range of values for the parameter.------ * 'pParameterName' - The name of the parameter.------ * 'pDescription' - A description of the parameter.-parameter-    :: Parameter-parameter =-  Parameter'-  { _pApplyType = Nothing-  , _pParameterValue = Nothing-  , _pMinimumEngineVersion = Nothing-  , _pSource = Nothing-  , _pIsModifiable = Nothing-  , _pDataType = Nothing-  , _pAllowedValues = Nothing-  , _pParameterName = Nothing-  , _pDescription = Nothing-  }----- | Specifies how to apply the WLM configuration parameter. Some properties can be applied dynamically, while other properties require that any associated clusters be rebooted for the configuration changes to be applied. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .-pApplyType :: Lens' Parameter (Maybe ParameterApplyType)-pApplyType = lens _pApplyType (\ s a -> s{_pApplyType = a});---- | The value of the parameter.-pParameterValue :: Lens' Parameter (Maybe Text)-pParameterValue = lens _pParameterValue (\ s a -> s{_pParameterValue = a});---- | The earliest engine version to which the parameter can apply.-pMinimumEngineVersion :: Lens' Parameter (Maybe Text)-pMinimumEngineVersion = lens _pMinimumEngineVersion (\ s a -> s{_pMinimumEngineVersion = a});---- | The source of the parameter value, such as "engine-default" or "user".-pSource :: Lens' Parameter (Maybe Text)-pSource = lens _pSource (\ s a -> s{_pSource = a});---- | If @true@ , 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});---- | The data type of the parameter.-pDataType :: Lens' Parameter (Maybe Text)-pDataType = lens _pDataType (\ s a -> s{_pDataType = a});---- | The valid range of values for the parameter.-pAllowedValues :: Lens' Parameter (Maybe Text)-pAllowedValues = lens _pAllowedValues (\ s a -> s{_pAllowedValues = a});---- | The name of the parameter.-pParameterName :: Lens' Parameter (Maybe Text)-pParameterName = lens _pParameterName (\ s a -> s{_pParameterName = a});---- | A description of the parameter.-pDescription :: Lens' Parameter (Maybe Text)-pDescription = lens _pDescription (\ s a -> s{_pDescription = a});--instance FromXML Parameter where-        parseXML x-          = Parameter' <$>-              (x .@? "ApplyType") <*> (x .@? "ParameterValue") <*>-                (x .@? "MinimumEngineVersion")-                <*> (x .@? "Source")-                <*> (x .@? "IsModifiable")-                <*> (x .@? "DataType")-                <*> (x .@? "AllowedValues")-                <*> (x .@? "ParameterName")-                <*> (x .@? "Description")--instance Hashable Parameter where--instance NFData Parameter where--instance ToQuery Parameter where-        toQuery Parameter'{..}-          = mconcat-              ["ApplyType" =: _pApplyType,-               "ParameterValue" =: _pParameterValue,-               "MinimumEngineVersion" =: _pMinimumEngineVersion,-               "Source" =: _pSource,-               "IsModifiable" =: _pIsModifiable,-               "DataType" =: _pDataType,-               "AllowedValues" =: _pAllowedValues,-               "ParameterName" =: _pParameterName,-               "Description" =: _pDescription]---- | Describes cluster attributes that are in a pending state. A change to one or more the attributes was requested and is in progress or will be applied.------------ /See:/ 'pendingModifiedValues' smart constructor.-data PendingModifiedValues = PendingModifiedValues'-  { _pmvEnhancedVPCRouting               :: !(Maybe Bool)-  , _pmvMasterUserPassword               :: !(Maybe Text)-  , _pmvPubliclyAccessible               :: !(Maybe Bool)-  , _pmvAutomatedSnapshotRetentionPeriod :: !(Maybe Int)-  , _pmvClusterIdentifier                :: !(Maybe Text)-  , _pmvNumberOfNodes                    :: !(Maybe Int)-  , _pmvClusterType                      :: !(Maybe Text)-  , _pmvClusterVersion                   :: !(Maybe Text)-  , _pmvNodeType                         :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'PendingModifiedValues' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pmvEnhancedVPCRouting' - An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false------ * 'pmvMasterUserPassword' - The pending or in-progress change of the master user password for the cluster.------ * 'pmvPubliclyAccessible' - The pending or in-progress change of the ability to connect to the cluster from the public network.------ * 'pmvAutomatedSnapshotRetentionPeriod' - The pending or in-progress change of the automated snapshot retention period.------ * 'pmvClusterIdentifier' - The pending or in-progress change of the new identifier for the cluster.------ * 'pmvNumberOfNodes' - The pending or in-progress change of the number of nodes in the cluster.------ * 'pmvClusterType' - The pending or in-progress change of the cluster type.------ * 'pmvClusterVersion' - The pending or in-progress change of the service version.------ * 'pmvNodeType' - The pending or in-progress change of the cluster's node type.-pendingModifiedValues-    :: PendingModifiedValues-pendingModifiedValues =-  PendingModifiedValues'-  { _pmvEnhancedVPCRouting = Nothing-  , _pmvMasterUserPassword = Nothing-  , _pmvPubliclyAccessible = Nothing-  , _pmvAutomatedSnapshotRetentionPeriod = Nothing-  , _pmvClusterIdentifier = Nothing-  , _pmvNumberOfNodes = Nothing-  , _pmvClusterType = Nothing-  , _pmvClusterVersion = Nothing-  , _pmvNodeType = Nothing-  }----- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false-pmvEnhancedVPCRouting :: Lens' PendingModifiedValues (Maybe Bool)-pmvEnhancedVPCRouting = lens _pmvEnhancedVPCRouting (\ s a -> s{_pmvEnhancedVPCRouting = a});---- | The pending or in-progress change of the master user password for the cluster.-pmvMasterUserPassword :: Lens' PendingModifiedValues (Maybe Text)-pmvMasterUserPassword = lens _pmvMasterUserPassword (\ s a -> s{_pmvMasterUserPassword = a});---- | The pending or in-progress change of the ability to connect to the cluster from the public network.-pmvPubliclyAccessible :: Lens' PendingModifiedValues (Maybe Bool)-pmvPubliclyAccessible = lens _pmvPubliclyAccessible (\ s a -> s{_pmvPubliclyAccessible = a});---- | The pending or in-progress change of the automated snapshot retention period.-pmvAutomatedSnapshotRetentionPeriod :: Lens' PendingModifiedValues (Maybe Int)-pmvAutomatedSnapshotRetentionPeriod = lens _pmvAutomatedSnapshotRetentionPeriod (\ s a -> s{_pmvAutomatedSnapshotRetentionPeriod = a});---- | The pending or in-progress change of the new identifier for the cluster.-pmvClusterIdentifier :: Lens' PendingModifiedValues (Maybe Text)-pmvClusterIdentifier = lens _pmvClusterIdentifier (\ s a -> s{_pmvClusterIdentifier = a});---- | The pending or in-progress change of the number of nodes in the cluster.-pmvNumberOfNodes :: Lens' PendingModifiedValues (Maybe Int)-pmvNumberOfNodes = lens _pmvNumberOfNodes (\ s a -> s{_pmvNumberOfNodes = a});---- | The pending or in-progress change of the cluster type.-pmvClusterType :: Lens' PendingModifiedValues (Maybe Text)-pmvClusterType = lens _pmvClusterType (\ s a -> s{_pmvClusterType = a});---- | The pending or in-progress change of the service version.-pmvClusterVersion :: Lens' PendingModifiedValues (Maybe Text)-pmvClusterVersion = lens _pmvClusterVersion (\ s a -> s{_pmvClusterVersion = a});---- | The pending or in-progress change of the cluster's node type.-pmvNodeType :: Lens' PendingModifiedValues (Maybe Text)-pmvNodeType = lens _pmvNodeType (\ s a -> s{_pmvNodeType = a});--instance FromXML PendingModifiedValues where-        parseXML x-          = PendingModifiedValues' <$>-              (x .@? "EnhancedVpcRouting") <*>-                (x .@? "MasterUserPassword")-                <*> (x .@? "PubliclyAccessible")-                <*> (x .@? "AutomatedSnapshotRetentionPeriod")-                <*> (x .@? "ClusterIdentifier")-                <*> (x .@? "NumberOfNodes")-                <*> (x .@? "ClusterType")-                <*> (x .@? "ClusterVersion")-                <*> (x .@? "NodeType")--instance Hashable PendingModifiedValues where--instance NFData PendingModifiedValues where---- | Describes a recurring charge.------------ /See:/ 'recurringCharge' smart constructor.-data RecurringCharge = RecurringCharge'-  { _rcRecurringChargeFrequency :: !(Maybe Text)-  , _rcRecurringChargeAmount    :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RecurringCharge' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcRecurringChargeFrequency' - The frequency at which the recurring charge amount is applied.------ * 'rcRecurringChargeAmount' - The amount charged per the period of time specified by the recurring charge frequency.-recurringCharge-    :: RecurringCharge-recurringCharge =-  RecurringCharge'-  {_rcRecurringChargeFrequency = Nothing, _rcRecurringChargeAmount = Nothing}----- | The frequency at which the recurring charge amount is applied.-rcRecurringChargeFrequency :: Lens' RecurringCharge (Maybe Text)-rcRecurringChargeFrequency = lens _rcRecurringChargeFrequency (\ s a -> s{_rcRecurringChargeFrequency = a});---- | The amount charged per the period of time specified by the recurring charge frequency.-rcRecurringChargeAmount :: Lens' RecurringCharge (Maybe Double)-rcRecurringChargeAmount = lens _rcRecurringChargeAmount (\ s a -> s{_rcRecurringChargeAmount = a});--instance FromXML RecurringCharge where-        parseXML x-          = RecurringCharge' <$>-              (x .@? "RecurringChargeFrequency") <*>-                (x .@? "RecurringChargeAmount")--instance Hashable RecurringCharge where--instance NFData RecurringCharge where---- | Describes a reserved node. You can call the 'DescribeReservedNodeOfferings' API to obtain the available reserved node offerings.------------ /See:/ 'reservedNode' smart constructor.-data ReservedNode = ReservedNode'-  { _rnState                  :: !(Maybe Text)-  , _rnCurrencyCode           :: !(Maybe Text)-  , _rnStartTime              :: !(Maybe ISO8601)-  , _rnNodeCount              :: !(Maybe Int)-  , _rnReservedNodeId         :: !(Maybe Text)-  , _rnReservedNodeOfferingId :: !(Maybe Text)-  , _rnRecurringCharges       :: !(Maybe [RecurringCharge])-  , _rnOfferingType           :: !(Maybe Text)-  , _rnUsagePrice             :: !(Maybe Double)-  , _rnNodeType               :: !(Maybe Text)-  , _rnFixedPrice             :: !(Maybe Double)-  , _rnDuration               :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ReservedNode' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rnState' - The state of the reserved compute node. Possible Values:     * pending-payment-This reserved node has recently been purchased, and the sale has been approved, but payment has not yet been confirmed.     * active-This reserved node is owned by the caller and is available for use.     * payment-failed-Payment failed for the purchase attempt.------ * 'rnCurrencyCode' - The currency code for the reserved cluster.------ * 'rnStartTime' - The time the reservation started. You purchase a reserved node offering for a duration. This is the start time of that duration.------ * 'rnNodeCount' - The number of reserved compute nodes.------ * 'rnReservedNodeId' - The unique identifier for the reservation.------ * 'rnReservedNodeOfferingId' - The identifier for the reserved node offering.------ * 'rnRecurringCharges' - The recurring charges for the reserved node.------ * 'rnOfferingType' - The anticipated utilization of the reserved node, as defined in the reserved node offering.------ * 'rnUsagePrice' - The hourly rate Amazon Redshift charges you for this reserved node.------ * 'rnNodeType' - The node type of the reserved node.------ * 'rnFixedPrice' - The fixed cost Amazon Redshift charges you for this reserved node.------ * 'rnDuration' - The duration of the node reservation in seconds.-reservedNode-    :: ReservedNode-reservedNode =-  ReservedNode'-  { _rnState = Nothing-  , _rnCurrencyCode = Nothing-  , _rnStartTime = Nothing-  , _rnNodeCount = Nothing-  , _rnReservedNodeId = Nothing-  , _rnReservedNodeOfferingId = Nothing-  , _rnRecurringCharges = Nothing-  , _rnOfferingType = Nothing-  , _rnUsagePrice = Nothing-  , _rnNodeType = Nothing-  , _rnFixedPrice = Nothing-  , _rnDuration = Nothing-  }----- | The state of the reserved compute node. Possible Values:     * pending-payment-This reserved node has recently been purchased, and the sale has been approved, but payment has not yet been confirmed.     * active-This reserved node is owned by the caller and is available for use.     * payment-failed-Payment failed for the purchase attempt.-rnState :: Lens' ReservedNode (Maybe Text)-rnState = lens _rnState (\ s a -> s{_rnState = a});---- | The currency code for the reserved cluster.-rnCurrencyCode :: Lens' ReservedNode (Maybe Text)-rnCurrencyCode = lens _rnCurrencyCode (\ s a -> s{_rnCurrencyCode = a});---- | The time the reservation started. You purchase a reserved node offering for a duration. This is the start time of that duration.-rnStartTime :: Lens' ReservedNode (Maybe UTCTime)-rnStartTime = lens _rnStartTime (\ s a -> s{_rnStartTime = a}) . mapping _Time;---- | The number of reserved compute nodes.-rnNodeCount :: Lens' ReservedNode (Maybe Int)-rnNodeCount = lens _rnNodeCount (\ s a -> s{_rnNodeCount = a});---- | The unique identifier for the reservation.-rnReservedNodeId :: Lens' ReservedNode (Maybe Text)-rnReservedNodeId = lens _rnReservedNodeId (\ s a -> s{_rnReservedNodeId = a});---- | The identifier for the reserved node offering.-rnReservedNodeOfferingId :: Lens' ReservedNode (Maybe Text)-rnReservedNodeOfferingId = lens _rnReservedNodeOfferingId (\ s a -> s{_rnReservedNodeOfferingId = a});---- | The recurring charges for the reserved node.-rnRecurringCharges :: Lens' ReservedNode [RecurringCharge]-rnRecurringCharges = lens _rnRecurringCharges (\ s a -> s{_rnRecurringCharges = a}) . _Default . _Coerce;---- | The anticipated utilization of the reserved node, as defined in the reserved node offering.-rnOfferingType :: Lens' ReservedNode (Maybe Text)-rnOfferingType = lens _rnOfferingType (\ s a -> s{_rnOfferingType = a});---- | The hourly rate Amazon Redshift charges you for this reserved node.-rnUsagePrice :: Lens' ReservedNode (Maybe Double)-rnUsagePrice = lens _rnUsagePrice (\ s a -> s{_rnUsagePrice = a});---- | The node type of the reserved node.-rnNodeType :: Lens' ReservedNode (Maybe Text)-rnNodeType = lens _rnNodeType (\ s a -> s{_rnNodeType = a});---- | The fixed cost Amazon Redshift charges you for this reserved node.-rnFixedPrice :: Lens' ReservedNode (Maybe Double)-rnFixedPrice = lens _rnFixedPrice (\ s a -> s{_rnFixedPrice = a});---- | The duration of the node reservation in seconds.-rnDuration :: Lens' ReservedNode (Maybe Int)-rnDuration = lens _rnDuration (\ s a -> s{_rnDuration = a});--instance FromXML ReservedNode where-        parseXML x-          = ReservedNode' <$>-              (x .@? "State") <*> (x .@? "CurrencyCode") <*>-                (x .@? "StartTime")-                <*> (x .@? "NodeCount")-                <*> (x .@? "ReservedNodeId")-                <*> (x .@? "ReservedNodeOfferingId")-                <*>-                (x .@? "RecurringCharges" .!@ mempty >>=-                   may (parseXMLList "RecurringCharge"))-                <*> (x .@? "OfferingType")-                <*> (x .@? "UsagePrice")-                <*> (x .@? "NodeType")-                <*> (x .@? "FixedPrice")-                <*> (x .@? "Duration")--instance Hashable ReservedNode where--instance NFData ReservedNode where---- | Describes a reserved node offering.------------ /See:/ 'reservedNodeOffering' smart constructor.-data ReservedNodeOffering = ReservedNodeOffering'-  { _rnoCurrencyCode           :: !(Maybe Text)-  , _rnoReservedNodeOfferingId :: !(Maybe Text)-  , _rnoRecurringCharges       :: !(Maybe [RecurringCharge])-  , _rnoOfferingType           :: !(Maybe Text)-  , _rnoUsagePrice             :: !(Maybe Double)-  , _rnoNodeType               :: !(Maybe Text)-  , _rnoFixedPrice             :: !(Maybe Double)-  , _rnoDuration               :: !(Maybe Int)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ReservedNodeOffering' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rnoCurrencyCode' - The currency code for the compute nodes offering.------ * 'rnoReservedNodeOfferingId' - The offering identifier.------ * 'rnoRecurringCharges' - The charge to your account regardless of whether you are creating any clusters using the node offering. Recurring charges are only in effect for heavy-utilization reserved nodes.------ * 'rnoOfferingType' - The anticipated utilization of the reserved node, as defined in the reserved node offering.------ * 'rnoUsagePrice' - The rate you are charged for each hour the cluster that is using the offering is running.------ * 'rnoNodeType' - The node type offered by the reserved node offering.------ * 'rnoFixedPrice' - The upfront fixed charge you will pay to purchase the specific reserved node offering.------ * 'rnoDuration' - The duration, in seconds, for which the offering will reserve the node.-reservedNodeOffering-    :: ReservedNodeOffering-reservedNodeOffering =-  ReservedNodeOffering'-  { _rnoCurrencyCode = Nothing-  , _rnoReservedNodeOfferingId = Nothing-  , _rnoRecurringCharges = Nothing-  , _rnoOfferingType = Nothing-  , _rnoUsagePrice = Nothing-  , _rnoNodeType = Nothing-  , _rnoFixedPrice = Nothing-  , _rnoDuration = Nothing-  }----- | The currency code for the compute nodes offering.-rnoCurrencyCode :: Lens' ReservedNodeOffering (Maybe Text)-rnoCurrencyCode = lens _rnoCurrencyCode (\ s a -> s{_rnoCurrencyCode = a});---- | The offering identifier.-rnoReservedNodeOfferingId :: Lens' ReservedNodeOffering (Maybe Text)-rnoReservedNodeOfferingId = lens _rnoReservedNodeOfferingId (\ s a -> s{_rnoReservedNodeOfferingId = a});---- | The charge to your account regardless of whether you are creating any clusters using the node offering. Recurring charges are only in effect for heavy-utilization reserved nodes.-rnoRecurringCharges :: Lens' ReservedNodeOffering [RecurringCharge]-rnoRecurringCharges = lens _rnoRecurringCharges (\ s a -> s{_rnoRecurringCharges = a}) . _Default . _Coerce;---- | The anticipated utilization of the reserved node, as defined in the reserved node offering.-rnoOfferingType :: Lens' ReservedNodeOffering (Maybe Text)-rnoOfferingType = lens _rnoOfferingType (\ s a -> s{_rnoOfferingType = a});---- | The rate you are charged for each hour the cluster that is using the offering is running.-rnoUsagePrice :: Lens' ReservedNodeOffering (Maybe Double)-rnoUsagePrice = lens _rnoUsagePrice (\ s a -> s{_rnoUsagePrice = a});---- | The node type offered by the reserved node offering.-rnoNodeType :: Lens' ReservedNodeOffering (Maybe Text)-rnoNodeType = lens _rnoNodeType (\ s a -> s{_rnoNodeType = a});---- | The upfront fixed charge you will pay to purchase the specific reserved node offering.-rnoFixedPrice :: Lens' ReservedNodeOffering (Maybe Double)-rnoFixedPrice = lens _rnoFixedPrice (\ s a -> s{_rnoFixedPrice = a});---- | The duration, in seconds, for which the offering will reserve the node.-rnoDuration :: Lens' ReservedNodeOffering (Maybe Int)-rnoDuration = lens _rnoDuration (\ s a -> s{_rnoDuration = a});--instance FromXML ReservedNodeOffering where-        parseXML x-          = ReservedNodeOffering' <$>-              (x .@? "CurrencyCode") <*>-                (x .@? "ReservedNodeOfferingId")-                <*>-                (x .@? "RecurringCharges" .!@ mempty >>=-                   may (parseXMLList "RecurringCharge"))-                <*> (x .@? "OfferingType")-                <*> (x .@? "UsagePrice")-                <*> (x .@? "NodeType")-                <*> (x .@? "FixedPrice")-                <*> (x .@? "Duration")--instance Hashable ReservedNodeOffering where--instance NFData ReservedNodeOffering where---- | Describes the status of a cluster restore action. Returns null if the cluster was not created by restoring a snapshot.------------ /See:/ 'restoreStatus' smart constructor.-data RestoreStatus = RestoreStatus'-  { _rsStatus                                 :: !(Maybe Text)-  , _rsEstimatedTimeToCompletionInSeconds     :: !(Maybe Integer)-  , _rsCurrentRestoreRateInMegaBytesPerSecond :: !(Maybe Double)-  , _rsProgressInMegaBytes                    :: !(Maybe Integer)-  , _rsElapsedTimeInSeconds                   :: !(Maybe Integer)-  , _rsSnapshotSizeInMegaBytes                :: !(Maybe Integer)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RestoreStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rsStatus' - The status of the restore action. Returns starting, restoring, completed, or failed.------ * 'rsEstimatedTimeToCompletionInSeconds' - The estimate of the time remaining before the restore will complete. Returns 0 for a completed restore.------ * 'rsCurrentRestoreRateInMegaBytesPerSecond' - The number of megabytes per second being transferred from the backup storage. Returns the average rate for a completed backup.------ * 'rsProgressInMegaBytes' - The number of megabytes that have been transferred from snapshot storage.------ * 'rsElapsedTimeInSeconds' - The amount of time an in-progress restore has been running, or the amount of time it took a completed restore to finish.------ * 'rsSnapshotSizeInMegaBytes' - The size of the set of snapshot data used to restore the cluster.-restoreStatus-    :: RestoreStatus-restoreStatus =-  RestoreStatus'-  { _rsStatus = Nothing-  , _rsEstimatedTimeToCompletionInSeconds = Nothing-  , _rsCurrentRestoreRateInMegaBytesPerSecond = Nothing-  , _rsProgressInMegaBytes = Nothing-  , _rsElapsedTimeInSeconds = Nothing-  , _rsSnapshotSizeInMegaBytes = Nothing-  }----- | The status of the restore action. Returns starting, restoring, completed, or failed.-rsStatus :: Lens' RestoreStatus (Maybe Text)-rsStatus = lens _rsStatus (\ s a -> s{_rsStatus = a});---- | The estimate of the time remaining before the restore will complete. Returns 0 for a completed restore.-rsEstimatedTimeToCompletionInSeconds :: Lens' RestoreStatus (Maybe Integer)-rsEstimatedTimeToCompletionInSeconds = lens _rsEstimatedTimeToCompletionInSeconds (\ s a -> s{_rsEstimatedTimeToCompletionInSeconds = a});---- | The number of megabytes per second being transferred from the backup storage. Returns the average rate for a completed backup.-rsCurrentRestoreRateInMegaBytesPerSecond :: Lens' RestoreStatus (Maybe Double)-rsCurrentRestoreRateInMegaBytesPerSecond = lens _rsCurrentRestoreRateInMegaBytesPerSecond (\ s a -> s{_rsCurrentRestoreRateInMegaBytesPerSecond = a});---- | The number of megabytes that have been transferred from snapshot storage.-rsProgressInMegaBytes :: Lens' RestoreStatus (Maybe Integer)-rsProgressInMegaBytes = lens _rsProgressInMegaBytes (\ s a -> s{_rsProgressInMegaBytes = a});---- | The amount of time an in-progress restore has been running, or the amount of time it took a completed restore to finish.-rsElapsedTimeInSeconds :: Lens' RestoreStatus (Maybe Integer)-rsElapsedTimeInSeconds = lens _rsElapsedTimeInSeconds (\ s a -> s{_rsElapsedTimeInSeconds = a});---- | The size of the set of snapshot data used to restore the cluster.-rsSnapshotSizeInMegaBytes :: Lens' RestoreStatus (Maybe Integer)-rsSnapshotSizeInMegaBytes = lens _rsSnapshotSizeInMegaBytes (\ s a -> s{_rsSnapshotSizeInMegaBytes = a});--instance FromXML RestoreStatus where-        parseXML x-          = RestoreStatus' <$>-              (x .@? "Status") <*>-                (x .@? "EstimatedTimeToCompletionInSeconds")-                <*> (x .@? "CurrentRestoreRateInMegaBytesPerSecond")-                <*> (x .@? "ProgressInMegaBytes")-                <*> (x .@? "ElapsedTimeInSeconds")-                <*> (x .@? "SnapshotSizeInMegaBytes")--instance Hashable RestoreStatus where--instance NFData RestoreStatus where---- | Describes a snapshot.------------ /See:/ 'snapshot' smart constructor.-data Snapshot = Snapshot'-  { _sStatus :: !(Maybe Text)-  , _sRestorableNodeTypes :: !(Maybe [Text])-  , _sAccountsWithRestoreAccess :: !(Maybe [AccountWithRestoreAccess])-  , _sEnhancedVPCRouting :: !(Maybe Bool)-  , _sSnapshotIdentifier :: !(Maybe Text)-  , _sEncryptedWithHSM :: !(Maybe Bool)-  , _sMasterUsername :: !(Maybe Text)-  , _sSourceRegion :: !(Maybe Text)-  , _sVPCId :: !(Maybe Text)-  , _sBackupProgressInMegaBytes :: !(Maybe Double)-  , _sEncrypted :: !(Maybe Bool)-  , _sClusterIdentifier :: !(Maybe Text)-  , _sNumberOfNodes :: !(Maybe Int)-  , _sSnapshotType :: !(Maybe Text)-  , _sKMSKeyId :: !(Maybe Text)-  , _sAvailabilityZone :: !(Maybe Text)-  , _sCurrentBackupRateInMegaBytesPerSecond :: !(Maybe Double)-  , _sSnapshotCreateTime :: !(Maybe ISO8601)-  , _sClusterVersion :: !(Maybe Text)-  , _sOwnerAccount :: !(Maybe Text)-  , _sNodeType :: !(Maybe Text)-  , _sElapsedTimeInSeconds :: !(Maybe Integer)-  , _sClusterCreateTime :: !(Maybe ISO8601)-  , _sEstimatedSecondsToCompletion :: !(Maybe Integer)-  , _sActualIncrementalBackupSizeInMegaBytes :: !(Maybe Double)-  , _sTags :: !(Maybe [Tag])-  , _sPort :: !(Maybe Int)-  , _sTotalBackupSizeInMegaBytes :: !(Maybe Double)-  , _sDBName :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Snapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sStatus' - The snapshot status. The value of the status depends on the API operation used.      * 'CreateClusterSnapshot' and 'CopyClusterSnapshot' returns status as "creating".      * 'DescribeClusterSnapshots' returns status as "creating", "available", "final snapshot", or "failed".     * 'DeleteClusterSnapshot' returns status as "deleted".------ * 'sRestorableNodeTypes' - The list of node types that this cluster snapshot is able to restore into.------ * 'sAccountsWithRestoreAccess' - A list of the AWS customer accounts authorized to restore the snapshot. Returns @null@ if no accounts are authorized. Visible only to the snapshot owner.------ * 'sEnhancedVPCRouting' - An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false------ * 'sSnapshotIdentifier' - The snapshot identifier that is provided in the request.------ * 'sEncryptedWithHSM' - A boolean that indicates whether the snapshot data is encrypted using the HSM keys of the source cluster. @true@ indicates that the data is encrypted using HSM keys.------ * 'sMasterUsername' - The master user name for the cluster.------ * 'sSourceRegion' - The source region from which the snapshot was copied.------ * 'sVPCId' - The VPC identifier of the cluster if the snapshot is from a cluster in a VPC. Otherwise, this field is not in the output.------ * 'sBackupProgressInMegaBytes' - The number of megabytes that have been transferred to the snapshot backup.------ * 'sEncrypted' - If @true@ , the data in the snapshot is encrypted at rest.------ * 'sClusterIdentifier' - The identifier of the cluster for which the snapshot was taken.------ * 'sNumberOfNodes' - The number of nodes in the cluster.------ * 'sSnapshotType' - The snapshot type. Snapshots created using 'CreateClusterSnapshot' and 'CopyClusterSnapshot' will be of type "manual".------ * 'sKMSKeyId' - The AWS Key Management Service (KMS) key ID of the encryption key that was used to encrypt data in the cluster from which the snapshot was taken.------ * 'sAvailabilityZone' - The Availability Zone in which the cluster was created.------ * 'sCurrentBackupRateInMegaBytesPerSecond' - The number of megabytes per second being transferred to the snapshot backup. Returns @0@ for a completed backup.------ * 'sSnapshotCreateTime' - The time (UTC) when Amazon Redshift began the snapshot. A snapshot contains a copy of the cluster data as of this exact time.------ * 'sClusterVersion' - The version ID of the Amazon Redshift engine that is running on the cluster.------ * 'sOwnerAccount' - For manual snapshots, the AWS customer account used to create or copy the snapshot. For automatic snapshots, the owner of the cluster. The owner can perform all snapshot actions, such as sharing a manual snapshot.------ * 'sNodeType' - The node type of the nodes in the cluster.------ * 'sElapsedTimeInSeconds' - The amount of time an in-progress snapshot backup has been running, or the amount of time it took a completed backup to finish.------ * 'sClusterCreateTime' - The time (UTC) when the cluster was originally created.------ * 'sEstimatedSecondsToCompletion' - The estimate of the time remaining before the snapshot backup will complete. Returns @0@ for a completed backup.------ * 'sActualIncrementalBackupSizeInMegaBytes' - The size of the incremental backup.------ * 'sTags' - The list of tags for the cluster snapshot.------ * 'sPort' - The port that the cluster is listening on.------ * 'sTotalBackupSizeInMegaBytes' - The size of the complete set of backup data that would be used to restore the cluster.------ * 'sDBName' - The name of the database that was created when the cluster was created.-snapshot-    :: Snapshot-snapshot =-  Snapshot'-  { _sStatus = Nothing-  , _sRestorableNodeTypes = Nothing-  , _sAccountsWithRestoreAccess = Nothing-  , _sEnhancedVPCRouting = Nothing-  , _sSnapshotIdentifier = Nothing-  , _sEncryptedWithHSM = Nothing-  , _sMasterUsername = Nothing-  , _sSourceRegion = Nothing-  , _sVPCId = Nothing-  , _sBackupProgressInMegaBytes = Nothing-  , _sEncrypted = Nothing-  , _sClusterIdentifier = Nothing-  , _sNumberOfNodes = Nothing-  , _sSnapshotType = Nothing-  , _sKMSKeyId = Nothing-  , _sAvailabilityZone = Nothing-  , _sCurrentBackupRateInMegaBytesPerSecond = Nothing-  , _sSnapshotCreateTime = Nothing-  , _sClusterVersion = Nothing-  , _sOwnerAccount = Nothing-  , _sNodeType = Nothing-  , _sElapsedTimeInSeconds = Nothing-  , _sClusterCreateTime = Nothing-  , _sEstimatedSecondsToCompletion = Nothing-  , _sActualIncrementalBackupSizeInMegaBytes = Nothing-  , _sTags = Nothing-  , _sPort = Nothing-  , _sTotalBackupSizeInMegaBytes = Nothing-  , _sDBName = Nothing-  }----- | The snapshot status. The value of the status depends on the API operation used.      * 'CreateClusterSnapshot' and 'CopyClusterSnapshot' returns status as "creating".      * 'DescribeClusterSnapshots' returns status as "creating", "available", "final snapshot", or "failed".     * 'DeleteClusterSnapshot' returns status as "deleted".-sStatus :: Lens' Snapshot (Maybe Text)-sStatus = lens _sStatus (\ s a -> s{_sStatus = a});---- | The list of node types that this cluster snapshot is able to restore into.-sRestorableNodeTypes :: Lens' Snapshot [Text]-sRestorableNodeTypes = lens _sRestorableNodeTypes (\ s a -> s{_sRestorableNodeTypes = a}) . _Default . _Coerce;---- | A list of the AWS customer accounts authorized to restore the snapshot. Returns @null@ if no accounts are authorized. Visible only to the snapshot owner.-sAccountsWithRestoreAccess :: Lens' Snapshot [AccountWithRestoreAccess]-sAccountsWithRestoreAccess = lens _sAccountsWithRestoreAccess (\ s a -> s{_sAccountsWithRestoreAccess = a}) . _Default . _Coerce;---- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false-sEnhancedVPCRouting :: Lens' Snapshot (Maybe Bool)-sEnhancedVPCRouting = lens _sEnhancedVPCRouting (\ s a -> s{_sEnhancedVPCRouting = a});---- | The snapshot identifier that is provided in the request.-sSnapshotIdentifier :: Lens' Snapshot (Maybe Text)-sSnapshotIdentifier = lens _sSnapshotIdentifier (\ s a -> s{_sSnapshotIdentifier = a});---- | A boolean that indicates whether the snapshot data is encrypted using the HSM keys of the source cluster. @true@ indicates that the data is encrypted using HSM keys.-sEncryptedWithHSM :: Lens' Snapshot (Maybe Bool)-sEncryptedWithHSM = lens _sEncryptedWithHSM (\ s a -> s{_sEncryptedWithHSM = a});---- | The master user name for the cluster.-sMasterUsername :: Lens' Snapshot (Maybe Text)-sMasterUsername = lens _sMasterUsername (\ s a -> s{_sMasterUsername = a});---- | The source region from which the snapshot was copied.-sSourceRegion :: Lens' Snapshot (Maybe Text)-sSourceRegion = lens _sSourceRegion (\ s a -> s{_sSourceRegion = a});---- | The VPC identifier of the cluster if the snapshot is from a cluster in a VPC. Otherwise, this field is not in the output.-sVPCId :: Lens' Snapshot (Maybe Text)-sVPCId = lens _sVPCId (\ s a -> s{_sVPCId = a});---- | The number of megabytes that have been transferred to the snapshot backup.-sBackupProgressInMegaBytes :: Lens' Snapshot (Maybe Double)-sBackupProgressInMegaBytes = lens _sBackupProgressInMegaBytes (\ s a -> s{_sBackupProgressInMegaBytes = a});---- | If @true@ , the data in the snapshot is encrypted at rest.-sEncrypted :: Lens' Snapshot (Maybe Bool)-sEncrypted = lens _sEncrypted (\ s a -> s{_sEncrypted = a});---- | The identifier of the cluster for which the snapshot was taken.-sClusterIdentifier :: Lens' Snapshot (Maybe Text)-sClusterIdentifier = lens _sClusterIdentifier (\ s a -> s{_sClusterIdentifier = a});---- | The number of nodes in the cluster.-sNumberOfNodes :: Lens' Snapshot (Maybe Int)-sNumberOfNodes = lens _sNumberOfNodes (\ s a -> s{_sNumberOfNodes = a});---- | The snapshot type. Snapshots created using 'CreateClusterSnapshot' and 'CopyClusterSnapshot' will be of type "manual".-sSnapshotType :: Lens' Snapshot (Maybe Text)-sSnapshotType = lens _sSnapshotType (\ s a -> s{_sSnapshotType = a});---- | The AWS Key Management Service (KMS) key ID of the encryption key that was used to encrypt data in the cluster from which the snapshot was taken.-sKMSKeyId :: Lens' Snapshot (Maybe Text)-sKMSKeyId = lens _sKMSKeyId (\ s a -> s{_sKMSKeyId = a});---- | The Availability Zone in which the cluster was created.-sAvailabilityZone :: Lens' Snapshot (Maybe Text)-sAvailabilityZone = lens _sAvailabilityZone (\ s a -> s{_sAvailabilityZone = a});---- | The number of megabytes per second being transferred to the snapshot backup. Returns @0@ for a completed backup.-sCurrentBackupRateInMegaBytesPerSecond :: Lens' Snapshot (Maybe Double)-sCurrentBackupRateInMegaBytesPerSecond = lens _sCurrentBackupRateInMegaBytesPerSecond (\ s a -> s{_sCurrentBackupRateInMegaBytesPerSecond = a});---- | The time (UTC) when Amazon Redshift began the snapshot. A snapshot contains a copy of the cluster data as of this exact time.-sSnapshotCreateTime :: Lens' Snapshot (Maybe UTCTime)-sSnapshotCreateTime = lens _sSnapshotCreateTime (\ s a -> s{_sSnapshotCreateTime = a}) . mapping _Time;---- | The version ID of the Amazon Redshift engine that is running on the cluster.-sClusterVersion :: Lens' Snapshot (Maybe Text)-sClusterVersion = lens _sClusterVersion (\ s a -> s{_sClusterVersion = a});---- | For manual snapshots, the AWS customer account used to create or copy the snapshot. For automatic snapshots, the owner of the cluster. The owner can perform all snapshot actions, such as sharing a manual snapshot.-sOwnerAccount :: Lens' Snapshot (Maybe Text)-sOwnerAccount = lens _sOwnerAccount (\ s a -> s{_sOwnerAccount = a});---- | The node type of the nodes in the cluster.-sNodeType :: Lens' Snapshot (Maybe Text)-sNodeType = lens _sNodeType (\ s a -> s{_sNodeType = a});---- | The amount of time an in-progress snapshot backup has been running, or the amount of time it took a completed backup to finish.-sElapsedTimeInSeconds :: Lens' Snapshot (Maybe Integer)-sElapsedTimeInSeconds = lens _sElapsedTimeInSeconds (\ s a -> s{_sElapsedTimeInSeconds = a});---- | The time (UTC) when the cluster was originally created.-sClusterCreateTime :: Lens' Snapshot (Maybe UTCTime)-sClusterCreateTime = lens _sClusterCreateTime (\ s a -> s{_sClusterCreateTime = a}) . mapping _Time;---- | The estimate of the time remaining before the snapshot backup will complete. Returns @0@ for a completed backup.-sEstimatedSecondsToCompletion :: Lens' Snapshot (Maybe Integer)-sEstimatedSecondsToCompletion = lens _sEstimatedSecondsToCompletion (\ s a -> s{_sEstimatedSecondsToCompletion = a});---- | The size of the incremental backup.-sActualIncrementalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)-sActualIncrementalBackupSizeInMegaBytes = lens _sActualIncrementalBackupSizeInMegaBytes (\ s a -> s{_sActualIncrementalBackupSizeInMegaBytes = a});---- | The list of tags for the cluster snapshot.-sTags :: Lens' Snapshot [Tag]-sTags = lens _sTags (\ s a -> s{_sTags = a}) . _Default . _Coerce;---- | The port that the cluster is listening on.-sPort :: Lens' Snapshot (Maybe Int)-sPort = lens _sPort (\ s a -> s{_sPort = a});---- | The size of the complete set of backup data that would be used to restore the cluster.-sTotalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)-sTotalBackupSizeInMegaBytes = lens _sTotalBackupSizeInMegaBytes (\ s a -> s{_sTotalBackupSizeInMegaBytes = a});---- | The name of the database that was created when the cluster was created.-sDBName :: Lens' Snapshot (Maybe Text)-sDBName = lens _sDBName (\ s a -> s{_sDBName = a});--instance FromXML Snapshot where-        parseXML x-          = Snapshot' <$>-              (x .@? "Status") <*>-                (x .@? "RestorableNodeTypes" .!@ mempty >>=-                   may (parseXMLList "NodeType"))-                <*>-                (x .@? "AccountsWithRestoreAccess" .!@ mempty >>=-                   may (parseXMLList "AccountWithRestoreAccess"))-                <*> (x .@? "EnhancedVpcRouting")-                <*> (x .@? "SnapshotIdentifier")-                <*> (x .@? "EncryptedWithHSM")-                <*> (x .@? "MasterUsername")-                <*> (x .@? "SourceRegion")-                <*> (x .@? "VpcId")-                <*> (x .@? "BackupProgressInMegaBytes")-                <*> (x .@? "Encrypted")-                <*> (x .@? "ClusterIdentifier")-                <*> (x .@? "NumberOfNodes")-                <*> (x .@? "SnapshotType")-                <*> (x .@? "KmsKeyId")-                <*> (x .@? "AvailabilityZone")-                <*> (x .@? "CurrentBackupRateInMegaBytesPerSecond")-                <*> (x .@? "SnapshotCreateTime")-                <*> (x .@? "ClusterVersion")-                <*> (x .@? "OwnerAccount")-                <*> (x .@? "NodeType")-                <*> (x .@? "ElapsedTimeInSeconds")-                <*> (x .@? "ClusterCreateTime")-                <*> (x .@? "EstimatedSecondsToCompletion")-                <*> (x .@? "ActualIncrementalBackupSizeInMegaBytes")-                <*>-                (x .@? "Tags" .!@ mempty >>=-                   may (parseXMLList "Tag"))-                <*> (x .@? "Port")-                <*> (x .@? "TotalBackupSizeInMegaBytes")-                <*> (x .@? "DBName")--instance Hashable Snapshot where--instance NFData Snapshot where---- | The snapshot copy grant that grants Amazon Redshift permission to encrypt copied snapshots with the specified customer master key (CMK) from AWS KMS in the destination region.--------- For more information about managing snapshot copy grants, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-db-encryption.html Amazon Redshift Database Encryption> in the /Amazon Redshift Cluster Management Guide/ .--------- /See:/ 'snapshotCopyGrant' smart constructor.-data SnapshotCopyGrant = SnapshotCopyGrant'-  { _scgKMSKeyId              :: !(Maybe Text)-  , _scgSnapshotCopyGrantName :: !(Maybe Text)-  , _scgTags                  :: !(Maybe [Tag])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SnapshotCopyGrant' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'scgKMSKeyId' - The unique identifier of the customer master key (CMK) in AWS KMS to which Amazon Redshift is granted permission.------ * 'scgSnapshotCopyGrantName' - The name of the snapshot copy grant.------ * 'scgTags' - A list of tag instances.-snapshotCopyGrant-    :: SnapshotCopyGrant-snapshotCopyGrant =-  SnapshotCopyGrant'-  { _scgKMSKeyId = Nothing-  , _scgSnapshotCopyGrantName = Nothing-  , _scgTags = Nothing-  }----- | The unique identifier of the customer master key (CMK) in AWS KMS to which Amazon Redshift is granted permission.-scgKMSKeyId :: Lens' SnapshotCopyGrant (Maybe Text)-scgKMSKeyId = lens _scgKMSKeyId (\ s a -> s{_scgKMSKeyId = a});---- | The name of the snapshot copy grant.-scgSnapshotCopyGrantName :: Lens' SnapshotCopyGrant (Maybe Text)-scgSnapshotCopyGrantName = lens _scgSnapshotCopyGrantName (\ s a -> s{_scgSnapshotCopyGrantName = a});---- | A list of tag instances.-scgTags :: Lens' SnapshotCopyGrant [Tag]-scgTags = lens _scgTags (\ s a -> s{_scgTags = a}) . _Default . _Coerce;--instance FromXML SnapshotCopyGrant where-        parseXML x-          = SnapshotCopyGrant' <$>-              (x .@? "KmsKeyId") <*>-                (x .@? "SnapshotCopyGrantName")-                <*>-                (x .@? "Tags" .!@ mempty >>=-                   may (parseXMLList "Tag"))--instance Hashable SnapshotCopyGrant where--instance NFData SnapshotCopyGrant where---- | Describes a subnet.------------ /See:/ 'subnet' smart constructor.-data Subnet = Subnet'-  { _sSubnetStatus           :: !(Maybe Text)-  , _sSubnetIdentifier       :: !(Maybe Text)-  , _sSubnetAvailabilityZone :: !(Maybe AvailabilityZone)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Subnet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sSubnetStatus' - The status of the subnet.------ * 'sSubnetIdentifier' - The identifier of the subnet.------ * 'sSubnetAvailabilityZone' - Undocumented member.-subnet-    :: Subnet-subnet =-  Subnet'-  { _sSubnetStatus = Nothing-  , _sSubnetIdentifier = Nothing-  , _sSubnetAvailabilityZone = Nothing-  }----- | The status of the subnet.-sSubnetStatus :: Lens' Subnet (Maybe Text)-sSubnetStatus = lens _sSubnetStatus (\ s a -> s{_sSubnetStatus = a});---- | The identifier of the subnet.-sSubnetIdentifier :: Lens' Subnet (Maybe Text)-sSubnetIdentifier = lens _sSubnetIdentifier (\ s a -> s{_sSubnetIdentifier = a});---- | Undocumented member.-sSubnetAvailabilityZone :: Lens' Subnet (Maybe AvailabilityZone)-sSubnetAvailabilityZone = lens _sSubnetAvailabilityZone (\ s a -> s{_sSubnetAvailabilityZone = a});--instance FromXML Subnet where-        parseXML x-          = Subnet' <$>-              (x .@? "SubnetStatus") <*> (x .@? "SubnetIdentifier")-                <*> (x .@? "SubnetAvailabilityZone")--instance Hashable Subnet where--instance NFData Subnet where---- | Describes the status of a 'RestoreTableFromClusterSnapshot' operation.------------ /See:/ 'tableRestoreStatus' smart constructor.-data TableRestoreStatus = TableRestoreStatus'-  { _trsStatus                :: !(Maybe TableRestoreStatusType)-  , _trsTargetSchemaName      :: !(Maybe Text)-  , _trsSnapshotIdentifier    :: !(Maybe Text)-  , _trsSourceDatabaseName    :: !(Maybe Text)-  , _trsTableRestoreRequestId :: !(Maybe Text)-  , _trsNewTableName          :: !(Maybe Text)-  , _trsTargetDatabaseName    :: !(Maybe Text)-  , _trsSourceSchemaName      :: !(Maybe Text)-  , _trsClusterIdentifier     :: !(Maybe Text)-  , _trsRequestTime           :: !(Maybe ISO8601)-  , _trsSourceTableName       :: !(Maybe Text)-  , _trsTotalDataInMegaBytes  :: !(Maybe Integer)-  , _trsProgressInMegaBytes   :: !(Maybe Integer)-  , _trsMessage               :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'TableRestoreStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'trsStatus' - A value that describes the current state of the table restore request. Valid Values: @SUCCEEDED@ , @FAILED@ , @CANCELED@ , @PENDING@ , @IN_PROGRESS@------ * 'trsTargetSchemaName' - The name of the schema to restore the table to.------ * 'trsSnapshotIdentifier' - The identifier of the snapshot that the table is being restored from.------ * 'trsSourceDatabaseName' - The name of the source database that contains the table being restored.------ * 'trsTableRestoreRequestId' - The unique identifier for the table restore request.------ * 'trsNewTableName' - The name of the table to create as a result of the table restore request.------ * 'trsTargetDatabaseName' - The name of the database to restore the table to.------ * 'trsSourceSchemaName' - The name of the source schema that contains the table being restored.------ * 'trsClusterIdentifier' - The identifier of the Amazon Redshift cluster that the table is being restored to.------ * 'trsRequestTime' - The time that the table restore request was made, in Universal Coordinated Time (UTC).------ * 'trsSourceTableName' - The name of the source table being restored.------ * 'trsTotalDataInMegaBytes' - The total amount of data to restore to the new table, in megabytes (MB).------ * 'trsProgressInMegaBytes' - The amount of data restored to the new table so far, in megabytes (MB).------ * 'trsMessage' - A description of the status of the table restore request. Status values include @SUCCEEDED@ , @FAILED@ , @CANCELED@ , @PENDING@ , @IN_PROGRESS@ .-tableRestoreStatus-    :: TableRestoreStatus-tableRestoreStatus =-  TableRestoreStatus'-  { _trsStatus = Nothing-  , _trsTargetSchemaName = Nothing-  , _trsSnapshotIdentifier = Nothing-  , _trsSourceDatabaseName = Nothing-  , _trsTableRestoreRequestId = Nothing-  , _trsNewTableName = Nothing-  , _trsTargetDatabaseName = Nothing-  , _trsSourceSchemaName = Nothing-  , _trsClusterIdentifier = Nothing-  , _trsRequestTime = Nothing-  , _trsSourceTableName = Nothing-  , _trsTotalDataInMegaBytes = Nothing-  , _trsProgressInMegaBytes = Nothing-  , _trsMessage = Nothing-  }----- | A value that describes the current state of the table restore request. Valid Values: @SUCCEEDED@ , @FAILED@ , @CANCELED@ , @PENDING@ , @IN_PROGRESS@-trsStatus :: Lens' TableRestoreStatus (Maybe TableRestoreStatusType)-trsStatus = lens _trsStatus (\ s a -> s{_trsStatus = a});---- | The name of the schema to restore the table to.-trsTargetSchemaName :: Lens' TableRestoreStatus (Maybe Text)-trsTargetSchemaName = lens _trsTargetSchemaName (\ s a -> s{_trsTargetSchemaName = a});---- | The identifier of the snapshot that the table is being restored from.-trsSnapshotIdentifier :: Lens' TableRestoreStatus (Maybe Text)-trsSnapshotIdentifier = lens _trsSnapshotIdentifier (\ s a -> s{_trsSnapshotIdentifier = a});---- | The name of the source database that contains the table being restored.-trsSourceDatabaseName :: Lens' TableRestoreStatus (Maybe Text)-trsSourceDatabaseName = lens _trsSourceDatabaseName (\ s a -> s{_trsSourceDatabaseName = a});---- | The unique identifier for the table restore request.-trsTableRestoreRequestId :: Lens' TableRestoreStatus (Maybe Text)-trsTableRestoreRequestId = lens _trsTableRestoreRequestId (\ s a -> s{_trsTableRestoreRequestId = a});---- | The name of the table to create as a result of the table restore request.-trsNewTableName :: Lens' TableRestoreStatus (Maybe Text)-trsNewTableName = lens _trsNewTableName (\ s a -> s{_trsNewTableName = a});---- | The name of the database to restore the table to.-trsTargetDatabaseName :: Lens' TableRestoreStatus (Maybe Text)-trsTargetDatabaseName = lens _trsTargetDatabaseName (\ s a -> s{_trsTargetDatabaseName = a});---- | The name of the source schema that contains the table being restored.-trsSourceSchemaName :: Lens' TableRestoreStatus (Maybe Text)-trsSourceSchemaName = lens _trsSourceSchemaName (\ s a -> s{_trsSourceSchemaName = a});---- | The identifier of the Amazon Redshift cluster that the table is being restored to.-trsClusterIdentifier :: Lens' TableRestoreStatus (Maybe Text)-trsClusterIdentifier = lens _trsClusterIdentifier (\ s a -> s{_trsClusterIdentifier = a});---- | The time that the table restore request was made, in Universal Coordinated Time (UTC).-trsRequestTime :: Lens' TableRestoreStatus (Maybe UTCTime)-trsRequestTime = lens _trsRequestTime (\ s a -> s{_trsRequestTime = a}) . mapping _Time;---- | The name of the source table being restored.-trsSourceTableName :: Lens' TableRestoreStatus (Maybe Text)-trsSourceTableName = lens _trsSourceTableName (\ s a -> s{_trsSourceTableName = a});---- | The total amount of data to restore to the new table, in megabytes (MB).-trsTotalDataInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)-trsTotalDataInMegaBytes = lens _trsTotalDataInMegaBytes (\ s a -> s{_trsTotalDataInMegaBytes = a});---- | The amount of data restored to the new table so far, in megabytes (MB).-trsProgressInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)-trsProgressInMegaBytes = lens _trsProgressInMegaBytes (\ s a -> s{_trsProgressInMegaBytes = a});---- | A description of the status of the table restore request. Status values include @SUCCEEDED@ , @FAILED@ , @CANCELED@ , @PENDING@ , @IN_PROGRESS@ .-trsMessage :: Lens' TableRestoreStatus (Maybe Text)-trsMessage = lens _trsMessage (\ s a -> s{_trsMessage = a});--instance FromXML TableRestoreStatus where-        parseXML x-          = TableRestoreStatus' <$>-              (x .@? "Status") <*> (x .@? "TargetSchemaName") <*>-                (x .@? "SnapshotIdentifier")-                <*> (x .@? "SourceDatabaseName")-                <*> (x .@? "TableRestoreRequestId")-                <*> (x .@? "NewTableName")-                <*> (x .@? "TargetDatabaseName")-                <*> (x .@? "SourceSchemaName")-                <*> (x .@? "ClusterIdentifier")-                <*> (x .@? "RequestTime")-                <*> (x .@? "SourceTableName")-                <*> (x .@? "TotalDataInMegaBytes")-                <*> (x .@? "ProgressInMegaBytes")-                <*> (x .@? "Message")--instance Hashable TableRestoreStatus where--instance NFData TableRestoreStatus where---- | A tag consisting of a name/value pair for a resource.------------ /See:/ 'tag' smart constructor.-data Tag = Tag'-  { _tagValue :: !(Maybe Text)-  , _tagKey   :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Tag' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tagValue' - The value for the resource tag.------ * 'tagKey' - The key, or name, for the resource tag.-tag-    :: Tag-tag = Tag' {_tagValue = Nothing, _tagKey = Nothing}----- | The value for the resource tag.-tagValue :: Lens' Tag (Maybe Text)-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});---- | The key, or name, for the resource tag.-tagKey :: Lens' Tag (Maybe Text)-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});--instance FromXML Tag where-        parseXML x-          = Tag' <$> (x .@? "Value") <*> (x .@? "Key")--instance Hashable Tag where--instance NFData Tag where--instance ToQuery Tag where-        toQuery Tag'{..}-          = mconcat ["Value" =: _tagValue, "Key" =: _tagKey]---- | A tag and its associated resource.------------ /See:/ 'taggedResource' smart constructor.-data TaggedResource = TaggedResource'-  { _trTag          :: !(Maybe Tag)-  , _trResourceType :: !(Maybe Text)-  , _trResourceName :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'TaggedResource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'trTag' - The tag for the resource.------ * 'trResourceType' - The type of resource with which the tag is associated. Valid resource types are:      * Cluster     * CIDR/IP     * EC2 security group     * Snapshot     * Cluster security group     * Subnet group     * HSM connection     * HSM certificate     * Parameter group For more information about Amazon Redshift resource types and constructing ARNs, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Constructing an Amazon Redshift Amazon Resource Name (ARN)> in the Amazon Redshift Cluster Management Guide.------ * 'trResourceName' - The Amazon Resource Name (ARN) with which the tag is associated. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ .-taggedResource-    :: TaggedResource-taggedResource =-  TaggedResource'-  {_trTag = Nothing, _trResourceType = Nothing, _trResourceName = Nothing}----- | The tag for the resource.-trTag :: Lens' TaggedResource (Maybe Tag)-trTag = lens _trTag (\ s a -> s{_trTag = a});---- | The type of resource with which the tag is associated. Valid resource types are:      * Cluster     * CIDR/IP     * EC2 security group     * Snapshot     * Cluster security group     * Subnet group     * HSM connection     * HSM certificate     * Parameter group For more information about Amazon Redshift resource types and constructing ARNs, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Constructing an Amazon Redshift Amazon Resource Name (ARN)> in the Amazon Redshift Cluster Management Guide.-trResourceType :: Lens' TaggedResource (Maybe Text)-trResourceType = lens _trResourceType (\ s a -> s{_trResourceType = a});---- | The Amazon Resource Name (ARN) with which the tag is associated. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ .-trResourceName :: Lens' TaggedResource (Maybe Text)-trResourceName = lens _trResourceName (\ s a -> s{_trResourceName = a});--instance FromXML TaggedResource where-        parseXML x-          = TaggedResource' <$>-              (x .@? "Tag") <*> (x .@? "ResourceType") <*>-                (x .@? "ResourceName")--instance Hashable TaggedResource where--instance NFData TaggedResource where---- | Describes the members of a VPC security group.------------ /See:/ 'vpcSecurityGroupMembership' smart constructor.-data VPCSecurityGroupMembership = VPCSecurityGroupMembership'-  { _vsgmStatus             :: !(Maybe Text)-  , _vsgmVPCSecurityGroupId :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'VPCSecurityGroupMembership' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vsgmStatus' - The status of the VPC security group.------ * 'vsgmVPCSecurityGroupId' - The identifier of the VPC security group.-vpcSecurityGroupMembership-    :: VPCSecurityGroupMembership-vpcSecurityGroupMembership =-  VPCSecurityGroupMembership'-  {_vsgmStatus = Nothing, _vsgmVPCSecurityGroupId = Nothing}----- | The status of the VPC security group.-vsgmStatus :: Lens' VPCSecurityGroupMembership (Maybe Text)-vsgmStatus = lens _vsgmStatus (\ s a -> s{_vsgmStatus = a});---- | The identifier of the VPC security group.-vsgmVPCSecurityGroupId :: Lens' VPCSecurityGroupMembership (Maybe Text)-vsgmVPCSecurityGroupId = lens _vsgmVPCSecurityGroupId (\ s a -> s{_vsgmVPCSecurityGroupId = a});+-- 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+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.Redshift.Types.Product where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Redshift.Internal+import Network.AWS.Redshift.Types.Sum++-- | Describes an AWS customer account authorized to restore a snapshot.+--+--+--+-- /See:/ 'accountWithRestoreAccess' smart constructor.+data AccountWithRestoreAccess = AccountWithRestoreAccess'+  { _awraAccountAlias :: !(Maybe Text)+  , _awraAccountId    :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AccountWithRestoreAccess' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'awraAccountAlias' - The identifier of an AWS support account authorized to restore a snapshot. For AWS support, the identifier is @amazon-redshift-support@ .+--+-- * 'awraAccountId' - The identifier of an AWS customer account authorized to restore a snapshot.+accountWithRestoreAccess+    :: AccountWithRestoreAccess+accountWithRestoreAccess =+  AccountWithRestoreAccess'+    {_awraAccountAlias = Nothing, _awraAccountId = Nothing}+++-- | The identifier of an AWS support account authorized to restore a snapshot. For AWS support, the identifier is @amazon-redshift-support@ .+awraAccountAlias :: Lens' AccountWithRestoreAccess (Maybe Text)+awraAccountAlias = lens _awraAccountAlias (\ s a -> s{_awraAccountAlias = a})++-- | The identifier of an AWS customer account authorized to restore a snapshot.+awraAccountId :: Lens' AccountWithRestoreAccess (Maybe Text)+awraAccountId = lens _awraAccountId (\ s a -> s{_awraAccountId = a})++instance FromXML AccountWithRestoreAccess where+        parseXML x+          = AccountWithRestoreAccess' <$>+              (x .@? "AccountAlias") <*> (x .@? "AccountId")++instance Hashable AccountWithRestoreAccess where++instance NFData AccountWithRestoreAccess where++-- | Describes an availability zone.+--+--+--+-- /See:/ 'availabilityZone' smart constructor.+data AvailabilityZone = AvailabilityZone'+  { _azName               :: !(Maybe Text)+  , _azSupportedPlatforms :: !(Maybe [SupportedPlatform])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AvailabilityZone' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'azName' - The name of the availability zone.+--+-- * 'azSupportedPlatforms' - Undocumented member.+availabilityZone+    :: AvailabilityZone+availabilityZone =+  AvailabilityZone' {_azName = Nothing, _azSupportedPlatforms = Nothing}+++-- | The name of the availability zone.+azName :: Lens' AvailabilityZone (Maybe Text)+azName = lens _azName (\ s a -> s{_azName = a})++-- | Undocumented member.+azSupportedPlatforms :: Lens' AvailabilityZone [SupportedPlatform]+azSupportedPlatforms = lens _azSupportedPlatforms (\ s a -> s{_azSupportedPlatforms = a}) . _Default . _Coerce++instance FromXML AvailabilityZone where+        parseXML x+          = AvailabilityZone' <$>+              (x .@? "Name") <*>+                (x .@? "SupportedPlatforms" .!@ mempty >>=+                   may (parseXMLList "SupportedPlatform"))++instance Hashable AvailabilityZone where++instance NFData AvailabilityZone where++-- | Describes a cluster.+--+--+--+-- /See:/ 'cluster' smart constructor.+data Cluster = Cluster'+  { _cRestoreStatus :: !(Maybe RestoreStatus)+  , _cEnhancedVPCRouting :: !(Maybe Bool)+  , _cClusterSnapshotCopyStatus :: !(Maybe ClusterSnapshotCopyStatus)+  , _cClusterRevisionNumber :: !(Maybe Text)+  , _cPubliclyAccessible :: !(Maybe Bool)+  , _cMasterUsername :: !(Maybe Text)+  , _cVPCId :: !(Maybe Text)+  , _cClusterSecurityGroups :: !(Maybe [ClusterSecurityGroupMembership])+  , _cAutomatedSnapshotRetentionPeriod :: !(Maybe Int)+  , _cEncrypted :: !(Maybe Bool)+  , _cClusterSubnetGroupName :: !(Maybe Text)+  , _cClusterIdentifier :: !(Maybe Text)+  , _cNumberOfNodes :: !(Maybe Int)+  , _cClusterPublicKey :: !(Maybe Text)+  , _cPreferredMaintenanceWindow :: !(Maybe Text)+  , _cModifyStatus :: !(Maybe Text)+  , _cKMSKeyId :: !(Maybe Text)+  , _cClusterParameterGroups :: !(Maybe [ClusterParameterGroupStatus])+  , _cAvailabilityZone :: !(Maybe Text)+  , _cVPCSecurityGroups :: !(Maybe [VPCSecurityGroupMembership])+  , _cHSMStatus :: !(Maybe HSMStatus)+  , _cIAMRoles :: !(Maybe [ClusterIAMRole])+  , _cElasticIPStatus :: !(Maybe ElasticIPStatus)+  , _cClusterVersion :: !(Maybe Text)+  , _cNodeType :: !(Maybe Text)+  , _cClusterCreateTime :: !(Maybe ISO8601)+  , _cEndpoint :: !(Maybe Endpoint)+  , _cAllowVersionUpgrade :: !(Maybe Bool)+  , _cClusterStatus :: !(Maybe Text)+  , _cPendingModifiedValues :: !(Maybe PendingModifiedValues)+  , _cTags :: !(Maybe [Tag])+  , _cClusterNodes :: !(Maybe [ClusterNode])+  , _cDBName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Cluster' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cRestoreStatus' - A value that describes the status of a cluster restore action. This parameter returns null if the cluster was not created by restoring a snapshot.+--+-- * 'cEnhancedVPCRouting' - An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false+--+-- * 'cClusterSnapshotCopyStatus' - A value that returns the destination region and retention period that are configured for cross-region snapshot copy.+--+-- * 'cClusterRevisionNumber' - The specific revision number of the database in the cluster.+--+-- * 'cPubliclyAccessible' - A Boolean value that, if @true@ , indicates that the cluster can be accessed from a public network.+--+-- * 'cMasterUsername' - The master user name for the cluster. This name is used to connect to the database that is specified in the __DBName__ parameter.+--+-- * 'cVPCId' - The identifier of the VPC the cluster is in, if the cluster is in a VPC.+--+-- * 'cClusterSecurityGroups' - A list of cluster security group that are associated with the cluster. Each security group is represented by an element that contains @ClusterSecurityGroup.Name@ and @ClusterSecurityGroup.Status@ subelements.  Cluster security groups are used when the cluster is not created in an Amazon Virtual Private Cloud (VPC). Clusters that are created in a VPC use VPC security groups, which are listed by the __VpcSecurityGroups__ parameter.+--+-- * 'cAutomatedSnapshotRetentionPeriod' - The number of days that automatic cluster snapshots are retained.+--+-- * 'cEncrypted' - A Boolean value that, if @true@ , indicates that data in the cluster is encrypted at rest.+--+-- * 'cClusterSubnetGroupName' - The name of the subnet group that is associated with the cluster. This parameter is valid only when the cluster is in a VPC.+--+-- * 'cClusterIdentifier' - The unique identifier of the cluster.+--+-- * 'cNumberOfNodes' - The number of compute nodes in the cluster.+--+-- * 'cClusterPublicKey' - The public key for the cluster.+--+-- * 'cPreferredMaintenanceWindow' - The weekly time range, in Universal Coordinated Time (UTC), during which system maintenance can occur.+--+-- * 'cModifyStatus' - The status of a modify operation, if any, initiated for the cluster.+--+-- * 'cKMSKeyId' - The AWS Key Management Service (AWS KMS) key ID of the encryption key used to encrypt data in the cluster.+--+-- * 'cClusterParameterGroups' - The list of cluster parameter groups that are associated with this cluster. Each parameter group in the list is returned with its status.+--+-- * 'cAvailabilityZone' - The name of the Availability Zone in which the cluster is located.+--+-- * 'cVPCSecurityGroups' - A list of Amazon Virtual Private Cloud (Amazon VPC) security groups that are associated with the cluster. This parameter is returned only if the cluster is in a VPC.+--+-- * 'cHSMStatus' - A value that reports whether the Amazon Redshift cluster has finished applying any hardware security module (HSM) settings changes specified in a modify cluster command. Values: active, applying+--+-- * 'cIAMRoles' - A list of AWS Identity and Access Management (IAM) roles that can be used by the cluster to access other AWS services.+--+-- * 'cElasticIPStatus' - The status of the elastic IP (EIP) address.+--+-- * 'cClusterVersion' - The version ID of the Amazon Redshift engine that is running on the cluster.+--+-- * 'cNodeType' - The node type for the nodes in the cluster.+--+-- * 'cClusterCreateTime' - The date and time that the cluster was created.+--+-- * 'cEndpoint' - The connection endpoint.+--+-- * 'cAllowVersionUpgrade' - A Boolean value that, if @true@ , indicates that major version upgrades will be applied automatically to the cluster during the maintenance window.+--+-- * 'cClusterStatus' - The current state of the cluster. Possible values are the following:     * @available@      * @creating@      * @deleting@      * @final-snapshot@      * @hardware-failure@      * @incompatible-hsm@      * @incompatible-network@      * @incompatible-parameters@      * @incompatible-restore@      * @modifying@      * @rebooting@      * @renaming@      * @resizing@      * @rotating-keys@      * @storage-full@      * @updating-hsm@+--+-- * 'cPendingModifiedValues' - A value that, if present, indicates that changes to the cluster are pending. Specific pending changes are identified by subelements.+--+-- * 'cTags' - The list of tags for the cluster.+--+-- * 'cClusterNodes' - The nodes in the cluster.+--+-- * 'cDBName' - The name of the initial database that was created when the cluster was created. This same name is returned for the life of the cluster. If an initial database was not specified, a database named @dev@ dev was created by default.+cluster+    :: Cluster+cluster =+  Cluster'+    { _cRestoreStatus = Nothing+    , _cEnhancedVPCRouting = Nothing+    , _cClusterSnapshotCopyStatus = Nothing+    , _cClusterRevisionNumber = Nothing+    , _cPubliclyAccessible = Nothing+    , _cMasterUsername = Nothing+    , _cVPCId = Nothing+    , _cClusterSecurityGroups = Nothing+    , _cAutomatedSnapshotRetentionPeriod = Nothing+    , _cEncrypted = Nothing+    , _cClusterSubnetGroupName = Nothing+    , _cClusterIdentifier = Nothing+    , _cNumberOfNodes = Nothing+    , _cClusterPublicKey = Nothing+    , _cPreferredMaintenanceWindow = Nothing+    , _cModifyStatus = Nothing+    , _cKMSKeyId = Nothing+    , _cClusterParameterGroups = Nothing+    , _cAvailabilityZone = Nothing+    , _cVPCSecurityGroups = Nothing+    , _cHSMStatus = Nothing+    , _cIAMRoles = Nothing+    , _cElasticIPStatus = Nothing+    , _cClusterVersion = Nothing+    , _cNodeType = Nothing+    , _cClusterCreateTime = Nothing+    , _cEndpoint = Nothing+    , _cAllowVersionUpgrade = Nothing+    , _cClusterStatus = Nothing+    , _cPendingModifiedValues = Nothing+    , _cTags = Nothing+    , _cClusterNodes = Nothing+    , _cDBName = Nothing+    }+++-- | A value that describes the status of a cluster restore action. This parameter returns null if the cluster was not created by restoring a snapshot.+cRestoreStatus :: Lens' Cluster (Maybe RestoreStatus)+cRestoreStatus = lens _cRestoreStatus (\ s a -> s{_cRestoreStatus = a})++-- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false+cEnhancedVPCRouting :: Lens' Cluster (Maybe Bool)+cEnhancedVPCRouting = lens _cEnhancedVPCRouting (\ s a -> s{_cEnhancedVPCRouting = a})++-- | A value that returns the destination region and retention period that are configured for cross-region snapshot copy.+cClusterSnapshotCopyStatus :: Lens' Cluster (Maybe ClusterSnapshotCopyStatus)+cClusterSnapshotCopyStatus = lens _cClusterSnapshotCopyStatus (\ s a -> s{_cClusterSnapshotCopyStatus = a})++-- | The specific revision number of the database in the cluster.+cClusterRevisionNumber :: Lens' Cluster (Maybe Text)+cClusterRevisionNumber = lens _cClusterRevisionNumber (\ s a -> s{_cClusterRevisionNumber = a})++-- | A Boolean value that, if @true@ , indicates that the cluster can be accessed from a public network.+cPubliclyAccessible :: Lens' Cluster (Maybe Bool)+cPubliclyAccessible = lens _cPubliclyAccessible (\ s a -> s{_cPubliclyAccessible = a})++-- | The master user name for the cluster. This name is used to connect to the database that is specified in the __DBName__ parameter.+cMasterUsername :: Lens' Cluster (Maybe Text)+cMasterUsername = lens _cMasterUsername (\ s a -> s{_cMasterUsername = a})++-- | The identifier of the VPC the cluster is in, if the cluster is in a VPC.+cVPCId :: Lens' Cluster (Maybe Text)+cVPCId = lens _cVPCId (\ s a -> s{_cVPCId = a})++-- | A list of cluster security group that are associated with the cluster. Each security group is represented by an element that contains @ClusterSecurityGroup.Name@ and @ClusterSecurityGroup.Status@ subelements.  Cluster security groups are used when the cluster is not created in an Amazon Virtual Private Cloud (VPC). Clusters that are created in a VPC use VPC security groups, which are listed by the __VpcSecurityGroups__ parameter.+cClusterSecurityGroups :: Lens' Cluster [ClusterSecurityGroupMembership]+cClusterSecurityGroups = lens _cClusterSecurityGroups (\ s a -> s{_cClusterSecurityGroups = a}) . _Default . _Coerce++-- | The number of days that automatic cluster snapshots are retained.+cAutomatedSnapshotRetentionPeriod :: Lens' Cluster (Maybe Int)+cAutomatedSnapshotRetentionPeriod = lens _cAutomatedSnapshotRetentionPeriod (\ s a -> s{_cAutomatedSnapshotRetentionPeriod = a})++-- | A Boolean value that, if @true@ , indicates that data in the cluster is encrypted at rest.+cEncrypted :: Lens' Cluster (Maybe Bool)+cEncrypted = lens _cEncrypted (\ s a -> s{_cEncrypted = a})++-- | The name of the subnet group that is associated with the cluster. This parameter is valid only when the cluster is in a VPC.+cClusterSubnetGroupName :: Lens' Cluster (Maybe Text)+cClusterSubnetGroupName = lens _cClusterSubnetGroupName (\ s a -> s{_cClusterSubnetGroupName = a})++-- | The unique identifier of the cluster.+cClusterIdentifier :: Lens' Cluster (Maybe Text)+cClusterIdentifier = lens _cClusterIdentifier (\ s a -> s{_cClusterIdentifier = a})++-- | The number of compute nodes in the cluster.+cNumberOfNodes :: Lens' Cluster (Maybe Int)+cNumberOfNodes = lens _cNumberOfNodes (\ s a -> s{_cNumberOfNodes = a})++-- | The public key for the cluster.+cClusterPublicKey :: Lens' Cluster (Maybe Text)+cClusterPublicKey = lens _cClusterPublicKey (\ s a -> s{_cClusterPublicKey = a})++-- | The weekly time range, in Universal Coordinated Time (UTC), during which system maintenance can occur.+cPreferredMaintenanceWindow :: Lens' Cluster (Maybe Text)+cPreferredMaintenanceWindow = lens _cPreferredMaintenanceWindow (\ s a -> s{_cPreferredMaintenanceWindow = a})++-- | The status of a modify operation, if any, initiated for the cluster.+cModifyStatus :: Lens' Cluster (Maybe Text)+cModifyStatus = lens _cModifyStatus (\ s a -> s{_cModifyStatus = a})++-- | The AWS Key Management Service (AWS KMS) key ID of the encryption key used to encrypt data in the cluster.+cKMSKeyId :: Lens' Cluster (Maybe Text)+cKMSKeyId = lens _cKMSKeyId (\ s a -> s{_cKMSKeyId = a})++-- | The list of cluster parameter groups that are associated with this cluster. Each parameter group in the list is returned with its status.+cClusterParameterGroups :: Lens' Cluster [ClusterParameterGroupStatus]+cClusterParameterGroups = lens _cClusterParameterGroups (\ s a -> s{_cClusterParameterGroups = a}) . _Default . _Coerce++-- | The name of the Availability Zone in which the cluster is located.+cAvailabilityZone :: Lens' Cluster (Maybe Text)+cAvailabilityZone = lens _cAvailabilityZone (\ s a -> s{_cAvailabilityZone = a})++-- | A list of Amazon Virtual Private Cloud (Amazon VPC) security groups that are associated with the cluster. This parameter is returned only if the cluster is in a VPC.+cVPCSecurityGroups :: Lens' Cluster [VPCSecurityGroupMembership]+cVPCSecurityGroups = lens _cVPCSecurityGroups (\ s a -> s{_cVPCSecurityGroups = a}) . _Default . _Coerce++-- | A value that reports whether the Amazon Redshift cluster has finished applying any hardware security module (HSM) settings changes specified in a modify cluster command. Values: active, applying+cHSMStatus :: Lens' Cluster (Maybe HSMStatus)+cHSMStatus = lens _cHSMStatus (\ s a -> s{_cHSMStatus = a})++-- | A list of AWS Identity and Access Management (IAM) roles that can be used by the cluster to access other AWS services.+cIAMRoles :: Lens' Cluster [ClusterIAMRole]+cIAMRoles = lens _cIAMRoles (\ s a -> s{_cIAMRoles = a}) . _Default . _Coerce++-- | The status of the elastic IP (EIP) address.+cElasticIPStatus :: Lens' Cluster (Maybe ElasticIPStatus)+cElasticIPStatus = lens _cElasticIPStatus (\ s a -> s{_cElasticIPStatus = a})++-- | The version ID of the Amazon Redshift engine that is running on the cluster.+cClusterVersion :: Lens' Cluster (Maybe Text)+cClusterVersion = lens _cClusterVersion (\ s a -> s{_cClusterVersion = a})++-- | The node type for the nodes in the cluster.+cNodeType :: Lens' Cluster (Maybe Text)+cNodeType = lens _cNodeType (\ s a -> s{_cNodeType = a})++-- | The date and time that the cluster was created.+cClusterCreateTime :: Lens' Cluster (Maybe UTCTime)+cClusterCreateTime = lens _cClusterCreateTime (\ s a -> s{_cClusterCreateTime = a}) . mapping _Time++-- | The connection endpoint.+cEndpoint :: Lens' Cluster (Maybe Endpoint)+cEndpoint = lens _cEndpoint (\ s a -> s{_cEndpoint = a})++-- | A Boolean value that, if @true@ , indicates that major version upgrades will be applied automatically to the cluster during the maintenance window.+cAllowVersionUpgrade :: Lens' Cluster (Maybe Bool)+cAllowVersionUpgrade = lens _cAllowVersionUpgrade (\ s a -> s{_cAllowVersionUpgrade = a})++-- | The current state of the cluster. Possible values are the following:     * @available@      * @creating@      * @deleting@      * @final-snapshot@      * @hardware-failure@      * @incompatible-hsm@      * @incompatible-network@      * @incompatible-parameters@      * @incompatible-restore@      * @modifying@      * @rebooting@      * @renaming@      * @resizing@      * @rotating-keys@      * @storage-full@      * @updating-hsm@+cClusterStatus :: Lens' Cluster (Maybe Text)+cClusterStatus = lens _cClusterStatus (\ s a -> s{_cClusterStatus = a})++-- | A value that, if present, indicates that changes to the cluster are pending. Specific pending changes are identified by subelements.+cPendingModifiedValues :: Lens' Cluster (Maybe PendingModifiedValues)+cPendingModifiedValues = lens _cPendingModifiedValues (\ s a -> s{_cPendingModifiedValues = a})++-- | The list of tags for the cluster.+cTags :: Lens' Cluster [Tag]+cTags = lens _cTags (\ s a -> s{_cTags = a}) . _Default . _Coerce++-- | The nodes in the cluster.+cClusterNodes :: Lens' Cluster [ClusterNode]+cClusterNodes = lens _cClusterNodes (\ s a -> s{_cClusterNodes = a}) . _Default . _Coerce++-- | The name of the initial database that was created when the cluster was created. This same name is returned for the life of the cluster. If an initial database was not specified, a database named @dev@ dev was created by default.+cDBName :: Lens' Cluster (Maybe Text)+cDBName = lens _cDBName (\ s a -> s{_cDBName = a})++instance FromXML Cluster where+        parseXML x+          = Cluster' <$>+              (x .@? "RestoreStatus") <*>+                (x .@? "EnhancedVpcRouting")+                <*> (x .@? "ClusterSnapshotCopyStatus")+                <*> (x .@? "ClusterRevisionNumber")+                <*> (x .@? "PubliclyAccessible")+                <*> (x .@? "MasterUsername")+                <*> (x .@? "VpcId")+                <*>+                (x .@? "ClusterSecurityGroups" .!@ mempty >>=+                   may (parseXMLList "ClusterSecurityGroup"))+                <*> (x .@? "AutomatedSnapshotRetentionPeriod")+                <*> (x .@? "Encrypted")+                <*> (x .@? "ClusterSubnetGroupName")+                <*> (x .@? "ClusterIdentifier")+                <*> (x .@? "NumberOfNodes")+                <*> (x .@? "ClusterPublicKey")+                <*> (x .@? "PreferredMaintenanceWindow")+                <*> (x .@? "ModifyStatus")+                <*> (x .@? "KmsKeyId")+                <*>+                (x .@? "ClusterParameterGroups" .!@ mempty >>=+                   may (parseXMLList "ClusterParameterGroup"))+                <*> (x .@? "AvailabilityZone")+                <*>+                (x .@? "VpcSecurityGroups" .!@ mempty >>=+                   may (parseXMLList "VpcSecurityGroup"))+                <*> (x .@? "HsmStatus")+                <*>+                (x .@? "IamRoles" .!@ mempty >>=+                   may (parseXMLList "ClusterIamRole"))+                <*> (x .@? "ElasticIpStatus")+                <*> (x .@? "ClusterVersion")+                <*> (x .@? "NodeType")+                <*> (x .@? "ClusterCreateTime")+                <*> (x .@? "Endpoint")+                <*> (x .@? "AllowVersionUpgrade")+                <*> (x .@? "ClusterStatus")+                <*> (x .@? "PendingModifiedValues")+                <*>+                (x .@? "Tags" .!@ mempty >>=+                   may (parseXMLList "Tag"))+                <*>+                (x .@? "ClusterNodes" .!@ mempty >>=+                   may (parseXMLList "member"))+                <*> (x .@? "DBName")++instance Hashable Cluster where++instance NFData Cluster where++-- | An AWS Identity and Access Management (IAM) role that can be used by the associated Amazon Redshift cluster to access other AWS services.+--+--+--+-- /See:/ 'clusterIAMRole' smart constructor.+data ClusterIAMRole = ClusterIAMRole'+  { _cirIAMRoleARN  :: !(Maybe Text)+  , _cirApplyStatus :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ClusterIAMRole' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cirIAMRoleARN' - The Amazon Resource Name (ARN) of the IAM role, for example, @arn:aws:iam::123456789012:role/RedshiftCopyUnload@ .+--+-- * 'cirApplyStatus' - A value that describes the status of the IAM role's association with an Amazon Redshift cluster. The following are possible statuses and descriptions.     * @in-sync@ : The role is available for use by the cluster.     * @adding@ : The role is in the process of being associated with the cluster.     * @removing@ : The role is in the process of being disassociated with the cluster.+clusterIAMRole+    :: ClusterIAMRole+clusterIAMRole =+  ClusterIAMRole' {_cirIAMRoleARN = Nothing, _cirApplyStatus = Nothing}+++-- | The Amazon Resource Name (ARN) of the IAM role, for example, @arn:aws:iam::123456789012:role/RedshiftCopyUnload@ .+cirIAMRoleARN :: Lens' ClusterIAMRole (Maybe Text)+cirIAMRoleARN = lens _cirIAMRoleARN (\ s a -> s{_cirIAMRoleARN = a})++-- | A value that describes the status of the IAM role's association with an Amazon Redshift cluster. The following are possible statuses and descriptions.     * @in-sync@ : The role is available for use by the cluster.     * @adding@ : The role is in the process of being associated with the cluster.     * @removing@ : The role is in the process of being disassociated with the cluster.+cirApplyStatus :: Lens' ClusterIAMRole (Maybe Text)+cirApplyStatus = lens _cirApplyStatus (\ s a -> s{_cirApplyStatus = a})++instance FromXML ClusterIAMRole where+        parseXML x+          = ClusterIAMRole' <$>+              (x .@? "IamRoleArn") <*> (x .@? "ApplyStatus")++instance Hashable ClusterIAMRole where++instance NFData ClusterIAMRole where++-- | The identifier of a node in a cluster.+--+--+--+-- /See:/ 'clusterNode' smart constructor.+data ClusterNode = ClusterNode'+  { _cnNodeRole         :: !(Maybe Text)+  , _cnPrivateIPAddress :: !(Maybe Text)+  , _cnPublicIPAddress  :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ClusterNode' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cnNodeRole' - Whether the node is a leader node or a compute node.+--+-- * 'cnPrivateIPAddress' - The private IP address of a node within a cluster.+--+-- * 'cnPublicIPAddress' - The public IP address of a node within a cluster.+clusterNode+    :: ClusterNode+clusterNode =+  ClusterNode'+    { _cnNodeRole = Nothing+    , _cnPrivateIPAddress = Nothing+    , _cnPublicIPAddress = Nothing+    }+++-- | Whether the node is a leader node or a compute node.+cnNodeRole :: Lens' ClusterNode (Maybe Text)+cnNodeRole = lens _cnNodeRole (\ s a -> s{_cnNodeRole = a})++-- | The private IP address of a node within a cluster.+cnPrivateIPAddress :: Lens' ClusterNode (Maybe Text)+cnPrivateIPAddress = lens _cnPrivateIPAddress (\ s a -> s{_cnPrivateIPAddress = a})++-- | The public IP address of a node within a cluster.+cnPublicIPAddress :: Lens' ClusterNode (Maybe Text)+cnPublicIPAddress = lens _cnPublicIPAddress (\ s a -> s{_cnPublicIPAddress = a})++instance FromXML ClusterNode where+        parseXML x+          = ClusterNode' <$>+              (x .@? "NodeRole") <*> (x .@? "PrivateIPAddress") <*>+                (x .@? "PublicIPAddress")++instance Hashable ClusterNode where++instance NFData ClusterNode where++-- | Describes a parameter group.+--+--+--+-- /See:/ 'clusterParameterGroup' smart constructor.+data ClusterParameterGroup = ClusterParameterGroup'+  { _cpgParameterGroupFamily :: !(Maybe Text)+  , _cpgDescription          :: !(Maybe Text)+  , _cpgTags                 :: !(Maybe [Tag])+  , _cpgParameterGroupName   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ClusterParameterGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpgParameterGroupFamily' - The name of the cluster parameter group family that this cluster parameter group is compatible with.+--+-- * 'cpgDescription' - The description of the parameter group.+--+-- * 'cpgTags' - The list of tags for the cluster parameter group.+--+-- * 'cpgParameterGroupName' - The name of the cluster parameter group.+clusterParameterGroup+    :: ClusterParameterGroup+clusterParameterGroup =+  ClusterParameterGroup'+    { _cpgParameterGroupFamily = Nothing+    , _cpgDescription = Nothing+    , _cpgTags = Nothing+    , _cpgParameterGroupName = Nothing+    }+++-- | The name of the cluster parameter group family that this cluster parameter group is compatible with.+cpgParameterGroupFamily :: Lens' ClusterParameterGroup (Maybe Text)+cpgParameterGroupFamily = lens _cpgParameterGroupFamily (\ s a -> s{_cpgParameterGroupFamily = a})++-- | The description of the parameter group.+cpgDescription :: Lens' ClusterParameterGroup (Maybe Text)+cpgDescription = lens _cpgDescription (\ s a -> s{_cpgDescription = a})++-- | The list of tags for the cluster parameter group.+cpgTags :: Lens' ClusterParameterGroup [Tag]+cpgTags = lens _cpgTags (\ s a -> s{_cpgTags = a}) . _Default . _Coerce++-- | The name of the cluster parameter group.+cpgParameterGroupName :: Lens' ClusterParameterGroup (Maybe Text)+cpgParameterGroupName = lens _cpgParameterGroupName (\ s a -> s{_cpgParameterGroupName = a})++instance FromXML ClusterParameterGroup where+        parseXML x+          = ClusterParameterGroup' <$>+              (x .@? "ParameterGroupFamily") <*>+                (x .@? "Description")+                <*>+                (x .@? "Tags" .!@ mempty >>=+                   may (parseXMLList "Tag"))+                <*> (x .@? "ParameterGroupName")++instance Hashable ClusterParameterGroup where++instance NFData ClusterParameterGroup where++-- |+--+--+--+-- /See:/ 'clusterParameterGroupNameMessage' smart constructor.+data ClusterParameterGroupNameMessage = ClusterParameterGroupNameMessage'+  { _cpgnmParameterGroupStatus :: !(Maybe Text)+  , _cpgnmParameterGroupName   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ClusterParameterGroupNameMessage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpgnmParameterGroupStatus' - The status of the parameter group. For example, if you made a change to a parameter group name-value pair, then the change could be pending a reboot of an associated cluster.+--+-- * 'cpgnmParameterGroupName' - The name of the cluster parameter group.+clusterParameterGroupNameMessage+    :: ClusterParameterGroupNameMessage+clusterParameterGroupNameMessage =+  ClusterParameterGroupNameMessage'+    {_cpgnmParameterGroupStatus = Nothing, _cpgnmParameterGroupName = Nothing}+++-- | The status of the parameter group. For example, if you made a change to a parameter group name-value pair, then the change could be pending a reboot of an associated cluster.+cpgnmParameterGroupStatus :: Lens' ClusterParameterGroupNameMessage (Maybe Text)+cpgnmParameterGroupStatus = lens _cpgnmParameterGroupStatus (\ s a -> s{_cpgnmParameterGroupStatus = a})++-- | The name of the cluster parameter group.+cpgnmParameterGroupName :: Lens' ClusterParameterGroupNameMessage (Maybe Text)+cpgnmParameterGroupName = lens _cpgnmParameterGroupName (\ s a -> s{_cpgnmParameterGroupName = a})++instance FromXML ClusterParameterGroupNameMessage+         where+        parseXML x+          = ClusterParameterGroupNameMessage' <$>+              (x .@? "ParameterGroupStatus") <*>+                (x .@? "ParameterGroupName")++instance Hashable ClusterParameterGroupNameMessage+         where++instance NFData ClusterParameterGroupNameMessage+         where++-- | Describes the status of a parameter group.+--+--+--+-- /See:/ 'clusterParameterGroupStatus' smart constructor.+data ClusterParameterGroupStatus = ClusterParameterGroupStatus'+  { _cpgsClusterParameterStatusList :: !(Maybe [ClusterParameterStatus])+  , _cpgsParameterApplyStatus       :: !(Maybe Text)+  , _cpgsParameterGroupName         :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ClusterParameterGroupStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpgsClusterParameterStatusList' - The list of parameter statuses. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .+--+-- * 'cpgsParameterApplyStatus' - The status of parameter updates.+--+-- * 'cpgsParameterGroupName' - The name of the cluster parameter group.+clusterParameterGroupStatus+    :: ClusterParameterGroupStatus+clusterParameterGroupStatus =+  ClusterParameterGroupStatus'+    { _cpgsClusterParameterStatusList = Nothing+    , _cpgsParameterApplyStatus = Nothing+    , _cpgsParameterGroupName = Nothing+    }+++-- | The list of parameter statuses. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .+cpgsClusterParameterStatusList :: Lens' ClusterParameterGroupStatus [ClusterParameterStatus]+cpgsClusterParameterStatusList = lens _cpgsClusterParameterStatusList (\ s a -> s{_cpgsClusterParameterStatusList = a}) . _Default . _Coerce++-- | The status of parameter updates.+cpgsParameterApplyStatus :: Lens' ClusterParameterGroupStatus (Maybe Text)+cpgsParameterApplyStatus = lens _cpgsParameterApplyStatus (\ s a -> s{_cpgsParameterApplyStatus = a})++-- | The name of the cluster parameter group.+cpgsParameterGroupName :: Lens' ClusterParameterGroupStatus (Maybe Text)+cpgsParameterGroupName = lens _cpgsParameterGroupName (\ s a -> s{_cpgsParameterGroupName = a})++instance FromXML ClusterParameterGroupStatus where+        parseXML x+          = ClusterParameterGroupStatus' <$>+              (x .@? "ClusterParameterStatusList" .!@ mempty >>=+                 may (parseXMLList "member"))+                <*> (x .@? "ParameterApplyStatus")+                <*> (x .@? "ParameterGroupName")++instance Hashable ClusterParameterGroupStatus where++instance NFData ClusterParameterGroupStatus where++-- | Describes the status of a parameter group.+--+--+--+-- /See:/ 'clusterParameterStatus' smart constructor.+data ClusterParameterStatus = ClusterParameterStatus'+  { _cpsParameterApplyErrorDescription :: !(Maybe Text)+  , _cpsParameterName                  :: !(Maybe Text)+  , _cpsParameterApplyStatus           :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ClusterParameterStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cpsParameterApplyErrorDescription' - The error that prevented the parameter from being applied to the database.+--+-- * 'cpsParameterName' - The name of the parameter.+--+-- * 'cpsParameterApplyStatus' - The status of the parameter that indicates whether the parameter is in sync with the database, waiting for a cluster reboot, or encountered an error when being applied. The following are possible statuses and descriptions.     * @in-sync@ : The parameter value is in sync with the database.     * @pending-reboot@ : The parameter value will be applied after the cluster reboots.     * @applying@ : The parameter value is being applied to the database.     * @invalid-parameter@ : Cannot apply the parameter value because it has an invalid value or syntax.     * @apply-deferred@ : The parameter contains static property changes. The changes are deferred until the cluster reboots.     * @apply-error@ : Cannot connect to the cluster. The parameter change will be applied after the cluster reboots.     * @unknown-error@ : Cannot apply the parameter change right now. The change will be applied after the cluster reboots.+clusterParameterStatus+    :: ClusterParameterStatus+clusterParameterStatus =+  ClusterParameterStatus'+    { _cpsParameterApplyErrorDescription = Nothing+    , _cpsParameterName = Nothing+    , _cpsParameterApplyStatus = Nothing+    }+++-- | The error that prevented the parameter from being applied to the database.+cpsParameterApplyErrorDescription :: Lens' ClusterParameterStatus (Maybe Text)+cpsParameterApplyErrorDescription = lens _cpsParameterApplyErrorDescription (\ s a -> s{_cpsParameterApplyErrorDescription = a})++-- | The name of the parameter.+cpsParameterName :: Lens' ClusterParameterStatus (Maybe Text)+cpsParameterName = lens _cpsParameterName (\ s a -> s{_cpsParameterName = a})++-- | The status of the parameter that indicates whether the parameter is in sync with the database, waiting for a cluster reboot, or encountered an error when being applied. The following are possible statuses and descriptions.     * @in-sync@ : The parameter value is in sync with the database.     * @pending-reboot@ : The parameter value will be applied after the cluster reboots.     * @applying@ : The parameter value is being applied to the database.     * @invalid-parameter@ : Cannot apply the parameter value because it has an invalid value or syntax.     * @apply-deferred@ : The parameter contains static property changes. The changes are deferred until the cluster reboots.     * @apply-error@ : Cannot connect to the cluster. The parameter change will be applied after the cluster reboots.     * @unknown-error@ : Cannot apply the parameter change right now. The change will be applied after the cluster reboots.+cpsParameterApplyStatus :: Lens' ClusterParameterStatus (Maybe Text)+cpsParameterApplyStatus = lens _cpsParameterApplyStatus (\ s a -> s{_cpsParameterApplyStatus = a})++instance FromXML ClusterParameterStatus where+        parseXML x+          = ClusterParameterStatus' <$>+              (x .@? "ParameterApplyErrorDescription") <*>+                (x .@? "ParameterName")+                <*> (x .@? "ParameterApplyStatus")++instance Hashable ClusterParameterStatus where++instance NFData ClusterParameterStatus where++-- | Describes a security group.+--+--+--+-- /See:/ 'clusterSecurityGroup' smart constructor.+data ClusterSecurityGroup = ClusterSecurityGroup'+  { _cluClusterSecurityGroupName :: !(Maybe Text)+  , _cluIPRanges                 :: !(Maybe [IPRange])+  , _cluEC2SecurityGroups        :: !(Maybe [EC2SecurityGroup])+  , _cluDescription              :: !(Maybe Text)+  , _cluTags                     :: !(Maybe [Tag])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ClusterSecurityGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cluClusterSecurityGroupName' - The name of the cluster security group to which the operation was applied.+--+-- * 'cluIPRanges' - A list of IP ranges (CIDR blocks) that are permitted to access clusters associated with this cluster security group.+--+-- * 'cluEC2SecurityGroups' - A list of EC2 security groups that are permitted to access clusters associated with this cluster security group.+--+-- * 'cluDescription' - A description of the security group.+--+-- * 'cluTags' - The list of tags for the cluster security group.+clusterSecurityGroup+    :: ClusterSecurityGroup+clusterSecurityGroup =+  ClusterSecurityGroup'+    { _cluClusterSecurityGroupName = Nothing+    , _cluIPRanges = Nothing+    , _cluEC2SecurityGroups = Nothing+    , _cluDescription = Nothing+    , _cluTags = Nothing+    }+++-- | The name of the cluster security group to which the operation was applied.+cluClusterSecurityGroupName :: Lens' ClusterSecurityGroup (Maybe Text)+cluClusterSecurityGroupName = lens _cluClusterSecurityGroupName (\ s a -> s{_cluClusterSecurityGroupName = a})++-- | A list of IP ranges (CIDR blocks) that are permitted to access clusters associated with this cluster security group.+cluIPRanges :: Lens' ClusterSecurityGroup [IPRange]+cluIPRanges = lens _cluIPRanges (\ s a -> s{_cluIPRanges = a}) . _Default . _Coerce++-- | A list of EC2 security groups that are permitted to access clusters associated with this cluster security group.+cluEC2SecurityGroups :: Lens' ClusterSecurityGroup [EC2SecurityGroup]+cluEC2SecurityGroups = lens _cluEC2SecurityGroups (\ s a -> s{_cluEC2SecurityGroups = a}) . _Default . _Coerce++-- | A description of the security group.+cluDescription :: Lens' ClusterSecurityGroup (Maybe Text)+cluDescription = lens _cluDescription (\ s a -> s{_cluDescription = a})++-- | The list of tags for the cluster security group.+cluTags :: Lens' ClusterSecurityGroup [Tag]+cluTags = lens _cluTags (\ s a -> s{_cluTags = a}) . _Default . _Coerce++instance FromXML ClusterSecurityGroup where+        parseXML x+          = ClusterSecurityGroup' <$>+              (x .@? "ClusterSecurityGroupName") <*>+                (x .@? "IPRanges" .!@ mempty >>=+                   may (parseXMLList "IPRange"))+                <*>+                (x .@? "EC2SecurityGroups" .!@ mempty >>=+                   may (parseXMLList "EC2SecurityGroup"))+                <*> (x .@? "Description")+                <*>+                (x .@? "Tags" .!@ mempty >>=+                   may (parseXMLList "Tag"))++instance Hashable ClusterSecurityGroup where++instance NFData ClusterSecurityGroup where++-- | Describes a cluster security group.+--+--+--+-- /See:/ 'clusterSecurityGroupMembership' smart constructor.+data ClusterSecurityGroupMembership = ClusterSecurityGroupMembership'+  { _csgmStatus                   :: !(Maybe Text)+  , _csgmClusterSecurityGroupName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ClusterSecurityGroupMembership' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csgmStatus' - The status of the cluster security group.+--+-- * 'csgmClusterSecurityGroupName' - The name of the cluster security group.+clusterSecurityGroupMembership+    :: ClusterSecurityGroupMembership+clusterSecurityGroupMembership =+  ClusterSecurityGroupMembership'+    {_csgmStatus = Nothing, _csgmClusterSecurityGroupName = Nothing}+++-- | The status of the cluster security group.+csgmStatus :: Lens' ClusterSecurityGroupMembership (Maybe Text)+csgmStatus = lens _csgmStatus (\ s a -> s{_csgmStatus = a})++-- | The name of the cluster security group.+csgmClusterSecurityGroupName :: Lens' ClusterSecurityGroupMembership (Maybe Text)+csgmClusterSecurityGroupName = lens _csgmClusterSecurityGroupName (\ s a -> s{_csgmClusterSecurityGroupName = a})++instance FromXML ClusterSecurityGroupMembership where+        parseXML x+          = ClusterSecurityGroupMembership' <$>+              (x .@? "Status") <*>+                (x .@? "ClusterSecurityGroupName")++instance Hashable ClusterSecurityGroupMembership+         where++instance NFData ClusterSecurityGroupMembership where++-- | Returns the destination region and retention period that are configured for cross-region snapshot copy.+--+--+--+-- /See:/ 'clusterSnapshotCopyStatus' smart constructor.+data ClusterSnapshotCopyStatus = ClusterSnapshotCopyStatus'+  { _cscsRetentionPeriod       :: !(Maybe Integer)+  , _cscsDestinationRegion     :: !(Maybe Text)+  , _cscsSnapshotCopyGrantName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ClusterSnapshotCopyStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cscsRetentionPeriod' - The number of days that automated snapshots are retained in the destination region after they are copied from a source region.+--+-- * 'cscsDestinationRegion' - The destination region that snapshots are automatically copied to when cross-region snapshot copy is enabled.+--+-- * 'cscsSnapshotCopyGrantName' - The name of the snapshot copy grant.+clusterSnapshotCopyStatus+    :: ClusterSnapshotCopyStatus+clusterSnapshotCopyStatus =+  ClusterSnapshotCopyStatus'+    { _cscsRetentionPeriod = Nothing+    , _cscsDestinationRegion = Nothing+    , _cscsSnapshotCopyGrantName = Nothing+    }+++-- | The number of days that automated snapshots are retained in the destination region after they are copied from a source region.+cscsRetentionPeriod :: Lens' ClusterSnapshotCopyStatus (Maybe Integer)+cscsRetentionPeriod = lens _cscsRetentionPeriod (\ s a -> s{_cscsRetentionPeriod = a})++-- | The destination region that snapshots are automatically copied to when cross-region snapshot copy is enabled.+cscsDestinationRegion :: Lens' ClusterSnapshotCopyStatus (Maybe Text)+cscsDestinationRegion = lens _cscsDestinationRegion (\ s a -> s{_cscsDestinationRegion = a})++-- | The name of the snapshot copy grant.+cscsSnapshotCopyGrantName :: Lens' ClusterSnapshotCopyStatus (Maybe Text)+cscsSnapshotCopyGrantName = lens _cscsSnapshotCopyGrantName (\ s a -> s{_cscsSnapshotCopyGrantName = a})++instance FromXML ClusterSnapshotCopyStatus where+        parseXML x+          = ClusterSnapshotCopyStatus' <$>+              (x .@? "RetentionPeriod") <*>+                (x .@? "DestinationRegion")+                <*> (x .@? "SnapshotCopyGrantName")++instance Hashable ClusterSnapshotCopyStatus where++instance NFData ClusterSnapshotCopyStatus where++-- | Describes a subnet group.+--+--+--+-- /See:/ 'clusterSubnetGroup' smart constructor.+data ClusterSubnetGroup = ClusterSubnetGroup'+  { _csgVPCId                  :: !(Maybe Text)+  , _csgSubnets                :: !(Maybe [Subnet])+  , _csgClusterSubnetGroupName :: !(Maybe Text)+  , _csgSubnetGroupStatus      :: !(Maybe Text)+  , _csgDescription            :: !(Maybe Text)+  , _csgTags                   :: !(Maybe [Tag])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ClusterSubnetGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csgVPCId' - The VPC ID of the cluster subnet group.+--+-- * 'csgSubnets' - A list of the VPC 'Subnet' elements.+--+-- * 'csgClusterSubnetGroupName' - The name of the cluster subnet group.+--+-- * 'csgSubnetGroupStatus' - The status of the cluster subnet group. Possible values are @Complete@ , @Incomplete@ and @Invalid@ .+--+-- * 'csgDescription' - The description of the cluster subnet group.+--+-- * 'csgTags' - The list of tags for the cluster subnet group.+clusterSubnetGroup+    :: ClusterSubnetGroup+clusterSubnetGroup =+  ClusterSubnetGroup'+    { _csgVPCId = Nothing+    , _csgSubnets = Nothing+    , _csgClusterSubnetGroupName = Nothing+    , _csgSubnetGroupStatus = Nothing+    , _csgDescription = Nothing+    , _csgTags = Nothing+    }+++-- | The VPC ID of the cluster subnet group.+csgVPCId :: Lens' ClusterSubnetGroup (Maybe Text)+csgVPCId = lens _csgVPCId (\ s a -> s{_csgVPCId = a})++-- | A list of the VPC 'Subnet' elements.+csgSubnets :: Lens' ClusterSubnetGroup [Subnet]+csgSubnets = lens _csgSubnets (\ s a -> s{_csgSubnets = a}) . _Default . _Coerce++-- | The name of the cluster subnet group.+csgClusterSubnetGroupName :: Lens' ClusterSubnetGroup (Maybe Text)+csgClusterSubnetGroupName = lens _csgClusterSubnetGroupName (\ s a -> s{_csgClusterSubnetGroupName = a})++-- | The status of the cluster subnet group. Possible values are @Complete@ , @Incomplete@ and @Invalid@ .+csgSubnetGroupStatus :: Lens' ClusterSubnetGroup (Maybe Text)+csgSubnetGroupStatus = lens _csgSubnetGroupStatus (\ s a -> s{_csgSubnetGroupStatus = a})++-- | The description of the cluster subnet group.+csgDescription :: Lens' ClusterSubnetGroup (Maybe Text)+csgDescription = lens _csgDescription (\ s a -> s{_csgDescription = a})++-- | The list of tags for the cluster subnet group.+csgTags :: Lens' ClusterSubnetGroup [Tag]+csgTags = lens _csgTags (\ s a -> s{_csgTags = a}) . _Default . _Coerce++instance FromXML ClusterSubnetGroup where+        parseXML x+          = ClusterSubnetGroup' <$>+              (x .@? "VpcId") <*>+                (x .@? "Subnets" .!@ mempty >>=+                   may (parseXMLList "Subnet"))+                <*> (x .@? "ClusterSubnetGroupName")+                <*> (x .@? "SubnetGroupStatus")+                <*> (x .@? "Description")+                <*>+                (x .@? "Tags" .!@ mempty >>=+                   may (parseXMLList "Tag"))++instance Hashable ClusterSubnetGroup where++instance NFData ClusterSubnetGroup where++-- | Describes a cluster version, including the parameter group family and description of the version.+--+--+--+-- /See:/ 'clusterVersion' smart constructor.+data ClusterVersion = ClusterVersion'+  { _cvClusterParameterGroupFamily :: !(Maybe Text)+  , _cvClusterVersion              :: !(Maybe Text)+  , _cvDescription                 :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ClusterVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cvClusterParameterGroupFamily' - The name of the cluster parameter group family for the cluster.+--+-- * 'cvClusterVersion' - The version number used by the cluster.+--+-- * 'cvDescription' - The description of the cluster version.+clusterVersion+    :: ClusterVersion+clusterVersion =+  ClusterVersion'+    { _cvClusterParameterGroupFamily = Nothing+    , _cvClusterVersion = Nothing+    , _cvDescription = Nothing+    }+++-- | The name of the cluster parameter group family for the cluster.+cvClusterParameterGroupFamily :: Lens' ClusterVersion (Maybe Text)+cvClusterParameterGroupFamily = lens _cvClusterParameterGroupFamily (\ s a -> s{_cvClusterParameterGroupFamily = a})++-- | The version number used by the cluster.+cvClusterVersion :: Lens' ClusterVersion (Maybe Text)+cvClusterVersion = lens _cvClusterVersion (\ s a -> s{_cvClusterVersion = a})++-- | The description of the cluster version.+cvDescription :: Lens' ClusterVersion (Maybe Text)+cvDescription = lens _cvDescription (\ s a -> s{_cvDescription = a})++instance FromXML ClusterVersion where+        parseXML x+          = ClusterVersion' <$>+              (x .@? "ClusterParameterGroupFamily") <*>+                (x .@? "ClusterVersion")+                <*> (x .@? "Description")++instance Hashable ClusterVersion where++instance NFData ClusterVersion where++-- | Describes the default cluster parameters for a parameter group family.+--+--+--+-- /See:/ 'defaultClusterParameters' smart constructor.+data DefaultClusterParameters = DefaultClusterParameters'+  { _dcpMarker               :: !(Maybe Text)+  , _dcpParameters           :: !(Maybe [Parameter])+  , _dcpParameterGroupFamily :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DefaultClusterParameters' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcpMarker' - A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.+--+-- * 'dcpParameters' - The list of cluster default parameters.+--+-- * 'dcpParameterGroupFamily' - The name of the cluster parameter group family to which the engine default parameters apply.+defaultClusterParameters+    :: DefaultClusterParameters+defaultClusterParameters =+  DefaultClusterParameters'+    { _dcpMarker = Nothing+    , _dcpParameters = Nothing+    , _dcpParameterGroupFamily = Nothing+    }+++-- | A value that indicates the starting point for the next set of response records in a subsequent request. If a value is returned in a response, you can retrieve the next set of records by providing this returned marker value in the @Marker@ parameter and retrying the command. If the @Marker@ field is empty, all response records have been retrieved for the request.+dcpMarker :: Lens' DefaultClusterParameters (Maybe Text)+dcpMarker = lens _dcpMarker (\ s a -> s{_dcpMarker = a})++-- | The list of cluster default parameters.+dcpParameters :: Lens' DefaultClusterParameters [Parameter]+dcpParameters = lens _dcpParameters (\ s a -> s{_dcpParameters = a}) . _Default . _Coerce++-- | The name of the cluster parameter group family to which the engine default parameters apply.+dcpParameterGroupFamily :: Lens' DefaultClusterParameters (Maybe Text)+dcpParameterGroupFamily = lens _dcpParameterGroupFamily (\ s a -> s{_dcpParameterGroupFamily = a})++instance FromXML DefaultClusterParameters where+        parseXML x+          = DefaultClusterParameters' <$>+              (x .@? "Marker") <*>+                (x .@? "Parameters" .!@ mempty >>=+                   may (parseXMLList "Parameter"))+                <*> (x .@? "ParameterGroupFamily")++instance Hashable DefaultClusterParameters where++instance NFData DefaultClusterParameters where++-- | Describes an Amazon EC2 security group.+--+--+--+-- /See:/ 'ec2SecurityGroup' smart constructor.+data EC2SecurityGroup = EC2SecurityGroup'+  { _esgStatus                  :: !(Maybe Text)+  , _esgEC2SecurityGroupOwnerId :: !(Maybe Text)+  , _esgEC2SecurityGroupName    :: !(Maybe Text)+  , _esgTags                    :: !(Maybe [Tag])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EC2SecurityGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'esgStatus' - The status of the EC2 security group.+--+-- * 'esgEC2SecurityGroupOwnerId' - The AWS ID of the owner of the EC2 security group specified in the @EC2SecurityGroupName@ field.+--+-- * 'esgEC2SecurityGroupName' - The name of the EC2 Security Group.+--+-- * 'esgTags' - The list of tags for the EC2 security group.+ec2SecurityGroup+    :: EC2SecurityGroup+ec2SecurityGroup =+  EC2SecurityGroup'+    { _esgStatus = Nothing+    , _esgEC2SecurityGroupOwnerId = Nothing+    , _esgEC2SecurityGroupName = Nothing+    , _esgTags = Nothing+    }+++-- | The status of the EC2 security group.+esgStatus :: Lens' EC2SecurityGroup (Maybe Text)+esgStatus = lens _esgStatus (\ s a -> s{_esgStatus = a})++-- | The AWS ID of the owner of the EC2 security group specified in the @EC2SecurityGroupName@ field.+esgEC2SecurityGroupOwnerId :: Lens' EC2SecurityGroup (Maybe Text)+esgEC2SecurityGroupOwnerId = lens _esgEC2SecurityGroupOwnerId (\ s a -> s{_esgEC2SecurityGroupOwnerId = a})++-- | The name of the EC2 Security Group.+esgEC2SecurityGroupName :: Lens' EC2SecurityGroup (Maybe Text)+esgEC2SecurityGroupName = lens _esgEC2SecurityGroupName (\ s a -> s{_esgEC2SecurityGroupName = a})++-- | The list of tags for the EC2 security group.+esgTags :: Lens' EC2SecurityGroup [Tag]+esgTags = lens _esgTags (\ s a -> s{_esgTags = a}) . _Default . _Coerce++instance FromXML EC2SecurityGroup where+        parseXML x+          = EC2SecurityGroup' <$>+              (x .@? "Status") <*>+                (x .@? "EC2SecurityGroupOwnerId")+                <*> (x .@? "EC2SecurityGroupName")+                <*>+                (x .@? "Tags" .!@ mempty >>=+                   may (parseXMLList "Tag"))++instance Hashable EC2SecurityGroup where++instance NFData EC2SecurityGroup where++-- | Describes the status of the elastic IP (EIP) address.+--+--+--+-- /See:/ 'elasticIPStatus' smart constructor.+data ElasticIPStatus = ElasticIPStatus'+  { _eisStatus    :: !(Maybe Text)+  , _eisElasticIP :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ElasticIPStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eisStatus' - The status of the elastic IP (EIP) address.+--+-- * 'eisElasticIP' - The elastic IP (EIP) address for the cluster.+elasticIPStatus+    :: ElasticIPStatus+elasticIPStatus =+  ElasticIPStatus' {_eisStatus = Nothing, _eisElasticIP = Nothing}+++-- | The status of the elastic IP (EIP) address.+eisStatus :: Lens' ElasticIPStatus (Maybe Text)+eisStatus = lens _eisStatus (\ s a -> s{_eisStatus = a})++-- | The elastic IP (EIP) address for the cluster.+eisElasticIP :: Lens' ElasticIPStatus (Maybe Text)+eisElasticIP = lens _eisElasticIP (\ s a -> s{_eisElasticIP = a})++instance FromXML ElasticIPStatus where+        parseXML x+          = ElasticIPStatus' <$>+              (x .@? "Status") <*> (x .@? "ElasticIp")++instance Hashable ElasticIPStatus where++instance NFData ElasticIPStatus where++-- | Describes a connection endpoint.+--+--+--+-- /See:/ 'endpoint' smart constructor.+data Endpoint = Endpoint'+  { _eAddress :: !(Maybe Text)+  , _ePort    :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Endpoint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eAddress' - The DNS address of the Cluster.+--+-- * 'ePort' - The port that the database engine is listening on.+endpoint+    :: Endpoint+endpoint = Endpoint' {_eAddress = Nothing, _ePort = Nothing}+++-- | The DNS address of the Cluster.+eAddress :: Lens' Endpoint (Maybe Text)+eAddress = lens _eAddress (\ s a -> s{_eAddress = a})++-- | The port that the database engine is listening on.+ePort :: Lens' Endpoint (Maybe Int)+ePort = lens _ePort (\ s a -> s{_ePort = a})++instance FromXML Endpoint where+        parseXML x+          = Endpoint' <$> (x .@? "Address") <*> (x .@? "Port")++instance Hashable Endpoint where++instance NFData Endpoint where++-- | Describes an event.+--+--+--+-- /See:/ 'event' smart constructor.+data Event = Event'+  { _eSourceType       :: !(Maybe SourceType)+  , _eSeverity         :: !(Maybe Text)+  , _eSourceIdentifier :: !(Maybe Text)+  , _eDate             :: !(Maybe ISO8601)+  , _eEventCategories  :: !(Maybe [Text])+  , _eMessage          :: !(Maybe Text)+  , _eEventId          :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Event' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eSourceType' - The source type for this event.+--+-- * 'eSeverity' - The severity of the event. Values: ERROR, INFO+--+-- * 'eSourceIdentifier' - The identifier for the source of the event.+--+-- * 'eDate' - The date and time of the event.+--+-- * 'eEventCategories' - A list of the event categories. Values: Configuration, Management, Monitoring, Security+--+-- * 'eMessage' - The text of this event.+--+-- * 'eEventId' - The identifier of the event.+event+    :: Event+event =+  Event'+    { _eSourceType = Nothing+    , _eSeverity = Nothing+    , _eSourceIdentifier = Nothing+    , _eDate = Nothing+    , _eEventCategories = Nothing+    , _eMessage = Nothing+    , _eEventId = Nothing+    }+++-- | The source type for this event.+eSourceType :: Lens' Event (Maybe SourceType)+eSourceType = lens _eSourceType (\ s a -> s{_eSourceType = a})++-- | The severity of the event. Values: ERROR, INFO+eSeverity :: Lens' Event (Maybe Text)+eSeverity = lens _eSeverity (\ s a -> s{_eSeverity = a})++-- | The identifier for the source of the event.+eSourceIdentifier :: Lens' Event (Maybe Text)+eSourceIdentifier = lens _eSourceIdentifier (\ s a -> s{_eSourceIdentifier = a})++-- | The date and time of the event.+eDate :: Lens' Event (Maybe UTCTime)+eDate = lens _eDate (\ s a -> s{_eDate = a}) . mapping _Time++-- | A list of the event categories. Values: Configuration, Management, Monitoring, Security+eEventCategories :: Lens' Event [Text]+eEventCategories = lens _eEventCategories (\ s a -> s{_eEventCategories = a}) . _Default . _Coerce++-- | The text of this event.+eMessage :: Lens' Event (Maybe Text)+eMessage = lens _eMessage (\ s a -> s{_eMessage = a})++-- | The identifier of the event.+eEventId :: Lens' Event (Maybe Text)+eEventId = lens _eEventId (\ s a -> s{_eEventId = a})++instance FromXML Event where+        parseXML x+          = Event' <$>+              (x .@? "SourceType") <*> (x .@? "Severity") <*>+                (x .@? "SourceIdentifier")+                <*> (x .@? "Date")+                <*>+                (x .@? "EventCategories" .!@ mempty >>=+                   may (parseXMLList "EventCategory"))+                <*> (x .@? "Message")+                <*> (x .@? "EventId")++instance Hashable Event where++instance NFData Event where++-- | Describes event categories.+--+--+--+-- /See:/ 'eventCategoriesMap' smart constructor.+data EventCategoriesMap = EventCategoriesMap'+  { _ecmSourceType :: !(Maybe Text)+  , _ecmEvents     :: !(Maybe [EventInfoMap])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EventCategoriesMap' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ecmSourceType' - The source type, such as cluster or cluster-snapshot, that the returned categories belong to.+--+-- * 'ecmEvents' - The events in the event category.+eventCategoriesMap+    :: EventCategoriesMap+eventCategoriesMap =+  EventCategoriesMap' {_ecmSourceType = Nothing, _ecmEvents = Nothing}+++-- | The source type, such as cluster or cluster-snapshot, that the returned categories belong to.+ecmSourceType :: Lens' EventCategoriesMap (Maybe Text)+ecmSourceType = lens _ecmSourceType (\ s a -> s{_ecmSourceType = a})++-- | The events in the event category.+ecmEvents :: Lens' EventCategoriesMap [EventInfoMap]+ecmEvents = lens _ecmEvents (\ s a -> s{_ecmEvents = a}) . _Default . _Coerce++instance FromXML EventCategoriesMap where+        parseXML x+          = EventCategoriesMap' <$>+              (x .@? "SourceType") <*>+                (x .@? "Events" .!@ mempty >>=+                   may (parseXMLList "EventInfoMap"))++instance Hashable EventCategoriesMap where++instance NFData EventCategoriesMap where++-- | Describes event information.+--+--+--+-- /See:/ 'eventInfoMap' smart constructor.+data EventInfoMap = EventInfoMap'+  { _eimEventDescription :: !(Maybe Text)+  , _eimSeverity         :: !(Maybe Text)+  , _eimEventCategories  :: !(Maybe [Text])+  , _eimEventId          :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EventInfoMap' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eimEventDescription' - The description of an Amazon Redshift event.+--+-- * 'eimSeverity' - The severity of the event. Values: ERROR, INFO+--+-- * 'eimEventCategories' - The category of an Amazon Redshift event.+--+-- * 'eimEventId' - The identifier of an Amazon Redshift event.+eventInfoMap+    :: EventInfoMap+eventInfoMap =+  EventInfoMap'+    { _eimEventDescription = Nothing+    , _eimSeverity = Nothing+    , _eimEventCategories = Nothing+    , _eimEventId = Nothing+    }+++-- | The description of an Amazon Redshift event.+eimEventDescription :: Lens' EventInfoMap (Maybe Text)+eimEventDescription = lens _eimEventDescription (\ s a -> s{_eimEventDescription = a})++-- | The severity of the event. Values: ERROR, INFO+eimSeverity :: Lens' EventInfoMap (Maybe Text)+eimSeverity = lens _eimSeverity (\ s a -> s{_eimSeverity = a})++-- | The category of an Amazon Redshift event.+eimEventCategories :: Lens' EventInfoMap [Text]+eimEventCategories = lens _eimEventCategories (\ s a -> s{_eimEventCategories = a}) . _Default . _Coerce++-- | The identifier of an Amazon Redshift event.+eimEventId :: Lens' EventInfoMap (Maybe Text)+eimEventId = lens _eimEventId (\ s a -> s{_eimEventId = a})++instance FromXML EventInfoMap where+        parseXML x+          = EventInfoMap' <$>+              (x .@? "EventDescription") <*> (x .@? "Severity") <*>+                (x .@? "EventCategories" .!@ mempty >>=+                   may (parseXMLList "EventCategory"))+                <*> (x .@? "EventId")++instance Hashable EventInfoMap where++instance NFData EventInfoMap where++-- | Describes event subscriptions.+--+--+--+-- /See:/ 'eventSubscription' smart constructor.+data EventSubscription = EventSubscription'+  { _esStatus                   :: !(Maybe Text)+  , _esCustomerAWSId            :: !(Maybe Text)+  , _esCustSubscriptionId       :: !(Maybe Text)+  , _esSNSTopicARN              :: !(Maybe Text)+  , _esEnabled                  :: !(Maybe Bool)+  , _esSourceType               :: !(Maybe Text)+  , _esSeverity                 :: !(Maybe Text)+  , _esSubscriptionCreationTime :: !(Maybe ISO8601)+  , _esEventCategoriesList      :: !(Maybe [Text])+  , _esTags                     :: !(Maybe [Tag])+  , _esSourceIdsList            :: !(Maybe [Text])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EventSubscription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'esStatus' - The status of the Amazon Redshift event notification subscription. Constraints:     * Can be one of the following: active | no-permission | topic-not-exist     * The status "no-permission" indicates that Amazon Redshift no longer has permission to post to the Amazon SNS topic. The status "topic-not-exist" indicates that the topic was deleted after the subscription was created.+--+-- * 'esCustomerAWSId' - The AWS customer account associated with the Amazon Redshift event notification subscription.+--+-- * 'esCustSubscriptionId' - The name of the Amazon Redshift event notification subscription.+--+-- * 'esSNSTopicARN' - The Amazon Resource Name (ARN) of the Amazon SNS topic used by the event notification subscription.+--+-- * 'esEnabled' - A Boolean value indicating whether the subscription is enabled. @true@ indicates the subscription is enabled.+--+-- * 'esSourceType' - The source type of the events returned the Amazon Redshift event notification, such as cluster, or cluster-snapshot.+--+-- * 'esSeverity' - The event severity specified in the Amazon Redshift event notification subscription. Values: ERROR, INFO+--+-- * 'esSubscriptionCreationTime' - The date and time the Amazon Redshift event notification subscription was created.+--+-- * 'esEventCategoriesList' - The list of Amazon Redshift event categories specified in the event notification subscription. Values: Configuration, Management, Monitoring, Security+--+-- * 'esTags' - The list of tags for the event subscription.+--+-- * 'esSourceIdsList' - A list of the sources that publish events to the Amazon Redshift event notification subscription.+eventSubscription+    :: EventSubscription+eventSubscription =+  EventSubscription'+    { _esStatus = Nothing+    , _esCustomerAWSId = Nothing+    , _esCustSubscriptionId = Nothing+    , _esSNSTopicARN = Nothing+    , _esEnabled = Nothing+    , _esSourceType = Nothing+    , _esSeverity = Nothing+    , _esSubscriptionCreationTime = Nothing+    , _esEventCategoriesList = Nothing+    , _esTags = Nothing+    , _esSourceIdsList = Nothing+    }+++-- | The status of the Amazon Redshift event notification subscription. Constraints:     * Can be one of the following: active | no-permission | topic-not-exist     * The status "no-permission" indicates that Amazon Redshift no longer has permission to post to the Amazon SNS topic. The status "topic-not-exist" indicates that the topic was deleted after the subscription was created.+esStatus :: Lens' EventSubscription (Maybe Text)+esStatus = lens _esStatus (\ s a -> s{_esStatus = a})++-- | The AWS customer account associated with the Amazon Redshift event notification subscription.+esCustomerAWSId :: Lens' EventSubscription (Maybe Text)+esCustomerAWSId = lens _esCustomerAWSId (\ s a -> s{_esCustomerAWSId = a})++-- | The name of the Amazon Redshift event notification subscription.+esCustSubscriptionId :: Lens' EventSubscription (Maybe Text)+esCustSubscriptionId = lens _esCustSubscriptionId (\ s a -> s{_esCustSubscriptionId = a})++-- | The Amazon Resource Name (ARN) of the Amazon SNS topic used by the event notification subscription.+esSNSTopicARN :: Lens' EventSubscription (Maybe Text)+esSNSTopicARN = lens _esSNSTopicARN (\ s a -> s{_esSNSTopicARN = a})++-- | A Boolean value indicating whether the subscription is enabled. @true@ indicates the subscription is enabled.+esEnabled :: Lens' EventSubscription (Maybe Bool)+esEnabled = lens _esEnabled (\ s a -> s{_esEnabled = a})++-- | The source type of the events returned the Amazon Redshift event notification, such as cluster, or cluster-snapshot.+esSourceType :: Lens' EventSubscription (Maybe Text)+esSourceType = lens _esSourceType (\ s a -> s{_esSourceType = a})++-- | The event severity specified in the Amazon Redshift event notification subscription. Values: ERROR, INFO+esSeverity :: Lens' EventSubscription (Maybe Text)+esSeverity = lens _esSeverity (\ s a -> s{_esSeverity = a})++-- | The date and time the Amazon Redshift event notification subscription was created.+esSubscriptionCreationTime :: Lens' EventSubscription (Maybe UTCTime)+esSubscriptionCreationTime = lens _esSubscriptionCreationTime (\ s a -> s{_esSubscriptionCreationTime = a}) . mapping _Time++-- | The list of Amazon Redshift event categories specified in the event notification subscription. Values: Configuration, Management, Monitoring, Security+esEventCategoriesList :: Lens' EventSubscription [Text]+esEventCategoriesList = lens _esEventCategoriesList (\ s a -> s{_esEventCategoriesList = a}) . _Default . _Coerce++-- | The list of tags for the event subscription.+esTags :: Lens' EventSubscription [Tag]+esTags = lens _esTags (\ s a -> s{_esTags = a}) . _Default . _Coerce++-- | A list of the sources that publish events to the Amazon Redshift event notification subscription.+esSourceIdsList :: Lens' EventSubscription [Text]+esSourceIdsList = lens _esSourceIdsList (\ s a -> s{_esSourceIdsList = a}) . _Default . _Coerce++instance FromXML EventSubscription where+        parseXML x+          = EventSubscription' <$>+              (x .@? "Status") <*> (x .@? "CustomerAwsId") <*>+                (x .@? "CustSubscriptionId")+                <*> (x .@? "SnsTopicArn")+                <*> (x .@? "Enabled")+                <*> (x .@? "SourceType")+                <*> (x .@? "Severity")+                <*> (x .@? "SubscriptionCreationTime")+                <*>+                (x .@? "EventCategoriesList" .!@ mempty >>=+                   may (parseXMLList "EventCategory"))+                <*>+                (x .@? "Tags" .!@ mempty >>=+                   may (parseXMLList "Tag"))+                <*>+                (x .@? "SourceIdsList" .!@ mempty >>=+                   may (parseXMLList "SourceId"))++instance Hashable EventSubscription where++instance NFData EventSubscription where++-- | Returns information about an HSM client certificate. The certificate is stored in a secure Hardware Storage Module (HSM), and used by the Amazon Redshift cluster to encrypt data files.+--+--+--+-- /See:/ 'hsmClientCertificate' smart constructor.+data HSMClientCertificate = HSMClientCertificate'+  { _hccHSMClientCertificateIdentifier :: !(Maybe Text)+  , _hccHSMClientCertificatePublicKey  :: !(Maybe Text)+  , _hccTags                           :: !(Maybe [Tag])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'HSMClientCertificate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'hccHSMClientCertificateIdentifier' - The identifier of the HSM client certificate.+--+-- * 'hccHSMClientCertificatePublicKey' - The public key that the Amazon Redshift cluster will use to connect to the HSM. You must register the public key in the HSM.+--+-- * 'hccTags' - The list of tags for the HSM client certificate.+hsmClientCertificate+    :: HSMClientCertificate+hsmClientCertificate =+  HSMClientCertificate'+    { _hccHSMClientCertificateIdentifier = Nothing+    , _hccHSMClientCertificatePublicKey = Nothing+    , _hccTags = Nothing+    }+++-- | The identifier of the HSM client certificate.+hccHSMClientCertificateIdentifier :: Lens' HSMClientCertificate (Maybe Text)+hccHSMClientCertificateIdentifier = lens _hccHSMClientCertificateIdentifier (\ s a -> s{_hccHSMClientCertificateIdentifier = a})++-- | The public key that the Amazon Redshift cluster will use to connect to the HSM. You must register the public key in the HSM.+hccHSMClientCertificatePublicKey :: Lens' HSMClientCertificate (Maybe Text)+hccHSMClientCertificatePublicKey = lens _hccHSMClientCertificatePublicKey (\ s a -> s{_hccHSMClientCertificatePublicKey = a})++-- | The list of tags for the HSM client certificate.+hccTags :: Lens' HSMClientCertificate [Tag]+hccTags = lens _hccTags (\ s a -> s{_hccTags = a}) . _Default . _Coerce++instance FromXML HSMClientCertificate where+        parseXML x+          = HSMClientCertificate' <$>+              (x .@? "HsmClientCertificateIdentifier") <*>+                (x .@? "HsmClientCertificatePublicKey")+                <*>+                (x .@? "Tags" .!@ mempty >>=+                   may (parseXMLList "Tag"))++instance Hashable HSMClientCertificate where++instance NFData HSMClientCertificate where++-- | Returns information about an HSM configuration, which is an object that describes to Amazon Redshift clusters the information they require to connect to an HSM where they can store database encryption keys.+--+--+--+-- /See:/ 'hsmConfiguration' smart constructor.+data HSMConfiguration = HSMConfiguration'+  { _hcHSMConfigurationIdentifier :: !(Maybe Text)+  , _hcHSMPartitionName           :: !(Maybe Text)+  , _hcDescription                :: !(Maybe Text)+  , _hcTags                       :: !(Maybe [Tag])+  , _hcHSMIPAddress               :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'HSMConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'hcHSMConfigurationIdentifier' - The name of the Amazon Redshift HSM configuration.+--+-- * 'hcHSMPartitionName' - The name of the partition in the HSM where the Amazon Redshift clusters will store their database encryption keys.+--+-- * 'hcDescription' - A text description of the HSM configuration.+--+-- * 'hcTags' - The list of tags for the HSM configuration.+--+-- * 'hcHSMIPAddress' - The IP address that the Amazon Redshift cluster must use to access the HSM.+hsmConfiguration+    :: HSMConfiguration+hsmConfiguration =+  HSMConfiguration'+    { _hcHSMConfigurationIdentifier = Nothing+    , _hcHSMPartitionName = Nothing+    , _hcDescription = Nothing+    , _hcTags = Nothing+    , _hcHSMIPAddress = Nothing+    }+++-- | The name of the Amazon Redshift HSM configuration.+hcHSMConfigurationIdentifier :: Lens' HSMConfiguration (Maybe Text)+hcHSMConfigurationIdentifier = lens _hcHSMConfigurationIdentifier (\ s a -> s{_hcHSMConfigurationIdentifier = a})++-- | The name of the partition in the HSM where the Amazon Redshift clusters will store their database encryption keys.+hcHSMPartitionName :: Lens' HSMConfiguration (Maybe Text)+hcHSMPartitionName = lens _hcHSMPartitionName (\ s a -> s{_hcHSMPartitionName = a})++-- | A text description of the HSM configuration.+hcDescription :: Lens' HSMConfiguration (Maybe Text)+hcDescription = lens _hcDescription (\ s a -> s{_hcDescription = a})++-- | The list of tags for the HSM configuration.+hcTags :: Lens' HSMConfiguration [Tag]+hcTags = lens _hcTags (\ s a -> s{_hcTags = a}) . _Default . _Coerce++-- | The IP address that the Amazon Redshift cluster must use to access the HSM.+hcHSMIPAddress :: Lens' HSMConfiguration (Maybe Text)+hcHSMIPAddress = lens _hcHSMIPAddress (\ s a -> s{_hcHSMIPAddress = a})++instance FromXML HSMConfiguration where+        parseXML x+          = HSMConfiguration' <$>+              (x .@? "HsmConfigurationIdentifier") <*>+                (x .@? "HsmPartitionName")+                <*> (x .@? "Description")+                <*>+                (x .@? "Tags" .!@ mempty >>=+                   may (parseXMLList "Tag"))+                <*> (x .@? "HsmIpAddress")++instance Hashable HSMConfiguration where++instance NFData HSMConfiguration where++-- | Describes the status of changes to HSM settings.+--+--+--+-- /See:/ 'hsmStatus' smart constructor.+data HSMStatus = HSMStatus'+  { _hsStatus                         :: !(Maybe Text)+  , _hsHSMConfigurationIdentifier     :: !(Maybe Text)+  , _hsHSMClientCertificateIdentifier :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'HSMStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'hsStatus' - Reports whether the Amazon Redshift cluster has finished applying any HSM settings changes specified in a modify cluster command. Values: active, applying+--+-- * 'hsHSMConfigurationIdentifier' - Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM.+--+-- * 'hsHSMClientCertificateIdentifier' - Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM.+hsmStatus+    :: HSMStatus+hsmStatus =+  HSMStatus'+    { _hsStatus = Nothing+    , _hsHSMConfigurationIdentifier = Nothing+    , _hsHSMClientCertificateIdentifier = Nothing+    }+++-- | Reports whether the Amazon Redshift cluster has finished applying any HSM settings changes specified in a modify cluster command. Values: active, applying+hsStatus :: Lens' HSMStatus (Maybe Text)+hsStatus = lens _hsStatus (\ s a -> s{_hsStatus = a})++-- | Specifies the name of the HSM configuration that contains the information the Amazon Redshift cluster can use to retrieve and store keys in an HSM.+hsHSMConfigurationIdentifier :: Lens' HSMStatus (Maybe Text)+hsHSMConfigurationIdentifier = lens _hsHSMConfigurationIdentifier (\ s a -> s{_hsHSMConfigurationIdentifier = a})++-- | Specifies the name of the HSM client certificate the Amazon Redshift cluster uses to retrieve the data encryption keys stored in an HSM.+hsHSMClientCertificateIdentifier :: Lens' HSMStatus (Maybe Text)+hsHSMClientCertificateIdentifier = lens _hsHSMClientCertificateIdentifier (\ s a -> s{_hsHSMClientCertificateIdentifier = a})++instance FromXML HSMStatus where+        parseXML x+          = HSMStatus' <$>+              (x .@? "Status") <*>+                (x .@? "HsmConfigurationIdentifier")+                <*> (x .@? "HsmClientCertificateIdentifier")++instance Hashable HSMStatus where++instance NFData HSMStatus where++-- | Describes an IP range used in a security group.+--+--+--+-- /See:/ 'ipRange' smart constructor.+data IPRange = IPRange'+  { _irStatus :: !(Maybe Text)+  , _irCIdRIP :: !(Maybe Text)+  , _irTags   :: !(Maybe [Tag])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'IPRange' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'irStatus' - The status of the IP range, for example, "authorized".+--+-- * 'irCIdRIP' - The IP range in Classless Inter-Domain Routing (CIDR) notation.+--+-- * 'irTags' - The list of tags for the IP range.+ipRange+    :: IPRange+ipRange = IPRange' {_irStatus = Nothing, _irCIdRIP = Nothing, _irTags = Nothing}+++-- | The status of the IP range, for example, "authorized".+irStatus :: Lens' IPRange (Maybe Text)+irStatus = lens _irStatus (\ s a -> s{_irStatus = a})++-- | The IP range in Classless Inter-Domain Routing (CIDR) notation.+irCIdRIP :: Lens' IPRange (Maybe Text)+irCIdRIP = lens _irCIdRIP (\ s a -> s{_irCIdRIP = a})++-- | The list of tags for the IP range.+irTags :: Lens' IPRange [Tag]+irTags = lens _irTags (\ s a -> s{_irTags = a}) . _Default . _Coerce++instance FromXML IPRange where+        parseXML x+          = IPRange' <$>+              (x .@? "Status") <*> (x .@? "CIDRIP") <*>+                (x .@? "Tags" .!@ mempty >>=+                   may (parseXMLList "Tag"))++instance Hashable IPRange where++instance NFData IPRange where++-- | Describes the status of logging for a cluster.+--+--+--+-- /See:/ 'loggingStatus' smart constructor.+data LoggingStatus = LoggingStatus'+  { _lsLastFailureTime            :: !(Maybe ISO8601)+  , _lsLastSuccessfulDeliveryTime :: !(Maybe ISO8601)+  , _lsS3KeyPrefix                :: !(Maybe Text)+  , _lsBucketName                 :: !(Maybe Text)+  , _lsLoggingEnabled             :: !(Maybe Bool)+  , _lsLastFailureMessage         :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'LoggingStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lsLastFailureTime' - The last time when logs failed to be delivered.+--+-- * 'lsLastSuccessfulDeliveryTime' - The last time that logs were delivered.+--+-- * 'lsS3KeyPrefix' - The prefix applied to the log file names.+--+-- * 'lsBucketName' - The name of the S3 bucket where the log files are stored.+--+-- * 'lsLoggingEnabled' - @true@ if logging is on, @false@ if logging is off.+--+-- * 'lsLastFailureMessage' - The message indicating that logs failed to be delivered.+loggingStatus+    :: LoggingStatus+loggingStatus =+  LoggingStatus'+    { _lsLastFailureTime = Nothing+    , _lsLastSuccessfulDeliveryTime = Nothing+    , _lsS3KeyPrefix = Nothing+    , _lsBucketName = Nothing+    , _lsLoggingEnabled = Nothing+    , _lsLastFailureMessage = Nothing+    }+++-- | The last time when logs failed to be delivered.+lsLastFailureTime :: Lens' LoggingStatus (Maybe UTCTime)+lsLastFailureTime = lens _lsLastFailureTime (\ s a -> s{_lsLastFailureTime = a}) . mapping _Time++-- | The last time that logs were delivered.+lsLastSuccessfulDeliveryTime :: Lens' LoggingStatus (Maybe UTCTime)+lsLastSuccessfulDeliveryTime = lens _lsLastSuccessfulDeliveryTime (\ s a -> s{_lsLastSuccessfulDeliveryTime = a}) . mapping _Time++-- | The prefix applied to the log file names.+lsS3KeyPrefix :: Lens' LoggingStatus (Maybe Text)+lsS3KeyPrefix = lens _lsS3KeyPrefix (\ s a -> s{_lsS3KeyPrefix = a})++-- | The name of the S3 bucket where the log files are stored.+lsBucketName :: Lens' LoggingStatus (Maybe Text)+lsBucketName = lens _lsBucketName (\ s a -> s{_lsBucketName = a})++-- | @true@ if logging is on, @false@ if logging is off.+lsLoggingEnabled :: Lens' LoggingStatus (Maybe Bool)+lsLoggingEnabled = lens _lsLoggingEnabled (\ s a -> s{_lsLoggingEnabled = a})++-- | The message indicating that logs failed to be delivered.+lsLastFailureMessage :: Lens' LoggingStatus (Maybe Text)+lsLastFailureMessage = lens _lsLastFailureMessage (\ s a -> s{_lsLastFailureMessage = a})++instance FromXML LoggingStatus where+        parseXML x+          = LoggingStatus' <$>+              (x .@? "LastFailureTime") <*>+                (x .@? "LastSuccessfulDeliveryTime")+                <*> (x .@? "S3KeyPrefix")+                <*> (x .@? "BucketName")+                <*> (x .@? "LoggingEnabled")+                <*> (x .@? "LastFailureMessage")++instance Hashable LoggingStatus where++instance NFData LoggingStatus where++-- | Describes an orderable cluster option.+--+--+--+-- /See:/ 'orderableClusterOption' smart constructor.+data OrderableClusterOption = OrderableClusterOption'+  { _ocoAvailabilityZones :: !(Maybe [AvailabilityZone])+  , _ocoClusterType       :: !(Maybe Text)+  , _ocoClusterVersion    :: !(Maybe Text)+  , _ocoNodeType          :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OrderableClusterOption' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ocoAvailabilityZones' - A list of availability zones for the orderable cluster.+--+-- * 'ocoClusterType' - The cluster type, for example @multi-node@ .+--+-- * 'ocoClusterVersion' - The version of the orderable cluster.+--+-- * 'ocoNodeType' - The node type for the orderable cluster.+orderableClusterOption+    :: OrderableClusterOption+orderableClusterOption =+  OrderableClusterOption'+    { _ocoAvailabilityZones = Nothing+    , _ocoClusterType = Nothing+    , _ocoClusterVersion = Nothing+    , _ocoNodeType = Nothing+    }+++-- | A list of availability zones for the orderable cluster.+ocoAvailabilityZones :: Lens' OrderableClusterOption [AvailabilityZone]+ocoAvailabilityZones = lens _ocoAvailabilityZones (\ s a -> s{_ocoAvailabilityZones = a}) . _Default . _Coerce++-- | The cluster type, for example @multi-node@ .+ocoClusterType :: Lens' OrderableClusterOption (Maybe Text)+ocoClusterType = lens _ocoClusterType (\ s a -> s{_ocoClusterType = a})++-- | The version of the orderable cluster.+ocoClusterVersion :: Lens' OrderableClusterOption (Maybe Text)+ocoClusterVersion = lens _ocoClusterVersion (\ s a -> s{_ocoClusterVersion = a})++-- | The node type for the orderable cluster.+ocoNodeType :: Lens' OrderableClusterOption (Maybe Text)+ocoNodeType = lens _ocoNodeType (\ s a -> s{_ocoNodeType = a})++instance FromXML OrderableClusterOption where+        parseXML x+          = OrderableClusterOption' <$>+              (x .@? "AvailabilityZones" .!@ mempty >>=+                 may (parseXMLList "AvailabilityZone"))+                <*> (x .@? "ClusterType")+                <*> (x .@? "ClusterVersion")+                <*> (x .@? "NodeType")++instance Hashable OrderableClusterOption where++instance NFData OrderableClusterOption where++-- | Describes a parameter in a cluster parameter group.+--+--+--+-- /See:/ 'parameter' smart constructor.+data Parameter = Parameter'+  { _pApplyType            :: !(Maybe ParameterApplyType)+  , _pParameterValue       :: !(Maybe Text)+  , _pMinimumEngineVersion :: !(Maybe Text)+  , _pSource               :: !(Maybe Text)+  , _pIsModifiable         :: !(Maybe Bool)+  , _pDataType             :: !(Maybe Text)+  , _pAllowedValues        :: !(Maybe Text)+  , _pParameterName        :: !(Maybe Text)+  , _pDescription          :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Parameter' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pApplyType' - Specifies how to apply the WLM configuration parameter. Some properties can be applied dynamically, while other properties require that any associated clusters be rebooted for the configuration changes to be applied. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .+--+-- * 'pParameterValue' - The value of the parameter.+--+-- * 'pMinimumEngineVersion' - The earliest engine version to which the parameter can apply.+--+-- * 'pSource' - The source of the parameter value, such as "engine-default" or "user".+--+-- * 'pIsModifiable' - If @true@ , the parameter can be modified. Some parameters have security or operational implications that prevent them from being changed.+--+-- * 'pDataType' - The data type of the parameter.+--+-- * 'pAllowedValues' - The valid range of values for the parameter.+--+-- * 'pParameterName' - The name of the parameter.+--+-- * 'pDescription' - A description of the parameter.+parameter+    :: Parameter+parameter =+  Parameter'+    { _pApplyType = Nothing+    , _pParameterValue = Nothing+    , _pMinimumEngineVersion = Nothing+    , _pSource = Nothing+    , _pIsModifiable = Nothing+    , _pDataType = Nothing+    , _pAllowedValues = Nothing+    , _pParameterName = Nothing+    , _pDescription = Nothing+    }+++-- | Specifies how to apply the WLM configuration parameter. Some properties can be applied dynamically, while other properties require that any associated clusters be rebooted for the configuration changes to be applied. For more information about parameters and parameter groups, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-parameter-groups.html Amazon Redshift Parameter Groups> in the /Amazon Redshift Cluster Management Guide/ .+pApplyType :: Lens' Parameter (Maybe ParameterApplyType)+pApplyType = lens _pApplyType (\ s a -> s{_pApplyType = a})++-- | The value of the parameter.+pParameterValue :: Lens' Parameter (Maybe Text)+pParameterValue = lens _pParameterValue (\ s a -> s{_pParameterValue = a})++-- | The earliest engine version to which the parameter can apply.+pMinimumEngineVersion :: Lens' Parameter (Maybe Text)+pMinimumEngineVersion = lens _pMinimumEngineVersion (\ s a -> s{_pMinimumEngineVersion = a})++-- | The source of the parameter value, such as "engine-default" or "user".+pSource :: Lens' Parameter (Maybe Text)+pSource = lens _pSource (\ s a -> s{_pSource = a})++-- | If @true@ , 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})++-- | The data type of the parameter.+pDataType :: Lens' Parameter (Maybe Text)+pDataType = lens _pDataType (\ s a -> s{_pDataType = a})++-- | The valid range of values for the parameter.+pAllowedValues :: Lens' Parameter (Maybe Text)+pAllowedValues = lens _pAllowedValues (\ s a -> s{_pAllowedValues = a})++-- | The name of the parameter.+pParameterName :: Lens' Parameter (Maybe Text)+pParameterName = lens _pParameterName (\ s a -> s{_pParameterName = a})++-- | A description of the parameter.+pDescription :: Lens' Parameter (Maybe Text)+pDescription = lens _pDescription (\ s a -> s{_pDescription = a})++instance FromXML Parameter where+        parseXML x+          = Parameter' <$>+              (x .@? "ApplyType") <*> (x .@? "ParameterValue") <*>+                (x .@? "MinimumEngineVersion")+                <*> (x .@? "Source")+                <*> (x .@? "IsModifiable")+                <*> (x .@? "DataType")+                <*> (x .@? "AllowedValues")+                <*> (x .@? "ParameterName")+                <*> (x .@? "Description")++instance Hashable Parameter where++instance NFData Parameter where++instance ToQuery Parameter where+        toQuery Parameter'{..}+          = mconcat+              ["ApplyType" =: _pApplyType,+               "ParameterValue" =: _pParameterValue,+               "MinimumEngineVersion" =: _pMinimumEngineVersion,+               "Source" =: _pSource,+               "IsModifiable" =: _pIsModifiable,+               "DataType" =: _pDataType,+               "AllowedValues" =: _pAllowedValues,+               "ParameterName" =: _pParameterName,+               "Description" =: _pDescription]++-- | Describes cluster attributes that are in a pending state. A change to one or more the attributes was requested and is in progress or will be applied.+--+--+--+-- /See:/ 'pendingModifiedValues' smart constructor.+data PendingModifiedValues = PendingModifiedValues'+  { _pmvEnhancedVPCRouting               :: !(Maybe Bool)+  , _pmvMasterUserPassword               :: !(Maybe Text)+  , _pmvPubliclyAccessible               :: !(Maybe Bool)+  , _pmvAutomatedSnapshotRetentionPeriod :: !(Maybe Int)+  , _pmvClusterIdentifier                :: !(Maybe Text)+  , _pmvNumberOfNodes                    :: !(Maybe Int)+  , _pmvClusterType                      :: !(Maybe Text)+  , _pmvClusterVersion                   :: !(Maybe Text)+  , _pmvNodeType                         :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PendingModifiedValues' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pmvEnhancedVPCRouting' - An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false+--+-- * 'pmvMasterUserPassword' - The pending or in-progress change of the master user password for the cluster.+--+-- * 'pmvPubliclyAccessible' - The pending or in-progress change of the ability to connect to the cluster from the public network.+--+-- * 'pmvAutomatedSnapshotRetentionPeriod' - The pending or in-progress change of the automated snapshot retention period.+--+-- * 'pmvClusterIdentifier' - The pending or in-progress change of the new identifier for the cluster.+--+-- * 'pmvNumberOfNodes' - The pending or in-progress change of the number of nodes in the cluster.+--+-- * 'pmvClusterType' - The pending or in-progress change of the cluster type.+--+-- * 'pmvClusterVersion' - The pending or in-progress change of the service version.+--+-- * 'pmvNodeType' - The pending or in-progress change of the cluster's node type.+pendingModifiedValues+    :: PendingModifiedValues+pendingModifiedValues =+  PendingModifiedValues'+    { _pmvEnhancedVPCRouting = Nothing+    , _pmvMasterUserPassword = Nothing+    , _pmvPubliclyAccessible = Nothing+    , _pmvAutomatedSnapshotRetentionPeriod = Nothing+    , _pmvClusterIdentifier = Nothing+    , _pmvNumberOfNodes = Nothing+    , _pmvClusterType = Nothing+    , _pmvClusterVersion = Nothing+    , _pmvNodeType = Nothing+    }+++-- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false+pmvEnhancedVPCRouting :: Lens' PendingModifiedValues (Maybe Bool)+pmvEnhancedVPCRouting = lens _pmvEnhancedVPCRouting (\ s a -> s{_pmvEnhancedVPCRouting = a})++-- | The pending or in-progress change of the master user password for the cluster.+pmvMasterUserPassword :: Lens' PendingModifiedValues (Maybe Text)+pmvMasterUserPassword = lens _pmvMasterUserPassword (\ s a -> s{_pmvMasterUserPassword = a})++-- | The pending or in-progress change of the ability to connect to the cluster from the public network.+pmvPubliclyAccessible :: Lens' PendingModifiedValues (Maybe Bool)+pmvPubliclyAccessible = lens _pmvPubliclyAccessible (\ s a -> s{_pmvPubliclyAccessible = a})++-- | The pending or in-progress change of the automated snapshot retention period.+pmvAutomatedSnapshotRetentionPeriod :: Lens' PendingModifiedValues (Maybe Int)+pmvAutomatedSnapshotRetentionPeriod = lens _pmvAutomatedSnapshotRetentionPeriod (\ s a -> s{_pmvAutomatedSnapshotRetentionPeriod = a})++-- | The pending or in-progress change of the new identifier for the cluster.+pmvClusterIdentifier :: Lens' PendingModifiedValues (Maybe Text)+pmvClusterIdentifier = lens _pmvClusterIdentifier (\ s a -> s{_pmvClusterIdentifier = a})++-- | The pending or in-progress change of the number of nodes in the cluster.+pmvNumberOfNodes :: Lens' PendingModifiedValues (Maybe Int)+pmvNumberOfNodes = lens _pmvNumberOfNodes (\ s a -> s{_pmvNumberOfNodes = a})++-- | The pending or in-progress change of the cluster type.+pmvClusterType :: Lens' PendingModifiedValues (Maybe Text)+pmvClusterType = lens _pmvClusterType (\ s a -> s{_pmvClusterType = a})++-- | The pending or in-progress change of the service version.+pmvClusterVersion :: Lens' PendingModifiedValues (Maybe Text)+pmvClusterVersion = lens _pmvClusterVersion (\ s a -> s{_pmvClusterVersion = a})++-- | The pending or in-progress change of the cluster's node type.+pmvNodeType :: Lens' PendingModifiedValues (Maybe Text)+pmvNodeType = lens _pmvNodeType (\ s a -> s{_pmvNodeType = a})++instance FromXML PendingModifiedValues where+        parseXML x+          = PendingModifiedValues' <$>+              (x .@? "EnhancedVpcRouting") <*>+                (x .@? "MasterUserPassword")+                <*> (x .@? "PubliclyAccessible")+                <*> (x .@? "AutomatedSnapshotRetentionPeriod")+                <*> (x .@? "ClusterIdentifier")+                <*> (x .@? "NumberOfNodes")+                <*> (x .@? "ClusterType")+                <*> (x .@? "ClusterVersion")+                <*> (x .@? "NodeType")++instance Hashable PendingModifiedValues where++instance NFData PendingModifiedValues where++-- | Describes a recurring charge.+--+--+--+-- /See:/ 'recurringCharge' smart constructor.+data RecurringCharge = RecurringCharge'+  { _rcRecurringChargeFrequency :: !(Maybe Text)+  , _rcRecurringChargeAmount    :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RecurringCharge' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rcRecurringChargeFrequency' - The frequency at which the recurring charge amount is applied.+--+-- * 'rcRecurringChargeAmount' - The amount charged per the period of time specified by the recurring charge frequency.+recurringCharge+    :: RecurringCharge+recurringCharge =+  RecurringCharge'+    {_rcRecurringChargeFrequency = Nothing, _rcRecurringChargeAmount = Nothing}+++-- | The frequency at which the recurring charge amount is applied.+rcRecurringChargeFrequency :: Lens' RecurringCharge (Maybe Text)+rcRecurringChargeFrequency = lens _rcRecurringChargeFrequency (\ s a -> s{_rcRecurringChargeFrequency = a})++-- | The amount charged per the period of time specified by the recurring charge frequency.+rcRecurringChargeAmount :: Lens' RecurringCharge (Maybe Double)+rcRecurringChargeAmount = lens _rcRecurringChargeAmount (\ s a -> s{_rcRecurringChargeAmount = a})++instance FromXML RecurringCharge where+        parseXML x+          = RecurringCharge' <$>+              (x .@? "RecurringChargeFrequency") <*>+                (x .@? "RecurringChargeAmount")++instance Hashable RecurringCharge where++instance NFData RecurringCharge where++-- | Describes a reserved node. You can call the 'DescribeReservedNodeOfferings' API to obtain the available reserved node offerings.+--+--+--+-- /See:/ 'reservedNode' smart constructor.+data ReservedNode = ReservedNode'+  { _rnReservedNodeOfferingType :: !(Maybe ReservedNodeOfferingType)+  , _rnState                    :: !(Maybe Text)+  , _rnCurrencyCode             :: !(Maybe Text)+  , _rnStartTime                :: !(Maybe ISO8601)+  , _rnNodeCount                :: !(Maybe Int)+  , _rnReservedNodeId           :: !(Maybe Text)+  , _rnReservedNodeOfferingId   :: !(Maybe Text)+  , _rnRecurringCharges         :: !(Maybe [RecurringCharge])+  , _rnOfferingType             :: !(Maybe Text)+  , _rnUsagePrice               :: !(Maybe Double)+  , _rnNodeType                 :: !(Maybe Text)+  , _rnFixedPrice               :: !(Maybe Double)+  , _rnDuration                 :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ReservedNode' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rnReservedNodeOfferingType' - Undocumented member.+--+-- * 'rnState' - The state of the reserved compute node. Possible Values:     * pending-payment-This reserved node has recently been purchased, and the sale has been approved, but payment has not yet been confirmed.     * active-This reserved node is owned by the caller and is available for use.     * payment-failed-Payment failed for the purchase attempt.+--+-- * 'rnCurrencyCode' - The currency code for the reserved cluster.+--+-- * 'rnStartTime' - The time the reservation started. You purchase a reserved node offering for a duration. This is the start time of that duration.+--+-- * 'rnNodeCount' - The number of reserved compute nodes.+--+-- * 'rnReservedNodeId' - The unique identifier for the reservation.+--+-- * 'rnReservedNodeOfferingId' - The identifier for the reserved node offering.+--+-- * 'rnRecurringCharges' - The recurring charges for the reserved node.+--+-- * 'rnOfferingType' - The anticipated utilization of the reserved node, as defined in the reserved node offering.+--+-- * 'rnUsagePrice' - The hourly rate Amazon Redshift charges you for this reserved node.+--+-- * 'rnNodeType' - The node type of the reserved node.+--+-- * 'rnFixedPrice' - The fixed cost Amazon Redshift charges you for this reserved node.+--+-- * 'rnDuration' - The duration of the node reservation in seconds.+reservedNode+    :: ReservedNode+reservedNode =+  ReservedNode'+    { _rnReservedNodeOfferingType = Nothing+    , _rnState = Nothing+    , _rnCurrencyCode = Nothing+    , _rnStartTime = Nothing+    , _rnNodeCount = Nothing+    , _rnReservedNodeId = Nothing+    , _rnReservedNodeOfferingId = Nothing+    , _rnRecurringCharges = Nothing+    , _rnOfferingType = Nothing+    , _rnUsagePrice = Nothing+    , _rnNodeType = Nothing+    , _rnFixedPrice = Nothing+    , _rnDuration = Nothing+    }+++-- | Undocumented member.+rnReservedNodeOfferingType :: Lens' ReservedNode (Maybe ReservedNodeOfferingType)+rnReservedNodeOfferingType = lens _rnReservedNodeOfferingType (\ s a -> s{_rnReservedNodeOfferingType = a})++-- | The state of the reserved compute node. Possible Values:     * pending-payment-This reserved node has recently been purchased, and the sale has been approved, but payment has not yet been confirmed.     * active-This reserved node is owned by the caller and is available for use.     * payment-failed-Payment failed for the purchase attempt.+rnState :: Lens' ReservedNode (Maybe Text)+rnState = lens _rnState (\ s a -> s{_rnState = a})++-- | The currency code for the reserved cluster.+rnCurrencyCode :: Lens' ReservedNode (Maybe Text)+rnCurrencyCode = lens _rnCurrencyCode (\ s a -> s{_rnCurrencyCode = a})++-- | The time the reservation started. You purchase a reserved node offering for a duration. This is the start time of that duration.+rnStartTime :: Lens' ReservedNode (Maybe UTCTime)+rnStartTime = lens _rnStartTime (\ s a -> s{_rnStartTime = a}) . mapping _Time++-- | The number of reserved compute nodes.+rnNodeCount :: Lens' ReservedNode (Maybe Int)+rnNodeCount = lens _rnNodeCount (\ s a -> s{_rnNodeCount = a})++-- | The unique identifier for the reservation.+rnReservedNodeId :: Lens' ReservedNode (Maybe Text)+rnReservedNodeId = lens _rnReservedNodeId (\ s a -> s{_rnReservedNodeId = a})++-- | The identifier for the reserved node offering.+rnReservedNodeOfferingId :: Lens' ReservedNode (Maybe Text)+rnReservedNodeOfferingId = lens _rnReservedNodeOfferingId (\ s a -> s{_rnReservedNodeOfferingId = a})++-- | The recurring charges for the reserved node.+rnRecurringCharges :: Lens' ReservedNode [RecurringCharge]+rnRecurringCharges = lens _rnRecurringCharges (\ s a -> s{_rnRecurringCharges = a}) . _Default . _Coerce++-- | The anticipated utilization of the reserved node, as defined in the reserved node offering.+rnOfferingType :: Lens' ReservedNode (Maybe Text)+rnOfferingType = lens _rnOfferingType (\ s a -> s{_rnOfferingType = a})++-- | The hourly rate Amazon Redshift charges you for this reserved node.+rnUsagePrice :: Lens' ReservedNode (Maybe Double)+rnUsagePrice = lens _rnUsagePrice (\ s a -> s{_rnUsagePrice = a})++-- | The node type of the reserved node.+rnNodeType :: Lens' ReservedNode (Maybe Text)+rnNodeType = lens _rnNodeType (\ s a -> s{_rnNodeType = a})++-- | The fixed cost Amazon Redshift charges you for this reserved node.+rnFixedPrice :: Lens' ReservedNode (Maybe Double)+rnFixedPrice = lens _rnFixedPrice (\ s a -> s{_rnFixedPrice = a})++-- | The duration of the node reservation in seconds.+rnDuration :: Lens' ReservedNode (Maybe Int)+rnDuration = lens _rnDuration (\ s a -> s{_rnDuration = a})++instance FromXML ReservedNode where+        parseXML x+          = ReservedNode' <$>+              (x .@? "ReservedNodeOfferingType") <*>+                (x .@? "State")+                <*> (x .@? "CurrencyCode")+                <*> (x .@? "StartTime")+                <*> (x .@? "NodeCount")+                <*> (x .@? "ReservedNodeId")+                <*> (x .@? "ReservedNodeOfferingId")+                <*>+                (x .@? "RecurringCharges" .!@ mempty >>=+                   may (parseXMLList "RecurringCharge"))+                <*> (x .@? "OfferingType")+                <*> (x .@? "UsagePrice")+                <*> (x .@? "NodeType")+                <*> (x .@? "FixedPrice")+                <*> (x .@? "Duration")++instance Hashable ReservedNode where++instance NFData ReservedNode where++-- | Describes a reserved node offering.+--+--+--+-- /See:/ 'reservedNodeOffering' smart constructor.+data ReservedNodeOffering = ReservedNodeOffering'+  { _rnoReservedNodeOfferingType :: !(Maybe ReservedNodeOfferingType)+  , _rnoCurrencyCode             :: !(Maybe Text)+  , _rnoReservedNodeOfferingId   :: !(Maybe Text)+  , _rnoRecurringCharges         :: !(Maybe [RecurringCharge])+  , _rnoOfferingType             :: !(Maybe Text)+  , _rnoUsagePrice               :: !(Maybe Double)+  , _rnoNodeType                 :: !(Maybe Text)+  , _rnoFixedPrice               :: !(Maybe Double)+  , _rnoDuration                 :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ReservedNodeOffering' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rnoReservedNodeOfferingType' - Undocumented member.+--+-- * 'rnoCurrencyCode' - The currency code for the compute nodes offering.+--+-- * 'rnoReservedNodeOfferingId' - The offering identifier.+--+-- * 'rnoRecurringCharges' - The charge to your account regardless of whether you are creating any clusters using the node offering. Recurring charges are only in effect for heavy-utilization reserved nodes.+--+-- * 'rnoOfferingType' - The anticipated utilization of the reserved node, as defined in the reserved node offering.+--+-- * 'rnoUsagePrice' - The rate you are charged for each hour the cluster that is using the offering is running.+--+-- * 'rnoNodeType' - The node type offered by the reserved node offering.+--+-- * 'rnoFixedPrice' - The upfront fixed charge you will pay to purchase the specific reserved node offering.+--+-- * 'rnoDuration' - The duration, in seconds, for which the offering will reserve the node.+reservedNodeOffering+    :: ReservedNodeOffering+reservedNodeOffering =+  ReservedNodeOffering'+    { _rnoReservedNodeOfferingType = Nothing+    , _rnoCurrencyCode = Nothing+    , _rnoReservedNodeOfferingId = Nothing+    , _rnoRecurringCharges = Nothing+    , _rnoOfferingType = Nothing+    , _rnoUsagePrice = Nothing+    , _rnoNodeType = Nothing+    , _rnoFixedPrice = Nothing+    , _rnoDuration = Nothing+    }+++-- | Undocumented member.+rnoReservedNodeOfferingType :: Lens' ReservedNodeOffering (Maybe ReservedNodeOfferingType)+rnoReservedNodeOfferingType = lens _rnoReservedNodeOfferingType (\ s a -> s{_rnoReservedNodeOfferingType = a})++-- | The currency code for the compute nodes offering.+rnoCurrencyCode :: Lens' ReservedNodeOffering (Maybe Text)+rnoCurrencyCode = lens _rnoCurrencyCode (\ s a -> s{_rnoCurrencyCode = a})++-- | The offering identifier.+rnoReservedNodeOfferingId :: Lens' ReservedNodeOffering (Maybe Text)+rnoReservedNodeOfferingId = lens _rnoReservedNodeOfferingId (\ s a -> s{_rnoReservedNodeOfferingId = a})++-- | The charge to your account regardless of whether you are creating any clusters using the node offering. Recurring charges are only in effect for heavy-utilization reserved nodes.+rnoRecurringCharges :: Lens' ReservedNodeOffering [RecurringCharge]+rnoRecurringCharges = lens _rnoRecurringCharges (\ s a -> s{_rnoRecurringCharges = a}) . _Default . _Coerce++-- | The anticipated utilization of the reserved node, as defined in the reserved node offering.+rnoOfferingType :: Lens' ReservedNodeOffering (Maybe Text)+rnoOfferingType = lens _rnoOfferingType (\ s a -> s{_rnoOfferingType = a})++-- | The rate you are charged for each hour the cluster that is using the offering is running.+rnoUsagePrice :: Lens' ReservedNodeOffering (Maybe Double)+rnoUsagePrice = lens _rnoUsagePrice (\ s a -> s{_rnoUsagePrice = a})++-- | The node type offered by the reserved node offering.+rnoNodeType :: Lens' ReservedNodeOffering (Maybe Text)+rnoNodeType = lens _rnoNodeType (\ s a -> s{_rnoNodeType = a})++-- | The upfront fixed charge you will pay to purchase the specific reserved node offering.+rnoFixedPrice :: Lens' ReservedNodeOffering (Maybe Double)+rnoFixedPrice = lens _rnoFixedPrice (\ s a -> s{_rnoFixedPrice = a})++-- | The duration, in seconds, for which the offering will reserve the node.+rnoDuration :: Lens' ReservedNodeOffering (Maybe Int)+rnoDuration = lens _rnoDuration (\ s a -> s{_rnoDuration = a})++instance FromXML ReservedNodeOffering where+        parseXML x+          = ReservedNodeOffering' <$>+              (x .@? "ReservedNodeOfferingType") <*>+                (x .@? "CurrencyCode")+                <*> (x .@? "ReservedNodeOfferingId")+                <*>+                (x .@? "RecurringCharges" .!@ mempty >>=+                   may (parseXMLList "RecurringCharge"))+                <*> (x .@? "OfferingType")+                <*> (x .@? "UsagePrice")+                <*> (x .@? "NodeType")+                <*> (x .@? "FixedPrice")+                <*> (x .@? "Duration")++instance Hashable ReservedNodeOffering where++instance NFData ReservedNodeOffering where++-- | Describes the status of a cluster restore action. Returns null if the cluster was not created by restoring a snapshot.+--+--+--+-- /See:/ 'restoreStatus' smart constructor.+data RestoreStatus = RestoreStatus'+  { _rsStatus                                 :: !(Maybe Text)+  , _rsEstimatedTimeToCompletionInSeconds     :: !(Maybe Integer)+  , _rsCurrentRestoreRateInMegaBytesPerSecond :: !(Maybe Double)+  , _rsProgressInMegaBytes                    :: !(Maybe Integer)+  , _rsElapsedTimeInSeconds                   :: !(Maybe Integer)+  , _rsSnapshotSizeInMegaBytes                :: !(Maybe Integer)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RestoreStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rsStatus' - The status of the restore action. Returns starting, restoring, completed, or failed.+--+-- * 'rsEstimatedTimeToCompletionInSeconds' - The estimate of the time remaining before the restore will complete. Returns 0 for a completed restore.+--+-- * 'rsCurrentRestoreRateInMegaBytesPerSecond' - The number of megabytes per second being transferred from the backup storage. Returns the average rate for a completed backup.+--+-- * 'rsProgressInMegaBytes' - The number of megabytes that have been transferred from snapshot storage.+--+-- * 'rsElapsedTimeInSeconds' - The amount of time an in-progress restore has been running, or the amount of time it took a completed restore to finish.+--+-- * 'rsSnapshotSizeInMegaBytes' - The size of the set of snapshot data used to restore the cluster.+restoreStatus+    :: RestoreStatus+restoreStatus =+  RestoreStatus'+    { _rsStatus = Nothing+    , _rsEstimatedTimeToCompletionInSeconds = Nothing+    , _rsCurrentRestoreRateInMegaBytesPerSecond = Nothing+    , _rsProgressInMegaBytes = Nothing+    , _rsElapsedTimeInSeconds = Nothing+    , _rsSnapshotSizeInMegaBytes = Nothing+    }+++-- | The status of the restore action. Returns starting, restoring, completed, or failed.+rsStatus :: Lens' RestoreStatus (Maybe Text)+rsStatus = lens _rsStatus (\ s a -> s{_rsStatus = a})++-- | The estimate of the time remaining before the restore will complete. Returns 0 for a completed restore.+rsEstimatedTimeToCompletionInSeconds :: Lens' RestoreStatus (Maybe Integer)+rsEstimatedTimeToCompletionInSeconds = lens _rsEstimatedTimeToCompletionInSeconds (\ s a -> s{_rsEstimatedTimeToCompletionInSeconds = a})++-- | The number of megabytes per second being transferred from the backup storage. Returns the average rate for a completed backup.+rsCurrentRestoreRateInMegaBytesPerSecond :: Lens' RestoreStatus (Maybe Double)+rsCurrentRestoreRateInMegaBytesPerSecond = lens _rsCurrentRestoreRateInMegaBytesPerSecond (\ s a -> s{_rsCurrentRestoreRateInMegaBytesPerSecond = a})++-- | The number of megabytes that have been transferred from snapshot storage.+rsProgressInMegaBytes :: Lens' RestoreStatus (Maybe Integer)+rsProgressInMegaBytes = lens _rsProgressInMegaBytes (\ s a -> s{_rsProgressInMegaBytes = a})++-- | The amount of time an in-progress restore has been running, or the amount of time it took a completed restore to finish.+rsElapsedTimeInSeconds :: Lens' RestoreStatus (Maybe Integer)+rsElapsedTimeInSeconds = lens _rsElapsedTimeInSeconds (\ s a -> s{_rsElapsedTimeInSeconds = a})++-- | The size of the set of snapshot data used to restore the cluster.+rsSnapshotSizeInMegaBytes :: Lens' RestoreStatus (Maybe Integer)+rsSnapshotSizeInMegaBytes = lens _rsSnapshotSizeInMegaBytes (\ s a -> s{_rsSnapshotSizeInMegaBytes = a})++instance FromXML RestoreStatus where+        parseXML x+          = RestoreStatus' <$>+              (x .@? "Status") <*>+                (x .@? "EstimatedTimeToCompletionInSeconds")+                <*> (x .@? "CurrentRestoreRateInMegaBytesPerSecond")+                <*> (x .@? "ProgressInMegaBytes")+                <*> (x .@? "ElapsedTimeInSeconds")+                <*> (x .@? "SnapshotSizeInMegaBytes")++instance Hashable RestoreStatus where++instance NFData RestoreStatus where++-- | Describes a snapshot.+--+--+--+-- /See:/ 'snapshot' smart constructor.+data Snapshot = Snapshot'+  { _sStatus :: !(Maybe Text)+  , _sRestorableNodeTypes :: !(Maybe [Text])+  , _sAccountsWithRestoreAccess :: !(Maybe [AccountWithRestoreAccess])+  , _sEnhancedVPCRouting :: !(Maybe Bool)+  , _sSnapshotIdentifier :: !(Maybe Text)+  , _sEncryptedWithHSM :: !(Maybe Bool)+  , _sMasterUsername :: !(Maybe Text)+  , _sSourceRegion :: !(Maybe Text)+  , _sVPCId :: !(Maybe Text)+  , _sBackupProgressInMegaBytes :: !(Maybe Double)+  , _sEncrypted :: !(Maybe Bool)+  , _sClusterIdentifier :: !(Maybe Text)+  , _sNumberOfNodes :: !(Maybe Int)+  , _sSnapshotType :: !(Maybe Text)+  , _sKMSKeyId :: !(Maybe Text)+  , _sAvailabilityZone :: !(Maybe Text)+  , _sCurrentBackupRateInMegaBytesPerSecond :: !(Maybe Double)+  , _sSnapshotCreateTime :: !(Maybe ISO8601)+  , _sClusterVersion :: !(Maybe Text)+  , _sOwnerAccount :: !(Maybe Text)+  , _sNodeType :: !(Maybe Text)+  , _sElapsedTimeInSeconds :: !(Maybe Integer)+  , _sClusterCreateTime :: !(Maybe ISO8601)+  , _sEstimatedSecondsToCompletion :: !(Maybe Integer)+  , _sActualIncrementalBackupSizeInMegaBytes :: !(Maybe Double)+  , _sTags :: !(Maybe [Tag])+  , _sPort :: !(Maybe Int)+  , _sTotalBackupSizeInMegaBytes :: !(Maybe Double)+  , _sDBName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Snapshot' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sStatus' - The snapshot status. The value of the status depends on the API operation used.      * 'CreateClusterSnapshot' and 'CopyClusterSnapshot' returns status as "creating".      * 'DescribeClusterSnapshots' returns status as "creating", "available", "final snapshot", or "failed".     * 'DeleteClusterSnapshot' returns status as "deleted".+--+-- * 'sRestorableNodeTypes' - The list of node types that this cluster snapshot is able to restore into.+--+-- * 'sAccountsWithRestoreAccess' - A list of the AWS customer accounts authorized to restore the snapshot. Returns @null@ if no accounts are authorized. Visible only to the snapshot owner.+--+-- * 'sEnhancedVPCRouting' - An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false+--+-- * 'sSnapshotIdentifier' - The snapshot identifier that is provided in the request.+--+-- * 'sEncryptedWithHSM' - A boolean that indicates whether the snapshot data is encrypted using the HSM keys of the source cluster. @true@ indicates that the data is encrypted using HSM keys.+--+-- * 'sMasterUsername' - The master user name for the cluster.+--+-- * 'sSourceRegion' - The source region from which the snapshot was copied.+--+-- * 'sVPCId' - The VPC identifier of the cluster if the snapshot is from a cluster in a VPC. Otherwise, this field is not in the output.+--+-- * 'sBackupProgressInMegaBytes' - The number of megabytes that have been transferred to the snapshot backup.+--+-- * 'sEncrypted' - If @true@ , the data in the snapshot is encrypted at rest.+--+-- * 'sClusterIdentifier' - The identifier of the cluster for which the snapshot was taken.+--+-- * 'sNumberOfNodes' - The number of nodes in the cluster.+--+-- * 'sSnapshotType' - The snapshot type. Snapshots created using 'CreateClusterSnapshot' and 'CopyClusterSnapshot' will be of type "manual".+--+-- * 'sKMSKeyId' - The AWS Key Management Service (KMS) key ID of the encryption key that was used to encrypt data in the cluster from which the snapshot was taken.+--+-- * 'sAvailabilityZone' - The Availability Zone in which the cluster was created.+--+-- * 'sCurrentBackupRateInMegaBytesPerSecond' - The number of megabytes per second being transferred to the snapshot backup. Returns @0@ for a completed backup.+--+-- * 'sSnapshotCreateTime' - The time (UTC) when Amazon Redshift began the snapshot. A snapshot contains a copy of the cluster data as of this exact time.+--+-- * 'sClusterVersion' - The version ID of the Amazon Redshift engine that is running on the cluster.+--+-- * 'sOwnerAccount' - For manual snapshots, the AWS customer account used to create or copy the snapshot. For automatic snapshots, the owner of the cluster. The owner can perform all snapshot actions, such as sharing a manual snapshot.+--+-- * 'sNodeType' - The node type of the nodes in the cluster.+--+-- * 'sElapsedTimeInSeconds' - The amount of time an in-progress snapshot backup has been running, or the amount of time it took a completed backup to finish.+--+-- * 'sClusterCreateTime' - The time (UTC) when the cluster was originally created.+--+-- * 'sEstimatedSecondsToCompletion' - The estimate of the time remaining before the snapshot backup will complete. Returns @0@ for a completed backup.+--+-- * 'sActualIncrementalBackupSizeInMegaBytes' - The size of the incremental backup.+--+-- * 'sTags' - The list of tags for the cluster snapshot.+--+-- * 'sPort' - The port that the cluster is listening on.+--+-- * 'sTotalBackupSizeInMegaBytes' - The size of the complete set of backup data that would be used to restore the cluster.+--+-- * 'sDBName' - The name of the database that was created when the cluster was created.+snapshot+    :: Snapshot+snapshot =+  Snapshot'+    { _sStatus = Nothing+    , _sRestorableNodeTypes = Nothing+    , _sAccountsWithRestoreAccess = Nothing+    , _sEnhancedVPCRouting = Nothing+    , _sSnapshotIdentifier = Nothing+    , _sEncryptedWithHSM = Nothing+    , _sMasterUsername = Nothing+    , _sSourceRegion = Nothing+    , _sVPCId = Nothing+    , _sBackupProgressInMegaBytes = Nothing+    , _sEncrypted = Nothing+    , _sClusterIdentifier = Nothing+    , _sNumberOfNodes = Nothing+    , _sSnapshotType = Nothing+    , _sKMSKeyId = Nothing+    , _sAvailabilityZone = Nothing+    , _sCurrentBackupRateInMegaBytesPerSecond = Nothing+    , _sSnapshotCreateTime = Nothing+    , _sClusterVersion = Nothing+    , _sOwnerAccount = Nothing+    , _sNodeType = Nothing+    , _sElapsedTimeInSeconds = Nothing+    , _sClusterCreateTime = Nothing+    , _sEstimatedSecondsToCompletion = Nothing+    , _sActualIncrementalBackupSizeInMegaBytes = Nothing+    , _sTags = Nothing+    , _sPort = Nothing+    , _sTotalBackupSizeInMegaBytes = Nothing+    , _sDBName = Nothing+    }+++-- | The snapshot status. The value of the status depends on the API operation used.      * 'CreateClusterSnapshot' and 'CopyClusterSnapshot' returns status as "creating".      * 'DescribeClusterSnapshots' returns status as "creating", "available", "final snapshot", or "failed".     * 'DeleteClusterSnapshot' returns status as "deleted".+sStatus :: Lens' Snapshot (Maybe Text)+sStatus = lens _sStatus (\ s a -> s{_sStatus = a})++-- | The list of node types that this cluster snapshot is able to restore into.+sRestorableNodeTypes :: Lens' Snapshot [Text]+sRestorableNodeTypes = lens _sRestorableNodeTypes (\ s a -> s{_sRestorableNodeTypes = a}) . _Default . _Coerce++-- | A list of the AWS customer accounts authorized to restore the snapshot. Returns @null@ if no accounts are authorized. Visible only to the snapshot owner.+sAccountsWithRestoreAccess :: Lens' Snapshot [AccountWithRestoreAccess]+sAccountsWithRestoreAccess = lens _sAccountsWithRestoreAccess (\ s a -> s{_sAccountsWithRestoreAccess = a}) . _Default . _Coerce++-- | An option that specifies whether to create the cluster with enhanced VPC routing enabled. To create a cluster that uses enhanced VPC routing, the cluster must be in a VPC. For more information, see <http://docs.aws.amazon.com/redshift/latest/mgmt/enhanced-vpc-routing.html Enhanced VPC Routing> in the Amazon Redshift Cluster Management Guide. If this option is @true@ , enhanced VPC routing is enabled.  Default: false+sEnhancedVPCRouting :: Lens' Snapshot (Maybe Bool)+sEnhancedVPCRouting = lens _sEnhancedVPCRouting (\ s a -> s{_sEnhancedVPCRouting = a})++-- | The snapshot identifier that is provided in the request.+sSnapshotIdentifier :: Lens' Snapshot (Maybe Text)+sSnapshotIdentifier = lens _sSnapshotIdentifier (\ s a -> s{_sSnapshotIdentifier = a})++-- | A boolean that indicates whether the snapshot data is encrypted using the HSM keys of the source cluster. @true@ indicates that the data is encrypted using HSM keys.+sEncryptedWithHSM :: Lens' Snapshot (Maybe Bool)+sEncryptedWithHSM = lens _sEncryptedWithHSM (\ s a -> s{_sEncryptedWithHSM = a})++-- | The master user name for the cluster.+sMasterUsername :: Lens' Snapshot (Maybe Text)+sMasterUsername = lens _sMasterUsername (\ s a -> s{_sMasterUsername = a})++-- | The source region from which the snapshot was copied.+sSourceRegion :: Lens' Snapshot (Maybe Text)+sSourceRegion = lens _sSourceRegion (\ s a -> s{_sSourceRegion = a})++-- | The VPC identifier of the cluster if the snapshot is from a cluster in a VPC. Otherwise, this field is not in the output.+sVPCId :: Lens' Snapshot (Maybe Text)+sVPCId = lens _sVPCId (\ s a -> s{_sVPCId = a})++-- | The number of megabytes that have been transferred to the snapshot backup.+sBackupProgressInMegaBytes :: Lens' Snapshot (Maybe Double)+sBackupProgressInMegaBytes = lens _sBackupProgressInMegaBytes (\ s a -> s{_sBackupProgressInMegaBytes = a})++-- | If @true@ , the data in the snapshot is encrypted at rest.+sEncrypted :: Lens' Snapshot (Maybe Bool)+sEncrypted = lens _sEncrypted (\ s a -> s{_sEncrypted = a})++-- | The identifier of the cluster for which the snapshot was taken.+sClusterIdentifier :: Lens' Snapshot (Maybe Text)+sClusterIdentifier = lens _sClusterIdentifier (\ s a -> s{_sClusterIdentifier = a})++-- | The number of nodes in the cluster.+sNumberOfNodes :: Lens' Snapshot (Maybe Int)+sNumberOfNodes = lens _sNumberOfNodes (\ s a -> s{_sNumberOfNodes = a})++-- | The snapshot type. Snapshots created using 'CreateClusterSnapshot' and 'CopyClusterSnapshot' will be of type "manual".+sSnapshotType :: Lens' Snapshot (Maybe Text)+sSnapshotType = lens _sSnapshotType (\ s a -> s{_sSnapshotType = a})++-- | The AWS Key Management Service (KMS) key ID of the encryption key that was used to encrypt data in the cluster from which the snapshot was taken.+sKMSKeyId :: Lens' Snapshot (Maybe Text)+sKMSKeyId = lens _sKMSKeyId (\ s a -> s{_sKMSKeyId = a})++-- | The Availability Zone in which the cluster was created.+sAvailabilityZone :: Lens' Snapshot (Maybe Text)+sAvailabilityZone = lens _sAvailabilityZone (\ s a -> s{_sAvailabilityZone = a})++-- | The number of megabytes per second being transferred to the snapshot backup. Returns @0@ for a completed backup.+sCurrentBackupRateInMegaBytesPerSecond :: Lens' Snapshot (Maybe Double)+sCurrentBackupRateInMegaBytesPerSecond = lens _sCurrentBackupRateInMegaBytesPerSecond (\ s a -> s{_sCurrentBackupRateInMegaBytesPerSecond = a})++-- | The time (UTC) when Amazon Redshift began the snapshot. A snapshot contains a copy of the cluster data as of this exact time.+sSnapshotCreateTime :: Lens' Snapshot (Maybe UTCTime)+sSnapshotCreateTime = lens _sSnapshotCreateTime (\ s a -> s{_sSnapshotCreateTime = a}) . mapping _Time++-- | The version ID of the Amazon Redshift engine that is running on the cluster.+sClusterVersion :: Lens' Snapshot (Maybe Text)+sClusterVersion = lens _sClusterVersion (\ s a -> s{_sClusterVersion = a})++-- | For manual snapshots, the AWS customer account used to create or copy the snapshot. For automatic snapshots, the owner of the cluster. The owner can perform all snapshot actions, such as sharing a manual snapshot.+sOwnerAccount :: Lens' Snapshot (Maybe Text)+sOwnerAccount = lens _sOwnerAccount (\ s a -> s{_sOwnerAccount = a})++-- | The node type of the nodes in the cluster.+sNodeType :: Lens' Snapshot (Maybe Text)+sNodeType = lens _sNodeType (\ s a -> s{_sNodeType = a})++-- | The amount of time an in-progress snapshot backup has been running, or the amount of time it took a completed backup to finish.+sElapsedTimeInSeconds :: Lens' Snapshot (Maybe Integer)+sElapsedTimeInSeconds = lens _sElapsedTimeInSeconds (\ s a -> s{_sElapsedTimeInSeconds = a})++-- | The time (UTC) when the cluster was originally created.+sClusterCreateTime :: Lens' Snapshot (Maybe UTCTime)+sClusterCreateTime = lens _sClusterCreateTime (\ s a -> s{_sClusterCreateTime = a}) . mapping _Time++-- | The estimate of the time remaining before the snapshot backup will complete. Returns @0@ for a completed backup.+sEstimatedSecondsToCompletion :: Lens' Snapshot (Maybe Integer)+sEstimatedSecondsToCompletion = lens _sEstimatedSecondsToCompletion (\ s a -> s{_sEstimatedSecondsToCompletion = a})++-- | The size of the incremental backup.+sActualIncrementalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)+sActualIncrementalBackupSizeInMegaBytes = lens _sActualIncrementalBackupSizeInMegaBytes (\ s a -> s{_sActualIncrementalBackupSizeInMegaBytes = a})++-- | The list of tags for the cluster snapshot.+sTags :: Lens' Snapshot [Tag]+sTags = lens _sTags (\ s a -> s{_sTags = a}) . _Default . _Coerce++-- | The port that the cluster is listening on.+sPort :: Lens' Snapshot (Maybe Int)+sPort = lens _sPort (\ s a -> s{_sPort = a})++-- | The size of the complete set of backup data that would be used to restore the cluster.+sTotalBackupSizeInMegaBytes :: Lens' Snapshot (Maybe Double)+sTotalBackupSizeInMegaBytes = lens _sTotalBackupSizeInMegaBytes (\ s a -> s{_sTotalBackupSizeInMegaBytes = a})++-- | The name of the database that was created when the cluster was created.+sDBName :: Lens' Snapshot (Maybe Text)+sDBName = lens _sDBName (\ s a -> s{_sDBName = a})++instance FromXML Snapshot where+        parseXML x+          = Snapshot' <$>+              (x .@? "Status") <*>+                (x .@? "RestorableNodeTypes" .!@ mempty >>=+                   may (parseXMLList "NodeType"))+                <*>+                (x .@? "AccountsWithRestoreAccess" .!@ mempty >>=+                   may (parseXMLList "AccountWithRestoreAccess"))+                <*> (x .@? "EnhancedVpcRouting")+                <*> (x .@? "SnapshotIdentifier")+                <*> (x .@? "EncryptedWithHSM")+                <*> (x .@? "MasterUsername")+                <*> (x .@? "SourceRegion")+                <*> (x .@? "VpcId")+                <*> (x .@? "BackupProgressInMegaBytes")+                <*> (x .@? "Encrypted")+                <*> (x .@? "ClusterIdentifier")+                <*> (x .@? "NumberOfNodes")+                <*> (x .@? "SnapshotType")+                <*> (x .@? "KmsKeyId")+                <*> (x .@? "AvailabilityZone")+                <*> (x .@? "CurrentBackupRateInMegaBytesPerSecond")+                <*> (x .@? "SnapshotCreateTime")+                <*> (x .@? "ClusterVersion")+                <*> (x .@? "OwnerAccount")+                <*> (x .@? "NodeType")+                <*> (x .@? "ElapsedTimeInSeconds")+                <*> (x .@? "ClusterCreateTime")+                <*> (x .@? "EstimatedSecondsToCompletion")+                <*> (x .@? "ActualIncrementalBackupSizeInMegaBytes")+                <*>+                (x .@? "Tags" .!@ mempty >>=+                   may (parseXMLList "Tag"))+                <*> (x .@? "Port")+                <*> (x .@? "TotalBackupSizeInMegaBytes")+                <*> (x .@? "DBName")++instance Hashable Snapshot where++instance NFData Snapshot where++-- | The snapshot copy grant that grants Amazon Redshift permission to encrypt copied snapshots with the specified customer master key (CMK) from AWS KMS in the destination region.+--+--+-- For more information about managing snapshot copy grants, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/working-with-db-encryption.html Amazon Redshift Database Encryption> in the /Amazon Redshift Cluster Management Guide/ .+--+--+-- /See:/ 'snapshotCopyGrant' smart constructor.+data SnapshotCopyGrant = SnapshotCopyGrant'+  { _scgKMSKeyId              :: !(Maybe Text)+  , _scgSnapshotCopyGrantName :: !(Maybe Text)+  , _scgTags                  :: !(Maybe [Tag])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SnapshotCopyGrant' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scgKMSKeyId' - The unique identifier of the customer master key (CMK) in AWS KMS to which Amazon Redshift is granted permission.+--+-- * 'scgSnapshotCopyGrantName' - The name of the snapshot copy grant.+--+-- * 'scgTags' - A list of tag instances.+snapshotCopyGrant+    :: SnapshotCopyGrant+snapshotCopyGrant =+  SnapshotCopyGrant'+    { _scgKMSKeyId = Nothing+    , _scgSnapshotCopyGrantName = Nothing+    , _scgTags = Nothing+    }+++-- | The unique identifier of the customer master key (CMK) in AWS KMS to which Amazon Redshift is granted permission.+scgKMSKeyId :: Lens' SnapshotCopyGrant (Maybe Text)+scgKMSKeyId = lens _scgKMSKeyId (\ s a -> s{_scgKMSKeyId = a})++-- | The name of the snapshot copy grant.+scgSnapshotCopyGrantName :: Lens' SnapshotCopyGrant (Maybe Text)+scgSnapshotCopyGrantName = lens _scgSnapshotCopyGrantName (\ s a -> s{_scgSnapshotCopyGrantName = a})++-- | A list of tag instances.+scgTags :: Lens' SnapshotCopyGrant [Tag]+scgTags = lens _scgTags (\ s a -> s{_scgTags = a}) . _Default . _Coerce++instance FromXML SnapshotCopyGrant where+        parseXML x+          = SnapshotCopyGrant' <$>+              (x .@? "KmsKeyId") <*>+                (x .@? "SnapshotCopyGrantName")+                <*>+                (x .@? "Tags" .!@ mempty >>=+                   may (parseXMLList "Tag"))++instance Hashable SnapshotCopyGrant where++instance NFData SnapshotCopyGrant where++-- | Describes a subnet.+--+--+--+-- /See:/ 'subnet' smart constructor.+data Subnet = Subnet'+  { _sSubnetStatus           :: !(Maybe Text)+  , _sSubnetIdentifier       :: !(Maybe Text)+  , _sSubnetAvailabilityZone :: !(Maybe AvailabilityZone)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Subnet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sSubnetStatus' - The status of the subnet.+--+-- * 'sSubnetIdentifier' - The identifier of the subnet.+--+-- * 'sSubnetAvailabilityZone' - Undocumented member.+subnet+    :: Subnet+subnet =+  Subnet'+    { _sSubnetStatus = Nothing+    , _sSubnetIdentifier = Nothing+    , _sSubnetAvailabilityZone = Nothing+    }+++-- | The status of the subnet.+sSubnetStatus :: Lens' Subnet (Maybe Text)+sSubnetStatus = lens _sSubnetStatus (\ s a -> s{_sSubnetStatus = a})++-- | The identifier of the subnet.+sSubnetIdentifier :: Lens' Subnet (Maybe Text)+sSubnetIdentifier = lens _sSubnetIdentifier (\ s a -> s{_sSubnetIdentifier = a})++-- | Undocumented member.+sSubnetAvailabilityZone :: Lens' Subnet (Maybe AvailabilityZone)+sSubnetAvailabilityZone = lens _sSubnetAvailabilityZone (\ s a -> s{_sSubnetAvailabilityZone = a})++instance FromXML Subnet where+        parseXML x+          = Subnet' <$>+              (x .@? "SubnetStatus") <*> (x .@? "SubnetIdentifier")+                <*> (x .@? "SubnetAvailabilityZone")++instance Hashable Subnet where++instance NFData Subnet where++-- | A list of supported platforms for orderable clusters.+--+--+--+-- /See:/ 'supportedPlatform' smart constructor.+newtype SupportedPlatform = SupportedPlatform'+  { _spName :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'SupportedPlatform' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'spName' - Undocumented member.+supportedPlatform+    :: SupportedPlatform+supportedPlatform = SupportedPlatform' {_spName = Nothing}+++-- | Undocumented member.+spName :: Lens' SupportedPlatform (Maybe Text)+spName = lens _spName (\ s a -> s{_spName = a})++instance FromXML SupportedPlatform where+        parseXML x = SupportedPlatform' <$> (x .@? "Name")++instance Hashable SupportedPlatform where++instance NFData SupportedPlatform where++-- | Describes the status of a 'RestoreTableFromClusterSnapshot' operation.+--+--+--+-- /See:/ 'tableRestoreStatus' smart constructor.+data TableRestoreStatus = TableRestoreStatus'+  { _trsStatus                :: !(Maybe TableRestoreStatusType)+  , _trsTargetSchemaName      :: !(Maybe Text)+  , _trsSnapshotIdentifier    :: !(Maybe Text)+  , _trsSourceDatabaseName    :: !(Maybe Text)+  , _trsTableRestoreRequestId :: !(Maybe Text)+  , _trsNewTableName          :: !(Maybe Text)+  , _trsTargetDatabaseName    :: !(Maybe Text)+  , _trsSourceSchemaName      :: !(Maybe Text)+  , _trsClusterIdentifier     :: !(Maybe Text)+  , _trsRequestTime           :: !(Maybe ISO8601)+  , _trsSourceTableName       :: !(Maybe Text)+  , _trsTotalDataInMegaBytes  :: !(Maybe Integer)+  , _trsProgressInMegaBytes   :: !(Maybe Integer)+  , _trsMessage               :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TableRestoreStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'trsStatus' - A value that describes the current state of the table restore request. Valid Values: @SUCCEEDED@ , @FAILED@ , @CANCELED@ , @PENDING@ , @IN_PROGRESS@+--+-- * 'trsTargetSchemaName' - The name of the schema to restore the table to.+--+-- * 'trsSnapshotIdentifier' - The identifier of the snapshot that the table is being restored from.+--+-- * 'trsSourceDatabaseName' - The name of the source database that contains the table being restored.+--+-- * 'trsTableRestoreRequestId' - The unique identifier for the table restore request.+--+-- * 'trsNewTableName' - The name of the table to create as a result of the table restore request.+--+-- * 'trsTargetDatabaseName' - The name of the database to restore the table to.+--+-- * 'trsSourceSchemaName' - The name of the source schema that contains the table being restored.+--+-- * 'trsClusterIdentifier' - The identifier of the Amazon Redshift cluster that the table is being restored to.+--+-- * 'trsRequestTime' - The time that the table restore request was made, in Universal Coordinated Time (UTC).+--+-- * 'trsSourceTableName' - The name of the source table being restored.+--+-- * 'trsTotalDataInMegaBytes' - The total amount of data to restore to the new table, in megabytes (MB).+--+-- * 'trsProgressInMegaBytes' - The amount of data restored to the new table so far, in megabytes (MB).+--+-- * 'trsMessage' - A description of the status of the table restore request. Status values include @SUCCEEDED@ , @FAILED@ , @CANCELED@ , @PENDING@ , @IN_PROGRESS@ .+tableRestoreStatus+    :: TableRestoreStatus+tableRestoreStatus =+  TableRestoreStatus'+    { _trsStatus = Nothing+    , _trsTargetSchemaName = Nothing+    , _trsSnapshotIdentifier = Nothing+    , _trsSourceDatabaseName = Nothing+    , _trsTableRestoreRequestId = Nothing+    , _trsNewTableName = Nothing+    , _trsTargetDatabaseName = Nothing+    , _trsSourceSchemaName = Nothing+    , _trsClusterIdentifier = Nothing+    , _trsRequestTime = Nothing+    , _trsSourceTableName = Nothing+    , _trsTotalDataInMegaBytes = Nothing+    , _trsProgressInMegaBytes = Nothing+    , _trsMessage = Nothing+    }+++-- | A value that describes the current state of the table restore request. Valid Values: @SUCCEEDED@ , @FAILED@ , @CANCELED@ , @PENDING@ , @IN_PROGRESS@+trsStatus :: Lens' TableRestoreStatus (Maybe TableRestoreStatusType)+trsStatus = lens _trsStatus (\ s a -> s{_trsStatus = a})++-- | The name of the schema to restore the table to.+trsTargetSchemaName :: Lens' TableRestoreStatus (Maybe Text)+trsTargetSchemaName = lens _trsTargetSchemaName (\ s a -> s{_trsTargetSchemaName = a})++-- | The identifier of the snapshot that the table is being restored from.+trsSnapshotIdentifier :: Lens' TableRestoreStatus (Maybe Text)+trsSnapshotIdentifier = lens _trsSnapshotIdentifier (\ s a -> s{_trsSnapshotIdentifier = a})++-- | The name of the source database that contains the table being restored.+trsSourceDatabaseName :: Lens' TableRestoreStatus (Maybe Text)+trsSourceDatabaseName = lens _trsSourceDatabaseName (\ s a -> s{_trsSourceDatabaseName = a})++-- | The unique identifier for the table restore request.+trsTableRestoreRequestId :: Lens' TableRestoreStatus (Maybe Text)+trsTableRestoreRequestId = lens _trsTableRestoreRequestId (\ s a -> s{_trsTableRestoreRequestId = a})++-- | The name of the table to create as a result of the table restore request.+trsNewTableName :: Lens' TableRestoreStatus (Maybe Text)+trsNewTableName = lens _trsNewTableName (\ s a -> s{_trsNewTableName = a})++-- | The name of the database to restore the table to.+trsTargetDatabaseName :: Lens' TableRestoreStatus (Maybe Text)+trsTargetDatabaseName = lens _trsTargetDatabaseName (\ s a -> s{_trsTargetDatabaseName = a})++-- | The name of the source schema that contains the table being restored.+trsSourceSchemaName :: Lens' TableRestoreStatus (Maybe Text)+trsSourceSchemaName = lens _trsSourceSchemaName (\ s a -> s{_trsSourceSchemaName = a})++-- | The identifier of the Amazon Redshift cluster that the table is being restored to.+trsClusterIdentifier :: Lens' TableRestoreStatus (Maybe Text)+trsClusterIdentifier = lens _trsClusterIdentifier (\ s a -> s{_trsClusterIdentifier = a})++-- | The time that the table restore request was made, in Universal Coordinated Time (UTC).+trsRequestTime :: Lens' TableRestoreStatus (Maybe UTCTime)+trsRequestTime = lens _trsRequestTime (\ s a -> s{_trsRequestTime = a}) . mapping _Time++-- | The name of the source table being restored.+trsSourceTableName :: Lens' TableRestoreStatus (Maybe Text)+trsSourceTableName = lens _trsSourceTableName (\ s a -> s{_trsSourceTableName = a})++-- | The total amount of data to restore to the new table, in megabytes (MB).+trsTotalDataInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)+trsTotalDataInMegaBytes = lens _trsTotalDataInMegaBytes (\ s a -> s{_trsTotalDataInMegaBytes = a})++-- | The amount of data restored to the new table so far, in megabytes (MB).+trsProgressInMegaBytes :: Lens' TableRestoreStatus (Maybe Integer)+trsProgressInMegaBytes = lens _trsProgressInMegaBytes (\ s a -> s{_trsProgressInMegaBytes = a})++-- | A description of the status of the table restore request. Status values include @SUCCEEDED@ , @FAILED@ , @CANCELED@ , @PENDING@ , @IN_PROGRESS@ .+trsMessage :: Lens' TableRestoreStatus (Maybe Text)+trsMessage = lens _trsMessage (\ s a -> s{_trsMessage = a})++instance FromXML TableRestoreStatus where+        parseXML x+          = TableRestoreStatus' <$>+              (x .@? "Status") <*> (x .@? "TargetSchemaName") <*>+                (x .@? "SnapshotIdentifier")+                <*> (x .@? "SourceDatabaseName")+                <*> (x .@? "TableRestoreRequestId")+                <*> (x .@? "NewTableName")+                <*> (x .@? "TargetDatabaseName")+                <*> (x .@? "SourceSchemaName")+                <*> (x .@? "ClusterIdentifier")+                <*> (x .@? "RequestTime")+                <*> (x .@? "SourceTableName")+                <*> (x .@? "TotalDataInMegaBytes")+                <*> (x .@? "ProgressInMegaBytes")+                <*> (x .@? "Message")++instance Hashable TableRestoreStatus where++instance NFData TableRestoreStatus where++-- | A tag consisting of a name/value pair for a resource.+--+--+--+-- /See:/ 'tag' smart constructor.+data Tag = Tag'+  { _tagValue :: !(Maybe Text)+  , _tagKey   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Tag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tagValue' - The value for the resource tag.+--+-- * 'tagKey' - The key, or name, for the resource tag.+tag+    :: Tag+tag = Tag' {_tagValue = Nothing, _tagKey = Nothing}+++-- | The value for the resource tag.+tagValue :: Lens' Tag (Maybe Text)+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})++-- | The key, or name, for the resource tag.+tagKey :: Lens' Tag (Maybe Text)+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})++instance FromXML Tag where+        parseXML x+          = Tag' <$> (x .@? "Value") <*> (x .@? "Key")++instance Hashable Tag where++instance NFData Tag where++instance ToQuery Tag where+        toQuery Tag'{..}+          = mconcat ["Value" =: _tagValue, "Key" =: _tagKey]++-- | A tag and its associated resource.+--+--+--+-- /See:/ 'taggedResource' smart constructor.+data TaggedResource = TaggedResource'+  { _trTag          :: !(Maybe Tag)+  , _trResourceType :: !(Maybe Text)+  , _trResourceName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TaggedResource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'trTag' - The tag for the resource.+--+-- * 'trResourceType' - The type of resource with which the tag is associated. Valid resource types are:      * Cluster     * CIDR/IP     * EC2 security group     * Snapshot     * Cluster security group     * Subnet group     * HSM connection     * HSM certificate     * Parameter group For more information about Amazon Redshift resource types and constructing ARNs, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Constructing an Amazon Redshift Amazon Resource Name (ARN)> in the Amazon Redshift Cluster Management Guide.+--+-- * 'trResourceName' - The Amazon Resource Name (ARN) with which the tag is associated. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ .+taggedResource+    :: TaggedResource+taggedResource =+  TaggedResource'+    {_trTag = Nothing, _trResourceType = Nothing, _trResourceName = Nothing}+++-- | The tag for the resource.+trTag :: Lens' TaggedResource (Maybe Tag)+trTag = lens _trTag (\ s a -> s{_trTag = a})++-- | The type of resource with which the tag is associated. Valid resource types are:      * Cluster     * CIDR/IP     * EC2 security group     * Snapshot     * Cluster security group     * Subnet group     * HSM connection     * HSM certificate     * Parameter group For more information about Amazon Redshift resource types and constructing ARNs, go to <http://docs.aws.amazon.com/redshift/latest/mgmt/redshift-iam-access-control-overview.html#redshift-iam-access-control-specify-actions Constructing an Amazon Redshift Amazon Resource Name (ARN)> in the Amazon Redshift Cluster Management Guide.+trResourceType :: Lens' TaggedResource (Maybe Text)+trResourceType = lens _trResourceType (\ s a -> s{_trResourceType = a})++-- | The Amazon Resource Name (ARN) with which the tag is associated. For example, @arn:aws:redshift:us-east-1:123456789:cluster:t1@ .+trResourceName :: Lens' TaggedResource (Maybe Text)+trResourceName = lens _trResourceName (\ s a -> s{_trResourceName = a})++instance FromXML TaggedResource where+        parseXML x+          = TaggedResource' <$>+              (x .@? "Tag") <*> (x .@? "ResourceType") <*>+                (x .@? "ResourceName")++instance Hashable TaggedResource where++instance NFData TaggedResource where++-- | Describes the members of a VPC security group.+--+--+--+-- /See:/ 'vpcSecurityGroupMembership' smart constructor.+data VPCSecurityGroupMembership = VPCSecurityGroupMembership'+  { _vsgmStatus             :: !(Maybe Text)+  , _vsgmVPCSecurityGroupId :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'VPCSecurityGroupMembership' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vsgmStatus' - The status of the VPC security group.+--+-- * 'vsgmVPCSecurityGroupId' - The identifier of the VPC security group.+vpcSecurityGroupMembership+    :: VPCSecurityGroupMembership+vpcSecurityGroupMembership =+  VPCSecurityGroupMembership'+    {_vsgmStatus = Nothing, _vsgmVPCSecurityGroupId = Nothing}+++-- | The status of the VPC security group.+vsgmStatus :: Lens' VPCSecurityGroupMembership (Maybe Text)+vsgmStatus = lens _vsgmStatus (\ s a -> s{_vsgmStatus = a})++-- | The identifier of the VPC security group.+vsgmVPCSecurityGroupId :: Lens' VPCSecurityGroupMembership (Maybe Text)+vsgmVPCSecurityGroupId = lens _vsgmVPCSecurityGroupId (\ s a -> s{_vsgmVPCSecurityGroupId = a})  instance FromXML VPCSecurityGroupMembership where         parseXML x