amazonka-redshift 1.1.0 → 1.2.0

raw patch · 65 files changed

+158/−164 lines, 65 filesdep ~amazonka-coredep ~amazonka-redshiftdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

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

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-redshift-version:               1.1.0+version:               1.2.0 synopsis:              Amazon Redshift SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -134,7 +134,7 @@         , Network.AWS.Redshift.Types.Sum      build-depends:-          amazonka-core == 1.1.0.*+          amazonka-core == 1.2.0.*         , base          >= 4.7     && < 5  test-suite amazonka-redshift-test@@ -153,9 +153,9 @@         , Test.AWS.Redshift.Internal      build-depends:-          amazonka-core == 1.1.0-        , amazonka-test == 1.1.0-        , amazonka-redshift == 1.1.0+          amazonka-core == 1.2.0+        , amazonka-test == 1.2.0+        , amazonka-redshift == 1.2.0         , base         , bytestring         , lens

@@ -42,8 +42,8 @@ -- /See:/ <http://docs.aws.amazon.com/redshift/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.Redshift     (-    -- * Service-      Redshift+    -- * Service Configuration+      redshift      -- * Errors     -- $errors

@@ -118,11 +118,9 @@  instance AWSRequest          AuthorizeClusterSecurityGroupIngress where-        type Sv AuthorizeClusterSecurityGroupIngress =-             Redshift         type Rs AuthorizeClusterSecurityGroupIngress =              AuthorizeClusterSecurityGroupIngressResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "AuthorizeClusterSecurityGroupIngressResult"

@@ -96,10 +96,9 @@ asaAccountWithRestoreAccess = lens _asaAccountWithRestoreAccess (\ s a -> s{_asaAccountWithRestoreAccess = a});  instance AWSRequest AuthorizeSnapshotAccess where-        type Sv AuthorizeSnapshotAccess = Redshift         type Rs AuthorizeSnapshotAccess =              AuthorizeSnapshotAccessResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "AuthorizeSnapshotAccessResult"               (\ s h x ->

@@ -120,10 +120,9 @@ ccsTargetSnapshotIdentifier = lens _ccsTargetSnapshotIdentifier (\ s a -> s{_ccsTargetSnapshotIdentifier = a});  instance AWSRequest CopyClusterSnapshot where-        type Sv CopyClusterSnapshot = Redshift         type Rs CopyClusterSnapshot =              CopyClusterSnapshotResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "CopyClusterSnapshotResult"               (\ s h x ->

@@ -444,9 +444,8 @@ ccMasterUserPassword = lens _ccMasterUserPassword (\ s a -> s{_ccMasterUserPassword = a});  instance AWSRequest CreateCluster where-        type Sv CreateCluster = Redshift         type Rs CreateCluster = CreateClusterResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "CreateClusterResult"               (\ s h x ->

@@ -126,10 +126,9 @@ ccpgDescription = lens _ccpgDescription (\ s a -> s{_ccpgDescription = a});  instance AWSRequest CreateClusterParameterGroup where-        type Sv CreateClusterParameterGroup = Redshift         type Rs CreateClusterParameterGroup =              CreateClusterParameterGroupResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "CreateClusterParameterGroupResult"

@@ -102,10 +102,9 @@ creDescription = lens _creDescription (\ s a -> s{_creDescription = a});  instance AWSRequest CreateClusterSecurityGroup where-        type Sv CreateClusterSecurityGroup = Redshift         type Rs CreateClusterSecurityGroup =              CreateClusterSecurityGroupResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "CreateClusterSecurityGroupResult"

@@ -102,10 +102,9 @@ ccsClusterIdentifier = lens _ccsClusterIdentifier (\ s a -> s{_ccsClusterIdentifier = a});  instance AWSRequest CreateClusterSnapshot where-        type Sv CreateClusterSnapshot = Redshift         type Rs CreateClusterSnapshot =              CreateClusterSnapshotResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "CreateClusterSnapshotResult"               (\ s h x ->

@@ -113,10 +113,9 @@ ccsgSubnetIds = lens _ccsgSubnetIds (\ s a -> s{_ccsgSubnetIds = a}) . _Coerce;  instance AWSRequest CreateClusterSubnetGroup where-        type Sv CreateClusterSubnetGroup = Redshift         type Rs CreateClusterSubnetGroup =              CreateClusterSubnetGroupResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "CreateClusterSubnetGroupResult"               (\ s h x ->

@@ -186,10 +186,9 @@ cesSNSTopicARN = lens _cesSNSTopicARN (\ s a -> s{_cesSNSTopicARN = a});  instance AWSRequest CreateEventSubscription where-        type Sv CreateEventSubscription = Redshift         type Rs CreateEventSubscription =              CreateEventSubscriptionResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "CreateEventSubscriptionResult"               (\ s h x ->

@@ -89,10 +89,9 @@ chccHSMClientCertificateIdentifier = lens _chccHSMClientCertificateIdentifier (\ s a -> s{_chccHSMClientCertificateIdentifier = a});  instance AWSRequest CreateHSMClientCertificate where-        type Sv CreateHSMClientCertificate = Redshift         type Rs CreateHSMClientCertificate =              CreateHSMClientCertificateResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "CreateHsmClientCertificateResult"

@@ -140,10 +140,9 @@ chcHSMServerPublicCertificate = lens _chcHSMServerPublicCertificate (\ s a -> s{_chcHSMServerPublicCertificate = a});  instance AWSRequest CreateHSMConfiguration where-        type Sv CreateHSMConfiguration = Redshift         type Rs CreateHSMConfiguration =              CreateHSMConfigurationResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "CreateHsmConfigurationResult"               (\ s h x ->

@@ -103,10 +103,9 @@ cscgSnapshotCopyGrantName = lens _cscgSnapshotCopyGrantName (\ s a -> s{_cscgSnapshotCopyGrantName = a});  instance AWSRequest CreateSnapshotCopyGrant where-        type Sv CreateSnapshotCopyGrant = Redshift         type Rs CreateSnapshotCopyGrant =              CreateSnapshotCopyGrantResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "CreateSnapshotCopyGrantResult"               (\ s h x ->

@@ -87,9 +87,8 @@ ctTags = lens _ctTags (\ s a -> s{_ctTags = a}) . _Coerce;  instance AWSRequest CreateTags where-        type Sv CreateTags = Redshift         type Rs CreateTags = CreateTagsResponse-        request = postQuery+        request = postQuery redshift         response = receiveNull CreateTagsResponse'  instance ToHeaders CreateTags where

@@ -127,9 +127,8 @@ dClusterIdentifier = lens _dClusterIdentifier (\ s a -> s{_dClusterIdentifier = a});  instance AWSRequest DeleteCluster where-        type Sv DeleteCluster = Redshift         type Rs DeleteCluster = DeleteClusterResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DeleteClusterResult"               (\ s h x ->

@@ -71,10 +71,9 @@ dParameterGroupName = lens _dParameterGroupName (\ s a -> s{_dParameterGroupName = a});  instance AWSRequest DeleteClusterParameterGroup where-        type Sv DeleteClusterParameterGroup = Redshift         type Rs DeleteClusterParameterGroup =              DeleteClusterParameterGroupResponse-        request = postQuery+        request = postQuery redshift         response           = receiveNull DeleteClusterParameterGroupResponse' 

@@ -72,10 +72,9 @@ dClusterSecurityGroupName = lens _dClusterSecurityGroupName (\ s a -> s{_dClusterSecurityGroupName = a});  instance AWSRequest DeleteClusterSecurityGroup where-        type Sv DeleteClusterSecurityGroup = Redshift         type Rs DeleteClusterSecurityGroup =              DeleteClusterSecurityGroupResponse-        request = postQuery+        request = postQuery redshift         response           = receiveNull DeleteClusterSecurityGroupResponse' 

@@ -94,10 +94,9 @@ dcsSnapshotIdentifier = lens _dcsSnapshotIdentifier (\ s a -> s{_dcsSnapshotIdentifier = a});  instance AWSRequest DeleteClusterSnapshot where-        type Sv DeleteClusterSnapshot = Redshift         type Rs DeleteClusterSnapshot =              DeleteClusterSnapshotResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DeleteClusterSnapshotResult"               (\ s h x ->

@@ -63,10 +63,9 @@ dcsgClusterSubnetGroupName = lens _dcsgClusterSubnetGroupName (\ s a -> s{_dcsgClusterSubnetGroupName = a});  instance AWSRequest DeleteClusterSubnetGroup where-        type Sv DeleteClusterSubnetGroup = Redshift         type Rs DeleteClusterSubnetGroup =              DeleteClusterSubnetGroupResponse-        request = postQuery+        request = postQuery redshift         response           = receiveNull DeleteClusterSubnetGroupResponse' 

@@ -66,10 +66,9 @@ desSubscriptionName = lens _desSubscriptionName (\ s a -> s{_desSubscriptionName = a});  instance AWSRequest DeleteEventSubscription where-        type Sv DeleteEventSubscription = Redshift         type Rs DeleteEventSubscription =              DeleteEventSubscriptionResponse-        request = postQuery+        request = postQuery redshift         response           = receiveNull DeleteEventSubscriptionResponse' 

@@ -65,10 +65,9 @@ dhsmccHSMClientCertificateIdentifier = lens _dhsmccHSMClientCertificateIdentifier (\ s a -> s{_dhsmccHSMClientCertificateIdentifier = a});  instance AWSRequest DeleteHSMClientCertificate where-        type Sv DeleteHSMClientCertificate = Redshift         type Rs DeleteHSMClientCertificate =              DeleteHSMClientCertificateResponse-        request = postQuery+        request = postQuery redshift         response           = receiveNull DeleteHSMClientCertificateResponse' 

@@ -65,10 +65,9 @@ dhcHSMConfigurationIdentifier = lens _dhcHSMConfigurationIdentifier (\ s a -> s{_dhcHSMConfigurationIdentifier = a});  instance AWSRequest DeleteHSMConfiguration where-        type Sv DeleteHSMConfiguration = Redshift         type Rs DeleteHSMConfiguration =              DeleteHSMConfigurationResponse-        request = postQuery+        request = postQuery redshift         response           = receiveNull DeleteHSMConfigurationResponse' 

@@ -65,10 +65,9 @@ dscgSnapshotCopyGrantName = lens _dscgSnapshotCopyGrantName (\ s a -> s{_dscgSnapshotCopyGrantName = a});  instance AWSRequest DeleteSnapshotCopyGrant where-        type Sv DeleteSnapshotCopyGrant = Redshift         type Rs DeleteSnapshotCopyGrant =              DeleteSnapshotCopyGrantResponse-        request = postQuery+        request = postQuery redshift         response           = receiveNull DeleteSnapshotCopyGrantResponse' 

@@ -76,9 +76,8 @@ dTagKeys = lens _dTagKeys (\ s a -> s{_dTagKeys = a}) . _Coerce;  instance AWSRequest DeleteTags where-        type Sv DeleteTags = Redshift         type Rs DeleteTags = DeleteTagsResponse-        request = postQuery+        request = postQuery redshift         response = receiveNull DeleteTagsResponse'  instance ToHeaders DeleteTags where

@@ -162,10 +162,9 @@  instance AWSRequest DescribeClusterParameterGroups          where-        type Sv DescribeClusterParameterGroups = Redshift         type Rs DescribeClusterParameterGroups =              DescribeClusterParameterGroupsResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "DescribeClusterParameterGroupsResult"

@@ -135,10 +135,9 @@             Just $ rq & dcpsMarker .~ rs ^. dcprsMarker  instance AWSRequest DescribeClusterParameters where-        type Sv DescribeClusterParameters = Redshift         type Rs DescribeClusterParameters =              DescribeClusterParametersResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DescribeClusterParametersResult"               (\ s h x ->

@@ -162,10 +162,9 @@  instance AWSRequest DescribeClusterSecurityGroups          where-        type Sv DescribeClusterSecurityGroups = Redshift         type Rs DescribeClusterSecurityGroups =              DescribeClusterSecurityGroupsResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "DescribeClusterSecurityGroupsResult"

@@ -216,10 +216,9 @@             Just $ rq & dcssMarker .~ rs ^. dcssrsMarker  instance AWSRequest DescribeClusterSnapshots where-        type Sv DescribeClusterSnapshots = Redshift         type Rs DescribeClusterSnapshots =              DescribeClusterSnapshotsResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DescribeClusterSnapshotsResult"               (\ s h x ->

@@ -151,10 +151,9 @@             Just $ rq & dcsgsMarker .~ rs ^. dcsgrsMarker  instance AWSRequest DescribeClusterSubnetGroups where-        type Sv DescribeClusterSubnetGroups = Redshift         type Rs DescribeClusterSubnetGroups =              DescribeClusterSubnetGroupsResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "DescribeClusterSubnetGroupsResult"

@@ -130,10 +130,9 @@             Just $ rq & dcvMarker .~ rs ^. dcvrsMarker  instance AWSRequest DescribeClusterVersions where-        type Sv DescribeClusterVersions = Redshift         type Rs DescribeClusterVersions =              DescribeClusterVersionsResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DescribeClusterVersionsResult"               (\ s h x ->

@@ -158,9 +158,8 @@             Just $ rq & dcMarker .~ rs ^. dcrsMarker  instance AWSRequest DescribeClusters where-        type Sv DescribeClusters = Redshift         type Rs DescribeClusters = DescribeClustersResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DescribeClustersResult"               (\ s h x ->

@@ -126,10 +126,9 @@  instance AWSRequest DescribeDefaultClusterParameters          where-        type Sv DescribeDefaultClusterParameters = Redshift         type Rs DescribeDefaultClusterParameters =              DescribeDefaultClusterParametersResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "DescribeDefaultClusterParametersResult"

@@ -73,10 +73,9 @@ decSourceType = lens _decSourceType (\ s a -> s{_decSourceType = a});  instance AWSRequest DescribeEventCategories where-        type Sv DescribeEventCategories = Redshift         type Rs DescribeEventCategories =              DescribeEventCategoriesResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DescribeEventCategoriesResult"               (\ s h x ->

@@ -112,10 +112,9 @@             Just $ rq & dMarker .~ rs ^. desrsMarker  instance AWSRequest DescribeEventSubscriptions where-        type Sv DescribeEventSubscriptions = Redshift         type Rs DescribeEventSubscriptions =              DescribeEventSubscriptionsResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "DescribeEventSubscriptionsResult"

@@ -189,9 +189,8 @@             Just $ rq & deMarker .~ rs ^. dersMarker  instance AWSRequest DescribeEvents where-        type Sv DescribeEvents = Redshift         type Rs DescribeEvents = DescribeEventsResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DescribeEventsResult"               (\ s h x ->

@@ -155,10 +155,9 @@  instance AWSRequest DescribeHSMClientCertificates          where-        type Sv DescribeHSMClientCertificates = Redshift         type Rs DescribeHSMClientCertificates =              DescribeHSMClientCertificatesResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "DescribeHsmClientCertificatesResult"

@@ -153,10 +153,9 @@             Just $ rq & dhsmcMarker .~ rs ^. dhcrsMarker  instance AWSRequest DescribeHSMConfigurations where-        type Sv DescribeHSMConfigurations = Redshift         type Rs DescribeHSMConfigurations =              DescribeHSMConfigurationsResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DescribeHsmConfigurationsResult"               (\ s h x ->

@@ -75,9 +75,8 @@ dlsClusterIdentifier = lens _dlsClusterIdentifier (\ s a -> s{_dlsClusterIdentifier = a});  instance AWSRequest DescribeLoggingStatus where-        type Sv DescribeLoggingStatus = Redshift         type Rs DescribeLoggingStatus = LoggingStatus-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DescribeLoggingStatusResult"               (\ s h x -> parseXML x)

@@ -138,10 +138,9 @@  instance AWSRequest DescribeOrderableClusterOptions          where-        type Sv DescribeOrderableClusterOptions = Redshift         type Rs DescribeOrderableClusterOptions =              DescribeOrderableClusterOptionsResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "DescribeOrderableClusterOptionsResult"

@@ -120,10 +120,9 @@  instance AWSRequest DescribeReservedNodeOfferings          where-        type Sv DescribeReservedNodeOfferings = Redshift         type Rs DescribeReservedNodeOfferings =              DescribeReservedNodeOfferingsResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "DescribeReservedNodeOfferingsResult"

@@ -109,10 +109,9 @@             Just $ rq & drnMarker .~ rs ^. drnrsMarker  instance AWSRequest DescribeReservedNodes where-        type Sv DescribeReservedNodes = Redshift         type Rs DescribeReservedNodes =              DescribeReservedNodesResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DescribeReservedNodesResult"               (\ s h x ->

@@ -89,9 +89,8 @@ drClusterIdentifier = lens _drClusterIdentifier (\ s a -> s{_drClusterIdentifier = a});  instance AWSRequest DescribeResize where-        type Sv DescribeResize = Redshift         type Rs DescribeResize = DescribeResizeResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DescribeResizeResult"               (\ s h x ->

@@ -135,10 +135,9 @@ dscgsSnapshotCopyGrantName = lens _dscgsSnapshotCopyGrantName (\ s a -> s{_dscgsSnapshotCopyGrantName = a});  instance AWSRequest DescribeSnapshotCopyGrants where-        type Sv DescribeSnapshotCopyGrants = Redshift         type Rs DescribeSnapshotCopyGrants =              DescribeSnapshotCopyGrantsResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "DescribeSnapshotCopyGrantsResult"

@@ -171,9 +171,8 @@ dtMarker = lens _dtMarker (\ s a -> s{_dtMarker = a});  instance AWSRequest DescribeTags where-        type Sv DescribeTags = Redshift         type Rs DescribeTags = DescribeTagsResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DescribeTagsResult"               (\ s h x ->

@@ -75,9 +75,8 @@ dlClusterIdentifier = lens _dlClusterIdentifier (\ s a -> s{_dlClusterIdentifier = a});  instance AWSRequest DisableLogging where-        type Sv DisableLogging = Redshift         type Rs DisableLogging = LoggingStatus-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DisableLoggingResult"               (\ s h x -> parseXML x)

@@ -78,10 +78,9 @@ dscClusterIdentifier = lens _dscClusterIdentifier (\ s a -> s{_dscClusterIdentifier = a});  instance AWSRequest DisableSnapshotCopy where-        type Sv DisableSnapshotCopy = Redshift         type Rs DisableSnapshotCopy =              DisableSnapshotCopyResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "DisableSnapshotCopyResult"               (\ s h x ->

@@ -111,9 +111,8 @@ elBucketName = lens _elBucketName (\ s a -> s{_elBucketName = a});  instance AWSRequest EnableLogging where-        type Sv EnableLogging = Redshift         type Rs EnableLogging = LoggingStatus-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "EnableLoggingResult"               (\ s h x -> parseXML x)

@@ -111,10 +111,9 @@ escDestinationRegion = lens _escDestinationRegion (\ s a -> s{_escDestinationRegion = a});  instance AWSRequest EnableSnapshotCopy where-        type Sv EnableSnapshotCopy = Redshift         type Rs EnableSnapshotCopy =              EnableSnapshotCopyResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "EnableSnapshotCopyResult"               (\ s h x ->

@@ -331,9 +331,8 @@ mcClusterIdentifier = lens _mcClusterIdentifier (\ s a -> s{_mcClusterIdentifier = a});  instance AWSRequest ModifyCluster where-        type Sv ModifyCluster = Redshift         type Rs ModifyCluster = ModifyClusterResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "ModifyClusterResult"               (\ s h x ->

@@ -89,10 +89,9 @@ mcpgParameters = lens _mcpgParameters (\ s a -> s{_mcpgParameters = a}) . _Coerce;  instance AWSRequest ModifyClusterParameterGroup where-        type Sv ModifyClusterParameterGroup = Redshift         type Rs ModifyClusterParameterGroup =              ClusterParameterGroupNameMessage-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "ModifyClusterParameterGroupResult"

@@ -89,10 +89,9 @@ mcsgSubnetIds = lens _mcsgSubnetIds (\ s a -> s{_mcsgSubnetIds = a}) . _Coerce;  instance AWSRequest ModifyClusterSubnetGroup where-        type Sv ModifyClusterSubnetGroup = Redshift         type Rs ModifyClusterSubnetGroup =              ModifyClusterSubnetGroupResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "ModifyClusterSubnetGroupResult"               (\ s h x ->

@@ -146,10 +146,9 @@ mesSubscriptionName = lens _mesSubscriptionName (\ s a -> s{_mesSubscriptionName = a});  instance AWSRequest ModifyEventSubscription where-        type Sv ModifyEventSubscription = Redshift         type Rs ModifyEventSubscription =              ModifyEventSubscriptionResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "ModifyEventSubscriptionResult"               (\ s h x ->

@@ -93,10 +93,9 @@  instance AWSRequest ModifySnapshotCopyRetentionPeriod          where-        type Sv ModifySnapshotCopyRetentionPeriod = Redshift         type Rs ModifySnapshotCopyRetentionPeriod =              ModifySnapshotCopyRetentionPeriodResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "ModifySnapshotCopyRetentionPeriodResult"

@@ -90,10 +90,9 @@  instance AWSRequest PurchaseReservedNodeOffering          where-        type Sv PurchaseReservedNodeOffering = Redshift         type Rs PurchaseReservedNodeOffering =              PurchaseReservedNodeOfferingResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "PurchaseReservedNodeOfferingResult"

@@ -75,9 +75,8 @@ rcClusterIdentifier = lens _rcClusterIdentifier (\ s a -> s{_rcClusterIdentifier = a});  instance AWSRequest RebootCluster where-        type Sv RebootCluster = Redshift         type Rs RebootCluster = RebootClusterResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "RebootClusterResult"               (\ s h x ->

@@ -97,10 +97,9 @@ rcpgParameterGroupName = lens _rcpgParameterGroupName (\ s a -> s{_rcpgParameterGroupName = a});  instance AWSRequest ResetClusterParameterGroup where-        type Sv ResetClusterParameterGroup = Redshift         type Rs ResetClusterParameterGroup =              ClusterParameterGroupNameMessage-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "ResetClusterParameterGroupResult"

@@ -332,10 +332,9 @@ rfcsSnapshotIdentifier = lens _rfcsSnapshotIdentifier (\ s a -> s{_rfcsSnapshotIdentifier = a});  instance AWSRequest RestoreFromClusterSnapshot where-        type Sv RestoreFromClusterSnapshot = Redshift         type Rs RestoreFromClusterSnapshot =              RestoreFromClusterSnapshotResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "RestoreFromClusterSnapshotResult"

@@ -112,10 +112,9 @@  instance AWSRequest RevokeClusterSecurityGroupIngress          where-        type Sv RevokeClusterSecurityGroupIngress = Redshift         type Rs RevokeClusterSecurityGroupIngress =              RevokeClusterSecurityGroupIngressResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper               "RevokeClusterSecurityGroupIngressResult"

@@ -97,10 +97,9 @@ rsaAccountWithRestoreAccess = lens _rsaAccountWithRestoreAccess (\ s a -> s{_rsaAccountWithRestoreAccess = a});  instance AWSRequest RevokeSnapshotAccess where-        type Sv RevokeSnapshotAccess = Redshift         type Rs RevokeSnapshotAccess =              RevokeSnapshotAccessResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "RevokeSnapshotAccessResult"               (\ s h x ->

@@ -72,10 +72,9 @@ rekClusterIdentifier = lens _rekClusterIdentifier (\ s a -> s{_rekClusterIdentifier = a});  instance AWSRequest RotateEncryptionKey where-        type Sv RotateEncryptionKey = Redshift         type Rs RotateEncryptionKey =              RotateEncryptionKeyResponse-        request = postQuery+        request = postQuery redshift         response           = receiveXMLWrapper "RotateEncryptionKeyResult"               (\ s h x ->

@@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}  -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.Redshift.Types     (-    -- * Service-      Redshift+    -- * Service Configuration+      redshift      -- * Errors     , _LimitExceededFault@@ -476,39 +475,36 @@ import           Network.AWS.Redshift.Types.Sum import           Network.AWS.Sign.V4 --- | Version @2012-12-01@ of the Amazon Redshift SDK.-data Redshift--instance AWSService Redshift where-    type Sg Redshift = V4-    service = const svc-      where-        svc =-            Service-            { _svcAbbrev = "Redshift"-            , _svcPrefix = "redshift"-            , _svcVersion = "2012-12-01"-            , _svcEndpoint = defaultEndpoint svc-            , _svcTimeout = Just 70-            , _svcStatus = statusSuccess-            , _svcError = parseXMLError-            , _svcRetry = retry-            }-        retry =-            Exponential-            { _retryBase = 5.0e-2-            , _retryGrowth = 2-            , _retryAttempts = 5-            , _retryCheck = check-            }-        check e-          | has (hasCode "ThrottlingException" . hasStatus 400) e =-              Just "throttling_exception"-          | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-          | has (hasStatus 503) e = Just "service_unavailable"-          | has (hasStatus 500) e = Just "general_server_error"-          | has (hasStatus 509) e = Just "limit_exceeded"-          | otherwise = Nothing+-- | API version '2012-12-01' of the Amazon Redshift SDK configuration.+redshift :: Service+redshift =+    Service+    { _svcAbbrev = "Redshift"+    , _svcSigner = v4+    , _svcPrefix = "redshift"+    , _svcVersion = "2012-12-01"+    , _svcEndpoint = defaultEndpoint redshift+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError+    , _svcRetry = retry+    }+  where+    retry =+        Exponential+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }+    check e+      | has (hasCode "ThrottlingException" . hasStatus 400) e =+          Just "throttling_exception"+      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 503) e = Just "service_unavailable"+      | has (hasStatus 500) e = Just "general_server_error"+      | has (hasStatus 509) e = Just "limit_exceeded"+      | otherwise = Nothing  -- | The encryption key has exceeded its grant limit in AWS KMS. _LimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError

@@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE OverloadedStrings  #-} {-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-} 

@@ -691,352 +691,411 @@ testDescribeClustersResponse = res     "DescribeClustersResponse"     "fixture/DescribeClustersResponse"+    redshift     (Proxy :: Proxy DescribeClusters)  testDescribeTagsResponse :: DescribeTagsResponse -> TestTree testDescribeTagsResponse = res     "DescribeTagsResponse"     "fixture/DescribeTagsResponse"+    redshift     (Proxy :: Proxy DescribeTags)  testModifyEventSubscriptionResponse :: ModifyEventSubscriptionResponse -> TestTree testModifyEventSubscriptionResponse = res     "ModifyEventSubscriptionResponse"     "fixture/ModifyEventSubscriptionResponse"+    redshift     (Proxy :: Proxy ModifyEventSubscription)  testDisableLoggingResponse :: LoggingStatus -> TestTree testDisableLoggingResponse = res     "DisableLoggingResponse"     "fixture/DisableLoggingResponse"+    redshift     (Proxy :: Proxy DisableLogging)  testPurchaseReservedNodeOfferingResponse :: PurchaseReservedNodeOfferingResponse -> TestTree testPurchaseReservedNodeOfferingResponse = res     "PurchaseReservedNodeOfferingResponse"     "fixture/PurchaseReservedNodeOfferingResponse"+    redshift     (Proxy :: Proxy PurchaseReservedNodeOffering)  testDeleteClusterSubnetGroupResponse :: DeleteClusterSubnetGroupResponse -> TestTree testDeleteClusterSubnetGroupResponse = res     "DeleteClusterSubnetGroupResponse"     "fixture/DeleteClusterSubnetGroupResponse"+    redshift     (Proxy :: Proxy DeleteClusterSubnetGroup)  testDeleteClusterSnapshotResponse :: DeleteClusterSnapshotResponse -> TestTree testDeleteClusterSnapshotResponse = res     "DeleteClusterSnapshotResponse"     "fixture/DeleteClusterSnapshotResponse"+    redshift     (Proxy :: Proxy DeleteClusterSnapshot)  testDescribeEventsResponse :: DescribeEventsResponse -> TestTree testDescribeEventsResponse = res     "DescribeEventsResponse"     "fixture/DescribeEventsResponse"+    redshift     (Proxy :: Proxy DescribeEvents)  testDescribeReservedNodeOfferingsResponse :: DescribeReservedNodeOfferingsResponse -> TestTree testDescribeReservedNodeOfferingsResponse = res     "DescribeReservedNodeOfferingsResponse"     "fixture/DescribeReservedNodeOfferingsResponse"+    redshift     (Proxy :: Proxy DescribeReservedNodeOfferings)  testDescribeClusterParameterGroupsResponse :: DescribeClusterParameterGroupsResponse -> TestTree testDescribeClusterParameterGroupsResponse = res     "DescribeClusterParameterGroupsResponse"     "fixture/DescribeClusterParameterGroupsResponse"+    redshift     (Proxy :: Proxy DescribeClusterParameterGroups)  testCreateClusterSubnetGroupResponse :: CreateClusterSubnetGroupResponse -> TestTree testCreateClusterSubnetGroupResponse = res     "CreateClusterSubnetGroupResponse"     "fixture/CreateClusterSubnetGroupResponse"+    redshift     (Proxy :: Proxy CreateClusterSubnetGroup)  testDescribeReservedNodesResponse :: DescribeReservedNodesResponse -> TestTree testDescribeReservedNodesResponse = res     "DescribeReservedNodesResponse"     "fixture/DescribeReservedNodesResponse"+    redshift     (Proxy :: Proxy DescribeReservedNodes)  testEnableLoggingResponse :: LoggingStatus -> TestTree testEnableLoggingResponse = res     "EnableLoggingResponse"     "fixture/EnableLoggingResponse"+    redshift     (Proxy :: Proxy EnableLogging)  testCreateTagsResponse :: CreateTagsResponse -> TestTree testCreateTagsResponse = res     "CreateTagsResponse"     "fixture/CreateTagsResponse"+    redshift     (Proxy :: Proxy CreateTags)  testDescribeClusterSecurityGroupsResponse :: DescribeClusterSecurityGroupsResponse -> TestTree testDescribeClusterSecurityGroupsResponse = res     "DescribeClusterSecurityGroupsResponse"     "fixture/DescribeClusterSecurityGroupsResponse"+    redshift     (Proxy :: Proxy DescribeClusterSecurityGroups)  testDeleteClusterParameterGroupResponse :: DeleteClusterParameterGroupResponse -> TestTree testDeleteClusterParameterGroupResponse = res     "DeleteClusterParameterGroupResponse"     "fixture/DeleteClusterParameterGroupResponse"+    redshift     (Proxy :: Proxy DeleteClusterParameterGroup)  testDeleteTagsResponse :: DeleteTagsResponse -> TestTree testDeleteTagsResponse = res     "DeleteTagsResponse"     "fixture/DeleteTagsResponse"+    redshift     (Proxy :: Proxy DeleteTags)  testEnableSnapshotCopyResponse :: EnableSnapshotCopyResponse -> TestTree testEnableSnapshotCopyResponse = res     "EnableSnapshotCopyResponse"     "fixture/EnableSnapshotCopyResponse"+    redshift     (Proxy :: Proxy EnableSnapshotCopy)  testModifySnapshotCopyRetentionPeriodResponse :: ModifySnapshotCopyRetentionPeriodResponse -> TestTree testModifySnapshotCopyRetentionPeriodResponse = res     "ModifySnapshotCopyRetentionPeriodResponse"     "fixture/ModifySnapshotCopyRetentionPeriodResponse"+    redshift     (Proxy :: Proxy ModifySnapshotCopyRetentionPeriod)  testDescribeClusterSnapshotsResponse :: DescribeClusterSnapshotsResponse -> TestTree testDescribeClusterSnapshotsResponse = res     "DescribeClusterSnapshotsResponse"     "fixture/DescribeClusterSnapshotsResponse"+    redshift     (Proxy :: Proxy DescribeClusterSnapshots)  testDescribeClusterSubnetGroupsResponse :: DescribeClusterSubnetGroupsResponse -> TestTree testDescribeClusterSubnetGroupsResponse = res     "DescribeClusterSubnetGroupsResponse"     "fixture/DescribeClusterSubnetGroupsResponse"+    redshift     (Proxy :: Proxy DescribeClusterSubnetGroups)  testAuthorizeSnapshotAccessResponse :: AuthorizeSnapshotAccessResponse -> TestTree testAuthorizeSnapshotAccessResponse = res     "AuthorizeSnapshotAccessResponse"     "fixture/AuthorizeSnapshotAccessResponse"+    redshift     (Proxy :: Proxy AuthorizeSnapshotAccess)  testCreateEventSubscriptionResponse :: CreateEventSubscriptionResponse -> TestTree testCreateEventSubscriptionResponse = res     "CreateEventSubscriptionResponse"     "fixture/CreateEventSubscriptionResponse"+    redshift     (Proxy :: Proxy CreateEventSubscription)  testRebootClusterResponse :: RebootClusterResponse -> TestTree testRebootClusterResponse = res     "RebootClusterResponse"     "fixture/RebootClusterResponse"+    redshift     (Proxy :: Proxy RebootCluster)  testDescribeOrderableClusterOptionsResponse :: DescribeOrderableClusterOptionsResponse -> TestTree testDescribeOrderableClusterOptionsResponse = res     "DescribeOrderableClusterOptionsResponse"     "fixture/DescribeOrderableClusterOptionsResponse"+    redshift     (Proxy :: Proxy DescribeOrderableClusterOptions)  testDeleteClusterResponse :: DeleteClusterResponse -> TestTree testDeleteClusterResponse = res     "DeleteClusterResponse"     "fixture/DeleteClusterResponse"+    redshift     (Proxy :: Proxy DeleteCluster)  testDeleteEventSubscriptionResponse :: DeleteEventSubscriptionResponse -> TestTree testDeleteEventSubscriptionResponse = res     "DeleteEventSubscriptionResponse"     "fixture/DeleteEventSubscriptionResponse"+    redshift     (Proxy :: Proxy DeleteEventSubscription)  testDescribeDefaultClusterParametersResponse :: DescribeDefaultClusterParametersResponse -> TestTree testDescribeDefaultClusterParametersResponse = res     "DescribeDefaultClusterParametersResponse"     "fixture/DescribeDefaultClusterParametersResponse"+    redshift     (Proxy :: Proxy DescribeDefaultClusterParameters)  testCreateClusterResponse :: CreateClusterResponse -> TestTree testCreateClusterResponse = res     "CreateClusterResponse"     "fixture/CreateClusterResponse"+    redshift     (Proxy :: Proxy CreateCluster)  testCreateHSMClientCertificateResponse :: CreateHSMClientCertificateResponse -> TestTree testCreateHSMClientCertificateResponse = res     "CreateHSMClientCertificateResponse"     "fixture/CreateHSMClientCertificateResponse"+    redshift     (Proxy :: Proxy CreateHSMClientCertificate)  testResetClusterParameterGroupResponse :: ClusterParameterGroupNameMessage -> TestTree testResetClusterParameterGroupResponse = res     "ResetClusterParameterGroupResponse"     "fixture/ResetClusterParameterGroupResponse"+    redshift     (Proxy :: Proxy ResetClusterParameterGroup)  testDescribeEventSubscriptionsResponse :: DescribeEventSubscriptionsResponse -> TestTree testDescribeEventSubscriptionsResponse = res     "DescribeEventSubscriptionsResponse"     "fixture/DescribeEventSubscriptionsResponse"+    redshift     (Proxy :: Proxy DescribeEventSubscriptions)  testDescribeHSMClientCertificatesResponse :: DescribeHSMClientCertificatesResponse -> TestTree testDescribeHSMClientCertificatesResponse = res     "DescribeHSMClientCertificatesResponse"     "fixture/DescribeHSMClientCertificatesResponse"+    redshift     (Proxy :: Proxy DescribeHSMClientCertificates)  testModifyClusterParameterGroupResponse :: ClusterParameterGroupNameMessage -> TestTree testModifyClusterParameterGroupResponse = res     "ModifyClusterParameterGroupResponse"     "fixture/ModifyClusterParameterGroupResponse"+    redshift     (Proxy :: Proxy ModifyClusterParameterGroup)  testRevokeClusterSecurityGroupIngressResponse :: RevokeClusterSecurityGroupIngressResponse -> TestTree testRevokeClusterSecurityGroupIngressResponse = res     "RevokeClusterSecurityGroupIngressResponse"     "fixture/RevokeClusterSecurityGroupIngressResponse"+    redshift     (Proxy :: Proxy RevokeClusterSecurityGroupIngress)  testAuthorizeClusterSecurityGroupIngressResponse :: AuthorizeClusterSecurityGroupIngressResponse -> TestTree testAuthorizeClusterSecurityGroupIngressResponse = res     "AuthorizeClusterSecurityGroupIngressResponse"     "fixture/AuthorizeClusterSecurityGroupIngressResponse"+    redshift     (Proxy :: Proxy AuthorizeClusterSecurityGroupIngress)  testCreateClusterSecurityGroupResponse :: CreateClusterSecurityGroupResponse -> TestTree testCreateClusterSecurityGroupResponse = res     "CreateClusterSecurityGroupResponse"     "fixture/CreateClusterSecurityGroupResponse"+    redshift     (Proxy :: Proxy CreateClusterSecurityGroup)  testDescribeResizeResponse :: DescribeResizeResponse -> TestTree testDescribeResizeResponse = res     "DescribeResizeResponse"     "fixture/DescribeResizeResponse"+    redshift     (Proxy :: Proxy DescribeResize)  testDescribeEventCategoriesResponse :: DescribeEventCategoriesResponse -> TestTree testDescribeEventCategoriesResponse = res     "DescribeEventCategoriesResponse"     "fixture/DescribeEventCategoriesResponse"+    redshift     (Proxy :: Proxy DescribeEventCategories)  testDeleteHSMConfigurationResponse :: DeleteHSMConfigurationResponse -> TestTree testDeleteHSMConfigurationResponse = res     "DeleteHSMConfigurationResponse"     "fixture/DeleteHSMConfigurationResponse"+    redshift     (Proxy :: Proxy DeleteHSMConfiguration)  testDeleteClusterSecurityGroupResponse :: DeleteClusterSecurityGroupResponse -> TestTree testDeleteClusterSecurityGroupResponse = res     "DeleteClusterSecurityGroupResponse"     "fixture/DeleteClusterSecurityGroupResponse"+    redshift     (Proxy :: Proxy DeleteClusterSecurityGroup)  testCreateHSMConfigurationResponse :: CreateHSMConfigurationResponse -> TestTree testCreateHSMConfigurationResponse = res     "CreateHSMConfigurationResponse"     "fixture/CreateHSMConfigurationResponse"+    redshift     (Proxy :: Proxy CreateHSMConfiguration)  testModifyClusterResponse :: ModifyClusterResponse -> TestTree testModifyClusterResponse = res     "ModifyClusterResponse"     "fixture/ModifyClusterResponse"+    redshift     (Proxy :: Proxy ModifyCluster)  testCreateClusterSnapshotResponse :: CreateClusterSnapshotResponse -> TestTree testCreateClusterSnapshotResponse = res     "CreateClusterSnapshotResponse"     "fixture/CreateClusterSnapshotResponse"+    redshift     (Proxy :: Proxy CreateClusterSnapshot)  testDescribeLoggingStatusResponse :: LoggingStatus -> TestTree testDescribeLoggingStatusResponse = res     "DescribeLoggingStatusResponse"     "fixture/DescribeLoggingStatusResponse"+    redshift     (Proxy :: Proxy DescribeLoggingStatus)  testDescribeClusterParametersResponse :: DescribeClusterParametersResponse -> TestTree testDescribeClusterParametersResponse = res     "DescribeClusterParametersResponse"     "fixture/DescribeClusterParametersResponse"+    redshift     (Proxy :: Proxy DescribeClusterParameters)  testDisableSnapshotCopyResponse :: DisableSnapshotCopyResponse -> TestTree testDisableSnapshotCopyResponse = res     "DisableSnapshotCopyResponse"     "fixture/DisableSnapshotCopyResponse"+    redshift     (Proxy :: Proxy DisableSnapshotCopy)  testRestoreFromClusterSnapshotResponse :: RestoreFromClusterSnapshotResponse -> TestTree testRestoreFromClusterSnapshotResponse = res     "RestoreFromClusterSnapshotResponse"     "fixture/RestoreFromClusterSnapshotResponse"+    redshift     (Proxy :: Proxy RestoreFromClusterSnapshot)  testDescribeHSMConfigurationsResponse :: DescribeHSMConfigurationsResponse -> TestTree testDescribeHSMConfigurationsResponse = res     "DescribeHSMConfigurationsResponse"     "fixture/DescribeHSMConfigurationsResponse"+    redshift     (Proxy :: Proxy DescribeHSMConfigurations)  testCreateClusterParameterGroupResponse :: CreateClusterParameterGroupResponse -> TestTree testCreateClusterParameterGroupResponse = res     "CreateClusterParameterGroupResponse"     "fixture/CreateClusterParameterGroupResponse"+    redshift     (Proxy :: Proxy CreateClusterParameterGroup)  testRevokeSnapshotAccessResponse :: RevokeSnapshotAccessResponse -> TestTree testRevokeSnapshotAccessResponse = res     "RevokeSnapshotAccessResponse"     "fixture/RevokeSnapshotAccessResponse"+    redshift     (Proxy :: Proxy RevokeSnapshotAccess)  testDeleteHSMClientCertificateResponse :: DeleteHSMClientCertificateResponse -> TestTree testDeleteHSMClientCertificateResponse = res     "DeleteHSMClientCertificateResponse"     "fixture/DeleteHSMClientCertificateResponse"+    redshift     (Proxy :: Proxy DeleteHSMClientCertificate)  testCreateSnapshotCopyGrantResponse :: CreateSnapshotCopyGrantResponse -> TestTree testCreateSnapshotCopyGrantResponse = res     "CreateSnapshotCopyGrantResponse"     "fixture/CreateSnapshotCopyGrantResponse"+    redshift     (Proxy :: Proxy CreateSnapshotCopyGrant)  testCopyClusterSnapshotResponse :: CopyClusterSnapshotResponse -> TestTree testCopyClusterSnapshotResponse = res     "CopyClusterSnapshotResponse"     "fixture/CopyClusterSnapshotResponse"+    redshift     (Proxy :: Proxy CopyClusterSnapshot)  testDescribeClusterVersionsResponse :: DescribeClusterVersionsResponse -> TestTree testDescribeClusterVersionsResponse = res     "DescribeClusterVersionsResponse"     "fixture/DescribeClusterVersionsResponse"+    redshift     (Proxy :: Proxy DescribeClusterVersions)  testModifyClusterSubnetGroupResponse :: ModifyClusterSubnetGroupResponse -> TestTree testModifyClusterSubnetGroupResponse = res     "ModifyClusterSubnetGroupResponse"     "fixture/ModifyClusterSubnetGroupResponse"+    redshift     (Proxy :: Proxy ModifyClusterSubnetGroup)  testDeleteSnapshotCopyGrantResponse :: DeleteSnapshotCopyGrantResponse -> TestTree testDeleteSnapshotCopyGrantResponse = res     "DeleteSnapshotCopyGrantResponse"     "fixture/DeleteSnapshotCopyGrantResponse"+    redshift     (Proxy :: Proxy DeleteSnapshotCopyGrant)  testDescribeSnapshotCopyGrantsResponse :: DescribeSnapshotCopyGrantsResponse -> TestTree testDescribeSnapshotCopyGrantsResponse = res     "DescribeSnapshotCopyGrantsResponse"     "fixture/DescribeSnapshotCopyGrantsResponse"+    redshift     (Proxy :: Proxy DescribeSnapshotCopyGrants)  testRotateEncryptionKeyResponse :: RotateEncryptionKeyResponse -> TestTree testRotateEncryptionKeyResponse = res     "RotateEncryptionKeyResponse"     "fixture/RotateEncryptionKeyResponse"+    redshift     (Proxy :: Proxy RotateEncryptionKey)