diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.3.7` +`1.4.0` ## Description @@ -44,7 +44,7 @@ . Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-rds) -and the [AWS API Reference](http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/Welcome.html). +and the [AWS API Reference](https://aws.amazon.com/documentation/). The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka), which provides mechanisms for specifying AuthN/AuthZ information and sending requests. diff --git a/amazonka-rds.cabal b/amazonka-rds.cabal --- a/amazonka-rds.cabal +++ b/amazonka-rds.cabal @@ -1,5 +1,5 @@ name: amazonka-rds -version: 1.3.7 +version: 1.4.0 synopsis: Amazon Relational Database Service SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -7,7 +7,7 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay -copyright: Copyright (c) 2013-2015 Brendan Hay +copyright: Copyright (c) 2013-2016 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10 @@ -54,7 +54,7 @@ such as or . . - See "Network.AWS.RDS" and the + See "Network.AWS.RDS" or to get started. source-repository head @@ -155,7 +155,7 @@ , Network.AWS.RDS.Types.Sum build-depends: - amazonka-core == 1.3.7.* + amazonka-core == 1.4.0.* , base >= 4.7 && < 5 test-suite amazonka-rds-test @@ -175,9 +175,9 @@ , Test.AWS.RDS.Internal build-depends: - amazonka-core == 1.3.7.* - , amazonka-test == 1.3.7.* - , amazonka-rds == 1.3.7.* + amazonka-core == 1.4.0.* + , amazonka-test == 1.4.0.* + , amazonka-rds == 1.4.0.* , base , bytestring , tasty diff --git a/gen/Network/AWS/RDS.hs b/gen/Network/AWS/RDS.hs --- a/gen/Network/AWS/RDS.hs +++ b/gen/Network/AWS/RDS.hs @@ -5,7 +5,7 @@ -- | -- Module : Network.AWS.RDS --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -40,12 +40,10 @@ -- applied immediately, on the next instance reboot, or during the -- maintenance window. For a summary of the Amazon RDS interfaces, go to -- . --- --- /See:/ module Network.AWS.RDS ( -- * Service Configuration - rDS + rds -- * Errors -- $errors diff --git a/gen/Network/AWS/RDS/AddSourceIdentifierToSubscription.hs b/gen/Network/AWS/RDS/AddSourceIdentifierToSubscription.hs --- a/gen/Network/AWS/RDS/AddSourceIdentifierToSubscription.hs +++ b/gen/Network/AWS/RDS/AddSourceIdentifierToSubscription.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.AddSourceIdentifierToSubscription --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Adds a source identifier to an existing RDS event notification -- subscription. --- --- /See:/ for AddSourceIdentifierToSubscription. module Network.AWS.RDS.AddSourceIdentifierToSubscription ( -- * Creating a Request @@ -97,13 +95,15 @@ where type Rs AddSourceIdentifierToSubscription = AddSourceIdentifierToSubscriptionResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "AddSourceIdentifierToSubscriptionResult" (\ s h x -> AddSourceIdentifierToSubscriptionResponse' <$> (x .@? "EventSubscription") <*> (pure (fromEnum s))) + +instance Hashable AddSourceIdentifierToSubscription instance ToHeaders AddSourceIdentifierToSubscription where diff --git a/gen/Network/AWS/RDS/AddTagsToResource.hs b/gen/Network/AWS/RDS/AddTagsToResource.hs --- a/gen/Network/AWS/RDS/AddTagsToResource.hs +++ b/gen/Network/AWS/RDS/AddTagsToResource.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.AddTagsToResource --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -25,8 +25,6 @@ -- -- For an overview on tagging Amazon RDS resources, see -- . --- --- /See:/ for AddTagsToResource. module Network.AWS.RDS.AddTagsToResource ( -- * Creating a Request @@ -84,8 +82,10 @@ instance AWSRequest AddTagsToResource where type Rs AddTagsToResource = AddTagsToResourceResponse - request = postQuery rDS + request = postQuery rds response = receiveNull AddTagsToResourceResponse' + +instance Hashable AddTagsToResource instance ToHeaders AddTagsToResource where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/ApplyPendingMaintenanceAction.hs b/gen/Network/AWS/RDS/ApplyPendingMaintenanceAction.hs --- a/gen/Network/AWS/RDS/ApplyPendingMaintenanceAction.hs +++ b/gen/Network/AWS/RDS/ApplyPendingMaintenanceAction.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.ApplyPendingMaintenanceAction --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Applies a pending maintenance action to a resource (for example, to a DB -- instance). --- --- /See:/ for ApplyPendingMaintenanceAction. module Network.AWS.RDS.ApplyPendingMaintenanceAction ( -- * Creating a Request @@ -105,7 +103,7 @@ where type Rs ApplyPendingMaintenanceAction = ApplyPendingMaintenanceActionResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "ApplyPendingMaintenanceActionResult" @@ -113,6 +111,8 @@ ApplyPendingMaintenanceActionResponse' <$> (x .@? "ResourcePendingMaintenanceActions") <*> (pure (fromEnum s))) + +instance Hashable ApplyPendingMaintenanceAction instance ToHeaders ApplyPendingMaintenanceAction where diff --git a/gen/Network/AWS/RDS/AuthorizeDBSecurityGroupIngress.hs b/gen/Network/AWS/RDS/AuthorizeDBSecurityGroupIngress.hs --- a/gen/Network/AWS/RDS/AuthorizeDBSecurityGroupIngress.hs +++ b/gen/Network/AWS/RDS/AuthorizeDBSecurityGroupIngress.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.AuthorizeDBSecurityGroupIngress --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -33,8 +33,6 @@ -- -- For an overview of CIDR ranges, go to the -- . --- --- /See:/ for AuthorizeDBSecurityGroupIngress. module Network.AWS.RDS.AuthorizeDBSecurityGroupIngress ( -- * Creating a Request @@ -132,13 +130,15 @@ where type Rs AuthorizeDBSecurityGroupIngress = AuthorizeDBSecurityGroupIngressResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "AuthorizeDBSecurityGroupIngressResult" (\ s h x -> AuthorizeDBSecurityGroupIngressResponse' <$> (x .@? "DBSecurityGroup") <*> (pure (fromEnum s))) + +instance Hashable AuthorizeDBSecurityGroupIngress instance ToHeaders AuthorizeDBSecurityGroupIngress where diff --git a/gen/Network/AWS/RDS/CopyDBClusterSnapshot.hs b/gen/Network/AWS/RDS/CopyDBClusterSnapshot.hs --- a/gen/Network/AWS/RDS/CopyDBClusterSnapshot.hs +++ b/gen/Network/AWS/RDS/CopyDBClusterSnapshot.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.CopyDBClusterSnapshot --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -22,8 +22,6 @@ -- Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for CopyDBClusterSnapshot. module Network.AWS.RDS.CopyDBClusterSnapshot ( -- * Creating a Request @@ -111,12 +109,14 @@ instance AWSRequest CopyDBClusterSnapshot where type Rs CopyDBClusterSnapshot = CopyDBClusterSnapshotResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CopyDBClusterSnapshotResult" (\ s h x -> CopyDBClusterSnapshotResponse' <$> (x .@? "DBClusterSnapshot") <*> (pure (fromEnum s))) + +instance Hashable CopyDBClusterSnapshot instance ToHeaders CopyDBClusterSnapshot where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/CopyDBParameterGroup.hs b/gen/Network/AWS/RDS/CopyDBParameterGroup.hs --- a/gen/Network/AWS/RDS/CopyDBParameterGroup.hs +++ b/gen/Network/AWS/RDS/CopyDBParameterGroup.hs @@ -12,15 +12,13 @@ -- | -- Module : Network.AWS.RDS.CopyDBParameterGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Copies the specified DB parameter group. --- --- /See:/ for CopyDBParameterGroup. module Network.AWS.RDS.CopyDBParameterGroup ( -- * Creating a Request @@ -121,12 +119,14 @@ instance AWSRequest CopyDBParameterGroup where type Rs CopyDBParameterGroup = CopyDBParameterGroupResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CopyDBParameterGroupResult" (\ s h x -> CopyDBParameterGroupResponse' <$> (x .@? "DBParameterGroup") <*> (pure (fromEnum s))) + +instance Hashable CopyDBParameterGroup instance ToHeaders CopyDBParameterGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/CopyDBSnapshot.hs b/gen/Network/AWS/RDS/CopyDBSnapshot.hs --- a/gen/Network/AWS/RDS/CopyDBSnapshot.hs +++ b/gen/Network/AWS/RDS/CopyDBSnapshot.hs @@ -12,19 +12,17 @@ -- | -- Module : Network.AWS.RDS.CopyDBSnapshot --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Copies the specified DBSnapshot. The source DB snapshot must be in the +-- Copies the specified DB Snapshot. The source DB snapshot must be in the -- \"available\" state. -- -- If you are copying from a shared manual DB snapshot, the -- 'SourceDBSnapshotIdentifier' must be the ARN of the shared DB snapshot. --- --- /See:/ for CopyDBSnapshot. module Network.AWS.RDS.CopyDBSnapshot ( -- * Creating a Request @@ -32,6 +30,7 @@ , CopyDBSnapshot -- * Request Lenses , cdsCopyTags + , cdsKMSKeyId , cdsTags , cdsSourceDBSnapshotIdentifier , cdsTargetDBSnapshotIdentifier @@ -56,6 +55,7 @@ -- /See:/ 'copyDBSnapshot' smart constructor. data CopyDBSnapshot = CopyDBSnapshot' { _cdsCopyTags :: !(Maybe Bool) + , _cdsKMSKeyId :: !(Maybe Text) , _cdsTags :: !(Maybe [Tag]) , _cdsSourceDBSnapshotIdentifier :: !Text , _cdsTargetDBSnapshotIdentifier :: !Text @@ -67,6 +67,8 @@ -- -- * 'cdsCopyTags' -- +-- * 'cdsKMSKeyId' +-- -- * 'cdsTags' -- -- * 'cdsSourceDBSnapshotIdentifier' @@ -79,6 +81,7 @@ copyDBSnapshot pSourceDBSnapshotIdentifier_ pTargetDBSnapshotIdentifier_ = CopyDBSnapshot' { _cdsCopyTags = Nothing + , _cdsKMSKeyId = Nothing , _cdsTags = Nothing , _cdsSourceDBSnapshotIdentifier = pSourceDBSnapshotIdentifier_ , _cdsTargetDBSnapshotIdentifier = pTargetDBSnapshotIdentifier_ @@ -89,6 +92,25 @@ cdsCopyTags :: Lens' CopyDBSnapshot (Maybe Bool) cdsCopyTags = lens _cdsCopyTags (\ s a -> s{_cdsCopyTags = a}); +-- | The AWS Key Management Service (AWS KMS) key identifier for an encrypted +-- DB snapshot. The KMS key identifier is the Amazon Resource Name (ARN) or +-- the KMS key alias for the KMS encryption key. +-- +-- If you copy an unencrypted DB snapshot and specify a value for the +-- 'KmsKeyId' parameter, Amazon RDS encrypts the target DB snapshot using +-- the specified KMS encryption key. +-- +-- If you copy an encrypted DB snapshot from your AWS account, you can +-- specify a value for 'KmsKeyId' to encrypt the copy with a new KMS +-- encryption key. If you don\'t specify a value for 'KmsKeyId' then the +-- copy of the DB snapshot is encrypted with the same KMS key as the source +-- DB snapshot. +-- +-- If you copy an encrypted DB snapshot that is shared from another AWS +-- account, then you must specify a value for 'KmsKeyId'. +cdsKMSKeyId :: Lens' CopyDBSnapshot (Maybe Text) +cdsKMSKeyId = lens _cdsKMSKeyId (\ s a -> s{_cdsKMSKeyId = a}); + -- | Undocumented member. cdsTags :: Lens' CopyDBSnapshot [Tag] cdsTags = lens _cdsTags (\ s a -> s{_cdsTags = a}) . _Default . _Coerce; @@ -129,13 +151,15 @@ instance AWSRequest CopyDBSnapshot where type Rs CopyDBSnapshot = CopyDBSnapshotResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CopyDBSnapshotResult" (\ s h x -> CopyDBSnapshotResponse' <$> (x .@? "DBSnapshot") <*> (pure (fromEnum s))) +instance Hashable CopyDBSnapshot + instance ToHeaders CopyDBSnapshot where toHeaders = const mempty @@ -148,6 +172,7 @@ ["Action" =: ("CopyDBSnapshot" :: ByteString), "Version" =: ("2014-10-31" :: ByteString), "CopyTags" =: _cdsCopyTags, + "KmsKeyId" =: _cdsKMSKeyId, "Tags" =: toQuery (toQueryList "Tag" <$> _cdsTags), "SourceDBSnapshotIdentifier" =: _cdsSourceDBSnapshotIdentifier, diff --git a/gen/Network/AWS/RDS/CopyOptionGroup.hs b/gen/Network/AWS/RDS/CopyOptionGroup.hs --- a/gen/Network/AWS/RDS/CopyOptionGroup.hs +++ b/gen/Network/AWS/RDS/CopyOptionGroup.hs @@ -12,15 +12,13 @@ -- | -- Module : Network.AWS.RDS.CopyOptionGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Copies the specified option group. --- --- /See:/ for CopyOptionGroup. module Network.AWS.RDS.CopyOptionGroup ( -- * Creating a Request @@ -120,12 +118,14 @@ instance AWSRequest CopyOptionGroup where type Rs CopyOptionGroup = CopyOptionGroupResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CopyOptionGroupResult" (\ s h x -> CopyOptionGroupResponse' <$> (x .@? "OptionGroup") <*> (pure (fromEnum s))) + +instance Hashable CopyOptionGroup instance ToHeaders CopyOptionGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/CreateDBCluster.hs b/gen/Network/AWS/RDS/CreateDBCluster.hs --- a/gen/Network/AWS/RDS/CreateDBCluster.hs +++ b/gen/Network/AWS/RDS/CreateDBCluster.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.CreateDBCluster --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -22,8 +22,6 @@ -- Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for CreateDBCluster. module Network.AWS.RDS.CreateDBCluster ( -- * Creating a Request @@ -173,6 +171,13 @@ cdcStorageEncrypted = lens _cdcStorageEncrypted (\ s a -> s{_cdcStorageEncrypted = a}); -- | A DB subnet group to associate with this DB cluster. +-- +-- Constraints: Must contain no more than 255 alphanumeric characters, +-- periods, underscores, spaces, or hyphens. Must not be default. +-- +-- + +-- +-- Example: 'mySubnetgroup' cdcDBSubnetGroupName :: Lens' CreateDBCluster (Maybe Text) cdcDBSubnetGroupName = lens _cdcDBSubnetGroupName (\ s a -> s{_cdcDBSubnetGroupName = a}); @@ -329,12 +334,14 @@ instance AWSRequest CreateDBCluster where type Rs CreateDBCluster = CreateDBClusterResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CreateDBClusterResult" (\ s h x -> CreateDBClusterResponse' <$> (x .@? "DBCluster") <*> (pure (fromEnum s))) + +instance Hashable CreateDBCluster instance ToHeaders CreateDBCluster where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/CreateDBClusterParameterGroup.hs b/gen/Network/AWS/RDS/CreateDBClusterParameterGroup.hs --- a/gen/Network/AWS/RDS/CreateDBClusterParameterGroup.hs +++ b/gen/Network/AWS/RDS/CreateDBClusterParameterGroup.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.CreateDBClusterParameterGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -26,10 +26,10 @@ -- A DB cluster parameter group is initially created with the default -- parameters for the database engine used by instances in the DB cluster. -- To provide custom values for any of the parameters, you must modify the --- group after creating it using ModifyDBClusterParameterGroup. Once +-- group after creating it using < ModifyDBClusterParameterGroup>. Once -- you\'ve created a DB cluster parameter group, you need to associate it --- with your DB cluster using ModifyDBCluster. When you associate a new DB --- cluster parameter group with a running DB cluster, you need to reboot +-- with your DB cluster using < ModifyDBCluster>. When you associate a new +-- DB cluster parameter group with a running DB cluster, you need to reboot -- the DB instances in the DB cluster without failover for the new DB -- cluster parameter group and associated settings to take effect. -- @@ -43,14 +43,12 @@ -- default database defined by the 'character_set_database' parameter. You -- can use the /Parameter Groups/ option of the -- or the --- DescribeDBClusterParameters command to verify that your DB cluster +-- < DescribeDBClusterParameters> command to verify that your DB cluster -- parameter group has been created or modified. -- -- For more information on Amazon Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for CreateDBClusterParameterGroup. module Network.AWS.RDS.CreateDBClusterParameterGroup ( -- * Creating a Request @@ -143,7 +141,7 @@ where type Rs CreateDBClusterParameterGroup = CreateDBClusterParameterGroupResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CreateDBClusterParameterGroupResult" @@ -151,6 +149,8 @@ CreateDBClusterParameterGroupResponse' <$> (x .@? "DBClusterParameterGroup") <*> (pure (fromEnum s))) + +instance Hashable CreateDBClusterParameterGroup instance ToHeaders CreateDBClusterParameterGroup where diff --git a/gen/Network/AWS/RDS/CreateDBClusterSnapshot.hs b/gen/Network/AWS/RDS/CreateDBClusterSnapshot.hs --- a/gen/Network/AWS/RDS/CreateDBClusterSnapshot.hs +++ b/gen/Network/AWS/RDS/CreateDBClusterSnapshot.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.CreateDBClusterSnapshot --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -22,8 +22,6 @@ -- Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for CreateDBClusterSnapshot. module Network.AWS.RDS.CreateDBClusterSnapshot ( -- * Creating a Request @@ -111,12 +109,14 @@ instance AWSRequest CreateDBClusterSnapshot where type Rs CreateDBClusterSnapshot = CreateDBClusterSnapshotResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CreateDBClusterSnapshotResult" (\ s h x -> CreateDBClusterSnapshotResponse' <$> (x .@? "DBClusterSnapshot") <*> (pure (fromEnum s))) + +instance Hashable CreateDBClusterSnapshot instance ToHeaders CreateDBClusterSnapshot where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/CreateDBInstance.hs b/gen/Network/AWS/RDS/CreateDBInstance.hs --- a/gen/Network/AWS/RDS/CreateDBInstance.hs +++ b/gen/Network/AWS/RDS/CreateDBInstance.hs @@ -12,15 +12,13 @@ -- | -- Module : Network.AWS.RDS.CreateDBInstance --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Creates a new DB instance. --- --- /See:/ for CreateDBInstance. module Network.AWS.RDS.CreateDBInstance ( -- * Creating a Request @@ -249,6 +247,7 @@ -- ' 5.5.40b | 5.5.41 | 5.5.42' -- - __Version 5.6 (Available in all regions):__ -- ' 5.6.19a | 5.6.19b | 5.6.21 | 5.6.21b | 5.6.22 | 5.6.23' +-- - __Version 5.7 (Available in all regions):__ ' 5.7.10' -- -- __MariaDB__ -- @@ -344,7 +343,7 @@ -- | The identifier of the DB cluster that the instance will belong to. -- --- For information on creating a DB cluster, see CreateDBCluster. +-- For information on creating a DB cluster, see < CreateDBCluster>. -- -- Type: String cdiDBClusterIdentifier :: Lens' CreateDBInstance (Maybe Text) @@ -474,8 +473,10 @@ -- | The amount of Provisioned IOPS (input\/output operations per second) to -- be initially allocated for the DB instance. -- --- Constraints: To use PIOPS, this value must be an integer greater than --- 1000. +-- Constraints: Must be a multiple between 3 and 10 of the storage amount +-- for the DB instance. Must also be an integer multiple of 1000. For +-- example, if the size of your DB instance is 500 GB, then your 'Iops' +-- value can be 2000, 3000, 4000, or 5000. cdiIOPS :: Lens' CreateDBInstance (Maybe Int) cdiIOPS = lens _cdiIOPS (\ s a -> s{_cdiIOPS = a}); @@ -828,12 +829,14 @@ instance AWSRequest CreateDBInstance where type Rs CreateDBInstance = CreateDBInstanceResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CreateDBInstanceResult" (\ s h x -> CreateDBInstanceResponse' <$> (x .@? "DBInstance") <*> (pure (fromEnum s))) + +instance Hashable CreateDBInstance instance ToHeaders CreateDBInstance where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/CreateDBInstanceReadReplica.hs b/gen/Network/AWS/RDS/CreateDBInstanceReadReplica.hs --- a/gen/Network/AWS/RDS/CreateDBInstanceReadReplica.hs +++ b/gen/Network/AWS/RDS/CreateDBInstanceReadReplica.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.CreateDBInstanceReadReplica --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -27,8 +27,6 @@ -- DB instance, except as specified below. -- -- The source DB instance must have backup retention enabled. --- --- /See:/ for CreateDBInstanceReadReplica. module Network.AWS.RDS.CreateDBInstanceReadReplica ( -- * Creating a Request @@ -186,6 +184,11 @@ -- Replicas will be created in the same VPC. -- - Not specify a DB subnet group. All these Read Replicas will be -- created outside of any VPC. +-- +-- Constraints: Must contain no more than 255 alphanumeric characters, +-- periods, underscores, spaces, or hyphens. Must not be default. +-- +-- Example: 'mySubnetgroup' cdirrDBSubnetGroupName :: Lens' CreateDBInstanceReadReplica (Maybe Text) cdirrDBSubnetGroupName = lens _cdirrDBSubnetGroupName (\ s a -> s{_cdirrDBSubnetGroupName = a}); @@ -300,13 +303,15 @@ instance AWSRequest CreateDBInstanceReadReplica where type Rs CreateDBInstanceReadReplica = CreateDBInstanceReadReplicaResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CreateDBInstanceReadReplicaResult" (\ s h x -> CreateDBInstanceReadReplicaResponse' <$> (x .@? "DBInstance") <*> (pure (fromEnum s))) + +instance Hashable CreateDBInstanceReadReplica instance ToHeaders CreateDBInstanceReadReplica where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/CreateDBParameterGroup.hs b/gen/Network/AWS/RDS/CreateDBParameterGroup.hs --- a/gen/Network/AWS/RDS/CreateDBParameterGroup.hs +++ b/gen/Network/AWS/RDS/CreateDBParameterGroup.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.CreateDBParameterGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -41,8 +41,6 @@ -- or the -- /DescribeDBParameters/ command to verify that your DB parameter group -- has been created or modified. --- --- /See:/ for CreateDBParameterGroup. module Network.AWS.RDS.CreateDBParameterGroup ( -- * Creating a Request @@ -133,12 +131,14 @@ instance AWSRequest CreateDBParameterGroup where type Rs CreateDBParameterGroup = CreateDBParameterGroupResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CreateDBParameterGroupResult" (\ s h x -> CreateDBParameterGroupResponse' <$> (x .@? "DBParameterGroup") <*> (pure (fromEnum s))) + +instance Hashable CreateDBParameterGroup instance ToHeaders CreateDBParameterGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/CreateDBSecurityGroup.hs b/gen/Network/AWS/RDS/CreateDBSecurityGroup.hs --- a/gen/Network/AWS/RDS/CreateDBSecurityGroup.hs +++ b/gen/Network/AWS/RDS/CreateDBSecurityGroup.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.CreateDBSecurityGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Creates a new DB security group. DB security groups control access to a -- DB instance. --- --- /See:/ for CreateDBSecurityGroup. module Network.AWS.RDS.CreateDBSecurityGroup ( -- * Creating a Request @@ -102,12 +100,14 @@ instance AWSRequest CreateDBSecurityGroup where type Rs CreateDBSecurityGroup = CreateDBSecurityGroupResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CreateDBSecurityGroupResult" (\ s h x -> CreateDBSecurityGroupResponse' <$> (x .@? "DBSecurityGroup") <*> (pure (fromEnum s))) + +instance Hashable CreateDBSecurityGroup instance ToHeaders CreateDBSecurityGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/CreateDBSnapshot.hs b/gen/Network/AWS/RDS/CreateDBSnapshot.hs --- a/gen/Network/AWS/RDS/CreateDBSnapshot.hs +++ b/gen/Network/AWS/RDS/CreateDBSnapshot.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.CreateDBSnapshot --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Creates a DBSnapshot. The source DBInstance must be in \"available\" -- state. --- --- /See:/ for CreateDBSnapshot. module Network.AWS.RDS.CreateDBSnapshot ( -- * Creating a Request @@ -106,12 +104,14 @@ instance AWSRequest CreateDBSnapshot where type Rs CreateDBSnapshot = CreateDBSnapshotResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CreateDBSnapshotResult" (\ s h x -> CreateDBSnapshotResponse' <$> (x .@? "DBSnapshot") <*> (pure (fromEnum s))) + +instance Hashable CreateDBSnapshot instance ToHeaders CreateDBSnapshot where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/CreateDBSubnetGroup.hs b/gen/Network/AWS/RDS/CreateDBSubnetGroup.hs --- a/gen/Network/AWS/RDS/CreateDBSubnetGroup.hs +++ b/gen/Network/AWS/RDS/CreateDBSubnetGroup.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.CreateDBSubnetGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Creates a new DB subnet group. DB subnet groups must contain at least -- one subnet in at least two AZs in the region. --- --- /See:/ for CreateDBSubnetGroup. module Network.AWS.RDS.CreateDBSubnetGroup ( -- * Creating a Request @@ -89,7 +87,7 @@ -- string. -- -- Constraints: Must contain no more than 255 alphanumeric characters, --- periods, underscores, or hyphens. Must not be default. +-- periods, underscores, spaces, or hyphens. Must not be default. -- -- Example: 'mySubnetgroup' cdbsgDBSubnetGroupName :: Lens' CreateDBSubnetGroup Text @@ -106,12 +104,14 @@ instance AWSRequest CreateDBSubnetGroup where type Rs CreateDBSubnetGroup = CreateDBSubnetGroupResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CreateDBSubnetGroupResult" (\ s h x -> CreateDBSubnetGroupResponse' <$> (x .@? "DBSubnetGroup") <*> (pure (fromEnum s))) + +instance Hashable CreateDBSubnetGroup instance ToHeaders CreateDBSubnetGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/CreateEventSubscription.hs b/gen/Network/AWS/RDS/CreateEventSubscription.hs --- a/gen/Network/AWS/RDS/CreateEventSubscription.hs +++ b/gen/Network/AWS/RDS/CreateEventSubscription.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.CreateEventSubscription --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -39,8 +39,6 @@ -- you do not specify either the SourceType nor the SourceIdentifier, you -- will be notified of events generated from all RDS sources belonging to -- your customer account. --- --- /See:/ for CreateEventSubscription. module Network.AWS.RDS.CreateEventSubscription ( -- * Creating a Request @@ -177,12 +175,14 @@ instance AWSRequest CreateEventSubscription where type Rs CreateEventSubscription = CreateEventSubscriptionResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CreateEventSubscriptionResult" (\ s h x -> CreateEventSubscriptionResponse' <$> (x .@? "EventSubscription") <*> (pure (fromEnum s))) + +instance Hashable CreateEventSubscription instance ToHeaders CreateEventSubscription where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/CreateOptionGroup.hs b/gen/Network/AWS/RDS/CreateOptionGroup.hs --- a/gen/Network/AWS/RDS/CreateOptionGroup.hs +++ b/gen/Network/AWS/RDS/CreateOptionGroup.hs @@ -12,15 +12,13 @@ -- | -- Module : Network.AWS.RDS.CreateOptionGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Creates a new option group. You can create up to 20 option groups. --- --- /See:/ for CreateOptionGroup. module Network.AWS.RDS.CreateOptionGroup ( -- * Creating a Request @@ -119,12 +117,14 @@ instance AWSRequest CreateOptionGroup where type Rs CreateOptionGroup = CreateOptionGroupResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "CreateOptionGroupResult" (\ s h x -> CreateOptionGroupResponse' <$> (x .@? "OptionGroup") <*> (pure (fromEnum s))) + +instance Hashable CreateOptionGroup instance ToHeaders CreateOptionGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DeleteDBCluster.hs b/gen/Network/AWS/RDS/DeleteDBCluster.hs --- a/gen/Network/AWS/RDS/DeleteDBCluster.hs +++ b/gen/Network/AWS/RDS/DeleteDBCluster.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DeleteDBCluster --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -27,8 +27,6 @@ -- For more information on Amazon Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for DeleteDBCluster. module Network.AWS.RDS.DeleteDBCluster ( -- * Creating a Request @@ -121,12 +119,14 @@ instance AWSRequest DeleteDBCluster where type Rs DeleteDBCluster = DeleteDBClusterResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DeleteDBClusterResult" (\ s h x -> DeleteDBClusterResponse' <$> (x .@? "DBCluster") <*> (pure (fromEnum s))) + +instance Hashable DeleteDBCluster instance ToHeaders DeleteDBCluster where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DeleteDBClusterParameterGroup.hs b/gen/Network/AWS/RDS/DeleteDBClusterParameterGroup.hs --- a/gen/Network/AWS/RDS/DeleteDBClusterParameterGroup.hs +++ b/gen/Network/AWS/RDS/DeleteDBClusterParameterGroup.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DeleteDBClusterParameterGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -24,8 +24,6 @@ -- For more information on Amazon Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for DeleteDBClusterParameterGroup. module Network.AWS.RDS.DeleteDBClusterParameterGroup ( -- * Creating a Request @@ -80,9 +78,11 @@ where type Rs DeleteDBClusterParameterGroup = DeleteDBClusterParameterGroupResponse - request = postQuery rDS + request = postQuery rds response = receiveNull DeleteDBClusterParameterGroupResponse' + +instance Hashable DeleteDBClusterParameterGroup instance ToHeaders DeleteDBClusterParameterGroup where diff --git a/gen/Network/AWS/RDS/DeleteDBClusterSnapshot.hs b/gen/Network/AWS/RDS/DeleteDBClusterSnapshot.hs --- a/gen/Network/AWS/RDS/DeleteDBClusterSnapshot.hs +++ b/gen/Network/AWS/RDS/DeleteDBClusterSnapshot.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DeleteDBClusterSnapshot --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -26,8 +26,6 @@ -- For more information on Amazon Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for DeleteDBClusterSnapshot. module Network.AWS.RDS.DeleteDBClusterSnapshot ( -- * Creating a Request @@ -81,12 +79,14 @@ instance AWSRequest DeleteDBClusterSnapshot where type Rs DeleteDBClusterSnapshot = DeleteDBClusterSnapshotResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DeleteDBClusterSnapshotResult" (\ s h x -> DeleteDBClusterSnapshotResponse' <$> (x .@? "DBClusterSnapshot") <*> (pure (fromEnum s))) + +instance Hashable DeleteDBClusterSnapshot instance ToHeaders DeleteDBClusterSnapshot where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DeleteDBInstance.hs b/gen/Network/AWS/RDS/DeleteDBInstance.hs --- a/gen/Network/AWS/RDS/DeleteDBInstance.hs +++ b/gen/Network/AWS/RDS/DeleteDBInstance.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DeleteDBInstance --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -33,8 +33,6 @@ -- \'failed\', \'incompatible-restore\', or \'incompatible-network\', it -- can only be deleted when the SkipFinalSnapshot parameter is set to -- \"true\". --- --- /See:/ for DeleteDBInstance. module Network.AWS.RDS.DeleteDBInstance ( -- * Creating a Request @@ -135,12 +133,14 @@ instance AWSRequest DeleteDBInstance where type Rs DeleteDBInstance = DeleteDBInstanceResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DeleteDBInstanceResult" (\ s h x -> DeleteDBInstanceResponse' <$> (x .@? "DBInstance") <*> (pure (fromEnum s))) + +instance Hashable DeleteDBInstance instance ToHeaders DeleteDBInstance where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DeleteDBParameterGroup.hs b/gen/Network/AWS/RDS/DeleteDBParameterGroup.hs --- a/gen/Network/AWS/RDS/DeleteDBParameterGroup.hs +++ b/gen/Network/AWS/RDS/DeleteDBParameterGroup.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DeleteDBParameterGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Deletes a specified DBParameterGroup. The DBParameterGroup to be deleted -- cannot be associated with any DB instances. --- --- /See:/ for DeleteDBParameterGroup. module Network.AWS.RDS.DeleteDBParameterGroup ( -- * Creating a Request @@ -75,9 +73,11 @@ instance AWSRequest DeleteDBParameterGroup where type Rs DeleteDBParameterGroup = DeleteDBParameterGroupResponse - request = postQuery rDS + request = postQuery rds response = receiveNull DeleteDBParameterGroupResponse' + +instance Hashable DeleteDBParameterGroup instance ToHeaders DeleteDBParameterGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DeleteDBSecurityGroup.hs b/gen/Network/AWS/RDS/DeleteDBSecurityGroup.hs --- a/gen/Network/AWS/RDS/DeleteDBSecurityGroup.hs +++ b/gen/Network/AWS/RDS/DeleteDBSecurityGroup.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DeleteDBSecurityGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -22,8 +22,6 @@ -- -- The specified DB security group must not be associated with any DB -- instances. --- --- /See:/ for DeleteDBSecurityGroup. module Network.AWS.RDS.DeleteDBSecurityGroup ( -- * Creating a Request @@ -81,8 +79,10 @@ instance AWSRequest DeleteDBSecurityGroup where type Rs DeleteDBSecurityGroup = DeleteDBSecurityGroupResponse - request = postQuery rDS + request = postQuery rds response = receiveNull DeleteDBSecurityGroupResponse' + +instance Hashable DeleteDBSecurityGroup instance ToHeaders DeleteDBSecurityGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DeleteDBSnapshot.hs b/gen/Network/AWS/RDS/DeleteDBSnapshot.hs --- a/gen/Network/AWS/RDS/DeleteDBSnapshot.hs +++ b/gen/Network/AWS/RDS/DeleteDBSnapshot.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DeleteDBSnapshot --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -22,8 +22,6 @@ -- operation is terminated. -- -- The DBSnapshot must be in the 'available' state to be deleted. --- --- /See:/ for DeleteDBSnapshot. module Network.AWS.RDS.DeleteDBSnapshot ( -- * Creating a Request @@ -76,12 +74,14 @@ instance AWSRequest DeleteDBSnapshot where type Rs DeleteDBSnapshot = DeleteDBSnapshotResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DeleteDBSnapshotResult" (\ s h x -> DeleteDBSnapshotResponse' <$> (x .@? "DBSnapshot") <*> (pure (fromEnum s))) + +instance Hashable DeleteDBSnapshot instance ToHeaders DeleteDBSnapshot where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DeleteDBSubnetGroup.hs b/gen/Network/AWS/RDS/DeleteDBSubnetGroup.hs --- a/gen/Network/AWS/RDS/DeleteDBSubnetGroup.hs +++ b/gen/Network/AWS/RDS/DeleteDBSubnetGroup.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DeleteDBSubnetGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -22,8 +22,6 @@ -- -- The specified database subnet group must not be associated with any DB -- instances. --- --- /See:/ for DeleteDBSubnetGroup. module Network.AWS.RDS.DeleteDBSubnetGroup ( -- * Creating a Request @@ -68,19 +66,20 @@ -- -- You cannot delete the default subnet group. -- --- Constraints: +-- Constraints: Must contain no more than 255 alphanumeric characters, +-- periods, underscores, spaces, or hyphens. Must not be default. -- --- - Must be 1 to 255 alphanumeric characters --- - First character must be a letter --- - Cannot end with a hyphen or contain two consecutive hyphens +-- Example: 'mySubnetgroup' ddbsgDBSubnetGroupName :: Lens' DeleteDBSubnetGroup Text ddbsgDBSubnetGroupName = lens _ddbsgDBSubnetGroupName (\ s a -> s{_ddbsgDBSubnetGroupName = a}); instance AWSRequest DeleteDBSubnetGroup where type Rs DeleteDBSubnetGroup = DeleteDBSubnetGroupResponse - request = postQuery rDS + request = postQuery rds response = receiveNull DeleteDBSubnetGroupResponse' + +instance Hashable DeleteDBSubnetGroup instance ToHeaders DeleteDBSubnetGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DeleteEventSubscription.hs b/gen/Network/AWS/RDS/DeleteEventSubscription.hs --- a/gen/Network/AWS/RDS/DeleteEventSubscription.hs +++ b/gen/Network/AWS/RDS/DeleteEventSubscription.hs @@ -12,15 +12,13 @@ -- | -- Module : Network.AWS.RDS.DeleteEventSubscription --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Deletes an RDS event notification subscription. --- --- /See:/ for DeleteEventSubscription. module Network.AWS.RDS.DeleteEventSubscription ( -- * Creating a Request @@ -71,12 +69,14 @@ instance AWSRequest DeleteEventSubscription where type Rs DeleteEventSubscription = DeleteEventSubscriptionResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DeleteEventSubscriptionResult" (\ s h x -> DeleteEventSubscriptionResponse' <$> (x .@? "EventSubscription") <*> (pure (fromEnum s))) + +instance Hashable DeleteEventSubscription instance ToHeaders DeleteEventSubscription where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DeleteOptionGroup.hs b/gen/Network/AWS/RDS/DeleteOptionGroup.hs --- a/gen/Network/AWS/RDS/DeleteOptionGroup.hs +++ b/gen/Network/AWS/RDS/DeleteOptionGroup.hs @@ -12,15 +12,13 @@ -- | -- Module : Network.AWS.RDS.DeleteOptionGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Deletes an existing option group. --- --- /See:/ for DeleteOptionGroup. module Network.AWS.RDS.DeleteOptionGroup ( -- * Creating a Request @@ -69,8 +67,10 @@ instance AWSRequest DeleteOptionGroup where type Rs DeleteOptionGroup = DeleteOptionGroupResponse - request = postQuery rDS + request = postQuery rds response = receiveNull DeleteOptionGroupResponse' + +instance Hashable DeleteOptionGroup instance ToHeaders DeleteOptionGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DescribeAccountAttributes.hs b/gen/Network/AWS/RDS/DescribeAccountAttributes.hs --- a/gen/Network/AWS/RDS/DescribeAccountAttributes.hs +++ b/gen/Network/AWS/RDS/DescribeAccountAttributes.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeAccountAttributes --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -24,8 +24,6 @@ -- current usage toward that quota, and the quota\'s maximum value. -- -- This command does not take any parameters. --- --- /See:/ for DescribeAccountAttributes. module Network.AWS.RDS.DescribeAccountAttributes ( -- * Creating a Request @@ -63,7 +61,7 @@ instance AWSRequest DescribeAccountAttributes where type Rs DescribeAccountAttributes = DescribeAccountAttributesResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeAccountAttributesResult" (\ s h x -> @@ -72,6 +70,8 @@ may (parseXMLList "AccountQuota")) <*> (pure (fromEnum s))) +instance Hashable DescribeAccountAttributes + instance ToHeaders DescribeAccountAttributes where toHeaders = const mempty @@ -110,9 +110,9 @@ , _daarsResponseStatus = pResponseStatus_ } --- | A list of AccountQuota objects. Within this list, each quota has a name, --- a count of usage toward the quota maximum, and a maximum value for the --- quota. +-- | A list of < AccountQuota> objects. Within this list, each quota has a +-- name, a count of usage toward the quota maximum, and a maximum value for +-- the quota. daarsAccountQuotas :: Lens' DescribeAccountAttributesResponse [AccountQuota] daarsAccountQuotas = lens _daarsAccountQuotas (\ s a -> s{_daarsAccountQuotas = a}) . _Default . _Coerce; diff --git a/gen/Network/AWS/RDS/DescribeCertificates.hs b/gen/Network/AWS/RDS/DescribeCertificates.hs --- a/gen/Network/AWS/RDS/DescribeCertificates.hs +++ b/gen/Network/AWS/RDS/DescribeCertificates.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeCertificates --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Lists the set of CA certificates provided by Amazon RDS for this AWS -- account. --- --- /See:/ for DescribeCertificates. module Network.AWS.RDS.DescribeCertificates ( -- * Creating a Request @@ -96,9 +94,10 @@ dcCertificateIdentifier :: Lens' DescribeCertificates (Maybe Text) dcCertificateIdentifier = lens _dcCertificateIdentifier (\ s a -> s{_dcCertificateIdentifier = a}); --- | An optional pagination token provided by a previous DescribeCertificates --- request. If this parameter is specified, the response includes only --- records beyond the marker, up to the value specified by 'MaxRecords'. +-- | An optional pagination token provided by a previous +-- < DescribeCertificates> request. If this parameter is specified, the +-- response includes only records beyond the marker, up to the value +-- specified by 'MaxRecords'. dcMarker :: Lens' DescribeCertificates (Maybe Text) dcMarker = lens _dcMarker (\ s a -> s{_dcMarker = a}); @@ -116,7 +115,7 @@ instance AWSRequest DescribeCertificates where type Rs DescribeCertificates = DescribeCertificatesResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeCertificatesResult" (\ s h x -> @@ -126,6 +125,8 @@ <*> (x .@? "Marker") <*> (pure (fromEnum s))) +instance Hashable DescribeCertificates + instance ToHeaders DescribeCertificates where toHeaders = const mempty @@ -170,13 +171,14 @@ , _dcrsResponseStatus = pResponseStatus_ } --- | The list of Certificate objects for the AWS account. +-- | The list of < Certificate> objects for the AWS account. dcrsCertificates :: Lens' DescribeCertificatesResponse [Certificate] dcrsCertificates = lens _dcrsCertificates (\ s a -> s{_dcrsCertificates = a}) . _Default . _Coerce; --- | An optional pagination token provided by a previous DescribeCertificates --- request. If this parameter is specified, the response includes only --- records beyond the marker, up to the value specified by 'MaxRecords' . +-- | An optional pagination token provided by a previous +-- < DescribeCertificates> request. If this parameter is specified, the +-- response includes only records beyond the marker, up to the value +-- specified by 'MaxRecords' . dcrsMarker :: Lens' DescribeCertificatesResponse (Maybe Text) dcrsMarker = lens _dcrsMarker (\ s a -> s{_dcrsMarker = a}); diff --git a/gen/Network/AWS/RDS/DescribeDBClusterParameterGroups.hs b/gen/Network/AWS/RDS/DescribeDBClusterParameterGroups.hs --- a/gen/Network/AWS/RDS/DescribeDBClusterParameterGroups.hs +++ b/gen/Network/AWS/RDS/DescribeDBClusterParameterGroups.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeDBClusterParameterGroups --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -26,8 +26,6 @@ -- For more information on Amazon Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for DescribeDBClusterParameterGroups. module Network.AWS.RDS.DescribeDBClusterParameterGroups ( -- * Creating a Request @@ -122,7 +120,7 @@ where type Rs DescribeDBClusterParameterGroups = DescribeDBClusterParameterGroupsResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeDBClusterParameterGroupsResult" @@ -132,6 +130,8 @@ (x .@? "DBClusterParameterGroups" .!@ mempty >>= may (parseXMLList "DBClusterParameterGroup")) <*> (pure (fromEnum s))) + +instance Hashable DescribeDBClusterParameterGroups instance ToHeaders DescribeDBClusterParameterGroups where diff --git a/gen/Network/AWS/RDS/DescribeDBClusterParameters.hs b/gen/Network/AWS/RDS/DescribeDBClusterParameters.hs --- a/gen/Network/AWS/RDS/DescribeDBClusterParameters.hs +++ b/gen/Network/AWS/RDS/DescribeDBClusterParameters.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeDBClusterParameters --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -24,8 +24,6 @@ -- For more information on Amazon Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for DescribeDBClusterParameters. module Network.AWS.RDS.DescribeDBClusterParameters ( -- * Creating a Request @@ -131,7 +129,7 @@ instance AWSRequest DescribeDBClusterParameters where type Rs DescribeDBClusterParameters = DescribeDBClusterParametersResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeDBClusterParametersResult" @@ -141,6 +139,8 @@ (x .@? "Parameters" .!@ mempty >>= may (parseXMLList "Parameter")) <*> (pure (fromEnum s))) + +instance Hashable DescribeDBClusterParameters instance ToHeaders DescribeDBClusterParameters where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DescribeDBClusterSnapshots.hs b/gen/Network/AWS/RDS/DescribeDBClusterSnapshots.hs --- a/gen/Network/AWS/RDS/DescribeDBClusterSnapshots.hs +++ b/gen/Network/AWS/RDS/DescribeDBClusterSnapshots.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeDBClusterSnapshots --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -24,8 +24,6 @@ -- For more information on Amazon Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for DescribeDBClusterSnapshots. module Network.AWS.RDS.DescribeDBClusterSnapshots ( -- * Creating a Request @@ -152,7 +150,7 @@ instance AWSRequest DescribeDBClusterSnapshots where type Rs DescribeDBClusterSnapshots = DescribeDBClusterSnapshotsResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeDBClusterSnapshotsResult" @@ -163,6 +161,8 @@ may (parseXMLList "DBClusterSnapshot")) <*> (pure (fromEnum s))) +instance Hashable DescribeDBClusterSnapshots + instance ToHeaders DescribeDBClusterSnapshots where toHeaders = const mempty @@ -185,7 +185,7 @@ "MaxRecords" =: _ddbcsMaxRecords] -- | Provides a list of DB cluster snapshots for the user as the result of a --- call to the DescribeDBClusterSnapshots action. +-- call to the < DescribeDBClusterSnapshots> action. -- -- /See:/ 'describeDBClusterSnapshotsResponse' smart constructor. data DescribeDBClusterSnapshotsResponse = DescribeDBClusterSnapshotsResponse' @@ -214,8 +214,8 @@ } -- | An optional pagination token provided by a previous --- DescribeDBClusterSnapshots request. If this parameter is specified, the --- response includes only records beyond the marker, up to the value +-- < DescribeDBClusterSnapshots> request. If this parameter is specified, +-- the response includes only records beyond the marker, up to the value -- specified by 'MaxRecords'. ddbcsrsMarker :: Lens' DescribeDBClusterSnapshotsResponse (Maybe Text) ddbcsrsMarker = lens _ddbcsrsMarker (\ s a -> s{_ddbcsrsMarker = a}); diff --git a/gen/Network/AWS/RDS/DescribeDBClusters.hs b/gen/Network/AWS/RDS/DescribeDBClusters.hs --- a/gen/Network/AWS/RDS/DescribeDBClusters.hs +++ b/gen/Network/AWS/RDS/DescribeDBClusters.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeDBClusters --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -24,8 +24,6 @@ -- For more information on Amazon Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for DescribeDBClusters. module Network.AWS.RDS.DescribeDBClusters ( -- * Creating a Request @@ -100,9 +98,10 @@ ddcFilters :: Lens' DescribeDBClusters [Filter] ddcFilters = lens _ddcFilters (\ s a -> s{_ddcFilters = a}) . _Default . _Coerce; --- | An optional pagination token provided by a previous DescribeDBClusters --- request. If this parameter is specified, the response includes only --- records beyond the marker, up to the value specified by 'MaxRecords'. +-- | An optional pagination token provided by a previous +-- < DescribeDBClusters> request. If this parameter is specified, the +-- response includes only records beyond the marker, up to the value +-- specified by 'MaxRecords'. ddcMarker :: Lens' DescribeDBClusters (Maybe Text) ddcMarker = lens _ddcMarker (\ s a -> s{_ddcMarker = a}); @@ -120,7 +119,7 @@ instance AWSRequest DescribeDBClusters where type Rs DescribeDBClusters = DescribeDBClustersResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeDBClustersResult" (\ s h x -> @@ -130,6 +129,8 @@ <*> (x .@? "Marker") <*> (pure (fromEnum s))) +instance Hashable DescribeDBClusters + instance ToHeaders DescribeDBClusters where toHeaders = const mempty @@ -147,8 +148,8 @@ "Marker" =: _ddcMarker, "MaxRecords" =: _ddcMaxRecords] --- | Contains the result of a successful invocation of the DescribeDBClusters --- action. +-- | Contains the result of a successful invocation of the +-- < DescribeDBClusters> action. -- -- /See:/ 'describeDBClustersResponse' smart constructor. data DescribeDBClustersResponse = DescribeDBClustersResponse' diff --git a/gen/Network/AWS/RDS/DescribeDBEngineVersions.hs b/gen/Network/AWS/RDS/DescribeDBEngineVersions.hs --- a/gen/Network/AWS/RDS/DescribeDBEngineVersions.hs +++ b/gen/Network/AWS/RDS/DescribeDBEngineVersions.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeDBEngineVersions --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Returns a list of the available DB engines. -- --- /See:/ for DescribeDBEngineVersions. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeDBEngineVersions ( @@ -162,7 +160,7 @@ instance AWSRequest DescribeDBEngineVersions where type Rs DescribeDBEngineVersions = DescribeDBEngineVersionsResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeDBEngineVersionsResult" (\ s h x -> @@ -172,6 +170,8 @@ may (parseXMLList "DBEngineVersion")) <*> (pure (fromEnum s))) +instance Hashable DescribeDBEngineVersions + instance ToHeaders DescribeDBEngineVersions where toHeaders = const mempty @@ -197,7 +197,7 @@ "MaxRecords" =: _ddevMaxRecords] -- | Contains the result of a successful invocation of the --- DescribeDBEngineVersions action. +-- < DescribeDBEngineVersions> action. -- -- /See:/ 'describeDBEngineVersionsResponse' smart constructor. data DescribeDBEngineVersionsResponse = DescribeDBEngineVersionsResponse' diff --git a/gen/Network/AWS/RDS/DescribeDBInstances.hs b/gen/Network/AWS/RDS/DescribeDBInstances.hs --- a/gen/Network/AWS/RDS/DescribeDBInstances.hs +++ b/gen/Network/AWS/RDS/DescribeDBInstances.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeDBInstances --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,8 +21,6 @@ -- Returns information about provisioned RDS instances. This API supports -- pagination. -- --- /See:/ for DescribeDBInstances. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeDBInstances ( @@ -127,7 +125,7 @@ instance AWSRequest DescribeDBInstances where type Rs DescribeDBInstances = DescribeDBInstancesResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeDBInstancesResult" (\ s h x -> @@ -137,6 +135,8 @@ <*> (x .@? "Marker") <*> (pure (fromEnum s))) +instance Hashable DescribeDBInstances + instance ToHeaders DescribeDBInstances where toHeaders = const mempty @@ -155,7 +155,7 @@ "MaxRecords" =: _ddbiMaxRecords] -- | Contains the result of a successful invocation of the --- DescribeDBInstances action. +-- < DescribeDBInstances> action. -- -- /See:/ 'describeDBInstancesResponse' smart constructor. data DescribeDBInstancesResponse = DescribeDBInstancesResponse' @@ -183,7 +183,7 @@ , _ddbirsResponseStatus = pResponseStatus_ } --- | A list of DBInstance instances. +-- | A list of < DBInstance> instances. ddbirsDBInstances :: Lens' DescribeDBInstancesResponse [DBInstance] ddbirsDBInstances = lens _ddbirsDBInstances (\ s a -> s{_ddbirsDBInstances = a}) . _Default . _Coerce; diff --git a/gen/Network/AWS/RDS/DescribeDBLogFiles.hs b/gen/Network/AWS/RDS/DescribeDBLogFiles.hs --- a/gen/Network/AWS/RDS/DescribeDBLogFiles.hs +++ b/gen/Network/AWS/RDS/DescribeDBLogFiles.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeDBLogFiles --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Returns a list of DB log files for the DB instance. -- --- /See:/ for DescribeDBLogFiles. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeDBLogFiles ( @@ -151,7 +149,7 @@ instance AWSRequest DescribeDBLogFiles where type Rs DescribeDBLogFiles = DescribeDBLogFilesResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeDBLogFilesResult" (\ s h x -> @@ -161,6 +159,8 @@ <*> (x .@? "Marker") <*> (pure (fromEnum s))) +instance Hashable DescribeDBLogFiles + instance ToHeaders DescribeDBLogFiles where toHeaders = const mempty @@ -181,7 +181,7 @@ "MaxRecords" =: _ddlfMaxRecords, "DBInstanceIdentifier" =: _ddlfDBInstanceIdentifier] --- | The response from a call to DescribeDBLogFiles. +-- | The response from a call to < DescribeDBLogFiles>. -- -- /See:/ 'describeDBLogFilesResponse' smart constructor. data DescribeDBLogFilesResponse = DescribeDBLogFilesResponse' diff --git a/gen/Network/AWS/RDS/DescribeDBParameterGroups.hs b/gen/Network/AWS/RDS/DescribeDBParameterGroups.hs --- a/gen/Network/AWS/RDS/DescribeDBParameterGroups.hs +++ b/gen/Network/AWS/RDS/DescribeDBParameterGroups.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeDBParameterGroups --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -22,8 +22,6 @@ -- 'DBParameterGroupName' is specified, the list will contain only the -- description of the specified DB parameter group. -- --- /See:/ for DescribeDBParameterGroups. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeDBParameterGroups ( @@ -126,7 +124,7 @@ instance AWSRequest DescribeDBParameterGroups where type Rs DescribeDBParameterGroups = DescribeDBParameterGroupsResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeDBParameterGroupsResult" (\ s h x -> @@ -136,6 +134,8 @@ may (parseXMLList "DBParameterGroup")) <*> (pure (fromEnum s))) +instance Hashable DescribeDBParameterGroups + instance ToHeaders DescribeDBParameterGroups where toHeaders = const mempty @@ -155,7 +155,7 @@ "MaxRecords" =: _ddpgMaxRecords] -- | Contains the result of a successful invocation of the --- DescribeDBParameterGroups action. +-- < DescribeDBParameterGroups> action. -- -- /See:/ 'describeDBParameterGroupsResponse' smart constructor. data DescribeDBParameterGroupsResponse = DescribeDBParameterGroupsResponse' @@ -189,7 +189,7 @@ ddpgrsMarker :: Lens' DescribeDBParameterGroupsResponse (Maybe Text) ddpgrsMarker = lens _ddpgrsMarker (\ s a -> s{_ddpgrsMarker = a}); --- | A list of DBParameterGroup instances. +-- | A list of < DBParameterGroup> instances. ddpgrsDBParameterGroups :: Lens' DescribeDBParameterGroupsResponse [DBParameterGroup] ddpgrsDBParameterGroups = lens _ddpgrsDBParameterGroups (\ s a -> s{_ddpgrsDBParameterGroups = a}) . _Default . _Coerce; diff --git a/gen/Network/AWS/RDS/DescribeDBParameters.hs b/gen/Network/AWS/RDS/DescribeDBParameters.hs --- a/gen/Network/AWS/RDS/DescribeDBParameters.hs +++ b/gen/Network/AWS/RDS/DescribeDBParameters.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeDBParameters --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Returns the detailed parameter list for a particular DB parameter group. -- --- /See:/ for DescribeDBParameters. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeDBParameters ( @@ -136,7 +134,7 @@ instance AWSRequest DescribeDBParameters where type Rs DescribeDBParameters = DescribeDBParametersResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeDBParametersResult" (\ s h x -> @@ -146,6 +144,8 @@ may (parseXMLList "Parameter")) <*> (pure (fromEnum s))) +instance Hashable DescribeDBParameters + instance ToHeaders DescribeDBParameters where toHeaders = const mempty @@ -165,7 +165,7 @@ "DBParameterGroupName" =: _ddpDBParameterGroupName] -- | Contains the result of a successful invocation of the --- DescribeDBParameters action. +-- < DescribeDBParameters> action. -- -- /See:/ 'describeDBParametersResponse' smart constructor. data DescribeDBParametersResponse = DescribeDBParametersResponse' @@ -199,7 +199,7 @@ ddprsMarker :: Lens' DescribeDBParametersResponse (Maybe Text) ddprsMarker = lens _ddprsMarker (\ s a -> s{_ddprsMarker = a}); --- | A list of Parameter values. +-- | A list of < Parameter> values. ddprsParameters :: Lens' DescribeDBParametersResponse [Parameter] ddprsParameters = lens _ddprsParameters (\ s a -> s{_ddprsParameters = a}) . _Default . _Coerce; diff --git a/gen/Network/AWS/RDS/DescribeDBSecurityGroups.hs b/gen/Network/AWS/RDS/DescribeDBSecurityGroups.hs --- a/gen/Network/AWS/RDS/DescribeDBSecurityGroups.hs +++ b/gen/Network/AWS/RDS/DescribeDBSecurityGroups.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeDBSecurityGroups --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -22,8 +22,6 @@ -- 'DBSecurityGroupName' is specified, the list will contain only the -- descriptions of the specified DB security group. -- --- /See:/ for DescribeDBSecurityGroups. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeDBSecurityGroups ( @@ -120,7 +118,7 @@ instance AWSRequest DescribeDBSecurityGroups where type Rs DescribeDBSecurityGroups = DescribeDBSecurityGroupsResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeDBSecurityGroupsResult" (\ s h x -> @@ -130,6 +128,8 @@ <*> (x .@? "Marker") <*> (pure (fromEnum s))) +instance Hashable DescribeDBSecurityGroups + instance ToHeaders DescribeDBSecurityGroups where toHeaders = const mempty @@ -149,7 +149,7 @@ "DBSecurityGroupName" =: _ddbsgDBSecurityGroupName] -- | Contains the result of a successful invocation of the --- DescribeDBSecurityGroups action. +-- < DescribeDBSecurityGroups> action. -- -- /See:/ 'describeDBSecurityGroupsResponse' smart constructor. data DescribeDBSecurityGroupsResponse = DescribeDBSecurityGroupsResponse' @@ -177,7 +177,7 @@ , _ddbsgrsResponseStatus = pResponseStatus_ } --- | A list of DBSecurityGroup instances. +-- | A list of < DBSecurityGroup> instances. ddbsgrsDBSecurityGroups :: Lens' DescribeDBSecurityGroupsResponse [DBSecurityGroup] ddbsgrsDBSecurityGroups = lens _ddbsgrsDBSecurityGroups (\ s a -> s{_ddbsgrsDBSecurityGroups = a}) . _Default . _Coerce; diff --git a/gen/Network/AWS/RDS/DescribeDBSnapshotAttributes.hs b/gen/Network/AWS/RDS/DescribeDBSnapshotAttributes.hs --- a/gen/Network/AWS/RDS/DescribeDBSnapshotAttributes.hs +++ b/gen/Network/AWS/RDS/DescribeDBSnapshotAttributes.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeDBSnapshotAttributes --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -30,9 +30,7 @@ -- -- To add or remove access for an AWS account to copy or restore a manual -- DB snapshot, or to make the manual DB snapshot public or private, use --- the ModifyDBSnapshotAttribute API. --- --- /See:/ for DescribeDBSnapshotAttributes. +-- the < ModifyDBSnapshotAttribute> API. module Network.AWS.RDS.DescribeDBSnapshotAttributes ( -- * Creating a Request @@ -81,7 +79,7 @@ where type Rs DescribeDBSnapshotAttributes = DescribeDBSnapshotAttributesResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeDBSnapshotAttributesResult" @@ -89,6 +87,8 @@ DescribeDBSnapshotAttributesResponse' <$> (x .@? "DBSnapshotAttributesResult") <*> (pure (fromEnum s))) + +instance Hashable DescribeDBSnapshotAttributes instance ToHeaders DescribeDBSnapshotAttributes where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DescribeDBSnapshots.hs b/gen/Network/AWS/RDS/DescribeDBSnapshots.hs --- a/gen/Network/AWS/RDS/DescribeDBSnapshots.hs +++ b/gen/Network/AWS/RDS/DescribeDBSnapshots.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeDBSnapshots --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Returns information about DB snapshots. This API supports pagination. -- --- /See:/ for DescribeDBSnapshots. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeDBSnapshots ( @@ -107,7 +105,7 @@ -- false. The default is false. -- -- An AWS account is given permission to restore a manual DB snapshot from --- another AWS account by the ModifyDBSnapshotAttribute API. +-- another AWS account by the < ModifyDBSnapshotAttribute> API. ddsIncludeShared :: Lens' DescribeDBSnapshots (Maybe Bool) ddsIncludeShared = lens _ddsIncludeShared (\ s a -> s{_ddsIncludeShared = a}); @@ -188,7 +186,7 @@ -- restored by any AWS account; otherwise false. The default is false. -- -- An manual DB snapshot is shared as public by the --- ModifyDBSnapshotAttribute API. +-- < ModifyDBSnapshotAttribute> API. ddsIncludePublic :: Lens' DescribeDBSnapshots (Maybe Bool) ddsIncludePublic = lens _ddsIncludePublic (\ s a -> s{_ddsIncludePublic = a}); @@ -202,7 +200,7 @@ instance AWSRequest DescribeDBSnapshots where type Rs DescribeDBSnapshots = DescribeDBSnapshotsResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeDBSnapshotsResult" (\ s h x -> @@ -212,6 +210,8 @@ may (parseXMLList "DBSnapshot")) <*> (pure (fromEnum s))) +instance Hashable DescribeDBSnapshots + instance ToHeaders DescribeDBSnapshots where toHeaders = const mempty @@ -234,7 +234,7 @@ "IncludePublic" =: _ddsIncludePublic] -- | Contains the result of a successful invocation of the --- DescribeDBSnapshots action. +-- < DescribeDBSnapshots> action. -- -- /See:/ 'describeDBSnapshotsResponse' smart constructor. data DescribeDBSnapshotsResponse = DescribeDBSnapshotsResponse' @@ -268,7 +268,7 @@ ddsrsMarker :: Lens' DescribeDBSnapshotsResponse (Maybe Text) ddsrsMarker = lens _ddsrsMarker (\ s a -> s{_ddsrsMarker = a}); --- | A list of DBSnapshot instances. +-- | A list of < DBSnapshot> instances. ddsrsDBSnapshots :: Lens' DescribeDBSnapshotsResponse [DBSnapshot] ddsrsDBSnapshots = lens _ddsrsDBSnapshots (\ s a -> s{_ddsrsDBSnapshots = a}) . _Default . _Coerce; diff --git a/gen/Network/AWS/RDS/DescribeDBSubnetGroups.hs b/gen/Network/AWS/RDS/DescribeDBSubnetGroups.hs --- a/gen/Network/AWS/RDS/DescribeDBSubnetGroups.hs +++ b/gen/Network/AWS/RDS/DescribeDBSubnetGroups.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeDBSubnetGroups --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -25,8 +25,6 @@ -- For an overview of CIDR ranges, go to the -- . -- --- /See:/ for DescribeDBSubnetGroups. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeDBSubnetGroups ( @@ -123,7 +121,7 @@ instance AWSRequest DescribeDBSubnetGroups where type Rs DescribeDBSubnetGroups = DescribeDBSubnetGroupsResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeDBSubnetGroupsResult" (\ s h x -> @@ -133,6 +131,8 @@ <*> (x .@? "Marker") <*> (pure (fromEnum s))) +instance Hashable DescribeDBSubnetGroups + instance ToHeaders DescribeDBSubnetGroups where toHeaders = const mempty @@ -152,7 +152,7 @@ "MaxRecords" =: _ddsgMaxRecords] -- | Contains the result of a successful invocation of the --- DescribeDBSubnetGroups action. +-- < DescribeDBSubnetGroups> action. -- -- /See:/ 'describeDBSubnetGroupsResponse' smart constructor. data DescribeDBSubnetGroupsResponse = DescribeDBSubnetGroupsResponse' @@ -180,7 +180,7 @@ , _ddsgrsResponseStatus = pResponseStatus_ } --- | A list of DBSubnetGroup instances. +-- | A list of < DBSubnetGroup> instances. ddsgrsDBSubnetGroups :: Lens' DescribeDBSubnetGroupsResponse [DBSubnetGroup] ddsgrsDBSubnetGroups = lens _ddsgrsDBSubnetGroups (\ s a -> s{_ddsgrsDBSubnetGroups = a}) . _Default . _Coerce; diff --git a/gen/Network/AWS/RDS/DescribeEngineDefaultClusterParameters.hs b/gen/Network/AWS/RDS/DescribeEngineDefaultClusterParameters.hs --- a/gen/Network/AWS/RDS/DescribeEngineDefaultClusterParameters.hs +++ b/gen/Network/AWS/RDS/DescribeEngineDefaultClusterParameters.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeEngineDefaultClusterParameters --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -24,8 +24,6 @@ -- For more information on Amazon Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for DescribeEngineDefaultClusterParameters. module Network.AWS.RDS.DescribeEngineDefaultClusterParameters ( -- * Creating a Request @@ -115,13 +113,16 @@ DescribeEngineDefaultClusterParameters where type Rs DescribeEngineDefaultClusterParameters = DescribeEngineDefaultClusterParametersResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeEngineDefaultClusterParametersResult" (\ s h x -> DescribeEngineDefaultClusterParametersResponse' <$> (x .@? "EngineDefaults") <*> (pure (fromEnum s))) + +instance Hashable + DescribeEngineDefaultClusterParameters instance ToHeaders DescribeEngineDefaultClusterParameters where diff --git a/gen/Network/AWS/RDS/DescribeEngineDefaultParameters.hs b/gen/Network/AWS/RDS/DescribeEngineDefaultParameters.hs --- a/gen/Network/AWS/RDS/DescribeEngineDefaultParameters.hs +++ b/gen/Network/AWS/RDS/DescribeEngineDefaultParameters.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeEngineDefaultParameters --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,8 +21,6 @@ -- Returns the default engine and system parameter information for the -- specified database engine. -- --- /See:/ for DescribeEngineDefaultParameters. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeEngineDefaultParameters ( @@ -126,13 +124,15 @@ where type Rs DescribeEngineDefaultParameters = DescribeEngineDefaultParametersResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeEngineDefaultParametersResult" (\ s h x -> DescribeEngineDefaultParametersResponse' <$> (pure (fromEnum s)) <*> (x .@ "EngineDefaults")) + +instance Hashable DescribeEngineDefaultParameters instance ToHeaders DescribeEngineDefaultParameters where diff --git a/gen/Network/AWS/RDS/DescribeEventCategories.hs b/gen/Network/AWS/RDS/DescribeEventCategories.hs --- a/gen/Network/AWS/RDS/DescribeEventCategories.hs +++ b/gen/Network/AWS/RDS/DescribeEventCategories.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeEventCategories --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -23,8 +23,6 @@ -- categories and source types in the -- -- topic in the /Amazon RDS User Guide./ --- --- /See:/ for DescribeEventCategories. module Network.AWS.RDS.DescribeEventCategories ( -- * Creating a Request @@ -86,7 +84,7 @@ instance AWSRequest DescribeEventCategories where type Rs DescribeEventCategories = DescribeEventCategoriesResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeEventCategoriesResult" (\ s h x -> @@ -94,6 +92,8 @@ (x .@? "EventCategoriesMapList" .!@ mempty >>= may (parseXMLList "EventCategoriesMap")) <*> (pure (fromEnum s))) + +instance Hashable DescribeEventCategories instance ToHeaders DescribeEventCategories where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DescribeEventSubscriptions.hs b/gen/Network/AWS/RDS/DescribeEventSubscriptions.hs --- a/gen/Network/AWS/RDS/DescribeEventSubscriptions.hs +++ b/gen/Network/AWS/RDS/DescribeEventSubscriptions.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeEventSubscriptions --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -25,8 +25,6 @@ -- If you specify a SubscriptionName, lists the description for that -- subscription. -- --- /See:/ for DescribeEventSubscriptions. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeEventSubscriptions ( @@ -124,7 +122,7 @@ instance AWSRequest DescribeEventSubscriptions where type Rs DescribeEventSubscriptions = DescribeEventSubscriptionsResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeEventSubscriptionsResult" @@ -134,6 +132,8 @@ may (parseXMLList "EventSubscription")) <*> (x .@? "Marker") <*> (pure (fromEnum s))) + +instance Hashable DescribeEventSubscriptions instance ToHeaders DescribeEventSubscriptions where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DescribeEvents.hs b/gen/Network/AWS/RDS/DescribeEvents.hs --- a/gen/Network/AWS/RDS/DescribeEvents.hs +++ b/gen/Network/AWS/RDS/DescribeEvents.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeEvents --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -24,8 +24,6 @@ -- parameter group can be obtained by providing the name as a parameter. By -- default, the past hour of events are returned. -- --- /See:/ for DescribeEvents. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeEvents ( @@ -191,7 +189,7 @@ instance AWSRequest DescribeEvents where type Rs DescribeEvents = DescribeEventsResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeEventsResult" (\ s h x -> @@ -201,6 +199,8 @@ <*> (x .@? "Marker") <*> (pure (fromEnum s))) +instance Hashable DescribeEvents + instance ToHeaders DescribeEvents where toHeaders = const mempty @@ -223,7 +223,7 @@ "Marker" =: _deMarker, "MaxRecords" =: _deMaxRecords, "EndTime" =: _deEndTime, "Duration" =: _deDuration] --- | Contains the result of a successful invocation of the DescribeEvents +-- | Contains the result of a successful invocation of the < DescribeEvents> -- action. -- -- /See:/ 'describeEventsResponse' smart constructor. @@ -252,7 +252,7 @@ , _dersResponseStatus = pResponseStatus_ } --- | A list of Event instances. +-- | A list of < Event> instances. dersEvents :: Lens' DescribeEventsResponse [Event] dersEvents = lens _dersEvents (\ s a -> s{_dersEvents = a}) . _Default . _Coerce; diff --git a/gen/Network/AWS/RDS/DescribeOptionGroupOptions.hs b/gen/Network/AWS/RDS/DescribeOptionGroupOptions.hs --- a/gen/Network/AWS/RDS/DescribeOptionGroupOptions.hs +++ b/gen/Network/AWS/RDS/DescribeOptionGroupOptions.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeOptionGroupOptions --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Describes all available options. -- --- /See:/ for DescribeOptionGroupOptions. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeOptionGroupOptions ( @@ -129,7 +127,7 @@ instance AWSRequest DescribeOptionGroupOptions where type Rs DescribeOptionGroupOptions = DescribeOptionGroupOptionsResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeOptionGroupOptionsResult" @@ -139,6 +137,8 @@ may (parseXMLList "OptionGroupOption")) <*> (x .@? "Marker") <*> (pure (fromEnum s))) + +instance Hashable DescribeOptionGroupOptions instance ToHeaders DescribeOptionGroupOptions where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DescribeOptionGroups.hs b/gen/Network/AWS/RDS/DescribeOptionGroups.hs --- a/gen/Network/AWS/RDS/DescribeOptionGroups.hs +++ b/gen/Network/AWS/RDS/DescribeOptionGroups.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeOptionGroups --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Describes the available option groups. -- --- /See:/ for DescribeOptionGroups. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeOptionGroups ( @@ -139,7 +137,7 @@ instance AWSRequest DescribeOptionGroups where type Rs DescribeOptionGroups = DescribeOptionGroupsResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeOptionGroupsResult" (\ s h x -> @@ -148,6 +146,8 @@ (x .@? "OptionGroupsList" .!@ mempty >>= may (parseXMLList "OptionGroup")) <*> (pure (fromEnum s))) + +instance Hashable DescribeOptionGroups instance ToHeaders DescribeOptionGroups where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/DescribeOrderableDBInstanceOptions.hs b/gen/Network/AWS/RDS/DescribeOrderableDBInstanceOptions.hs --- a/gen/Network/AWS/RDS/DescribeOrderableDBInstanceOptions.hs +++ b/gen/Network/AWS/RDS/DescribeOrderableDBInstanceOptions.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeOrderableDBInstanceOptions --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,8 +21,6 @@ -- Returns a list of orderable DB instance options for the specified -- engine. -- --- /See:/ for DescribeOrderableDBInstanceOptions. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeOrderableDBInstanceOptions ( @@ -163,7 +161,7 @@ DescribeOrderableDBInstanceOptions where type Rs DescribeOrderableDBInstanceOptions = DescribeOrderableDBInstanceOptionsResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeOrderableDBInstanceOptionsResult" @@ -174,6 +172,8 @@ <*> (x .@? "Marker") <*> (pure (fromEnum s))) +instance Hashable DescribeOrderableDBInstanceOptions + instance ToHeaders DescribeOrderableDBInstanceOptions where toHeaders = const mempty @@ -199,7 +199,7 @@ "Engine" =: _dodioEngine] -- | Contains the result of a successful invocation of the --- DescribeOrderableDBInstanceOptions action. +-- < DescribeOrderableDBInstanceOptions> action. -- -- /See:/ 'describeOrderableDBInstanceOptionsResponse' smart constructor. data DescribeOrderableDBInstanceOptionsResponse = DescribeOrderableDBInstanceOptionsResponse' @@ -227,7 +227,7 @@ , _dodiorsResponseStatus = pResponseStatus_ } --- | An OrderableDBInstanceOption structure containing information about +-- | An < OrderableDBInstanceOption> structure containing information about -- orderable options for the DB instance. dodiorsOrderableDBInstanceOptions :: Lens' DescribeOrderableDBInstanceOptionsResponse [OrderableDBInstanceOption] dodiorsOrderableDBInstanceOptions = lens _dodiorsOrderableDBInstanceOptions (\ s a -> s{_dodiorsOrderableDBInstanceOptions = a}) . _Default . _Coerce; diff --git a/gen/Network/AWS/RDS/DescribePendingMaintenanceActions.hs b/gen/Network/AWS/RDS/DescribePendingMaintenanceActions.hs --- a/gen/Network/AWS/RDS/DescribePendingMaintenanceActions.hs +++ b/gen/Network/AWS/RDS/DescribePendingMaintenanceActions.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribePendingMaintenanceActions --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Returns a list of resources (for example, DB instances) that have at -- least one pending maintenance action. --- --- /See:/ for DescribePendingMaintenanceActions. module Network.AWS.RDS.DescribePendingMaintenanceActions ( -- * Creating a Request @@ -118,7 +116,7 @@ where type Rs DescribePendingMaintenanceActions = DescribePendingMaintenanceActionsResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribePendingMaintenanceActionsResult" @@ -129,6 +127,8 @@ (parseXMLList "ResourcePendingMaintenanceActions")) <*> (x .@? "Marker") <*> (pure (fromEnum s))) + +instance Hashable DescribePendingMaintenanceActions instance ToHeaders DescribePendingMaintenanceActions where diff --git a/gen/Network/AWS/RDS/DescribeReservedDBInstances.hs b/gen/Network/AWS/RDS/DescribeReservedDBInstances.hs --- a/gen/Network/AWS/RDS/DescribeReservedDBInstances.hs +++ b/gen/Network/AWS/RDS/DescribeReservedDBInstances.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeReservedDBInstances --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,8 +21,6 @@ -- Returns information about reserved DB instances for this account, or -- about a specified reserved DB instance. -- --- /See:/ for DescribeReservedDBInstances. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeReservedDBInstances ( @@ -183,7 +181,7 @@ instance AWSRequest DescribeReservedDBInstances where type Rs DescribeReservedDBInstances = DescribeReservedDBInstancesResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeReservedDBInstancesResult" @@ -194,6 +192,8 @@ <*> (x .@? "Marker") <*> (pure (fromEnum s))) +instance Hashable DescribeReservedDBInstances + instance ToHeaders DescribeReservedDBInstances where toHeaders = const mempty @@ -220,7 +220,7 @@ "Duration" =: _drdiDuration] -- | Contains the result of a successful invocation of the --- DescribeReservedDBInstances action. +-- < DescribeReservedDBInstances> action. -- -- /See:/ 'describeReservedDBInstancesResponse' smart constructor. data DescribeReservedDBInstancesResponse = DescribeReservedDBInstancesResponse' diff --git a/gen/Network/AWS/RDS/DescribeReservedDBInstancesOfferings.hs b/gen/Network/AWS/RDS/DescribeReservedDBInstancesOfferings.hs --- a/gen/Network/AWS/RDS/DescribeReservedDBInstancesOfferings.hs +++ b/gen/Network/AWS/RDS/DescribeReservedDBInstancesOfferings.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DescribeReservedDBInstancesOfferings --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Lists available reserved DB instance offerings. -- --- /See:/ for DescribeReservedDBInstancesOfferings. --- -- This operation returns paginated results. module Network.AWS.RDS.DescribeReservedDBInstancesOfferings ( @@ -178,7 +176,7 @@ DescribeReservedDBInstancesOfferings where type Rs DescribeReservedDBInstancesOfferings = DescribeReservedDBInstancesOfferingsResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DescribeReservedDBInstancesOfferingsResult" @@ -189,6 +187,9 @@ may (parseXMLList "ReservedDBInstancesOffering")) <*> (pure (fromEnum s))) +instance Hashable + DescribeReservedDBInstancesOfferings + instance ToHeaders DescribeReservedDBInstancesOfferings where toHeaders = const mempty @@ -218,7 +219,7 @@ "Duration" =: _drdioDuration] -- | Contains the result of a successful invocation of the --- DescribeReservedDBInstancesOfferings action. +-- < DescribeReservedDBInstancesOfferings> action. -- -- /See:/ 'describeReservedDBInstancesOfferingsResponse' smart constructor. data DescribeReservedDBInstancesOfferingsResponse = DescribeReservedDBInstancesOfferingsResponse' diff --git a/gen/Network/AWS/RDS/DownloadDBLogFilePortion.hs b/gen/Network/AWS/RDS/DownloadDBLogFilePortion.hs --- a/gen/Network/AWS/RDS/DownloadDBLogFilePortion.hs +++ b/gen/Network/AWS/RDS/DownloadDBLogFilePortion.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.DownloadDBLogFilePortion --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,8 +21,6 @@ -- Downloads all or a portion of the specified log file, up to 1 MB in -- size. -- --- /See:/ for DownloadDBLogFilePortion. --- -- This operation returns paginated results. module Network.AWS.RDS.DownloadDBLogFilePortion ( @@ -144,7 +142,7 @@ instance AWSRequest DownloadDBLogFilePortion where type Rs DownloadDBLogFilePortion = DownloadDBLogFilePortionResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "DownloadDBLogFilePortionResult" (\ s h x -> @@ -154,6 +152,8 @@ <*> (x .@? "Marker") <*> (pure (fromEnum s))) +instance Hashable DownloadDBLogFilePortion + instance ToHeaders DownloadDBLogFilePortion where toHeaders = const mempty @@ -172,7 +172,7 @@ "LogFileName" =: _ddlfpLogFileName] -- | This data type is used as a response element to --- DownloadDBLogFilePortion. +-- < DownloadDBLogFilePortion>. -- -- /See:/ 'downloadDBLogFilePortionResponse' smart constructor. data DownloadDBLogFilePortionResponse = DownloadDBLogFilePortionResponse' diff --git a/gen/Network/AWS/RDS/FailoverDBCluster.hs b/gen/Network/AWS/RDS/FailoverDBCluster.hs --- a/gen/Network/AWS/RDS/FailoverDBCluster.hs +++ b/gen/Network/AWS/RDS/FailoverDBCluster.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.FailoverDBCluster --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -34,8 +34,6 @@ -- For more information on Amazon Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for FailoverDBCluster. module Network.AWS.RDS.FailoverDBCluster ( -- * Creating a Request @@ -91,12 +89,14 @@ instance AWSRequest FailoverDBCluster where type Rs FailoverDBCluster = FailoverDBClusterResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "FailoverDBClusterResult" (\ s h x -> FailoverDBClusterResponse' <$> (x .@? "DBCluster") <*> (pure (fromEnum s))) + +instance Hashable FailoverDBCluster instance ToHeaders FailoverDBCluster where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/ListTagsForResource.hs b/gen/Network/AWS/RDS/ListTagsForResource.hs --- a/gen/Network/AWS/RDS/ListTagsForResource.hs +++ b/gen/Network/AWS/RDS/ListTagsForResource.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.ListTagsForResource --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -22,8 +22,6 @@ -- -- For an overview on tagging an Amazon RDS resource, see -- . --- --- /See:/ for ListTagsForResource. module Network.AWS.RDS.ListTagsForResource ( -- * Creating a Request @@ -85,7 +83,7 @@ instance AWSRequest ListTagsForResource where type Rs ListTagsForResource = ListTagsForResourceResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "ListTagsForResourceResult" (\ s h x -> @@ -93,6 +91,8 @@ (x .@? "TagList" .!@ mempty >>= may (parseXMLList "Tag")) <*> (pure (fromEnum s))) + +instance Hashable ListTagsForResource instance ToHeaders ListTagsForResource where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/ModifyDBCluster.hs b/gen/Network/AWS/RDS/ModifyDBCluster.hs --- a/gen/Network/AWS/RDS/ModifyDBCluster.hs +++ b/gen/Network/AWS/RDS/ModifyDBCluster.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.ModifyDBCluster --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -24,8 +24,6 @@ -- Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for ModifyDBCluster. module Network.AWS.RDS.ModifyDBCluster ( -- * Creating a Request @@ -242,12 +240,14 @@ instance AWSRequest ModifyDBCluster where type Rs ModifyDBCluster = ModifyDBClusterResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "ModifyDBClusterResult" (\ s h x -> ModifyDBClusterResponse' <$> (x .@? "DBCluster") <*> (pure (fromEnum s))) + +instance Hashable ModifyDBCluster instance ToHeaders ModifyDBCluster where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/ModifyDBClusterParameterGroup.hs b/gen/Network/AWS/RDS/ModifyDBClusterParameterGroup.hs --- a/gen/Network/AWS/RDS/ModifyDBClusterParameterGroup.hs +++ b/gen/Network/AWS/RDS/ModifyDBClusterParameterGroup.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.ModifyDBClusterParameterGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -41,10 +41,8 @@ -- database defined by the 'character_set_database' parameter. You can use -- the /Parameter Groups/ option of the -- or the --- DescribeDBClusterParameters command to verify that your DB cluster +-- < DescribeDBClusterParameters> command to verify that your DB cluster -- parameter group has been created or modified. --- --- /See:/ for ModifyDBClusterParameterGroup. module Network.AWS.RDS.ModifyDBClusterParameterGroup ( -- * Creating a Request @@ -104,11 +102,13 @@ where type Rs ModifyDBClusterParameterGroup = DBClusterParameterGroupNameMessage - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "ModifyDBClusterParameterGroupResult" (\ s h x -> parseXML x) + +instance Hashable ModifyDBClusterParameterGroup instance ToHeaders ModifyDBClusterParameterGroup where diff --git a/gen/Network/AWS/RDS/ModifyDBInstance.hs b/gen/Network/AWS/RDS/ModifyDBInstance.hs --- a/gen/Network/AWS/RDS/ModifyDBInstance.hs +++ b/gen/Network/AWS/RDS/ModifyDBInstance.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.ModifyDBInstance --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,8 +21,6 @@ -- Modify settings for a DB instance. You can change one or more database -- configuration parameters by specifying these parameters and the new -- values in the request. --- --- /See:/ for ModifyDBInstance. module Network.AWS.RDS.ModifyDBInstance ( -- * Creating a Request @@ -206,7 +204,7 @@ -- family for the new engine version must be specified. The new DB -- parameter group can be the default for that DB parameter group family. -- --- For a list of valid engine versions, see CreateDBInstance. +-- For a list of valid engine versions, see < CreateDBInstance>. mdiEngineVersion :: Lens' ModifyDBInstance (Maybe Text) mdiEngineVersion = lens _mdiEngineVersion (\ s a -> s{_mdiEngineVersion = a}); @@ -291,9 +289,11 @@ mdiMasterUserPassword :: Lens' ModifyDBInstance (Maybe Text) mdiMasterUserPassword = lens _mdiMasterUserPassword (\ s a -> s{_mdiMasterUserPassword = a}); --- | True to make the DB instance Internet-facing with a publicly resolvable --- DNS name, which resolves to a public IP address. False to make the DB --- instance internal with a DNS name that resolves to a private IP address. +-- | Boolean value that indicates if the DB instance has a publicly +-- resolvable DNS name. Set to 'True' to make the DB instance +-- Internet-facing with a publicly resolvable DNS name, which resolves to a +-- public IP address. Set to 'False' to make the DB instance internal with +-- a DNS name that resolves to a private IP address. -- -- 'PubliclyAccessible' only applies to DB instances in a VPC. The DB -- instance must be part of a public subnet and 'PubliclyAccessible' must @@ -407,7 +407,7 @@ -- | The new compute and memory capacity of the DB instance. To determine the -- instance classes that are available for a particular DB engine, use the --- DescribeOrderableDBInstanceOptions action. +-- < DescribeOrderableDBInstanceOptions> action. -- -- Passing a value for this setting causes an outage during the change and -- is applied during the next maintenance window, unless 'ApplyImmediately' @@ -603,7 +603,7 @@ -- If this parameter is set to 'false', changes to the DB instance are -- applied during the next maintenance window. Some parameter changes can -- cause an outage and will be applied on the next call to --- RebootDBInstance, or the next failure reboot. Review the table of +-- < RebootDBInstance>, or the next failure reboot. Review the table of -- parameters in -- -- to see the impact that setting 'ApplyImmediately' to 'true' or 'false' @@ -665,12 +665,14 @@ instance AWSRequest ModifyDBInstance where type Rs ModifyDBInstance = ModifyDBInstanceResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "ModifyDBInstanceResult" (\ s h x -> ModifyDBInstanceResponse' <$> (x .@? "DBInstance") <*> (pure (fromEnum s))) + +instance Hashable ModifyDBInstance instance ToHeaders ModifyDBInstance where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/ModifyDBParameterGroup.hs b/gen/Network/AWS/RDS/ModifyDBParameterGroup.hs --- a/gen/Network/AWS/RDS/ModifyDBParameterGroup.hs +++ b/gen/Network/AWS/RDS/ModifyDBParameterGroup.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.ModifyDBParameterGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -39,8 +39,6 @@ -- or the -- /DescribeDBParameters/ command to verify that your DB parameter group -- has been created or modified. --- --- /See:/ for ModifyDBParameterGroup. module Network.AWS.RDS.ModifyDBParameterGroup ( -- * Creating a Request @@ -115,10 +113,12 @@ instance AWSRequest ModifyDBParameterGroup where type Rs ModifyDBParameterGroup = DBParameterGroupNameMessage - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "ModifyDBParameterGroupResult" (\ s h x -> parseXML x) + +instance Hashable ModifyDBParameterGroup instance ToHeaders ModifyDBParameterGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/ModifyDBSnapshotAttribute.hs b/gen/Network/AWS/RDS/ModifyDBSnapshotAttribute.hs --- a/gen/Network/AWS/RDS/ModifyDBSnapshotAttribute.hs +++ b/gen/Network/AWS/RDS/ModifyDBSnapshotAttribute.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.ModifyDBSnapshotAttribute --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -23,7 +23,7 @@ -- -- To share a manual DB snapshot with other AWS accounts, specify 'restore' -- as the 'AttributeName' and use the 'ValuesToAdd' parameter to add a list --- of the AWS account ids that are authorized to retore the manual DB +-- of the AWS account ids that are authorized to restore the manual DB -- snapshot. Uses the value 'all' to make the manual DB snapshot public and -- can by copied or restored by all AWS accounts. Do not add the 'all' -- value for any manual DB snapshots that contain private information that @@ -31,11 +31,9 @@ -- -- To view which AWS accounts have access to copy or restore a manual DB -- snapshot, or whether a manual DB snapshot public or private, use the --- DescribeDBSnapshotAttributes API. +-- < DescribeDBSnapshotAttributes> API. -- -- If the manual DB snapshot is encrypted, it cannot be shared. --- --- /See:/ for ModifyDBSnapshotAttribute. module Network.AWS.RDS.ModifyDBSnapshotAttribute ( -- * Creating a Request @@ -129,13 +127,15 @@ instance AWSRequest ModifyDBSnapshotAttribute where type Rs ModifyDBSnapshotAttribute = ModifyDBSnapshotAttributeResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "ModifyDBSnapshotAttributeResult" (\ s h x -> ModifyDBSnapshotAttributeResponse' <$> (x .@? "DBSnapshotAttributesResult") <*> (pure (fromEnum s))) + +instance Hashable ModifyDBSnapshotAttribute instance ToHeaders ModifyDBSnapshotAttribute where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/ModifyDBSubnetGroup.hs b/gen/Network/AWS/RDS/ModifyDBSubnetGroup.hs --- a/gen/Network/AWS/RDS/ModifyDBSubnetGroup.hs +++ b/gen/Network/AWS/RDS/ModifyDBSubnetGroup.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.ModifyDBSubnetGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Modifies an existing DB subnet group. DB subnet groups must contain at -- least one subnet in at least two AZs in the region. --- --- /See:/ for ModifyDBSubnetGroup. module Network.AWS.RDS.ModifyDBSubnetGroup ( -- * Creating a Request @@ -82,8 +80,8 @@ -- | The name for the DB subnet group. This value is stored as a lowercase -- string. -- --- Constraints: Must contain no more than 255 alphanumeric characters or --- hyphens. Must not be \"Default\". +-- Constraints: Must contain no more than 255 alphanumeric characters, +-- periods, underscores, spaces, or hyphens. Must not be \"default\". -- -- Example: 'mySubnetgroup' mdsgDBSubnetGroupName :: Lens' ModifyDBSubnetGroup Text @@ -96,12 +94,14 @@ instance AWSRequest ModifyDBSubnetGroup where type Rs ModifyDBSubnetGroup = ModifyDBSubnetGroupResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "ModifyDBSubnetGroupResult" (\ s h x -> ModifyDBSubnetGroupResponse' <$> (x .@? "DBSubnetGroup") <*> (pure (fromEnum s))) + +instance Hashable ModifyDBSubnetGroup instance ToHeaders ModifyDBSubnetGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/ModifyEventSubscription.hs b/gen/Network/AWS/RDS/ModifyEventSubscription.hs --- a/gen/Network/AWS/RDS/ModifyEventSubscription.hs +++ b/gen/Network/AWS/RDS/ModifyEventSubscription.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.ModifyEventSubscription --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,15 +21,13 @@ -- Modifies an existing RDS event notification subscription. Note that you -- cannot modify the source identifiers using this call; to change source -- identifiers for a subscription, use the --- AddSourceIdentifierToSubscription and --- RemoveSourceIdentifierFromSubscription calls. +-- < AddSourceIdentifierToSubscription> and +-- < RemoveSourceIdentifierFromSubscription> calls. -- -- You can see a list of the event categories for a given SourceType in the -- -- topic in the Amazon RDS User Guide or by using the -- __DescribeEventCategories__ action. --- --- /See:/ for ModifyEventSubscription. module Network.AWS.RDS.ModifyEventSubscription ( -- * Creating a Request @@ -128,12 +126,14 @@ instance AWSRequest ModifyEventSubscription where type Rs ModifyEventSubscription = ModifyEventSubscriptionResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "ModifyEventSubscriptionResult" (\ s h x -> ModifyEventSubscriptionResponse' <$> (x .@? "EventSubscription") <*> (pure (fromEnum s))) + +instance Hashable ModifyEventSubscription instance ToHeaders ModifyEventSubscription where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/ModifyOptionGroup.hs b/gen/Network/AWS/RDS/ModifyOptionGroup.hs --- a/gen/Network/AWS/RDS/ModifyOptionGroup.hs +++ b/gen/Network/AWS/RDS/ModifyOptionGroup.hs @@ -12,15 +12,13 @@ -- | -- Module : Network.AWS.RDS.ModifyOptionGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Modifies an existing option group. --- --- /See:/ for ModifyOptionGroup. module Network.AWS.RDS.ModifyOptionGroup ( -- * Creating a Request @@ -106,12 +104,14 @@ instance AWSRequest ModifyOptionGroup where type Rs ModifyOptionGroup = ModifyOptionGroupResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "ModifyOptionGroupResult" (\ s h x -> ModifyOptionGroupResponse' <$> (x .@? "OptionGroup") <*> (pure (fromEnum s))) + +instance Hashable ModifyOptionGroup instance ToHeaders ModifyOptionGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/PromoteReadReplica.hs b/gen/Network/AWS/RDS/PromoteReadReplica.hs --- a/gen/Network/AWS/RDS/PromoteReadReplica.hs +++ b/gen/Network/AWS/RDS/PromoteReadReplica.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.PromoteReadReplica --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -24,8 +24,6 @@ -- before promoting the Read Replica. This ensures that no backup is taken -- during the promotion process. Once the instance is promoted to a primary -- instance, backups are taken based on your backup settings. --- --- /See:/ for PromoteReadReplica. module Network.AWS.RDS.PromoteReadReplica ( -- * Creating a Request @@ -125,12 +123,14 @@ instance AWSRequest PromoteReadReplica where type Rs PromoteReadReplica = PromoteReadReplicaResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "PromoteReadReplicaResult" (\ s h x -> PromoteReadReplicaResponse' <$> (x .@? "DBInstance") <*> (pure (fromEnum s))) + +instance Hashable PromoteReadReplica instance ToHeaders PromoteReadReplica where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/PurchaseReservedDBInstancesOffering.hs b/gen/Network/AWS/RDS/PurchaseReservedDBInstancesOffering.hs --- a/gen/Network/AWS/RDS/PurchaseReservedDBInstancesOffering.hs +++ b/gen/Network/AWS/RDS/PurchaseReservedDBInstancesOffering.hs @@ -12,15 +12,13 @@ -- | -- Module : Network.AWS.RDS.PurchaseReservedDBInstancesOffering --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Purchases a reserved DB instance offering. --- --- /See:/ for PurchaseReservedDBInstancesOffering. module Network.AWS.RDS.PurchaseReservedDBInstancesOffering ( -- * Creating a Request @@ -105,13 +103,15 @@ PurchaseReservedDBInstancesOffering where type Rs PurchaseReservedDBInstancesOffering = PurchaseReservedDBInstancesOfferingResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "PurchaseReservedDBInstancesOfferingResult" (\ s h x -> PurchaseReservedDBInstancesOfferingResponse' <$> (x .@? "ReservedDBInstance") <*> (pure (fromEnum s))) + +instance Hashable PurchaseReservedDBInstancesOffering instance ToHeaders PurchaseReservedDBInstancesOffering where diff --git a/gen/Network/AWS/RDS/RebootDBInstance.hs b/gen/Network/AWS/RDS/RebootDBInstance.hs --- a/gen/Network/AWS/RDS/RebootDBInstance.hs +++ b/gen/Network/AWS/RDS/RebootDBInstance.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.RebootDBInstance --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -36,8 +36,6 @@ -- recommend that you reduce database activities as much as possible during -- the reboot process to reduce rollback activity for in-transit -- transactions. --- --- /See:/ for RebootDBInstance. module Network.AWS.RDS.RebootDBInstance ( -- * Creating a Request @@ -106,12 +104,14 @@ instance AWSRequest RebootDBInstance where type Rs RebootDBInstance = RebootDBInstanceResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "RebootDBInstanceResult" (\ s h x -> RebootDBInstanceResponse' <$> (x .@? "DBInstance") <*> (pure (fromEnum s))) + +instance Hashable RebootDBInstance instance ToHeaders RebootDBInstance where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/RemoveSourceIdentifierFromSubscription.hs b/gen/Network/AWS/RDS/RemoveSourceIdentifierFromSubscription.hs --- a/gen/Network/AWS/RDS/RemoveSourceIdentifierFromSubscription.hs +++ b/gen/Network/AWS/RDS/RemoveSourceIdentifierFromSubscription.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.RemoveSourceIdentifierFromSubscription --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,8 +20,6 @@ -- -- Removes a source identifier from an existing RDS event notification -- subscription. --- --- /See:/ for RemoveSourceIdentifierFromSubscription. module Network.AWS.RDS.RemoveSourceIdentifierFromSubscription ( -- * Creating a Request @@ -86,13 +84,16 @@ RemoveSourceIdentifierFromSubscription where type Rs RemoveSourceIdentifierFromSubscription = RemoveSourceIdentifierFromSubscriptionResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "RemoveSourceIdentifierFromSubscriptionResult" (\ s h x -> RemoveSourceIdentifierFromSubscriptionResponse' <$> (x .@? "EventSubscription") <*> (pure (fromEnum s))) + +instance Hashable + RemoveSourceIdentifierFromSubscription instance ToHeaders RemoveSourceIdentifierFromSubscription where diff --git a/gen/Network/AWS/RDS/RemoveTagsFromResource.hs b/gen/Network/AWS/RDS/RemoveTagsFromResource.hs --- a/gen/Network/AWS/RDS/RemoveTagsFromResource.hs +++ b/gen/Network/AWS/RDS/RemoveTagsFromResource.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.RemoveTagsFromResource --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -22,8 +22,6 @@ -- -- For an overview on tagging an Amazon RDS resource, see -- . --- --- /See:/ for RemoveTagsFromResource. module Network.AWS.RDS.RemoveTagsFromResource ( -- * Creating a Request @@ -82,9 +80,11 @@ instance AWSRequest RemoveTagsFromResource where type Rs RemoveTagsFromResource = RemoveTagsFromResourceResponse - request = postQuery rDS + request = postQuery rds response = receiveNull RemoveTagsFromResourceResponse' + +instance Hashable RemoveTagsFromResource instance ToHeaders RemoveTagsFromResource where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/ResetDBClusterParameterGroup.hs b/gen/Network/AWS/RDS/ResetDBClusterParameterGroup.hs --- a/gen/Network/AWS/RDS/ResetDBClusterParameterGroup.hs +++ b/gen/Network/AWS/RDS/ResetDBClusterParameterGroup.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.ResetDBClusterParameterGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -26,15 +26,13 @@ -- -- When resetting the entire group, dynamic parameters are updated -- immediately and static parameters are set to 'pending-reboot' to take --- effect on the next DB instance restart or RebootDBInstance request. You --- must call RebootDBInstance for every DB instance in your DB cluster that --- you want the updated static parameter to apply to. +-- effect on the next DB instance restart or < RebootDBInstance> request. +-- You must call < RebootDBInstance> for every DB instance in your DB +-- cluster that you want the updated static parameter to apply to. -- -- For more information on Amazon Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for ResetDBClusterParameterGroup. module Network.AWS.RDS.ResetDBClusterParameterGroup ( -- * Creating a Request @@ -108,11 +106,13 @@ where type Rs ResetDBClusterParameterGroup = DBClusterParameterGroupNameMessage - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "ResetDBClusterParameterGroupResult" (\ s h x -> parseXML x) + +instance Hashable ResetDBClusterParameterGroup instance ToHeaders ResetDBClusterParameterGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/ResetDBParameterGroup.hs b/gen/Network/AWS/RDS/ResetDBParameterGroup.hs --- a/gen/Network/AWS/RDS/ResetDBParameterGroup.hs +++ b/gen/Network/AWS/RDS/ResetDBParameterGroup.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.ResetDBParameterGroup --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -26,8 +26,6 @@ -- dynamic parameters are updated immediately and static parameters are set -- to 'pending-reboot' to take effect on the next DB instance restart or -- 'RebootDBInstance' request. --- --- /See:/ for ResetDBParameterGroup. module Network.AWS.RDS.ResetDBParameterGroup ( -- * Creating a Request @@ -127,10 +125,12 @@ instance AWSRequest ResetDBParameterGroup where type Rs ResetDBParameterGroup = DBParameterGroupNameMessage - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "ResetDBParameterGroupResult" (\ s h x -> parseXML x) + +instance Hashable ResetDBParameterGroup instance ToHeaders ResetDBParameterGroup where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/RestoreDBClusterFromSnapshot.hs b/gen/Network/AWS/RDS/RestoreDBClusterFromSnapshot.hs --- a/gen/Network/AWS/RDS/RestoreDBClusterFromSnapshot.hs +++ b/gen/Network/AWS/RDS/RestoreDBClusterFromSnapshot.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.RestoreDBClusterFromSnapshot --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -26,8 +26,6 @@ -- For more information on Amazon Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for RestoreDBClusterFromSnapshot. module Network.AWS.RDS.RestoreDBClusterFromSnapshot ( -- * Creating a Request @@ -133,6 +131,11 @@ rdcfsEngineVersion = lens _rdcfsEngineVersion (\ s a -> s{_rdcfsEngineVersion = a}); -- | The name of the DB subnet group to use for the new DB cluster. +-- +-- Constraints: Must contain no more than 255 alphanumeric characters, +-- periods, underscores, spaces, or hyphens. Must not be default. +-- +-- Example: 'mySubnetgroup' rdcfsDBSubnetGroupName :: Lens' RestoreDBClusterFromSnapshot (Maybe Text) rdcfsDBSubnetGroupName = lens _rdcfsDBSubnetGroupName (\ s a -> s{_rdcfsDBSubnetGroupName = a}); @@ -224,13 +227,15 @@ where type Rs RestoreDBClusterFromSnapshot = RestoreDBClusterFromSnapshotResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "RestoreDBClusterFromSnapshotResult" (\ s h x -> RestoreDBClusterFromSnapshotResponse' <$> (x .@? "DBCluster") <*> (pure (fromEnum s))) + +instance Hashable RestoreDBClusterFromSnapshot instance ToHeaders RestoreDBClusterFromSnapshot where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/RestoreDBClusterToPointInTime.hs b/gen/Network/AWS/RDS/RestoreDBClusterToPointInTime.hs --- a/gen/Network/AWS/RDS/RestoreDBClusterToPointInTime.hs +++ b/gen/Network/AWS/RDS/RestoreDBClusterToPointInTime.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.RestoreDBClusterToPointInTime --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -28,8 +28,6 @@ -- For more information on Amazon Aurora, see -- -- in the /Amazon RDS User Guide./ --- --- /See:/ for RestoreDBClusterToPointInTime. module Network.AWS.RDS.RestoreDBClusterToPointInTime ( -- * Creating a Request @@ -130,6 +128,11 @@ rdctpitUseLatestRestorableTime = lens _rdctpitUseLatestRestorableTime (\ s a -> s{_rdctpitUseLatestRestorableTime = a}); -- | The DB subnet group name to use for the new DB cluster. +-- +-- Constraints: Must contain no more than 255 alphanumeric characters, +-- periods, underscores, spaces, or hyphens. Must not be default. +-- +-- Example: 'mySubnetgroup' rdctpitDBSubnetGroupName :: Lens' RestoreDBClusterToPointInTime (Maybe Text) rdctpitDBSubnetGroupName = lens _rdctpitDBSubnetGroupName (\ s a -> s{_rdctpitDBSubnetGroupName = a}); @@ -221,13 +224,15 @@ where type Rs RestoreDBClusterToPointInTime = RestoreDBClusterToPointInTimeResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "RestoreDBClusterToPointInTimeResult" (\ s h x -> RestoreDBClusterToPointInTimeResponse' <$> (x .@? "DBCluster") <*> (pure (fromEnum s))) + +instance Hashable RestoreDBClusterToPointInTime instance ToHeaders RestoreDBClusterToPointInTime where diff --git a/gen/Network/AWS/RDS/RestoreDBInstanceFromDBSnapshot.hs b/gen/Network/AWS/RDS/RestoreDBInstanceFromDBSnapshot.hs --- a/gen/Network/AWS/RDS/RestoreDBInstanceFromDBSnapshot.hs +++ b/gen/Network/AWS/RDS/RestoreDBInstanceFromDBSnapshot.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.RestoreDBInstanceFromDBSnapshot --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -20,12 +20,11 @@ -- -- Creates a new DB instance from a DB snapshot. The target database is -- created from the source database restore point with the most of original --- configuration, but in a system chosen availability zone with the default --- security group, the default subnet group, and the default DB parameter --- group. By default, the new DB instance is created as a single-AZ --- deployment except when the instance is a SQL Server instance that has an --- option group that is associated with mirroring; in this case, the --- instance becomes a mirrored AZ deployment and not a single-AZ +-- configuration with the default security group and the default DB +-- parameter group. By default, the new DB instance is created as a +-- single-AZ deployment except when the instance is a SQL Server instance +-- that has an option group that is associated with mirroring; in this +-- case, the instance becomes a mirrored AZ deployment and not a single-AZ -- deployment. -- -- If your intent is to replace your original DB instance with the new, @@ -40,8 +39,6 @@ -- -- If you are restoring from a shared manual DB snapshot, the -- 'DBSnapshotIdentifier' must be the ARN of the shared DB snapshot. --- --- /See:/ for RestoreDBInstanceFromDBSnapshot. module Network.AWS.RDS.RestoreDBInstanceFromDBSnapshot ( -- * Creating a Request @@ -203,6 +200,11 @@ rdifdsAutoMinorVersionUpgrade = lens _rdifdsAutoMinorVersionUpgrade (\ s a -> s{_rdifdsAutoMinorVersionUpgrade = a}); -- | The DB subnet group name to use for the new instance. +-- +-- Constraints: Must contain no more than 255 alphanumeric characters, +-- periods, underscores, spaces, or hyphens. Must not be default. +-- +-- Example: 'mySubnetgroup' rdifdsDBSubnetGroupName :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) rdifdsDBSubnetGroupName = lens _rdifdsDBSubnetGroupName (\ s a -> s{_rdifdsDBSubnetGroupName = a}); @@ -353,13 +355,15 @@ where type Rs RestoreDBInstanceFromDBSnapshot = RestoreDBInstanceFromDBSnapshotResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "RestoreDBInstanceFromDBSnapshotResult" (\ s h x -> RestoreDBInstanceFromDBSnapshotResponse' <$> (x .@? "DBInstance") <*> (pure (fromEnum s))) + +instance Hashable RestoreDBInstanceFromDBSnapshot instance ToHeaders RestoreDBInstanceFromDBSnapshot where diff --git a/gen/Network/AWS/RDS/RestoreDBInstanceToPointInTime.hs b/gen/Network/AWS/RDS/RestoreDBInstanceToPointInTime.hs --- a/gen/Network/AWS/RDS/RestoreDBInstanceToPointInTime.hs +++ b/gen/Network/AWS/RDS/RestoreDBInstanceToPointInTime.hs @@ -12,24 +12,24 @@ -- | -- Module : Network.AWS.RDS.RestoreDBInstanceToPointInTime --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Restores a DB instance to an arbitrary point-in-time. Users can restore --- to any point in time before the LatestRestorableTime for up to --- BackupRetentionPeriod days. The target database is created with the most --- of original configuration, but in a system chosen availability zone with --- the default security group, the default subnet group, and the default DB --- parameter group. By default, the new DB instance is created as a --- single-AZ deployment except when the instance is a SQL Server instance --- that has an option group that is associated with mirroring; in this --- case, the instance becomes a mirrored deployment and not a single-AZ --- deployment. +-- Restores a DB instance to an arbitrary point in time. You can restore to +-- any point in time before the time identified by the LatestRestorableTime +-- property. You can restore to a point up to the number of days specified +-- by the BackupRetentionPeriod property. -- --- /See:/ for RestoreDBInstanceToPointInTime. +-- The target database is created with most of the original configuration, +-- but in a system-selected availability zone, with the default security +-- group, the default subnet group, and the default DB parameter group. By +-- default, the new DB instance is created as a single-AZ deployment except +-- when the instance is a SQL Server instance that has an option group that +-- is associated with mirroring; in this case, the instance becomes a +-- mirrored deployment and not a single-AZ deployment. module Network.AWS.RDS.RestoreDBInstanceToPointInTime ( -- * Creating a Request @@ -210,6 +210,11 @@ rditpitAutoMinorVersionUpgrade = lens _rditpitAutoMinorVersionUpgrade (\ s a -> s{_rditpitAutoMinorVersionUpgrade = a}); -- | The DB subnet group name to use for the new instance. +-- +-- Constraints: Must contain no more than 255 alphanumeric characters, +-- periods, underscores, spaces, or hyphens. Must not be default. +-- +-- Example: 'mySubnetgroup' rditpitDBSubnetGroupName :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) rditpitDBSubnetGroupName = lens _rditpitDBSubnetGroupName (\ s a -> s{_rditpitDBSubnetGroupName = a}); @@ -247,7 +252,7 @@ -- -- Valid Values: 'MySQL' | 'mariadb' | 'oracle-se1' | 'oracle-se' | -- 'oracle-ee' | 'sqlserver-ee' | 'sqlserver-se' | 'sqlserver-ex' | --- 'sqlserver-web' | 'postgres'| 'aurora' +-- 'sqlserver-web' | 'postgres' | 'aurora' rditpitEngine :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) rditpitEngine = lens _rditpitEngine (\ s a -> s{_rditpitEngine = a}); @@ -366,13 +371,15 @@ where type Rs RestoreDBInstanceToPointInTime = RestoreDBInstanceToPointInTimeResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "RestoreDBInstanceToPointInTimeResult" (\ s h x -> RestoreDBInstanceToPointInTimeResponse' <$> (x .@? "DBInstance") <*> (pure (fromEnum s))) + +instance Hashable RestoreDBInstanceToPointInTime instance ToHeaders RestoreDBInstanceToPointInTime where diff --git a/gen/Network/AWS/RDS/RevokeDBSecurityGroupIngress.hs b/gen/Network/AWS/RDS/RevokeDBSecurityGroupIngress.hs --- a/gen/Network/AWS/RDS/RevokeDBSecurityGroupIngress.hs +++ b/gen/Network/AWS/RDS/RevokeDBSecurityGroupIngress.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.RDS.RevokeDBSecurityGroupIngress --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -23,8 +23,6 @@ -- are one of CIDRIP, EC2SecurityGroupId for VPC, or -- (EC2SecurityGroupOwnerId and either EC2SecurityGroupName or -- EC2SecurityGroupId). --- --- /See:/ for RevokeDBSecurityGroupIngress. module Network.AWS.RDS.RevokeDBSecurityGroupIngress ( -- * Creating a Request @@ -124,13 +122,15 @@ where type Rs RevokeDBSecurityGroupIngress = RevokeDBSecurityGroupIngressResponse - request = postQuery rDS + request = postQuery rds response = receiveXMLWrapper "RevokeDBSecurityGroupIngressResult" (\ s h x -> RevokeDBSecurityGroupIngressResponse' <$> (x .@? "DBSecurityGroup") <*> (pure (fromEnum s))) + +instance Hashable RevokeDBSecurityGroupIngress instance ToHeaders RevokeDBSecurityGroupIngress where toHeaders = const mempty diff --git a/gen/Network/AWS/RDS/Types.hs b/gen/Network/AWS/RDS/Types.hs --- a/gen/Network/AWS/RDS/Types.hs +++ b/gen/Network/AWS/RDS/Types.hs @@ -4,7 +4,7 @@ -- | -- Module : Network.AWS.RDS.Types --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -13,7 +13,7 @@ module Network.AWS.RDS.Types ( -- * Service Configuration - rDS + rds -- * Errors , _PointInTimeRestoreNotEnabledFault @@ -626,14 +626,14 @@ import Network.AWS.Sign.V4 -- | API version '2014-10-31' of the Amazon Relational Database Service SDK configuration. -rDS :: Service -rDS = +rds :: Service +rds = Service { _svcAbbrev = "RDS" , _svcSigner = v4 , _svcPrefix = "rds" , _svcVersion = "2014-10-31" - , _svcEndpoint = defaultEndpoint rDS + , _svcEndpoint = defaultEndpoint rds , _svcTimeout = Just 70 , _svcCheck = statusSuccess , _svcError = parseXMLError @@ -648,6 +648,7 @@ , _retryCheck = check } check e + | has (hasStatus 429) e = Just "too_many_requests" | has (hasCode "ThrottlingException" . hasStatus 400) e = Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" diff --git a/gen/Network/AWS/RDS/Types/Product.hs b/gen/Network/AWS/RDS/Types/Product.hs --- a/gen/Network/AWS/RDS/Types/Product.hs +++ b/gen/Network/AWS/RDS/Types/Product.hs @@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.RDS.Types.Product --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -67,11 +67,13 @@ (x .@? "Max") <*> (x .@? "Used") <*> (x .@? "AccountQuotaName") +instance Hashable AccountQuota + -- | Contains Availability Zone information. -- -- This data type is used as an element in the following data type: -- --- - OrderableDBInstanceOption +-- - < OrderableDBInstanceOption> -- -- /See:/ 'availabilityZone' smart constructor. newtype AvailabilityZone = AvailabilityZone' @@ -97,6 +99,8 @@ instance FromXML AvailabilityZone where parseXML x = AvailabilityZone' <$> (x .@? "Name") +instance Hashable AvailabilityZone + -- | A CA certificate for an AWS account. -- -- /See:/ 'certificate' smart constructor. @@ -160,8 +164,10 @@ <*> (x .@? "Thumbprint") <*> (x .@? "ValidFrom") +instance Hashable Certificate + -- | This data type is used as a response element in the action --- DescribeDBEngineVersions. +-- < DescribeDBEngineVersions>. -- -- /See:/ 'characterSet' smart constructor. data CharacterSet = CharacterSet' @@ -198,16 +204,18 @@ (x .@? "CharacterSetName") <*> (x .@? "CharacterSetDescription") +instance Hashable CharacterSet + -- | Contains the result of a successful invocation of the following actions: -- --- - CreateDBCluster --- - DeleteDBCluster --- - FailoverDBCluster --- - ModifyDBCluster --- - RestoreDBClusterFromSnapshot +-- - < CreateDBCluster> +-- - < DeleteDBCluster> +-- - < FailoverDBCluster> +-- - < ModifyDBCluster> +-- - < RestoreDBClusterFromSnapshot> -- --- This data type is used as a response element in the DescribeDBClusters --- action. +-- This data type is used as a response element in the +-- < DescribeDBClusters> action. -- -- /See:/ 'dbCluster' smart constructor. data DBCluster = DBCluster' @@ -360,9 +368,9 @@ dcMasterUsername :: Lens' DBCluster (Maybe Text) dcMasterUsername = lens _dcMasterUsername (\ s a -> s{_dcMasterUsername = a}); --- | If 'StorageEncrypted' is true, the region-unique, immutable identifier --- for the encrypted DB cluster. This identifier is found in AWS CloudTrail --- log entries whenever the KMS key for the DB cluster is accessed. +-- | The region-unique, immutable identifier for the DB cluster. This +-- identifier is found in AWS CloudTrail log entries whenever the KMS key +-- for the DB cluster is accessed. dcDBClusterResourceId :: Lens' DBCluster (Maybe Text) dcDBClusterResourceId = lens _dcDBClusterResourceId (\ s a -> s{_dcDBClusterResourceId = a}); @@ -485,6 +493,8 @@ (x .@? "DBClusterOptionGroupMemberships" .!@ mempty >>= may (parseXMLList "DBClusterOptionGroup")) +instance Hashable DBCluster + -- | Contains information about an instance that is part of a DB cluster. -- -- /See:/ 'dbClusterMember' smart constructor. @@ -533,6 +543,8 @@ (x .@? "IsClusterWriter") <*> (x .@? "DBClusterParameterGroupStatus") +instance Hashable DBClusterMember + -- | Contains status information for a DB cluster option group. -- -- /See:/ 'dbClusterOptionGroupStatus' smart constructor. @@ -570,12 +582,14 @@ (x .@? "Status") <*> (x .@? "DBClusterOptionGroupName") +instance Hashable DBClusterOptionGroupStatus + -- | Contains the result of a successful invocation of the --- CreateDBClusterParameterGroup action. +-- < CreateDBClusterParameterGroup> action. -- -- This data type is used as a request parameter in the --- DeleteDBClusterParameterGroup action, and as a response element in the --- DescribeDBClusterParameterGroups action. +-- < DeleteDBClusterParameterGroup> action, and as a response element in +-- the < DescribeDBClusterParameterGroups> action. -- -- /See:/ 'dbClusterParameterGroup' smart constructor. data DBClusterParameterGroup = DBClusterParameterGroup' @@ -623,6 +637,8 @@ (x .@? "DBClusterParameterGroupName") <*> (x .@? "Description") +instance Hashable DBClusterParameterGroup + -- | -- -- /See:/ 'dbClusterParameterGroupNameMessage' smart constructor. @@ -660,13 +676,15 @@ = DBClusterParameterGroupNameMessage' <$> (x .@? "DBClusterParameterGroupName") +instance Hashable DBClusterParameterGroupNameMessage + -- | Contains the result of a successful invocation of the following actions: -- --- - CreateDBClusterSnapshot --- - DeleteDBClusterSnapshot +-- - < CreateDBClusterSnapshot> +-- - < DeleteDBClusterSnapshot> -- -- This data type is used as a response element in the --- DescribeDBClusterSnapshots action. +-- < DescribeDBClusterSnapshots> action. -- -- /See:/ 'dbClusterSnapshot' smart constructor. data DBClusterSnapshot = DBClusterSnapshot' @@ -847,8 +865,10 @@ <*> (x .@? "PercentProgress") <*> (x .@? "Port") +instance Hashable DBClusterSnapshot + -- | This data type is used as a response element in the action --- DescribeDBEngineVersions. +-- < DescribeDBEngineVersions>. -- -- /See:/ 'dbEngineVersion' smart constructor. data DBEngineVersion = DBEngineVersion' @@ -947,14 +967,16 @@ (x .@? "ValidUpgradeTarget" .!@ mempty >>= may (parseXMLList "UpgradeTarget")) +instance Hashable DBEngineVersion + -- | Contains the result of a successful invocation of the following actions: -- --- - CreateDBInstance --- - DeleteDBInstance --- - ModifyDBInstance +-- - < CreateDBInstance> +-- - < DeleteDBInstance> +-- - < ModifyDBInstance> -- --- This data type is used as a response element in the DescribeDBInstances --- action. +-- This data type is used as a response element in the +-- < DescribeDBInstances> action. -- -- /See:/ 'dbInstance' smart constructor. data DBInstance = DBInstance' @@ -1308,10 +1330,9 @@ diAllocatedStorage :: Lens' DBInstance (Maybe Int) diAllocatedStorage = lens _diAllocatedStorage (\ s a -> s{_diAllocatedStorage = a}); --- | If 'StorageEncrypted' is true, the region-unique, immutable identifier --- for the encrypted DB instance. This identifier is found in AWS --- CloudTrail log entries whenever the KMS key for the DB instance is --- accessed. +-- | The region-unique, immutable identifier for the DB instance. This +-- identifier is found in AWS CloudTrail log entries whenever the KMS key +-- for the DB instance is accessed. diDBiResourceId :: Lens' DBInstance (Maybe Text) diDBiResourceId = lens _diDBiResourceId (\ s a -> s{_diDBiResourceId = a}); @@ -1438,6 +1459,8 @@ may (parseXMLList "DBInstanceStatusInfo")) <*> (x .@? "DBName") +instance Hashable DBInstance + -- | Provides a list of status information for a DB instance. -- -- /See:/ 'dbInstanceStatusInfo' smart constructor. @@ -1495,12 +1518,14 @@ (x .@? "StatusType") <*> (x .@? "Message") +instance Hashable DBInstanceStatusInfo + -- | Contains the result of a successful invocation of the --- CreateDBParameterGroup action. +-- < CreateDBParameterGroup> action. -- -- This data type is used as a request parameter in the --- DeleteDBParameterGroup action, and as a response element in the --- DescribeDBParameterGroups action. +-- < DeleteDBParameterGroup> action, and as a response element in the +-- < DescribeDBParameterGroups> action. -- -- /See:/ 'dbParameterGroup' smart constructor. data DBParameterGroup = DBParameterGroup' @@ -1547,8 +1572,10 @@ (x .@? "DBParameterGroupName") <*> (x .@? "Description") +instance Hashable DBParameterGroup + -- | Contains the result of a successful invocation of the --- ModifyDBParameterGroup or ResetDBParameterGroup action. +-- < ModifyDBParameterGroup> or < ResetDBParameterGroup> action. -- -- /See:/ 'dbParameterGroupNameMessage' smart constructor. newtype DBParameterGroupNameMessage = DBParameterGroupNameMessage' @@ -1576,16 +1603,18 @@ = DBParameterGroupNameMessage' <$> (x .@? "DBParameterGroupName") +instance Hashable DBParameterGroupNameMessage + -- | The status of the DB parameter group. -- -- This data type is used as a response element in the following actions: -- --- - CreateDBInstance --- - CreateDBInstanceReadReplica --- - DeleteDBInstance --- - ModifyDBInstance --- - RebootDBInstance --- - RestoreDBInstanceFromDBSnapshot +-- - < CreateDBInstance> +-- - < CreateDBInstanceReadReplica> +-- - < DeleteDBInstance> +-- - < ModifyDBInstance> +-- - < RebootDBInstance> +-- - < RestoreDBInstanceFromDBSnapshot> -- -- /See:/ 'dbParameterGroupStatus' smart constructor. data DBParameterGroupStatus = DBParameterGroupStatus' @@ -1622,15 +1651,17 @@ (x .@? "DBParameterGroupName") <*> (x .@? "ParameterApplyStatus") +instance Hashable DBParameterGroupStatus + -- | Contains the result of a successful invocation of the following actions: -- --- - DescribeDBSecurityGroups --- - AuthorizeDBSecurityGroupIngress --- - CreateDBSecurityGroup --- - RevokeDBSecurityGroupIngress +-- - < DescribeDBSecurityGroups> +-- - < AuthorizeDBSecurityGroupIngress> +-- - < CreateDBSecurityGroup> +-- - < RevokeDBSecurityGroupIngress> -- -- This data type is used as a response element in the --- DescribeDBSecurityGroups action. +-- < DescribeDBSecurityGroups> action. -- -- /See:/ 'dbSecurityGroup' smart constructor. data DBSecurityGroup = DBSecurityGroup' @@ -1677,7 +1708,7 @@ dbsgOwnerId :: Lens' DBSecurityGroup (Maybe Text) dbsgOwnerId = lens _dbsgOwnerId (\ s a -> s{_dbsgOwnerId = a}); --- | Contains a list of IPRange elements. +-- | Contains a list of < IPRange> elements. dbsgIPRanges :: Lens' DBSecurityGroup [IPRange] dbsgIPRanges = lens _dbsgIPRanges (\ s a -> s{_dbsgIPRanges = a}) . _Default . _Coerce; @@ -1685,7 +1716,7 @@ dbsgDBSecurityGroupName :: Lens' DBSecurityGroup (Maybe Text) dbsgDBSecurityGroupName = lens _dbsgDBSecurityGroupName (\ s a -> s{_dbsgDBSecurityGroupName = a}); --- | Contains a list of EC2SecurityGroup elements. +-- | Contains a list of < EC2SecurityGroup> elements. dbsgEC2SecurityGroups :: Lens' DBSecurityGroup [EC2SecurityGroup] dbsgEC2SecurityGroups = lens _dbsgEC2SecurityGroups (\ s a -> s{_dbsgEC2SecurityGroups = a}) . _Default . _Coerce; @@ -1705,12 +1736,14 @@ may (parseXMLList "EC2SecurityGroup")) <*> (x .@? "DBSecurityGroupDescription") +instance Hashable DBSecurityGroup + -- | This data type is used as a response element in the following actions: -- --- - ModifyDBInstance --- - RebootDBInstance --- - RestoreDBInstanceFromDBSnapshot --- - RestoreDBInstanceToPointInTime +-- - < ModifyDBInstance> +-- - < RebootDBInstance> +-- - < RestoreDBInstanceFromDBSnapshot> +-- - < RestoreDBInstanceToPointInTime> -- -- /See:/ 'dbSecurityGroupMembership' smart constructor. data DBSecurityGroupMembership = DBSecurityGroupMembership' @@ -1746,13 +1779,15 @@ = DBSecurityGroupMembership' <$> (x .@? "Status") <*> (x .@? "DBSecurityGroupName") +instance Hashable DBSecurityGroupMembership + -- | Contains the result of a successful invocation of the following actions: -- --- - CreateDBSnapshot --- - DeleteDBSnapshot +-- - < CreateDBSnapshot> +-- - < DeleteDBSnapshot> -- --- This data type is used as a response element in the DescribeDBSnapshots --- action. +-- This data type is used as a response element in the +-- < DescribeDBSnapshots> action. -- -- /See:/ 'dbSnapshot' smart constructor. data DBSnapshot = DBSnapshot' @@ -1986,11 +2021,13 @@ <*> (x .@? "Port") <*> (x .@? "StorageType") +instance Hashable DBSnapshot + -- | Contains the name and values of a manual DB snapshot attribute -- -- Manual DB snapshot attributes are used to authorize other AWS accounts -- to restore a manual DB snapshot. For more information, see the --- ModifyDBSnapshotAttribute API. +-- < ModifyDBSnapshotAttribute> API. -- -- /See:/ 'dbSnapshotAttribute' smart constructor. data DBSnapshotAttribute = DBSnapshotAttribute' @@ -2037,12 +2074,14 @@ may (parseXMLList "AttributeValue")) <*> (x .@? "AttributeName") +instance Hashable DBSnapshotAttribute + -- | Contains the results of a successful call to the --- DescribeDBSnapshotAttributes API. +-- < DescribeDBSnapshotAttributes> API. -- -- Manual DB snapshot attributes are used to authorize other AWS accounts -- to copy or restore a manual DB snapshot. For more information, see the --- ModifyDBSnapshotAttribute API. +-- < ModifyDBSnapshotAttribute> API. -- -- /See:/ 'dbSnapshotAttributesResult' smart constructor. data DBSnapshotAttributesResult = DBSnapshotAttributesResult' @@ -2080,15 +2119,17 @@ (x .@? "DBSnapshotAttributes" .!@ mempty >>= may (parseXMLList "DBSnapshotAttribute")) +instance Hashable DBSnapshotAttributesResult + -- | Contains the result of a successful invocation of the following actions: -- --- - CreateDBSubnetGroup --- - ModifyDBSubnetGroup --- - DescribeDBSubnetGroups --- - DeleteDBSubnetGroup +-- - < CreateDBSubnetGroup> +-- - < ModifyDBSubnetGroup> +-- - < DescribeDBSubnetGroups> +-- - < DeleteDBSubnetGroup> -- -- This data type is used as a response element in the --- DescribeDBSubnetGroups action. +-- < DescribeDBSubnetGroups> action. -- -- /See:/ 'dbSubnetGroup' smart constructor. data DBSubnetGroup = DBSubnetGroup' @@ -2123,7 +2164,7 @@ , _dsgSubnetGroupStatus = Nothing } --- | Specifies the name of the DB subnet group. +-- | The name of the DB subnet group. dsgDBSubnetGroupName :: Lens' DBSubnetGroup (Maybe Text) dsgDBSubnetGroupName = lens _dsgDBSubnetGroupName (\ s a -> s{_dsgDBSubnetGroupName = a}); @@ -2131,7 +2172,7 @@ dsgVPCId :: Lens' DBSubnetGroup (Maybe Text) dsgVPCId = lens _dsgVPCId (\ s a -> s{_dsgVPCId = a}); --- | Contains a list of Subnet elements. +-- | Contains a list of < Subnet> elements. dsgSubnets :: Lens' DBSubnetGroup [Subnet] dsgSubnets = lens _dsgSubnets (\ s a -> s{_dsgSubnets = a}) . _Default . _Coerce; @@ -2152,7 +2193,9 @@ <*> (x .@? "DBSubnetGroupDescription") <*> (x .@? "SubnetGroupStatus") --- | This data type is used as a response element to DescribeDBLogFiles. +instance Hashable DBSubnetGroup + +-- | This data type is used as a response element to < DescribeDBLogFiles>. -- -- /See:/ 'describeDBLogFilesDetails' smart constructor. data DescribeDBLogFilesDetails = DescribeDBLogFilesDetails' @@ -2197,11 +2240,13 @@ (x .@? "LastWritten") <*> (x .@? "Size") <*> (x .@? "LogFileName") +instance Hashable DescribeDBLogFilesDetails + -- | This data type is used as a response element in the following actions: -- --- - AuthorizeDBSecurityGroupIngress --- - DescribeDBSecurityGroups --- - RevokeDBSecurityGroupIngress +-- - < AuthorizeDBSecurityGroupIngress> +-- - < DescribeDBSecurityGroups> +-- - < RevokeDBSecurityGroupIngress> -- -- /See:/ 'ec2SecurityGroup' smart constructor. data EC2SecurityGroup = EC2SecurityGroup' @@ -2258,11 +2303,13 @@ <*> (x .@? "EC2SecurityGroupName") <*> (x .@? "EC2SecurityGroupId") +instance Hashable EC2SecurityGroup + -- | This data type is used as a response element in the following actions: -- --- - CreateDBInstance --- - DescribeDBInstances --- - DeleteDBInstance +-- - < CreateDBInstance> +-- - < DescribeDBInstances> +-- - < DeleteDBInstance> -- -- /See:/ 'endpoint' smart constructor. data Endpoint = Endpoint' @@ -2308,8 +2355,10 @@ (x .@? "HostedZoneId") <*> (x .@? "Address") <*> (x .@? "Port") +instance Hashable Endpoint + -- | Contains the result of a successful invocation of the --- DescribeEngineDefaultParameters action. +-- < DescribeEngineDefaultParameters> action. -- -- /See:/ 'engineDefaults' smart constructor. data EngineDefaults = EngineDefaults' @@ -2359,7 +2408,9 @@ (x .@? "Parameters" .!@ mempty >>= may (parseXMLList "Parameter")) --- | This data type is used as a response element in the DescribeEvents +instance Hashable EngineDefaults + +-- | This data type is used as a response element in the < DescribeEvents> -- action. -- -- /See:/ 'event' smart constructor. @@ -2425,8 +2476,10 @@ may (parseXMLList "EventCategory")) <*> (x .@? "Message") +instance Hashable Event + -- | Contains the results of a successful invocation of the --- DescribeEventCategories action. +-- < DescribeEventCategories> action. -- -- /See:/ 'eventCategoriesMap' smart constructor. data EventCategoriesMap = EventCategoriesMap' @@ -2464,8 +2517,10 @@ (x .@? "EventCategories" .!@ mempty >>= may (parseXMLList "EventCategory")) +instance Hashable EventCategoriesMap + -- | Contains the results of a successful invocation of the --- DescribeEventSubscriptions action. +-- < DescribeEventSubscriptions> action. -- -- /See:/ 'eventSubscription' smart constructor. data EventSubscription = EventSubscription' @@ -2579,6 +2634,8 @@ (x .@? "SourceIdsList" .!@ mempty >>= may (parseXMLList "SourceId")) +instance Hashable EventSubscription + -- | /See:/ 'filter'' smart constructor. data Filter = Filter' { _fName :: !Text @@ -2609,6 +2666,8 @@ fValues :: Lens' Filter [Text] fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Coerce; +instance Hashable Filter + instance ToQuery Filter where toQuery Filter'{..} = mconcat @@ -2616,7 +2675,7 @@ "Values" =: toQueryList "Value" _fValues] -- | This data type is used as a response element in the --- DescribeDBSecurityGroups action. +-- < DescribeDBSecurityGroups> action. -- -- /See:/ 'ipRange' smart constructor. data IPRange = IPRange' @@ -2652,6 +2711,8 @@ parseXML x = IPRange' <$> (x .@? "Status") <*> (x .@? "CIDRIP") +instance Hashable IPRange + -- | Option details. -- -- /See:/ 'option' smart constructor. @@ -2750,6 +2811,8 @@ may (parseXMLList "DBSecurityGroup")) <*> (x .@? "Port") +instance Hashable Option + -- | A list of all available options -- -- /See:/ 'optionConfiguration' smart constructor. @@ -2806,6 +2869,8 @@ ocOptionName :: Lens' OptionConfiguration Text ocOptionName = lens _ocOptionName (\ s a -> s{_ocOptionName = a}); +instance Hashable OptionConfiguration + instance ToQuery OptionConfiguration where toQuery OptionConfiguration'{..} = mconcat @@ -2913,6 +2978,8 @@ may (parseXMLList "Option")) <*> (x .@? "OptionGroupName") +instance Hashable OptionGroup + -- | Provides information on the option groups the DB instance is a member -- of. -- @@ -2937,8 +3004,10 @@ , _ogmOptionGroupName = Nothing } --- | The status of the DB instance\'s option group membership (e.g. in-sync, --- pending, pending-maintenance, applying). +-- | The status of the DB instance\'s option group membership. Valid values +-- are: 'in-sync', 'pending-apply', 'pending-removal', +-- 'pending-maintenance-apply', 'pending-maintenance-removal', 'applying', +-- 'removing', and 'failed'. ogmStatus :: Lens' OptionGroupMembership (Maybe Text) ogmStatus = lens _ogmStatus (\ s a -> s{_ogmStatus = a}); @@ -2951,6 +3020,8 @@ = OptionGroupMembership' <$> (x .@? "Status") <*> (x .@? "OptionGroupName") +instance Hashable OptionGroupMembership + -- | Available option. -- -- /See:/ 'optionGroupOption' smart constructor. @@ -3080,6 +3151,8 @@ (x .@? "OptionsDependedOn" .!@ mempty >>= may (parseXMLList "OptionName")) +instance Hashable OptionGroupOption + -- | Option group option settings are used to display settings available for -- each option with their default values and other information. These -- values are used with the DescribeOptionGroupOptions action. @@ -3155,6 +3228,8 @@ <*> (x .@? "SettingDescription") <*> (x .@? "AllowedValues") +instance Hashable OptionGroupOptionSetting + -- | Option settings are the actual settings being applied or configured for -- that option. It is used when you modify an option group or describe -- option groups. For example, the NATIVE_NETWORK_ENCRYPTION option has a @@ -3259,6 +3334,8 @@ <*> (x .@? "AllowedValues") <*> (x .@? "Description") +instance Hashable OptionSetting + instance ToQuery OptionSetting where toQuery OptionSetting'{..} = mconcat @@ -3273,7 +3350,7 @@ -- | Contains a list of available options for a DB instance -- -- This data type is used as a response element in the --- DescribeOrderableDBInstanceOptions action. +-- < DescribeOrderableDBInstanceOptions> action. -- -- /See:/ 'orderableDBInstanceOption' smart constructor. data OrderableDBInstanceOption = OrderableDBInstanceOption' @@ -3402,11 +3479,13 @@ <*> (x .@? "SupportsEnhancedMonitoring") <*> (x .@? "StorageType") +instance Hashable OrderableDBInstanceOption + -- | This data type is used as a request parameter in the --- ModifyDBParameterGroup and ResetDBParameterGroup actions. +-- < ModifyDBParameterGroup> and < ResetDBParameterGroup> actions. -- -- This data type is used as a response element in the --- DescribeEngineDefaultParameters and DescribeDBParameters actions. +-- < DescribeEngineDefaultParameters> and < DescribeDBParameters> actions. -- -- /See:/ 'parameter' smart constructor. data Parameter = Parameter' @@ -3516,6 +3595,8 @@ <*> (x .@? "ParameterName") <*> (x .@? "Description") +instance Hashable Parameter + instance ToQuery Parameter where toQuery Parameter'{..} = mconcat @@ -3599,10 +3680,10 @@ -- | The effective date when the pending maintenance action will be applied -- to the resource. This date takes into account opt-in requests received --- from the ApplyPendingMaintenanceAction API, the 'AutoAppliedAfterDate', --- and the 'ForcedApplyDate'. This value is blank if an opt-in request has --- not been received and nothing has been specified as --- 'AutoAppliedAfterDate' or 'ForcedApplyDate'. +-- from the < ApplyPendingMaintenanceAction> API, the +-- 'AutoAppliedAfterDate', and the 'ForcedApplyDate'. This value is blank +-- if an opt-in request has not been received and nothing has been +-- specified as 'AutoAppliedAfterDate' or 'ForcedApplyDate'. pmaCurrentApplyDate :: Lens' PendingMaintenanceAction (Maybe UTCTime) pmaCurrentApplyDate = lens _pmaCurrentApplyDate (\ s a -> s{_pmaCurrentApplyDate = a}) . mapping _Time; @@ -3615,7 +3696,9 @@ <*> (x .@? "ForcedApplyDate") <*> (x .@? "CurrentApplyDate") --- | This data type is used as a response element in the ModifyDBInstance +instance Hashable PendingMaintenanceAction + +-- | This data type is used as a response element in the < ModifyDBInstance> -- action. -- -- /See:/ 'pendingModifiedValues' smart constructor. @@ -3741,9 +3824,11 @@ <*> (x .@? "Port") <*> (x .@? "StorageType") +instance Hashable PendingModifiedValues + -- | This data type is used as a response element in the --- DescribeReservedDBInstances and DescribeReservedDBInstancesOfferings --- actions. +-- < DescribeReservedDBInstances> and +-- < DescribeReservedDBInstancesOfferings> actions. -- -- /See:/ 'recurringCharge' smart constructor. data RecurringCharge = RecurringCharge' @@ -3780,9 +3865,11 @@ (x .@? "RecurringChargeFrequency") <*> (x .@? "RecurringChargeAmount") +instance Hashable RecurringCharge + -- | This data type is used as a response element in the --- DescribeReservedDBInstances and PurchaseReservedDBInstancesOffering --- actions. +-- < DescribeReservedDBInstances> and +-- < PurchaseReservedDBInstancesOffering> actions. -- -- /See:/ 'reservedDBInstance' smart constructor. data ReservedDBInstance = ReservedDBInstance' @@ -3928,8 +4015,10 @@ <*> (x .@? "FixedPrice") <*> (x .@? "Duration") +instance Hashable ReservedDBInstance + -- | This data type is used as a response element in the --- DescribeReservedDBInstancesOfferings action. +-- < DescribeReservedDBInstancesOfferings> action. -- -- /See:/ 'reservedDBInstancesOffering' smart constructor. data ReservedDBInstancesOffering = ReservedDBInstancesOffering' @@ -4040,6 +4129,8 @@ <*> (x .@? "FixedPrice") <*> (x .@? "Duration") +instance Hashable ReservedDBInstancesOffering + -- | Describes the pending maintenance actions for a resource. -- -- /See:/ 'resourcePendingMaintenanceActions' smart constructor. @@ -4080,8 +4171,10 @@ >>= may (parseXMLList "PendingMaintenanceAction")) <*> (x .@? "ResourceIdentifier") +instance Hashable ResourcePendingMaintenanceActions + -- | This data type is used as a response element in the --- DescribeDBSubnetGroups action. +-- < DescribeDBSubnetGroups> action. -- -- /See:/ 'subnet' smart constructor. data Subnet = Subnet' @@ -4126,6 +4219,8 @@ (x .@? "SubnetStatus") <*> (x .@? "SubnetIdentifier") <*> (x .@? "SubnetAvailabilityZone") +instance Hashable Subnet + -- | Metadata assigned to an Amazon RDS resource consisting of a key-value -- pair. -- @@ -4170,6 +4265,8 @@ parseXML x = Tag' <$> (x .@? "Value") <*> (x .@? "Key") +instance Hashable Tag + instance ToQuery Tag where toQuery Tag'{..} = mconcat ["Value" =: _tagValue, "Key" =: _tagKey] @@ -4242,6 +4339,8 @@ <*> (x .@? "AutoUpgrade") <*> (x .@? "Description") +instance Hashable UpgradeTarget + -- | This data type is used as a response element for queries on VPC security -- group membership. -- @@ -4278,3 +4377,5 @@ parseXML x = VPCSecurityGroupMembership' <$> (x .@? "Status") <*> (x .@? "VpcSecurityGroupId") + +instance Hashable VPCSecurityGroupMembership diff --git a/gen/Network/AWS/RDS/Types/Sum.hs b/gen/Network/AWS/RDS/Types/Sum.hs --- a/gen/Network/AWS/RDS/Types/Sum.hs +++ b/gen/Network/AWS/RDS/Types/Sum.hs @@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.RDS.Types.Sum --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated diff --git a/gen/Network/AWS/RDS/Waiters.hs b/gen/Network/AWS/RDS/Waiters.hs --- a/gen/Network/AWS/RDS/Waiters.hs +++ b/gen/Network/AWS/RDS/Waiters.hs @@ -7,7 +7,7 @@ -- | -- Module : Network.AWS.RDS.Waiters --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated diff --git a/test/Main.hs b/test/Main.hs --- a/test/Main.hs +++ b/test/Main.hs @@ -2,7 +2,7 @@ -- | -- Module : Main --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated diff --git a/test/Test/AWS/Gen/RDS.hs b/test/Test/AWS/Gen/RDS.hs --- a/test/Test/AWS/Gen/RDS.hs +++ b/test/Test/AWS/Gen/RDS.hs @@ -5,7 +5,7 @@ -- | -- Module : Test.AWS.Gen.RDS --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -900,544 +900,544 @@ testDescribeDBClusterParameterGroupsResponse = res "DescribeDBClusterParameterGroupsResponse" "fixture/DescribeDBClusterParameterGroupsResponse.proto" - rDS + rds (Proxy :: Proxy DescribeDBClusterParameterGroups) testPromoteReadReplicaResponse :: PromoteReadReplicaResponse -> TestTree testPromoteReadReplicaResponse = res "PromoteReadReplicaResponse" "fixture/PromoteReadReplicaResponse.proto" - rDS + rds (Proxy :: Proxy PromoteReadReplica) testDescribeDBEngineVersionsResponse :: DescribeDBEngineVersionsResponse -> TestTree testDescribeDBEngineVersionsResponse = res "DescribeDBEngineVersionsResponse" "fixture/DescribeDBEngineVersionsResponse.proto" - rDS + rds (Proxy :: Proxy DescribeDBEngineVersions) testCopyDBSnapshotResponse :: CopyDBSnapshotResponse -> TestTree testCopyDBSnapshotResponse = res "CopyDBSnapshotResponse" "fixture/CopyDBSnapshotResponse.proto" - rDS + rds (Proxy :: Proxy CopyDBSnapshot) testAddSourceIdentifierToSubscriptionResponse :: AddSourceIdentifierToSubscriptionResponse -> TestTree testAddSourceIdentifierToSubscriptionResponse = res "AddSourceIdentifierToSubscriptionResponse" "fixture/AddSourceIdentifierToSubscriptionResponse.proto" - rDS + rds (Proxy :: Proxy AddSourceIdentifierToSubscription) testModifyDBInstanceResponse :: ModifyDBInstanceResponse -> TestTree testModifyDBInstanceResponse = res "ModifyDBInstanceResponse" "fixture/ModifyDBInstanceResponse.proto" - rDS + rds (Proxy :: Proxy ModifyDBInstance) testModifyEventSubscriptionResponse :: ModifyEventSubscriptionResponse -> TestTree testModifyEventSubscriptionResponse = res "ModifyEventSubscriptionResponse" "fixture/ModifyEventSubscriptionResponse.proto" - rDS + rds (Proxy :: Proxy ModifyEventSubscription) testResetDBClusterParameterGroupResponse :: DBClusterParameterGroupNameMessage -> TestTree testResetDBClusterParameterGroupResponse = res "ResetDBClusterParameterGroupResponse" "fixture/ResetDBClusterParameterGroupResponse.proto" - rDS + rds (Proxy :: Proxy ResetDBClusterParameterGroup) testDescribeEventsResponse :: DescribeEventsResponse -> TestTree testDescribeEventsResponse = res "DescribeEventsResponse" "fixture/DescribeEventsResponse.proto" - rDS + rds (Proxy :: Proxy DescribeEvents) testDescribeEngineDefaultParametersResponse :: DescribeEngineDefaultParametersResponse -> TestTree testDescribeEngineDefaultParametersResponse = res "DescribeEngineDefaultParametersResponse" "fixture/DescribeEngineDefaultParametersResponse.proto" - rDS + rds (Proxy :: Proxy DescribeEngineDefaultParameters) testDescribeOptionGroupsResponse :: DescribeOptionGroupsResponse -> TestTree testDescribeOptionGroupsResponse = res "DescribeOptionGroupsResponse" "fixture/DescribeOptionGroupsResponse.proto" - rDS + rds (Proxy :: Proxy DescribeOptionGroups) testDescribeDBLogFilesResponse :: DescribeDBLogFilesResponse -> TestTree testDescribeDBLogFilesResponse = res "DescribeDBLogFilesResponse" "fixture/DescribeDBLogFilesResponse.proto" - rDS + rds (Proxy :: Proxy DescribeDBLogFiles) testDescribeDBClustersResponse :: DescribeDBClustersResponse -> TestTree testDescribeDBClustersResponse = res "DescribeDBClustersResponse" "fixture/DescribeDBClustersResponse.proto" - rDS + rds (Proxy :: Proxy DescribeDBClusters) testModifyDBSubnetGroupResponse :: ModifyDBSubnetGroupResponse -> TestTree testModifyDBSubnetGroupResponse = res "ModifyDBSubnetGroupResponse" "fixture/ModifyDBSubnetGroupResponse.proto" - rDS + rds (Proxy :: Proxy ModifyDBSubnetGroup) testListTagsForResourceResponse :: ListTagsForResourceResponse -> TestTree testListTagsForResourceResponse = res "ListTagsForResourceResponse" "fixture/ListTagsForResourceResponse.proto" - rDS + rds (Proxy :: Proxy ListTagsForResource) testDeleteOptionGroupResponse :: DeleteOptionGroupResponse -> TestTree testDeleteOptionGroupResponse = res "DeleteOptionGroupResponse" "fixture/DeleteOptionGroupResponse.proto" - rDS + rds (Proxy :: Proxy DeleteOptionGroup) testDeleteDBClusterResponse :: DeleteDBClusterResponse -> TestTree testDeleteDBClusterResponse = res "DeleteDBClusterResponse" "fixture/DeleteDBClusterResponse.proto" - rDS + rds (Proxy :: Proxy DeleteDBCluster) testDescribeReservedDBInstancesResponse :: DescribeReservedDBInstancesResponse -> TestTree testDescribeReservedDBInstancesResponse = res "DescribeReservedDBInstancesResponse" "fixture/DescribeReservedDBInstancesResponse.proto" - rDS + rds (Proxy :: Proxy DescribeReservedDBInstances) testCopyDBParameterGroupResponse :: CopyDBParameterGroupResponse -> TestTree testCopyDBParameterGroupResponse = res "CopyDBParameterGroupResponse" "fixture/CopyDBParameterGroupResponse.proto" - rDS + rds (Proxy :: Proxy CopyDBParameterGroup) testRemoveSourceIdentifierFromSubscriptionResponse :: RemoveSourceIdentifierFromSubscriptionResponse -> TestTree testRemoveSourceIdentifierFromSubscriptionResponse = res "RemoveSourceIdentifierFromSubscriptionResponse" "fixture/RemoveSourceIdentifierFromSubscriptionResponse.proto" - rDS + rds (Proxy :: Proxy RemoveSourceIdentifierFromSubscription) testDescribeEngineDefaultClusterParametersResponse :: DescribeEngineDefaultClusterParametersResponse -> TestTree testDescribeEngineDefaultClusterParametersResponse = res "DescribeEngineDefaultClusterParametersResponse" "fixture/DescribeEngineDefaultClusterParametersResponse.proto" - rDS + rds (Proxy :: Proxy DescribeEngineDefaultClusterParameters) testDescribeDBSnapshotAttributesResponse :: DescribeDBSnapshotAttributesResponse -> TestTree testDescribeDBSnapshotAttributesResponse = res "DescribeDBSnapshotAttributesResponse" "fixture/DescribeDBSnapshotAttributesResponse.proto" - rDS + rds (Proxy :: Proxy DescribeDBSnapshotAttributes) testRemoveTagsFromResourceResponse :: RemoveTagsFromResourceResponse -> TestTree testRemoveTagsFromResourceResponse = res "RemoveTagsFromResourceResponse" "fixture/RemoveTagsFromResourceResponse.proto" - rDS + rds (Proxy :: Proxy RemoveTagsFromResource) testRestoreDBInstanceFromDBSnapshotResponse :: RestoreDBInstanceFromDBSnapshotResponse -> TestTree testRestoreDBInstanceFromDBSnapshotResponse = res "RestoreDBInstanceFromDBSnapshotResponse" "fixture/RestoreDBInstanceFromDBSnapshotResponse.proto" - rDS + rds (Proxy :: Proxy RestoreDBInstanceFromDBSnapshot) testCreateEventSubscriptionResponse :: CreateEventSubscriptionResponse -> TestTree testCreateEventSubscriptionResponse = res "CreateEventSubscriptionResponse" "fixture/CreateEventSubscriptionResponse.proto" - rDS + rds (Proxy :: Proxy CreateEventSubscription) testPurchaseReservedDBInstancesOfferingResponse :: PurchaseReservedDBInstancesOfferingResponse -> TestTree testPurchaseReservedDBInstancesOfferingResponse = res "PurchaseReservedDBInstancesOfferingResponse" "fixture/PurchaseReservedDBInstancesOfferingResponse.proto" - rDS + rds (Proxy :: Proxy PurchaseReservedDBInstancesOffering) testCreateDBInstanceResponse :: CreateDBInstanceResponse -> TestTree testCreateDBInstanceResponse = res "CreateDBInstanceResponse" "fixture/CreateDBInstanceResponse.proto" - rDS + rds (Proxy :: Proxy CreateDBInstance) testDeleteDBClusterParameterGroupResponse :: DeleteDBClusterParameterGroupResponse -> TestTree testDeleteDBClusterParameterGroupResponse = res "DeleteDBClusterParameterGroupResponse" "fixture/DeleteDBClusterParameterGroupResponse.proto" - rDS + rds (Proxy :: Proxy DeleteDBClusterParameterGroup) testDescribeCertificatesResponse :: DescribeCertificatesResponse -> TestTree testDescribeCertificatesResponse = res "DescribeCertificatesResponse" "fixture/DescribeCertificatesResponse.proto" - rDS + rds (Proxy :: Proxy DescribeCertificates) testAuthorizeDBSecurityGroupIngressResponse :: AuthorizeDBSecurityGroupIngressResponse -> TestTree testAuthorizeDBSecurityGroupIngressResponse = res "AuthorizeDBSecurityGroupIngressResponse" "fixture/AuthorizeDBSecurityGroupIngressResponse.proto" - rDS + rds (Proxy :: Proxy AuthorizeDBSecurityGroupIngress) testRestoreDBClusterFromSnapshotResponse :: RestoreDBClusterFromSnapshotResponse -> TestTree testRestoreDBClusterFromSnapshotResponse = res "RestoreDBClusterFromSnapshotResponse" "fixture/RestoreDBClusterFromSnapshotResponse.proto" - rDS + rds (Proxy :: Proxy RestoreDBClusterFromSnapshot) testDescribeOrderableDBInstanceOptionsResponse :: DescribeOrderableDBInstanceOptionsResponse -> TestTree testDescribeOrderableDBInstanceOptionsResponse = res "DescribeOrderableDBInstanceOptionsResponse" "fixture/DescribeOrderableDBInstanceOptionsResponse.proto" - rDS + rds (Proxy :: Proxy DescribeOrderableDBInstanceOptions) testCreateDBClusterParameterGroupResponse :: CreateDBClusterParameterGroupResponse -> TestTree testCreateDBClusterParameterGroupResponse = res "CreateDBClusterParameterGroupResponse" "fixture/CreateDBClusterParameterGroupResponse.proto" - rDS + rds (Proxy :: Proxy CreateDBClusterParameterGroup) testCreateDBSnapshotResponse :: CreateDBSnapshotResponse -> TestTree testCreateDBSnapshotResponse = res "CreateDBSnapshotResponse" "fixture/CreateDBSnapshotResponse.proto" - rDS + rds (Proxy :: Proxy CreateDBSnapshot) testDeleteEventSubscriptionResponse :: DeleteEventSubscriptionResponse -> TestTree testDeleteEventSubscriptionResponse = res "DeleteEventSubscriptionResponse" "fixture/DeleteEventSubscriptionResponse.proto" - rDS + rds (Proxy :: Proxy DeleteEventSubscription) testDescribeDBParameterGroupsResponse :: DescribeDBParameterGroupsResponse -> TestTree testDescribeDBParameterGroupsResponse = res "DescribeDBParameterGroupsResponse" "fixture/DescribeDBParameterGroupsResponse.proto" - rDS + rds (Proxy :: Proxy DescribeDBParameterGroups) testModifyDBSnapshotAttributeResponse :: ModifyDBSnapshotAttributeResponse -> TestTree testModifyDBSnapshotAttributeResponse = res "ModifyDBSnapshotAttributeResponse" "fixture/ModifyDBSnapshotAttributeResponse.proto" - rDS + rds (Proxy :: Proxy ModifyDBSnapshotAttribute) testDeleteDBClusterSnapshotResponse :: DeleteDBClusterSnapshotResponse -> TestTree testDeleteDBClusterSnapshotResponse = res "DeleteDBClusterSnapshotResponse" "fixture/DeleteDBClusterSnapshotResponse.proto" - rDS + rds (Proxy :: Proxy DeleteDBClusterSnapshot) testDescribeOptionGroupOptionsResponse :: DescribeOptionGroupOptionsResponse -> TestTree testDescribeOptionGroupOptionsResponse = res "DescribeOptionGroupOptionsResponse" "fixture/DescribeOptionGroupOptionsResponse.proto" - rDS + rds (Proxy :: Proxy DescribeOptionGroupOptions) testDescribeEventSubscriptionsResponse :: DescribeEventSubscriptionsResponse -> TestTree testDescribeEventSubscriptionsResponse = res "DescribeEventSubscriptionsResponse" "fixture/DescribeEventSubscriptionsResponse.proto" - rDS + rds (Proxy :: Proxy DescribeEventSubscriptions) testAddTagsToResourceResponse :: AddTagsToResourceResponse -> TestTree testAddTagsToResourceResponse = res "AddTagsToResourceResponse" "fixture/AddTagsToResourceResponse.proto" - rDS + rds (Proxy :: Proxy AddTagsToResource) testDescribeDBParametersResponse :: DescribeDBParametersResponse -> TestTree testDescribeDBParametersResponse = res "DescribeDBParametersResponse" "fixture/DescribeDBParametersResponse.proto" - rDS + rds (Proxy :: Proxy DescribeDBParameters) testCreateDBClusterSnapshotResponse :: CreateDBClusterSnapshotResponse -> TestTree testCreateDBClusterSnapshotResponse = res "CreateDBClusterSnapshotResponse" "fixture/CreateDBClusterSnapshotResponse.proto" - rDS + rds (Proxy :: Proxy CreateDBClusterSnapshot) testDescribeDBSnapshotsResponse :: DescribeDBSnapshotsResponse -> TestTree testDescribeDBSnapshotsResponse = res "DescribeDBSnapshotsResponse" "fixture/DescribeDBSnapshotsResponse.proto" - rDS + rds (Proxy :: Proxy DescribeDBSnapshots) testDescribeDBSubnetGroupsResponse :: DescribeDBSubnetGroupsResponse -> TestTree testDescribeDBSubnetGroupsResponse = res "DescribeDBSubnetGroupsResponse" "fixture/DescribeDBSubnetGroupsResponse.proto" - rDS + rds (Proxy :: Proxy DescribeDBSubnetGroups) testModifyOptionGroupResponse :: ModifyOptionGroupResponse -> TestTree testModifyOptionGroupResponse = res "ModifyOptionGroupResponse" "fixture/ModifyOptionGroupResponse.proto" - rDS + rds (Proxy :: Proxy ModifyOptionGroup) testCreateDBParameterGroupResponse :: CreateDBParameterGroupResponse -> TestTree testCreateDBParameterGroupResponse = res "CreateDBParameterGroupResponse" "fixture/CreateDBParameterGroupResponse.proto" - rDS + rds (Proxy :: Proxy CreateDBParameterGroup) testModifyDBClusterResponse :: ModifyDBClusterResponse -> TestTree testModifyDBClusterResponse = res "ModifyDBClusterResponse" "fixture/ModifyDBClusterResponse.proto" - rDS + rds (Proxy :: Proxy ModifyDBCluster) testDescribeEventCategoriesResponse :: DescribeEventCategoriesResponse -> TestTree testDescribeEventCategoriesResponse = res "DescribeEventCategoriesResponse" "fixture/DescribeEventCategoriesResponse.proto" - rDS + rds (Proxy :: Proxy DescribeEventCategories) testModifyDBClusterParameterGroupResponse :: DBClusterParameterGroupNameMessage -> TestTree testModifyDBClusterParameterGroupResponse = res "ModifyDBClusterParameterGroupResponse" "fixture/ModifyDBClusterParameterGroupResponse.proto" - rDS + rds (Proxy :: Proxy ModifyDBClusterParameterGroup) testRestoreDBInstanceToPointInTimeResponse :: RestoreDBInstanceToPointInTimeResponse -> TestTree testRestoreDBInstanceToPointInTimeResponse = res "RestoreDBInstanceToPointInTimeResponse" "fixture/RestoreDBInstanceToPointInTimeResponse.proto" - rDS + rds (Proxy :: Proxy RestoreDBInstanceToPointInTime) testDescribePendingMaintenanceActionsResponse :: DescribePendingMaintenanceActionsResponse -> TestTree testDescribePendingMaintenanceActionsResponse = res "DescribePendingMaintenanceActionsResponse" "fixture/DescribePendingMaintenanceActionsResponse.proto" - rDS + rds (Proxy :: Proxy DescribePendingMaintenanceActions) testCopyDBClusterSnapshotResponse :: CopyDBClusterSnapshotResponse -> TestTree testCopyDBClusterSnapshotResponse = res "CopyDBClusterSnapshotResponse" "fixture/CopyDBClusterSnapshotResponse.proto" - rDS + rds (Proxy :: Proxy CopyDBClusterSnapshot) testResetDBParameterGroupResponse :: DBParameterGroupNameMessage -> TestTree testResetDBParameterGroupResponse = res "ResetDBParameterGroupResponse" "fixture/ResetDBParameterGroupResponse.proto" - rDS + rds (Proxy :: Proxy ResetDBParameterGroup) testCreateDBClusterResponse :: CreateDBClusterResponse -> TestTree testCreateDBClusterResponse = res "CreateDBClusterResponse" "fixture/CreateDBClusterResponse.proto" - rDS + rds (Proxy :: Proxy CreateDBCluster) testFailoverDBClusterResponse :: FailoverDBClusterResponse -> TestTree testFailoverDBClusterResponse = res "FailoverDBClusterResponse" "fixture/FailoverDBClusterResponse.proto" - rDS + rds (Proxy :: Proxy FailoverDBCluster) testRevokeDBSecurityGroupIngressResponse :: RevokeDBSecurityGroupIngressResponse -> TestTree testRevokeDBSecurityGroupIngressResponse = res "RevokeDBSecurityGroupIngressResponse" "fixture/RevokeDBSecurityGroupIngressResponse.proto" - rDS + rds (Proxy :: Proxy RevokeDBSecurityGroupIngress) testModifyDBParameterGroupResponse :: DBParameterGroupNameMessage -> TestTree testModifyDBParameterGroupResponse = res "ModifyDBParameterGroupResponse" "fixture/ModifyDBParameterGroupResponse.proto" - rDS + rds (Proxy :: Proxy ModifyDBParameterGroup) testApplyPendingMaintenanceActionResponse :: ApplyPendingMaintenanceActionResponse -> TestTree testApplyPendingMaintenanceActionResponse = res "ApplyPendingMaintenanceActionResponse" "fixture/ApplyPendingMaintenanceActionResponse.proto" - rDS + rds (Proxy :: Proxy ApplyPendingMaintenanceAction) testCreateOptionGroupResponse :: CreateOptionGroupResponse -> TestTree testCreateOptionGroupResponse = res "CreateOptionGroupResponse" "fixture/CreateOptionGroupResponse.proto" - rDS + rds (Proxy :: Proxy CreateOptionGroup) testDescribeAccountAttributesResponse :: DescribeAccountAttributesResponse -> TestTree testDescribeAccountAttributesResponse = res "DescribeAccountAttributesResponse" "fixture/DescribeAccountAttributesResponse.proto" - rDS + rds (Proxy :: Proxy DescribeAccountAttributes) testDeleteDBSnapshotResponse :: DeleteDBSnapshotResponse -> TestTree testDeleteDBSnapshotResponse = res "DeleteDBSnapshotResponse" "fixture/DeleteDBSnapshotResponse.proto" - rDS + rds (Proxy :: Proxy DeleteDBSnapshot) testDescribeDBClusterParametersResponse :: DescribeDBClusterParametersResponse -> TestTree testDescribeDBClusterParametersResponse = res "DescribeDBClusterParametersResponse" "fixture/DescribeDBClusterParametersResponse.proto" - rDS + rds (Proxy :: Proxy DescribeDBClusterParameters) testDeleteDBSubnetGroupResponse :: DeleteDBSubnetGroupResponse -> TestTree testDeleteDBSubnetGroupResponse = res "DeleteDBSubnetGroupResponse" "fixture/DeleteDBSubnetGroupResponse.proto" - rDS + rds (Proxy :: Proxy DeleteDBSubnetGroup) testCreateDBSecurityGroupResponse :: CreateDBSecurityGroupResponse -> TestTree testCreateDBSecurityGroupResponse = res "CreateDBSecurityGroupResponse" "fixture/CreateDBSecurityGroupResponse.proto" - rDS + rds (Proxy :: Proxy CreateDBSecurityGroup) testDescribeDBClusterSnapshotsResponse :: DescribeDBClusterSnapshotsResponse -> TestTree testDescribeDBClusterSnapshotsResponse = res "DescribeDBClusterSnapshotsResponse" "fixture/DescribeDBClusterSnapshotsResponse.proto" - rDS + rds (Proxy :: Proxy DescribeDBClusterSnapshots) testRebootDBInstanceResponse :: RebootDBInstanceResponse -> TestTree testRebootDBInstanceResponse = res "RebootDBInstanceResponse" "fixture/RebootDBInstanceResponse.proto" - rDS + rds (Proxy :: Proxy RebootDBInstance) testCreateDBSubnetGroupResponse :: CreateDBSubnetGroupResponse -> TestTree testCreateDBSubnetGroupResponse = res "CreateDBSubnetGroupResponse" "fixture/CreateDBSubnetGroupResponse.proto" - rDS + rds (Proxy :: Proxy CreateDBSubnetGroup) testDescribeReservedDBInstancesOfferingsResponse :: DescribeReservedDBInstancesOfferingsResponse -> TestTree testDescribeReservedDBInstancesOfferingsResponse = res "DescribeReservedDBInstancesOfferingsResponse" "fixture/DescribeReservedDBInstancesOfferingsResponse.proto" - rDS + rds (Proxy :: Proxy DescribeReservedDBInstancesOfferings) testDeleteDBSecurityGroupResponse :: DeleteDBSecurityGroupResponse -> TestTree testDeleteDBSecurityGroupResponse = res "DeleteDBSecurityGroupResponse" "fixture/DeleteDBSecurityGroupResponse.proto" - rDS + rds (Proxy :: Proxy DeleteDBSecurityGroup) testDeleteDBInstanceResponse :: DeleteDBInstanceResponse -> TestTree testDeleteDBInstanceResponse = res "DeleteDBInstanceResponse" "fixture/DeleteDBInstanceResponse.proto" - rDS + rds (Proxy :: Proxy DeleteDBInstance) testCreateDBInstanceReadReplicaResponse :: CreateDBInstanceReadReplicaResponse -> TestTree testCreateDBInstanceReadReplicaResponse = res "CreateDBInstanceReadReplicaResponse" "fixture/CreateDBInstanceReadReplicaResponse.proto" - rDS + rds (Proxy :: Proxy CreateDBInstanceReadReplica) testDeleteDBParameterGroupResponse :: DeleteDBParameterGroupResponse -> TestTree testDeleteDBParameterGroupResponse = res "DeleteDBParameterGroupResponse" "fixture/DeleteDBParameterGroupResponse.proto" - rDS + rds (Proxy :: Proxy DeleteDBParameterGroup) testDescribeDBSecurityGroupsResponse :: DescribeDBSecurityGroupsResponse -> TestTree testDescribeDBSecurityGroupsResponse = res "DescribeDBSecurityGroupsResponse" "fixture/DescribeDBSecurityGroupsResponse.proto" - rDS + rds (Proxy :: Proxy DescribeDBSecurityGroups) testCopyOptionGroupResponse :: CopyOptionGroupResponse -> TestTree testCopyOptionGroupResponse = res "CopyOptionGroupResponse" "fixture/CopyOptionGroupResponse.proto" - rDS + rds (Proxy :: Proxy CopyOptionGroup) testRestoreDBClusterToPointInTimeResponse :: RestoreDBClusterToPointInTimeResponse -> TestTree testRestoreDBClusterToPointInTimeResponse = res "RestoreDBClusterToPointInTimeResponse" "fixture/RestoreDBClusterToPointInTimeResponse.proto" - rDS + rds (Proxy :: Proxy RestoreDBClusterToPointInTime) testDescribeDBInstancesResponse :: DescribeDBInstancesResponse -> TestTree testDescribeDBInstancesResponse = res "DescribeDBInstancesResponse" "fixture/DescribeDBInstancesResponse.proto" - rDS + rds (Proxy :: Proxy DescribeDBInstances) testDownloadDBLogFilePortionResponse :: DownloadDBLogFilePortionResponse -> TestTree testDownloadDBLogFilePortionResponse = res "DownloadDBLogFilePortionResponse" "fixture/DownloadDBLogFilePortionResponse.proto" - rDS + rds (Proxy :: Proxy DownloadDBLogFilePortion) diff --git a/test/Test/AWS/RDS.hs b/test/Test/AWS/RDS.hs --- a/test/Test/AWS/RDS.hs +++ b/test/Test/AWS/RDS.hs @@ -2,7 +2,7 @@ {-# LANGUAGE TemplateHaskell #-} -- Module : Test.AWS.RDS --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or diff --git a/test/Test/AWS/RDS/Internal.hs b/test/Test/AWS/RDS/Internal.hs --- a/test/Test/AWS/RDS/Internal.hs +++ b/test/Test/AWS/RDS/Internal.hs @@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} -- Module : Test.AWS.RDS.Internal --- Copyright : (c) 2013-2015 Brendan Hay +-- Copyright : (c) 2013-2016 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or