amazonka-rds 1.3.2 → 1.3.3

raw patch · 18 files changed

+295/−499 lines, 18 filesdep ~amazonka-coredep ~amazonka-rdsdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• LICENSE +0/−6
• README.md +1/−1
• amazonka-rds.cabal +5/−5
• gen/Network/AWS/RDS.hs +10/−14
• gen/Network/AWS/RDS/CopyDBSnapshot.hs +2/−1
• gen/Network/AWS/RDS/CreateDBCluster.hs +68/−64
• gen/Network/AWS/RDS/CreateDBInstance.hs +34/−159
• gen/Network/AWS/RDS/CreateDBInstanceReadReplica.hs +3/−2
• gen/Network/AWS/RDS/CreateDBSubnetGroup.hs +2/−2
• gen/Network/AWS/RDS/DeleteDBCluster.hs +23/−22
• gen/Network/AWS/RDS/ModifyDBCluster.hs +24/−23
• gen/Network/AWS/RDS/ModifyDBInstance.hs +6/−18
• gen/Network/AWS/RDS/PromoteReadReplica.hs +1/−1
• gen/Network/AWS/RDS/RestoreDBInstanceFromDBSnapshot.hs +9/−48
• gen/Network/AWS/RDS/RestoreDBInstanceToPointInTime.hs +6/−46
• gen/Network/AWS/RDS/Types.hs +10/−21
• gen/Network/AWS/RDS/Types/Product.hs +83/−61
• gen/Network/AWS/RDS/Types/Sum.hs +8/−5

@@ -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.

@@ -8,7 +8,7 @@  ## Version -`1.3.2`+`1.3.3`   ## Description

@@ -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

@@ -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

@@ -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}); 

@@ -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'

@@ -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" =:

@@ -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}); 

@@ -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

@@ -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'

@@ -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'

@@ -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" =:

@@ -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}); 

@@ -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,

@@ -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,

@@ -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

@@ -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.

@@ -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