amazonka-redshift 1.4.0 → 1.4.1

raw patch · 71 files changed

+630/−11 lines, 71 filesdep ~amazonka-coredep ~amazonka-redshiftdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-redshift.cabal +6/−5
• fixture/ModifyClusterIAMRoles.yaml +0/−0
• fixture/ModifyClusterIAMRolesResponse.proto +0/−0
• gen/Network/AWS/Redshift.hs +11/−0
• gen/Network/AWS/Redshift/AuthorizeClusterSecurityGroupIngress.hs +5/−0
• gen/Network/AWS/Redshift/AuthorizeSnapshotAccess.hs +4/−0
• gen/Network/AWS/Redshift/CopyClusterSnapshot.hs +4/−0
• gen/Network/AWS/Redshift/CreateCluster.hs +20/−0
• gen/Network/AWS/Redshift/CreateClusterParameterGroup.hs +4/−0
• gen/Network/AWS/Redshift/CreateClusterSecurityGroup.hs +4/−0
• gen/Network/AWS/Redshift/CreateClusterSnapshot.hs +4/−0
• gen/Network/AWS/Redshift/CreateClusterSubnetGroup.hs +4/−0
• gen/Network/AWS/Redshift/CreateEventSubscription.hs +4/−0
• gen/Network/AWS/Redshift/CreateHSMClientCertificate.hs +4/−0
• gen/Network/AWS/Redshift/CreateHSMConfiguration.hs +4/−0
• gen/Network/AWS/Redshift/CreateSnapshotCopyGrant.hs +4/−0
• gen/Network/AWS/Redshift/CreateTags.hs +4/−0
• gen/Network/AWS/Redshift/DeleteCluster.hs +4/−0
• gen/Network/AWS/Redshift/DeleteClusterParameterGroup.hs +4/−0
• gen/Network/AWS/Redshift/DeleteClusterSecurityGroup.hs +4/−0
• gen/Network/AWS/Redshift/DeleteClusterSnapshot.hs +4/−0
• gen/Network/AWS/Redshift/DeleteClusterSubnetGroup.hs +4/−0
• gen/Network/AWS/Redshift/DeleteEventSubscription.hs +4/−0
• gen/Network/AWS/Redshift/DeleteHSMClientCertificate.hs +4/−0
• gen/Network/AWS/Redshift/DeleteHSMConfiguration.hs +4/−0
• gen/Network/AWS/Redshift/DeleteSnapshotCopyGrant.hs +4/−0
• gen/Network/AWS/Redshift/DeleteTags.hs +4/−0
• gen/Network/AWS/Redshift/DescribeClusterParameterGroups.hs +5/−0
• gen/Network/AWS/Redshift/DescribeClusterParameters.hs +4/−0
• gen/Network/AWS/Redshift/DescribeClusterSecurityGroups.hs +4/−0
• gen/Network/AWS/Redshift/DescribeClusterSnapshots.hs +4/−0
• gen/Network/AWS/Redshift/DescribeClusterSubnetGroups.hs +4/−0
• gen/Network/AWS/Redshift/DescribeClusterVersions.hs +4/−0
• gen/Network/AWS/Redshift/DescribeClusters.hs +4/−0
• gen/Network/AWS/Redshift/DescribeDefaultClusterParameters.hs +5/−0
• gen/Network/AWS/Redshift/DescribeEventCategories.hs +4/−0
• gen/Network/AWS/Redshift/DescribeEventSubscriptions.hs +4/−0
• gen/Network/AWS/Redshift/DescribeEvents.hs +4/−0
• gen/Network/AWS/Redshift/DescribeHSMClientCertificates.hs +4/−0
• gen/Network/AWS/Redshift/DescribeHSMConfigurations.hs +4/−0
• gen/Network/AWS/Redshift/DescribeLoggingStatus.hs +2/−0
• gen/Network/AWS/Redshift/DescribeOrderableClusterOptions.hs +5/−0
• gen/Network/AWS/Redshift/DescribeReservedNodeOfferings.hs +4/−0
• gen/Network/AWS/Redshift/DescribeReservedNodes.hs +4/−0
• gen/Network/AWS/Redshift/DescribeResize.hs +4/−0
• gen/Network/AWS/Redshift/DescribeSnapshotCopyGrants.hs +4/−0
• gen/Network/AWS/Redshift/DescribeTableRestoreStatus.hs +8/−3
• gen/Network/AWS/Redshift/DescribeTags.hs +4/−0
• gen/Network/AWS/Redshift/DisableLogging.hs +2/−0
• gen/Network/AWS/Redshift/DisableSnapshotCopy.hs +4/−0
• gen/Network/AWS/Redshift/EnableLogging.hs +2/−0
• gen/Network/AWS/Redshift/EnableSnapshotCopy.hs +4/−0
• gen/Network/AWS/Redshift/ModifyCluster.hs +4/−0
• gen/Network/AWS/Redshift/ModifyClusterIAMRoles.hs +158/−0
• gen/Network/AWS/Redshift/ModifyClusterParameterGroup.hs +2/−0
• gen/Network/AWS/Redshift/ModifyClusterSubnetGroup.hs +4/−0
• gen/Network/AWS/Redshift/ModifyEventSubscription.hs +4/−0
• gen/Network/AWS/Redshift/ModifySnapshotCopyRetentionPeriod.hs +5/−0
• gen/Network/AWS/Redshift/PurchaseReservedNodeOffering.hs +4/−0
• gen/Network/AWS/Redshift/RebootCluster.hs +4/−0
• gen/Network/AWS/Redshift/ResetClusterParameterGroup.hs +2/−0
• gen/Network/AWS/Redshift/RestoreFromClusterSnapshot.hs +20/−0
• gen/Network/AWS/Redshift/RestoreTableFromClusterSnapshot.hs +7/−0
• gen/Network/AWS/Redshift/RevokeClusterSecurityGroupIngress.hs +5/−0
• gen/Network/AWS/Redshift/RevokeSnapshotAccess.hs +4/−0
• gen/Network/AWS/Redshift/RotateEncryptionKey.hs +4/−0
• gen/Network/AWS/Redshift/Types.hs +9/−0
• gen/Network/AWS/Redshift/Types/Product.hs +145/−2
• gen/Network/AWS/Redshift/Types/Sum.hs +3/−0
• test/Test/AWS/Gen/Redshift.hs +18/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.0`+`1.4.1`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-redshift-version:               1.4.0+version:               1.4.1 synopsis:              Amazon Redshift SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -116,6 +116,7 @@         , Network.AWS.Redshift.EnableLogging         , Network.AWS.Redshift.EnableSnapshotCopy         , Network.AWS.Redshift.ModifyCluster+        , Network.AWS.Redshift.ModifyClusterIAMRoles         , Network.AWS.Redshift.ModifyClusterParameterGroup         , Network.AWS.Redshift.ModifyClusterSubnetGroup         , Network.AWS.Redshift.ModifyEventSubscription@@ -136,7 +137,7 @@         , Network.AWS.Redshift.Types.Sum      build-depends:-          amazonka-core == 1.4.0.*+          amazonka-core == 1.4.1.*         , base          >= 4.7     && < 5  test-suite amazonka-redshift-test@@ -156,9 +157,9 @@         , Test.AWS.Redshift.Internal      build-depends:-          amazonka-core == 1.4.0.*-        , amazonka-test == 1.4.0.*-        , amazonka-redshift == 1.4.0.*+          amazonka-core == 1.4.1.*+        , amazonka-test == 1.4.1.*+        , amazonka-redshift == 1.4.1.*         , base         , bytestring         , tasty

@@ -373,6 +373,9 @@     -- ** ModifySnapshotCopyRetentionPeriod     , module Network.AWS.Redshift.ModifySnapshotCopyRetentionPeriod +    -- ** ModifyClusterIAMRoles+    , module Network.AWS.Redshift.ModifyClusterIAMRoles+     -- ** AuthorizeSnapshotAccess     , module Network.AWS.Redshift.AuthorizeSnapshotAccess @@ -537,6 +540,7 @@     , cAvailabilityZone     , cVPCSecurityGroups     , cHSMStatus+    , cIAMRoles     , cElasticIPStatus     , cClusterVersion     , cNodeType@@ -549,6 +553,12 @@     , cClusterNodes     , cDBName +    -- ** ClusterIAMRole+    , ClusterIAMRole+    , clusterIAMRole+    , cirIAMRoleARN+    , cirApplyStatus+     -- ** ClusterNode     , ClusterNode     , clusterNode@@ -940,6 +950,7 @@ import           Network.AWS.Redshift.EnableLogging import           Network.AWS.Redshift.EnableSnapshotCopy import           Network.AWS.Redshift.ModifyCluster+import           Network.AWS.Redshift.ModifyClusterIAMRoles import           Network.AWS.Redshift.ModifyClusterParameterGroup import           Network.AWS.Redshift.ModifyClusterSubnetGroup import           Network.AWS.Redshift.ModifyEventSubscription

@@ -134,6 +134,8 @@ instance Hashable          AuthorizeClusterSecurityGroupIngress +instance NFData AuthorizeClusterSecurityGroupIngress+ instance ToHeaders          AuthorizeClusterSecurityGroupIngress where         toHeaders = const mempty@@ -186,3 +188,6 @@ -- | The response status code. acsgirsResponseStatus :: Lens' AuthorizeClusterSecurityGroupIngressResponse Int acsgirsResponseStatus = lens _acsgirsResponseStatus (\ s a -> s{_acsgirsResponseStatus = a});++instance NFData+         AuthorizeClusterSecurityGroupIngressResponse

@@ -106,6 +106,8 @@  instance Hashable AuthorizeSnapshotAccess +instance NFData AuthorizeSnapshotAccess+ instance ToHeaders AuthorizeSnapshotAccess where         toHeaders = const mempty @@ -153,3 +155,5 @@ -- | The response status code. asarsResponseStatus :: Lens' AuthorizeSnapshotAccessResponse Int asarsResponseStatus = lens _asarsResponseStatus (\ s a -> s{_asarsResponseStatus = a});++instance NFData AuthorizeSnapshotAccessResponse

@@ -130,6 +130,8 @@  instance Hashable CopyClusterSnapshot +instance NFData CopyClusterSnapshot+ instance ToHeaders CopyClusterSnapshot where         toHeaders = const mempty @@ -177,3 +179,5 @@ -- | The response status code. ccsrsResponseStatus :: Lens' CopyClusterSnapshotResponse Int ccsrsResponseStatus = lens _ccsrsResponseStatus (\ s a -> s{_ccsrsResponseStatus = a});++instance NFData CopyClusterSnapshotResponse

@@ -46,6 +46,7 @@     , ccKMSKeyId     , ccAvailabilityZone     , ccVPCSecurityGroupIds+    , ccIAMRoles     , ccClusterType     , ccClusterVersion     , ccAllowVersionUpgrade@@ -91,6 +92,7 @@     , _ccKMSKeyId                         :: !(Maybe Text)     , _ccAvailabilityZone                 :: !(Maybe Text)     , _ccVPCSecurityGroupIds              :: !(Maybe [Text])+    , _ccIAMRoles                         :: !(Maybe [Text])     , _ccClusterType                      :: !(Maybe Text)     , _ccClusterVersion                   :: !(Maybe Text)     , _ccAllowVersionUpgrade              :: !(Maybe Bool)@@ -136,6 +138,8 @@ -- -- * 'ccVPCSecurityGroupIds' --+-- * 'ccIAMRoles'+-- -- * 'ccClusterType' -- -- * 'ccClusterVersion'@@ -179,6 +183,7 @@     , _ccKMSKeyId = Nothing     , _ccAvailabilityZone = Nothing     , _ccVPCSecurityGroupIds = Nothing+    , _ccIAMRoles = Nothing     , _ccClusterType = Nothing     , _ccClusterVersion = Nothing     , _ccAllowVersionUpgrade = Nothing@@ -312,6 +317,15 @@ ccVPCSecurityGroupIds :: Lens' CreateCluster [Text] 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 at any time.+ccIAMRoles :: Lens' CreateCluster [Text]+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.@@ -462,6 +476,8 @@  instance Hashable CreateCluster +instance NFData CreateCluster+ instance ToHeaders CreateCluster where         toHeaders = const mempty @@ -498,6 +514,8 @@                  toQuery                    (toQueryList "VpcSecurityGroupId" <$>                       _ccVPCSecurityGroupIds),+               "IamRoles" =:+                 toQuery (toQueryList "IamRoleArn" <$> _ccIAMRoles),                "ClusterType" =: _ccClusterType,                "ClusterVersion" =: _ccClusterVersion,                "AllowVersionUpgrade" =: _ccAllowVersionUpgrade,@@ -539,3 +557,5 @@ -- | The response status code. ccrsResponseStatus :: Lens' CreateClusterResponse Int ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});++instance NFData CreateClusterResponse

@@ -138,6 +138,8 @@  instance Hashable CreateClusterParameterGroup +instance NFData CreateClusterParameterGroup+ instance ToHeaders CreateClusterParameterGroup where         toHeaders = const mempty @@ -184,3 +186,5 @@ -- | The response status code. ccpgrsResponseStatus :: Lens' CreateClusterParameterGroupResponse Int ccpgrsResponseStatus = lens _ccpgrsResponseStatus (\ s a -> s{_ccpgrsResponseStatus = a});++instance NFData CreateClusterParameterGroupResponse

@@ -114,6 +114,8 @@  instance Hashable CreateClusterSecurityGroup +instance NFData CreateClusterSecurityGroup+ instance ToHeaders CreateClusterSecurityGroup where         toHeaders = const mempty @@ -160,3 +162,5 @@ -- | The response status code. crsResponseStatus :: Lens' CreateClusterSecurityGroupResponse Int crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});++instance NFData CreateClusterSecurityGroupResponse

@@ -112,6 +112,8 @@  instance Hashable CreateClusterSnapshot +instance NFData CreateClusterSnapshot+ instance ToHeaders CreateClusterSnapshot where         toHeaders = const mempty @@ -156,3 +158,5 @@ -- | The response status code. crersResponseStatus :: Lens' CreateClusterSnapshotResponse Int crersResponseStatus = lens _crersResponseStatus (\ s a -> s{_crersResponseStatus = a});++instance NFData CreateClusterSnapshotResponse

@@ -123,6 +123,8 @@  instance Hashable CreateClusterSubnetGroup +instance NFData CreateClusterSubnetGroup+ instance ToHeaders CreateClusterSubnetGroup where         toHeaders = const mempty @@ -171,3 +173,5 @@ -- | The response status code. ccsgrsResponseStatus :: Lens' CreateClusterSubnetGroupResponse Int ccsgrsResponseStatus = lens _ccsgrsResponseStatus (\ s a -> s{_ccsgrsResponseStatus = a});++instance NFData CreateClusterSubnetGroupResponse

@@ -196,6 +196,8 @@  instance Hashable CreateEventSubscription +instance NFData CreateEventSubscription+ instance ToHeaders CreateEventSubscription where         toHeaders = const mempty @@ -250,3 +252,5 @@ -- | The response status code. cesrsResponseStatus :: Lens' CreateEventSubscriptionResponse Int cesrsResponseStatus = lens _cesrsResponseStatus (\ s a -> s{_cesrsResponseStatus = a});++instance NFData CreateEventSubscriptionResponse

@@ -101,6 +101,8 @@  instance Hashable CreateHSMClientCertificate +instance NFData CreateHSMClientCertificate+ instance ToHeaders CreateHSMClientCertificate where         toHeaders = const mempty @@ -146,3 +148,5 @@ -- | The response status code. chccrsResponseStatus :: Lens' CreateHSMClientCertificateResponse Int chccrsResponseStatus = lens _chccrsResponseStatus (\ s a -> s{_chccrsResponseStatus = a});++instance NFData CreateHSMClientCertificateResponse

@@ -150,6 +150,8 @@  instance Hashable CreateHSMConfiguration +instance NFData CreateHSMConfiguration+ instance ToHeaders CreateHSMConfiguration where         toHeaders = const mempty @@ -201,3 +203,5 @@ -- | The response status code. chcrsResponseStatus :: Lens' CreateHSMConfigurationResponse Int chcrsResponseStatus = lens _chcrsResponseStatus (\ s a -> s{_chcrsResponseStatus = a});++instance NFData CreateHSMConfigurationResponse

@@ -113,6 +113,8 @@  instance Hashable CreateSnapshotCopyGrant +instance NFData CreateSnapshotCopyGrant+ instance ToHeaders CreateSnapshotCopyGrant where         toHeaders = const mempty @@ -159,3 +161,5 @@ -- | The response status code. cscgrsResponseStatus :: Lens' CreateSnapshotCopyGrantResponse Int cscgrsResponseStatus = lens _cscgrsResponseStatus (\ s a -> s{_cscgrsResponseStatus = a});++instance NFData CreateSnapshotCopyGrantResponse

@@ -92,6 +92,8 @@  instance Hashable CreateTags +instance NFData CreateTags+ instance ToHeaders CreateTags where         toHeaders = const mempty @@ -116,3 +118,5 @@ createTagsResponse     :: CreateTagsResponse createTagsResponse = CreateTagsResponse'++instance NFData CreateTagsResponse

@@ -136,6 +136,8 @@  instance Hashable DeleteCluster +instance NFData DeleteCluster+ instance ToHeaders DeleteCluster where         toHeaders = const mempty @@ -182,3 +184,5 @@ -- | The response status code. drsResponseStatus :: Lens' DeleteClusterResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});++instance NFData DeleteClusterResponse

@@ -78,6 +78,8 @@  instance Hashable DeleteClusterParameterGroup +instance NFData DeleteClusterParameterGroup+ instance ToHeaders DeleteClusterParameterGroup where         toHeaders = const mempty @@ -102,3 +104,5 @@ deleteClusterParameterGroupResponse     :: DeleteClusterParameterGroupResponse deleteClusterParameterGroupResponse = DeleteClusterParameterGroupResponse'++instance NFData DeleteClusterParameterGroupResponse

@@ -79,6 +79,8 @@  instance Hashable DeleteClusterSecurityGroup +instance NFData DeleteClusterSecurityGroup+ instance ToHeaders DeleteClusterSecurityGroup where         toHeaders = const mempty @@ -104,3 +106,5 @@ deleteClusterSecurityGroupResponse     :: DeleteClusterSecurityGroupResponse deleteClusterSecurityGroupResponse = DeleteClusterSecurityGroupResponse'++instance NFData DeleteClusterSecurityGroupResponse

@@ -104,6 +104,8 @@  instance Hashable DeleteClusterSnapshot +instance NFData DeleteClusterSnapshot+ instance ToHeaders DeleteClusterSnapshot where         toHeaders = const mempty @@ -148,3 +150,5 @@ -- | The response status code. dcsrsResponseStatus :: Lens' DeleteClusterSnapshotResponse Int dcsrsResponseStatus = lens _dcsrsResponseStatus (\ s a -> s{_dcsrsResponseStatus = a});++instance NFData DeleteClusterSnapshotResponse

@@ -72,6 +72,8 @@  instance Hashable DeleteClusterSubnetGroup +instance NFData DeleteClusterSubnetGroup+ instance ToHeaders DeleteClusterSubnetGroup where         toHeaders = const mempty @@ -97,3 +99,5 @@ deleteClusterSubnetGroupResponse     :: DeleteClusterSubnetGroupResponse deleteClusterSubnetGroupResponse = DeleteClusterSubnetGroupResponse'++instance NFData DeleteClusterSubnetGroupResponse

@@ -73,6 +73,8 @@  instance Hashable DeleteEventSubscription +instance NFData DeleteEventSubscription+ instance ToHeaders DeleteEventSubscription where         toHeaders = const mempty @@ -97,3 +99,5 @@ deleteEventSubscriptionResponse     :: DeleteEventSubscriptionResponse deleteEventSubscriptionResponse = DeleteEventSubscriptionResponse'++instance NFData DeleteEventSubscriptionResponse

@@ -72,6 +72,8 @@  instance Hashable DeleteHSMClientCertificate +instance NFData DeleteHSMClientCertificate+ instance ToHeaders DeleteHSMClientCertificate where         toHeaders = const mempty @@ -97,3 +99,5 @@ deleteHSMClientCertificateResponse     :: DeleteHSMClientCertificateResponse deleteHSMClientCertificateResponse = DeleteHSMClientCertificateResponse'++instance NFData DeleteHSMClientCertificateResponse

@@ -72,6 +72,8 @@  instance Hashable DeleteHSMConfiguration +instance NFData DeleteHSMConfiguration+ instance ToHeaders DeleteHSMConfiguration where         toHeaders = const mempty @@ -97,3 +99,5 @@ deleteHSMConfigurationResponse     :: DeleteHSMConfigurationResponse deleteHSMConfigurationResponse = DeleteHSMConfigurationResponse'++instance NFData DeleteHSMConfigurationResponse

@@ -72,6 +72,8 @@  instance Hashable DeleteSnapshotCopyGrant +instance NFData DeleteSnapshotCopyGrant+ instance ToHeaders DeleteSnapshotCopyGrant where         toHeaders = const mempty @@ -97,3 +99,5 @@ deleteSnapshotCopyGrantResponse     :: DeleteSnapshotCopyGrantResponse deleteSnapshotCopyGrantResponse = DeleteSnapshotCopyGrantResponse'++instance NFData DeleteSnapshotCopyGrantResponse

@@ -81,6 +81,8 @@  instance Hashable DeleteTags +instance NFData DeleteTags+ instance ToHeaders DeleteTags where         toHeaders = const mempty @@ -105,3 +107,5 @@ deleteTagsResponse     :: DeleteTagsResponse deleteTagsResponse = DeleteTagsResponse'++instance NFData DeleteTagsResponse

@@ -176,6 +176,8 @@  instance Hashable DescribeClusterParameterGroups +instance NFData DescribeClusterParameterGroups+ instance ToHeaders DescribeClusterParameterGroups          where         toHeaders = const mempty@@ -242,3 +244,6 @@ -- | The response status code. dcpgrsResponseStatus :: Lens' DescribeClusterParameterGroupsResponse Int dcpgrsResponseStatus = lens _dcpgrsResponseStatus (\ s a -> s{_dcpgrsResponseStatus = a});++instance NFData+         DescribeClusterParameterGroupsResponse

@@ -148,6 +148,8 @@  instance Hashable DescribeClusterParameters +instance NFData DescribeClusterParameters+ instance ToHeaders DescribeClusterParameters where         toHeaders = const mempty @@ -210,3 +212,5 @@ -- | The response status code. dcprsResponseStatus :: Lens' DescribeClusterParametersResponse Int dcprsResponseStatus = lens _dcprsResponseStatus (\ s a -> s{_dcprsResponseStatus = a});++instance NFData DescribeClusterParametersResponse

@@ -177,6 +177,8 @@  instance Hashable DescribeClusterSecurityGroups +instance NFData DescribeClusterSecurityGroups+ instance ToHeaders DescribeClusterSecurityGroups          where         toHeaders = const mempty@@ -243,3 +245,5 @@ -- | The response status code. dcsgsrsResponseStatus :: Lens' DescribeClusterSecurityGroupsResponse Int dcsgsrsResponseStatus = lens _dcsgsrsResponseStatus (\ s a -> s{_dcsgsrsResponseStatus = a});++instance NFData DescribeClusterSecurityGroupsResponse

@@ -229,6 +229,8 @@  instance Hashable DescribeClusterSnapshots +instance NFData DescribeClusterSnapshots+ instance ToHeaders DescribeClusterSnapshots where         toHeaders = const mempty @@ -297,3 +299,5 @@ -- | The response status code. dcssrsResponseStatus :: Lens' DescribeClusterSnapshotsResponse Int dcssrsResponseStatus = lens _dcssrsResponseStatus (\ s a -> s{_dcssrsResponseStatus = a});++instance NFData DescribeClusterSnapshotsResponse

@@ -166,6 +166,8 @@  instance Hashable DescribeClusterSubnetGroups +instance NFData DescribeClusterSubnetGroups+ instance ToHeaders DescribeClusterSubnetGroups where         toHeaders = const mempty @@ -231,3 +233,5 @@ -- | The response status code. dcsgrsResponseStatus :: Lens' DescribeClusterSubnetGroupsResponse Int dcsgrsResponseStatus = lens _dcsgrsResponseStatus (\ s a -> s{_dcsgrsResponseStatus = a});++instance NFData DescribeClusterSubnetGroupsResponse

@@ -145,6 +145,8 @@  instance Hashable DescribeClusterVersions +instance NFData DescribeClusterVersions+ instance ToHeaders DescribeClusterVersions where         toHeaders = const mempty @@ -207,3 +209,5 @@ -- | The response status code. dcvrsResponseStatus :: Lens' DescribeClusterVersionsResponse Int dcvrsResponseStatus = lens _dcvrsResponseStatus (\ s a -> s{_dcvrsResponseStatus = a});++instance NFData DescribeClusterVersionsResponse

@@ -170,6 +170,8 @@  instance Hashable DescribeClusters +instance NFData DescribeClusters+ instance ToHeaders DescribeClusters where         toHeaders = const mempty @@ -232,3 +234,5 @@ -- | The response status code. dcrsResponseStatus :: Lens' DescribeClustersResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});++instance NFData DescribeClustersResponse

@@ -138,6 +138,8 @@  instance Hashable DescribeDefaultClusterParameters +instance NFData DescribeDefaultClusterParameters+ instance ToHeaders DescribeDefaultClusterParameters          where         toHeaders = const mempty@@ -187,3 +189,6 @@ -- | Undocumented member. ddcprsDefaultClusterParameters :: Lens' DescribeDefaultClusterParametersResponse DefaultClusterParameters ddcprsDefaultClusterParameters = lens _ddcprsDefaultClusterParameters (\ s a -> s{_ddcprsDefaultClusterParameters = a});++instance NFData+         DescribeDefaultClusterParametersResponse

@@ -86,6 +86,8 @@  instance Hashable DescribeEventCategories +instance NFData DescribeEventCategories+ instance ToHeaders DescribeEventCategories where         toHeaders = const mempty @@ -131,3 +133,5 @@ -- | The response status code. decrsResponseStatus :: Lens' DescribeEventCategoriesResponse Int decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a});++instance NFData DescribeEventCategoriesResponse

@@ -126,6 +126,8 @@  instance Hashable DescribeEventSubscriptions +instance NFData DescribeEventSubscriptions+ instance ToHeaders DescribeEventSubscriptions where         toHeaders = const mempty @@ -186,3 +188,5 @@ -- | The response status code. desrsResponseStatus :: Lens' DescribeEventSubscriptionsResponse Int desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});++instance NFData DescribeEventSubscriptionsResponse

@@ -201,6 +201,8 @@  instance Hashable DescribeEvents +instance NFData DescribeEvents+ instance ToHeaders DescribeEvents where         toHeaders = const mempty @@ -262,3 +264,5 @@ -- | The response status code. dersResponseStatus :: Lens' DescribeEventsResponse Int dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a});++instance NFData DescribeEventsResponse

@@ -170,6 +170,8 @@  instance Hashable DescribeHSMClientCertificates +instance NFData DescribeHSMClientCertificates+ instance ToHeaders DescribeHSMClientCertificates          where         toHeaders = const mempty@@ -238,3 +240,5 @@ -- | The response status code. dhccrsResponseStatus :: Lens' DescribeHSMClientCertificatesResponse Int dhccrsResponseStatus = lens _dhccrsResponseStatus (\ s a -> s{_dhccrsResponseStatus = a});++instance NFData DescribeHSMClientCertificatesResponse

@@ -166,6 +166,8 @@  instance Hashable DescribeHSMConfigurations +instance NFData DescribeHSMConfigurations+ instance ToHeaders DescribeHSMConfigurations where         toHeaders = const mempty @@ -231,3 +233,5 @@ -- | The response status code. dhcrsResponseStatus :: Lens' DescribeHSMConfigurationsResponse Int dhcrsResponseStatus = lens _dhcrsResponseStatus (\ s a -> s{_dhcrsResponseStatus = a});++instance NFData DescribeHSMConfigurationsResponse

@@ -82,6 +82,8 @@  instance Hashable DescribeLoggingStatus +instance NFData DescribeLoggingStatus+ instance ToHeaders DescribeLoggingStatus where         toHeaders = const mempty 

@@ -152,6 +152,8 @@  instance Hashable DescribeOrderableClusterOptions +instance NFData DescribeOrderableClusterOptions+ instance ToHeaders DescribeOrderableClusterOptions          where         toHeaders = const mempty@@ -216,3 +218,6 @@ -- | The response status code. docorsResponseStatus :: Lens' DescribeOrderableClusterOptionsResponse Int docorsResponseStatus = lens _docorsResponseStatus (\ s a -> s{_docorsResponseStatus = a});++instance NFData+         DescribeOrderableClusterOptionsResponse

@@ -135,6 +135,8 @@  instance Hashable DescribeReservedNodeOfferings +instance NFData DescribeReservedNodeOfferings+ instance ToHeaders DescribeReservedNodeOfferings          where         toHeaders = const mempty@@ -197,3 +199,5 @@ -- | The response status code. drnorsResponseStatus :: Lens' DescribeReservedNodeOfferingsResponse Int drnorsResponseStatus = lens _drnorsResponseStatus (\ s a -> s{_drnorsResponseStatus = a});++instance NFData DescribeReservedNodeOfferingsResponse

@@ -122,6 +122,8 @@  instance Hashable DescribeReservedNodes +instance NFData DescribeReservedNodes+ instance ToHeaders DescribeReservedNodes where         toHeaders = const mempty @@ -181,3 +183,5 @@ -- | The response status code. drnrsResponseStatus :: Lens' DescribeReservedNodesResponse Int drnrsResponseStatus = lens _drnrsResponseStatus (\ s a -> s{_drnrsResponseStatus = a});++instance NFData DescribeReservedNodesResponse

@@ -116,6 +116,8 @@  instance Hashable DescribeResize +instance NFData DescribeResize+ instance ToHeaders DescribeResize where         toHeaders = const mempty @@ -273,3 +275,5 @@ -- | The response status code. drrsResponseStatus :: Lens' DescribeResizeResponse Int drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});++instance NFData DescribeResizeResponse

@@ -149,6 +149,8 @@  instance Hashable DescribeSnapshotCopyGrants +instance NFData DescribeSnapshotCopyGrants+ instance ToHeaders DescribeSnapshotCopyGrants where         toHeaders = const mempty @@ -217,3 +219,5 @@ -- | The response status code. dscgrsResponseStatus :: Lens' DescribeSnapshotCopyGrantsResponse Int dscgrsResponseStatus = lens _dscgrsResponseStatus (\ s a -> s{_dscgrsResponseStatus = a});++instance NFData DescribeSnapshotCopyGrantsResponse

@@ -21,9 +21,10 @@ -- Lists the status of one or more table restore requests made using the -- < RestoreTableFromClusterSnapshot> API action. If you don\'t specify a -- value for the 'TableRestoreRequestId' parameter, then--- 'DescribeTableRestoreStatus' returns the status of all in-progress table--- restore requests. Otherwise 'DescribeTableRestoreStatus' returns the--- status of the table specified by 'TableRestoreRequestId'.+-- 'DescribeTableRestoreStatus' returns the status of all table restore+-- requests ordered by the date and time of the request in ascending order.+-- Otherwise 'DescribeTableRestoreStatus' returns the status of the table+-- specified by 'TableRestoreRequestId'. module Network.AWS.Redshift.DescribeTableRestoreStatus     (     -- * Creating a Request@@ -121,6 +122,8 @@  instance Hashable DescribeTableRestoreStatus +instance NFData DescribeTableRestoreStatus+ instance ToHeaders DescribeTableRestoreStatus where         toHeaders = const mempty @@ -177,3 +180,5 @@ -- | The response status code. dtrsrsResponseStatus :: Lens' DescribeTableRestoreStatusResponse Int dtrsrsResponseStatus = lens _dtrsrsResponseStatus (\ s a -> s{_dtrsrsResponseStatus = a});++instance NFData DescribeTableRestoreStatusResponse

@@ -183,6 +183,8 @@  instance Hashable DescribeTags +instance NFData DescribeTags+ instance ToHeaders DescribeTags where         toHeaders = const mempty @@ -246,3 +248,5 @@ -- | The response status code. dtrsResponseStatus :: Lens' DescribeTagsResponse Int dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});++instance NFData DescribeTagsResponse

@@ -82,6 +82,8 @@  instance Hashable DisableLogging +instance NFData DisableLogging+ instance ToHeaders DisableLogging where         toHeaders = const mempty 

@@ -88,6 +88,8 @@  instance Hashable DisableSnapshotCopy +instance NFData DisableSnapshotCopy+ instance ToHeaders DisableSnapshotCopy where         toHeaders = const mempty @@ -130,3 +132,5 @@ -- | The response status code. dscrsResponseStatus :: Lens' DisableSnapshotCopyResponse Int dscrsResponseStatus = lens _dscrsResponseStatus (\ s a -> s{_dscrsResponseStatus = a});++instance NFData DisableSnapshotCopyResponse

@@ -118,6 +118,8 @@  instance Hashable EnableLogging +instance NFData EnableLogging+ instance ToHeaders EnableLogging where         toHeaders = const mempty 

@@ -121,6 +121,8 @@  instance Hashable EnableSnapshotCopy +instance NFData EnableSnapshotCopy+ instance ToHeaders EnableSnapshotCopy where         toHeaders = const mempty @@ -166,3 +168,5 @@ -- | The response status code. escrsResponseStatus :: Lens' EnableSnapshotCopyResponse Int escrsResponseStatus = lens _escrsResponseStatus (\ s a -> s{_escrsResponseStatus = a});++instance NFData EnableSnapshotCopyResponse

@@ -367,6 +367,8 @@  instance Hashable ModifyCluster +instance NFData ModifyCluster+ instance ToHeaders ModifyCluster where         toHeaders = const mempty @@ -436,3 +438,5 @@ -- | The response status code. mcrsResponseStatus :: Lens' ModifyClusterResponse Int mcrsResponseStatus = lens _mcrsResponseStatus (\ s a -> s{_mcrsResponseStatus = a});++instance NFData ModifyClusterResponse

@@ -0,0 +1,158 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Redshift.ModifyClusterIAMRoles+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the list of AWS Identity and Access Management (IAM) roles that+-- can be used by the cluster to access other AWS services.+--+-- A cluster can have up to 10 IAM roles associated at any time.+module Network.AWS.Redshift.ModifyClusterIAMRoles+    (+    -- * Creating a Request+      modifyClusterIAMRoles+    , ModifyClusterIAMRoles+    -- * Request Lenses+    , mcirRemoveIAMRoles+    , mcirAddIAMRoles+    , mcirClusterIdentifier++    -- * Destructuring the Response+    , modifyClusterIAMRolesResponse+    , ModifyClusterIAMRolesResponse+    -- * Response Lenses+    , mcirrsCluster+    , mcirrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Redshift.Types+import           Network.AWS.Redshift.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response++-- |+--+-- /See:/ 'modifyClusterIAMRoles' smart constructor.+data ModifyClusterIAMRoles = ModifyClusterIAMRoles'+    { _mcirRemoveIAMRoles    :: !(Maybe [Text])+    , _mcirAddIAMRoles       :: !(Maybe [Text])+    , _mcirClusterIdentifier :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ModifyClusterIAMRoles' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mcirRemoveIAMRoles'+--+-- * 'mcirAddIAMRoles'+--+-- * 'mcirClusterIdentifier'+modifyClusterIAMRoles+    :: Text -- ^ 'mcirClusterIdentifier'+    -> ModifyClusterIAMRoles+modifyClusterIAMRoles pClusterIdentifier_ =+    ModifyClusterIAMRoles'+    { _mcirRemoveIAMRoles = Nothing+    , _mcirAddIAMRoles = Nothing+    , _mcirClusterIdentifier = pClusterIdentifier_+    }++-- | Zero or more IAM roles (in their 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;++-- | Zero or more IAM roles (in their ARN format) to associate with the+-- cluster. 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;++-- | 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});++instance AWSRequest ModifyClusterIAMRoles where+        type Rs ModifyClusterIAMRoles =+             ModifyClusterIAMRolesResponse+        request = postQuery redshift+        response+          = receiveXMLWrapper "ModifyClusterIamRolesResult"+              (\ s h x ->+                 ModifyClusterIAMRolesResponse' <$>+                   (x .@? "Cluster") <*> (pure (fromEnum s)))++instance Hashable ModifyClusterIAMRoles++instance NFData ModifyClusterIAMRoles++instance ToHeaders ModifyClusterIAMRoles where+        toHeaders = const mempty++instance ToPath ModifyClusterIAMRoles where+        toPath = const "/"++instance ToQuery ModifyClusterIAMRoles where+        toQuery ModifyClusterIAMRoles'{..}+          = mconcat+              ["Action" =: ("ModifyClusterIamRoles" :: ByteString),+               "Version" =: ("2012-12-01" :: ByteString),+               "RemoveIamRoles" =:+                 toQuery+                   (toQueryList "IamRoleArn" <$> _mcirRemoveIAMRoles),+               "AddIamRoles" =:+                 toQuery+                   (toQueryList "IamRoleArn" <$> _mcirAddIAMRoles),+               "ClusterIdentifier" =: _mcirClusterIdentifier]++-- | /See:/ 'modifyClusterIAMRolesResponse' smart constructor.+data ModifyClusterIAMRolesResponse = ModifyClusterIAMRolesResponse'+    { _mcirrsCluster        :: !(Maybe Cluster)+    , _mcirrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ModifyClusterIAMRolesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mcirrsCluster'+--+-- * 'mcirrsResponseStatus'+modifyClusterIAMRolesResponse+    :: Int -- ^ 'mcirrsResponseStatus'+    -> ModifyClusterIAMRolesResponse+modifyClusterIAMRolesResponse pResponseStatus_ =+    ModifyClusterIAMRolesResponse'+    { _mcirrsCluster = Nothing+    , _mcirrsResponseStatus = pResponseStatus_+    }++-- | Undocumented member.+mcirrsCluster :: Lens' ModifyClusterIAMRolesResponse (Maybe Cluster)+mcirrsCluster = lens _mcirrsCluster (\ s a -> s{_mcirrsCluster = a});++-- | The response status code.+mcirrsResponseStatus :: Lens' ModifyClusterIAMRolesResponse Int+mcirrsResponseStatus = lens _mcirrsResponseStatus (\ s a -> s{_mcirrsResponseStatus = a});++instance NFData ModifyClusterIAMRolesResponse

@@ -98,6 +98,8 @@  instance Hashable ModifyClusterParameterGroup +instance NFData ModifyClusterParameterGroup+ instance ToHeaders ModifyClusterParameterGroup where         toHeaders = const mempty 

@@ -99,6 +99,8 @@  instance Hashable ModifyClusterSubnetGroup +instance NFData ModifyClusterSubnetGroup+ instance ToHeaders ModifyClusterSubnetGroup where         toHeaders = const mempty @@ -146,3 +148,5 @@ -- | The response status code. mcsgrsResponseStatus :: Lens' ModifyClusterSubnetGroupResponse Int mcsgrsResponseStatus = lens _mcsgrsResponseStatus (\ s a -> s{_mcsgrsResponseStatus = a});++instance NFData ModifyClusterSubnetGroupResponse

@@ -156,6 +156,8 @@  instance Hashable ModifyEventSubscription +instance NFData ModifyEventSubscription+ instance ToHeaders ModifyEventSubscription where         toHeaders = const mempty @@ -209,3 +211,5 @@ -- | The response status code. mesrsResponseStatus :: Lens' ModifyEventSubscriptionResponse Int mesrsResponseStatus = lens _mesrsResponseStatus (\ s a -> s{_mesrsResponseStatus = a});++instance NFData ModifyEventSubscriptionResponse

@@ -104,6 +104,8 @@  instance Hashable ModifySnapshotCopyRetentionPeriod +instance NFData ModifySnapshotCopyRetentionPeriod+ instance ToHeaders ModifySnapshotCopyRetentionPeriod          where         toHeaders = const mempty@@ -151,3 +153,6 @@ -- | The response status code. mscrprsResponseStatus :: Lens' ModifySnapshotCopyRetentionPeriodResponse Int mscrprsResponseStatus = lens _mscrprsResponseStatus (\ s a -> s{_mscrprsResponseStatus = a});++instance NFData+         ModifySnapshotCopyRetentionPeriodResponse

@@ -101,6 +101,8 @@  instance Hashable PurchaseReservedNodeOffering +instance NFData PurchaseReservedNodeOffering+ instance ToHeaders PurchaseReservedNodeOffering where         toHeaders = const mempty @@ -146,3 +148,5 @@ -- | The response status code. prnorsResponseStatus :: Lens' PurchaseReservedNodeOfferingResponse Int prnorsResponseStatus = lens _prnorsResponseStatus (\ s a -> s{_prnorsResponseStatus = a});++instance NFData PurchaseReservedNodeOfferingResponse

@@ -84,6 +84,8 @@  instance Hashable RebootCluster +instance NFData RebootCluster+ instance ToHeaders RebootCluster where         toHeaders = const mempty @@ -126,3 +128,5 @@ -- | The response status code. rcrsResponseStatus :: Lens' RebootClusterResponse Int rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a});++instance NFData RebootClusterResponse

@@ -106,6 +106,8 @@  instance Hashable ResetClusterParameterGroup +instance NFData ResetClusterParameterGroup+ instance ToHeaders ResetClusterParameterGroup where         toHeaders = const mempty 

@@ -53,6 +53,7 @@     , rfcsKMSKeyId     , rfcsAvailabilityZone     , rfcsVPCSecurityGroupIds+    , rfcsIAMRoles     , rfcsOwnerAccount     , rfcsNodeType     , rfcsAllowVersionUpgrade@@ -93,6 +94,7 @@     , _rfcsKMSKeyId                         :: !(Maybe Text)     , _rfcsAvailabilityZone                 :: !(Maybe Text)     , _rfcsVPCSecurityGroupIds              :: !(Maybe [Text])+    , _rfcsIAMRoles                         :: !(Maybe [Text])     , _rfcsOwnerAccount                     :: !(Maybe Text)     , _rfcsNodeType                         :: !(Maybe Text)     , _rfcsAllowVersionUpgrade              :: !(Maybe Bool)@@ -132,6 +134,8 @@ -- -- * 'rfcsVPCSecurityGroupIds' --+-- * 'rfcsIAMRoles'+-- -- * 'rfcsOwnerAccount' -- -- * 'rfcsNodeType'@@ -164,6 +168,7 @@     , _rfcsKMSKeyId = Nothing     , _rfcsAvailabilityZone = Nothing     , _rfcsVPCSecurityGroupIds = Nothing+    , _rfcsIAMRoles = Nothing     , _rfcsOwnerAccount = Nothing     , _rfcsNodeType = Nothing     , _rfcsAllowVersionUpgrade = Nothing@@ -269,6 +274,15 @@ rfcsVPCSecurityGroupIds :: Lens' RestoreFromClusterSnapshot [Text] 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;+ -- | 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.@@ -352,6 +366,8 @@  instance Hashable RestoreFromClusterSnapshot +instance NFData RestoreFromClusterSnapshot+ instance ToHeaders RestoreFromClusterSnapshot where         toHeaders = const mempty @@ -389,6 +405,8 @@                  toQuery                    (toQueryList "VpcSecurityGroupId" <$>                       _rfcsVPCSecurityGroupIds),+               "IamRoles" =:+                 toQuery (toQueryList "IamRoleArn" <$> _rfcsIAMRoles),                "OwnerAccount" =: _rfcsOwnerAccount,                "NodeType" =: _rfcsNodeType,                "AllowVersionUpgrade" =: _rfcsAllowVersionUpgrade,@@ -427,3 +445,5 @@ -- | The response status code. rfcsrsResponseStatus :: Lens' RestoreFromClusterSnapshotResponse Int rfcsrsResponseStatus = lens _rfcsrsResponseStatus (\ s a -> s{_rfcsrsResponseStatus = a});++instance NFData RestoreFromClusterSnapshotResponse

@@ -121,6 +121,8 @@ 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}); @@ -160,6 +162,8 @@  instance Hashable RestoreTableFromClusterSnapshot +instance NFData RestoreTableFromClusterSnapshot+ instance ToHeaders RestoreTableFromClusterSnapshot          where         toHeaders = const mempty@@ -212,3 +216,6 @@ -- | The response status code. rtfcsrsResponseStatus :: Lens' RestoreTableFromClusterSnapshotResponse Int rtfcsrsResponseStatus = lens _rtfcsrsResponseStatus (\ s a -> s{_rtfcsrsResponseStatus = a});++instance NFData+         RestoreTableFromClusterSnapshotResponse

@@ -124,6 +124,8 @@  instance Hashable RevokeClusterSecurityGroupIngress +instance NFData RevokeClusterSecurityGroupIngress+ instance ToHeaders RevokeClusterSecurityGroupIngress          where         toHeaders = const mempty@@ -175,3 +177,6 @@ -- | The response status code. rcsgirsResponseStatus :: Lens' RevokeClusterSecurityGroupIngressResponse Int rcsgirsResponseStatus = lens _rcsgirsResponseStatus (\ s a -> s{_rcsgirsResponseStatus = a});++instance NFData+         RevokeClusterSecurityGroupIngressResponse

@@ -107,6 +107,8 @@  instance Hashable RevokeSnapshotAccess +instance NFData RevokeSnapshotAccess+ instance ToHeaders RevokeSnapshotAccess where         toHeaders = const mempty @@ -153,3 +155,5 @@ -- | The response status code. rsarsResponseStatus :: Lens' RevokeSnapshotAccessResponse Int rsarsResponseStatus = lens _rsarsResponseStatus (\ s a -> s{_rsarsResponseStatus = a});++instance NFData RevokeSnapshotAccessResponse

@@ -82,6 +82,8 @@  instance Hashable RotateEncryptionKey +instance NFData RotateEncryptionKey+ instance ToHeaders RotateEncryptionKey where         toHeaders = const mempty @@ -124,3 +126,5 @@ -- | The response status code. rekrsResponseStatus :: Lens' RotateEncryptionKeyResponse Int rekrsResponseStatus = lens _rekrsResponseStatus (\ s a -> s{_rekrsResponseStatus = a});++instance NFData RotateEncryptionKeyResponse

@@ -142,6 +142,7 @@     , cAvailabilityZone     , cVPCSecurityGroups     , cHSMStatus+    , cIAMRoles     , cElasticIPStatus     , cClusterVersion     , cNodeType@@ -154,6 +155,12 @@     , cClusterNodes     , cDBName +    -- * ClusterIAMRole+    , ClusterIAMRole+    , clusterIAMRole+    , cirIAMRoleARN+    , cirApplyStatus+     -- * ClusterNode     , ClusterNode     , clusterNode@@ -529,6 +536,8 @@       | has (hasCode "ThrottlingException" . hasStatus 400) e =           Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"       | has (hasStatus 509) e = Just "limit_exceeded"

@@ -51,6 +51,8 @@  instance Hashable AccountWithRestoreAccess +instance NFData AccountWithRestoreAccess+ -- | Describes an availability zone. -- -- /See:/ 'availabilityZone' smart constructor.@@ -79,6 +81,8 @@  instance Hashable AvailabilityZone +instance NFData AvailabilityZone+ -- | Describes a cluster. -- -- /See:/ 'cluster' smart constructor.@@ -103,6 +107,7 @@     , _cAvailabilityZone                 :: !(Maybe Text)     , _cVPCSecurityGroups                :: !(Maybe [VPCSecurityGroupMembership])     , _cHSMStatus                        :: !(Maybe HSMStatus)+    , _cIAMRoles                         :: !(Maybe [ClusterIAMRole])     , _cElasticIPStatus                  :: !(Maybe ElasticIPStatus)     , _cClusterVersion                   :: !(Maybe Text)     , _cNodeType                         :: !(Maybe Text)@@ -160,6 +165,8 @@ -- -- * 'cHSMStatus' --+-- * 'cIAMRoles'+-- -- * 'cElasticIPStatus' -- -- * 'cClusterVersion'@@ -205,6 +212,7 @@     , _cAvailabilityZone = Nothing     , _cVPCSecurityGroups = Nothing     , _cHSMStatus = Nothing+    , _cIAMRoles = Nothing     , _cElasticIPStatus = Nothing     , _cClusterVersion = Nothing     , _cNodeType = Nothing@@ -317,6 +325,11 @@ 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});@@ -413,6 +426,9 @@                 (x .@? "VpcSecurityGroups" .!@ mempty >>=                    may (parseXMLList "VpcSecurityGroup"))                 <*> (x .@? "HsmStatus")+                <*>+                (x .@? "IamRoles" .!@ mempty >>=+                   may (parseXMLList "ClusterIamRole"))                 <*> (x .@? "ElasticIpStatus")                 <*> (x .@? "ClusterVersion")                 <*> (x .@? "NodeType")@@ -431,6 +447,59 @@  instance Hashable Cluster +instance NFData Cluster++-- | 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'+--+-- * 'cirApplyStatus'+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});++-- | 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++instance NFData ClusterIAMRole+ -- | The identifier of a node in a cluster. -- -- /See:/ 'clusterNode' smart constructor.@@ -478,6 +547,8 @@  instance Hashable ClusterNode +instance NFData ClusterNode+ -- | Describes a parameter group. -- -- /See:/ 'clusterParameterGroup' smart constructor.@@ -538,6 +609,8 @@  instance Hashable ClusterParameterGroup +instance NFData ClusterParameterGroup+ -- | -- -- /See:/ 'clusterParameterGroupNameMessage' smart constructor.@@ -580,6 +653,8 @@  instance Hashable ClusterParameterGroupNameMessage +instance NFData ClusterParameterGroupNameMessage+ -- | Describes the status of a parameter group. -- -- /See:/ 'clusterParameterGroupStatus' smart constructor.@@ -633,6 +708,8 @@  instance Hashable ClusterParameterGroupStatus +instance NFData ClusterParameterGroupStatus+ -- | Describes the status of a parameter group. -- -- /See:/ 'clusterParameterStatus' smart constructor.@@ -699,6 +776,8 @@  instance Hashable ClusterParameterStatus +instance NFData ClusterParameterStatus+ -- | Describes a security group. -- -- /See:/ 'clusterSecurityGroup' smart constructor.@@ -773,6 +852,8 @@  instance Hashable ClusterSecurityGroup +instance NFData ClusterSecurityGroup+ -- | Describes a cluster security group. -- -- /See:/ 'clusterSecurityGroupMembership' smart constructor.@@ -812,6 +893,8 @@  instance Hashable ClusterSecurityGroupMembership +instance NFData ClusterSecurityGroupMembership+ -- | Returns the destination region and retention period that are configured -- for cross-region snapshot copy. --@@ -863,6 +946,8 @@  instance Hashable ClusterSnapshotCopyStatus +instance NFData ClusterSnapshotCopyStatus+ -- | Describes a subnet group. -- -- /See:/ 'clusterSubnetGroup' smart constructor.@@ -942,6 +1027,8 @@  instance Hashable ClusterSubnetGroup +instance NFData ClusterSubnetGroup+ -- | Describes a cluster version, including the parameter group family and -- description of the version. --@@ -991,6 +1078,8 @@  instance Hashable ClusterVersion +instance NFData ClusterVersion+ -- | Describes the default cluster parameters for a parameter group family. -- -- /See:/ 'defaultClusterParameters' smart constructor.@@ -1046,6 +1135,8 @@  instance Hashable DefaultClusterParameters +instance NFData DefaultClusterParameters+ -- | Describes an Amazon EC2 security group. -- -- /See:/ 'ec2SecurityGroup' smart constructor.@@ -1106,6 +1197,8 @@  instance Hashable EC2SecurityGroup +instance NFData EC2SecurityGroup+ -- | Describes the status of the elastic IP (EIP) address. -- -- /See:/ 'elasticIPStatus' smart constructor.@@ -1144,6 +1237,8 @@  instance Hashable ElasticIPStatus +instance NFData ElasticIPStatus+ -- | Describes a connection endpoint. -- -- /See:/ 'endpoint' smart constructor.@@ -1181,6 +1276,8 @@  instance Hashable Endpoint +instance NFData Endpoint+ -- | Describes an event. -- -- /See:/ 'event' smart constructor.@@ -1270,6 +1367,8 @@  instance Hashable Event +instance NFData Event+ -- | Describes event categories. -- -- /See:/ 'eventCategoriesMap' smart constructor.@@ -1311,6 +1410,8 @@  instance Hashable EventCategoriesMap +instance NFData EventCategoriesMap+ -- | Describes event information. -- -- /See:/ 'eventInfoMap' smart constructor.@@ -1370,6 +1471,8 @@  instance Hashable EventInfoMap +instance NFData EventInfoMap+ -- | Describes event subscriptions. -- -- /See:/ 'eventSubscription' smart constructor.@@ -1516,6 +1619,8 @@  instance Hashable EventSubscription +instance NFData EventSubscription+ -- | 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.@@ -1569,6 +1674,8 @@  instance Hashable HSMClientCertificate +instance NFData HSMClientCertificate+ -- | 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.@@ -1641,6 +1748,8 @@  instance Hashable HSMConfiguration +instance NFData HSMConfiguration+ -- | Describes the status of changes to HSM settings. -- -- /See:/ 'hsmStatus' smart constructor.@@ -1695,6 +1804,8 @@  instance Hashable HSMStatus +instance NFData HSMStatus+ -- | Describes an IP range used in a security group. -- -- /See:/ 'ipRange' smart constructor.@@ -1743,6 +1854,8 @@  instance Hashable IPRange +instance NFData IPRange+ -- | Describes the status of logging for a cluster. -- -- /See:/ 'loggingStatus' smart constructor.@@ -1818,6 +1931,8 @@  instance Hashable LoggingStatus +instance NFData LoggingStatus+ -- | Describes an orderable cluster option. -- -- /See:/ 'orderableClusterOption' smart constructor.@@ -1876,6 +1991,8 @@  instance Hashable OrderableClusterOption +instance NFData OrderableClusterOption+ -- | Describes a parameter in a cluster parameter group. -- -- /See:/ 'parameter' smart constructor.@@ -1985,6 +2102,8 @@  instance Hashable Parameter +instance NFData Parameter+ instance ToQuery Parameter where         toQuery Parameter'{..}           = mconcat@@ -2096,6 +2215,8 @@  instance Hashable PendingModifiedValues +instance NFData PendingModifiedValues+ -- | Describes a recurring charge. -- -- /See:/ 'recurringCharge' smart constructor.@@ -2136,6 +2257,8 @@  instance Hashable RecurringCharge +instance NFData RecurringCharge+ -- | Describes a reserved node. You can call the -- < DescribeReservedNodeOfferings> API to obtain the available reserved -- node offerings.@@ -2278,6 +2401,8 @@  instance Hashable ReservedNode +instance NFData ReservedNode+ -- | Describes a reserved node offering. -- -- /See:/ 'reservedNodeOffering' smart constructor.@@ -2378,6 +2503,8 @@  instance Hashable ReservedNodeOffering +instance NFData ReservedNodeOffering+ -- | Describes the status of a cluster restore action. Returns null if the -- cluster was not created by restoring a snapshot. --@@ -2459,6 +2586,8 @@  instance Hashable RestoreStatus +instance NFData RestoreStatus+ -- | Describes a snapshot. -- -- /See:/ 'snapshot' smart constructor.@@ -2763,6 +2892,8 @@  instance Hashable Snapshot +instance NFData Snapshot+ -- | 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.@@ -2820,6 +2951,8 @@  instance Hashable SnapshotCopyGrant +instance NFData SnapshotCopyGrant+ -- | Describes a subnet. -- -- /See:/ 'subnet' smart constructor.@@ -2867,6 +3000,8 @@  instance Hashable Subnet +instance NFData Subnet+ -- | Describes the status of a < RestoreTableFromClusterSnapshot> operation. -- -- /See:/ 'tableRestoreStatus' smart constructor.@@ -2940,7 +3075,7 @@  -- | A value that describes the current state of the table restore request. ----- Valid Values: 'SUCCEEDED', 'FAILED', 'CANCELLED', 'PENDING',+-- Valid Values: 'SUCCEEDED', 'FAILED', 'CANCELED', 'PENDING', -- 'IN_PROGRESS' trsStatus :: Lens' TableRestoreStatus (Maybe TableRestoreStatusType) trsStatus = lens _trsStatus (\ s a -> s{_trsStatus = a});@@ -2997,7 +3132,7 @@ trsProgressInMegaBytes = lens _trsProgressInMegaBytes (\ s a -> s{_trsProgressInMegaBytes = a});  -- | A description of the status of the table restore request. Status values--- include 'SUCCEEDED', 'FAILED', 'CANCELLED', 'PENDING', 'IN_PROGRESS'.+-- include 'SUCCEEDED', 'FAILED', 'CANCELED', 'PENDING', 'IN_PROGRESS'. trsMessage :: Lens' TableRestoreStatus (Maybe Text) trsMessage = lens _trsMessage (\ s a -> s{_trsMessage = a}); @@ -3020,6 +3155,8 @@  instance Hashable TableRestoreStatus +instance NFData TableRestoreStatus+ -- | A tag consisting of a name\/value pair for a resource. -- -- /See:/ 'tag' smart constructor.@@ -3057,6 +3194,8 @@  instance Hashable Tag +instance NFData Tag+ instance ToQuery Tag where         toQuery Tag'{..}           = mconcat ["Value" =: _tagValue, "Key" =: _tagKey]@@ -3125,6 +3264,8 @@  instance Hashable TaggedResource +instance NFData TaggedResource+ -- | Describes the members of a VPC security group. -- -- /See:/ 'vpcSecurityGroupMembership' smart constructor.@@ -3162,3 +3303,5 @@               (x .@? "Status") <*> (x .@? "VpcSecurityGroupId")  instance Hashable VPCSecurityGroupMembership++instance NFData VPCSecurityGroupMembership

@@ -37,6 +37,7 @@         Static -> "static"  instance Hashable     ParameterApplyType+instance NFData       ParameterApplyType instance ToByteString ParameterApplyType instance ToQuery      ParameterApplyType instance ToHeader     ParameterApplyType@@ -68,6 +69,7 @@         ClusterSnapshot -> "cluster-snapshot"  instance Hashable     SourceType+instance NFData       SourceType instance ToByteString SourceType instance ToQuery      SourceType instance ToHeader     SourceType@@ -102,6 +104,7 @@         Succeeded -> "SUCCEEDED"  instance Hashable     TableRestoreStatusType+instance NFData       TableRestoreStatusType instance ToByteString TableRestoreStatusType instance ToQuery      TableRestoreStatusType instance ToHeader     TableRestoreStatusType

@@ -91,6 +91,9 @@ --         , testModifySnapshotCopyRetentionPeriod $ --             modifySnapshotCopyRetentionPeriod --+--         , testModifyClusterIAMRoles $+--             modifyClusterIAMRoles+-- --         , testAuthorizeSnapshotAccess $ --             authorizeSnapshotAccess --@@ -277,6 +280,9 @@ --         , testModifySnapshotCopyRetentionPeriodResponse $ --             modifySnapshotCopyRetentionPeriodResponse --+--         , testModifyClusterIAMRolesResponse $+--             modifyClusterIAMRolesResponse+-- --         , testAuthorizeSnapshotAccessResponse $ --             authorizeSnapshotAccessResponse --@@ -507,6 +513,11 @@     "ModifySnapshotCopyRetentionPeriod"     "fixture/ModifySnapshotCopyRetentionPeriod.yaml" +testModifyClusterIAMRoles :: ModifyClusterIAMRoles -> TestTree+testModifyClusterIAMRoles = req+    "ModifyClusterIAMRoles"+    "fixture/ModifyClusterIAMRoles.yaml"+ testAuthorizeSnapshotAccess :: AuthorizeSnapshotAccess -> TestTree testAuthorizeSnapshotAccess = req     "AuthorizeSnapshotAccess"@@ -855,6 +866,13 @@     "fixture/ModifySnapshotCopyRetentionPeriodResponse.proto"     redshift     (Proxy :: Proxy ModifySnapshotCopyRetentionPeriod)++testModifyClusterIAMRolesResponse :: ModifyClusterIAMRolesResponse -> TestTree+testModifyClusterIAMRolesResponse = res+    "ModifyClusterIAMRolesResponse"+    "fixture/ModifyClusterIAMRolesResponse.proto"+    redshift+    (Proxy :: Proxy ModifyClusterIAMRoles)  testAuthorizeSnapshotAccessResponse :: AuthorizeSnapshotAccessResponse -> TestTree testAuthorizeSnapshotAccessResponse = res