diff --git a/LICENSE b/LICENSE --- a/LICENSE +++ b/LICENSE @@ -365,9 +365,3 @@ for such a notice. You may add additional accurate notices of copyright ownership. - -Exhibit B - "Incompatible With Secondary Licenses" Notice ---------------------------------------------------------- - - This Source Code Form is "Incompatible With Secondary Licenses", as - defined by the Mozilla Public License, v. 2.0. diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.3.2` +`1.3.3` ## Description 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.2 +version: 1.3.3 synopsis: Amazon Relational Database Service SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -152,7 +152,7 @@ , Network.AWS.RDS.Types.Sum build-depends: - amazonka-core == 1.3.2.* + amazonka-core == 1.3.3.* , base >= 4.7 && < 5 test-suite amazonka-rds-test @@ -172,9 +172,9 @@ , Test.AWS.RDS.Internal build-depends: - amazonka-core == 1.3.2.* - , amazonka-test == 1.3.2.* - , amazonka-rds == 1.3.2.* + amazonka-core == 1.3.3.* + , amazonka-test == 1.3.3.* + , amazonka-rds == 1.3.3.* , base , bytestring , lens 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 @@ -163,9 +163,6 @@ -- ** InstanceQuotaExceededFault , _InstanceQuotaExceededFault - -- ** DomainNotFoundFault - , _DomainNotFoundFault - -- ** DBParameterGroupNotFoundFault , _DBParameterGroupNotFoundFault @@ -232,9 +229,6 @@ -- ** ResourceNotFoundFault , _ResourceNotFoundFault - -- ** InsufficientDomainCapacityFault - , _InsufficientDomainCapacityFault - -- ** DBSubnetGroupNotFoundFault , _DBSubnetGroupNotFoundFault @@ -623,6 +617,7 @@ , devDBParameterGroupFamily , devSupportedCharacterSets , devDBEngineDescription + , devValidUpgradeTarget -- ** DBInstance , DBInstance @@ -666,7 +661,6 @@ , diPendingModifiedValues , diStorageType , diStatusInfos - , diDomainMemberships , diDBName -- ** DBInstanceStatusInfo @@ -754,13 +748,6 @@ , ddlfdSize , ddlfdLogFileName - -- ** DomainMembership - , DomainMembership - , domainMembership - , dmStatus - , dmDomain - , dmConnectivity - -- ** EC2SecurityGroup , EC2SecurityGroup , ec2SecurityGroup @@ -1008,6 +995,15 @@ , tag , tagValue , tagKey + + -- ** UpgradeTarget + , UpgradeTarget + , upgradeTarget + , utEngineVersion + , utIsMajorVersionUpgrade + , utEngine + , utAutoUpgrade + , utDescription -- ** VPCSecurityGroupMembership , VPCSecurityGroupMembership 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 @@ -80,7 +80,8 @@ , _cdsTargetDBSnapshotIdentifier = pTargetDBSnapshotIdentifier_ } --- | This property is not currently implemented. +-- | True to copy all tags from the source DB snapshot to the target DB +-- snapshot; otherwise false. The default is false. cdsCopyTags :: Lens' CopyDBSnapshot (Maybe Bool) cdsCopyTags = lens _cdsCopyTags (\ s a -> s{_cdsCopyTags = a}); 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 @@ -31,11 +31,7 @@ , CreateDBCluster -- * Request Lenses , cdcEngineVersion - , cdcDBClusterIdentifier - , cdcMasterUserPassword - , cdcMasterUsername , cdcDBSubnetGroupName - , cdcEngine , cdcPreferredMaintenanceWindow , cdcAvailabilityZones , cdcCharacterSetName @@ -47,6 +43,10 @@ , cdcOptionGroupName , cdcTags , cdcPort + , cdcDBClusterIdentifier + , cdcEngine + , cdcMasterUsername + , cdcMasterUserPassword -- * Destructuring the Response , createDBClusterResponse @@ -67,11 +67,7 @@ -- /See:/ 'createDBCluster' smart constructor. data CreateDBCluster = CreateDBCluster' { _cdcEngineVersion :: !(Maybe Text) - , _cdcDBClusterIdentifier :: !(Maybe Text) - , _cdcMasterUserPassword :: !(Maybe Text) - , _cdcMasterUsername :: !(Maybe Text) , _cdcDBSubnetGroupName :: !(Maybe Text) - , _cdcEngine :: !(Maybe Text) , _cdcPreferredMaintenanceWindow :: !(Maybe Text) , _cdcAvailabilityZones :: !(Maybe [Text]) , _cdcCharacterSetName :: !(Maybe Text) @@ -83,6 +79,10 @@ , _cdcOptionGroupName :: !(Maybe Text) , _cdcTags :: !(Maybe [Tag]) , _cdcPort :: !(Maybe Int) + , _cdcDBClusterIdentifier :: !Text + , _cdcEngine :: !Text + , _cdcMasterUsername :: !Text + , _cdcMasterUserPassword :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateDBCluster' with the minimum fields required to make a request. @@ -91,16 +91,8 @@ -- -- * 'cdcEngineVersion' -- --- * 'cdcDBClusterIdentifier' --- --- * 'cdcMasterUserPassword' --- --- * 'cdcMasterUsername' --- -- * 'cdcDBSubnetGroupName' -- --- * 'cdcEngine' --- -- * 'cdcPreferredMaintenanceWindow' -- -- * 'cdcAvailabilityZones' @@ -122,16 +114,24 @@ -- * 'cdcTags' -- -- * 'cdcPort' +-- +-- * 'cdcDBClusterIdentifier' +-- +-- * 'cdcEngine' +-- +-- * 'cdcMasterUsername' +-- +-- * 'cdcMasterUserPassword' createDBCluster - :: CreateDBCluster -createDBCluster = + :: Text -- ^ 'cdcDBClusterIdentifier' + -> Text -- ^ 'cdcEngine' + -> Text -- ^ 'cdcMasterUsername' + -> Text -- ^ 'cdcMasterUserPassword' + -> CreateDBCluster +createDBCluster pDBClusterIdentifier_ pEngine_ pMasterUsername_ pMasterUserPassword_ = CreateDBCluster' { _cdcEngineVersion = Nothing - , _cdcDBClusterIdentifier = Nothing - , _cdcMasterUserPassword = Nothing - , _cdcMasterUsername = Nothing , _cdcDBSubnetGroupName = Nothing - , _cdcEngine = Nothing , _cdcPreferredMaintenanceWindow = Nothing , _cdcAvailabilityZones = Nothing , _cdcCharacterSetName = Nothing @@ -143,56 +143,24 @@ , _cdcOptionGroupName = Nothing , _cdcTags = Nothing , _cdcPort = Nothing + , _cdcDBClusterIdentifier = pDBClusterIdentifier_ + , _cdcEngine = pEngine_ + , _cdcMasterUsername = pMasterUsername_ + , _cdcMasterUserPassword = pMasterUserPassword_ } -- | The version number of the database engine to use. -- -- __Aurora__ -- --- Example: '5.6.0' +-- Example: '5.6.10a' cdcEngineVersion :: Lens' CreateDBCluster (Maybe Text) cdcEngineVersion = lens _cdcEngineVersion (\ s a -> s{_cdcEngineVersion = a}); --- | The DB cluster identifier. This parameter is stored as a lowercase --- string. --- --- Constraints: --- --- - Must contain from 1 to 63 alphanumeric characters or hyphens. --- - First character must be a letter. --- - Cannot end with a hyphen or contain two consecutive hyphens. --- --- Example: 'my-cluster1' -cdcDBClusterIdentifier :: Lens' CreateDBCluster (Maybe Text) -cdcDBClusterIdentifier = lens _cdcDBClusterIdentifier (\ s a -> s{_cdcDBClusterIdentifier = a}); - --- | The password for the master database user. This password can contain any --- printable ASCII character except \"\/\", \"\"\", or \"\'\". --- --- Constraints: Must contain from 8 to 41 characters. -cdcMasterUserPassword :: Lens' CreateDBCluster (Maybe Text) -cdcMasterUserPassword = lens _cdcMasterUserPassword (\ s a -> s{_cdcMasterUserPassword = a}); - --- | The name of the master user for the client DB cluster. --- --- Constraints: --- --- - Must be 1 to 16 alphanumeric characters. --- - First character must be a letter. --- - Cannot be a reserved word for the chosen database engine. -cdcMasterUsername :: Lens' CreateDBCluster (Maybe Text) -cdcMasterUsername = lens _cdcMasterUsername (\ s a -> s{_cdcMasterUsername = a}); - -- | A DB subnet group to associate with this DB cluster. cdcDBSubnetGroupName :: Lens' CreateDBCluster (Maybe Text) cdcDBSubnetGroupName = lens _cdcDBSubnetGroupName (\ s a -> s{_cdcDBSubnetGroupName = a}); --- | The name of the database engine to be used for this DB cluster. --- --- Valid Values: 'MySQL' -cdcEngine :: Lens' CreateDBCluster (Maybe Text) -cdcEngine = lens _cdcEngine (\ s a -> s{_cdcEngine = a}); - -- | The weekly time range during which system maintenance can occur, in -- Universal Coordinated Time (UTC). -- @@ -293,6 +261,42 @@ cdcPort :: Lens' CreateDBCluster (Maybe Int) cdcPort = lens _cdcPort (\ s a -> s{_cdcPort = a}); +-- | The DB cluster identifier. This parameter is stored as a lowercase +-- string. +-- +-- Constraints: +-- +-- - Must contain from 1 to 63 alphanumeric characters or hyphens. +-- - First character must be a letter. +-- - Cannot end with a hyphen or contain two consecutive hyphens. +-- +-- Example: 'my-cluster1' +cdcDBClusterIdentifier :: Lens' CreateDBCluster Text +cdcDBClusterIdentifier = lens _cdcDBClusterIdentifier (\ s a -> s{_cdcDBClusterIdentifier = a}); + +-- | The name of the database engine to be used for this DB cluster. +-- +-- Valid Values: 'aurora' +cdcEngine :: Lens' CreateDBCluster Text +cdcEngine = lens _cdcEngine (\ s a -> s{_cdcEngine = a}); + +-- | The name of the master user for the client DB cluster. +-- +-- Constraints: +-- +-- - Must be 1 to 16 alphanumeric characters. +-- - First character must be a letter. +-- - Cannot be a reserved word for the chosen database engine. +cdcMasterUsername :: Lens' CreateDBCluster Text +cdcMasterUsername = lens _cdcMasterUsername (\ s a -> s{_cdcMasterUsername = a}); + +-- | The password for the master database user. This password can contain any +-- printable ASCII character except \"\/\", \"\"\", or \"\'\". +-- +-- Constraints: Must contain from 8 to 41 characters. +cdcMasterUserPassword :: Lens' CreateDBCluster Text +cdcMasterUserPassword = lens _cdcMasterUserPassword (\ s a -> s{_cdcMasterUserPassword = a}); + instance AWSRequest CreateDBCluster where type Rs CreateDBCluster = CreateDBClusterResponse request = postQuery rDS @@ -314,11 +318,7 @@ ["Action" =: ("CreateDBCluster" :: ByteString), "Version" =: ("2014-10-31" :: ByteString), "EngineVersion" =: _cdcEngineVersion, - "DBClusterIdentifier" =: _cdcDBClusterIdentifier, - "MasterUserPassword" =: _cdcMasterUserPassword, - "MasterUsername" =: _cdcMasterUsername, "DBSubnetGroupName" =: _cdcDBSubnetGroupName, - "Engine" =: _cdcEngine, "PreferredMaintenanceWindow" =: _cdcPreferredMaintenanceWindow, "AvailabilityZones" =: @@ -337,7 +337,11 @@ _cdcDBClusterParameterGroupName, "OptionGroupName" =: _cdcOptionGroupName, "Tags" =: toQuery (toQueryList "Tag" <$> _cdcTags), - "Port" =: _cdcPort] + "Port" =: _cdcPort, + "DBClusterIdentifier" =: _cdcDBClusterIdentifier, + "Engine" =: _cdcEngine, + "MasterUsername" =: _cdcMasterUsername, + "MasterUserPassword" =: _cdcMasterUserPassword] -- | /See:/ 'createDBClusterResponse' smart constructor. data CreateDBClusterResponse = CreateDBClusterResponse' 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 @@ -37,7 +37,6 @@ , cdiMasterUsername , cdiDBSubnetGroupName , cdiIOPS - , cdiDomain , cdiTDECredentialPassword , cdiLicenseModel , cdiPreferredMaintenanceWindow @@ -89,7 +88,6 @@ , _cdiMasterUsername :: !(Maybe Text) , _cdiDBSubnetGroupName :: !(Maybe Text) , _cdiIOPS :: !(Maybe Int) - , _cdiDomain :: !(Maybe Text) , _cdiTDECredentialPassword :: !(Maybe Text) , _cdiLicenseModel :: !(Maybe Text) , _cdiPreferredMaintenanceWindow :: !(Maybe Text) @@ -138,8 +136,6 @@ -- -- * 'cdiIOPS' -- --- * 'cdiDomain' --- -- * 'cdiTDECredentialPassword' -- -- * 'cdiLicenseModel' @@ -200,7 +196,6 @@ , _cdiMasterUsername = Nothing , _cdiDBSubnetGroupName = Nothing , _cdiIOPS = Nothing - , _cdiDomain = Nothing , _cdiTDECredentialPassword = Nothing , _cdiLicenseModel = Nothing , _cdiPreferredMaintenanceWindow = Nothing @@ -244,45 +239,6 @@ -- - __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' -- --- __MySQL__ --- --- - __Version 5.1 (Only available in the following regions: --- ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-west-1, --- sa-east-1, us-west-1, us-west-2):__ ' 5.1.73a | 5.1.73b' --- - __Version 5.5 (Only available in the following regions: --- ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-west-1, --- sa-east-1, us-west-1, us-west-2):__ ' 5.5.40 | 5.5.40a' --- - __Version 5.5 (Available in all regions):__ --- ' 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' --- --- __MySQL__ --- --- - __Version 5.1 (Only available in the following regions: --- ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-west-1, --- sa-east-1, us-west-1, us-west-2):__ ' 5.1.73a | 5.1.73b' --- - __Version 5.5 (Only available in the following regions: --- ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-west-1, --- sa-east-1, us-west-1, us-west-2):__ ' 5.5.40 | 5.5.40a' --- - __Version 5.5 (Available in all regions):__ --- ' 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' --- --- __MySQL__ --- --- - __Version 5.1 (Only available in the following regions: --- ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-west-1, --- sa-east-1, us-west-1, us-west-2):__ ' 5.1.73a | 5.1.73b' --- - __Version 5.5 (Only available in the following regions: --- ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-west-1, --- sa-east-1, us-west-1, us-west-2):__ ' 5.5.40 | 5.5.40a' --- - __Version 5.5 (Available in all regions):__ --- ' 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' --- -- __Oracle Database Enterprise Edition (oracle-ee)__ -- -- - __Version 11.2 (Only available in the following regions: @@ -290,50 +246,9 @@ -- sa-east-1, us-west-1, us-west-2):__ -- ' 11.2.0.2.v3 | 11.2.0.2.v4 | 11.2.0.2.v5 | 11.2.0.2.v6 | 11.2.0.2.v7' -- - __Version 11.2 (Available in all regions):__ --- ' 11.2.0.3.v1 | 11.2.0.3.v2 | 11.2.0.4.v1 | 11.2.0.4.v3' --- - __Version 12.1 (Available in all regions):__ ' 12.1.0.1.v1' --- --- __Oracle Database Enterprise Edition (oracle-ee)__ --- --- - __Version 11.2 (Only available in the following regions: --- ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-west-1, --- sa-east-1, us-west-1, us-west-2):__ --- ' 11.2.0.2.v3 | 11.2.0.2.v4 | 11.2.0.2.v5 | 11.2.0.2.v6 | 11.2.0.2.v7' --- - __Version 11.2 (Available in all regions):__ --- ' 11.2.0.3.v1 | 11.2.0.3.v2 | 11.2.0.4.v1 | 11.2.0.4.v3' --- - __Version 12.1 (Available in all regions):__ ' 12.1.0.1.v1' --- --- __Oracle Database Enterprise Edition (oracle-ee)__ --- --- - __Version 11.2 (Only available in the following regions: --- ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-west-1, --- sa-east-1, us-west-1, us-west-2):__ --- ' 11.2.0.2.v3 | 11.2.0.2.v4 | 11.2.0.2.v5 | 11.2.0.2.v6 | 11.2.0.2.v7' --- - __Version 11.2 (Available in all regions):__ --- ' 11.2.0.3.v1 | 11.2.0.3.v2 | 11.2.0.4.v1 | 11.2.0.4.v3' --- - __Version 12.1 (Available in all regions):__ ' 12.1.0.1.v1' --- --- __Oracle Database Standard Edition (oracle-se)__ --- --- - __Version 11.2 (Only available in the following regions: --- us-west-1):__ --- ' 11.2.0.2.v3 | 11.2.0.2.v4 | 11.2.0.2.v5 | 11.2.0.2.v6 | 11.2.0.2.v7' --- - __Version 11.2 (Only available in the following regions: --- eu-central-1, us-west-1):__ --- ' 11.2.0.3.v1 | 11.2.0.3.v2 | 11.2.0.4.v1 | 11.2.0.4.v3' --- - __Version 12.1 (Only available in the following regions: --- eu-central-1, us-west-1):__ ' 12.1.0.1.v1' --- --- __Oracle Database Standard Edition (oracle-se)__ --- --- - __Version 11.2 (Only available in the following regions: --- us-west-1):__ --- ' 11.2.0.2.v3 | 11.2.0.2.v4 | 11.2.0.2.v5 | 11.2.0.2.v6 | 11.2.0.2.v7' --- - __Version 11.2 (Only available in the following regions: --- eu-central-1, us-west-1):__ --- ' 11.2.0.3.v1 | 11.2.0.3.v2 | 11.2.0.4.v1 | 11.2.0.4.v3' --- - __Version 12.1 (Only available in the following regions: --- eu-central-1, us-west-1):__ ' 12.1.0.1.v1' +-- ' 11.2.0.3.v1 | 11.2.0.3.v2 | 11.2.0.3.v3 | 11.2.0.4.v1 | 11.2.0.4.v3 | 11.2.0.4.v4' +-- - __Version 12.1 (Available in all regions):__ +-- '12.1.0.1.v1 | 12.1.0.1.v2 | 12.1.0.2.v1 ' -- -- __Oracle Database Standard Edition (oracle-se)__ -- @@ -342,31 +257,9 @@ -- ' 11.2.0.2.v3 | 11.2.0.2.v4 | 11.2.0.2.v5 | 11.2.0.2.v6 | 11.2.0.2.v7' -- - __Version 11.2 (Only available in the following regions: -- eu-central-1, us-west-1):__ --- ' 11.2.0.3.v1 | 11.2.0.3.v2 | 11.2.0.4.v1 | 11.2.0.4.v3' --- - __Version 12.1 (Only available in the following regions: --- eu-central-1, us-west-1):__ ' 12.1.0.1.v1' --- --- __Oracle Database Standard Edition One (oracle-se1)__ --- --- - __Version 11.2 (Only available in the following regions: --- us-west-1):__ --- ' 11.2.0.2.v3 | 11.2.0.2.v4 | 11.2.0.2.v5 | 11.2.0.2.v6 | 11.2.0.2.v7' --- - __Version 11.2 (Only available in the following regions: --- eu-central-1, us-west-1):__ --- ' 11.2.0.3.v1 | 11.2.0.3.v2 | 11.2.0.4.v1 | 11.2.0.4.v3' --- - __Version 12.1 (Only available in the following regions: --- eu-central-1, us-west-1):__ ' 12.1.0.1.v1' --- --- __Oracle Database Standard Edition One (oracle-se1)__ --- --- - __Version 11.2 (Only available in the following regions: --- us-west-1):__ --- ' 11.2.0.2.v3 | 11.2.0.2.v4 | 11.2.0.2.v5 | 11.2.0.2.v6 | 11.2.0.2.v7' --- - __Version 11.2 (Only available in the following regions: --- eu-central-1, us-west-1):__ --- ' 11.2.0.3.v1 | 11.2.0.3.v2 | 11.2.0.4.v1 | 11.2.0.4.v3' +-- ' 11.2.0.3.v1 | 11.2.0.3.v2 | 11.2.0.3.v3 | 11.2.0.4.v1 | 11.2.0.4.v3 | 11.2.0.4.v4' -- - __Version 12.1 (Only available in the following regions: --- eu-central-1, us-west-1):__ ' 12.1.0.1.v1' +-- eu-central-1, us-west-1):__ '12.1.0.1.v1 | 12.1.0.1.v2' -- -- __Oracle Database Standard Edition One (oracle-se1)__ -- @@ -375,25 +268,9 @@ -- ' 11.2.0.2.v3 | 11.2.0.2.v4 | 11.2.0.2.v5 | 11.2.0.2.v6 | 11.2.0.2.v7' -- - __Version 11.2 (Only available in the following regions: -- eu-central-1, us-west-1):__ --- ' 11.2.0.3.v1 | 11.2.0.3.v2 | 11.2.0.4.v1 | 11.2.0.4.v3' +-- ' 11.2.0.3.v1 | 11.2.0.3.v2 | 11.2.0.3.v3 | 11.2.0.4.v1 | 11.2.0.4.v3 | 11.2.0.4.v4' -- - __Version 12.1 (Only available in the following regions: --- eu-central-1, us-west-1):__ ' 12.1.0.1.v1' --- --- __PostgreSQL__ --- --- - __Version 9.3 (Only available in the following regions: --- ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-west-1, --- sa-east-1, us-west-1, us-west-2):__ ' 9.3.1 | 9.3.2' --- - __Version 9.3 (Available in all regions):__ ' 9.3.3 | 9.3.5 | 9.3.6' --- - __Version 9.4 (Available in all regions):__ ' 9.4.1' --- --- __PostgreSQL__ --- --- - __Version 9.3 (Only available in the following regions: --- ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-west-1, --- sa-east-1, us-west-1, us-west-2):__ ' 9.3.1 | 9.3.2' --- - __Version 9.3 (Available in all regions):__ ' 9.3.3 | 9.3.5 | 9.3.6' --- - __Version 9.4 (Available in all regions):__ ' 9.4.1' +-- eu-central-1, us-west-1):__ ' 12.1.0.1.v1 | 12.1.0.1.v2' -- -- __PostgreSQL__ -- @@ -410,42 +287,20 @@ -- - __Version 11.00 (Only available in the following regions: -- eu-central-1, us-west-1):__ ' 11.00.2100.60.v1' -- --- __Microsoft SQL Server Enterprise Edition (sqlserver-ee)__ --- --- - __Version 10.50 (Only available in the following regions: --- eu-central-1, us-west-1):__ ' 10.50.2789.0.v1' --- - __Version 11.00 (Only available in the following regions: --- eu-central-1, us-west-1):__ ' 11.00.2100.60.v1' --- -- __Microsoft SQL Server Express Edition (sqlserver-ex)__ -- -- - __Version 10.50 (Available in all regions):__ ' 10.50.2789.0.v1' -- - __Version 11.00 (Available in all regions):__ ' 11.00.2100.60.v1' -- --- __Microsoft SQL Server Express Edition (sqlserver-ex)__ --- --- - __Version 10.50 (Available in all regions):__ ' 10.50.2789.0.v1' --- - __Version 11.00 (Available in all regions):__ ' 11.00.2100.60.v1' --- -- __Microsoft SQL Server Standard Edition (sqlserver-se)__ -- -- - __Version 10.50 (Available in all regions):__ ' 10.50.2789.0.v1' -- - __Version 11.00 (Available in all regions):__ ' 11.00.2100.60.v1' -- --- __Microsoft SQL Server Standard Edition (sqlserver-se)__ --- --- - __Version 10.50 (Available in all regions):__ ' 10.50.2789.0.v1' --- - __Version 11.00 (Available in all regions):__ ' 11.00.2100.60.v1' --- -- __Microsoft SQL Server Web Edition (sqlserver-web)__ -- -- - __Version 10.50 (Available in all regions):__ ' 10.50.2789.0.v1' -- - __Version 11.00 (Available in all regions):__ ' 11.00.2100.60.v1' --- --- __Microsoft SQL Server Web Edition (sqlserver-web)__ --- --- - __Version 10.50 (Available in all regions):__ ' 10.50.2789.0.v1' --- - __Version 11.00 (Available in all regions):__ ' 11.00.2100.60.v1' cdiEngineVersion :: Lens' CreateDBInstance (Maybe Text) cdiEngineVersion = lens _cdiEngineVersion (\ s a -> s{_cdiEngineVersion = a}); @@ -489,6 +344,10 @@ -- __PostgreSQL__ -- -- Constraints: Must contain from 8 to 128 characters. +-- +-- __Amazon Aurora__ +-- +-- Constraints: Must contain from 8 to 41 characters. cdiMasterUserPassword :: Lens' CreateDBInstance (Maybe Text) cdiMasterUserPassword = lens _cdiMasterUserPassword (\ s a -> s{_cdiMasterUserPassword = a}); @@ -572,10 +431,6 @@ cdiIOPS :: Lens' CreateDBInstance (Maybe Int) cdiIOPS = lens _cdiIOPS (\ s a -> s{_cdiIOPS = a}); --- | Specify the Active Directory Domain to create the instance in. -cdiDomain :: Lens' CreateDBInstance (Maybe Text) -cdiDomain = lens _cdiDomain (\ s a -> s{_cdiDomain = a}); - -- | The password for the given ARN from the Key Store in order to access the -- device. cdiTDECredentialPassword :: Lens' CreateDBInstance (Maybe Text) @@ -735,7 +590,8 @@ cdiOptionGroupName :: Lens' CreateDBInstance (Maybe Text) cdiOptionGroupName = lens _cdiOptionGroupName (\ s a -> s{_cdiOptionGroupName = a}); --- | This property is not currently implemented. +-- | True to copy all tags from the DB instance to snapshots of the DB +-- instance; otherwise false. The default is false. cdiCopyTagsToSnapshot :: Lens' CreateDBInstance (Maybe Bool) cdiCopyTagsToSnapshot = lens _cdiCopyTagsToSnapshot (\ s a -> s{_cdiCopyTagsToSnapshot = a}); @@ -778,6 +634,14 @@ -- -- Valid Values: '1150-65535' except for '1434', '3389', '47001', '49152', -- and '49152' through '49156'. +-- +-- __Amazon Aurora__ +-- +-- Default: '3306' +-- +-- Valid Values: '1150-65535' +-- +-- Type: Integer cdiPort :: Lens' CreateDBInstance (Maybe Int) cdiPort = lens _cdiPort (\ s a -> s{_cdiPort = a}); @@ -835,6 +699,17 @@ -- __SQL Server__ -- -- Not applicable. Must be null. +-- +-- __Amazon Aurora__ +-- +-- The name of the database to create when the primary instance of the DB +-- cluster is created. If this parameter is not specified, no database is +-- created in the DB instance. +-- +-- Constraints: +-- +-- - Must contain 1 to 64 alphanumeric characters +-- - Cannot be a word reserved by the specified database engine cdiDBName :: Lens' CreateDBInstance (Maybe Text) cdiDBName = lens _cdiDBName (\ s a -> s{_cdiDBName = a}); @@ -855,7 +730,7 @@ -- | The compute and memory capacity of the DB instance. -- -- Valid Values: --- 'db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.xlarge |db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium' +-- 'db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.xlarge |db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large' cdiDBInstanceClass :: Lens' CreateDBInstance Text cdiDBInstanceClass = lens _cdiDBInstanceClass (\ s a -> s{_cdiDBInstanceClass = a}); @@ -902,7 +777,7 @@ _cdiAutoMinorVersionUpgrade, "MasterUsername" =: _cdiMasterUsername, "DBSubnetGroupName" =: _cdiDBSubnetGroupName, - "Iops" =: _cdiIOPS, "Domain" =: _cdiDomain, + "Iops" =: _cdiIOPS, "TdeCredentialPassword" =: _cdiTDECredentialPassword, "LicenseModel" =: _cdiLicenseModel, "PreferredMaintenanceWindow" =: 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 @@ -186,7 +186,7 @@ -- | The compute and memory capacity of the Read Replica. -- -- Valid Values: --- 'db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.xlarge |db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium' +-- 'db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.xlarge |db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large' -- -- Default: Inherits from the source DB instance. cdirrDBInstanceClass :: Lens' CreateDBInstanceReadReplica (Maybe Text) @@ -207,7 +207,8 @@ cdirrOptionGroupName :: Lens' CreateDBInstanceReadReplica (Maybe Text) cdirrOptionGroupName = lens _cdirrOptionGroupName (\ s a -> s{_cdirrOptionGroupName = a}); --- | This property is not currently implemented. +-- | True to copy all tags from the Read Replica to snapshots of the Read +-- Replica; otherwise false. The default is false. cdirrCopyTagsToSnapshot :: Lens' CreateDBInstanceReadReplica (Maybe Bool) cdirrCopyTagsToSnapshot = lens _cdirrCopyTagsToSnapshot (\ s a -> s{_cdirrCopyTagsToSnapshot = a}); 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 @@ -87,8 +87,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, or hyphens. Must not be default. -- -- Example: 'mySubnetgroup' cdbsgDBSubnetGroupName :: Lens' CreateDBSubnetGroup Text 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 @@ -35,9 +35,9 @@ deleteDBCluster , DeleteDBCluster -- * Request Lenses - , ddbcDBClusterIdentifier , ddbcFinalDBSnapshotIdentifier , ddbcSkipFinalSnapshot + , ddbcDBClusterIdentifier -- * Destructuring the Response , deleteDBClusterResponse @@ -57,40 +57,30 @@ -- -- /See:/ 'deleteDBCluster' smart constructor. data DeleteDBCluster = DeleteDBCluster' - { _ddbcDBClusterIdentifier :: !(Maybe Text) - , _ddbcFinalDBSnapshotIdentifier :: !(Maybe Text) + { _ddbcFinalDBSnapshotIdentifier :: !(Maybe Text) , _ddbcSkipFinalSnapshot :: !(Maybe Bool) + , _ddbcDBClusterIdentifier :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeleteDBCluster' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ddbcDBClusterIdentifier' --- -- * 'ddbcFinalDBSnapshotIdentifier' -- -- * 'ddbcSkipFinalSnapshot' +-- +-- * 'ddbcDBClusterIdentifier' deleteDBCluster - :: DeleteDBCluster -deleteDBCluster = + :: Text -- ^ 'ddbcDBClusterIdentifier' + -> DeleteDBCluster +deleteDBCluster pDBClusterIdentifier_ = DeleteDBCluster' - { _ddbcDBClusterIdentifier = Nothing - , _ddbcFinalDBSnapshotIdentifier = Nothing + { _ddbcFinalDBSnapshotIdentifier = Nothing , _ddbcSkipFinalSnapshot = Nothing + , _ddbcDBClusterIdentifier = pDBClusterIdentifier_ } --- | The DB cluster identifier for the DB cluster to be deleted. This --- parameter isn\'t case-sensitive. --- --- Constraints: --- --- - Must contain from 1 to 63 alphanumeric characters or hyphens --- - First character must be a letter --- - Cannot end with a hyphen or contain two consecutive hyphens -ddbcDBClusterIdentifier :: Lens' DeleteDBCluster (Maybe Text) -ddbcDBClusterIdentifier = lens _ddbcDBClusterIdentifier (\ s a -> s{_ddbcDBClusterIdentifier = a}); - -- | The DB cluster snapshot identifier of the new DB cluster snapshot -- created when 'SkipFinalSnapshot' is set to 'false'. -- @@ -117,6 +107,17 @@ ddbcSkipFinalSnapshot :: Lens' DeleteDBCluster (Maybe Bool) ddbcSkipFinalSnapshot = lens _ddbcSkipFinalSnapshot (\ s a -> s{_ddbcSkipFinalSnapshot = a}); +-- | The DB cluster identifier for the DB cluster to be deleted. This +-- parameter isn\'t case-sensitive. +-- +-- Constraints: +-- +-- - Must contain from 1 to 63 alphanumeric characters or hyphens +-- - First character must be a letter +-- - Cannot end with a hyphen or contain two consecutive hyphens +ddbcDBClusterIdentifier :: Lens' DeleteDBCluster Text +ddbcDBClusterIdentifier = lens _ddbcDBClusterIdentifier (\ s a -> s{_ddbcDBClusterIdentifier = a}); + instance AWSRequest DeleteDBCluster where type Rs DeleteDBCluster = DeleteDBClusterResponse request = postQuery rDS @@ -137,10 +138,10 @@ = mconcat ["Action" =: ("DeleteDBCluster" :: ByteString), "Version" =: ("2014-10-31" :: ByteString), - "DBClusterIdentifier" =: _ddbcDBClusterIdentifier, "FinalDBSnapshotIdentifier" =: _ddbcFinalDBSnapshotIdentifier, - "SkipFinalSnapshot" =: _ddbcSkipFinalSnapshot] + "SkipFinalSnapshot" =: _ddbcSkipFinalSnapshot, + "DBClusterIdentifier" =: _ddbcDBClusterIdentifier] -- | /See:/ 'deleteDBClusterResponse' smart constructor. data DeleteDBClusterResponse = DeleteDBClusterResponse' 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 @@ -32,7 +32,6 @@ modifyDBCluster , ModifyDBCluster -- * Request Lenses - , mdcDBClusterIdentifier , mdcMasterUserPassword , mdcPreferredMaintenanceWindow , mdcPreferredBackupWindow @@ -43,6 +42,7 @@ , mdcOptionGroupName , mdcNewDBClusterIdentifier , mdcPort + , mdcDBClusterIdentifier -- * Destructuring the Response , modifyDBClusterResponse @@ -62,8 +62,7 @@ -- -- /See:/ 'modifyDBCluster' smart constructor. data ModifyDBCluster = ModifyDBCluster' - { _mdcDBClusterIdentifier :: !(Maybe Text) - , _mdcMasterUserPassword :: !(Maybe Text) + { _mdcMasterUserPassword :: !(Maybe Text) , _mdcPreferredMaintenanceWindow :: !(Maybe Text) , _mdcPreferredBackupWindow :: !(Maybe Text) , _mdcBackupRetentionPeriod :: !(Maybe Int) @@ -73,14 +72,13 @@ , _mdcOptionGroupName :: !(Maybe Text) , _mdcNewDBClusterIdentifier :: !(Maybe Text) , _mdcPort :: !(Maybe Int) + , _mdcDBClusterIdentifier :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ModifyDBCluster' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'mdcDBClusterIdentifier' --- -- * 'mdcMasterUserPassword' -- -- * 'mdcPreferredMaintenanceWindow' @@ -100,12 +98,14 @@ -- * 'mdcNewDBClusterIdentifier' -- -- * 'mdcPort' +-- +-- * 'mdcDBClusterIdentifier' modifyDBCluster - :: ModifyDBCluster -modifyDBCluster = + :: Text -- ^ 'mdcDBClusterIdentifier' + -> ModifyDBCluster +modifyDBCluster pDBClusterIdentifier_ = ModifyDBCluster' - { _mdcDBClusterIdentifier = Nothing - , _mdcMasterUserPassword = Nothing + { _mdcMasterUserPassword = Nothing , _mdcPreferredMaintenanceWindow = Nothing , _mdcPreferredBackupWindow = Nothing , _mdcBackupRetentionPeriod = Nothing @@ -115,20 +115,9 @@ , _mdcOptionGroupName = Nothing , _mdcNewDBClusterIdentifier = Nothing , _mdcPort = Nothing + , _mdcDBClusterIdentifier = pDBClusterIdentifier_ } --- | The DB cluster identifier for the cluster being modified. This parameter --- is not case-sensitive. --- --- Constraints: --- --- - Must be the identifier for an existing DB cluster. --- - Must contain from 1 to 63 alphanumeric characters or hyphens. --- - First character must be a letter. --- - Cannot end with a hyphen or contain two consecutive hyphens. -mdcDBClusterIdentifier :: Lens' ModifyDBCluster (Maybe Text) -mdcDBClusterIdentifier = lens _mdcDBClusterIdentifier (\ s a -> s{_mdcDBClusterIdentifier = a}); - -- | The new password for the master database user. This password can contain -- any printable ASCII character except \"\/\", \"\"\", or \"\'\". -- @@ -239,6 +228,18 @@ mdcPort :: Lens' ModifyDBCluster (Maybe Int) mdcPort = lens _mdcPort (\ s a -> s{_mdcPort = a}); +-- | The DB cluster identifier for the cluster being modified. This parameter +-- is not case-sensitive. +-- +-- Constraints: +-- +-- - Must be the identifier for an existing DB cluster. +-- - Must contain from 1 to 63 alphanumeric characters or hyphens. +-- - First character must be a letter. +-- - Cannot end with a hyphen or contain two consecutive hyphens. +mdcDBClusterIdentifier :: Lens' ModifyDBCluster Text +mdcDBClusterIdentifier = lens _mdcDBClusterIdentifier (\ s a -> s{_mdcDBClusterIdentifier = a}); + instance AWSRequest ModifyDBCluster where type Rs ModifyDBCluster = ModifyDBClusterResponse request = postQuery rDS @@ -259,7 +260,6 @@ = mconcat ["Action" =: ("ModifyDBCluster" :: ByteString), "Version" =: ("2014-10-31" :: ByteString), - "DBClusterIdentifier" =: _mdcDBClusterIdentifier, "MasterUserPassword" =: _mdcMasterUserPassword, "PreferredMaintenanceWindow" =: _mdcPreferredMaintenanceWindow, @@ -275,7 +275,8 @@ "OptionGroupName" =: _mdcOptionGroupName, "NewDBClusterIdentifier" =: _mdcNewDBClusterIdentifier, - "Port" =: _mdcPort] + "Port" =: _mdcPort, + "DBClusterIdentifier" =: _mdcDBClusterIdentifier] -- | /See:/ 'modifyDBClusterResponse' smart constructor. data ModifyDBClusterResponse = ModifyDBClusterResponse' 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 @@ -36,7 +36,6 @@ , mdiIOPS , mdiAllowMajorVersionUpgrade , mdiNewDBInstanceIdentifier - , mdiDomain , mdiTDECredentialPassword , mdiDBInstanceClass , mdiPreferredMaintenanceWindow @@ -79,7 +78,6 @@ , _mdiIOPS :: !(Maybe Int) , _mdiAllowMajorVersionUpgrade :: !(Maybe Bool) , _mdiNewDBInstanceIdentifier :: !(Maybe Text) - , _mdiDomain :: !(Maybe Text) , _mdiTDECredentialPassword :: !(Maybe Text) , _mdiDBInstanceClass :: !(Maybe Text) , _mdiPreferredMaintenanceWindow :: !(Maybe Text) @@ -116,8 +114,6 @@ -- -- * 'mdiNewDBInstanceIdentifier' -- --- * 'mdiDomain' --- -- * 'mdiTDECredentialPassword' -- -- * 'mdiDBInstanceClass' @@ -161,7 +157,6 @@ , _mdiIOPS = Nothing , _mdiAllowMajorVersionUpgrade = Nothing , _mdiNewDBInstanceIdentifier = Nothing - , _mdiDomain = Nothing , _mdiTDECredentialPassword = Nothing , _mdiDBInstanceClass = Nothing , _mdiPreferredMaintenanceWindow = Nothing @@ -217,9 +212,9 @@ -- -- Default: Uses existing setting -- --- Constraints: Must be 8 to 41 alphanumeric characters (MySQL), 8 to 30 --- alphanumeric characters (Oracle), or 8 to 128 alphanumeric characters --- (SQL Server). +-- Constraints: Must be 8 to 41 alphanumeric characters (MySQL and Amazon +-- Aurora), 8 to 30 alphanumeric characters (Oracle), or 8 to 128 +-- alphanumeric characters (SQL Server). -- -- Amazon RDS API actions never return the password, so this action -- provides a way to regain access to a primary instance user if the @@ -300,13 +295,6 @@ mdiNewDBInstanceIdentifier :: Lens' ModifyDBInstance (Maybe Text) mdiNewDBInstanceIdentifier = lens _mdiNewDBInstanceIdentifier (\ s a -> s{_mdiNewDBInstanceIdentifier = a}); --- | Specify the Active Directory Domain to move the instance to. --- --- The specified Active Directory Domain must be created prior to this --- operation. Currently only SQL Server instance can be created in a Domain -mdiDomain :: Lens' ModifyDBInstance (Maybe Text) -mdiDomain = lens _mdiDomain (\ s a -> s{_mdiDomain = a}); - -- | The password for the given ARN from the Key Store in order to access the -- device. mdiTDECredentialPassword :: Lens' ModifyDBInstance (Maybe Text) @@ -323,7 +311,7 @@ -- Default: Uses existing setting -- -- Valid Values: --- 'db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.xlarge | db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium' +-- 'db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.xlarge | db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large' mdiDBInstanceClass :: Lens' ModifyDBInstance (Maybe Text) mdiDBInstanceClass = lens _mdiDBInstanceClass (\ s a -> s{_mdiDBInstanceClass = a}); @@ -524,7 +512,8 @@ mdiOptionGroupName :: Lens' ModifyDBInstance (Maybe Text) mdiOptionGroupName = lens _mdiOptionGroupName (\ s a -> s{_mdiOptionGroupName = a}); --- | This property is not currently implemented. +-- | True to copy all tags from the DB instance to snapshots of the DB +-- instance; otherwise false. The default is false. mdiCopyTagsToSnapshot :: Lens' ModifyDBInstance (Maybe Bool) mdiCopyTagsToSnapshot = lens _mdiCopyTagsToSnapshot (\ s a -> s{_mdiCopyTagsToSnapshot = a}); @@ -589,7 +578,6 @@ _mdiAllowMajorVersionUpgrade, "NewDBInstanceIdentifier" =: _mdiNewDBInstanceIdentifier, - "Domain" =: _mdiDomain, "TdeCredentialPassword" =: _mdiTDECredentialPassword, "DBInstanceClass" =: _mdiDBInstanceClass, "PreferredMaintenanceWindow" =: 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 @@ -117,7 +117,7 @@ -- - First character must be a letter -- - Cannot end with a hyphen or contain two consecutive hyphens -- --- Example: mydbinstance +-- Example: 'mydbinstance' prrDBInstanceIdentifier :: Lens' PromoteReadReplica Text prrDBInstanceIdentifier = lens _prrDBInstanceIdentifier (\ s a -> s{_prrDBInstanceIdentifier = a}); 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 @@ -45,18 +45,15 @@ restoreDBInstanceFromDBSnapshot , RestoreDBInstanceFromDBSnapshot -- * Request Lenses - , rdifdsDBSecurityGroups , rdifdsPubliclyAccessible , rdifdsAutoMinorVersionUpgrade , rdifdsDBSubnetGroupName , rdifdsIOPS - , rdifdsDomain , rdifdsEngine , rdifdsTDECredentialPassword , rdifdsDBInstanceClass , rdifdsLicenseModel , rdifdsAvailabilityZone - , rdifdsVPCSecurityGroupIds , rdifdsMultiAZ , rdifdsOptionGroupName , rdifdsCopyTagsToSnapshot @@ -86,18 +83,15 @@ -- -- /See:/ 'restoreDBInstanceFromDBSnapshot' smart constructor. data RestoreDBInstanceFromDBSnapshot = RestoreDBInstanceFromDBSnapshot' - { _rdifdsDBSecurityGroups :: !(Maybe [Text]) - , _rdifdsPubliclyAccessible :: !(Maybe Bool) + { _rdifdsPubliclyAccessible :: !(Maybe Bool) , _rdifdsAutoMinorVersionUpgrade :: !(Maybe Bool) , _rdifdsDBSubnetGroupName :: !(Maybe Text) , _rdifdsIOPS :: !(Maybe Int) - , _rdifdsDomain :: !(Maybe Text) , _rdifdsEngine :: !(Maybe Text) , _rdifdsTDECredentialPassword :: !(Maybe Text) , _rdifdsDBInstanceClass :: !(Maybe Text) , _rdifdsLicenseModel :: !(Maybe Text) , _rdifdsAvailabilityZone :: !(Maybe Text) - , _rdifdsVPCSecurityGroupIds :: !(Maybe [Text]) , _rdifdsMultiAZ :: !(Maybe Bool) , _rdifdsOptionGroupName :: !(Maybe Text) , _rdifdsCopyTagsToSnapshot :: !(Maybe Bool) @@ -114,8 +108,6 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'rdifdsDBSecurityGroups' --- -- * 'rdifdsPubliclyAccessible' -- -- * 'rdifdsAutoMinorVersionUpgrade' @@ -124,8 +116,6 @@ -- -- * 'rdifdsIOPS' -- --- * 'rdifdsDomain' --- -- * 'rdifdsEngine' -- -- * 'rdifdsTDECredentialPassword' @@ -136,8 +126,6 @@ -- -- * 'rdifdsAvailabilityZone' -- --- * 'rdifdsVPCSecurityGroupIds' --- -- * 'rdifdsMultiAZ' -- -- * 'rdifdsOptionGroupName' @@ -163,18 +151,15 @@ -> RestoreDBInstanceFromDBSnapshot restoreDBInstanceFromDBSnapshot pDBInstanceIdentifier_ pDBSnapshotIdentifier_ = RestoreDBInstanceFromDBSnapshot' - { _rdifdsDBSecurityGroups = Nothing - , _rdifdsPubliclyAccessible = Nothing + { _rdifdsPubliclyAccessible = Nothing , _rdifdsAutoMinorVersionUpgrade = Nothing , _rdifdsDBSubnetGroupName = Nothing , _rdifdsIOPS = Nothing - , _rdifdsDomain = Nothing , _rdifdsEngine = Nothing , _rdifdsTDECredentialPassword = Nothing , _rdifdsDBInstanceClass = Nothing , _rdifdsLicenseModel = Nothing , _rdifdsAvailabilityZone = Nothing - , _rdifdsVPCSecurityGroupIds = Nothing , _rdifdsMultiAZ = Nothing , _rdifdsOptionGroupName = Nothing , _rdifdsCopyTagsToSnapshot = Nothing @@ -187,12 +172,6 @@ , _rdifdsDBSnapshotIdentifier = pDBSnapshotIdentifier_ } --- | A list of DB security groups to associate with this DB instance. --- --- Default: The default DB security group for the database engine. -rdifdsDBSecurityGroups :: Lens' RestoreDBInstanceFromDBSnapshot [Text] -rdifdsDBSecurityGroups = lens _rdifdsDBSecurityGroups (\ s a -> s{_rdifdsDBSecurityGroups = a}) . _Default . _Coerce; - -- | Specifies the accessibility options for the DB instance. A value of true -- specifies an Internet-facing instance with a publicly resolvable DNS -- name, which resolves to a public IP address. A value of false specifies @@ -239,10 +218,6 @@ rdifdsIOPS :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Int) rdifdsIOPS = lens _rdifdsIOPS (\ s a -> s{_rdifdsIOPS = a}); --- | Specify the Active Directory Domain to restore the instance in. -rdifdsDomain :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) -rdifdsDomain = lens _rdifdsDomain (\ s a -> s{_rdifdsDomain = a}); - -- | The database engine to use for the new instance. -- -- Default: The same as source @@ -263,7 +238,7 @@ -- | The compute and memory capacity of the Amazon RDS DB instance. -- -- Valid Values: --- 'db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium' +-- 'db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large' rdifdsDBInstanceClass :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) rdifdsDBInstanceClass = lens _rdifdsDBInstanceClass (\ s a -> s{_rdifdsDBInstanceClass = a}); @@ -287,13 +262,6 @@ rdifdsAvailabilityZone :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) rdifdsAvailabilityZone = lens _rdifdsAvailabilityZone (\ s a -> s{_rdifdsAvailabilityZone = a}); --- | A list of EC2 VPC security groups to associate with this DB instance. --- --- Default: The default EC2 VPC security group for the DB subnet group\'s --- VPC. -rdifdsVPCSecurityGroupIds :: Lens' RestoreDBInstanceFromDBSnapshot [Text] -rdifdsVPCSecurityGroupIds = lens _rdifdsVPCSecurityGroupIds (\ s a -> s{_rdifdsVPCSecurityGroupIds = a}) . _Default . _Coerce; - -- | Specifies if the DB instance is a Multi-AZ deployment. -- -- Constraint: You cannot specify the AvailabilityZone parameter if the @@ -310,7 +278,8 @@ rdifdsOptionGroupName :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) rdifdsOptionGroupName = lens _rdifdsOptionGroupName (\ s a -> s{_rdifdsOptionGroupName = a}); --- | This property is not currently implemented. +-- | True to copy all tags from the restored DB instance to snapshots of the +-- DB instance; otherwise false. The default is false. rdifdsCopyTagsToSnapshot :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Bool) rdifdsCopyTagsToSnapshot = lens _rdifdsCopyTagsToSnapshot (\ s a -> s{_rdifdsCopyTagsToSnapshot = a}); @@ -354,7 +323,8 @@ -- -- Constraints: -- --- - Must contain from 1 to 255 alphanumeric characters or hyphens +-- - Must contain from 1 to 63 alphanumeric characters or hyphens (1 to +-- 15 for SQL Server) -- - First character must be a letter -- - Cannot end with a hyphen or contain two consecutive hyphens -- @@ -366,7 +336,7 @@ -- -- Constraints: -- --- - Must contain from 1 to 63 alphanumeric characters or hyphens +-- - Must contain from 1 to 255 alphanumeric characters or hyphens -- - First character must be a letter -- - Cannot end with a hyphen or contain two consecutive hyphens rdifdsDBSnapshotIdentifier :: Lens' RestoreDBInstanceFromDBSnapshot Text @@ -398,25 +368,16 @@ ["Action" =: ("RestoreDBInstanceFromDBSnapshot" :: ByteString), "Version" =: ("2014-10-31" :: ByteString), - "DBSecurityGroups" =: - toQuery - (toQueryList "DBSecurityGroupName" <$> - _rdifdsDBSecurityGroups), "PubliclyAccessible" =: _rdifdsPubliclyAccessible, "AutoMinorVersionUpgrade" =: _rdifdsAutoMinorVersionUpgrade, "DBSubnetGroupName" =: _rdifdsDBSubnetGroupName, - "Iops" =: _rdifdsIOPS, "Domain" =: _rdifdsDomain, - "Engine" =: _rdifdsEngine, + "Iops" =: _rdifdsIOPS, "Engine" =: _rdifdsEngine, "TdeCredentialPassword" =: _rdifdsTDECredentialPassword, "DBInstanceClass" =: _rdifdsDBInstanceClass, "LicenseModel" =: _rdifdsLicenseModel, "AvailabilityZone" =: _rdifdsAvailabilityZone, - "VpcSecurityGroupIds" =: - toQuery - (toQueryList "VpcSecurityGroupId" <$> - _rdifdsVPCSecurityGroupIds), "MultiAZ" =: _rdifdsMultiAZ, "OptionGroupName" =: _rdifdsOptionGroupName, "CopyTagsToSnapshot" =: _rdifdsCopyTagsToSnapshot, 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 @@ -36,20 +36,17 @@ restoreDBInstanceToPointInTime , RestoreDBInstanceToPointInTime -- * Request Lenses - , rditpitDBSecurityGroups , rditpitUseLatestRestorableTime , rditpitPubliclyAccessible , rditpitAutoMinorVersionUpgrade , rditpitDBSubnetGroupName , rditpitRestoreTime , rditpitIOPS - , rditpitDomain , rditpitEngine , rditpitTDECredentialPassword , rditpitDBInstanceClass , rditpitLicenseModel , rditpitAvailabilityZone - , rditpitVPCSecurityGroupIds , rditpitMultiAZ , rditpitOptionGroupName , rditpitCopyTagsToSnapshot @@ -79,20 +76,17 @@ -- -- /See:/ 'restoreDBInstanceToPointInTime' smart constructor. data RestoreDBInstanceToPointInTime = RestoreDBInstanceToPointInTime' - { _rditpitDBSecurityGroups :: !(Maybe [Text]) - , _rditpitUseLatestRestorableTime :: !(Maybe Bool) + { _rditpitUseLatestRestorableTime :: !(Maybe Bool) , _rditpitPubliclyAccessible :: !(Maybe Bool) , _rditpitAutoMinorVersionUpgrade :: !(Maybe Bool) , _rditpitDBSubnetGroupName :: !(Maybe Text) , _rditpitRestoreTime :: !(Maybe ISO8601) , _rditpitIOPS :: !(Maybe Int) - , _rditpitDomain :: !(Maybe Text) , _rditpitEngine :: !(Maybe Text) , _rditpitTDECredentialPassword :: !(Maybe Text) , _rditpitDBInstanceClass :: !(Maybe Text) , _rditpitLicenseModel :: !(Maybe Text) , _rditpitAvailabilityZone :: !(Maybe Text) - , _rditpitVPCSecurityGroupIds :: !(Maybe [Text]) , _rditpitMultiAZ :: !(Maybe Bool) , _rditpitOptionGroupName :: !(Maybe Text) , _rditpitCopyTagsToSnapshot :: !(Maybe Bool) @@ -109,8 +103,6 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'rditpitDBSecurityGroups' --- -- * 'rditpitUseLatestRestorableTime' -- -- * 'rditpitPubliclyAccessible' @@ -123,8 +115,6 @@ -- -- * 'rditpitIOPS' -- --- * 'rditpitDomain' --- -- * 'rditpitEngine' -- -- * 'rditpitTDECredentialPassword' @@ -135,8 +125,6 @@ -- -- * 'rditpitAvailabilityZone' -- --- * 'rditpitVPCSecurityGroupIds' --- -- * 'rditpitMultiAZ' -- -- * 'rditpitOptionGroupName' @@ -162,20 +150,17 @@ -> RestoreDBInstanceToPointInTime restoreDBInstanceToPointInTime pSourceDBInstanceIdentifier_ pTargetDBInstanceIdentifier_ = RestoreDBInstanceToPointInTime' - { _rditpitDBSecurityGroups = Nothing - , _rditpitUseLatestRestorableTime = Nothing + { _rditpitUseLatestRestorableTime = Nothing , _rditpitPubliclyAccessible = Nothing , _rditpitAutoMinorVersionUpgrade = Nothing , _rditpitDBSubnetGroupName = Nothing , _rditpitRestoreTime = Nothing , _rditpitIOPS = Nothing - , _rditpitDomain = Nothing , _rditpitEngine = Nothing , _rditpitTDECredentialPassword = Nothing , _rditpitDBInstanceClass = Nothing , _rditpitLicenseModel = Nothing , _rditpitAvailabilityZone = Nothing - , _rditpitVPCSecurityGroupIds = Nothing , _rditpitMultiAZ = Nothing , _rditpitOptionGroupName = Nothing , _rditpitCopyTagsToSnapshot = Nothing @@ -188,12 +173,6 @@ , _rditpitTargetDBInstanceIdentifier = pTargetDBInstanceIdentifier_ } --- | A list of DB security groups to associate with this DB instance. --- --- Default: The default DB security group for the database engine. -rditpitDBSecurityGroups :: Lens' RestoreDBInstanceToPointInTime [Text] -rditpitDBSecurityGroups = lens _rditpitDBSecurityGroups (\ s a -> s{_rditpitDBSecurityGroups = a}) . _Default . _Coerce; - -- | Specifies whether ('true') or not ('false') the DB instance is restored -- from the latest backup time. -- @@ -259,10 +238,6 @@ rditpitIOPS :: Lens' RestoreDBInstanceToPointInTime (Maybe Int) rditpitIOPS = lens _rditpitIOPS (\ s a -> s{_rditpitIOPS = a}); --- | Specify the Active Directory Domain to restore the instance in. -rditpitDomain :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) -rditpitDomain = lens _rditpitDomain (\ s a -> s{_rditpitDomain = a}); - -- | The database engine to use for the new instance. -- -- Default: The same as source @@ -283,7 +258,7 @@ -- | The compute and memory capacity of the Amazon RDS DB instance. -- -- Valid Values: --- 'db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium' +-- 'db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large' -- -- Default: The same DBInstanceClass as the original DB instance. rditpitDBInstanceClass :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) @@ -309,13 +284,6 @@ rditpitAvailabilityZone :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) rditpitAvailabilityZone = lens _rditpitAvailabilityZone (\ s a -> s{_rditpitAvailabilityZone = a}); --- | A list of EC2 VPC security groups to associate with this DB instance. --- --- Default: The default EC2 VPC security group for the DB subnet group\'s --- VPC. -rditpitVPCSecurityGroupIds :: Lens' RestoreDBInstanceToPointInTime [Text] -rditpitVPCSecurityGroupIds = lens _rditpitVPCSecurityGroupIds (\ s a -> s{_rditpitVPCSecurityGroupIds = a}) . _Default . _Coerce; - -- | Specifies if the DB instance is a Multi-AZ deployment. -- -- Constraint: You cannot specify the AvailabilityZone parameter if the @@ -332,7 +300,8 @@ rditpitOptionGroupName :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) rditpitOptionGroupName = lens _rditpitOptionGroupName (\ s a -> s{_rditpitOptionGroupName = a}); --- | This property is not currently implemented. +-- | True to copy all tags from the restored DB instance to snapshots of the +-- DB instance; otherwise false. The default is false. rditpitCopyTagsToSnapshot :: Lens' RestoreDBInstanceToPointInTime (Maybe Bool) rditpitCopyTagsToSnapshot = lens _rditpitCopyTagsToSnapshot (\ s a -> s{_rditpitCopyTagsToSnapshot = a}); @@ -417,10 +386,6 @@ ["Action" =: ("RestoreDBInstanceToPointInTime" :: ByteString), "Version" =: ("2014-10-31" :: ByteString), - "DBSecurityGroups" =: - toQuery - (toQueryList "DBSecurityGroupName" <$> - _rditpitDBSecurityGroups), "UseLatestRestorableTime" =: _rditpitUseLatestRestorableTime, "PubliclyAccessible" =: _rditpitPubliclyAccessible, @@ -428,17 +393,12 @@ _rditpitAutoMinorVersionUpgrade, "DBSubnetGroupName" =: _rditpitDBSubnetGroupName, "RestoreTime" =: _rditpitRestoreTime, - "Iops" =: _rditpitIOPS, "Domain" =: _rditpitDomain, - "Engine" =: _rditpitEngine, + "Iops" =: _rditpitIOPS, "Engine" =: _rditpitEngine, "TdeCredentialPassword" =: _rditpitTDECredentialPassword, "DBInstanceClass" =: _rditpitDBInstanceClass, "LicenseModel" =: _rditpitLicenseModel, "AvailabilityZone" =: _rditpitAvailabilityZone, - "VpcSecurityGroupIds" =: - toQuery - (toQueryList "VpcSecurityGroupId" <$> - _rditpitVPCSecurityGroupIds), "MultiAZ" =: _rditpitMultiAZ, "OptionGroupName" =: _rditpitOptionGroupName, "CopyTagsToSnapshot" =: _rditpitCopyTagsToSnapshot, 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 @@ -54,7 +54,6 @@ , _DBSecurityGroupNotFoundFault , _DBSecurityGroupNotSupportedFault , _InstanceQuotaExceededFault - , _DomainNotFoundFault , _DBParameterGroupNotFoundFault , _InvalidDBSubnetGroupFault , _ReservedDBInstancesOfferingNotFoundFault @@ -77,7 +76,6 @@ , _InvalidRestoreFault , _InvalidDBSecurityGroupStateFault , _ResourceNotFoundFault - , _InsufficientDomainCapacityFault , _DBSubnetGroupNotFoundFault , _DBUpgradeDependencyFailureFault , _InvalidDBInstanceStateFault @@ -202,6 +200,7 @@ , devDBParameterGroupFamily , devSupportedCharacterSets , devDBEngineDescription + , devValidUpgradeTarget -- * DBInstance , DBInstance @@ -245,7 +244,6 @@ , diPendingModifiedValues , diStorageType , diStatusInfos - , diDomainMemberships , diDBName -- * DBInstanceStatusInfo @@ -333,13 +331,6 @@ , ddlfdSize , ddlfdLogFileName - -- * DomainMembership - , DomainMembership - , domainMembership - , dmStatus - , dmDomain - , dmConnectivity - -- * EC2SecurityGroup , EC2SecurityGroup , ec2SecurityGroup @@ -588,6 +579,15 @@ , tagValue , tagKey + -- * UpgradeTarget + , UpgradeTarget + , upgradeTarget + , utEngineVersion + , utIsMajorVersionUpgrade + , utEngine + , utAutoUpgrade + , utDescription + -- * VPCSecurityGroupMembership , VPCSecurityGroupMembership , vpcSecurityGroupMembership @@ -834,11 +834,6 @@ _InstanceQuotaExceededFault = _ServiceError . hasStatus 400 . hasCode "InstanceQuotaExceeded" --- | /Domain/ does not refer to an existing Active Directory Domain. -_DomainNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError -_DomainNotFoundFault = - _ServiceError . hasStatus 404 . hasCode "DomainNotFoundFault" - -- | /DBParameterGroupName/ does not refer to an existing DB parameter group. _DBParameterGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _DBParameterGroupNotFoundFault = @@ -963,12 +958,6 @@ _ResourceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundFault = _ServiceError . hasStatus 404 . hasCode "ResourceNotFoundFault" - --- | Requested Active Directory Domain has reached maximum number of --- instances. -_InsufficientDomainCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError -_InsufficientDomainCapacityFault = - _ServiceError . hasStatus 400 . hasCode "InsufficientDomainCapacityFault" -- | /DBSubnetGroupName/ does not refer to an existing DB subnet group. _DBSubnetGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError 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 @@ -799,6 +799,7 @@ , _devDBParameterGroupFamily :: !(Maybe Text) , _devSupportedCharacterSets :: !(Maybe [CharacterSet]) , _devDBEngineDescription :: !(Maybe Text) + , _devValidUpgradeTarget :: !(Maybe [UpgradeTarget]) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DBEngineVersion' with the minimum fields required to make a request. @@ -818,6 +819,8 @@ -- * 'devSupportedCharacterSets' -- -- * 'devDBEngineDescription' +-- +-- * 'devValidUpgradeTarget' dbEngineVersion :: DBEngineVersion dbEngineVersion = @@ -829,6 +832,7 @@ , _devDBParameterGroupFamily = Nothing , _devSupportedCharacterSets = Nothing , _devDBEngineDescription = Nothing + , _devValidUpgradeTarget = Nothing } -- | The version number of the database engine. @@ -862,6 +866,11 @@ devDBEngineDescription :: Lens' DBEngineVersion (Maybe Text) devDBEngineDescription = lens _devDBEngineDescription (\ s a -> s{_devDBEngineDescription = a}); +-- | A list of engine versions that this database engine version can be +-- upgraded to. +devValidUpgradeTarget :: Lens' DBEngineVersion [UpgradeTarget] +devValidUpgradeTarget = lens _devValidUpgradeTarget (\ s a -> s{_devValidUpgradeTarget = a}) . _Default . _Coerce; + instance FromXML DBEngineVersion where parseXML x = DBEngineVersion' <$> @@ -874,6 +883,9 @@ (x .@? "SupportedCharacterSets" .!@ mempty >>= may (parseXMLList "CharacterSet")) <*> (x .@? "DBEngineDescription") + <*> + (x .@? "ValidUpgradeTarget" .!@ mempty >>= + may (parseXMLList "UpgradeTarget")) -- | Contains the result of a successful invocation of the following actions: -- @@ -925,7 +937,6 @@ , _diPendingModifiedValues :: !(Maybe PendingModifiedValues) , _diStorageType :: !(Maybe Text) , _diStatusInfos :: !(Maybe [DBInstanceStatusInfo]) - , _diDomainMemberships :: !(Maybe [DomainMembership]) , _diDBName :: !(Maybe Text) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -1011,8 +1022,6 @@ -- -- * 'diStatusInfos' -- --- * 'diDomainMemberships' --- -- * 'diDBName' dbInstance :: DBInstance @@ -1057,7 +1066,6 @@ , _diPendingModifiedValues = Nothing , _diStorageType = Nothing , _diStatusInfos = Nothing - , _diDomainMemberships = Nothing , _diDBName = Nothing } @@ -1224,7 +1232,8 @@ diDBParameterGroups :: Lens' DBInstance [DBParameterGroupStatus] diDBParameterGroups = lens _diDBParameterGroups (\ s a -> s{_diDBParameterGroups = a}) . _Default . _Coerce; --- | This property is not currently implemented. +-- | Specifies whether tags are copied from the DB instance to snapshots of +-- the DB instance. diCopyTagsToSnapshot :: Lens' DBInstance (Maybe Bool) diCopyTagsToSnapshot = lens _diCopyTagsToSnapshot (\ s a -> s{_diCopyTagsToSnapshot = a}); @@ -1262,17 +1271,12 @@ diStatusInfos :: Lens' DBInstance [DBInstanceStatusInfo] diStatusInfos = lens _diStatusInfos (\ s a -> s{_diStatusInfos = a}) . _Default . _Coerce; --- | The Active Directory Domain membership records associated with the DB --- instance. -diDomainMemberships :: Lens' DBInstance [DomainMembership] -diDomainMemberships = lens _diDomainMemberships (\ s a -> s{_diDomainMemberships = a}) . _Default . _Coerce; - -- | The meaning of this parameter differs according to the database engine -- you use. For example, this value returns either MySQL or PostgreSQL -- information when returning values from CreateDBInstanceReadReplica since -- Read Replicas are only supported for MySQL and PostgreSQL. -- --- __MySQL, SQL Server, PostgreSQL__ +-- __MySQL, SQL Server, PostgreSQL, Amazon Aurora__ -- -- Contains the name of the initial database of this instance that was -- provided at create time, if one was specified when the DB instance was @@ -1342,9 +1346,6 @@ <*> (x .@? "StatusInfos" .!@ mempty >>= may (parseXMLList "DBInstanceStatusInfo")) - <*> - (x .@? "DomainMemberships" .!@ mempty >>= - may (parseXMLList "DomainMembership")) <*> (x .@? "DBName") -- | Provides a list of status information for a DB instance. @@ -2012,53 +2013,6 @@ (x .@? "LastWritten") <*> (x .@? "Size") <*> (x .@? "LogFileName") --- | An Active Directory Domain membership record associated with the DB --- instance. --- --- /See:/ 'domainMembership' smart constructor. -data DomainMembership = DomainMembership' - { _dmStatus :: !(Maybe Text) - , _dmDomain :: !(Maybe Text) - , _dmConnectivity :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) - --- | Creates a value of 'DomainMembership' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dmStatus' --- --- * 'dmDomain' --- --- * 'dmConnectivity' -domainMembership - :: DomainMembership -domainMembership = - DomainMembership' - { _dmStatus = Nothing - , _dmDomain = Nothing - , _dmConnectivity = Nothing - } - --- | The status of the DB instance\'s Active Directory Domain membership --- (e.g. joined, pending-join, failed etc). -dmStatus :: Lens' DomainMembership (Maybe Text) -dmStatus = lens _dmStatus (\ s a -> s{_dmStatus = a}); - --- | The identifier of the Active Directory Domain. -dmDomain :: Lens' DomainMembership (Maybe Text) -dmDomain = lens _dmDomain (\ s a -> s{_dmDomain = a}); - --- | The observed connectivity of the Active Directory Domain. -dmConnectivity :: Lens' DomainMembership (Maybe Text) -dmConnectivity = lens _dmConnectivity (\ s a -> s{_dmConnectivity = a}); - -instance FromXML DomainMembership where - parseXML x - = DomainMembership' <$> - (x .@? "Status") <*> (x .@? "Domain") <*> - (x .@? "Connectivity") - -- | This data type is used as a response element in the following actions: -- -- - AuthorizeDBSecurityGroupIngress @@ -4014,6 +3968,74 @@ instance ToQuery Tag where toQuery Tag'{..} = mconcat ["Value" =: _tagValue, "Key" =: _tagKey] + +-- | The version of the database engine that a DB instance can be upgraded +-- to. +-- +-- /See:/ 'upgradeTarget' smart constructor. +data UpgradeTarget = UpgradeTarget' + { _utEngineVersion :: !(Maybe Text) + , _utIsMajorVersionUpgrade :: !(Maybe Bool) + , _utEngine :: !(Maybe Text) + , _utAutoUpgrade :: !(Maybe Bool) + , _utDescription :: !(Maybe Text) + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'UpgradeTarget' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'utEngineVersion' +-- +-- * 'utIsMajorVersionUpgrade' +-- +-- * 'utEngine' +-- +-- * 'utAutoUpgrade' +-- +-- * 'utDescription' +upgradeTarget + :: UpgradeTarget +upgradeTarget = + UpgradeTarget' + { _utEngineVersion = Nothing + , _utIsMajorVersionUpgrade = Nothing + , _utEngine = Nothing + , _utAutoUpgrade = Nothing + , _utDescription = Nothing + } + +-- | The version number of the upgrade target database engine. +utEngineVersion :: Lens' UpgradeTarget (Maybe Text) +utEngineVersion = lens _utEngineVersion (\ s a -> s{_utEngineVersion = a}); + +-- | A value that indicates whether a database engine will be upgraded to a +-- major version. +utIsMajorVersionUpgrade :: Lens' UpgradeTarget (Maybe Bool) +utIsMajorVersionUpgrade = lens _utIsMajorVersionUpgrade (\ s a -> s{_utIsMajorVersionUpgrade = a}); + +-- | The name of the upgrade target database engine. +utEngine :: Lens' UpgradeTarget (Maybe Text) +utEngine = lens _utEngine (\ s a -> s{_utEngine = a}); + +-- | A value that indicates whether the target version will be applied to any +-- source DB instances that have AutoMinorVersionUpgrade set to true. +utAutoUpgrade :: Lens' UpgradeTarget (Maybe Bool) +utAutoUpgrade = lens _utAutoUpgrade (\ s a -> s{_utAutoUpgrade = a}); + +-- | The version of the database engine that a DB instance can be upgraded +-- to. +utDescription :: Lens' UpgradeTarget (Maybe Text) +utDescription = lens _utDescription (\ s a -> s{_utDescription = a}); + +instance FromXML UpgradeTarget where + parseXML x + = UpgradeTarget' <$> + (x .@? "EngineVersion") <*> + (x .@? "IsMajorVersionUpgrade") + <*> (x .@? "Engine") + <*> (x .@? "AutoUpgrade") + <*> (x .@? "Description") -- | This data type is used as a response element for queries on VPC security -- group membership. 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 @@ -45,27 +45,30 @@ parseXML = parseXMLText "ApplyMethod" data SourceType - = DBInstance + = DBCluster + | DBClusterSnapshot + | DBInstance | DBParameterGroup | DBSecurityGroup - | DBSnapshot deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic) instance FromText SourceType where parser = takeLowerText >>= \case + "db-cluster" -> pure DBCluster + "db-cluster-snapshot" -> pure DBClusterSnapshot "db-instance" -> pure DBInstance "db-parameter-group" -> pure DBParameterGroup "db-security-group" -> pure DBSecurityGroup - "db-snapshot" -> pure DBSnapshot e -> fromTextError $ "Failure parsing SourceType from value: '" <> e - <> "'. Accepted values: db-instance, db-parameter-group, db-security-group, db-snapshot" + <> "'. Accepted values: db-cluster, db-cluster-snapshot, db-instance, db-parameter-group, db-security-group" instance ToText SourceType where toText = \case + DBCluster -> "db-cluster" + DBClusterSnapshot -> "db-cluster-snapshot" DBInstance -> "db-instance" DBParameterGroup -> "db-parameter-group" DBSecurityGroup -> "db-security-group" - DBSnapshot -> "db-snapshot" instance Hashable SourceType instance ToByteString SourceType