amazonka-rds 1.1.0 → 1.2.0

raw patch · 82 files changed

+192/−197 lines, 82 filesdep ~amazonka-coredep ~amazonka-rdsdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-rds.cabal +5/−5
• gen/Network/AWS/RDS.hs +2/−2
• gen/Network/AWS/RDS/AddSourceIdentifierToSubscription.hs +1/−2
• gen/Network/AWS/RDS/AddTagsToResource.hs +1/−2
• gen/Network/AWS/RDS/ApplyPendingMaintenanceAction.hs +1/−2
• gen/Network/AWS/RDS/AuthorizeDBSecurityGroupIngress.hs +1/−2
• gen/Network/AWS/RDS/CopyDBClusterSnapshot.hs +1/−2
• gen/Network/AWS/RDS/CopyDBParameterGroup.hs +1/−2
• gen/Network/AWS/RDS/CopyDBSnapshot.hs +1/−2
• gen/Network/AWS/RDS/CopyOptionGroup.hs +1/−2
• gen/Network/AWS/RDS/CreateDBCluster.hs +1/−2
• gen/Network/AWS/RDS/CreateDBClusterParameterGroup.hs +1/−2
• gen/Network/AWS/RDS/CreateDBClusterSnapshot.hs +1/−2
• gen/Network/AWS/RDS/CreateDBInstance.hs +1/−2
• gen/Network/AWS/RDS/CreateDBInstanceReadReplica.hs +1/−2
• gen/Network/AWS/RDS/CreateDBParameterGroup.hs +1/−2
• gen/Network/AWS/RDS/CreateDBSecurityGroup.hs +1/−2
• gen/Network/AWS/RDS/CreateDBSnapshot.hs +1/−2
• gen/Network/AWS/RDS/CreateDBSubnetGroup.hs +1/−2
• gen/Network/AWS/RDS/CreateEventSubscription.hs +1/−2
• gen/Network/AWS/RDS/CreateOptionGroup.hs +1/−2
• gen/Network/AWS/RDS/DeleteDBCluster.hs +1/−2
• gen/Network/AWS/RDS/DeleteDBClusterParameterGroup.hs +1/−2
• gen/Network/AWS/RDS/DeleteDBClusterSnapshot.hs +1/−2
• gen/Network/AWS/RDS/DeleteDBInstance.hs +1/−2
• gen/Network/AWS/RDS/DeleteDBParameterGroup.hs +1/−2
• gen/Network/AWS/RDS/DeleteDBSecurityGroup.hs +1/−2
• gen/Network/AWS/RDS/DeleteDBSnapshot.hs +1/−2
• gen/Network/AWS/RDS/DeleteDBSubnetGroup.hs +1/−2
• gen/Network/AWS/RDS/DeleteEventSubscription.hs +1/−2
• gen/Network/AWS/RDS/DeleteOptionGroup.hs +1/−2
• gen/Network/AWS/RDS/DescribeAccountAttributes.hs +1/−2
• gen/Network/AWS/RDS/DescribeCertificates.hs +1/−2
• gen/Network/AWS/RDS/DescribeDBClusterParameterGroups.hs +1/−2
• gen/Network/AWS/RDS/DescribeDBClusterParameters.hs +1/−2
• gen/Network/AWS/RDS/DescribeDBClusterSnapshots.hs +1/−2
• gen/Network/AWS/RDS/DescribeDBClusters.hs +1/−2
• gen/Network/AWS/RDS/DescribeDBEngineVersions.hs +1/−2
• gen/Network/AWS/RDS/DescribeDBInstances.hs +1/−2
• gen/Network/AWS/RDS/DescribeDBLogFiles.hs +1/−2
• gen/Network/AWS/RDS/DescribeDBParameterGroups.hs +1/−2
• gen/Network/AWS/RDS/DescribeDBParameters.hs +1/−2
• gen/Network/AWS/RDS/DescribeDBSecurityGroups.hs +1/−2
• gen/Network/AWS/RDS/DescribeDBSnapshots.hs +1/−2
• gen/Network/AWS/RDS/DescribeDBSubnetGroups.hs +1/−2
• gen/Network/AWS/RDS/DescribeEngineDefaultClusterParameters.hs +1/−2
• gen/Network/AWS/RDS/DescribeEngineDefaultParameters.hs +1/−2
• gen/Network/AWS/RDS/DescribeEventCategories.hs +1/−2
• gen/Network/AWS/RDS/DescribeEventSubscriptions.hs +1/−2
• gen/Network/AWS/RDS/DescribeEvents.hs +1/−2
• gen/Network/AWS/RDS/DescribeOptionGroupOptions.hs +1/−2
• gen/Network/AWS/RDS/DescribeOptionGroups.hs +1/−2
• gen/Network/AWS/RDS/DescribeOrderableDBInstanceOptions.hs +1/−2
• gen/Network/AWS/RDS/DescribePendingMaintenanceActions.hs +1/−2
• gen/Network/AWS/RDS/DescribeReservedDBInstances.hs +1/−2
• gen/Network/AWS/RDS/DescribeReservedDBInstancesOfferings.hs +1/−2
• gen/Network/AWS/RDS/DownloadDBLogFilePortion.hs +1/−2
• gen/Network/AWS/RDS/FailoverDBCluster.hs +1/−2
• gen/Network/AWS/RDS/ListTagsForResource.hs +1/−2
• gen/Network/AWS/RDS/ModifyDBCluster.hs +1/−2
• gen/Network/AWS/RDS/ModifyDBClusterParameterGroup.hs +1/−2
• gen/Network/AWS/RDS/ModifyDBInstance.hs +1/−2
• gen/Network/AWS/RDS/ModifyDBParameterGroup.hs +1/−2
• gen/Network/AWS/RDS/ModifyDBSubnetGroup.hs +1/−2
• gen/Network/AWS/RDS/ModifyEventSubscription.hs +1/−2
• gen/Network/AWS/RDS/ModifyOptionGroup.hs +1/−2
• gen/Network/AWS/RDS/PromoteReadReplica.hs +1/−2
• gen/Network/AWS/RDS/PurchaseReservedDBInstancesOffering.hs +1/−2
• gen/Network/AWS/RDS/RebootDBInstance.hs +1/−2
• gen/Network/AWS/RDS/RemoveSourceIdentifierFromSubscription.hs +1/−2
• gen/Network/AWS/RDS/RemoveTagsFromResource.hs +1/−2
• gen/Network/AWS/RDS/ResetDBClusterParameterGroup.hs +1/−2
• gen/Network/AWS/RDS/ResetDBParameterGroup.hs +1/−2
• gen/Network/AWS/RDS/RestoreDBClusterFromSnapshot.hs +1/−2
• gen/Network/AWS/RDS/RestoreDBClusterToPointInTime.hs +1/−2
• gen/Network/AWS/RDS/RestoreDBInstanceFromDBSnapshot.hs +1/−2
• gen/Network/AWS/RDS/RestoreDBInstanceToPointInTime.hs +1/−2
• gen/Network/AWS/RDS/RevokeDBSecurityGroupIngress.hs +1/−2
• gen/Network/AWS/RDS/Types.hs +32/−36
• gen/Network/AWS/RDS/Types/Product.hs +0/−1
• test/Test/AWS/Gen/RDS.hs +76/−0

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

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

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

@@ -94,10 +94,9 @@  instance AWSRequest AddSourceIdentifierToSubscription          where-        type Sv AddSourceIdentifierToSubscription = RDS         type Rs AddSourceIdentifierToSubscription =              AddSourceIdentifierToSubscriptionResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "AddSourceIdentifierToSubscriptionResult"

@@ -82,9 +82,8 @@ attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce;  instance AWSRequest AddTagsToResource where-        type Sv AddTagsToResource = RDS         type Rs AddTagsToResource = AddTagsToResourceResponse-        request = postQuery+        request = postQuery rDS         response = receiveNull AddTagsToResourceResponse'  instance ToHeaders AddTagsToResource where

@@ -102,10 +102,9 @@  instance AWSRequest ApplyPendingMaintenanceAction          where-        type Sv ApplyPendingMaintenanceAction = RDS         type Rs ApplyPendingMaintenanceAction =              ApplyPendingMaintenanceActionResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "ApplyPendingMaintenanceActionResult"

@@ -129,10 +129,9 @@  instance AWSRequest AuthorizeDBSecurityGroupIngress          where-        type Sv AuthorizeDBSecurityGroupIngress = RDS         type Rs AuthorizeDBSecurityGroupIngress =              AuthorizeDBSecurityGroupIngressResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "AuthorizeDBSecurityGroupIngressResult"

@@ -108,10 +108,9 @@ cdbcsTargetDBClusterSnapshotIdentifier = lens _cdbcsTargetDBClusterSnapshotIdentifier (\ s a -> s{_cdbcsTargetDBClusterSnapshotIdentifier = a});  instance AWSRequest CopyDBClusterSnapshot where-        type Sv CopyDBClusterSnapshot = RDS         type Rs CopyDBClusterSnapshot =              CopyDBClusterSnapshotResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "CopyDBClusterSnapshotResult"               (\ s h x ->

@@ -118,10 +118,9 @@ cdpgTargetDBParameterGroupDescription = lens _cdpgTargetDBParameterGroupDescription (\ s a -> s{_cdpgTargetDBParameterGroupDescription = a});  instance AWSRequest CopyDBParameterGroup where-        type Sv CopyDBParameterGroup = RDS         type Rs CopyDBParameterGroup =              CopyDBParameterGroupResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "CopyDBParameterGroupResult"               (\ s h x ->

@@ -120,9 +120,8 @@ cdsTargetDBSnapshotIdentifier = lens _cdsTargetDBSnapshotIdentifier (\ s a -> s{_cdsTargetDBSnapshotIdentifier = a});  instance AWSRequest CopyDBSnapshot where-        type Sv CopyDBSnapshot = RDS         type Rs CopyDBSnapshot = CopyDBSnapshotResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "CopyDBSnapshotResult"               (\ s h x ->

@@ -118,9 +118,8 @@ cTargetOptionGroupDescription = lens _cTargetOptionGroupDescription (\ s a -> s{_cTargetOptionGroupDescription = a});  instance AWSRequest CopyOptionGroup where-        type Sv CopyOptionGroup = RDS         type Rs CopyOptionGroup = CopyOptionGroupResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "CopyOptionGroupResult"               (\ s h x ->

@@ -294,9 +294,8 @@ cdcPort = lens _cdcPort (\ s a -> s{_cdcPort = a});  instance AWSRequest CreateDBCluster where-        type Sv CreateDBCluster = RDS         type Rs CreateDBCluster = CreateDBClusterResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "CreateDBClusterResult"               (\ s h x ->

@@ -140,10 +140,9 @@  instance AWSRequest CreateDBClusterParameterGroup          where-        type Sv CreateDBClusterParameterGroup = RDS         type Rs CreateDBClusterParameterGroup =              CreateDBClusterParameterGroupResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "CreateDBClusterParameterGroupResult"

@@ -108,10 +108,9 @@ cdcsDBClusterIdentifier = lens _cdcsDBClusterIdentifier (\ s a -> s{_cdcsDBClusterIdentifier = a});  instance AWSRequest CreateDBClusterSnapshot where-        type Sv CreateDBClusterSnapshot = RDS         type Rs CreateDBClusterSnapshot =              CreateDBClusterSnapshotResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "CreateDBClusterSnapshotResult"               (\ s h x ->

@@ -870,9 +870,8 @@ cdiEngine = lens _cdiEngine (\ s a -> s{_cdiEngine = a});  instance AWSRequest CreateDBInstance where-        type Sv CreateDBInstance = RDS         type Rs CreateDBInstance = CreateDBInstanceResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "CreateDBInstanceResult"               (\ s h x ->

@@ -263,10 +263,9 @@ cdirrSourceDBInstanceIdentifier = lens _cdirrSourceDBInstanceIdentifier (\ s a -> s{_cdirrSourceDBInstanceIdentifier = a});  instance AWSRequest CreateDBInstanceReadReplica where-        type Sv CreateDBInstanceReadReplica = RDS         type Rs CreateDBInstanceReadReplica =              CreateDBInstanceReadReplicaResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "CreateDBInstanceReadReplicaResult"

@@ -130,10 +130,9 @@ cdbpgDescription = lens _cdbpgDescription (\ s a -> s{_cdbpgDescription = a});  instance AWSRequest CreateDBParameterGroup where-        type Sv CreateDBParameterGroup = RDS         type Rs CreateDBParameterGroup =              CreateDBParameterGroupResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "CreateDBParameterGroupResult"               (\ s h x ->

@@ -99,10 +99,9 @@ cdsgDBSecurityGroupDescription = lens _cdsgDBSecurityGroupDescription (\ s a -> s{_cdsgDBSecurityGroupDescription = a});  instance AWSRequest CreateDBSecurityGroup where-        type Sv CreateDBSecurityGroup = RDS         type Rs CreateDBSecurityGroup =              CreateDBSecurityGroupResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "CreateDBSecurityGroupResult"               (\ s h x ->

@@ -104,9 +104,8 @@ cdbsDBInstanceIdentifier = lens _cdbsDBInstanceIdentifier (\ s a -> s{_cdbsDBInstanceIdentifier = a});  instance AWSRequest CreateDBSnapshot where-        type Sv CreateDBSnapshot = RDS         type Rs CreateDBSnapshot = CreateDBSnapshotResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "CreateDBSnapshotResult"               (\ s h x ->

@@ -103,10 +103,9 @@ cdbsgSubnetIds = lens _cdbsgSubnetIds (\ s a -> s{_cdbsgSubnetIds = a}) . _Coerce;  instance AWSRequest CreateDBSubnetGroup where-        type Sv CreateDBSubnetGroup = RDS         type Rs CreateDBSubnetGroup =              CreateDBSubnetGroupResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "CreateDBSubnetGroupResult"               (\ s h x ->

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

@@ -117,9 +117,8 @@ cogOptionGroupDescription = lens _cogOptionGroupDescription (\ s a -> s{_cogOptionGroupDescription = a});  instance AWSRequest CreateOptionGroup where-        type Sv CreateOptionGroup = RDS         type Rs CreateOptionGroup = CreateOptionGroupResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "CreateOptionGroupResult"               (\ s h x ->

@@ -118,9 +118,8 @@ ddbcSkipFinalSnapshot = lens _ddbcSkipFinalSnapshot (\ s a -> s{_ddbcSkipFinalSnapshot = a});  instance AWSRequest DeleteDBCluster where-        type Sv DeleteDBCluster = RDS         type Rs DeleteDBCluster = DeleteDBClusterResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DeleteDBClusterResult"               (\ s h x ->

@@ -77,10 +77,9 @@  instance AWSRequest DeleteDBClusterParameterGroup          where-        type Sv DeleteDBClusterParameterGroup = RDS         type Rs DeleteDBClusterParameterGroup =              DeleteDBClusterParameterGroupResponse-        request = postQuery+        request = postQuery rDS         response           = receiveNull DeleteDBClusterParameterGroupResponse' 

@@ -78,10 +78,9 @@ ddcsDBClusterSnapshotIdentifier = lens _ddcsDBClusterSnapshotIdentifier (\ s a -> s{_ddcsDBClusterSnapshotIdentifier = a});  instance AWSRequest DeleteDBClusterSnapshot where-        type Sv DeleteDBClusterSnapshot = RDS         type Rs DeleteDBClusterSnapshot =              DeleteDBClusterSnapshotResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DeleteDBClusterSnapshotResult"               (\ s h x ->

@@ -133,9 +133,8 @@ ddiDBInstanceIdentifier = lens _ddiDBInstanceIdentifier (\ s a -> s{_ddiDBInstanceIdentifier = a});  instance AWSRequest DeleteDBInstance where-        type Sv DeleteDBInstance = RDS         type Rs DeleteDBInstance = DeleteDBInstanceResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DeleteDBInstanceResult"               (\ s h x ->

@@ -72,10 +72,9 @@ ddbpgDBParameterGroupName = lens _ddbpgDBParameterGroupName (\ s a -> s{_ddbpgDBParameterGroupName = a});  instance AWSRequest DeleteDBParameterGroup where-        type Sv DeleteDBParameterGroup = RDS         type Rs DeleteDBParameterGroup =              DeleteDBParameterGroupResponse-        request = postQuery+        request = postQuery rDS         response           = receiveNull DeleteDBParameterGroupResponse' 

@@ -78,10 +78,9 @@ ddsgDBSecurityGroupName = lens _ddsgDBSecurityGroupName (\ s a -> s{_ddsgDBSecurityGroupName = a});  instance AWSRequest DeleteDBSecurityGroup where-        type Sv DeleteDBSecurityGroup = RDS         type Rs DeleteDBSecurityGroup =              DeleteDBSecurityGroupResponse-        request = postQuery+        request = postQuery rDS         response = receiveNull DeleteDBSecurityGroupResponse'  instance ToHeaders DeleteDBSecurityGroup where

@@ -74,9 +74,8 @@ ddbsDBSnapshotIdentifier = lens _ddbsDBSnapshotIdentifier (\ s a -> s{_ddbsDBSnapshotIdentifier = a});  instance AWSRequest DeleteDBSnapshot where-        type Sv DeleteDBSnapshot = RDS         type Rs DeleteDBSnapshot = DeleteDBSnapshotResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DeleteDBSnapshotResult"               (\ s h x ->

@@ -76,10 +76,9 @@ ddbsgDBSubnetGroupName = lens _ddbsgDBSubnetGroupName (\ s a -> s{_ddbsgDBSubnetGroupName = a});  instance AWSRequest DeleteDBSubnetGroup where-        type Sv DeleteDBSubnetGroup = RDS         type Rs DeleteDBSubnetGroup =              DeleteDBSubnetGroupResponse-        request = postQuery+        request = postQuery rDS         response = receiveNull DeleteDBSubnetGroupResponse'  instance ToHeaders DeleteDBSubnetGroup where

@@ -68,10 +68,9 @@ desSubscriptionName = lens _desSubscriptionName (\ s a -> s{_desSubscriptionName = a});  instance AWSRequest DeleteEventSubscription where-        type Sv DeleteEventSubscription = RDS         type Rs DeleteEventSubscription =              DeleteEventSubscriptionResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DeleteEventSubscriptionResult"               (\ s h x ->

@@ -67,9 +67,8 @@ dOptionGroupName = lens _dOptionGroupName (\ s a -> s{_dOptionGroupName = a});  instance AWSRequest DeleteOptionGroup where-        type Sv DeleteOptionGroup = RDS         type Rs DeleteOptionGroup = DeleteOptionGroupResponse-        request = postQuery+        request = postQuery rDS         response = receiveNull DeleteOptionGroupResponse'  instance ToHeaders DeleteOptionGroup where

@@ -60,10 +60,9 @@ describeAccountAttributes = DescribeAccountAttributes'  instance AWSRequest DescribeAccountAttributes where-        type Sv DescribeAccountAttributes = RDS         type Rs DescribeAccountAttributes =              DescribeAccountAttributesResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DescribeAccountAttributesResult"               (\ s h x ->

@@ -113,10 +113,9 @@ dcMarker = lens _dcMarker (\ s a -> s{_dcMarker = a});  instance AWSRequest DescribeCertificates where-        type Sv DescribeCertificates = RDS         type Rs DescribeCertificates =              DescribeCertificatesResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DescribeCertificatesResult"               (\ s h x ->

@@ -119,10 +119,9 @@  instance AWSRequest DescribeDBClusterParameterGroups          where-        type Sv DescribeDBClusterParameterGroups = RDS         type Rs DescribeDBClusterParameterGroups =              DescribeDBClusterParameterGroupsResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "DescribeDBClusterParameterGroupsResult"

@@ -128,10 +128,9 @@ ddcpDBClusterParameterGroupName = lens _ddcpDBClusterParameterGroupName (\ s a -> s{_ddcpDBClusterParameterGroupName = a});  instance AWSRequest DescribeDBClusterParameters where-        type Sv DescribeDBClusterParameters = RDS         type Rs DescribeDBClusterParameters =              DescribeDBClusterParametersResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "DescribeDBClusterParametersResult"

@@ -149,10 +149,9 @@ ddbcsMarker = lens _ddbcsMarker (\ s a -> s{_ddbcsMarker = a});  instance AWSRequest DescribeDBClusterSnapshots where-        type Sv DescribeDBClusterSnapshots = RDS         type Rs DescribeDBClusterSnapshots =              DescribeDBClusterSnapshotsResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "DescribeDBClusterSnapshotsResult"

@@ -117,10 +117,9 @@ ddcMarker = lens _ddcMarker (\ s a -> s{_ddcMarker = a});  instance AWSRequest DescribeDBClusters where-        type Sv DescribeDBClusters = RDS         type Rs DescribeDBClusters =              DescribeDBClustersResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DescribeDBClustersResult"               (\ s h x ->

@@ -159,10 +159,9 @@             Just $ rq & ddevMarker .~ rs ^. ddevrsMarker  instance AWSRequest DescribeDBEngineVersions where-        type Sv DescribeDBEngineVersions = RDS         type Rs DescribeDBEngineVersions =              DescribeDBEngineVersionsResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DescribeDBEngineVersionsResult"               (\ s h x ->

@@ -124,10 +124,9 @@             Just $ rq & ddbiMarker .~ rs ^. ddbirsMarker  instance AWSRequest DescribeDBInstances where-        type Sv DescribeDBInstances = RDS         type Rs DescribeDBInstances =              DescribeDBInstancesResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DescribeDBInstancesResult"               (\ s h x ->

@@ -148,10 +148,9 @@             Just $ rq & ddlfMarker .~ rs ^. ddlfrsMarker  instance AWSRequest DescribeDBLogFiles where-        type Sv DescribeDBLogFiles = RDS         type Rs DescribeDBLogFiles =              DescribeDBLogFilesResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DescribeDBLogFilesResult"               (\ s h x ->

@@ -123,10 +123,9 @@             Just $ rq & ddpgMarker .~ rs ^. ddpgrsMarker  instance AWSRequest DescribeDBParameterGroups where-        type Sv DescribeDBParameterGroups = RDS         type Rs DescribeDBParameterGroups =              DescribeDBParameterGroupsResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DescribeDBParameterGroupsResult"               (\ s h x ->

@@ -133,10 +133,9 @@             Just $ rq & ddpMarker .~ rs ^. ddprsMarker  instance AWSRequest DescribeDBParameters where-        type Sv DescribeDBParameters = RDS         type Rs DescribeDBParameters =              DescribeDBParametersResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DescribeDBParametersResult"               (\ s h x ->

@@ -117,10 +117,9 @@             Just $ rq & ddbsgMarker .~ rs ^. ddbsgrsMarker  instance AWSRequest DescribeDBSecurityGroups where-        type Sv DescribeDBSecurityGroups = RDS         type Rs DescribeDBSecurityGroups =              DescribeDBSecurityGroupsResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DescribeDBSecurityGroupsResult"               (\ s h x ->

@@ -153,10 +153,9 @@             Just $ rq & ddsMarker .~ rs ^. ddsrsMarker  instance AWSRequest DescribeDBSnapshots where-        type Sv DescribeDBSnapshots = RDS         type Rs DescribeDBSnapshots =              DescribeDBSnapshotsResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DescribeDBSnapshotsResult"               (\ s h x ->

@@ -120,10 +120,9 @@             Just $ rq & ddsgMarker .~ rs ^. ddsgrsMarker  instance AWSRequest DescribeDBSubnetGroups where-        type Sv DescribeDBSubnetGroups = RDS         type Rs DescribeDBSubnetGroups =              DescribeDBSubnetGroupsResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DescribeDBSubnetGroupsResult"               (\ s h x ->

@@ -112,10 +112,9 @@  instance AWSRequest          DescribeEngineDefaultClusterParameters where-        type Sv DescribeEngineDefaultClusterParameters = RDS         type Rs DescribeEngineDefaultClusterParameters =              DescribeEngineDefaultClusterParametersResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "DescribeEngineDefaultClusterParametersResult"

@@ -123,10 +123,9 @@  instance AWSRequest DescribeEngineDefaultParameters          where-        type Sv DescribeEngineDefaultParameters = RDS         type Rs DescribeEngineDefaultParameters =              DescribeEngineDefaultParametersResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "DescribeEngineDefaultParametersResult"

@@ -83,10 +83,9 @@ decFilters = lens _decFilters (\ s a -> s{_decFilters = a}) . _Default . _Coerce;  instance AWSRequest DescribeEventCategories where-        type Sv DescribeEventCategories = RDS         type Rs DescribeEventCategories =              DescribeEventCategoriesResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DescribeEventCategoriesResult"               (\ s h x ->

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

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

@@ -126,10 +126,9 @@             Just $ rq & dogoMarker .~ rs ^. dogorsMarker  instance AWSRequest DescribeOptionGroupOptions where-        type Sv DescribeOptionGroupOptions = RDS         type Rs DescribeOptionGroupOptions =              DescribeOptionGroupOptionsResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "DescribeOptionGroupOptionsResult"

@@ -136,10 +136,9 @@             Just $ rq & dogMarker .~ rs ^. dogrsMarker  instance AWSRequest DescribeOptionGroups where-        type Sv DescribeOptionGroups = RDS         type Rs DescribeOptionGroups =              DescribeOptionGroupsResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DescribeOptionGroupsResult"               (\ s h x ->

@@ -160,10 +160,9 @@  instance AWSRequest          DescribeOrderableDBInstanceOptions where-        type Sv DescribeOrderableDBInstanceOptions = RDS         type Rs DescribeOrderableDBInstanceOptions =              DescribeOrderableDBInstanceOptionsResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "DescribeOrderableDBInstanceOptionsResult"

@@ -115,10 +115,9 @@  instance AWSRequest DescribePendingMaintenanceActions          where-        type Sv DescribePendingMaintenanceActions = RDS         type Rs DescribePendingMaintenanceActions =              DescribePendingMaintenanceActionsResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "DescribePendingMaintenanceActionsResult"

@@ -180,10 +180,9 @@             Just $ rq & drdiMarker .~ rs ^. drdirsMarker  instance AWSRequest DescribeReservedDBInstances where-        type Sv DescribeReservedDBInstances = RDS         type Rs DescribeReservedDBInstances =              DescribeReservedDBInstancesResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "DescribeReservedDBInstancesResult"

@@ -175,10 +175,9 @@  instance AWSRequest          DescribeReservedDBInstancesOfferings where-        type Sv DescribeReservedDBInstancesOfferings = RDS         type Rs DescribeReservedDBInstancesOfferings =              DescribeReservedDBInstancesOfferingsResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "DescribeReservedDBInstancesOfferingsResult"

@@ -141,10 +141,9 @@             Just $ rq & ddlfpMarker .~ rs ^. ddlfprsMarker  instance AWSRequest DownloadDBLogFilePortion where-        type Sv DownloadDBLogFilePortion = RDS         type Rs DownloadDBLogFilePortion =              DownloadDBLogFilePortionResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "DownloadDBLogFilePortionResult"               (\ s h x ->

@@ -89,9 +89,8 @@ fdcDBClusterIdentifier = lens _fdcDBClusterIdentifier (\ s a -> s{_fdcDBClusterIdentifier = a});  instance AWSRequest FailoverDBCluster where-        type Sv FailoverDBCluster = RDS         type Rs FailoverDBCluster = FailoverDBClusterResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "FailoverDBClusterResult"               (\ s h x ->

@@ -82,10 +82,9 @@ ltfrResourceName = lens _ltfrResourceName (\ s a -> s{_ltfrResourceName = a});  instance AWSRequest ListTagsForResource where-        type Sv ListTagsForResource = RDS         type Rs ListTagsForResource =              ListTagsForResourceResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "ListTagsForResourceResult"               (\ s h x ->

@@ -240,9 +240,8 @@ mdcPort = lens _mdcPort (\ s a -> s{_mdcPort = a});  instance AWSRequest ModifyDBCluster where-        type Sv ModifyDBCluster = RDS         type Rs ModifyDBCluster = ModifyDBClusterResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "ModifyDBClusterResult"               (\ s h x ->

@@ -101,10 +101,9 @@  instance AWSRequest ModifyDBClusterParameterGroup          where-        type Sv ModifyDBClusterParameterGroup = RDS         type Rs ModifyDBClusterParameterGroup =              DBClusterParameterGroupNameMessage-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "ModifyDBClusterParameterGroupResult"

@@ -557,9 +557,8 @@ mdiDBInstanceIdentifier = lens _mdiDBInstanceIdentifier (\ s a -> s{_mdiDBInstanceIdentifier = a});  instance AWSRequest ModifyDBInstance where-        type Sv ModifyDBInstance = RDS         type Rs ModifyDBInstance = ModifyDBInstanceResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "ModifyDBInstanceResult"               (\ s h x ->

@@ -112,10 +112,9 @@ mdpgParameters = lens _mdpgParameters (\ s a -> s{_mdpgParameters = a}) . _Coerce;  instance AWSRequest ModifyDBParameterGroup where-        type Sv ModifyDBParameterGroup = RDS         type Rs ModifyDBParameterGroup =              DBParameterGroupNameMessage-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "ModifyDBParameterGroupResult"               (\ s h x -> parseXML x)

@@ -93,10 +93,9 @@ mdsgSubnetIds = lens _mdsgSubnetIds (\ s a -> s{_mdsgSubnetIds = a}) . _Coerce;  instance AWSRequest ModifyDBSubnetGroup where-        type Sv ModifyDBSubnetGroup = RDS         type Rs ModifyDBSubnetGroup =              ModifyDBSubnetGroupResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "ModifyDBSubnetGroupResult"               (\ s h x ->

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

@@ -104,9 +104,8 @@ mogOptionGroupName = lens _mogOptionGroupName (\ s a -> s{_mogOptionGroupName = a});  instance AWSRequest ModifyOptionGroup where-        type Sv ModifyOptionGroup = RDS         type Rs ModifyOptionGroup = ModifyOptionGroupResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "ModifyOptionGroupResult"               (\ s h x ->

@@ -122,10 +122,9 @@ prrDBInstanceIdentifier = lens _prrDBInstanceIdentifier (\ s a -> s{_prrDBInstanceIdentifier = a});  instance AWSRequest PromoteReadReplica where-        type Sv PromoteReadReplica = RDS         type Rs PromoteReadReplica =              PromoteReadReplicaResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "PromoteReadReplicaResult"               (\ s h x ->

@@ -102,10 +102,9 @@  instance AWSRequest          PurchaseReservedDBInstancesOffering where-        type Sv PurchaseReservedDBInstancesOffering = RDS         type Rs PurchaseReservedDBInstancesOffering =              PurchaseReservedDBInstancesOfferingResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "PurchaseReservedDBInstancesOfferingResult"

@@ -104,9 +104,8 @@ rdiDBInstanceIdentifier = lens _rdiDBInstanceIdentifier (\ s a -> s{_rdiDBInstanceIdentifier = a});  instance AWSRequest RebootDBInstance where-        type Sv RebootDBInstance = RDS         type Rs RebootDBInstance = RebootDBInstanceResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "RebootDBInstanceResult"               (\ s h x ->

@@ -83,10 +83,9 @@  instance AWSRequest          RemoveSourceIdentifierFromSubscription where-        type Sv RemoveSourceIdentifierFromSubscription = RDS         type Rs RemoveSourceIdentifierFromSubscription =              RemoveSourceIdentifierFromSubscriptionResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "RemoveSourceIdentifierFromSubscriptionResult"

@@ -79,10 +79,9 @@ rtfrTagKeys = lens _rtfrTagKeys (\ s a -> s{_rtfrTagKeys = a}) . _Coerce;  instance AWSRequest RemoveTagsFromResource where-        type Sv RemoveTagsFromResource = RDS         type Rs RemoveTagsFromResource =              RemoveTagsFromResourceResponse-        request = postQuery+        request = postQuery rDS         response           = receiveNull RemoveTagsFromResourceResponse' 

@@ -105,10 +105,9 @@  instance AWSRequest ResetDBClusterParameterGroup          where-        type Sv ResetDBClusterParameterGroup = RDS         type Rs ResetDBClusterParameterGroup =              DBClusterParameterGroupNameMessage-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "ResetDBClusterParameterGroupResult"

@@ -116,10 +116,9 @@ rdpgDBParameterGroupName = lens _rdpgDBParameterGroupName (\ s a -> s{_rdpgDBParameterGroupName = a});  instance AWSRequest ResetDBParameterGroup where-        type Sv ResetDBParameterGroup = RDS         type Rs ResetDBParameterGroup =              DBParameterGroupNameMessage-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper "ResetDBParameterGroupResult"               (\ s h x -> parseXML x)

@@ -192,10 +192,9 @@  instance AWSRequest RestoreDBClusterFromSnapshot          where-        type Sv RestoreDBClusterFromSnapshot = RDS         type Rs RestoreDBClusterFromSnapshot =              RestoreDBClusterFromSnapshotResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "RestoreDBClusterFromSnapshotResult"

@@ -184,10 +184,9 @@  instance AWSRequest RestoreDBClusterToPointInTime          where-        type Sv RestoreDBClusterToPointInTime = RDS         type Rs RestoreDBClusterToPointInTime =              RestoreDBClusterToPointInTimeResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "RestoreDBClusterToPointInTimeResult"

@@ -374,10 +374,9 @@  instance AWSRequest RestoreDBInstanceFromDBSnapshot          where-        type Sv RestoreDBInstanceFromDBSnapshot = RDS         type Rs RestoreDBInstanceFromDBSnapshot =              RestoreDBInstanceFromDBSnapshotResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "RestoreDBInstanceFromDBSnapshotResult"

@@ -394,10 +394,9 @@  instance AWSRequest RestoreDBInstanceToPointInTime          where-        type Sv RestoreDBInstanceToPointInTime = RDS         type Rs RestoreDBInstanceToPointInTime =              RestoreDBInstanceToPointInTimeResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "RestoreDBInstanceToPointInTimeResult"

@@ -121,10 +121,9 @@  instance AWSRequest RevokeDBSecurityGroupIngress          where-        type Sv RevokeDBSecurityGroupIngress = RDS         type Rs RevokeDBSecurityGroupIngress =              RevokeDBSecurityGroupIngressResponse-        request = postQuery+        request = postQuery rDS         response           = receiveXMLWrapper               "RevokeDBSecurityGroupIngressResult"

@@ -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.RDS.Types     (-    -- * Service-      RDS+    -- * Service Configuration+      rDS      -- * Errors     , _CertificateNotFoundFault@@ -601,39 +600,36 @@ import           Network.AWS.RDS.Types.Sum import           Network.AWS.Sign.V4 --- | Version @2014-10-31@ of the Amazon Relational Database Service SDK.-data RDS--instance AWSService RDS where-    type Sg RDS = V4-    service = const svc-      where-        svc =-            Service-            { _svcAbbrev = "RDS"-            , _svcPrefix = "rds"-            , _svcVersion = "2014-10-31"-            , _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 '2014-10-31' of the Amazon Relational Database Service SDK configuration.+rDS :: Service+rDS =+    Service+    { _svcAbbrev = "RDS"+    , _svcSigner = v4+    , _svcPrefix = "rds"+    , _svcVersion = "2014-10-31"+    , _svcEndpoint = defaultEndpoint rDS+    , _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  -- | /CertificateIdentifier/ does not refer to an existing certificate. _CertificateNotFoundFault :: 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 #-} 

@@ -878,454 +878,530 @@ testDescribeDBEngineVersionsResponse = res     "DescribeDBEngineVersionsResponse"     "fixture/DescribeDBEngineVersionsResponse"+    rDS     (Proxy :: Proxy DescribeDBEngineVersions)  testDescribeDBClusterParameterGroupsResponse :: DescribeDBClusterParameterGroupsResponse -> TestTree testDescribeDBClusterParameterGroupsResponse = res     "DescribeDBClusterParameterGroupsResponse"     "fixture/DescribeDBClusterParameterGroupsResponse"+    rDS     (Proxy :: Proxy DescribeDBClusterParameterGroups)  testPromoteReadReplicaResponse :: PromoteReadReplicaResponse -> TestTree testPromoteReadReplicaResponse = res     "PromoteReadReplicaResponse"     "fixture/PromoteReadReplicaResponse"+    rDS     (Proxy :: Proxy PromoteReadReplica)  testModifyEventSubscriptionResponse :: ModifyEventSubscriptionResponse -> TestTree testModifyEventSubscriptionResponse = res     "ModifyEventSubscriptionResponse"     "fixture/ModifyEventSubscriptionResponse"+    rDS     (Proxy :: Proxy ModifyEventSubscription)  testCopyDBSnapshotResponse :: CopyDBSnapshotResponse -> TestTree testCopyDBSnapshotResponse = res     "CopyDBSnapshotResponse"     "fixture/CopyDBSnapshotResponse"+    rDS     (Proxy :: Proxy CopyDBSnapshot)  testAddSourceIdentifierToSubscriptionResponse :: AddSourceIdentifierToSubscriptionResponse -> TestTree testAddSourceIdentifierToSubscriptionResponse = res     "AddSourceIdentifierToSubscriptionResponse"     "fixture/AddSourceIdentifierToSubscriptionResponse"+    rDS     (Proxy :: Proxy AddSourceIdentifierToSubscription)  testModifyDBInstanceResponse :: ModifyDBInstanceResponse -> TestTree testModifyDBInstanceResponse = res     "ModifyDBInstanceResponse"     "fixture/ModifyDBInstanceResponse"+    rDS     (Proxy :: Proxy ModifyDBInstance)  testResetDBClusterParameterGroupResponse :: DBClusterParameterGroupNameMessage -> TestTree testResetDBClusterParameterGroupResponse = res     "ResetDBClusterParameterGroupResponse"     "fixture/ResetDBClusterParameterGroupResponse"+    rDS     (Proxy :: Proxy ResetDBClusterParameterGroup)  testDescribeEventsResponse :: DescribeEventsResponse -> TestTree testDescribeEventsResponse = res     "DescribeEventsResponse"     "fixture/DescribeEventsResponse"+    rDS     (Proxy :: Proxy DescribeEvents)  testDescribeEngineDefaultParametersResponse :: DescribeEngineDefaultParametersResponse -> TestTree testDescribeEngineDefaultParametersResponse = res     "DescribeEngineDefaultParametersResponse"     "fixture/DescribeEngineDefaultParametersResponse"+    rDS     (Proxy :: Proxy DescribeEngineDefaultParameters)  testDescribeDBClustersResponse :: DescribeDBClustersResponse -> TestTree testDescribeDBClustersResponse = res     "DescribeDBClustersResponse"     "fixture/DescribeDBClustersResponse"+    rDS     (Proxy :: Proxy DescribeDBClusters)  testModifyDBSubnetGroupResponse :: ModifyDBSubnetGroupResponse -> TestTree testModifyDBSubnetGroupResponse = res     "ModifyDBSubnetGroupResponse"     "fixture/ModifyDBSubnetGroupResponse"+    rDS     (Proxy :: Proxy ModifyDBSubnetGroup)  testDescribeDBLogFilesResponse :: DescribeDBLogFilesResponse -> TestTree testDescribeDBLogFilesResponse = res     "DescribeDBLogFilesResponse"     "fixture/DescribeDBLogFilesResponse"+    rDS     (Proxy :: Proxy DescribeDBLogFiles)  testListTagsForResourceResponse :: ListTagsForResourceResponse -> TestTree testListTagsForResourceResponse = res     "ListTagsForResourceResponse"     "fixture/ListTagsForResourceResponse"+    rDS     (Proxy :: Proxy ListTagsForResource)  testDescribeOptionGroupsResponse :: DescribeOptionGroupsResponse -> TestTree testDescribeOptionGroupsResponse = res     "DescribeOptionGroupsResponse"     "fixture/DescribeOptionGroupsResponse"+    rDS     (Proxy :: Proxy DescribeOptionGroups)  testDeleteDBClusterResponse :: DeleteDBClusterResponse -> TestTree testDeleteDBClusterResponse = res     "DeleteDBClusterResponse"     "fixture/DeleteDBClusterResponse"+    rDS     (Proxy :: Proxy DeleteDBCluster)  testRemoveSourceIdentifierFromSubscriptionResponse :: RemoveSourceIdentifierFromSubscriptionResponse -> TestTree testRemoveSourceIdentifierFromSubscriptionResponse = res     "RemoveSourceIdentifierFromSubscriptionResponse"     "fixture/RemoveSourceIdentifierFromSubscriptionResponse"+    rDS     (Proxy :: Proxy RemoveSourceIdentifierFromSubscription)  testCopyDBParameterGroupResponse :: CopyDBParameterGroupResponse -> TestTree testCopyDBParameterGroupResponse = res     "CopyDBParameterGroupResponse"     "fixture/CopyDBParameterGroupResponse"+    rDS     (Proxy :: Proxy CopyDBParameterGroup)  testDescribeReservedDBInstancesResponse :: DescribeReservedDBInstancesResponse -> TestTree testDescribeReservedDBInstancesResponse = res     "DescribeReservedDBInstancesResponse"     "fixture/DescribeReservedDBInstancesResponse"+    rDS     (Proxy :: Proxy DescribeReservedDBInstances)  testDeleteOptionGroupResponse :: DeleteOptionGroupResponse -> TestTree testDeleteOptionGroupResponse = res     "DeleteOptionGroupResponse"     "fixture/DeleteOptionGroupResponse"+    rDS     (Proxy :: Proxy DeleteOptionGroup)  testDescribeEngineDefaultClusterParametersResponse :: DescribeEngineDefaultClusterParametersResponse -> TestTree testDescribeEngineDefaultClusterParametersResponse = res     "DescribeEngineDefaultClusterParametersResponse"     "fixture/DescribeEngineDefaultClusterParametersResponse"+    rDS     (Proxy :: Proxy DescribeEngineDefaultClusterParameters)  testCreateEventSubscriptionResponse :: CreateEventSubscriptionResponse -> TestTree testCreateEventSubscriptionResponse = res     "CreateEventSubscriptionResponse"     "fixture/CreateEventSubscriptionResponse"+    rDS     (Proxy :: Proxy CreateEventSubscription)  testRemoveTagsFromResourceResponse :: RemoveTagsFromResourceResponse -> TestTree testRemoveTagsFromResourceResponse = res     "RemoveTagsFromResourceResponse"     "fixture/RemoveTagsFromResourceResponse"+    rDS     (Proxy :: Proxy RemoveTagsFromResource)  testCreateDBInstanceResponse :: CreateDBInstanceResponse -> TestTree testCreateDBInstanceResponse = res     "CreateDBInstanceResponse"     "fixture/CreateDBInstanceResponse"+    rDS     (Proxy :: Proxy CreateDBInstance)  testRestoreDBInstanceFromDBSnapshotResponse :: RestoreDBInstanceFromDBSnapshotResponse -> TestTree testRestoreDBInstanceFromDBSnapshotResponse = res     "RestoreDBInstanceFromDBSnapshotResponse"     "fixture/RestoreDBInstanceFromDBSnapshotResponse"+    rDS     (Proxy :: Proxy RestoreDBInstanceFromDBSnapshot)  testAuthorizeDBSecurityGroupIngressResponse :: AuthorizeDBSecurityGroupIngressResponse -> TestTree testAuthorizeDBSecurityGroupIngressResponse = res     "AuthorizeDBSecurityGroupIngressResponse"     "fixture/AuthorizeDBSecurityGroupIngressResponse"+    rDS     (Proxy :: Proxy AuthorizeDBSecurityGroupIngress)  testDeleteDBClusterParameterGroupResponse :: DeleteDBClusterParameterGroupResponse -> TestTree testDeleteDBClusterParameterGroupResponse = res     "DeleteDBClusterParameterGroupResponse"     "fixture/DeleteDBClusterParameterGroupResponse"+    rDS     (Proxy :: Proxy DeleteDBClusterParameterGroup)  testPurchaseReservedDBInstancesOfferingResponse :: PurchaseReservedDBInstancesOfferingResponse -> TestTree testPurchaseReservedDBInstancesOfferingResponse = res     "PurchaseReservedDBInstancesOfferingResponse"     "fixture/PurchaseReservedDBInstancesOfferingResponse"+    rDS     (Proxy :: Proxy PurchaseReservedDBInstancesOffering)  testDescribeCertificatesResponse :: DescribeCertificatesResponse -> TestTree testDescribeCertificatesResponse = res     "DescribeCertificatesResponse"     "fixture/DescribeCertificatesResponse"+    rDS     (Proxy :: Proxy DescribeCertificates)  testRestoreDBClusterFromSnapshotResponse :: RestoreDBClusterFromSnapshotResponse -> TestTree testRestoreDBClusterFromSnapshotResponse = res     "RestoreDBClusterFromSnapshotResponse"     "fixture/RestoreDBClusterFromSnapshotResponse"+    rDS     (Proxy :: Proxy RestoreDBClusterFromSnapshot)  testCreateDBSnapshotResponse :: CreateDBSnapshotResponse -> TestTree testCreateDBSnapshotResponse = res     "CreateDBSnapshotResponse"     "fixture/CreateDBSnapshotResponse"+    rDS     (Proxy :: Proxy CreateDBSnapshot)  testDeleteEventSubscriptionResponse :: DeleteEventSubscriptionResponse -> TestTree testDeleteEventSubscriptionResponse = res     "DeleteEventSubscriptionResponse"     "fixture/DeleteEventSubscriptionResponse"+    rDS     (Proxy :: Proxy DeleteEventSubscription)  testDescribeDBParameterGroupsResponse :: DescribeDBParameterGroupsResponse -> TestTree testDescribeDBParameterGroupsResponse = res     "DescribeDBParameterGroupsResponse"     "fixture/DescribeDBParameterGroupsResponse"+    rDS     (Proxy :: Proxy DescribeDBParameterGroups)  testDescribeOrderableDBInstanceOptionsResponse :: DescribeOrderableDBInstanceOptionsResponse -> TestTree testDescribeOrderableDBInstanceOptionsResponse = res     "DescribeOrderableDBInstanceOptionsResponse"     "fixture/DescribeOrderableDBInstanceOptionsResponse"+    rDS     (Proxy :: Proxy DescribeOrderableDBInstanceOptions)  testCreateDBClusterParameterGroupResponse :: CreateDBClusterParameterGroupResponse -> TestTree testCreateDBClusterParameterGroupResponse = res     "CreateDBClusterParameterGroupResponse"     "fixture/CreateDBClusterParameterGroupResponse"+    rDS     (Proxy :: Proxy CreateDBClusterParameterGroup)  testDescribeEventSubscriptionsResponse :: DescribeEventSubscriptionsResponse -> TestTree testDescribeEventSubscriptionsResponse = res     "DescribeEventSubscriptionsResponse"     "fixture/DescribeEventSubscriptionsResponse"+    rDS     (Proxy :: Proxy DescribeEventSubscriptions)  testAddTagsToResourceResponse :: AddTagsToResourceResponse -> TestTree testAddTagsToResourceResponse = res     "AddTagsToResourceResponse"     "fixture/AddTagsToResourceResponse"+    rDS     (Proxy :: Proxy AddTagsToResource)  testDescribeOptionGroupOptionsResponse :: DescribeOptionGroupOptionsResponse -> TestTree testDescribeOptionGroupOptionsResponse = res     "DescribeOptionGroupOptionsResponse"     "fixture/DescribeOptionGroupOptionsResponse"+    rDS     (Proxy :: Proxy DescribeOptionGroupOptions)  testDescribeDBParametersResponse :: DescribeDBParametersResponse -> TestTree testDescribeDBParametersResponse = res     "DescribeDBParametersResponse"     "fixture/DescribeDBParametersResponse"+    rDS     (Proxy :: Proxy DescribeDBParameters)  testDeleteDBClusterSnapshotResponse :: DeleteDBClusterSnapshotResponse -> TestTree testDeleteDBClusterSnapshotResponse = res     "DeleteDBClusterSnapshotResponse"     "fixture/DeleteDBClusterSnapshotResponse"+    rDS     (Proxy :: Proxy DeleteDBClusterSnapshot)  testDescribeDBSnapshotsResponse :: DescribeDBSnapshotsResponse -> TestTree testDescribeDBSnapshotsResponse = res     "DescribeDBSnapshotsResponse"     "fixture/DescribeDBSnapshotsResponse"+    rDS     (Proxy :: Proxy DescribeDBSnapshots)  testDescribeDBSubnetGroupsResponse :: DescribeDBSubnetGroupsResponse -> TestTree testDescribeDBSubnetGroupsResponse = res     "DescribeDBSubnetGroupsResponse"     "fixture/DescribeDBSubnetGroupsResponse"+    rDS     (Proxy :: Proxy DescribeDBSubnetGroups)  testCreateDBParameterGroupResponse :: CreateDBParameterGroupResponse -> TestTree testCreateDBParameterGroupResponse = res     "CreateDBParameterGroupResponse"     "fixture/CreateDBParameterGroupResponse"+    rDS     (Proxy :: Proxy CreateDBParameterGroup)  testCreateDBClusterSnapshotResponse :: CreateDBClusterSnapshotResponse -> TestTree testCreateDBClusterSnapshotResponse = res     "CreateDBClusterSnapshotResponse"     "fixture/CreateDBClusterSnapshotResponse"+    rDS     (Proxy :: Proxy CreateDBClusterSnapshot)  testModifyOptionGroupResponse :: ModifyOptionGroupResponse -> TestTree testModifyOptionGroupResponse = res     "ModifyOptionGroupResponse"     "fixture/ModifyOptionGroupResponse"+    rDS     (Proxy :: Proxy ModifyOptionGroup)  testModifyDBClusterResponse :: ModifyDBClusterResponse -> TestTree testModifyDBClusterResponse = res     "ModifyDBClusterResponse"     "fixture/ModifyDBClusterResponse"+    rDS     (Proxy :: Proxy ModifyDBCluster)  testDescribeEventCategoriesResponse :: DescribeEventCategoriesResponse -> TestTree testDescribeEventCategoriesResponse = res     "DescribeEventCategoriesResponse"     "fixture/DescribeEventCategoriesResponse"+    rDS     (Proxy :: Proxy DescribeEventCategories)  testModifyDBClusterParameterGroupResponse :: DBClusterParameterGroupNameMessage -> TestTree testModifyDBClusterParameterGroupResponse = res     "ModifyDBClusterParameterGroupResponse"     "fixture/ModifyDBClusterParameterGroupResponse"+    rDS     (Proxy :: Proxy ModifyDBClusterParameterGroup)  testDescribePendingMaintenanceActionsResponse :: DescribePendingMaintenanceActionsResponse -> TestTree testDescribePendingMaintenanceActionsResponse = res     "DescribePendingMaintenanceActionsResponse"     "fixture/DescribePendingMaintenanceActionsResponse"+    rDS     (Proxy :: Proxy DescribePendingMaintenanceActions)  testRestoreDBInstanceToPointInTimeResponse :: RestoreDBInstanceToPointInTimeResponse -> TestTree testRestoreDBInstanceToPointInTimeResponse = res     "RestoreDBInstanceToPointInTimeResponse"     "fixture/RestoreDBInstanceToPointInTimeResponse"+    rDS     (Proxy :: Proxy RestoreDBInstanceToPointInTime)  testResetDBParameterGroupResponse :: DBParameterGroupNameMessage -> TestTree testResetDBParameterGroupResponse = res     "ResetDBParameterGroupResponse"     "fixture/ResetDBParameterGroupResponse"+    rDS     (Proxy :: Proxy ResetDBParameterGroup)  testCopyDBClusterSnapshotResponse :: CopyDBClusterSnapshotResponse -> TestTree testCopyDBClusterSnapshotResponse = res     "CopyDBClusterSnapshotResponse"     "fixture/CopyDBClusterSnapshotResponse"+    rDS     (Proxy :: Proxy CopyDBClusterSnapshot)  testModifyDBParameterGroupResponse :: DBParameterGroupNameMessage -> TestTree testModifyDBParameterGroupResponse = res     "ModifyDBParameterGroupResponse"     "fixture/ModifyDBParameterGroupResponse"+    rDS     (Proxy :: Proxy ModifyDBParameterGroup)  testFailoverDBClusterResponse :: FailoverDBClusterResponse -> TestTree testFailoverDBClusterResponse = res     "FailoverDBClusterResponse"     "fixture/FailoverDBClusterResponse"+    rDS     (Proxy :: Proxy FailoverDBCluster)  testCreateDBClusterResponse :: CreateDBClusterResponse -> TestTree testCreateDBClusterResponse = res     "CreateDBClusterResponse"     "fixture/CreateDBClusterResponse"+    rDS     (Proxy :: Proxy CreateDBCluster)  testCreateOptionGroupResponse :: CreateOptionGroupResponse -> TestTree testCreateOptionGroupResponse = res     "CreateOptionGroupResponse"     "fixture/CreateOptionGroupResponse"+    rDS     (Proxy :: Proxy CreateOptionGroup)  testApplyPendingMaintenanceActionResponse :: ApplyPendingMaintenanceActionResponse -> TestTree testApplyPendingMaintenanceActionResponse = res     "ApplyPendingMaintenanceActionResponse"     "fixture/ApplyPendingMaintenanceActionResponse"+    rDS     (Proxy :: Proxy ApplyPendingMaintenanceAction)  testRevokeDBSecurityGroupIngressResponse :: RevokeDBSecurityGroupIngressResponse -> TestTree testRevokeDBSecurityGroupIngressResponse = res     "RevokeDBSecurityGroupIngressResponse"     "fixture/RevokeDBSecurityGroupIngressResponse"+    rDS     (Proxy :: Proxy RevokeDBSecurityGroupIngress)  testDeleteDBSnapshotResponse :: DeleteDBSnapshotResponse -> TestTree testDeleteDBSnapshotResponse = res     "DeleteDBSnapshotResponse"     "fixture/DeleteDBSnapshotResponse"+    rDS     (Proxy :: Proxy DeleteDBSnapshot)  testDescribeDBClusterParametersResponse :: DescribeDBClusterParametersResponse -> TestTree testDescribeDBClusterParametersResponse = res     "DescribeDBClusterParametersResponse"     "fixture/DescribeDBClusterParametersResponse"+    rDS     (Proxy :: Proxy DescribeDBClusterParameters)  testCreateDBSecurityGroupResponse :: CreateDBSecurityGroupResponse -> TestTree testCreateDBSecurityGroupResponse = res     "CreateDBSecurityGroupResponse"     "fixture/CreateDBSecurityGroupResponse"+    rDS     (Proxy :: Proxy CreateDBSecurityGroup)  testDeleteDBSubnetGroupResponse :: DeleteDBSubnetGroupResponse -> TestTree testDeleteDBSubnetGroupResponse = res     "DeleteDBSubnetGroupResponse"     "fixture/DeleteDBSubnetGroupResponse"+    rDS     (Proxy :: Proxy DeleteDBSubnetGroup)  testDescribeAccountAttributesResponse :: DescribeAccountAttributesResponse -> TestTree testDescribeAccountAttributesResponse = res     "DescribeAccountAttributesResponse"     "fixture/DescribeAccountAttributesResponse"+    rDS     (Proxy :: Proxy DescribeAccountAttributes)  testDeleteDBSecurityGroupResponse :: DeleteDBSecurityGroupResponse -> TestTree testDeleteDBSecurityGroupResponse = res     "DeleteDBSecurityGroupResponse"     "fixture/DeleteDBSecurityGroupResponse"+    rDS     (Proxy :: Proxy DeleteDBSecurityGroup)  testRebootDBInstanceResponse :: RebootDBInstanceResponse -> TestTree testRebootDBInstanceResponse = res     "RebootDBInstanceResponse"     "fixture/RebootDBInstanceResponse"+    rDS     (Proxy :: Proxy RebootDBInstance)  testDescribeDBClusterSnapshotsResponse :: DescribeDBClusterSnapshotsResponse -> TestTree testDescribeDBClusterSnapshotsResponse = res     "DescribeDBClusterSnapshotsResponse"     "fixture/DescribeDBClusterSnapshotsResponse"+    rDS     (Proxy :: Proxy DescribeDBClusterSnapshots)  testCreateDBSubnetGroupResponse :: CreateDBSubnetGroupResponse -> TestTree testCreateDBSubnetGroupResponse = res     "CreateDBSubnetGroupResponse"     "fixture/CreateDBSubnetGroupResponse"+    rDS     (Proxy :: Proxy CreateDBSubnetGroup)  testDescribeReservedDBInstancesOfferingsResponse :: DescribeReservedDBInstancesOfferingsResponse -> TestTree testDescribeReservedDBInstancesOfferingsResponse = res     "DescribeReservedDBInstancesOfferingsResponse"     "fixture/DescribeReservedDBInstancesOfferingsResponse"+    rDS     (Proxy :: Proxy DescribeReservedDBInstancesOfferings)  testDeleteDBInstanceResponse :: DeleteDBInstanceResponse -> TestTree testDeleteDBInstanceResponse = res     "DeleteDBInstanceResponse"     "fixture/DeleteDBInstanceResponse"+    rDS     (Proxy :: Proxy DeleteDBInstance)  testDescribeDBInstancesResponse :: DescribeDBInstancesResponse -> TestTree testDescribeDBInstancesResponse = res     "DescribeDBInstancesResponse"     "fixture/DescribeDBInstancesResponse"+    rDS     (Proxy :: Proxy DescribeDBInstances)  testCopyOptionGroupResponse :: CopyOptionGroupResponse -> TestTree testCopyOptionGroupResponse = res     "CopyOptionGroupResponse"     "fixture/CopyOptionGroupResponse"+    rDS     (Proxy :: Proxy CopyOptionGroup)  testDownloadDBLogFilePortionResponse :: DownloadDBLogFilePortionResponse -> TestTree testDownloadDBLogFilePortionResponse = res     "DownloadDBLogFilePortionResponse"     "fixture/DownloadDBLogFilePortionResponse"+    rDS     (Proxy :: Proxy DownloadDBLogFilePortion)  testCreateDBInstanceReadReplicaResponse :: CreateDBInstanceReadReplicaResponse -> TestTree testCreateDBInstanceReadReplicaResponse = res     "CreateDBInstanceReadReplicaResponse"     "fixture/CreateDBInstanceReadReplicaResponse"+    rDS     (Proxy :: Proxy CreateDBInstanceReadReplica)  testRestoreDBClusterToPointInTimeResponse :: RestoreDBClusterToPointInTimeResponse -> TestTree testRestoreDBClusterToPointInTimeResponse = res     "RestoreDBClusterToPointInTimeResponse"     "fixture/RestoreDBClusterToPointInTimeResponse"+    rDS     (Proxy :: Proxy RestoreDBClusterToPointInTime)  testDeleteDBParameterGroupResponse :: DeleteDBParameterGroupResponse -> TestTree testDeleteDBParameterGroupResponse = res     "DeleteDBParameterGroupResponse"     "fixture/DeleteDBParameterGroupResponse"+    rDS     (Proxy :: Proxy DeleteDBParameterGroup)  testDescribeDBSecurityGroupsResponse :: DescribeDBSecurityGroupsResponse -> TestTree testDescribeDBSecurityGroupsResponse = res     "DescribeDBSecurityGroupsResponse"     "fixture/DescribeDBSecurityGroupsResponse"+    rDS     (Proxy :: Proxy DescribeDBSecurityGroups)