amazonka-rds 1.4.3 → 1.4.4

raw patch · 72 files changed

+2653/−300 lines, 72 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

• README.md +1/−1
• amazonka-rds.cabal +12/−6
• fixture/CopyDBClusterParameterGroup.yaml +0/−0
• fixture/CopyDBClusterParameterGroupResponse.proto +0/−0
• fixture/DescribeSourceRegions.yaml +0/−0
• fixture/DescribeSourceRegionsResponse.proto +0/−0
• fixture/PromoteReadReplicaDBCluster.yaml +0/−0
• fixture/PromoteReadReplicaDBClusterResponse.proto +0/−0
• fixture/RestoreDBClusterFromS3.yaml +0/−0
• fixture/RestoreDBClusterFromS3Response.proto +0/−0
• gen/Network/AWS/RDS.hs +74/−1
• gen/Network/AWS/RDS/AddSourceIdentifierToSubscription.hs +4/−0
• gen/Network/AWS/RDS/AddTagsToResource.hs +1/−1
• gen/Network/AWS/RDS/ApplyPendingMaintenanceAction.hs +4/−1
• gen/Network/AWS/RDS/CopyDBClusterParameterGroup.hs +184/−0
• gen/Network/AWS/RDS/CopyDBClusterSnapshot.hs +4/−0
• gen/Network/AWS/RDS/CopyDBParameterGroup.hs +7/−3
• gen/Network/AWS/RDS/CopyDBSnapshot.hs +5/−0
• gen/Network/AWS/RDS/CopyOptionGroup.hs +7/−1
• gen/Network/AWS/RDS/CreateDBCluster.hs +60/−34
• gen/Network/AWS/RDS/CreateDBClusterParameterGroup.hs +15/−13
• gen/Network/AWS/RDS/CreateDBClusterSnapshot.hs +4/−0
• gen/Network/AWS/RDS/CreateDBInstance.hs +119/−45
• gen/Network/AWS/RDS/CreateDBInstanceReadReplica.hs +14/−3
• gen/Network/AWS/RDS/CreateDBParameterGroup.hs +2/−0
• gen/Network/AWS/RDS/CreateDBSecurityGroup.hs +3/−1
• gen/Network/AWS/RDS/CreateDBSnapshot.hs +6/−0
• gen/Network/AWS/RDS/CreateEventSubscription.hs +6/−1
• gen/Network/AWS/RDS/CreateOptionGroup.hs +2/−0
• gen/Network/AWS/RDS/DeleteDBCluster.hs +7/−1
• gen/Network/AWS/RDS/DeleteDBClusterParameterGroup.hs +3/−0
• gen/Network/AWS/RDS/DeleteDBInstance.hs +18/−3
• gen/Network/AWS/RDS/DeleteDBParameterGroup.hs +3/−0
• gen/Network/AWS/RDS/DeleteDBSecurityGroup.hs +4/−1
• gen/Network/AWS/RDS/DescribeCertificates.hs +3/−0
• gen/Network/AWS/RDS/DescribeDBClusterParameterGroups.hs +3/−0
• gen/Network/AWS/RDS/DescribeDBClusterParameters.hs +3/−0
• gen/Network/AWS/RDS/DescribeDBClusterSnapshotAttributes.hs +140/−0
• gen/Network/AWS/RDS/DescribeDBClusterSnapshots.hs +58/−5
• gen/Network/AWS/RDS/DescribeDBClusters.hs +3/−0
• gen/Network/AWS/RDS/DescribeDBEngineVersions.hs +3/−0
• gen/Network/AWS/RDS/DescribeDBInstances.hs +3/−0
• gen/Network/AWS/RDS/DescribeDBLogFiles.hs +3/−0
• gen/Network/AWS/RDS/DescribeDBParameterGroups.hs +3/−0
• gen/Network/AWS/RDS/DescribeDBParameters.hs +3/−0
• gen/Network/AWS/RDS/DescribeDBSnapshotAttributes.hs +12/−9
• gen/Network/AWS/RDS/DescribeDBSnapshots.hs +20/−10
• gen/Network/AWS/RDS/DescribeEvents.hs +6/−0
• gen/Network/AWS/RDS/DescribePendingMaintenanceActions.hs +1/−0
• gen/Network/AWS/RDS/DescribeSourceRegions.hs +179/−0
• gen/Network/AWS/RDS/DownloadDBLogFilePortion.hs +3/−0
• gen/Network/AWS/RDS/FailoverDBCluster.hs +19/−3
• gen/Network/AWS/RDS/ListTagsForResource.hs +1/−1
• gen/Network/AWS/RDS/ModifyDBCluster.hs +11/−0
• gen/Network/AWS/RDS/ModifyDBClusterSnapshotAttribute.hs +183/−0
• gen/Network/AWS/RDS/ModifyDBInstance.hs +52/−3
• gen/Network/AWS/RDS/ModifyDBParameterGroup.hs +4/−0
• gen/Network/AWS/RDS/ModifyDBSnapshotAttribute.hs +23/−20
• gen/Network/AWS/RDS/PromoteReadReplica.hs +8/−0
• gen/Network/AWS/RDS/PromoteReadReplicaDBCluster.hs +138/−0
• gen/Network/AWS/RDS/RebootDBInstance.hs +3/−0
• gen/Network/AWS/RDS/RemoveTagsFromResource.hs +1/−1
• gen/Network/AWS/RDS/ResetDBParameterGroup.hs +3/−0
• gen/Network/AWS/RDS/RestoreDBClusterFromS3.hs +454/−0
• gen/Network/AWS/RDS/RestoreDBClusterFromSnapshot.hs +109/−103
• gen/Network/AWS/RDS/RestoreDBClusterToPointInTime.hs +9/−1
• gen/Network/AWS/RDS/RestoreDBInstanceFromDBSnapshot.hs +6/−1
• gen/Network/AWS/RDS/RestoreDBInstanceToPointInTime.hs +9/−0
• gen/Network/AWS/RDS/Types.hs +55/−3
• gen/Network/AWS/RDS/Types/Product.hs +442/−24
• src/.gitkeep +0/−0
• test/Test/AWS/Gen/RDS.hs +108/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.3`+`1.4.4`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-rds-version:               1.4.3+version:               1.4.4 synopsis:              Amazon Relational Database Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -11,7 +11,7 @@ category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto+extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:     Amazon Relational Database Service @@ -67,6 +67,7 @@         , Network.AWS.RDS.AddTagsToResource         , Network.AWS.RDS.ApplyPendingMaintenanceAction         , Network.AWS.RDS.AuthorizeDBSecurityGroupIngress+        , Network.AWS.RDS.CopyDBClusterParameterGroup         , Network.AWS.RDS.CopyDBClusterSnapshot         , Network.AWS.RDS.CopyDBParameterGroup         , Network.AWS.RDS.CopyDBSnapshot@@ -96,6 +97,7 @@         , Network.AWS.RDS.DescribeCertificates         , Network.AWS.RDS.DescribeDBClusterParameterGroups         , Network.AWS.RDS.DescribeDBClusterParameters+        , Network.AWS.RDS.DescribeDBClusterSnapshotAttributes         , Network.AWS.RDS.DescribeDBClusterSnapshots         , Network.AWS.RDS.DescribeDBClusters         , Network.AWS.RDS.DescribeDBEngineVersions@@ -118,11 +120,13 @@         , Network.AWS.RDS.DescribePendingMaintenanceActions         , Network.AWS.RDS.DescribeReservedDBInstances         , Network.AWS.RDS.DescribeReservedDBInstancesOfferings+        , Network.AWS.RDS.DescribeSourceRegions         , Network.AWS.RDS.DownloadDBLogFilePortion         , Network.AWS.RDS.FailoverDBCluster         , Network.AWS.RDS.ListTagsForResource         , Network.AWS.RDS.ModifyDBCluster         , Network.AWS.RDS.ModifyDBClusterParameterGroup+        , Network.AWS.RDS.ModifyDBClusterSnapshotAttribute         , Network.AWS.RDS.ModifyDBInstance         , Network.AWS.RDS.ModifyDBParameterGroup         , Network.AWS.RDS.ModifyDBSnapshotAttribute@@ -130,12 +134,14 @@         , Network.AWS.RDS.ModifyEventSubscription         , Network.AWS.RDS.ModifyOptionGroup         , Network.AWS.RDS.PromoteReadReplica+        , Network.AWS.RDS.PromoteReadReplicaDBCluster         , Network.AWS.RDS.PurchaseReservedDBInstancesOffering         , Network.AWS.RDS.RebootDBInstance         , Network.AWS.RDS.RemoveSourceIdentifierFromSubscription         , Network.AWS.RDS.RemoveTagsFromResource         , Network.AWS.RDS.ResetDBClusterParameterGroup         , Network.AWS.RDS.ResetDBParameterGroup+        , Network.AWS.RDS.RestoreDBClusterFromS3         , Network.AWS.RDS.RestoreDBClusterFromSnapshot         , Network.AWS.RDS.RestoreDBClusterToPointInTime         , Network.AWS.RDS.RestoreDBInstanceFromDBSnapshot@@ -149,7 +155,7 @@         , Network.AWS.RDS.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5  test-suite amazonka-rds-test@@ -169,9 +175,9 @@         , Test.AWS.RDS.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-rds == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-rds == 1.4.4.*         , base         , bytestring         , tasty

@@ -106,6 +106,9 @@     -- ** DBLogFileNotFoundFault     , _DBLogFileNotFoundFault +    -- ** InvalidS3BucketFault+    , _InvalidS3BucketFault+     -- ** DBClusterAlreadyExistsFault     , _DBClusterAlreadyExistsFault @@ -298,6 +301,9 @@     -- ** ResetDBClusterParameterGroup     , module Network.AWS.RDS.ResetDBClusterParameterGroup +    -- ** RestoreDBClusterFromS3+    , module Network.AWS.RDS.RestoreDBClusterFromS3+     -- ** DescribeEvents (Paginated)     , module Network.AWS.RDS.DescribeEvents @@ -340,6 +346,9 @@     -- ** DescribeDBSnapshotAttributes     , module Network.AWS.RDS.DescribeDBSnapshotAttributes +    -- ** PromoteReadReplicaDBCluster+    , module Network.AWS.RDS.PromoteReadReplicaDBCluster+     -- ** RemoveTagsFromResource     , module Network.AWS.RDS.RemoveTagsFromResource @@ -364,6 +373,9 @@     -- ** AuthorizeDBSecurityGroupIngress     , module Network.AWS.RDS.AuthorizeDBSecurityGroupIngress +    -- ** DescribeSourceRegions+    , module Network.AWS.RDS.DescribeSourceRegions+     -- ** RestoreDBClusterFromSnapshot     , module Network.AWS.RDS.RestoreDBClusterFromSnapshot @@ -415,9 +427,15 @@     -- ** CreateDBParameterGroup     , module Network.AWS.RDS.CreateDBParameterGroup +    -- ** ModifyDBClusterSnapshotAttribute+    , module Network.AWS.RDS.ModifyDBClusterSnapshotAttribute+     -- ** ModifyDBCluster     , module Network.AWS.RDS.ModifyDBCluster +    -- ** CopyDBClusterParameterGroup+    , module Network.AWS.RDS.CopyDBClusterParameterGroup+     -- ** DescribeEventCategories     , module Network.AWS.RDS.DescribeEventCategories @@ -427,6 +445,9 @@     -- ** RestoreDBInstanceToPointInTime     , module Network.AWS.RDS.RestoreDBInstanceToPointInTime +    -- ** DescribeDBClusterSnapshotAttributes+    , module Network.AWS.RDS.DescribeDBClusterSnapshotAttributes+     -- ** DescribePendingMaintenanceActions     , module Network.AWS.RDS.DescribePendingMaintenanceActions @@ -469,7 +490,7 @@     -- ** CreateDBSecurityGroup     , module Network.AWS.RDS.CreateDBSecurityGroup -    -- ** DescribeDBClusterSnapshots+    -- ** DescribeDBClusterSnapshots (Paginated)     , module Network.AWS.RDS.DescribeDBClusterSnapshots      -- ** RebootDBInstance@@ -532,6 +553,7 @@     , Certificate     , certificate     , cCertificateType+    , cCertificateARN     , cValidTill     , cCertificateIdentifier     , cThumbprint@@ -551,12 +573,15 @@     , dcStorageEncrypted     , dcDBClusterIdentifier     , dcDBClusterMembers+    , dcReadReplicaIdentifiers+    , dcReplicationSourceIdentifier     , dcHostedZoneId     , dcDBClusterParameterGroup     , dcMasterUsername     , dcDBClusterResourceId     , dcEarliestRestorableTime     , dcEngine+    , dcDBClusterARN     , dcLatestRestorableTime     , dcPreferredMaintenanceWindow     , dcAvailabilityZones@@ -590,6 +615,7 @@     -- ** DBClusterParameterGroup     , DBClusterParameterGroup     , dbClusterParameterGroup+    , dcpgDBClusterParameterGroupARN     , dcpgDBParameterGroupFamily     , dcpgDBClusterParameterGroupName     , dcpgDescription@@ -607,6 +633,7 @@     , dcsStorageEncrypted     , dcsDBClusterIdentifier     , dcsMasterUsername+    , dcsDBClusterSnapshotARN     , dcsVPCId     , dcsDBClusterSnapshotIdentifier     , dcsEngine@@ -620,6 +647,18 @@     , dcsPercentProgress     , dcsPort +    -- ** DBClusterSnapshotAttribute+    , DBClusterSnapshotAttribute+    , dbClusterSnapshotAttribute+    , dcsaAttributeValues+    , dcsaAttributeName++    -- ** DBClusterSnapshotAttributesResult+    , DBClusterSnapshotAttributesResult+    , dbClusterSnapshotAttributesResult+    , dcsarDBClusterSnapshotIdentifier+    , dcsarDBClusterSnapshotAttributes+     -- ** DBEngineVersion     , DBEngineVersion     , dbEngineVersion@@ -641,6 +680,7 @@     , diDBClusterIdentifier     , diPubliclyAccessible     , diAutoMinorVersionUpgrade+    , diDBInstanceARN     , diMasterUsername     , diReadReplicaDBInstanceIdentifiers     , diMonitoringRoleARN@@ -692,6 +732,7 @@     -- ** DBParameterGroup     , DBParameterGroup     , dbParameterGroup+    , dpgDBParameterGroupARN     , dpgDBParameterGroupFamily     , dpgDBParameterGroupName     , dpgDescription@@ -712,6 +753,7 @@     , dbSecurityGroup     , dbsgVPCId     , dbsgOwnerId+    , dbsgDBSecurityGroupARN     , dbsgIPRanges     , dbsgDBSecurityGroupName     , dbsgEC2SecurityGroups@@ -728,6 +770,7 @@     , dbSnapshot     , dsEngineVersion     , dsStatus+    , dsDBSnapshotARN     , dsMasterUsername     , dsSourceRegion     , dsIOPS@@ -769,6 +812,7 @@     , dsgVPCId     , dsgSubnets     , dsgDBSubnetGroupDescription+    , dsgDBSubnetGroupARN     , dsgSubnetGroupStatus      -- ** DescribeDBLogFilesDetails@@ -812,6 +856,7 @@     , Event     , event     , eSourceType+    , eSourceARN     , eSourceIdentifier     , eDate     , eEventCategories@@ -830,6 +875,7 @@     , esCustomerAWSId     , esCustSubscriptionId     , esSNSTopicARN+    , esEventSubscriptionARN     , esEnabled     , esSourceType     , esSubscriptionCreationTime@@ -858,6 +904,7 @@     , oOptionSettings     , oVPCSecurityGroupMemberships     , oDBSecurityGroupMemberships+    , oOptionVersion     , oPort      -- ** OptionConfiguration@@ -866,6 +913,7 @@     , ocOptionSettings     , ocVPCSecurityGroupMemberships     , ocDBSecurityGroupMemberships+    , ocOptionVersion     , ocPort     , ocOptionName @@ -876,6 +924,7 @@     , ogVPCId     , ogAllowsVPCAndNonVPCInstanceMemberships     , ogEngineName+    , ogOptionGroupARN     , ogMajorEngineVersion     , ogOptions     , ogOptionGroupName@@ -890,8 +939,10 @@     , OptionGroupOption     , optionGroupOption     , ogoMinimumRequiredMinorEngineVersion+    , ogoOptionsConflictsWith     , ogoPermanent     , ogoPersistent+    , ogoOptionGroupOptionVersions     , ogoEngineName     , ogoMajorEngineVersion     , ogoName@@ -924,6 +975,12 @@     , osAllowedValues     , osDescription +    -- ** OptionVersion+    , OptionVersion+    , optionVersion+    , ovVersion+    , ovIsDefault+     -- ** OrderableDBInstanceOption     , OrderableDBInstanceOption     , orderableDBInstanceOption@@ -969,8 +1026,10 @@     , pendingModifiedValues     , pmvEngineVersion     , pmvMasterUserPassword+    , pmvDBSubnetGroupName     , pmvIOPS     , pmvDBInstanceClass+    , pmvLicenseModel     , pmvCACertificateIdentifier     , pmvDBInstanceIdentifier     , pmvBackupRetentionPeriod@@ -994,6 +1053,7 @@     , rdiStartTime     , rdiProductDescription     , rdiReservedDBInstanceId+    , rdiReservedDBInstanceARN     , rdiDBInstanceClass     , rdiMultiAZ     , rdiReservedDBInstancesOfferingId@@ -1023,6 +1083,13 @@     , rpmaPendingMaintenanceActionDetails     , rpmaResourceIdentifier +    -- ** SourceRegion+    , SourceRegion+    , sourceRegion+    , srStatus+    , srRegionName+    , srEndpoint+     -- ** Subnet     , Subnet     , subnet@@ -1056,6 +1123,7 @@ import           Network.AWS.RDS.AddTagsToResource import           Network.AWS.RDS.ApplyPendingMaintenanceAction import           Network.AWS.RDS.AuthorizeDBSecurityGroupIngress+import           Network.AWS.RDS.CopyDBClusterParameterGroup import           Network.AWS.RDS.CopyDBClusterSnapshot import           Network.AWS.RDS.CopyDBParameterGroup import           Network.AWS.RDS.CopyDBSnapshot@@ -1086,6 +1154,7 @@ import           Network.AWS.RDS.DescribeDBClusterParameterGroups import           Network.AWS.RDS.DescribeDBClusterParameters import           Network.AWS.RDS.DescribeDBClusters+import           Network.AWS.RDS.DescribeDBClusterSnapshotAttributes import           Network.AWS.RDS.DescribeDBClusterSnapshots import           Network.AWS.RDS.DescribeDBEngineVersions import           Network.AWS.RDS.DescribeDBInstances@@ -1107,11 +1176,13 @@ import           Network.AWS.RDS.DescribePendingMaintenanceActions import           Network.AWS.RDS.DescribeReservedDBInstances import           Network.AWS.RDS.DescribeReservedDBInstancesOfferings+import           Network.AWS.RDS.DescribeSourceRegions import           Network.AWS.RDS.DownloadDBLogFilePortion import           Network.AWS.RDS.FailoverDBCluster import           Network.AWS.RDS.ListTagsForResource import           Network.AWS.RDS.ModifyDBCluster import           Network.AWS.RDS.ModifyDBClusterParameterGroup+import           Network.AWS.RDS.ModifyDBClusterSnapshotAttribute import           Network.AWS.RDS.ModifyDBInstance import           Network.AWS.RDS.ModifyDBParameterGroup import           Network.AWS.RDS.ModifyDBSnapshotAttribute@@ -1119,12 +1190,14 @@ import           Network.AWS.RDS.ModifyEventSubscription import           Network.AWS.RDS.ModifyOptionGroup import           Network.AWS.RDS.PromoteReadReplica+import           Network.AWS.RDS.PromoteReadReplicaDBCluster import           Network.AWS.RDS.PurchaseReservedDBInstancesOffering import           Network.AWS.RDS.RebootDBInstance import           Network.AWS.RDS.RemoveSourceIdentifierFromSubscription import           Network.AWS.RDS.RemoveTagsFromResource import           Network.AWS.RDS.ResetDBClusterParameterGroup import           Network.AWS.RDS.ResetDBParameterGroup+import           Network.AWS.RDS.RestoreDBClusterFromS3 import           Network.AWS.RDS.RestoreDBClusterFromSnapshot import           Network.AWS.RDS.RestoreDBClusterToPointInTime import           Network.AWS.RDS.RestoreDBInstanceFromDBSnapshot

@@ -77,9 +77,13 @@ -- Constraints: -- -- -   If the source type is a DB instance, then a 'DBInstanceIdentifier' must be supplied.+-- -- -   If the source type is a DB security group, a 'DBSecurityGroupName' must be supplied.+-- -- -   If the source type is a DB parameter group, a 'DBParameterGroupName' must be supplied.+-- -- -   If the source type is a DB snapshot, a 'DBSnapshotIdentifier' must be supplied.+-- asitsSourceIdentifier :: Lens' AddSourceIdentifierToSubscription Text asitsSourceIdentifier = lens _asitsSourceIdentifier (\ s a -> s{_asitsSourceIdentifier = a}); 

@@ -66,7 +66,7 @@     , _attrTags = mempty     } --- | The Amazon RDS resource the tags will be added to. This value is an Amazon Resource Name (ARN). For information about creating an ARN, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.html#USER_Tagging.ARN Constructing an RDS Amazon Resource Name (ARN)>.+-- | The Amazon RDS resource the tags will be added to. This value is an Amazon Resource Name (ARN). For information about creating an ARN, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.ARN.html#USER_Tagging.ARN.Constructing Constructing an RDS Amazon Resource Name (ARN)>. attrResourceName :: Lens' AddTagsToResource Text attrResourceName = lens _attrResourceName (\ s a -> s{_attrResourceName = a}); 

@@ -74,7 +74,7 @@     , _apmaOptInType = pOptInType_     } --- | The RDS Amazon Resource Name (ARN) of the resource that the pending maintenance action applies to. For information about creating an ARN, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.html#USER_Tagging.ARN Constructing an RDS Amazon Resource Name (ARN)>.+-- | The RDS Amazon Resource Name (ARN) of the resource that the pending maintenance action applies to. For information about creating an ARN, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.ARN.html#USER_Tagging.ARN.Constructing Constructing an RDS Amazon Resource Name (ARN)>. apmaResourceIdentifier :: Lens' ApplyPendingMaintenanceAction Text apmaResourceIdentifier = lens _apmaResourceIdentifier (\ s a -> s{_apmaResourceIdentifier = a}); @@ -89,8 +89,11 @@ -- Valid values: -- -- -   'immediate' - Apply the maintenance action immediately.+-- -- -   'next-maintenance' - Apply the maintenance action during the next maintenance window for the resource.+-- -- -   'undo-opt-in' - Cancel any existing 'next-maintenance' opt-in requests.+-- apmaOptInType :: Lens' ApplyPendingMaintenanceAction Text apmaOptInType = lens _apmaOptInType (\ s a -> s{_apmaOptInType = a}); 

@@ -0,0 +1,184 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.RDS.CopyDBClusterParameterGroup+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Copies the specified DB cluster parameter group.+module Network.AWS.RDS.CopyDBClusterParameterGroup+    (+    -- * Creating a Request+      copyDBClusterParameterGroup+    , CopyDBClusterParameterGroup+    -- * Request Lenses+    , cdbcpgTags+    , cdbcpgSourceDBClusterParameterGroupIdentifier+    , cdbcpgTargetDBClusterParameterGroupIdentifier+    , cdbcpgTargetDBClusterParameterGroupDescription++    -- * Destructuring the Response+    , copyDBClusterParameterGroupResponse+    , CopyDBClusterParameterGroupResponse+    -- * Response Lenses+    , cdcpgrsDBClusterParameterGroup+    , cdcpgrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'copyDBClusterParameterGroup' smart constructor.+data CopyDBClusterParameterGroup = CopyDBClusterParameterGroup'+    { _cdbcpgTags                                     :: !(Maybe [Tag])+    , _cdbcpgSourceDBClusterParameterGroupIdentifier  :: !Text+    , _cdbcpgTargetDBClusterParameterGroupIdentifier  :: !Text+    , _cdbcpgTargetDBClusterParameterGroupDescription :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CopyDBClusterParameterGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdbcpgTags'+--+-- * 'cdbcpgSourceDBClusterParameterGroupIdentifier'+--+-- * 'cdbcpgTargetDBClusterParameterGroupIdentifier'+--+-- * 'cdbcpgTargetDBClusterParameterGroupDescription'+copyDBClusterParameterGroup+    :: Text -- ^ 'cdbcpgSourceDBClusterParameterGroupIdentifier'+    -> Text -- ^ 'cdbcpgTargetDBClusterParameterGroupIdentifier'+    -> Text -- ^ 'cdbcpgTargetDBClusterParameterGroupDescription'+    -> CopyDBClusterParameterGroup+copyDBClusterParameterGroup pSourceDBClusterParameterGroupIdentifier_ pTargetDBClusterParameterGroupIdentifier_ pTargetDBClusterParameterGroupDescription_ =+    CopyDBClusterParameterGroup'+    { _cdbcpgTags = Nothing+    , _cdbcpgSourceDBClusterParameterGroupIdentifier = pSourceDBClusterParameterGroupIdentifier_+    , _cdbcpgTargetDBClusterParameterGroupIdentifier = pTargetDBClusterParameterGroupIdentifier_+    , _cdbcpgTargetDBClusterParameterGroupDescription = pTargetDBClusterParameterGroupDescription_+    }++-- | Undocumented member.+cdbcpgTags :: Lens' CopyDBClusterParameterGroup [Tag]+cdbcpgTags = lens _cdbcpgTags (\ s a -> s{_cdbcpgTags = a}) . _Default . _Coerce;++-- | The identifier or Amazon Resource Name (ARN) for the source DB cluster parameter group. For information about creating an ARN, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.ARN.html#USER_Tagging.ARN.Constructing Constructing an RDS Amazon Resource Name (ARN)>.+--+-- Constraints:+--+-- -   Must specify a valid DB cluster parameter group.+--+-- -   If the source DB cluster parameter group is in the same region as the copy, specify a valid DB parameter group identifier, for example 'my-db-cluster-param-group', or a valid ARN.+--+-- -   If the source DB parameter group is in a different region than the copy, specify a valid DB cluster parameter group ARN, for example 'arn:aws:rds:us-east-1:123456789012:cluster-pg:custom-cluster-group1'.+--+cdbcpgSourceDBClusterParameterGroupIdentifier :: Lens' CopyDBClusterParameterGroup Text+cdbcpgSourceDBClusterParameterGroupIdentifier = lens _cdbcpgSourceDBClusterParameterGroupIdentifier (\ s a -> s{_cdbcpgSourceDBClusterParameterGroupIdentifier = a});++-- | The identifier for the copied DB cluster parameter group.+--+-- Constraints:+--+-- -   Cannot be null, empty, or blank+--+-- -   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+--+-- Example: 'my-cluster-param-group1'+cdbcpgTargetDBClusterParameterGroupIdentifier :: Lens' CopyDBClusterParameterGroup Text+cdbcpgTargetDBClusterParameterGroupIdentifier = lens _cdbcpgTargetDBClusterParameterGroupIdentifier (\ s a -> s{_cdbcpgTargetDBClusterParameterGroupIdentifier = a});++-- | A description for the copied DB cluster parameter group.+cdbcpgTargetDBClusterParameterGroupDescription :: Lens' CopyDBClusterParameterGroup Text+cdbcpgTargetDBClusterParameterGroupDescription = lens _cdbcpgTargetDBClusterParameterGroupDescription (\ s a -> s{_cdbcpgTargetDBClusterParameterGroupDescription = a});++instance AWSRequest CopyDBClusterParameterGroup where+        type Rs CopyDBClusterParameterGroup =+             CopyDBClusterParameterGroupResponse+        request = postQuery rds+        response+          = receiveXMLWrapper+              "CopyDBClusterParameterGroupResult"+              (\ s h x ->+                 CopyDBClusterParameterGroupResponse' <$>+                   (x .@? "DBClusterParameterGroup") <*>+                     (pure (fromEnum s)))++instance Hashable CopyDBClusterParameterGroup++instance NFData CopyDBClusterParameterGroup++instance ToHeaders CopyDBClusterParameterGroup where+        toHeaders = const mempty++instance ToPath CopyDBClusterParameterGroup where+        toPath = const "/"++instance ToQuery CopyDBClusterParameterGroup where+        toQuery CopyDBClusterParameterGroup'{..}+          = mconcat+              ["Action" =:+                 ("CopyDBClusterParameterGroup" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "Tags" =:+                 toQuery (toQueryList "Tag" <$> _cdbcpgTags),+               "SourceDBClusterParameterGroupIdentifier" =:+                 _cdbcpgSourceDBClusterParameterGroupIdentifier,+               "TargetDBClusterParameterGroupIdentifier" =:+                 _cdbcpgTargetDBClusterParameterGroupIdentifier,+               "TargetDBClusterParameterGroupDescription" =:+                 _cdbcpgTargetDBClusterParameterGroupDescription]++-- | /See:/ 'copyDBClusterParameterGroupResponse' smart constructor.+data CopyDBClusterParameterGroupResponse = CopyDBClusterParameterGroupResponse'+    { _cdcpgrsDBClusterParameterGroup :: !(Maybe DBClusterParameterGroup)+    , _cdcpgrsResponseStatus          :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CopyDBClusterParameterGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdcpgrsDBClusterParameterGroup'+--+-- * 'cdcpgrsResponseStatus'+copyDBClusterParameterGroupResponse+    :: Int -- ^ 'cdcpgrsResponseStatus'+    -> CopyDBClusterParameterGroupResponse+copyDBClusterParameterGroupResponse pResponseStatus_ =+    CopyDBClusterParameterGroupResponse'+    { _cdcpgrsDBClusterParameterGroup = Nothing+    , _cdcpgrsResponseStatus = pResponseStatus_+    }++-- | Undocumented member.+cdcpgrsDBClusterParameterGroup :: Lens' CopyDBClusterParameterGroupResponse (Maybe DBClusterParameterGroup)+cdcpgrsDBClusterParameterGroup = lens _cdcpgrsDBClusterParameterGroup (\ s a -> s{_cdcpgrsDBClusterParameterGroup = a});++-- | The response status code.+cdcpgrsResponseStatus :: Lens' CopyDBClusterParameterGroupResponse Int+cdcpgrsResponseStatus = lens _cdcpgrsResponseStatus (\ s a -> s{_cdcpgrsResponseStatus = a});++instance NFData CopyDBClusterParameterGroupResponse

@@ -82,7 +82,9 @@ -- 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-cluster-snapshot1'@@ -94,7 +96,9 @@ -- 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-cluster-snapshot2'

@@ -83,13 +83,14 @@ cdpgTags :: Lens' CopyDBParameterGroup [Tag] cdpgTags = lens _cdpgTags (\ s a -> s{_cdpgTags = a}) . _Default . _Coerce; --- | The identifier or ARN for the source DB parameter group. For information about creating an ARN, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.html#USER_Tagging.ARN Constructing an RDS Amazon Resource Name (ARN)>.+-- | The identifier or ARN for the source DB parameter group. For information about creating an ARN, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.ARN.html#USER_Tagging.ARN.Constructing Constructing an RDS Amazon Resource Name (ARN)>. -- -- Constraints: -- -- -   Must specify a valid DB parameter group.--- -   If the source DB parameter group is in the same region as the copy, specify a valid DB parameter group identifier, for example 'my-db-param-group', or a valid ARN.--- -   If the source DB parameter group is in a different region than the copy, specify a valid DB parameter group ARN, for example 'arn:aws:rds:us-west-2:123456789012:pg:special-parameters'.+--+-- -   Must specify a valid DB parameter group identifier, for example 'my-db-param-group', or a valid ARN.+-- cdpgSourceDBParameterGroupIdentifier :: Lens' CopyDBParameterGroup Text cdpgSourceDBParameterGroupIdentifier = lens _cdpgSourceDBParameterGroupIdentifier (\ s a -> s{_cdpgSourceDBParameterGroupIdentifier = a}); @@ -98,8 +99,11 @@ -- Constraints: -- -- -   Cannot be null, empty, or blank+-- -- -   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 -- -- Example: 'my-db-parameter-group'

@@ -110,7 +110,9 @@ -- Constraints: -- -- -   Must specify a valid system snapshot in the \"available\" state.+-- -- -   If the source snapshot is in the same region as the copy, specify a valid DB snapshot identifier.+-- -- -   If the source snapshot is in a different region than the copy, specify a valid DB snapshot ARN. For more information, go to <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_CopySnapshot.html Copying a DB Snapshot>. -- -- Example: 'rds:mydb-2012-04-02-00-01'@@ -124,8 +126,11 @@ -- Constraints: -- -- -   Cannot be null, empty, or blank+-- -- -   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 -- -- Example: 'my-db-snapshot'

@@ -83,13 +83,16 @@ cTags :: Lens' CopyOptionGroup [Tag] cTags = lens _cTags (\ s a -> s{_cTags = a}) . _Default . _Coerce; --- | The identifier or ARN for the source option group. For information about creating an ARN, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.html#USER_Tagging.ARN Constructing an RDS Amazon Resource Name (ARN)>.+-- | The identifier or ARN for the source option group. For information about creating an ARN, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.ARN.html#USER_Tagging.ARN.Constructing Constructing an RDS Amazon Resource Name (ARN)>. -- -- Constraints: -- -- -   Must specify a valid option group.+-- -- -   If the source option group is in the same region as the copy, specify a valid option group identifier, for example 'my-option-group', or a valid ARN.+-- -- -   If the source option group is in a different region than the copy, specify a valid option group ARN, for example 'arn:aws:rds:us-west-2:123456789012:og:special-options'.+-- cSourceOptionGroupIdentifier :: Lens' CopyOptionGroup Text cSourceOptionGroupIdentifier = lens _cSourceOptionGroupIdentifier (\ s a -> s{_cSourceOptionGroupIdentifier = a}); @@ -98,8 +101,11 @@ -- Constraints: -- -- -   Cannot be null, empty, or blank+-- -- -   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 -- -- Example: 'my-option-group'

@@ -18,7 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a new Amazon Aurora DB cluster. For more information on Amazon Aurora, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/CHAP_Aurora.html Aurora on Amazon RDS> in the /Amazon RDS User Guide./+-- Creates a new Amazon Aurora DB cluster.+--+-- You can use the 'ReplicationSourceIdentifier' parameter to create the DB cluster as a Read Replica of another DB cluster.+--+-- For more information on Amazon Aurora, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/CHAP_Aurora.html Aurora on Amazon RDS> in the /Amazon RDS User Guide./ module Network.AWS.RDS.CreateDBCluster     (     -- * Creating a Request@@ -27,6 +31,9 @@     -- * Request Lenses     , cdcEngineVersion     , cdcStorageEncrypted+    , cdcMasterUserPassword+    , cdcReplicationSourceIdentifier+    , cdcMasterUsername     , cdcDBSubnetGroupName     , cdcPreferredMaintenanceWindow     , cdcAvailabilityZones@@ -42,8 +49,6 @@     , cdcPort     , cdcDBClusterIdentifier     , cdcEngine-    , cdcMasterUsername-    , cdcMasterUserPassword      -- * Destructuring the Response     , createDBClusterResponse@@ -66,6 +71,9 @@ data CreateDBCluster = CreateDBCluster'     { _cdcEngineVersion               :: !(Maybe Text)     , _cdcStorageEncrypted            :: !(Maybe Bool)+    , _cdcMasterUserPassword          :: !(Maybe Text)+    , _cdcReplicationSourceIdentifier :: !(Maybe Text)+    , _cdcMasterUsername              :: !(Maybe Text)     , _cdcDBSubnetGroupName           :: !(Maybe Text)     , _cdcPreferredMaintenanceWindow  :: !(Maybe Text)     , _cdcAvailabilityZones           :: !(Maybe [Text])@@ -81,8 +89,6 @@     , _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.@@ -93,6 +99,12 @@ -- -- * 'cdcStorageEncrypted' --+-- * 'cdcMasterUserPassword'+--+-- * 'cdcReplicationSourceIdentifier'+--+-- * 'cdcMasterUsername'+-- -- * 'cdcDBSubnetGroupName' -- -- * 'cdcPreferredMaintenanceWindow'@@ -122,20 +134,17 @@ -- * 'cdcDBClusterIdentifier' -- -- * 'cdcEngine'------ * 'cdcMasterUsername'------ * 'cdcMasterUserPassword' createDBCluster     :: Text -- ^ 'cdcDBClusterIdentifier'     -> Text -- ^ 'cdcEngine'-    -> Text -- ^ 'cdcMasterUsername'-    -> Text -- ^ 'cdcMasterUserPassword'     -> CreateDBCluster-createDBCluster pDBClusterIdentifier_ pEngine_ pMasterUsername_ pMasterUserPassword_ =+createDBCluster pDBClusterIdentifier_ pEngine_ =     CreateDBCluster'     { _cdcEngineVersion = Nothing     , _cdcStorageEncrypted = Nothing+    , _cdcMasterUserPassword = Nothing+    , _cdcReplicationSourceIdentifier = Nothing+    , _cdcMasterUsername = Nothing     , _cdcDBSubnetGroupName = Nothing     , _cdcPreferredMaintenanceWindow = Nothing     , _cdcAvailabilityZones = Nothing@@ -151,8 +160,6 @@     , _cdcPort = Nothing     , _cdcDBClusterIdentifier = pDBClusterIdentifier_     , _cdcEngine = pEngine_-    , _cdcMasterUsername = pMasterUsername_-    , _cdcMasterUserPassword = pMasterUserPassword_     }  -- | The version number of the database engine to use.@@ -167,6 +174,29 @@ cdcStorageEncrypted :: Lens' CreateDBCluster (Maybe Bool) cdcStorageEncrypted = lens _cdcStorageEncrypted (\ s a -> s{_cdcStorageEncrypted = 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 Amazon Resource Name (ARN) of the source DB cluster if this DB cluster is created as a Read Replica.+cdcReplicationSourceIdentifier :: Lens' CreateDBCluster (Maybe Text)+cdcReplicationSourceIdentifier = lens _cdcReplicationSourceIdentifier (\ s a -> s{_cdcReplicationSourceIdentifier = a});++-- | The name of the master user for the 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. -- -- Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default.@@ -210,9 +240,13 @@ -- Constraints: -- -- -   Must be in the format 'hh24:mi-hh24:mi'.+-- -- -   Times should be in Universal Coordinated Time (UTC).+-- -- -   Must not conflict with the preferred maintenance window.+-- -- -   Must be at least 30 minutes.+-- cdcPreferredBackupWindow :: Lens' CreateDBCluster (Maybe Text) cdcPreferredBackupWindow = lens _cdcPreferredBackupWindow (\ s a -> s{_cdcPreferredBackupWindow = a}); @@ -223,6 +257,7 @@ -- Constraints: -- -- -   Must be a value from 1 to 35+-- cdcBackupRetentionPeriod :: Lens' CreateDBCluster (Maybe Int) cdcBackupRetentionPeriod = lens _cdcBackupRetentionPeriod (\ s a -> s{_cdcBackupRetentionPeriod = a}); @@ -234,13 +269,16 @@ cdcDatabaseName :: Lens' CreateDBCluster (Maybe Text) cdcDatabaseName = lens _cdcDatabaseName (\ s a -> s{_cdcDatabaseName = a}); --- | The name of the DB cluster parameter group to associate with this DB cluster. If this argument is omitted, 'default.aurora5.6' for the specified engine will be used.+-- | The name of the DB cluster parameter group to associate with this DB cluster. If this argument is omitted, 'default.aurora5.6' will be used. -- -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- cdcDBClusterParameterGroupName :: Lens' CreateDBCluster (Maybe Text) cdcDBClusterParameterGroupName = lens _cdcDBClusterParameterGroupName (\ s a -> s{_cdcDBClusterParameterGroupName = a}); @@ -265,7 +303,9 @@ -- 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'@@ -278,22 +318,6 @@ 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@@ -320,6 +344,10 @@                "Version" =: ("2014-10-31" :: ByteString),                "EngineVersion" =: _cdcEngineVersion,                "StorageEncrypted" =: _cdcStorageEncrypted,+               "MasterUserPassword" =: _cdcMasterUserPassword,+               "ReplicationSourceIdentifier" =:+                 _cdcReplicationSourceIdentifier,+               "MasterUsername" =: _cdcMasterUsername,                "DBSubnetGroupName" =: _cdcDBSubnetGroupName,                "PreferredMaintenanceWindow" =:                  _cdcPreferredMaintenanceWindow,@@ -342,9 +370,7 @@                "Tags" =: toQuery (toQueryList "Tag" <$> _cdcTags),                "Port" =: _cdcPort,                "DBClusterIdentifier" =: _cdcDBClusterIdentifier,-               "Engine" =: _cdcEngine,-               "MasterUsername" =: _cdcMasterUsername,-               "MasterUserPassword" =: _cdcMasterUserPassword]+               "Engine" =: _cdcEngine]  -- | /See:/ 'createDBClusterResponse' smart constructor. data CreateDBClusterResponse = CreateDBClusterResponse'

@@ -42,8 +42,8 @@     , createDBClusterParameterGroupResponse     , CreateDBClusterParameterGroupResponse     -- * Response Lenses-    , cdcpgrsDBClusterParameterGroup-    , cdcpgrsResponseStatus+    , cdbcpgrsDBClusterParameterGroup+    , cdbcpgrsResponseStatus     ) where  import           Network.AWS.Lens@@ -96,7 +96,9 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens -- -- This value is stored as a lowercase string.@@ -150,32 +152,32 @@  -- | /See:/ 'createDBClusterParameterGroupResponse' smart constructor. data CreateDBClusterParameterGroupResponse = CreateDBClusterParameterGroupResponse'-    { _cdcpgrsDBClusterParameterGroup :: !(Maybe DBClusterParameterGroup)-    , _cdcpgrsResponseStatus          :: !Int+    { _cdbcpgrsDBClusterParameterGroup :: !(Maybe DBClusterParameterGroup)+    , _cdbcpgrsResponseStatus          :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateDBClusterParameterGroupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdcpgrsDBClusterParameterGroup'+-- * 'cdbcpgrsDBClusterParameterGroup' ----- * 'cdcpgrsResponseStatus'+-- * 'cdbcpgrsResponseStatus' createDBClusterParameterGroupResponse-    :: Int -- ^ 'cdcpgrsResponseStatus'+    :: Int -- ^ 'cdbcpgrsResponseStatus'     -> CreateDBClusterParameterGroupResponse createDBClusterParameterGroupResponse pResponseStatus_ =     CreateDBClusterParameterGroupResponse'-    { _cdcpgrsDBClusterParameterGroup = Nothing-    , _cdcpgrsResponseStatus = pResponseStatus_+    { _cdbcpgrsDBClusterParameterGroup = Nothing+    , _cdbcpgrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.-cdcpgrsDBClusterParameterGroup :: Lens' CreateDBClusterParameterGroupResponse (Maybe DBClusterParameterGroup)-cdcpgrsDBClusterParameterGroup = lens _cdcpgrsDBClusterParameterGroup (\ s a -> s{_cdcpgrsDBClusterParameterGroup = a});+cdbcpgrsDBClusterParameterGroup :: Lens' CreateDBClusterParameterGroupResponse (Maybe DBClusterParameterGroup)+cdbcpgrsDBClusterParameterGroup = lens _cdbcpgrsDBClusterParameterGroup (\ s a -> s{_cdbcpgrsDBClusterParameterGroup = a});  -- | The response status code.-cdcpgrsResponseStatus :: Lens' CreateDBClusterParameterGroupResponse Int-cdcpgrsResponseStatus = lens _cdcpgrsResponseStatus (\ s a -> s{_cdcpgrsResponseStatus = a});+cdbcpgrsResponseStatus :: Lens' CreateDBClusterParameterGroupResponse Int+cdbcpgrsResponseStatus = lens _cdbcpgrsResponseStatus (\ s a -> s{_cdbcpgrsResponseStatus = a});  instance NFData CreateDBClusterParameterGroupResponse

@@ -82,7 +82,9 @@ -- 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-snapshot1'@@ -94,7 +96,9 @@ -- 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'

@@ -248,72 +248,118 @@ -- -- The following are the database engines and major and minor versions that are available with Amazon RDS. Not every database engine is available for every AWS region. ----- __MySQL__+-- __Amazon Aurora__ ----- -   __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 | 5.6.27'--- -   __Version 5.7 (Available in all regions):__ ' 5.7.10'+-- -   __Version 5.6 (only available in AWS regions ap-northeast-1, ap-northeast-2, ap-south-1, ap-southeast-2, eu-west-1, us-east-1, us-west-2):__ ' 5.6.10a' -- -- __MariaDB__ ----- -   __Version 10.0 (Available in all regions except AWS GovCloud (US) Region (us-gov-west-1)):__ ' 10.0.17 '+-- -   __Version 10.1 (available in all AWS regions except us-gov-west-1):__ ' 10.1.14' --+-- -   __Version 10.0 (available in all AWS regions):__ ' 10.0.17 | 10.0.24'+--+-- __Microsoft SQL Server Enterprise Edition (sqlserver-ee)__+--+-- -   __Version 11.00 (available in all AWS regions):__ ' 11.00.2100.60.v1 | 11.00.5058.0.v1 | 11.00.6020.0.v1'+--+-- -   __Version 10.50 (available in all AWS regions):__ ' 10.50.2789.0.v1 | 10.50.6000.34.v1 | 10.50.6529.0.v1'+--+-- __Microsoft SQL Server Express Edition (sqlserver-ex)__+--+-- -   __Version 12.00 (available in all AWS regions):__ ' 12.00.4422.0.v1'+--+-- -   __Version 11.00 (available in all AWS regions):__ ' 11.00.2100.60.v1 | 11.00.5058.0.v1 | 11.00.6020.0.v1'+--+-- -   __Version 10.50 (available in all AWS regions):__ ' 10.50.2789.0.v1 | 10.50.6000.34.v1 | 10.50.6529.0.v1'+--+-- __Microsoft SQL Server Standard Edition (sqlserver-se)__+--+-- -   __Version 12.00 (available in all AWS regions):__ ' 12.00.4422.0.v1'+--+-- -   __Version 11.00 (available in all AWS regions):__ ' 11.00.2100.60.v1 | 11.00.5058.0.v1 | 11.00.6020.0.v1'+--+-- -   __Version 10.50 (available in all AWS regions):__ ' 10.50.2789.0.v1 | 10.50.6000.34.v1 | 10.50.6529.0.v1'+--+-- __Microsoft SQL Server Web Edition (sqlserver-web)__+--+-- -   __Version 12.00 (available in all AWS regions):__ ' 12.00.4422.0.v1'+--+-- -   __Version 11.00 (available in all AWS regions):__ ' 11.00.2100.60.v1 | 11.00.5058.0.v1 | 11.00.6020.0.v1'+--+-- -   __Version 10.50 (available in all AWS regions):__ ' 10.50.2789.0.v1 | 10.50.6000.34.v1 | 10.50.6529.0.v1'+--+-- __MySQL__+--+-- -   __Version 5.7 (available in all AWS regions):__ ' 5.7.10 | 5.7.11'+--+-- -   __Version 5.6 (available in all AWS regions except ap-south-1, ap-northeast-2):__ ' 5.6.19a | 5.6.19b | 5.6.21 | 5.6.21b | 5.6.22'+--+-- -   __Version 5.6 (available in all AWS regions except ap-south-1):__ ' 5.6.23'+--+-- -   __Version 5.6 (available in all AWS regions):__ ' 5.6.27 | 5.6.29'+--+-- -   __Version 5.5 (only available in AWS regions ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-west-1, us-west-2):__ ' 5.5.40 | 5.5.40a'+--+-- -   __Version 5.5 (available in all AWS regions except ap-south-1, ap-northeast-2):__ ' 5.5.40b | 5.5.41'+--+-- -   __Version 5.5 (available in all AWS regions except ap-south-1):__ ' 5.5.42'+--+-- -   __Version 5.5 (available in all AWS regions):__ ' 5.5.46'+-- -- __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.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 '+-- -   __Version 12.1 (available in all AWS regions except ap-south-1, ap-northeast-2):__ ' 12.1.0.1.v1 | 12.1.0.1.v2' --+-- -   __Version 12.1 (only available in AWS regions ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-west-1, us-west-2):__ ' 12.1.0.1.v3 | 12.1.0.1.v4 | 12.1.0.1.v5'+--+-- -   __Version 12.1 (available in all AWS regions):__ ' 12.1.0.2.v1'+--+-- -   __Version 12.1 (available in all AWS regions except us-gov-west-1):__ ' 12.1.0.2.v2 | 12.1.0.2.v3 | 12.1.0.2.v4'+--+-- -   __Version 11.2 (available in all AWS regions):__ ' 11.2.0.4.v1 | 11.2.0.4.v3 | 11.2.0.4.v4'+--+-- -   __Version 11.2 (available in all AWS regions except us-gov-west-1):__ ' 11.2.0.4.v5 | 11.2.0.4.v6 | 11.2.0.4.v7 | 11.2.0.4.v8'+-- -- __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.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 | 12.1.0.1.v2'+-- -   __Version 12.1 (available in all AWS regions except ap-south-1, ap-northeast-2):__ ' 12.1.0.1.v1 | 12.1.0.1.v2' --+-- -   __Version 12.1 (only available in AWS regions ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-west-1, us-west-2):__ ' 12.1.0.1.v3 | 12.1.0.1.v4 | 12.1.0.1.v5'+--+-- -   __Version 11.2 (available in all AWS regions):__ ' 11.2.0.4.v1 | 11.2.0.4.v3 | 11.2.0.4.v4'+--+-- -   __Version 11.2 (available in all AWS regions except us-gov-west-1):__ ' 11.2.0.4.v5 | 11.2.0.4.v6 | 11.2.0.4.v7 | 11.2.0.4.v8'+-- -- __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.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 | 12.1.0.1.v2'+-- -   __Version 12.1 (available in all AWS regions except ap-south-1, ap-northeast-2):__ ' 12.1.0.1.v1 | 12.1.0.1.v2' ----- __PostgreSQL__+-- -   __Version 12.1 (only available in AWS regions ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-west-1, us-west-2):__ ' 12.1.0.1.v3 | 12.1.0.1.v4 | 12.1.0.1.v5' ----- -   __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 | 9.3.9 | 9.3.10'--- -   __Version 9.4 (Available in all regions):__ ' 9.4.1 | 9.4.4 | 9.4.5'+-- -   __Version 11.2 (available in all AWS regions):__ ' 11.2.0.4.v1 | 11.2.0.4.v3 | 11.2.0.4.v4' ----- __Microsoft SQL Server Enterprise Edition (sqlserver-ee)__+-- -   __Version 11.2 (available in all AWS regions except us-gov-west-1):__ ' 11.2.0.4.v5 | 11.2.0.4.v6 | 11.2.0.4.v7 | 11.2.0.4.v8' ----- -   __Version 10.50 (Available in all regions):__ ' 10.50.2789.0.v1'--- -   __Version 10.50 (Available in all regions):__ ' 10.50.6000.34.v1'--- -   __Version 11.00 (Available in all regions):__ ' 11.00.2100.60.v1'--- -   __Version 11.00 (Available in all regions):__ ' 11.00.5058.0.v1'+-- __Oracle Database Standard Edition Two (oracle-se2)__ ----- __Microsoft SQL Server Express Edition (sqlserver-ex)__+-- -   __Version 12.1 (available in all AWS regions except us-gov-west-1):__ ' 12.1.0.2.v2 | 12.1.0.2.v3 | 12.1.0.2.v4' ----- -   __Version 10.50 (Available in all regions):__ ' 10.50.2789.0.v1'--- -   __Version 10.50 (Available in all regions):__ ' 10.50.6000.34.v1'--- -   __Version 11.00 (Available in all regions):__ ' 11.00.2100.60.v1'--- -   __Version 11.00 (Available in all regions):__ ' 11.00.5058.0.v1'--- -   __Version 12.00 (Available in all regions):__ ' 12.00.4422.0.v1'+-- __PostgreSQL__ ----- __Microsoft SQL Server Standard Edition (sqlserver-se)__+-- -   __Version 9.5 (available in all AWS regions except us-gov-west-1):__ ' 9.5.2' ----- -   __Version 10.50 (Available in all regions):__ ' 10.50.2789.0.v1'--- -   __Version 10.50 (Available in all regions):__ ' 10.50.6000.34.v1'--- -   __Version 11.00 (Available in all regions):__ ' 11.00.2100.60.v1'--- -   __Version 11.00 (Available in all regions):__ ' 11.00.5058.0.v1'--- -   __Version 12.00 (Available in all regions):__ ' 12.00.4422.0.v1'+-- -   __Version 9.4 (available in all AWS regions except ap-south-1):__ ' 9.4.1 | 9.4.4' ----- __Microsoft SQL Server Web Edition (sqlserver-web)__+-- -   __Version 9.4 (available in all AWS regions):__ ' 9.4.5' ----- -   __Version 10.50 (Available in all regions):__ ' 10.50.2789.0.v1'--- -   __Version 10.50 (Available in all regions):__ ' 10.50.6000.34.v1'--- -   __Version 11.00 (Available in all regions):__ ' 11.00.2100.60.v1'--- -   __Version 11.00 (Available in all regions):__ ' 11.00.5058.0.v1'--- -   __Version 12.00 (Available in all regions):__ ' 12.00.4422.0.v1'+-- -   __Version 9.4 (available in all AWS regions except us-gov-west-1):__ ' 9.4.7'+--+-- -   __Version 9.3 (only available in AWS regions ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-west-1, us-west-2):__ ' 9.3.1 | 9.3.2'+--+-- -   __Version 9.3 (available in all AWS regions except ap-south-1, ap-northeast-2):__ ' 9.3.10 | 9.3.3 | 9.3.5 | 9.3.6 | 9.3.9'+--+-- -   __Version 9.3 (only available in AWS regions ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-west-1, us-west-2):__ ' 9.3.12'+-- cdiEngineVersion :: Lens' CreateDBInstance (Maybe Text) cdiEngineVersion = lens _cdiEngineVersion (\ s a -> s{_cdiEngineVersion = a}); @@ -372,6 +418,7 @@ -- Default: The default behavior varies depending on whether a VPC has been requested or not. The following list shows the default behavior in each case. -- -- -   __Default VPC:__ true+-- -- -   __VPC:__ false -- -- If no DB subnet group has been specified as part of the request and the PubliclyAccessible value has not been set, the DB instance will be publicly accessible. If a specific DB subnet group has been specified as part of the request and the PubliclyAccessible value has not been set, the DB instance will be private.@@ -391,7 +438,9 @@ -- Constraints: -- -- -   Must be 1 to 16 alphanumeric characters.+-- -- -   First character must be a letter.+-- -- -   Cannot be a reserved word for the chosen database engine. -- -- __MariaDB__@@ -399,6 +448,7 @@ -- Constraints: -- -- -   Must be 1 to 16 alphanumeric characters.+-- -- -   Cannot be a reserved word for the chosen database engine. -- -- Type: String@@ -408,7 +458,9 @@ -- Constraints: -- -- -   Must be 1 to 30 alphanumeric characters.+-- -- -   First character must be a letter.+-- -- -   Cannot be a reserved word for the chosen database engine. -- -- __SQL Server__@@ -416,7 +468,9 @@ -- Constraints: -- -- -   Must be 1 to 128 alphanumeric characters.+-- -- -   First character must be a letter.+-- -- -   Cannot be a reserved word for the chosen database engine. -- -- __PostgreSQL__@@ -424,8 +478,11 @@ -- Constraints: -- -- -   Must be 1 to 63 alphanumeric characters.+-- -- -   First character must be a letter.+-- -- -   Cannot be a reserved word for the chosen database engine.+-- cdiMasterUsername :: Lens' CreateDBInstance (Maybe Text) cdiMasterUsername = lens _cdiMasterUsername (\ s a -> s{_cdiMasterUsername = a}); @@ -451,7 +508,7 @@ cdiDomain :: Lens' CreateDBInstance (Maybe Text) cdiDomain = lens _cdiDomain (\ s a -> s{_cdiDomain = a}); --- | The interval, in seconds, between points when Enhanced Monitoring metrics are collected for the DB instance. To disable collecting Enhanced Monitoring metrics, specify 0. The default is 60.+-- | The interval, in seconds, between points when Enhanced Monitoring metrics are collected for the DB instance. To disable collecting Enhanced Monitoring metrics, specify 0. The default is 0. -- -- If 'MonitoringRoleArn' is specified, then you must also set 'MonitoringInterval' to a value other than 0. --@@ -506,8 +563,11 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- cdiDBParameterGroupName :: Lens' CreateDBInstance (Maybe Text) cdiDBParameterGroupName = lens _cdiDBParameterGroupName (\ s a -> s{_cdiDBParameterGroupName = a}); @@ -518,9 +578,13 @@ -- Constraints: -- -- -   Must be in the format 'hh24:mi-hh24:mi'.+-- -- -   Times should be in Universal Coordinated Time (UTC).+-- -- -   Must not conflict with the preferred maintenance window.+-- -- -   Must be at least 30 minutes.+-- cdiPreferredBackupWindow :: Lens' CreateDBInstance (Maybe Text) cdiPreferredBackupWindow = lens _cdiPreferredBackupWindow (\ s a -> s{_cdiPreferredBackupWindow = a}); @@ -541,7 +605,9 @@ -- Constraints: -- -- -   Must be a value from 0 to 35+-- -- -   Cannot be set to 0 if the DB instance is a source to Read Replicas+-- cdiBackupRetentionPeriod :: Lens' CreateDBInstance (Maybe Int) cdiBackupRetentionPeriod = lens _cdiBackupRetentionPeriod (\ s a -> s{_cdiBackupRetentionPeriod = a}); @@ -551,7 +617,7 @@ cdiVPCSecurityGroupIds :: Lens' CreateDBInstance [Text] cdiVPCSecurityGroupIds = lens _cdiVPCSecurityGroupIds (\ s a -> s{_cdiVPCSecurityGroupIds = a}) . _Default . _Coerce; --- | Specifies if the DB instance is a Multi-AZ deployment. You cannot set the AvailabilityZone parameter if the MultiAZ parameter is set to true. Do not set this value if you want a Multi-AZ deployment for a SQL Server DB instance. Multi-AZ for SQL Server is set using the Mirroring option in an option group.+-- | Specifies if the DB instance is a Multi-AZ deployment. You cannot set the AvailabilityZone parameter if the MultiAZ parameter is set to true. cdiMultiAZ :: Lens' CreateDBInstance (Maybe Bool) cdiMultiAZ = lens _cdiMultiAZ (\ s a -> s{_cdiMultiAZ = a}); @@ -672,6 +738,7 @@ -- Constraints: -- -- -   Must contain 1 to 64 alphanumeric characters+-- -- -   Cannot be a word reserved by the specified database engine -- -- __MariaDB__@@ -681,6 +748,7 @@ -- Constraints: -- -- -   Must contain 1 to 64 alphanumeric characters+-- -- -   Cannot be a word reserved by the specified database engine -- -- __PostgreSQL__@@ -690,7 +758,9 @@ -- Constraints: -- -- -   Must contain 1 to 63 alphanumeric characters+-- -- -   Must begin with a letter or an underscore. Subsequent characters can be letters, underscores, or digits (0-9).+-- -- -   Cannot be a word reserved by the specified database engine -- -- __Oracle__@@ -714,7 +784,9 @@ -- 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}); @@ -723,7 +795,9 @@ -- Constraints: -- -- -   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. -- -- Example: 'mydbinstance'

@@ -140,6 +140,7 @@ -- Default: The default behavior varies depending on whether a VPC has been requested or not. The following list shows the default behavior in each case. -- -- -   __Default VPC:__true+-- -- -   __VPC:__false -- -- If no DB subnet group has been specified as part of the request and the PubliclyAccessible value has not been set, the DB instance will be publicly accessible. If a specific DB subnet group has been specified as part of the request and the PubliclyAccessible value has not been set, the DB instance will be private.@@ -157,9 +158,13 @@ -- Constraints: -- -- -   Can only be specified if the source DB instance identifier specifies a DB instance in another region.+-- -- -   The specified DB subnet group must be in the same region in which the operation is running.--- -   All Read Replicas in one region that are created from the same source DB instance must either:+--+-- -   All Read Replicas in one region that are created from the same source DB instance must either:>+-- --     -   Specify DB subnet groups from the same VPC. All these Read Replicas will be created in the same VPC.+-- --     -   Not specify a DB subnet group. All these Read Replicas will be created outside of any VPC. -- -- Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default.@@ -178,7 +183,7 @@ cdirrIOPS :: Lens' CreateDBInstanceReadReplica (Maybe Int) cdirrIOPS = lens _cdirrIOPS (\ s a -> s{_cdirrIOPS = a}); --- | The interval, in seconds, between points when Enhanced Monitoring metrics are collected for the Read Replica. To disable collecting Enhanced Monitoring metrics, specify 0. The default is 60.+-- | The interval, in seconds, between points when Enhanced Monitoring metrics are collected for the Read Replica. To disable collecting Enhanced Monitoring metrics, specify 0. The default is 0. -- -- If 'MonitoringRoleArn' is specified, then you must also set 'MonitoringInterval' to a value other than 0. --@@ -241,11 +246,17 @@ -- Constraints: -- -- -   Must be the identifier of an existing MySQL, MariaDB, or PostgreSQL DB instance.+-- -- -   Can specify a DB instance that is a MySQL Read Replica only if the source is running MySQL 5.6.+-- -- -   Can specify a DB instance that is a PostgreSQL Read Replica only if the source is running PostgreSQL 9.3.5.+-- -- -   The specified DB instance must have automatic backups enabled, its backup retention period must be greater than 0.+-- -- -   If the source DB instance is in the same region as the Read Replica, specify a valid DB instance identifier.--- -   If the source DB instance is in a different region than the Read Replica, specify a valid DB instance ARN. For more information, go to <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.html#USER_Tagging.ARN Constructing a Amazon RDS Amazon Resource Name (ARN)>.+--+-- -   If the source DB instance is in a different region than the Read Replica, specify a valid DB instance ARN. For more information, go to <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.ARN.html#USER_Tagging.ARN.Constructing Constructing a Amazon RDS Amazon Resource Name (ARN)>.+-- cdirrSourceDBInstanceIdentifier :: Lens' CreateDBInstanceReadReplica Text cdirrSourceDBInstanceIdentifier = lens _cdirrSourceDBInstanceIdentifier (\ s a -> s{_cdirrSourceDBInstanceIdentifier = a}); 

@@ -92,7 +92,9 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens -- -- This value is stored as a lowercase string.

@@ -82,10 +82,12 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- -- -   Must not be \"Default\"--- -   Cannot contain spaces -- -- Example: 'mysecuritygroup' cdsgDBSecurityGroupName :: Lens' CreateDBSecurityGroup Text

@@ -82,8 +82,11 @@ -- Constraints: -- -- -   Cannot be null, empty, or blank+-- -- -   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 -- -- Example: 'my-snapshot-id'@@ -95,8 +98,11 @@ -- 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+-- cdbsDBInstanceIdentifier :: Lens' CreateDBSnapshot Text cdbsDBInstanceIdentifier = lens _cdbsDBInstanceIdentifier (\ s a -> s{_cdbsDBInstanceIdentifier = a}); 

@@ -103,7 +103,7 @@  -- | The type of source that will be generating the events. For example, if you want to be notified of events generated by a DB instance, you would set this parameter to db-instance. if this value is not specified, all events are returned. ----- Valid values: db-instance | db-parameter-group | db-security-group | db-snapshot+-- Valid values: 'db-instance' | 'db-cluster' | 'db-parameter-group' | 'db-security-group' | 'db-snapshot' | 'db-cluster-snapshot' cesSourceType :: Lens' CreateEventSubscription (Maybe Text) cesSourceType = lens _cesSourceType (\ s a -> s{_cesSourceType = a}); @@ -116,10 +116,15 @@ -- Constraints: -- -- -   If SourceIds are supplied, SourceType must also be provided.+-- -- -   If the source type is a DB instance, then a 'DBInstanceIdentifier' must be supplied.+-- -- -   If the source type is a DB security group, a 'DBSecurityGroupName' must be supplied.+-- -- -   If the source type is a DB parameter group, a 'DBParameterGroupName' must be supplied.+-- -- -   If the source type is a DB snapshot, a 'DBSnapshotIdentifier' must be supplied.+-- cesSourceIds :: Lens' CreateEventSubscription [Text] cesSourceIds = lens _cesSourceIds (\ s a -> s{_cesSourceIds = a}) . _Default . _Coerce; 

@@ -94,7 +94,9 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters or hyphens+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens -- -- Example: 'myoptiongroup'

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- The DeleteDBCluster action deletes a previously provisioned DB cluster. A successful response from the web service indicates the request was received correctly. When you delete a DB cluster, all automated backups for that DB cluster are deleted and cannot be recovered. Manual DB cluster snapshots of the DB cluster to be deleted are not deleted.+-- The DeleteDBCluster action deletes a previously provisioned DB cluster. When you delete a DB cluster, all automated backups for that DB cluster are deleted and cannot be recovered. Manual DB cluster snapshots of the specified DB cluster are not deleted. -- -- For more information on Amazon Aurora, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/CHAP_Aurora.html Aurora on Amazon RDS> in the /Amazon RDS User Guide./ module Network.AWS.RDS.DeleteDBCluster@@ -81,8 +81,11 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- ddbcFinalDBSnapshotIdentifier :: Lens' DeleteDBCluster (Maybe Text) ddbcFinalDBSnapshotIdentifier = lens _ddbcFinalDBSnapshotIdentifier (\ s a -> s{_ddbcFinalDBSnapshotIdentifier = a}); @@ -99,8 +102,11 @@ -- 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}); 

@@ -66,8 +66,11 @@ -- Constraints: -- -- -   Must be the name of an existing DB cluster parameter group.+-- -- -   You cannot delete a default DB cluster parameter group.+-- -- -   Cannot be associated with any DB clusters.+-- ddbcpgDBClusterParameterGroupName :: Lens' DeleteDBClusterParameterGroup Text ddbcpgDBClusterParameterGroupName = lens _ddbcpgDBClusterParameterGroupName (\ s a -> s{_ddbcpgDBClusterParameterGroupName = a}); 

@@ -18,11 +18,19 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- The DeleteDBInstance action deletes a previously provisioned DB instance. A successful response from the web service indicates the request was received correctly. When you delete a DB instance, all automated backups for that instance are deleted and cannot be recovered. Manual DB snapshots of the DB instance to be deleted are not deleted.+-- The DeleteDBInstance action deletes a previously provisioned DB instance. When you delete a DB instance, all automated backups for that instance are deleted and cannot be recovered. Manual DB snapshots of the DB instance to be deleted by 'DeleteDBInstance' are not deleted. ----- If a final DB snapshot is requested the status of the RDS instance will be \"deleting\" until the DB snapshot is created. The API action 'DescribeDBInstance' is used to monitor the status of this operation. The action cannot be canceled or reverted once submitted.+-- If you request a final DB snapshot the status of the Amazon RDS DB instance is 'deleting' until the DB snapshot is created. The API action 'DescribeDBInstance' is used to monitor the status of this operation. The action cannot be canceled or reverted once submitted. ----- Note that when a DB instance is in a failure state and has a status of \'failed\', \'incompatible-restore\', or \'incompatible-network\', it can only be deleted when the SkipFinalSnapshot parameter is set to \"true\".+-- Note that when a DB instance is in a failure state and has a status of 'failed', 'incompatible-restore', or 'incompatible-network', you can only delete it when the 'SkipFinalSnapshot' parameter is set to 'true'.+--+-- If the specified DB instance is part of an Amazon Aurora DB cluster, you cannot delete the DB instance if the following are true:+--+-- -   The DB cluster is a Read Replica of another Amazon Aurora DB cluster.+--+-- -   The DB instance is the only instance in the DB cluster.+--+-- To delete a DB instance in this case, first call the < PromoteReadReplicaDBCluster> API action to promote the DB cluster so it\'s no longer a Read Replica. After the promotion completes, then call the 'DeleteDBInstance' API action to delete the final instance in the DB cluster. module Network.AWS.RDS.DeleteDBInstance     (     -- * Creating a Request@@ -83,9 +91,13 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- -- -   Cannot be specified when deleting a Read Replica.+-- ddiFinalDBSnapshotIdentifier :: Lens' DeleteDBInstance (Maybe Text) ddiFinalDBSnapshotIdentifier = lens _ddiFinalDBSnapshotIdentifier (\ s a -> s{_ddiFinalDBSnapshotIdentifier = a}); @@ -106,8 +118,11 @@ -- 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+-- ddiDBInstanceIdentifier :: Lens' DeleteDBInstance Text ddiDBInstanceIdentifier = lens _ddiDBInstanceIdentifier (\ s a -> s{_ddiDBInstanceIdentifier = a}); 

@@ -64,8 +64,11 @@ -- Constraints: -- -- -   Must be the name of an existing DB parameter group+-- -- -   You cannot delete a default DB parameter group+-- -- -   Cannot be associated with any DB instances+-- ddbpgDBParameterGroupName :: Lens' DeleteDBParameterGroup Text ddbpgDBParameterGroupName = lens _ddbpgDBParameterGroupName (\ s a -> s{_ddbpgDBParameterGroupName = a}); 

@@ -68,10 +68,13 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- -- -   Must not be \"Default\"--- -   Cannot contain spaces+-- ddsgDBSecurityGroupName :: Lens' DeleteDBSecurityGroup Text ddsgDBSecurityGroupName = lens _ddsgDBSecurityGroupName (\ s a -> s{_ddsgDBSecurityGroupName = a}); 

@@ -86,8 +86,11 @@ -- 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+-- dcCertificateIdentifier :: Lens' DescribeCertificates (Maybe Text) dcCertificateIdentifier = lens _dcCertificateIdentifier (\ s a -> s{_dcCertificateIdentifier = a}); 

@@ -100,8 +100,11 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- ddcpgDBClusterParameterGroupName :: Lens' DescribeDBClusterParameterGroups (Maybe Text) ddcpgDBClusterParameterGroupName = lens _ddcpgDBClusterParameterGroupName (\ s a -> s{_ddcpgDBClusterParameterGroupName = a}); 

@@ -110,8 +110,11 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- ddcpDBClusterParameterGroupName :: Lens' DescribeDBClusterParameters Text ddcpDBClusterParameterGroupName = lens _ddcpDBClusterParameterGroupName (\ s a -> s{_ddcpDBClusterParameterGroupName = a}); 

@@ -0,0 +1,140 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.RDS.DescribeDBClusterSnapshotAttributes+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of DB cluster snapshot attribute names and values for a manual DB cluster snapshot.+--+-- When sharing snapshots with other AWS accounts, 'DescribeDBClusterSnapshotAttributes' returns the 'restore' attribute and a list of IDs for the AWS accounts that are authorized to copy or restore the manual DB cluster snapshot. If 'all' is included in the list of values for the 'restore' attribute, then the manual DB cluster snapshot is public and can be copied or restored by all AWS accounts.+--+-- To add or remove access for an AWS account to copy or restore a manual DB cluster snapshot, or to make the manual DB cluster snapshot public or private, use the < ModifyDBClusterSnapshotAttribute> API action.+module Network.AWS.RDS.DescribeDBClusterSnapshotAttributes+    (+    -- * Creating a Request+      describeDBClusterSnapshotAttributes+    , DescribeDBClusterSnapshotAttributes+    -- * Request Lenses+    , ddcsaDBClusterSnapshotIdentifier++    -- * Destructuring the Response+    , describeDBClusterSnapshotAttributesResponse+    , DescribeDBClusterSnapshotAttributesResponse+    -- * Response Lenses+    , ddcsarsDBClusterSnapshotAttributesResult+    , ddcsarsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response++-- |+--+-- /See:/ 'describeDBClusterSnapshotAttributes' smart constructor.+newtype DescribeDBClusterSnapshotAttributes = DescribeDBClusterSnapshotAttributes'+    { _ddcsaDBClusterSnapshotIdentifier :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeDBClusterSnapshotAttributes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddcsaDBClusterSnapshotIdentifier'+describeDBClusterSnapshotAttributes+    :: Text -- ^ 'ddcsaDBClusterSnapshotIdentifier'+    -> DescribeDBClusterSnapshotAttributes+describeDBClusterSnapshotAttributes pDBClusterSnapshotIdentifier_ =+    DescribeDBClusterSnapshotAttributes'+    { _ddcsaDBClusterSnapshotIdentifier = pDBClusterSnapshotIdentifier_+    }++-- | The identifier for the DB cluster snapshot to describe the attributes for.+ddcsaDBClusterSnapshotIdentifier :: Lens' DescribeDBClusterSnapshotAttributes Text+ddcsaDBClusterSnapshotIdentifier = lens _ddcsaDBClusterSnapshotIdentifier (\ s a -> s{_ddcsaDBClusterSnapshotIdentifier = a});++instance AWSRequest+         DescribeDBClusterSnapshotAttributes where+        type Rs DescribeDBClusterSnapshotAttributes =+             DescribeDBClusterSnapshotAttributesResponse+        request = postQuery rds+        response+          = receiveXMLWrapper+              "DescribeDBClusterSnapshotAttributesResult"+              (\ s h x ->+                 DescribeDBClusterSnapshotAttributesResponse' <$>+                   (x .@? "DBClusterSnapshotAttributesResult") <*>+                     (pure (fromEnum s)))++instance Hashable DescribeDBClusterSnapshotAttributes++instance NFData DescribeDBClusterSnapshotAttributes++instance ToHeaders+         DescribeDBClusterSnapshotAttributes where+        toHeaders = const mempty++instance ToPath DescribeDBClusterSnapshotAttributes+         where+        toPath = const "/"++instance ToQuery DescribeDBClusterSnapshotAttributes+         where+        toQuery DescribeDBClusterSnapshotAttributes'{..}+          = mconcat+              ["Action" =:+                 ("DescribeDBClusterSnapshotAttributes" ::+                    ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "DBClusterSnapshotIdentifier" =:+                 _ddcsaDBClusterSnapshotIdentifier]++-- | /See:/ 'describeDBClusterSnapshotAttributesResponse' smart constructor.+data DescribeDBClusterSnapshotAttributesResponse = DescribeDBClusterSnapshotAttributesResponse'+    { _ddcsarsDBClusterSnapshotAttributesResult :: !(Maybe DBClusterSnapshotAttributesResult)+    , _ddcsarsResponseStatus                    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeDBClusterSnapshotAttributesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddcsarsDBClusterSnapshotAttributesResult'+--+-- * 'ddcsarsResponseStatus'+describeDBClusterSnapshotAttributesResponse+    :: Int -- ^ 'ddcsarsResponseStatus'+    -> DescribeDBClusterSnapshotAttributesResponse+describeDBClusterSnapshotAttributesResponse pResponseStatus_ =+    DescribeDBClusterSnapshotAttributesResponse'+    { _ddcsarsDBClusterSnapshotAttributesResult = Nothing+    , _ddcsarsResponseStatus = pResponseStatus_+    }++-- | Undocumented member.+ddcsarsDBClusterSnapshotAttributesResult :: Lens' DescribeDBClusterSnapshotAttributesResponse (Maybe DBClusterSnapshotAttributesResult)+ddcsarsDBClusterSnapshotAttributesResult = lens _ddcsarsDBClusterSnapshotAttributesResult (\ s a -> s{_ddcsarsDBClusterSnapshotAttributesResult = a});++-- | The response status code.+ddcsarsResponseStatus :: Lens' DescribeDBClusterSnapshotAttributesResponse Int+ddcsarsResponseStatus = lens _ddcsarsResponseStatus (\ s a -> s{_ddcsarsResponseStatus = a});++instance NFData+         DescribeDBClusterSnapshotAttributesResponse

@@ -18,9 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns information about DB cluster snapshots. This API supports pagination.+-- Returns information about DB cluster snapshots. This API action supports pagination. -- -- For more information on Amazon Aurora, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/CHAP_Aurora.html Aurora on Amazon RDS> in the /Amazon RDS User Guide./+--+-- This operation returns paginated results. module Network.AWS.RDS.DescribeDBClusterSnapshots     (     -- * Creating a Request@@ -28,11 +30,13 @@     , DescribeDBClusterSnapshots     -- * Request Lenses     , ddbcsDBClusterIdentifier+    , ddbcsIncludeShared     , ddbcsDBClusterSnapshotIdentifier     , ddbcsFilters     , ddbcsSnapshotType     , ddbcsMarker     , ddbcsMaxRecords+    , ddbcsIncludePublic      -- * Destructuring the Response     , describeDBClusterSnapshotsResponse@@ -44,6 +48,7 @@     ) where  import           Network.AWS.Lens+import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.RDS.Types import           Network.AWS.RDS.Types.Product@@ -55,11 +60,13 @@ -- /See:/ 'describeDBClusterSnapshots' smart constructor. data DescribeDBClusterSnapshots = DescribeDBClusterSnapshots'     { _ddbcsDBClusterIdentifier         :: !(Maybe Text)+    , _ddbcsIncludeShared               :: !(Maybe Bool)     , _ddbcsDBClusterSnapshotIdentifier :: !(Maybe Text)     , _ddbcsFilters                     :: !(Maybe [Filter])     , _ddbcsSnapshotType                :: !(Maybe Text)     , _ddbcsMarker                      :: !(Maybe Text)     , _ddbcsMaxRecords                  :: !(Maybe Int)+    , _ddbcsIncludePublic               :: !(Maybe Bool)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeDBClusterSnapshots' with the minimum fields required to make a request.@@ -68,6 +75,8 @@ -- -- * 'ddbcsDBClusterIdentifier' --+-- * 'ddbcsIncludeShared'+-- -- * 'ddbcsDBClusterSnapshotIdentifier' -- -- * 'ddbcsFilters'@@ -77,36 +86,53 @@ -- * 'ddbcsMarker' -- -- * 'ddbcsMaxRecords'+--+-- * 'ddbcsIncludePublic' describeDBClusterSnapshots     :: DescribeDBClusterSnapshots describeDBClusterSnapshots =     DescribeDBClusterSnapshots'     { _ddbcsDBClusterIdentifier = Nothing+    , _ddbcsIncludeShared = Nothing     , _ddbcsDBClusterSnapshotIdentifier = Nothing     , _ddbcsFilters = Nothing     , _ddbcsSnapshotType = Nothing     , _ddbcsMarker = Nothing     , _ddbcsMaxRecords = Nothing+    , _ddbcsIncludePublic = Nothing     } --- | A DB cluster identifier to retrieve the list of DB cluster snapshots for. This parameter cannot be used in conjunction with the 'DBClusterSnapshotIdentifier' parameter. This parameter is not case-sensitive.+-- | The ID of the DB cluster to retrieve the list of DB cluster snapshots for. This parameter cannot be used in conjunction with the 'DBClusterSnapshotIdentifier' parameter. This parameter is not 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+-- ddbcsDBClusterIdentifier :: Lens' DescribeDBClusterSnapshots (Maybe Text) ddbcsDBClusterIdentifier = lens _ddbcsDBClusterIdentifier (\ s a -> s{_ddbcsDBClusterIdentifier = a}); +-- | Set this value to 'true' to include shared manual DB cluster snapshots from other AWS accounts that this AWS account has been given permission to copy or restore, otherwise set this value to 'false'. The default is 'false'.+--+-- You can give an AWS account permission to restore a manual DB cluster snapshot from another AWS account by the < ModifyDBClusterSnapshotAttribute> API action.+ddbcsIncludeShared :: Lens' DescribeDBClusterSnapshots (Maybe Bool)+ddbcsIncludeShared = lens _ddbcsIncludeShared (\ s a -> s{_ddbcsIncludeShared = a});+ -- | A specific DB cluster snapshot identifier to describe. This parameter cannot be used in conjunction with the 'DBClusterIdentifier' parameter. This value is stored as a lowercase string. -- -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens--- -   If this is the identifier of an automated snapshot, the 'SnapshotType' parameter must also be specified.+--+-- -   If this identifier is for an automated snapshot, the 'SnapshotType' parameter must also be specified.+-- ddbcsDBClusterSnapshotIdentifier :: Lens' DescribeDBClusterSnapshots (Maybe Text) ddbcsDBClusterSnapshotIdentifier = lens _ddbcsDBClusterSnapshotIdentifier (\ s a -> s{_ddbcsDBClusterSnapshotIdentifier = a}); @@ -114,7 +140,19 @@ ddbcsFilters :: Lens' DescribeDBClusterSnapshots [Filter] ddbcsFilters = lens _ddbcsFilters (\ s a -> s{_ddbcsFilters = a}) . _Default . _Coerce; --- | The type of DB cluster snapshots that will be returned. Values can be 'automated' or 'manual'. If this parameter is not specified, the returned results will include all snapshot types.+-- | The type of DB cluster snapshots to be returned. You can specify one of the following values:+--+-- -   'automated' - Return all DB cluster snapshots that have been automatically taken by Amazon RDS for my AWS account.+--+-- -   'manual' - Return all DB cluster snapshots that have been taken by my AWS account.+--+-- -   'shared' - Return all manual DB cluster snapshots that have been shared to my AWS account.+--+-- -   'public' - Return all DB cluster snapshots that have been marked as public.+--+-- If you don\'t specify a 'SnapshotType' value, then both automated and manual DB cluster snapshots are returned. You can include shared DB cluster snapshots with these results by setting the 'IncludeShared' parameter to 'true'. You can include public DB cluster snapshots with these results by setting the 'IncludePublic' parameter to 'true'.+--+-- The 'IncludeShared' and 'IncludePublic' parameters don\'t apply for 'SnapshotType' values of 'manual' or 'automated'. The 'IncludePublic' parameter doesn\'t apply when 'SnapshotType' is set to 'shared'. The 'IncludeShared' parameter doesn\'t apply when 'SnapshotType' is set to 'public'. ddbcsSnapshotType :: Lens' DescribeDBClusterSnapshots (Maybe Text) ddbcsSnapshotType = lens _ddbcsSnapshotType (\ s a -> s{_ddbcsSnapshotType = a}); @@ -130,6 +168,19 @@ ddbcsMaxRecords :: Lens' DescribeDBClusterSnapshots (Maybe Int) ddbcsMaxRecords = lens _ddbcsMaxRecords (\ s a -> s{_ddbcsMaxRecords = a}); +-- | Set this value to 'true' to include manual DB cluster snapshots that are public and can be copied or restored by any AWS account, otherwise set this value to 'false'. The default is 'false'. The default is false.+--+-- You can share a manual DB cluster snapshot as public by using the < ModifyDBClusterSnapshotAttribute> API action.+ddbcsIncludePublic :: Lens' DescribeDBClusterSnapshots (Maybe Bool)+ddbcsIncludePublic = lens _ddbcsIncludePublic (\ s a -> s{_ddbcsIncludePublic = a});++instance AWSPager DescribeDBClusterSnapshots where+        page rq rs+          | stop (rs ^. ddbcsrsMarker) = Nothing+          | stop (rs ^. ddbcsrsDBClusterSnapshots) = Nothing+          | otherwise =+            Just $ rq & ddbcsMarker .~ rs ^. ddbcsrsMarker+ instance AWSRequest DescribeDBClusterSnapshots where         type Rs DescribeDBClusterSnapshots =              DescribeDBClusterSnapshotsResponse@@ -161,13 +212,15 @@                  ("DescribeDBClusterSnapshots" :: ByteString),                "Version" =: ("2014-10-31" :: ByteString),                "DBClusterIdentifier" =: _ddbcsDBClusterIdentifier,+               "IncludeShared" =: _ddbcsIncludeShared,                "DBClusterSnapshotIdentifier" =:                  _ddbcsDBClusterSnapshotIdentifier,                "Filters" =:                  toQuery (toQueryList "Filter" <$> _ddbcsFilters),                "SnapshotType" =: _ddbcsSnapshotType,                "Marker" =: _ddbcsMarker,-               "MaxRecords" =: _ddbcsMaxRecords]+               "MaxRecords" =: _ddbcsMaxRecords,+               "IncludePublic" =: _ddbcsIncludePublic]  -- | Provides a list of DB cluster snapshots for the user as the result of a call to the < DescribeDBClusterSnapshots> action. --

@@ -84,8 +84,11 @@ -- 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+-- ddcDBClusterIdentifier :: Lens' DescribeDBClusters (Maybe Text) ddcDBClusterIdentifier = lens _ddcDBClusterIdentifier (\ s a -> s{_ddcDBClusterIdentifier = a}); 

@@ -121,8 +121,11 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- ddevDBParameterGroupFamily :: Lens' DescribeDBEngineVersions (Maybe Text) ddevDBParameterGroupFamily = lens _ddevDBParameterGroupFamily (\ s a -> s{_ddevDBParameterGroupFamily = a}); 

@@ -89,8 +89,11 @@ -- 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+-- ddbiDBInstanceIdentifier :: Lens' DescribeDBInstances (Maybe Text) ddbiDBInstanceIdentifier = lens _ddbiDBInstanceIdentifier (\ s a -> s{_ddbiDBInstanceIdentifier = a}); 

@@ -125,8 +125,11 @@ -- 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+-- ddlfDBInstanceIdentifier :: Lens' DescribeDBLogFiles Text ddlfDBInstanceIdentifier = lens _ddlfDBInstanceIdentifier (\ s a -> s{_ddlfDBInstanceIdentifier = a}); 

@@ -89,8 +89,11 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- ddpgDBParameterGroupName :: Lens' DescribeDBParameterGroups (Maybe Text) ddpgDBParameterGroupName = lens _ddpgDBParameterGroupName (\ s a -> s{_ddpgDBParameterGroupName = a}); 

@@ -113,8 +113,11 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- ddpDBParameterGroupName :: Lens' DescribeDBParameters Text ddpDBParameterGroupName = lens _ddpDBParameterGroupName (\ s a -> s{_ddpDBParameterGroupName = a}); 

@@ -20,9 +20,9 @@ -- -- Returns a list of DB snapshot attribute names and values for a manual DB snapshot. ----- When sharing snapshots with other AWS accounts, 'DescribeDBSnapshotAttributes' returns the 'restore' attribute and a list of the AWS account ids that are authorized to copy or restore the manual DB snapshot. If 'all' is included in the list of values for the 'restore' attribute, then the manual DB snapshot is public and can be copied or restored by all AWS accounts.+-- When sharing snapshots with other AWS accounts, 'DescribeDBSnapshotAttributes' returns the 'restore' attribute and a list of IDs for the AWS accounts that are authorized to copy or restore the manual DB snapshot. If 'all' is included in the list of values for the 'restore' attribute, then the manual DB snapshot is public and can be copied or restored by all AWS accounts. ----- To add or remove access for an AWS account to copy or restore a manual DB snapshot, or to make the manual DB snapshot public or private, use the < ModifyDBSnapshotAttribute> API.+-- To add or remove access for an AWS account to copy or restore a manual DB snapshot, or to make the manual DB snapshot public or private, use the < ModifyDBSnapshotAttribute> API action. module Network.AWS.RDS.DescribeDBSnapshotAttributes     (     -- * Creating a Request@@ -46,9 +46,11 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'describeDBSnapshotAttributes' smart constructor.+-- |+--+-- /See:/ 'describeDBSnapshotAttributes' smart constructor. newtype DescribeDBSnapshotAttributes = DescribeDBSnapshotAttributes'-    { _ddsaDBSnapshotIdentifier :: Maybe Text+    { _ddsaDBSnapshotIdentifier :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeDBSnapshotAttributes' with the minimum fields required to make a request.@@ -57,14 +59,15 @@ -- -- * 'ddsaDBSnapshotIdentifier' describeDBSnapshotAttributes-    :: DescribeDBSnapshotAttributes-describeDBSnapshotAttributes =+    :: Text -- ^ 'ddsaDBSnapshotIdentifier'+    -> DescribeDBSnapshotAttributes+describeDBSnapshotAttributes pDBSnapshotIdentifier_ =     DescribeDBSnapshotAttributes'-    { _ddsaDBSnapshotIdentifier = Nothing+    { _ddsaDBSnapshotIdentifier = pDBSnapshotIdentifier_     } --- | The identifier for the DB snapshot to modify the attributes for.-ddsaDBSnapshotIdentifier :: Lens' DescribeDBSnapshotAttributes (Maybe Text)+-- | The identifier for the DB snapshot to describe the attributes for.+ddsaDBSnapshotIdentifier :: Lens' DescribeDBSnapshotAttributes Text ddsaDBSnapshotIdentifier = lens _ddsaDBSnapshotIdentifier (\ s a -> s{_ddsaDBSnapshotIdentifier = a});  instance AWSRequest DescribeDBSnapshotAttributes

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns information about DB snapshots. This API supports pagination.+-- Returns information about DB snapshots. This API action supports pagination. -- -- This operation returns paginated results. module Network.AWS.RDS.DescribeDBSnapshots@@ -100,9 +100,9 @@     , _ddsIncludePublic = Nothing     } --- | True to include shared manual DB snapshots from other AWS accounts that this AWS account has been given permission to copy or restore; otherwise false. The default is false.+-- | Set this value to 'true' to include shared manual DB snapshots from other AWS accounts that this AWS account has been given permission to copy or restore, otherwise set this value to 'false'. The default is 'false'. ----- An AWS account is given permission to restore a manual DB snapshot from another AWS account by the < ModifyDBSnapshotAttribute> API.+-- You can give an AWS account permission to restore a manual DB snapshot from another AWS account by using the < ModifyDBSnapshotAttribute> API action. ddsIncludeShared :: Lens' DescribeDBSnapshots (Maybe Bool) ddsIncludeShared = lens _ddsIncludeShared (\ s a -> s{_ddsIncludeShared = a}); @@ -115,32 +115,42 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters.+-- -- -   First character must be a letter.+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens.--- -   If this is the identifier of an automated snapshot, the 'SnapshotType' parameter must also be specified.+--+-- -   If this identifier is for an automated snapshot, the 'SnapshotType' parameter must also be specified.+-- ddsDBSnapshotIdentifier :: Lens' DescribeDBSnapshots (Maybe Text) ddsDBSnapshotIdentifier = lens _ddsDBSnapshotIdentifier (\ s a -> s{_ddsDBSnapshotIdentifier = a}); --- | The type of snapshots that will be returned. You can specify one of the following values:+-- | The type of snapshots to be returned. You can specify one of the following values: -- -- -   'automated' - Return all DB snapshots that have been automatically taken by Amazon RDS for my AWS account.+-- -- -   'manual' - Return all DB snapshots that have been taken by my AWS account.+-- -- -   'shared' - Return all manual DB snapshots that have been shared to my AWS account.+-- -- -   'public' - Return all DB snapshots that have been marked as public. ----- If you do not specify a 'SnapshotType', then both automated and manual snapshots are returned. You can include shared snapshots with these results by setting the 'IncludeShared' parameter to 'true'. You can include public snapshots with these results by setting the 'IncludePublic' parameter to 'true'.+-- If you don\'t specify a 'SnapshotType' value, then both automated and manual snapshots are returned. Shared and public DB snapshots are not included in the returned results by default. You can include shared snapshots with these results by setting the 'IncludeShared' parameter to 'true'. You can include public snapshots with these results by setting the 'IncludePublic' parameter to 'true'. ----- The 'IncludeShared' and 'IncludePublic' parameters do not apply for 'SnapshotType' values of 'manual' or 'automated'. The 'IncludePublic' parameter does not apply when 'SnapshotType' is set to 'shared'. the 'IncludeShared' parameter does not apply when 'SnapshotType' is set to 'public'.+-- The 'IncludeShared' and 'IncludePublic' parameters don\'t apply for 'SnapshotType' values of 'manual' or 'automated'. The 'IncludePublic' parameter doesn\'t apply when 'SnapshotType' is set to 'shared'. The 'IncludeShared' parameter doesn\'t apply when 'SnapshotType' is set to 'public'. ddsSnapshotType :: Lens' DescribeDBSnapshots (Maybe Text) ddsSnapshotType = lens _ddsSnapshotType (\ s a -> s{_ddsSnapshotType = a}); --- | A DB instance identifier to retrieve the list of DB snapshots for. This parameter cannot be used in conjunction with 'DBSnapshotIdentifier'. This parameter is not case-sensitive.+-- | The ID of the DB instance to retrieve the list of DB snapshots for. This parameter cannot be used in conjunction with 'DBSnapshotIdentifier'. This parameter is not 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+-- ddsDBInstanceIdentifier :: Lens' DescribeDBSnapshots (Maybe Text) ddsDBInstanceIdentifier = lens _ddsDBInstanceIdentifier (\ s a -> s{_ddsDBInstanceIdentifier = a}); @@ -156,9 +166,9 @@ ddsMaxRecords :: Lens' DescribeDBSnapshots (Maybe Int) ddsMaxRecords = lens _ddsMaxRecords (\ s a -> s{_ddsMaxRecords = a}); --- | True to include manual DB snapshots that are public and can be copied or restored by any AWS account; otherwise false. The default is false.+-- | Set this value to 'true' to include manual DB snapshots that are public and can be copied or restored by any AWS account, otherwise set this value to 'false'. The default is 'false'. ----- An manual DB snapshot is shared as public by the < ModifyDBSnapshotAttribute> API.+-- You can share a manual DB snapshot as public by using the < ModifyDBSnapshotAttribute> API. ddsIncludePublic :: Lens' DescribeDBSnapshots (Maybe Bool) ddsIncludePublic = lens _ddsIncludePublic (\ s a -> s{_ddsIncludePublic = a}); 

@@ -124,11 +124,17 @@ -- Constraints: -- -- -   If SourceIdentifier is supplied, SourceType must also be provided.+-- -- -   If the source type is 'DBInstance', then a 'DBInstanceIdentifier' must be supplied.+-- -- -   If the source type is 'DBSecurityGroup', a 'DBSecurityGroupName' must be supplied.+-- -- -   If the source type is 'DBParameterGroup', a 'DBParameterGroupName' must be supplied.+-- -- -   If the source type is 'DBSnapshot', a 'DBSnapshotIdentifier' must be supplied.+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens.+-- deSourceIdentifier :: Lens' DescribeEvents (Maybe Text) deSourceIdentifier = lens _deSourceIdentifier (\ s a -> s{_deSourceIdentifier = a}); 

@@ -82,6 +82,7 @@ -- Supported filters: -- -- -   'db-instance-id' - Accepts DB instance identifiers and DB instance Amazon Resource Names (ARNs). The results list will only include pending maintenance actions for the DB instances identified by these ARNs.+-- dpmaFilters :: Lens' DescribePendingMaintenanceActions [Filter] dpmaFilters = lens _dpmaFilters (\ s a -> s{_dpmaFilters = a}) . _Default . _Coerce; 

@@ -0,0 +1,179 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.RDS.DescribeSourceRegions+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list that includes the status of each source AWS Region that the current region can get a Read Replica or a DB snapshot from. This API action supports pagination.+module Network.AWS.RDS.DescribeSourceRegions+    (+    -- * Creating a Request+      describeSourceRegions+    , DescribeSourceRegions+    -- * Request Lenses+    , dsrRegionName+    , dsrFilters+    , dsrMarker+    , dsrMaxRecords++    -- * Destructuring the Response+    , describeSourceRegionsResponse+    , DescribeSourceRegionsResponse+    -- * Response Lenses+    , dsrrsMarker+    , dsrrsSourceRegions+    , dsrrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response++-- |+--+-- /See:/ 'describeSourceRegions' smart constructor.+data DescribeSourceRegions = DescribeSourceRegions'+    { _dsrRegionName :: !(Maybe Text)+    , _dsrFilters    :: !(Maybe [Filter])+    , _dsrMarker     :: !(Maybe Text)+    , _dsrMaxRecords :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeSourceRegions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsrRegionName'+--+-- * 'dsrFilters'+--+-- * 'dsrMarker'+--+-- * 'dsrMaxRecords'+describeSourceRegions+    :: DescribeSourceRegions+describeSourceRegions =+    DescribeSourceRegions'+    { _dsrRegionName = Nothing+    , _dsrFilters = Nothing+    , _dsrMarker = Nothing+    , _dsrMaxRecords = Nothing+    }++-- | The source region name, for example US West (Oregon).+--+-- Constraints:+--+-- -   Must specify a valid AWS Region name, for example US West (Oregon).+--+dsrRegionName :: Lens' DescribeSourceRegions (Maybe Text)+dsrRegionName = lens _dsrRegionName (\ s a -> s{_dsrRegionName = a});++-- | This parameter is not currently supported.+dsrFilters :: Lens' DescribeSourceRegions [Filter]+dsrFilters = lens _dsrFilters (\ s a -> s{_dsrFilters = a}) . _Default . _Coerce;++-- | An optional pagination token provided by a previous < DescribeSourceRegions> request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by 'MaxRecords'.+dsrMarker :: Lens' DescribeSourceRegions (Maybe Text)+dsrMarker = lens _dsrMarker (\ s a -> s{_dsrMarker = a});++-- | The maximum number of records to include in the response. If more records exist than the specified 'MaxRecords' value, a pagination token called a marker is included in the response so that the remaining results can be retrieved.+--+-- Default: 100+--+-- Constraints: Minimum 20, maximum 100.+dsrMaxRecords :: Lens' DescribeSourceRegions (Maybe Int)+dsrMaxRecords = lens _dsrMaxRecords (\ s a -> s{_dsrMaxRecords = a});++instance AWSRequest DescribeSourceRegions where+        type Rs DescribeSourceRegions =+             DescribeSourceRegionsResponse+        request = postQuery rds+        response+          = receiveXMLWrapper "DescribeSourceRegionsResult"+              (\ s h x ->+                 DescribeSourceRegionsResponse' <$>+                   (x .@? "Marker") <*>+                     (x .@? "SourceRegions" .!@ mempty >>=+                        may (parseXMLList "SourceRegion"))+                     <*> (pure (fromEnum s)))++instance Hashable DescribeSourceRegions++instance NFData DescribeSourceRegions++instance ToHeaders DescribeSourceRegions where+        toHeaders = const mempty++instance ToPath DescribeSourceRegions where+        toPath = const "/"++instance ToQuery DescribeSourceRegions where+        toQuery DescribeSourceRegions'{..}+          = mconcat+              ["Action" =: ("DescribeSourceRegions" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "RegionName" =: _dsrRegionName,+               "Filters" =:+                 toQuery (toQueryList "Filter" <$> _dsrFilters),+               "Marker" =: _dsrMarker,+               "MaxRecords" =: _dsrMaxRecords]++-- | Contains the result of a successful invocation of the < DescribeSourceRegions> action.+--+-- /See:/ 'describeSourceRegionsResponse' smart constructor.+data DescribeSourceRegionsResponse = DescribeSourceRegionsResponse'+    { _dsrrsMarker         :: !(Maybe Text)+    , _dsrrsSourceRegions  :: !(Maybe [SourceRegion])+    , _dsrrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeSourceRegionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsrrsMarker'+--+-- * 'dsrrsSourceRegions'+--+-- * 'dsrrsResponseStatus'+describeSourceRegionsResponse+    :: Int -- ^ 'dsrrsResponseStatus'+    -> DescribeSourceRegionsResponse+describeSourceRegionsResponse pResponseStatus_ =+    DescribeSourceRegionsResponse'+    { _dsrrsMarker = Nothing+    , _dsrrsSourceRegions = Nothing+    , _dsrrsResponseStatus = pResponseStatus_+    }++-- | An optional pagination token provided by a previous request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by 'MaxRecords'.+dsrrsMarker :: Lens' DescribeSourceRegionsResponse (Maybe Text)+dsrrsMarker = lens _dsrrsMarker (\ s a -> s{_dsrrsMarker = a});++-- | A list of SourceRegion instances that contains each source AWS Region that the current region can get a Read Replica or a DB snapshot from.+dsrrsSourceRegions :: Lens' DescribeSourceRegionsResponse [SourceRegion]+dsrrsSourceRegions = lens _dsrrsSourceRegions (\ s a -> s{_dsrrsSourceRegions = a}) . _Default . _Coerce;++-- | The response status code.+dsrrsResponseStatus :: Lens' DescribeSourceRegionsResponse Int+dsrrsResponseStatus = lens _dsrrsResponseStatus (\ s a -> s{_dsrrsResponseStatus = a});++instance NFData DescribeSourceRegionsResponse

@@ -107,8 +107,11 @@ -- 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+-- ddlfpDBInstanceIdentifier :: Lens' DownloadDBLogFilePortion Text ddlfpDBInstanceIdentifier = lens _ddlfpDBInstanceIdentifier (\ s a -> s{_ddlfpDBInstanceIdentifier = a}); 

@@ -32,6 +32,7 @@     , FailoverDBCluster     -- * Request Lenses     , fdcDBClusterIdentifier+    , fdcTargetDBInstanceIdentifier      -- * Destructuring the Response     , failoverDBClusterResponse@@ -51,8 +52,9 @@ -- | -- -- /See:/ 'failoverDBCluster' smart constructor.-newtype FailoverDBCluster = FailoverDBCluster'-    { _fdcDBClusterIdentifier :: Maybe Text+data FailoverDBCluster = FailoverDBCluster'+    { _fdcDBClusterIdentifier        :: !(Maybe Text)+    , _fdcTargetDBInstanceIdentifier :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'FailoverDBCluster' with the minimum fields required to make a request.@@ -60,11 +62,14 @@ -- Use one of the following lenses to modify other fields as desired: -- -- * 'fdcDBClusterIdentifier'+--+-- * 'fdcTargetDBInstanceIdentifier' failoverDBCluster     :: FailoverDBCluster failoverDBCluster =     FailoverDBCluster'     { _fdcDBClusterIdentifier = Nothing+    , _fdcTargetDBInstanceIdentifier = Nothing     }  -- | A DB cluster identifier to force a failover for. This parameter is not case-sensitive.@@ -72,11 +77,20 @@ -- 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+-- fdcDBClusterIdentifier :: Lens' FailoverDBCluster (Maybe Text) fdcDBClusterIdentifier = lens _fdcDBClusterIdentifier (\ s a -> s{_fdcDBClusterIdentifier = a}); +-- | The name of the instance to promote to the primary instance.+--+-- You must specify the instance identifier for an Aurora Replica in the DB cluster. For example, 'mydbcluster-replica1'.+fdcTargetDBInstanceIdentifier :: Lens' FailoverDBCluster (Maybe Text)+fdcTargetDBInstanceIdentifier = lens _fdcTargetDBInstanceIdentifier (\ s a -> s{_fdcTargetDBInstanceIdentifier = a});+ instance AWSRequest FailoverDBCluster where         type Rs FailoverDBCluster = FailoverDBClusterResponse         request = postQuery rds@@ -101,7 +115,9 @@           = mconcat               ["Action" =: ("FailoverDBCluster" :: ByteString),                "Version" =: ("2014-10-31" :: ByteString),-               "DBClusterIdentifier" =: _fdcDBClusterIdentifier]+               "DBClusterIdentifier" =: _fdcDBClusterIdentifier,+               "TargetDBInstanceIdentifier" =:+                 _fdcTargetDBInstanceIdentifier]  -- | /See:/ 'failoverDBClusterResponse' smart constructor. data FailoverDBClusterResponse = FailoverDBClusterResponse'

@@ -73,7 +73,7 @@ ltfrFilters :: Lens' ListTagsForResource [Filter] ltfrFilters = lens _ltfrFilters (\ s a -> s{_ltfrFilters = a}) . _Default . _Coerce; --- | The Amazon RDS resource with tags to be listed. This value is an Amazon Resource Name (ARN). For information about creating an ARN, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.html#USER_Tagging.ARN Constructing an RDS Amazon Resource Name (ARN)>.+-- | The Amazon RDS resource with tags to be listed. This value is an Amazon Resource Name (ARN). For information about creating an ARN, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.ARN.html#USER_Tagging.ARN.Constructing Constructing an RDS Amazon Resource Name (ARN)>. ltfrResourceName :: Lens' ListTagsForResource Text ltfrResourceName = lens _ltfrResourceName (\ s a -> s{_ltfrResourceName = a}); 

@@ -137,9 +137,13 @@ -- Constraints: -- -- -   Must be in the format 'hh24:mi-hh24:mi'.+-- -- -   Times should be in Universal Coordinated Time (UTC).+-- -- -   Must not conflict with the preferred maintenance window.+-- -- -   Must be at least 30 minutes.+-- mdcPreferredBackupWindow :: Lens' ModifyDBCluster (Maybe Text) mdcPreferredBackupWindow = lens _mdcPreferredBackupWindow (\ s a -> s{_mdcPreferredBackupWindow = a}); @@ -150,6 +154,7 @@ -- Constraints: -- -- -   Must be a value from 1 to 35+-- mdcBackupRetentionPeriod :: Lens' ModifyDBCluster (Maybe Int) mdcBackupRetentionPeriod = lens _mdcBackupRetentionPeriod (\ s a -> s{_mdcBackupRetentionPeriod = a}); @@ -180,7 +185,9 @@ -- 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-cluster2'@@ -200,9 +207,13 @@ -- 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}); 

@@ -0,0 +1,183 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.RDS.ModifyDBClusterSnapshotAttribute+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds an attribute and values to, or removes an attribute and values from, a manual DB cluster snapshot.+--+-- To share a manual DB cluster snapshot with other AWS accounts, specify 'restore' as the 'AttributeName' and use the 'ValuesToAdd' parameter to add a list of IDs of the AWS accounts that are authorized to restore the manual DB cluster snapshot. Use the value 'all' to make the manual DB cluster snapshot public, which means that it can be copied or restored by all AWS accounts. Do not add the 'all' value for any manual DB cluster snapshots that contain private information that you don\'t want available to all AWS accounts.+--+-- To view which AWS accounts have access to copy or restore a manual DB cluster snapshot, or whether a manual DB cluster snapshot public or private, use the < DescribeDBClusterSnapshotAttributes> API action.+--+-- If a manual DB cluster snapshot is encrypted, it cannot be shared.+module Network.AWS.RDS.ModifyDBClusterSnapshotAttribute+    (+    -- * Creating a Request+      modifyDBClusterSnapshotAttribute+    , ModifyDBClusterSnapshotAttribute+    -- * Request Lenses+    , mdcsaValuesToAdd+    , mdcsaValuesToRemove+    , mdcsaDBClusterSnapshotIdentifier+    , mdcsaAttributeName++    -- * Destructuring the Response+    , modifyDBClusterSnapshotAttributeResponse+    , ModifyDBClusterSnapshotAttributeResponse+    -- * Response Lenses+    , mdcsarsDBClusterSnapshotAttributesResult+    , mdcsarsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response++-- |+--+-- /See:/ 'modifyDBClusterSnapshotAttribute' smart constructor.+data ModifyDBClusterSnapshotAttribute = ModifyDBClusterSnapshotAttribute'+    { _mdcsaValuesToAdd                 :: !(Maybe [Text])+    , _mdcsaValuesToRemove              :: !(Maybe [Text])+    , _mdcsaDBClusterSnapshotIdentifier :: !Text+    , _mdcsaAttributeName               :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ModifyDBClusterSnapshotAttribute' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mdcsaValuesToAdd'+--+-- * 'mdcsaValuesToRemove'+--+-- * 'mdcsaDBClusterSnapshotIdentifier'+--+-- * 'mdcsaAttributeName'+modifyDBClusterSnapshotAttribute+    :: Text -- ^ 'mdcsaDBClusterSnapshotIdentifier'+    -> Text -- ^ 'mdcsaAttributeName'+    -> ModifyDBClusterSnapshotAttribute+modifyDBClusterSnapshotAttribute pDBClusterSnapshotIdentifier_ pAttributeName_ =+    ModifyDBClusterSnapshotAttribute'+    { _mdcsaValuesToAdd = Nothing+    , _mdcsaValuesToRemove = Nothing+    , _mdcsaDBClusterSnapshotIdentifier = pDBClusterSnapshotIdentifier_+    , _mdcsaAttributeName = pAttributeName_+    }++-- | A list of DB cluster snapshot attributes to add to the attribute specified by 'AttributeName'.+--+-- To authorize other AWS accounts to copy or restore a manual DB cluster snapshot, set this list to include one or more AWS account IDs, or 'all' to make the manual DB cluster snapshot restorable by any AWS account. Do not add the 'all' value for any manual DB cluster snapshots that contain private information that you don\'t want available to all AWS accounts.+mdcsaValuesToAdd :: Lens' ModifyDBClusterSnapshotAttribute [Text]+mdcsaValuesToAdd = lens _mdcsaValuesToAdd (\ s a -> s{_mdcsaValuesToAdd = a}) . _Default . _Coerce;++-- | A list of DB cluster snapshot attributes to remove from the attribute specified by 'AttributeName'.+--+-- To remove authorization for other AWS accounts to copy or restore a manual DB cluster snapshot, set this list to include one or more AWS account identifiers, or 'all' to remove authorization for any AWS account to copy or restore the DB cluster snapshot. If you specify 'all', an AWS account whose account ID is explicitly added to the 'restore' attribute can still copy or restore a manual DB cluster snapshot.+mdcsaValuesToRemove :: Lens' ModifyDBClusterSnapshotAttribute [Text]+mdcsaValuesToRemove = lens _mdcsaValuesToRemove (\ s a -> s{_mdcsaValuesToRemove = a}) . _Default . _Coerce;++-- | The identifier for the DB cluster snapshot to modify the attributes for.+mdcsaDBClusterSnapshotIdentifier :: Lens' ModifyDBClusterSnapshotAttribute Text+mdcsaDBClusterSnapshotIdentifier = lens _mdcsaDBClusterSnapshotIdentifier (\ s a -> s{_mdcsaDBClusterSnapshotIdentifier = a});++-- | The name of the DB cluster snapshot attribute to modify.+--+-- To manage authorization for other AWS accounts to copy or restore a manual DB cluster snapshot, set this value to 'restore'.+mdcsaAttributeName :: Lens' ModifyDBClusterSnapshotAttribute Text+mdcsaAttributeName = lens _mdcsaAttributeName (\ s a -> s{_mdcsaAttributeName = a});++instance AWSRequest ModifyDBClusterSnapshotAttribute+         where+        type Rs ModifyDBClusterSnapshotAttribute =+             ModifyDBClusterSnapshotAttributeResponse+        request = postQuery rds+        response+          = receiveXMLWrapper+              "ModifyDBClusterSnapshotAttributeResult"+              (\ s h x ->+                 ModifyDBClusterSnapshotAttributeResponse' <$>+                   (x .@? "DBClusterSnapshotAttributesResult") <*>+                     (pure (fromEnum s)))++instance Hashable ModifyDBClusterSnapshotAttribute++instance NFData ModifyDBClusterSnapshotAttribute++instance ToHeaders ModifyDBClusterSnapshotAttribute+         where+        toHeaders = const mempty++instance ToPath ModifyDBClusterSnapshotAttribute+         where+        toPath = const "/"++instance ToQuery ModifyDBClusterSnapshotAttribute+         where+        toQuery ModifyDBClusterSnapshotAttribute'{..}+          = mconcat+              ["Action" =:+                 ("ModifyDBClusterSnapshotAttribute" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "ValuesToAdd" =:+                 toQuery+                   (toQueryList "AttributeValue" <$> _mdcsaValuesToAdd),+               "ValuesToRemove" =:+                 toQuery+                   (toQueryList "AttributeValue" <$>+                      _mdcsaValuesToRemove),+               "DBClusterSnapshotIdentifier" =:+                 _mdcsaDBClusterSnapshotIdentifier,+               "AttributeName" =: _mdcsaAttributeName]++-- | /See:/ 'modifyDBClusterSnapshotAttributeResponse' smart constructor.+data ModifyDBClusterSnapshotAttributeResponse = ModifyDBClusterSnapshotAttributeResponse'+    { _mdcsarsDBClusterSnapshotAttributesResult :: !(Maybe DBClusterSnapshotAttributesResult)+    , _mdcsarsResponseStatus                    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ModifyDBClusterSnapshotAttributeResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mdcsarsDBClusterSnapshotAttributesResult'+--+-- * 'mdcsarsResponseStatus'+modifyDBClusterSnapshotAttributeResponse+    :: Int -- ^ 'mdcsarsResponseStatus'+    -> ModifyDBClusterSnapshotAttributeResponse+modifyDBClusterSnapshotAttributeResponse pResponseStatus_ =+    ModifyDBClusterSnapshotAttributeResponse'+    { _mdcsarsDBClusterSnapshotAttributesResult = Nothing+    , _mdcsarsResponseStatus = pResponseStatus_+    }++-- | Undocumented member.+mdcsarsDBClusterSnapshotAttributesResult :: Lens' ModifyDBClusterSnapshotAttributeResponse (Maybe DBClusterSnapshotAttributesResult)+mdcsarsDBClusterSnapshotAttributesResult = lens _mdcsarsDBClusterSnapshotAttributesResult (\ s a -> s{_mdcsarsDBClusterSnapshotAttributesResult = a});++-- | The response status code.+mdcsarsResponseStatus :: Lens' ModifyDBClusterSnapshotAttributeResponse Int+mdcsarsResponseStatus = lens _mdcsarsResponseStatus (\ s a -> s{_mdcsarsResponseStatus = a});++instance NFData+         ModifyDBClusterSnapshotAttributeResponse

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Modify settings for a DB instance. You can change one or more database configuration parameters by specifying these parameters and the new values in the request.+-- Modifies settings for a DB instance. You can change one or more database configuration parameters by specifying these parameters and the new values in the request. module Network.AWS.RDS.ModifyDBInstance     (     -- * Creating a Request@@ -31,6 +31,7 @@     , mdiMasterUserPassword     , mdiPubliclyAccessible     , mdiAutoMinorVersionUpgrade+    , mdiDBSubnetGroupName     , mdiMonitoringRoleARN     , mdiIOPS     , mdiAllowMajorVersionUpgrade@@ -40,6 +41,7 @@     , mdiTDECredentialPassword     , mdiDBInstanceClass     , mdiPromotionTier+    , mdiLicenseModel     , mdiPreferredMaintenanceWindow     , mdiCACertificateIdentifier     , mdiDBParameterGroupName@@ -81,6 +83,7 @@     , _mdiMasterUserPassword         :: !(Maybe Text)     , _mdiPubliclyAccessible         :: !(Maybe Bool)     , _mdiAutoMinorVersionUpgrade    :: !(Maybe Bool)+    , _mdiDBSubnetGroupName          :: !(Maybe Text)     , _mdiMonitoringRoleARN          :: !(Maybe Text)     , _mdiIOPS                       :: !(Maybe Int)     , _mdiAllowMajorVersionUpgrade   :: !(Maybe Bool)@@ -90,6 +93,7 @@     , _mdiTDECredentialPassword      :: !(Maybe Text)     , _mdiDBInstanceClass            :: !(Maybe Text)     , _mdiPromotionTier              :: !(Maybe Int)+    , _mdiLicenseModel               :: !(Maybe Text)     , _mdiPreferredMaintenanceWindow :: !(Maybe Text)     , _mdiCACertificateIdentifier    :: !(Maybe Text)     , _mdiDBParameterGroupName       :: !(Maybe Text)@@ -123,6 +127,8 @@ -- -- * 'mdiAutoMinorVersionUpgrade' --+-- * 'mdiDBSubnetGroupName'+-- -- * 'mdiMonitoringRoleARN' -- -- * 'mdiIOPS'@@ -141,6 +147,8 @@ -- -- * 'mdiPromotionTier' --+-- * 'mdiLicenseModel'+-- -- * 'mdiPreferredMaintenanceWindow' -- -- * 'mdiCACertificateIdentifier'@@ -181,6 +189,7 @@     , _mdiMasterUserPassword = Nothing     , _mdiPubliclyAccessible = Nothing     , _mdiAutoMinorVersionUpgrade = Nothing+    , _mdiDBSubnetGroupName = Nothing     , _mdiMonitoringRoleARN = Nothing     , _mdiIOPS = Nothing     , _mdiAllowMajorVersionUpgrade = Nothing@@ -190,6 +199,7 @@     , _mdiTDECredentialPassword = Nothing     , _mdiDBInstanceClass = Nothing     , _mdiPromotionTier = Nothing+    , _mdiLicenseModel = Nothing     , _mdiPreferredMaintenanceWindow = Nothing     , _mdiCACertificateIdentifier = Nothing     , _mdiDBParameterGroupName = Nothing@@ -220,8 +230,11 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- mdiDBSecurityGroups :: Lens' ModifyDBInstance [Text] mdiDBSecurityGroups = lens _mdiDBSecurityGroups (\ s a -> s{_mdiDBSecurityGroups = a}) . _Default . _Coerce; @@ -297,6 +310,16 @@ mdiAutoMinorVersionUpgrade :: Lens' ModifyDBInstance (Maybe Bool) mdiAutoMinorVersionUpgrade = lens _mdiAutoMinorVersionUpgrade (\ s a -> s{_mdiAutoMinorVersionUpgrade = a}); +-- | The new DB subnet group for the DB instance. You can use this parameter to move your DB instance to a different VPC, or to a different subnet group in the same VPC. If your DB instance is not in a VPC, you can also use this parameter to move your DB instance into a VPC. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_VPC.WorkingWithRDSInstanceinaVPC.html#USER_VPC.Non-VPC2VPC Updating the VPC for a DB Instance>.+--+-- Changing the subnet group causes an outage during the change. The change is applied during the next maintenance window, unless you specify 'true' for the 'ApplyImmediately' parameter.+--+-- Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens.+--+-- Example: 'mySubnetGroup'+mdiDBSubnetGroupName :: Lens' ModifyDBInstance (Maybe Text)+mdiDBSubnetGroupName = lens _mdiDBSubnetGroupName (\ s a -> s{_mdiDBSubnetGroupName = a});+ -- | The ARN for the IAM role that permits RDS to send enhanced monitoring metrics to CloudWatch Logs. For example, 'arn:aws:iam:123456789012:role\/emaccess'. For information on creating a monitoring role, go to <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Monitoring.html#USER_Monitoring.OS.IAMRole To create an IAM role for Amazon RDS Enhanced Monitoring>. -- -- If 'MonitoringInterval' is set to a value other than 0, then you must supply a 'MonitoringRoleArn' value.@@ -330,8 +353,11 @@ -- 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+-- mdiNewDBInstanceIdentifier :: Lens' ModifyDBInstance (Maybe Text) mdiNewDBInstanceIdentifier = lens _mdiNewDBInstanceIdentifier (\ s a -> s{_mdiNewDBInstanceIdentifier = a}); @@ -341,7 +367,7 @@ mdiDomain :: Lens' ModifyDBInstance (Maybe Text) mdiDomain = lens _mdiDomain (\ s a -> s{_mdiDomain = a}); --- | The interval, in seconds, between points when Enhanced Monitoring metrics are collected for the DB instance. To disable collecting Enhanced Monitoring metrics, specify 0. The default is 60.+-- | The interval, in seconds, between points when Enhanced Monitoring metrics are collected for the DB instance. To disable collecting Enhanced Monitoring metrics, specify 0. The default is 0. -- -- If 'MonitoringRoleArn' is specified, then you must also set 'MonitoringInterval' to a value other than 0. --@@ -371,6 +397,12 @@ mdiPromotionTier :: Lens' ModifyDBInstance (Maybe Int) mdiPromotionTier = lens _mdiPromotionTier (\ s a -> s{_mdiPromotionTier = a}); +-- | The license model for the DB instance.+--+-- Valid values: 'license-included' | 'bring-your-own-license' | 'general-public-license'+mdiLicenseModel :: Lens' ModifyDBInstance (Maybe Text)+mdiLicenseModel = lens _mdiLicenseModel (\ s a -> s{_mdiLicenseModel = a});+ -- | The weekly time range (in UTC) during which system maintenance can occur, which might result in an outage. Changing this parameter does not result in an outage, except in the following situation, and the change is asynchronously applied as soon as possible. If there are pending actions that cause a reboot, and the maintenance window is changed to include the current time, then changing this parameter will cause a reboot of the DB instance. If moving this window to the current time, there must be at least 30 minutes between the current time and end of the window to ensure pending changes are applied. -- -- Default: Uses existing setting@@ -400,9 +432,13 @@ -- Constraints: -- -- -   Must be in the format hh24:mi-hh24:mi+-- -- -   Times should be in Universal Time Coordinated (UTC)+-- -- -   Must not conflict with the preferred maintenance window+-- -- -   Must be at least 30 minutes+-- mdiPreferredBackupWindow :: Lens' ModifyDBInstance (Maybe Text) mdiPreferredBackupWindow = lens _mdiPreferredBackupWindow (\ s a -> s{_mdiPreferredBackupWindow = a}); @@ -415,9 +451,13 @@ -- Constraints: -- -- -   Must be a value from 0 to 35+-- -- -   Can be specified for a MySQL Read Replica only if the source is running MySQL 5.6+-- -- -   Can be specified for a PostgreSQL Read Replica only if the source is running PostgreSQL 9.3.5+-- -- -   Cannot be set to 0 if the DB instance is a source to Read Replicas+-- mdiBackupRetentionPeriod :: Lens' ModifyDBInstance (Maybe Int) mdiBackupRetentionPeriod = lens _mdiBackupRetentionPeriod (\ s a -> s{_mdiBackupRetentionPeriod = a}); @@ -426,14 +466,17 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- mdiVPCSecurityGroupIds :: Lens' ModifyDBInstance [Text] mdiVPCSecurityGroupIds = lens _mdiVPCSecurityGroupIds (\ s a -> s{_mdiVPCSecurityGroupIds = a}) . _Default . _Coerce;  -- | Specifies if the DB instance is a Multi-AZ deployment. Changing this parameter does not result in an outage and the change is applied during the next maintenance window unless the 'ApplyImmediately' parameter is set to 'true' for this request. ----- Constraints: Cannot be specified if the DB instance is a Read Replica. This parameter cannot be used with SQL Server DB instances. Multi-AZ for SQL Server DB instances is set using the Mirroring option in an option group associated with the DB instance.+-- Constraints: Cannot be specified if the DB instance is a Read Replica. mdiMultiAZ :: Lens' ModifyDBInstance (Maybe Bool) mdiMultiAZ = lens _mdiMultiAZ (\ s a -> s{_mdiMultiAZ = a}); @@ -526,9 +569,13 @@ -- Constraints: -- -- -   Must be the identifier for an existing DB instance+-- -- -   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+-- mdiDBInstanceIdentifier :: Lens' ModifyDBInstance Text mdiDBInstanceIdentifier = lens _mdiDBInstanceIdentifier (\ s a -> s{_mdiDBInstanceIdentifier = a}); @@ -566,6 +613,7 @@                "PubliclyAccessible" =: _mdiPubliclyAccessible,                "AutoMinorVersionUpgrade" =:                  _mdiAutoMinorVersionUpgrade,+               "DBSubnetGroupName" =: _mdiDBSubnetGroupName,                "MonitoringRoleArn" =: _mdiMonitoringRoleARN,                "Iops" =: _mdiIOPS,                "AllowMajorVersionUpgrade" =:@@ -577,6 +625,7 @@                "TdeCredentialPassword" =: _mdiTDECredentialPassword,                "DBInstanceClass" =: _mdiDBInstanceClass,                "PromotionTier" =: _mdiPromotionTier,+               "LicenseModel" =: _mdiLicenseModel,                "PreferredMaintenanceWindow" =:                  _mdiPreferredMaintenanceWindow,                "CACertificateIdentifier" =:

@@ -75,9 +75,13 @@ -- Constraints: -- -- -   Must be the name of an existing DB parameter group+-- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- mdpgDBParameterGroupName :: Lens' ModifyDBParameterGroup Text mdpgDBParameterGroupName = lens _mdpgDBParameterGroupName (\ s a -> s{_mdpgDBParameterGroupName = a}); 

@@ -18,11 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Adds an attribute and values to, or removes an attribute and values from a manual DB snapshot.+-- Adds an attribute and values to, or removes an attribute and values from, a manual DB snapshot. ----- To share a manual DB snapshot with other AWS accounts, specify 'restore' as the 'AttributeName' and use the 'ValuesToAdd' parameter to add a list of the AWS account ids that are authorized to restore the manual DB snapshot. Uses the value 'all' to make the manual DB snapshot public and can by copied or restored by all AWS accounts. Do not add the 'all' value for any manual DB snapshots that contain private information that you do not want to be available to all AWS accounts.+-- To share a manual DB snapshot with other AWS accounts, specify 'restore' as the 'AttributeName' and use the 'ValuesToAdd' parameter to add a list of IDs of the AWS accounts that are authorized to restore the manual DB snapshot. Uses the value 'all' to make the manual DB snapshot public, which means it can be copied or restored by all AWS accounts. Do not add the 'all' value for any manual DB snapshots that contain private information that you don\'t want available to all AWS accounts. ----- To view which AWS accounts have access to copy or restore a manual DB snapshot, or whether a manual DB snapshot public or private, use the < DescribeDBSnapshotAttributes> API.+-- To view which AWS accounts have access to copy or restore a manual DB snapshot, or whether a manual DB snapshot public or private, use the < DescribeDBSnapshotAttributes> API action. -- -- If the manual DB snapshot is encrypted, it cannot be shared. module Network.AWS.RDS.ModifyDBSnapshotAttribute@@ -33,8 +33,8 @@     -- * Request Lenses     , mdsaValuesToAdd     , mdsaValuesToRemove-    , mdsaAttributeName     , mdsaDBSnapshotIdentifier+    , mdsaAttributeName      -- * Destructuring the Response     , modifyDBSnapshotAttributeResponse@@ -51,12 +51,14 @@ import           Network.AWS.Request import           Network.AWS.Response --- | /See:/ 'modifyDBSnapshotAttribute' smart constructor.+-- |+--+-- /See:/ 'modifyDBSnapshotAttribute' smart constructor. data ModifyDBSnapshotAttribute = ModifyDBSnapshotAttribute'     { _mdsaValuesToAdd          :: !(Maybe [Text])     , _mdsaValuesToRemove       :: !(Maybe [Text])-    , _mdsaAttributeName        :: !(Maybe Text)     , _mdsaDBSnapshotIdentifier :: !Text+    , _mdsaAttributeName        :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ModifyDBSnapshotAttribute' with the minimum fields required to make a request.@@ -67,42 +69,43 @@ -- -- * 'mdsaValuesToRemove' ----- * 'mdsaAttributeName'--- -- * 'mdsaDBSnapshotIdentifier'+--+-- * 'mdsaAttributeName' modifyDBSnapshotAttribute     :: Text -- ^ 'mdsaDBSnapshotIdentifier'+    -> Text -- ^ 'mdsaAttributeName'     -> ModifyDBSnapshotAttribute-modifyDBSnapshotAttribute pDBSnapshotIdentifier_ =+modifyDBSnapshotAttribute pDBSnapshotIdentifier_ pAttributeName_ =     ModifyDBSnapshotAttribute'     { _mdsaValuesToAdd = Nothing     , _mdsaValuesToRemove = Nothing-    , _mdsaAttributeName = Nothing     , _mdsaDBSnapshotIdentifier = pDBSnapshotIdentifier_+    , _mdsaAttributeName = pAttributeName_     }  -- | A list of DB snapshot attributes to add to the attribute specified by 'AttributeName'. ----- To authorize other AWS Accounts to copy or restore a manual snapshot, this is one or more AWS account identifiers, or 'all' to make the manual DB snapshot restorable by any AWS account. Do not add the 'all' value for any manual DB snapshots that contain private information that you do not want to be available to all AWS accounts.+-- To authorize other AWS accounts to copy or restore a manual snapshot, set this list to include one or more AWS account IDs, or 'all' to make the manual DB snapshot restorable by any AWS account. Do not add the 'all' value for any manual DB snapshots that contain private information that you don\'t want available to all AWS accounts. mdsaValuesToAdd :: Lens' ModifyDBSnapshotAttribute [Text] mdsaValuesToAdd = lens _mdsaValuesToAdd (\ s a -> s{_mdsaValuesToAdd = a}) . _Default . _Coerce;  -- | A list of DB snapshot attributes to remove from the attribute specified by 'AttributeName'. ----- To remove authorization for other AWS Accounts to copy or restore a manual snapshot, this is one or more AWS account identifiers, or 'all' to remove authorization for any AWS account to copy or restore the DB snapshot. If you specify 'all', AWS accounts that have their account identifier explicitly added to the 'restore' attribute can still copy or restore the manual DB snapshot.+-- To remove authorization for other AWS accounts to copy or restore a manual snapshot, set this list to include one or more AWS account identifiers, or 'all' to remove authorization for any AWS account to copy or restore the DB snapshot. If you specify 'all', an AWS account whose account ID is explicitly added to the 'restore' attribute can still copy or restore the manual DB snapshot. mdsaValuesToRemove :: Lens' ModifyDBSnapshotAttribute [Text] mdsaValuesToRemove = lens _mdsaValuesToRemove (\ s a -> s{_mdsaValuesToRemove = a}) . _Default . _Coerce; --- | The name of the DB snapshot attribute to modify.------ To manage authorization for other AWS accounts to copy or restore a manual DB snapshot, this value is 'restore'.-mdsaAttributeName :: Lens' ModifyDBSnapshotAttribute (Maybe Text)-mdsaAttributeName = lens _mdsaAttributeName (\ s a -> s{_mdsaAttributeName = a});- -- | The identifier for the DB snapshot to modify the attributes for. mdsaDBSnapshotIdentifier :: Lens' ModifyDBSnapshotAttribute Text mdsaDBSnapshotIdentifier = lens _mdsaDBSnapshotIdentifier (\ s a -> s{_mdsaDBSnapshotIdentifier = a}); +-- | The name of the DB snapshot attribute to modify.+--+-- To manage authorization for other AWS accounts to copy or restore a manual DB snapshot, set this value to 'restore'.+mdsaAttributeName :: Lens' ModifyDBSnapshotAttribute Text+mdsaAttributeName = lens _mdsaAttributeName (\ s a -> s{_mdsaAttributeName = a});+ instance AWSRequest ModifyDBSnapshotAttribute where         type Rs ModifyDBSnapshotAttribute =              ModifyDBSnapshotAttributeResponse@@ -137,8 +140,8 @@                  toQuery                    (toQueryList "AttributeValue" <$>                       _mdsaValuesToRemove),-               "AttributeName" =: _mdsaAttributeName,-               "DBSnapshotIdentifier" =: _mdsaDBSnapshotIdentifier]+               "DBSnapshotIdentifier" =: _mdsaDBSnapshotIdentifier,+               "AttributeName" =: _mdsaAttributeName]  -- | /See:/ 'modifyDBSnapshotAttributeResponse' smart constructor. data ModifyDBSnapshotAttributeResponse = ModifyDBSnapshotAttributeResponse'

@@ -81,9 +81,13 @@ -- Constraints: -- -- -   Must be in the format 'hh24:mi-hh24:mi'.+-- -- -   Times should be in Universal Coordinated Time (UTC).+-- -- -   Must not conflict with the preferred maintenance window.+-- -- -   Must be at least 30 minutes.+-- prrPreferredBackupWindow :: Lens' PromoteReadReplica (Maybe Text) prrPreferredBackupWindow = lens _prrPreferredBackupWindow (\ s a -> s{_prrPreferredBackupWindow = a}); @@ -94,6 +98,7 @@ -- Constraints: -- -- -   Must be a value from 0 to 8+-- prrBackupRetentionPeriod :: Lens' PromoteReadReplica (Maybe Int) prrBackupRetentionPeriod = lens _prrBackupRetentionPeriod (\ s a -> s{_prrBackupRetentionPeriod = a}); @@ -102,8 +107,11 @@ -- Constraints: -- -- -   Must be the identifier for an existing Read Replica DB instance+-- -- -   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: 'mydbinstance'

@@ -0,0 +1,138 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.RDS.PromoteReadReplicaDBCluster+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Promotes a Read Replica DB cluster to a standalone DB cluster.+module Network.AWS.RDS.PromoteReadReplicaDBCluster+    (+    -- * Creating a Request+      promoteReadReplicaDBCluster+    , PromoteReadReplicaDBCluster+    -- * Request Lenses+    , prrdcDBClusterIdentifier++    -- * Destructuring the Response+    , promoteReadReplicaDBClusterResponse+    , PromoteReadReplicaDBClusterResponse+    -- * Response Lenses+    , prrdcrsDBCluster+    , prrdcrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response++-- |+--+-- /See:/ 'promoteReadReplicaDBCluster' smart constructor.+newtype PromoteReadReplicaDBCluster = PromoteReadReplicaDBCluster'+    { _prrdcDBClusterIdentifier :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'PromoteReadReplicaDBCluster' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'prrdcDBClusterIdentifier'+promoteReadReplicaDBCluster+    :: Text -- ^ 'prrdcDBClusterIdentifier'+    -> PromoteReadReplicaDBCluster+promoteReadReplicaDBCluster pDBClusterIdentifier_ =+    PromoteReadReplicaDBCluster'+    { _prrdcDBClusterIdentifier = pDBClusterIdentifier_+    }++-- | The identifier of the DB cluster Read Replica to promote. This parameter is not 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.+--+-- Example: 'my-cluster-replica1'+prrdcDBClusterIdentifier :: Lens' PromoteReadReplicaDBCluster Text+prrdcDBClusterIdentifier = lens _prrdcDBClusterIdentifier (\ s a -> s{_prrdcDBClusterIdentifier = a});++instance AWSRequest PromoteReadReplicaDBCluster where+        type Rs PromoteReadReplicaDBCluster =+             PromoteReadReplicaDBClusterResponse+        request = postQuery rds+        response+          = receiveXMLWrapper+              "PromoteReadReplicaDBClusterResult"+              (\ s h x ->+                 PromoteReadReplicaDBClusterResponse' <$>+                   (x .@? "DBCluster") <*> (pure (fromEnum s)))++instance Hashable PromoteReadReplicaDBCluster++instance NFData PromoteReadReplicaDBCluster++instance ToHeaders PromoteReadReplicaDBCluster where+        toHeaders = const mempty++instance ToPath PromoteReadReplicaDBCluster where+        toPath = const "/"++instance ToQuery PromoteReadReplicaDBCluster where+        toQuery PromoteReadReplicaDBCluster'{..}+          = mconcat+              ["Action" =:+                 ("PromoteReadReplicaDBCluster" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "DBClusterIdentifier" =: _prrdcDBClusterIdentifier]++-- | /See:/ 'promoteReadReplicaDBClusterResponse' smart constructor.+data PromoteReadReplicaDBClusterResponse = PromoteReadReplicaDBClusterResponse'+    { _prrdcrsDBCluster      :: !(Maybe DBCluster)+    , _prrdcrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'PromoteReadReplicaDBClusterResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'prrdcrsDBCluster'+--+-- * 'prrdcrsResponseStatus'+promoteReadReplicaDBClusterResponse+    :: Int -- ^ 'prrdcrsResponseStatus'+    -> PromoteReadReplicaDBClusterResponse+promoteReadReplicaDBClusterResponse pResponseStatus_ =+    PromoteReadReplicaDBClusterResponse'+    { _prrdcrsDBCluster = Nothing+    , _prrdcrsResponseStatus = pResponseStatus_+    }++-- | Undocumented member.+prrdcrsDBCluster :: Lens' PromoteReadReplicaDBClusterResponse (Maybe DBCluster)+prrdcrsDBCluster = lens _prrdcrsDBCluster (\ s a -> s{_prrdcrsDBCluster = a});++-- | The response status code.+prrdcrsResponseStatus :: Lens' PromoteReadReplicaDBClusterResponse Int+prrdcrsResponseStatus = lens _prrdcrsResponseStatus (\ s a -> s{_prrdcrsResponseStatus = a});++instance NFData PromoteReadReplicaDBClusterResponse

@@ -82,8 +82,11 @@ -- 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+-- rdiDBInstanceIdentifier :: Lens' RebootDBInstance Text rdiDBInstanceIdentifier = lens _rdiDBInstanceIdentifier (\ s a -> s{_rdiDBInstanceIdentifier = a}); 

@@ -66,7 +66,7 @@     , _rtfrTagKeys = mempty     } --- | The Amazon RDS resource the tags will be removed from. This value is an Amazon Resource Name (ARN). For information about creating an ARN, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.html#USER_Tagging.ARN Constructing an RDS Amazon Resource Name (ARN)>.+-- | The Amazon RDS resource the tags will be removed from. This value is an Amazon Resource Name (ARN). For information about creating an ARN, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.ARN.html#USER_Tagging.ARN.Constructing Constructing an RDS Amazon Resource Name (ARN)>. rtfrResourceName :: Lens' RemoveTagsFromResource Text rtfrResourceName = lens _rtfrResourceName (\ s a -> s{_rtfrResourceName = a}); 

@@ -102,8 +102,11 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens+-- rdpgDBParameterGroupName :: Lens' ResetDBParameterGroup Text rdpgDBParameterGroupName = lens _rdpgDBParameterGroupName (\ s a -> s{_rdpgDBParameterGroupName = a}); 

@@ -0,0 +1,454 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.RDS.RestoreDBClusterFromS3+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an Amazon Aurora DB cluster from data stored in an Amazon S3 bucket. Amazon RDS must be authorized to access the Amazon S3 bucket and the data must be created using the Percona XtraBackup utility as described in <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Aurora.Migrate.html Migrating Data from an External MySQL Database to an Amazon Aurora DB Cluster>.+module Network.AWS.RDS.RestoreDBClusterFromS3+    (+    -- * Creating a Request+      restoreDBClusterFromS3+    , RestoreDBClusterFromS3+    -- * Request Lenses+    , rdcfsEngineVersion+    , rdcfsStorageEncrypted+    , rdcfsDBSubnetGroupName+    , rdcfsPreferredMaintenanceWindow+    , rdcfsAvailabilityZones+    , rdcfsCharacterSetName+    , rdcfsKMSKeyId+    , rdcfsPreferredBackupWindow+    , rdcfsBackupRetentionPeriod+    , rdcfsVPCSecurityGroupIds+    , rdcfsDatabaseName+    , rdcfsDBClusterParameterGroupName+    , rdcfsS3Prefix+    , rdcfsOptionGroupName+    , rdcfsTags+    , rdcfsPort+    , rdcfsDBClusterIdentifier+    , rdcfsEngine+    , rdcfsMasterUsername+    , rdcfsMasterUserPassword+    , rdcfsSourceEngine+    , rdcfsSourceEngineVersion+    , rdcfsS3BucketName+    , rdcfsS3IngestionRoleARN++    -- * Destructuring the Response+    , restoreDBClusterFromS3Response+    , RestoreDBClusterFromS3Response+    -- * Response Lenses+    , rdcfsrsDBCluster+    , rdcfsrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'restoreDBClusterFromS3' smart constructor.+data RestoreDBClusterFromS3 = RestoreDBClusterFromS3'+    { _rdcfsEngineVersion               :: !(Maybe Text)+    , _rdcfsStorageEncrypted            :: !(Maybe Bool)+    , _rdcfsDBSubnetGroupName           :: !(Maybe Text)+    , _rdcfsPreferredMaintenanceWindow  :: !(Maybe Text)+    , _rdcfsAvailabilityZones           :: !(Maybe [Text])+    , _rdcfsCharacterSetName            :: !(Maybe Text)+    , _rdcfsKMSKeyId                    :: !(Maybe Text)+    , _rdcfsPreferredBackupWindow       :: !(Maybe Text)+    , _rdcfsBackupRetentionPeriod       :: !(Maybe Int)+    , _rdcfsVPCSecurityGroupIds         :: !(Maybe [Text])+    , _rdcfsDatabaseName                :: !(Maybe Text)+    , _rdcfsDBClusterParameterGroupName :: !(Maybe Text)+    , _rdcfsS3Prefix                    :: !(Maybe Text)+    , _rdcfsOptionGroupName             :: !(Maybe Text)+    , _rdcfsTags                        :: !(Maybe [Tag])+    , _rdcfsPort                        :: !(Maybe Int)+    , _rdcfsDBClusterIdentifier         :: !Text+    , _rdcfsEngine                      :: !Text+    , _rdcfsMasterUsername              :: !Text+    , _rdcfsMasterUserPassword          :: !Text+    , _rdcfsSourceEngine                :: !Text+    , _rdcfsSourceEngineVersion         :: !Text+    , _rdcfsS3BucketName                :: !Text+    , _rdcfsS3IngestionRoleARN          :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RestoreDBClusterFromS3' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rdcfsEngineVersion'+--+-- * 'rdcfsStorageEncrypted'+--+-- * 'rdcfsDBSubnetGroupName'+--+-- * 'rdcfsPreferredMaintenanceWindow'+--+-- * 'rdcfsAvailabilityZones'+--+-- * 'rdcfsCharacterSetName'+--+-- * 'rdcfsKMSKeyId'+--+-- * 'rdcfsPreferredBackupWindow'+--+-- * 'rdcfsBackupRetentionPeriod'+--+-- * 'rdcfsVPCSecurityGroupIds'+--+-- * 'rdcfsDatabaseName'+--+-- * 'rdcfsDBClusterParameterGroupName'+--+-- * 'rdcfsS3Prefix'+--+-- * 'rdcfsOptionGroupName'+--+-- * 'rdcfsTags'+--+-- * 'rdcfsPort'+--+-- * 'rdcfsDBClusterIdentifier'+--+-- * 'rdcfsEngine'+--+-- * 'rdcfsMasterUsername'+--+-- * 'rdcfsMasterUserPassword'+--+-- * 'rdcfsSourceEngine'+--+-- * 'rdcfsSourceEngineVersion'+--+-- * 'rdcfsS3BucketName'+--+-- * 'rdcfsS3IngestionRoleARN'+restoreDBClusterFromS3+    :: Text -- ^ 'rdcfsDBClusterIdentifier'+    -> Text -- ^ 'rdcfsEngine'+    -> Text -- ^ 'rdcfsMasterUsername'+    -> Text -- ^ 'rdcfsMasterUserPassword'+    -> Text -- ^ 'rdcfsSourceEngine'+    -> Text -- ^ 'rdcfsSourceEngineVersion'+    -> Text -- ^ 'rdcfsS3BucketName'+    -> Text -- ^ 'rdcfsS3IngestionRoleARN'+    -> RestoreDBClusterFromS3+restoreDBClusterFromS3 pDBClusterIdentifier_ pEngine_ pMasterUsername_ pMasterUserPassword_ pSourceEngine_ pSourceEngineVersion_ pS3BucketName_ pS3IngestionRoleARN_ =+    RestoreDBClusterFromS3'+    { _rdcfsEngineVersion = Nothing+    , _rdcfsStorageEncrypted = Nothing+    , _rdcfsDBSubnetGroupName = Nothing+    , _rdcfsPreferredMaintenanceWindow = Nothing+    , _rdcfsAvailabilityZones = Nothing+    , _rdcfsCharacterSetName = Nothing+    , _rdcfsKMSKeyId = Nothing+    , _rdcfsPreferredBackupWindow = Nothing+    , _rdcfsBackupRetentionPeriod = Nothing+    , _rdcfsVPCSecurityGroupIds = Nothing+    , _rdcfsDatabaseName = Nothing+    , _rdcfsDBClusterParameterGroupName = Nothing+    , _rdcfsS3Prefix = Nothing+    , _rdcfsOptionGroupName = Nothing+    , _rdcfsTags = Nothing+    , _rdcfsPort = Nothing+    , _rdcfsDBClusterIdentifier = pDBClusterIdentifier_+    , _rdcfsEngine = pEngine_+    , _rdcfsMasterUsername = pMasterUsername_+    , _rdcfsMasterUserPassword = pMasterUserPassword_+    , _rdcfsSourceEngine = pSourceEngine_+    , _rdcfsSourceEngineVersion = pSourceEngineVersion_+    , _rdcfsS3BucketName = pS3BucketName_+    , _rdcfsS3IngestionRoleARN = pS3IngestionRoleARN_+    }++-- | The version number of the database engine to use.+--+-- __Aurora__+--+-- Example: '5.6.10a'+rdcfsEngineVersion :: Lens' RestoreDBClusterFromS3 (Maybe Text)+rdcfsEngineVersion = lens _rdcfsEngineVersion (\ s a -> s{_rdcfsEngineVersion = a});++-- | Specifies whether the restored DB cluster is encrypted.+rdcfsStorageEncrypted :: Lens' RestoreDBClusterFromS3 (Maybe Bool)+rdcfsStorageEncrypted = lens _rdcfsStorageEncrypted (\ s a -> s{_rdcfsStorageEncrypted = a});++-- | A DB subnet group to associate with the restored DB cluster.+--+-- Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default.+--+-- Example: 'mySubnetgroup'+rdcfsDBSubnetGroupName :: Lens' RestoreDBClusterFromS3 (Maybe Text)+rdcfsDBSubnetGroupName = lens _rdcfsDBSubnetGroupName (\ s a -> s{_rdcfsDBSubnetGroupName = a});++-- | The weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC).+--+-- Format: 'ddd:hh24:mi-ddd:hh24:mi'+--+-- Default: A 30-minute window selected at random from an 8-hour block of time per region, occurring on a random day of the week. To see the time blocks available, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/AdjustingTheMaintenanceWindow.html Adjusting the Preferred Maintenance Window> in the /Amazon RDS User Guide./+--+-- Valid Days: Mon, Tue, Wed, Thu, Fri, Sat, Sun+--+-- Constraints: Minimum 30-minute window.+rdcfsPreferredMaintenanceWindow :: Lens' RestoreDBClusterFromS3 (Maybe Text)+rdcfsPreferredMaintenanceWindow = lens _rdcfsPreferredMaintenanceWindow (\ s a -> s{_rdcfsPreferredMaintenanceWindow = a});++-- | A list of EC2 Availability Zones that instances in the restored DB cluster can be created in.+rdcfsAvailabilityZones :: Lens' RestoreDBClusterFromS3 [Text]+rdcfsAvailabilityZones = lens _rdcfsAvailabilityZones (\ s a -> s{_rdcfsAvailabilityZones = a}) . _Default . _Coerce;++-- | A value that indicates that the restored DB cluster should be associated with the specified CharacterSet.+rdcfsCharacterSetName :: Lens' RestoreDBClusterFromS3 (Maybe Text)+rdcfsCharacterSetName = lens _rdcfsCharacterSetName (\ s a -> s{_rdcfsCharacterSetName = a});++-- | The KMS key identifier for an encrypted DB cluster.+--+-- The KMS key identifier is the Amazon Resource Name (ARN) for the KMS encryption key. If you are creating a DB cluster with the same AWS account that owns the KMS encryption key used to encrypt the new DB cluster, then you can use the KMS key alias instead of the ARN for the KM encryption key.+--+-- If the 'StorageEncrypted' parameter is true, and you do not specify a value for the 'KmsKeyId' parameter, then Amazon RDS will use your default encryption key. AWS KMS creates the default encryption key for your AWS account. Your AWS account has a different default encryption key for each AWS region.+rdcfsKMSKeyId :: Lens' RestoreDBClusterFromS3 (Maybe Text)+rdcfsKMSKeyId = lens _rdcfsKMSKeyId (\ s a -> s{_rdcfsKMSKeyId = a});++-- | The daily time range during which automated backups are created if automated backups are enabled using the 'BackupRetentionPeriod' parameter.+--+-- Default: A 30-minute window selected at random from an 8-hour block of time per region. To see the time blocks available, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/AdjustingTheMaintenanceWindow.html Adjusting the Preferred Maintenance Window> in the /Amazon RDS User Guide./+--+-- Constraints:+--+-- -   Must be in the format 'hh24:mi-hh24:mi'.+--+-- -   Times should be in Universal Coordinated Time (UTC).+--+-- -   Must not conflict with the preferred maintenance window.+--+-- -   Must be at least 30 minutes.+--+rdcfsPreferredBackupWindow :: Lens' RestoreDBClusterFromS3 (Maybe Text)+rdcfsPreferredBackupWindow = lens _rdcfsPreferredBackupWindow (\ s a -> s{_rdcfsPreferredBackupWindow = a});++-- | The number of days for which automated backups of the restored DB cluster are retained. You must specify a minimum value of 1.+--+-- Default: 1+--+-- Constraints:+--+-- -   Must be a value from 1 to 35+--+rdcfsBackupRetentionPeriod :: Lens' RestoreDBClusterFromS3 (Maybe Int)+rdcfsBackupRetentionPeriod = lens _rdcfsBackupRetentionPeriod (\ s a -> s{_rdcfsBackupRetentionPeriod = a});++-- | A list of EC2 VPC security groups to associate with the restored DB cluster.+rdcfsVPCSecurityGroupIds :: Lens' RestoreDBClusterFromS3 [Text]+rdcfsVPCSecurityGroupIds = lens _rdcfsVPCSecurityGroupIds (\ s a -> s{_rdcfsVPCSecurityGroupIds = a}) . _Default . _Coerce;++-- | The database name for the restored DB cluster.+rdcfsDatabaseName :: Lens' RestoreDBClusterFromS3 (Maybe Text)+rdcfsDatabaseName = lens _rdcfsDatabaseName (\ s a -> s{_rdcfsDatabaseName = a});++-- | The name of the DB cluster parameter group to associate with the restored DB cluster. If this argument is omitted, 'default.aurora5.6' will be used.+--+-- Constraints:+--+-- -   Must be 1 to 255 alphanumeric characters+--+-- -   First character must be a letter+--+-- -   Cannot end with a hyphen or contain two consecutive hyphens+--+rdcfsDBClusterParameterGroupName :: Lens' RestoreDBClusterFromS3 (Maybe Text)+rdcfsDBClusterParameterGroupName = lens _rdcfsDBClusterParameterGroupName (\ s a -> s{_rdcfsDBClusterParameterGroupName = a});++-- | The prefix for all of the file names that contain the data used to create the Amazon Aurora DB cluster. If you do not specify a __SourceS3Prefix__ value, then the Amazon Aurora DB cluster is created by using all of the files in the Amazon S3 bucket.+rdcfsS3Prefix :: Lens' RestoreDBClusterFromS3 (Maybe Text)+rdcfsS3Prefix = lens _rdcfsS3Prefix (\ s a -> s{_rdcfsS3Prefix = a});++-- | A value that indicates that the restored DB cluster should be associated with the specified option group.+--+-- Permanent options cannot be removed from an option group. An option group cannot be removed from a DB cluster once it is associated with a DB cluster.+rdcfsOptionGroupName :: Lens' RestoreDBClusterFromS3 (Maybe Text)+rdcfsOptionGroupName = lens _rdcfsOptionGroupName (\ s a -> s{_rdcfsOptionGroupName = a});++-- | Undocumented member.+rdcfsTags :: Lens' RestoreDBClusterFromS3 [Tag]+rdcfsTags = lens _rdcfsTags (\ s a -> s{_rdcfsTags = a}) . _Default . _Coerce;++-- | The port number on which the instances in the restored DB cluster accept connections.+--+-- Default: '3306'+rdcfsPort :: Lens' RestoreDBClusterFromS3 (Maybe Int)+rdcfsPort = lens _rdcfsPort (\ s a -> s{_rdcfsPort = a});++-- | The name of the DB cluster to create from the source data in the S3 bucket. This parameter is 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.+--+-- Example: 'my-cluster1'+rdcfsDBClusterIdentifier :: Lens' RestoreDBClusterFromS3 Text+rdcfsDBClusterIdentifier = lens _rdcfsDBClusterIdentifier (\ s a -> s{_rdcfsDBClusterIdentifier = a});++-- | The name of the database engine to be used for the restored DB cluster.+--+-- Valid Values: 'aurora'+rdcfsEngine :: Lens' RestoreDBClusterFromS3 Text+rdcfsEngine = lens _rdcfsEngine (\ s a -> s{_rdcfsEngine = a});++-- | The name of the master user for the restored 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.+--+rdcfsMasterUsername :: Lens' RestoreDBClusterFromS3 Text+rdcfsMasterUsername = lens _rdcfsMasterUsername (\ s a -> s{_rdcfsMasterUsername = 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.+rdcfsMasterUserPassword :: Lens' RestoreDBClusterFromS3 Text+rdcfsMasterUserPassword = lens _rdcfsMasterUserPassword (\ s a -> s{_rdcfsMasterUserPassword = a});++-- | The identifier for the database engine that was backed up to create the files stored in the Amazon S3 bucket.+--+-- Valid values: 'mysql'+rdcfsSourceEngine :: Lens' RestoreDBClusterFromS3 Text+rdcfsSourceEngine = lens _rdcfsSourceEngine (\ s a -> s{_rdcfsSourceEngine = a});++-- | The version of the database that the backup files were created from.+--+-- MySQL version 5.5 and 5.6 are supported.+--+-- Example: '5.6.22'+rdcfsSourceEngineVersion :: Lens' RestoreDBClusterFromS3 Text+rdcfsSourceEngineVersion = lens _rdcfsSourceEngineVersion (\ s a -> s{_rdcfsSourceEngineVersion = a});++-- | The name of the Amazon S3 bucket that contains the data used to create the Amazon Aurora DB cluster.+rdcfsS3BucketName :: Lens' RestoreDBClusterFromS3 Text+rdcfsS3BucketName = lens _rdcfsS3BucketName (\ s a -> s{_rdcfsS3BucketName = a});++-- | The Amazon Resource Name (ARN) of the AWS Identity and Access Management (IAM) role that authorizes Amazon RDS to access the Amazon S3 bucket on your behalf.+rdcfsS3IngestionRoleARN :: Lens' RestoreDBClusterFromS3 Text+rdcfsS3IngestionRoleARN = lens _rdcfsS3IngestionRoleARN (\ s a -> s{_rdcfsS3IngestionRoleARN = a});++instance AWSRequest RestoreDBClusterFromS3 where+        type Rs RestoreDBClusterFromS3 =+             RestoreDBClusterFromS3Response+        request = postQuery rds+        response+          = receiveXMLWrapper "RestoreDBClusterFromS3Result"+              (\ s h x ->+                 RestoreDBClusterFromS3Response' <$>+                   (x .@? "DBCluster") <*> (pure (fromEnum s)))++instance Hashable RestoreDBClusterFromS3++instance NFData RestoreDBClusterFromS3++instance ToHeaders RestoreDBClusterFromS3 where+        toHeaders = const mempty++instance ToPath RestoreDBClusterFromS3 where+        toPath = const "/"++instance ToQuery RestoreDBClusterFromS3 where+        toQuery RestoreDBClusterFromS3'{..}+          = mconcat+              ["Action" =:+                 ("RestoreDBClusterFromS3" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "EngineVersion" =: _rdcfsEngineVersion,+               "StorageEncrypted" =: _rdcfsStorageEncrypted,+               "DBSubnetGroupName" =: _rdcfsDBSubnetGroupName,+               "PreferredMaintenanceWindow" =:+                 _rdcfsPreferredMaintenanceWindow,+               "AvailabilityZones" =:+                 toQuery+                   (toQueryList "AvailabilityZone" <$>+                      _rdcfsAvailabilityZones),+               "CharacterSetName" =: _rdcfsCharacterSetName,+               "KmsKeyId" =: _rdcfsKMSKeyId,+               "PreferredBackupWindow" =:+                 _rdcfsPreferredBackupWindow,+               "BackupRetentionPeriod" =:+                 _rdcfsBackupRetentionPeriod,+               "VpcSecurityGroupIds" =:+                 toQuery+                   (toQueryList "VpcSecurityGroupId" <$>+                      _rdcfsVPCSecurityGroupIds),+               "DatabaseName" =: _rdcfsDatabaseName,+               "DBClusterParameterGroupName" =:+                 _rdcfsDBClusterParameterGroupName,+               "S3Prefix" =: _rdcfsS3Prefix,+               "OptionGroupName" =: _rdcfsOptionGroupName,+               "Tags" =: toQuery (toQueryList "Tag" <$> _rdcfsTags),+               "Port" =: _rdcfsPort,+               "DBClusterIdentifier" =: _rdcfsDBClusterIdentifier,+               "Engine" =: _rdcfsEngine,+               "MasterUsername" =: _rdcfsMasterUsername,+               "MasterUserPassword" =: _rdcfsMasterUserPassword,+               "SourceEngine" =: _rdcfsSourceEngine,+               "SourceEngineVersion" =: _rdcfsSourceEngineVersion,+               "S3BucketName" =: _rdcfsS3BucketName,+               "S3IngestionRoleArn" =: _rdcfsS3IngestionRoleARN]++-- | /See:/ 'restoreDBClusterFromS3Response' smart constructor.+data RestoreDBClusterFromS3Response = RestoreDBClusterFromS3Response'+    { _rdcfsrsDBCluster      :: !(Maybe DBCluster)+    , _rdcfsrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RestoreDBClusterFromS3Response' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rdcfsrsDBCluster'+--+-- * 'rdcfsrsResponseStatus'+restoreDBClusterFromS3Response+    :: Int -- ^ 'rdcfsrsResponseStatus'+    -> RestoreDBClusterFromS3Response+restoreDBClusterFromS3Response pResponseStatus_ =+    RestoreDBClusterFromS3Response'+    { _rdcfsrsDBCluster = Nothing+    , _rdcfsrsResponseStatus = pResponseStatus_+    }++-- | Undocumented member.+rdcfsrsDBCluster :: Lens' RestoreDBClusterFromS3Response (Maybe DBCluster)+rdcfsrsDBCluster = lens _rdcfsrsDBCluster (\ s a -> s{_rdcfsrsDBCluster = a});++-- | The response status code.+rdcfsrsResponseStatus :: Lens' RestoreDBClusterFromS3Response Int+rdcfsrsResponseStatus = lens _rdcfsrsResponseStatus (\ s a -> s{_rdcfsrsResponseStatus = a});++instance NFData RestoreDBClusterFromS3Response

@@ -27,25 +27,25 @@       restoreDBClusterFromSnapshot     , RestoreDBClusterFromSnapshot     -- * Request Lenses-    , rdcfsEngineVersion-    , rdcfsDBSubnetGroupName-    , rdcfsAvailabilityZones-    , rdcfsKMSKeyId-    , rdcfsVPCSecurityGroupIds-    , rdcfsDatabaseName-    , rdcfsOptionGroupName-    , rdcfsTags-    , rdcfsPort-    , rdcfsDBClusterIdentifier-    , rdcfsSnapshotIdentifier-    , rdcfsEngine+    , rdbcfsEngineVersion+    , rdbcfsDBSubnetGroupName+    , rdbcfsAvailabilityZones+    , rdbcfsKMSKeyId+    , rdbcfsVPCSecurityGroupIds+    , rdbcfsDatabaseName+    , rdbcfsOptionGroupName+    , rdbcfsTags+    , rdbcfsPort+    , rdbcfsDBClusterIdentifier+    , rdbcfsSnapshotIdentifier+    , rdbcfsEngine      -- * Destructuring the Response     , restoreDBClusterFromSnapshotResponse     , RestoreDBClusterFromSnapshotResponse     -- * Response Lenses-    , rdcfsrsDBCluster-    , rdcfsrsResponseStatus+    , rdbcfsrsDBCluster+    , rdbcfsrsResponseStatus     ) where  import           Network.AWS.Lens@@ -59,150 +59,155 @@ -- -- /See:/ 'restoreDBClusterFromSnapshot' smart constructor. data RestoreDBClusterFromSnapshot = RestoreDBClusterFromSnapshot'-    { _rdcfsEngineVersion       :: !(Maybe Text)-    , _rdcfsDBSubnetGroupName   :: !(Maybe Text)-    , _rdcfsAvailabilityZones   :: !(Maybe [Text])-    , _rdcfsKMSKeyId            :: !(Maybe Text)-    , _rdcfsVPCSecurityGroupIds :: !(Maybe [Text])-    , _rdcfsDatabaseName        :: !(Maybe Text)-    , _rdcfsOptionGroupName     :: !(Maybe Text)-    , _rdcfsTags                :: !(Maybe [Tag])-    , _rdcfsPort                :: !(Maybe Int)-    , _rdcfsDBClusterIdentifier :: !Text-    , _rdcfsSnapshotIdentifier  :: !Text-    , _rdcfsEngine              :: !Text+    { _rdbcfsEngineVersion       :: !(Maybe Text)+    , _rdbcfsDBSubnetGroupName   :: !(Maybe Text)+    , _rdbcfsAvailabilityZones   :: !(Maybe [Text])+    , _rdbcfsKMSKeyId            :: !(Maybe Text)+    , _rdbcfsVPCSecurityGroupIds :: !(Maybe [Text])+    , _rdbcfsDatabaseName        :: !(Maybe Text)+    , _rdbcfsOptionGroupName     :: !(Maybe Text)+    , _rdbcfsTags                :: !(Maybe [Tag])+    , _rdbcfsPort                :: !(Maybe Int)+    , _rdbcfsDBClusterIdentifier :: !Text+    , _rdbcfsSnapshotIdentifier  :: !Text+    , _rdbcfsEngine              :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'RestoreDBClusterFromSnapshot' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rdcfsEngineVersion'+-- * 'rdbcfsEngineVersion' ----- * 'rdcfsDBSubnetGroupName'+-- * 'rdbcfsDBSubnetGroupName' ----- * 'rdcfsAvailabilityZones'+-- * 'rdbcfsAvailabilityZones' ----- * 'rdcfsKMSKeyId'+-- * 'rdbcfsKMSKeyId' ----- * 'rdcfsVPCSecurityGroupIds'+-- * 'rdbcfsVPCSecurityGroupIds' ----- * 'rdcfsDatabaseName'+-- * 'rdbcfsDatabaseName' ----- * 'rdcfsOptionGroupName'+-- * 'rdbcfsOptionGroupName' ----- * 'rdcfsTags'+-- * 'rdbcfsTags' ----- * 'rdcfsPort'+-- * 'rdbcfsPort' ----- * 'rdcfsDBClusterIdentifier'+-- * 'rdbcfsDBClusterIdentifier' ----- * 'rdcfsSnapshotIdentifier'+-- * 'rdbcfsSnapshotIdentifier' ----- * 'rdcfsEngine'+-- * 'rdbcfsEngine' restoreDBClusterFromSnapshot-    :: Text -- ^ 'rdcfsDBClusterIdentifier'-    -> Text -- ^ 'rdcfsSnapshotIdentifier'-    -> Text -- ^ 'rdcfsEngine'+    :: Text -- ^ 'rdbcfsDBClusterIdentifier'+    -> Text -- ^ 'rdbcfsSnapshotIdentifier'+    -> Text -- ^ 'rdbcfsEngine'     -> RestoreDBClusterFromSnapshot restoreDBClusterFromSnapshot pDBClusterIdentifier_ pSnapshotIdentifier_ pEngine_ =     RestoreDBClusterFromSnapshot'-    { _rdcfsEngineVersion = Nothing-    , _rdcfsDBSubnetGroupName = Nothing-    , _rdcfsAvailabilityZones = Nothing-    , _rdcfsKMSKeyId = Nothing-    , _rdcfsVPCSecurityGroupIds = Nothing-    , _rdcfsDatabaseName = Nothing-    , _rdcfsOptionGroupName = Nothing-    , _rdcfsTags = Nothing-    , _rdcfsPort = Nothing-    , _rdcfsDBClusterIdentifier = pDBClusterIdentifier_-    , _rdcfsSnapshotIdentifier = pSnapshotIdentifier_-    , _rdcfsEngine = pEngine_+    { _rdbcfsEngineVersion = Nothing+    , _rdbcfsDBSubnetGroupName = Nothing+    , _rdbcfsAvailabilityZones = Nothing+    , _rdbcfsKMSKeyId = Nothing+    , _rdbcfsVPCSecurityGroupIds = Nothing+    , _rdbcfsDatabaseName = Nothing+    , _rdbcfsOptionGroupName = Nothing+    , _rdbcfsTags = Nothing+    , _rdbcfsPort = Nothing+    , _rdbcfsDBClusterIdentifier = pDBClusterIdentifier_+    , _rdbcfsSnapshotIdentifier = pSnapshotIdentifier_+    , _rdbcfsEngine = pEngine_     }  -- | The version of the database engine to use for the new DB cluster.-rdcfsEngineVersion :: Lens' RestoreDBClusterFromSnapshot (Maybe Text)-rdcfsEngineVersion = lens _rdcfsEngineVersion (\ s a -> s{_rdcfsEngineVersion = a});+rdbcfsEngineVersion :: Lens' RestoreDBClusterFromSnapshot (Maybe Text)+rdbcfsEngineVersion = lens _rdbcfsEngineVersion (\ s a -> s{_rdbcfsEngineVersion = a});  -- | The name of the DB subnet group to use for the new DB cluster. -- -- Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default. -- -- Example: 'mySubnetgroup'-rdcfsDBSubnetGroupName :: Lens' RestoreDBClusterFromSnapshot (Maybe Text)-rdcfsDBSubnetGroupName = lens _rdcfsDBSubnetGroupName (\ s a -> s{_rdcfsDBSubnetGroupName = a});+rdbcfsDBSubnetGroupName :: Lens' RestoreDBClusterFromSnapshot (Maybe Text)+rdbcfsDBSubnetGroupName = lens _rdbcfsDBSubnetGroupName (\ s a -> s{_rdbcfsDBSubnetGroupName = a});  -- | Provides the list of EC2 Availability Zones that instances in the restored DB cluster can be created in.-rdcfsAvailabilityZones :: Lens' RestoreDBClusterFromSnapshot [Text]-rdcfsAvailabilityZones = lens _rdcfsAvailabilityZones (\ s a -> s{_rdcfsAvailabilityZones = a}) . _Default . _Coerce;+rdbcfsAvailabilityZones :: Lens' RestoreDBClusterFromSnapshot [Text]+rdbcfsAvailabilityZones = lens _rdbcfsAvailabilityZones (\ s a -> s{_rdbcfsAvailabilityZones = a}) . _Default . _Coerce; --- | The KMS key identifier to use when restoring an encrypted DB cluster from an encrypted DB cluster snapshot.+-- | The KMS key identifier to use when restoring an encrypted DB cluster from a DB cluster snapshot. -- -- The KMS key identifier is the Amazon Resource Name (ARN) for the KMS encryption key. If you are restoring a DB cluster with the same AWS account that owns the KMS encryption key used to encrypt the new DB cluster, then you can use the KMS key alias instead of the ARN for the KMS encryption key. -- -- If you do not specify a value for the 'KmsKeyId' parameter, then the following will occur: -- -- -   If the DB cluster snapshot is encrypted, then the restored DB cluster is encrypted using the KMS key that was used to encrypt the DB cluster snapshot.--- -   If the DB cluster snapshot is not encrypted, then the restored DB cluster is not encrypted. ----- If 'SnapshotIdentifier' refers to a DB cluster snapshot that is not encrypted, and you specify a value for the 'KmsKeyId' parameter, then the restore request is rejected.-rdcfsKMSKeyId :: Lens' RestoreDBClusterFromSnapshot (Maybe Text)-rdcfsKMSKeyId = lens _rdcfsKMSKeyId (\ s a -> s{_rdcfsKMSKeyId = a});+-- -   If the DB cluster snapshot is not encrypted, then the restored DB cluster is encrypted using the specified encryption key.+--+rdbcfsKMSKeyId :: Lens' RestoreDBClusterFromSnapshot (Maybe Text)+rdbcfsKMSKeyId = lens _rdbcfsKMSKeyId (\ s a -> s{_rdbcfsKMSKeyId = a});  -- | A list of VPC security groups that the new DB cluster will belong to.-rdcfsVPCSecurityGroupIds :: Lens' RestoreDBClusterFromSnapshot [Text]-rdcfsVPCSecurityGroupIds = lens _rdcfsVPCSecurityGroupIds (\ s a -> s{_rdcfsVPCSecurityGroupIds = a}) . _Default . _Coerce;+rdbcfsVPCSecurityGroupIds :: Lens' RestoreDBClusterFromSnapshot [Text]+rdbcfsVPCSecurityGroupIds = lens _rdbcfsVPCSecurityGroupIds (\ s a -> s{_rdbcfsVPCSecurityGroupIds = a}) . _Default . _Coerce;  -- | The database name for the restored DB cluster.-rdcfsDatabaseName :: Lens' RestoreDBClusterFromSnapshot (Maybe Text)-rdcfsDatabaseName = lens _rdcfsDatabaseName (\ s a -> s{_rdcfsDatabaseName = a});+rdbcfsDatabaseName :: Lens' RestoreDBClusterFromSnapshot (Maybe Text)+rdbcfsDatabaseName = lens _rdbcfsDatabaseName (\ s a -> s{_rdbcfsDatabaseName = a});  -- | The name of the option group to use for the restored DB cluster.-rdcfsOptionGroupName :: Lens' RestoreDBClusterFromSnapshot (Maybe Text)-rdcfsOptionGroupName = lens _rdcfsOptionGroupName (\ s a -> s{_rdcfsOptionGroupName = a});+rdbcfsOptionGroupName :: Lens' RestoreDBClusterFromSnapshot (Maybe Text)+rdbcfsOptionGroupName = lens _rdbcfsOptionGroupName (\ s a -> s{_rdbcfsOptionGroupName = a});  -- | The tags to be assigned to the restored DB cluster.-rdcfsTags :: Lens' RestoreDBClusterFromSnapshot [Tag]-rdcfsTags = lens _rdcfsTags (\ s a -> s{_rdcfsTags = a}) . _Default . _Coerce;+rdbcfsTags :: Lens' RestoreDBClusterFromSnapshot [Tag]+rdbcfsTags = lens _rdbcfsTags (\ s a -> s{_rdbcfsTags = a}) . _Default . _Coerce;  -- | The port number on which the new DB cluster accepts connections. -- -- Constraints: Value must be '1150-65535' -- -- Default: The same port as the original DB cluster.-rdcfsPort :: Lens' RestoreDBClusterFromSnapshot (Maybe Int)-rdcfsPort = lens _rdcfsPort (\ s a -> s{_rdcfsPort = a});+rdbcfsPort :: Lens' RestoreDBClusterFromSnapshot (Maybe Int)+rdbcfsPort = lens _rdbcfsPort (\ s a -> s{_rdbcfsPort = a});  -- | The name of the DB cluster to create from the DB cluster snapshot. This parameter isn\'t case-sensitive. -- -- Constraints: -- -- -   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 -- -- Example: 'my-snapshot-id'-rdcfsDBClusterIdentifier :: Lens' RestoreDBClusterFromSnapshot Text-rdcfsDBClusterIdentifier = lens _rdcfsDBClusterIdentifier (\ s a -> s{_rdcfsDBClusterIdentifier = a});+rdbcfsDBClusterIdentifier :: Lens' RestoreDBClusterFromSnapshot Text+rdbcfsDBClusterIdentifier = lens _rdbcfsDBClusterIdentifier (\ s a -> s{_rdbcfsDBClusterIdentifier = a});  -- | The identifier for the DB cluster snapshot to restore from. -- -- 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-rdcfsSnapshotIdentifier :: Lens' RestoreDBClusterFromSnapshot Text-rdcfsSnapshotIdentifier = lens _rdcfsSnapshotIdentifier (\ s a -> s{_rdcfsSnapshotIdentifier = a});+--+rdbcfsSnapshotIdentifier :: Lens' RestoreDBClusterFromSnapshot Text+rdbcfsSnapshotIdentifier = lens _rdbcfsSnapshotIdentifier (\ s a -> s{_rdbcfsSnapshotIdentifier = a});  -- | The database engine to use for the new DB cluster. -- -- Default: The same as source -- -- Constraint: Must be compatible with the engine of the source-rdcfsEngine :: Lens' RestoreDBClusterFromSnapshot Text-rdcfsEngine = lens _rdcfsEngine (\ s a -> s{_rdcfsEngine = a});+rdbcfsEngine :: Lens' RestoreDBClusterFromSnapshot Text+rdbcfsEngine = lens _rdbcfsEngine (\ s a -> s{_rdbcfsEngine = a});  instance AWSRequest RestoreDBClusterFromSnapshot          where@@ -232,53 +237,54 @@               ["Action" =:                  ("RestoreDBClusterFromSnapshot" :: ByteString),                "Version" =: ("2014-10-31" :: ByteString),-               "EngineVersion" =: _rdcfsEngineVersion,-               "DBSubnetGroupName" =: _rdcfsDBSubnetGroupName,+               "EngineVersion" =: _rdbcfsEngineVersion,+               "DBSubnetGroupName" =: _rdbcfsDBSubnetGroupName,                "AvailabilityZones" =:                  toQuery                    (toQueryList "AvailabilityZone" <$>-                      _rdcfsAvailabilityZones),-               "KmsKeyId" =: _rdcfsKMSKeyId,+                      _rdbcfsAvailabilityZones),+               "KmsKeyId" =: _rdbcfsKMSKeyId,                "VpcSecurityGroupIds" =:                  toQuery                    (toQueryList "VpcSecurityGroupId" <$>-                      _rdcfsVPCSecurityGroupIds),-               "DatabaseName" =: _rdcfsDatabaseName,-               "OptionGroupName" =: _rdcfsOptionGroupName,-               "Tags" =: toQuery (toQueryList "Tag" <$> _rdcfsTags),-               "Port" =: _rdcfsPort,-               "DBClusterIdentifier" =: _rdcfsDBClusterIdentifier,-               "SnapshotIdentifier" =: _rdcfsSnapshotIdentifier,-               "Engine" =: _rdcfsEngine]+                      _rdbcfsVPCSecurityGroupIds),+               "DatabaseName" =: _rdbcfsDatabaseName,+               "OptionGroupName" =: _rdbcfsOptionGroupName,+               "Tags" =:+                 toQuery (toQueryList "Tag" <$> _rdbcfsTags),+               "Port" =: _rdbcfsPort,+               "DBClusterIdentifier" =: _rdbcfsDBClusterIdentifier,+               "SnapshotIdentifier" =: _rdbcfsSnapshotIdentifier,+               "Engine" =: _rdbcfsEngine]  -- | /See:/ 'restoreDBClusterFromSnapshotResponse' smart constructor. data RestoreDBClusterFromSnapshotResponse = RestoreDBClusterFromSnapshotResponse'-    { _rdcfsrsDBCluster      :: !(Maybe DBCluster)-    , _rdcfsrsResponseStatus :: !Int+    { _rdbcfsrsDBCluster      :: !(Maybe DBCluster)+    , _rdbcfsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'RestoreDBClusterFromSnapshotResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rdcfsrsDBCluster'+-- * 'rdbcfsrsDBCluster' ----- * 'rdcfsrsResponseStatus'+-- * 'rdbcfsrsResponseStatus' restoreDBClusterFromSnapshotResponse-    :: Int -- ^ 'rdcfsrsResponseStatus'+    :: Int -- ^ 'rdbcfsrsResponseStatus'     -> RestoreDBClusterFromSnapshotResponse restoreDBClusterFromSnapshotResponse pResponseStatus_ =     RestoreDBClusterFromSnapshotResponse'-    { _rdcfsrsDBCluster = Nothing-    , _rdcfsrsResponseStatus = pResponseStatus_+    { _rdbcfsrsDBCluster = Nothing+    , _rdbcfsrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.-rdcfsrsDBCluster :: Lens' RestoreDBClusterFromSnapshotResponse (Maybe DBCluster)-rdcfsrsDBCluster = lens _rdcfsrsDBCluster (\ s a -> s{_rdcfsrsDBCluster = a});+rdbcfsrsDBCluster :: Lens' RestoreDBClusterFromSnapshotResponse (Maybe DBCluster)+rdbcfsrsDBCluster = lens _rdbcfsrsDBCluster (\ s a -> s{_rdbcfsrsDBCluster = a});  -- | The response status code.-rdcfsrsResponseStatus :: Lens' RestoreDBClusterFromSnapshotResponse Int-rdcfsrsResponseStatus = lens _rdcfsrsResponseStatus (\ s a -> s{_rdcfsrsResponseStatus = a});+rdbcfsrsResponseStatus :: Lens' RestoreDBClusterFromSnapshotResponse Int+rdbcfsrsResponseStatus = lens _rdbcfsrsResponseStatus (\ s a -> s{_rdbcfsrsResponseStatus = a});  instance NFData RestoreDBClusterFromSnapshotResponse

@@ -136,7 +136,7 @@ -- -- -   If the DB cluster is encrypted, then the restored DB cluster is encrypted using the KMS key that was used to encrypt the source DB cluster. ----- If the DB cluster is not encrypted, then the restored DB cluster is not encrypted.+-- -   If the DB cluster is not encrypted, then the restored DB cluster is not encrypted. -- -- If 'DBClusterIdentifier' refers to a DB cluster that is note encrypted, then the restore request is rejected. rdctpitKMSKeyId :: Lens' RestoreDBClusterToPointInTime (Maybe Text)@@ -157,6 +157,7 @@ -- Constraints: -- -- -   Must be before the latest restorable time for the DB instance+-- -- -   Cannot be specified if 'UseLatestRestorableTime' parameter is true -- -- Example: '2015-03-07T23:45:00Z'@@ -180,8 +181,11 @@ -- 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+-- rdctpitDBClusterIdentifier :: Lens' RestoreDBClusterToPointInTime Text rdctpitDBClusterIdentifier = lens _rdctpitDBClusterIdentifier (\ s a -> s{_rdctpitDBClusterIdentifier = a}); @@ -190,9 +194,13 @@ -- Constraints: -- -- -   Must be the identifier of an existing database instance+-- -- -   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+-- rdctpitSourceDBClusterIdentifier :: Lens' RestoreDBClusterToPointInTime Text rdctpitSourceDBClusterIdentifier = lens _rdctpitSourceDBClusterIdentifier (\ s a -> s{_rdctpitSourceDBClusterIdentifier = a}); 

@@ -172,6 +172,7 @@ -- Default: The default behavior varies depending on whether a VPC has been requested or not. The following list shows the default behavior in each case. -- -- -   __Default VPC:__ true+-- -- -   __VPC:__ false -- -- If no DB subnet group has been specified as part of the request and the PubliclyAccessible value has not been set, the DB instance will be publicly accessible. If a specific DB subnet group has been specified as part of the request and the PubliclyAccessible value has not been set, the DB instance will be private.@@ -290,7 +291,7 @@  -- | The database name for the restored DB instance. ----- This parameter doesn\'t apply to the MySQL or MariaDB engines.+-- This parameter doesn\'t apply to the MySQL, PostgreSQL, or MariaDB engines. rdifdsDBName :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) rdifdsDBName = lens _rdifdsDBName (\ s a -> s{_rdifdsDBName = a}); @@ -299,7 +300,9 @@ -- Constraints: -- -- -   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 -- -- Example: 'my-snapshot-id'@@ -311,7 +314,9 @@ -- Constraints: -- -- -   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 -- -- If you are restoring from a shared manual DB snapshot, the 'DBSnapshotIdentifier' must be the ARN of the shared DB snapshot.

@@ -188,6 +188,7 @@ -- Default: The default behavior varies depending on whether a VPC has been requested or not. The following list shows the default behavior in each case. -- -- -   __Default VPC:__true+-- -- -   __VPC:__false -- -- If no DB subnet group has been specified as part of the request and the PubliclyAccessible value has not been set, the DB instance will be publicly accessible. If a specific DB subnet group has been specified as part of the request and the PubliclyAccessible value has not been set, the DB instance will be private.@@ -213,6 +214,7 @@ -- Constraints: -- -- -   Must be before the latest restorable time for the DB instance+-- -- -   Cannot be specified if UseLatestRestorableTime parameter is true -- -- Example: '2009-09-07T23:45:00Z'@@ -330,9 +332,13 @@ -- Constraints: -- -- -   Must be the identifier of an existing database instance+-- -- -   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+-- rditpitSourceDBInstanceIdentifier :: Lens' RestoreDBInstanceToPointInTime Text rditpitSourceDBInstanceIdentifier = lens _rditpitSourceDBInstanceIdentifier (\ s a -> s{_rditpitSourceDBInstanceIdentifier = a}); @@ -341,8 +347,11 @@ -- 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+-- rditpitTargetDBInstanceIdentifier :: Lens' RestoreDBInstanceToPointInTime Text rditpitTargetDBInstanceIdentifier = lens _rditpitTargetDBInstanceIdentifier (\ s a -> s{_rditpitTargetDBInstanceIdentifier = a}); 

@@ -37,6 +37,7 @@     , _OptionGroupNotFoundFault     , _DBClusterNotFoundFault     , _DBLogFileNotFoundFault+    , _InvalidS3BucketFault     , _DBClusterAlreadyExistsFault     , _StorageTypeNotSupportedFault     , _DBSecurityGroupQuotaExceededFault@@ -111,6 +112,7 @@     , Certificate     , certificate     , cCertificateType+    , cCertificateARN     , cValidTill     , cCertificateIdentifier     , cThumbprint@@ -130,12 +132,15 @@     , dcStorageEncrypted     , dcDBClusterIdentifier     , dcDBClusterMembers+    , dcReadReplicaIdentifiers+    , dcReplicationSourceIdentifier     , dcHostedZoneId     , dcDBClusterParameterGroup     , dcMasterUsername     , dcDBClusterResourceId     , dcEarliestRestorableTime     , dcEngine+    , dcDBClusterARN     , dcLatestRestorableTime     , dcPreferredMaintenanceWindow     , dcAvailabilityZones@@ -169,6 +174,7 @@     -- * DBClusterParameterGroup     , DBClusterParameterGroup     , dbClusterParameterGroup+    , dcpgDBClusterParameterGroupARN     , dcpgDBParameterGroupFamily     , dcpgDBClusterParameterGroupName     , dcpgDescription@@ -186,6 +192,7 @@     , dcsStorageEncrypted     , dcsDBClusterIdentifier     , dcsMasterUsername+    , dcsDBClusterSnapshotARN     , dcsVPCId     , dcsDBClusterSnapshotIdentifier     , dcsEngine@@ -199,6 +206,18 @@     , dcsPercentProgress     , dcsPort +    -- * DBClusterSnapshotAttribute+    , DBClusterSnapshotAttribute+    , dbClusterSnapshotAttribute+    , dcsaAttributeValues+    , dcsaAttributeName++    -- * DBClusterSnapshotAttributesResult+    , DBClusterSnapshotAttributesResult+    , dbClusterSnapshotAttributesResult+    , dcsarDBClusterSnapshotIdentifier+    , dcsarDBClusterSnapshotAttributes+     -- * DBEngineVersion     , DBEngineVersion     , dbEngineVersion@@ -220,6 +239,7 @@     , diDBClusterIdentifier     , diPubliclyAccessible     , diAutoMinorVersionUpgrade+    , diDBInstanceARN     , diMasterUsername     , diReadReplicaDBInstanceIdentifiers     , diMonitoringRoleARN@@ -271,6 +291,7 @@     -- * DBParameterGroup     , DBParameterGroup     , dbParameterGroup+    , dpgDBParameterGroupARN     , dpgDBParameterGroupFamily     , dpgDBParameterGroupName     , dpgDescription@@ -291,6 +312,7 @@     , dbSecurityGroup     , dbsgVPCId     , dbsgOwnerId+    , dbsgDBSecurityGroupARN     , dbsgIPRanges     , dbsgDBSecurityGroupName     , dbsgEC2SecurityGroups@@ -307,6 +329,7 @@     , dbSnapshot     , dsEngineVersion     , dsStatus+    , dsDBSnapshotARN     , dsMasterUsername     , dsSourceRegion     , dsIOPS@@ -348,6 +371,7 @@     , dsgVPCId     , dsgSubnets     , dsgDBSubnetGroupDescription+    , dsgDBSubnetGroupARN     , dsgSubnetGroupStatus      -- * DescribeDBLogFilesDetails@@ -391,6 +415,7 @@     , Event     , event     , eSourceType+    , eSourceARN     , eSourceIdentifier     , eDate     , eEventCategories@@ -409,6 +434,7 @@     , esCustomerAWSId     , esCustSubscriptionId     , esSNSTopicARN+    , esEventSubscriptionARN     , esEnabled     , esSourceType     , esSubscriptionCreationTime@@ -437,6 +463,7 @@     , oOptionSettings     , oVPCSecurityGroupMemberships     , oDBSecurityGroupMemberships+    , oOptionVersion     , oPort      -- * OptionConfiguration@@ -445,6 +472,7 @@     , ocOptionSettings     , ocVPCSecurityGroupMemberships     , ocDBSecurityGroupMemberships+    , ocOptionVersion     , ocPort     , ocOptionName @@ -455,6 +483,7 @@     , ogVPCId     , ogAllowsVPCAndNonVPCInstanceMemberships     , ogEngineName+    , ogOptionGroupARN     , ogMajorEngineVersion     , ogOptions     , ogOptionGroupName@@ -469,8 +498,10 @@     , OptionGroupOption     , optionGroupOption     , ogoMinimumRequiredMinorEngineVersion+    , ogoOptionsConflictsWith     , ogoPermanent     , ogoPersistent+    , ogoOptionGroupOptionVersions     , ogoEngineName     , ogoMajorEngineVersion     , ogoName@@ -503,6 +534,12 @@     , osAllowedValues     , osDescription +    -- * OptionVersion+    , OptionVersion+    , optionVersion+    , ovVersion+    , ovIsDefault+     -- * OrderableDBInstanceOption     , OrderableDBInstanceOption     , orderableDBInstanceOption@@ -548,8 +585,10 @@     , pendingModifiedValues     , pmvEngineVersion     , pmvMasterUserPassword+    , pmvDBSubnetGroupName     , pmvIOPS     , pmvDBInstanceClass+    , pmvLicenseModel     , pmvCACertificateIdentifier     , pmvDBInstanceIdentifier     , pmvBackupRetentionPeriod@@ -573,6 +612,7 @@     , rdiStartTime     , rdiProductDescription     , rdiReservedDBInstanceId+    , rdiReservedDBInstanceARN     , rdiDBInstanceClass     , rdiMultiAZ     , rdiReservedDBInstancesOfferingId@@ -602,6 +642,13 @@     , rpmaPendingMaintenanceActionDetails     , rpmaResourceIdentifier +    -- * SourceRegion+    , SourceRegion+    , sourceRegion+    , srStatus+    , srRegionName+    , srEndpoint+     -- * Subnet     , Subnet     , subnet@@ -752,7 +799,7 @@ _InvalidSubnet :: AsError a => Getting (First ServiceError) a ServiceError _InvalidSubnet = _ServiceError . hasStatus 400 . hasCode "InvalidSubnet" --- | You have exceeded the maximum number of account ids that you can share a manual DB snapshot with.+-- | You have exceeded the maximum number of accounts that you can share a manual DB snapshot with. _SharedSnapshotQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _SharedSnapshotQuotaExceededFault =     _ServiceError . hasStatus 400 . hasCode "SharedSnapshotQuotaExceeded"@@ -777,6 +824,11 @@ _DBLogFileNotFoundFault =     _ServiceError . hasStatus 404 . hasCode "DBLogFileNotFoundFault" +-- | The specified Amazon S3 bucket name could not be found or Amazon RDS is not authorized to access the specified Amazon S3 bucket. Verify the __SourceS3BucketName__ and __S3IngestionRoleArn__ values and try again.+_InvalidS3BucketFault :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidS3BucketFault =+    _ServiceError . hasStatus 400 . hasCode "InvalidS3BucketFault"+ -- | User already has a DB cluster with the given identifier. _DBClusterAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError _DBClusterAlreadyExistsFault =@@ -867,7 +919,7 @@ _InstanceQuotaExceededFault =     _ServiceError . hasStatus 400 . hasCode "InstanceQuotaExceeded" --- | Prism for DomainNotFoundFault' errors.+-- | /Domain/ does not refer to an existing Active Directory Domain. _DomainNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _DomainNotFoundFault =     _ServiceError . hasStatus 404 . hasCode "DomainNotFoundFault"@@ -962,7 +1014,7 @@ _InvalidOptionGroupStateFault =     _ServiceError . hasStatus 400 . hasCode "InvalidOptionGroupStateFault" --- | The supplied value is not a valid DB cluster state.+-- | The DB cluster is not in a valid state. _InvalidDBClusterStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDBClusterStateFault =     _ServiceError . hasStatus 400 . hasCode "InvalidDBClusterStateFault"

@@ -76,6 +76,7 @@ -- -- -   < OrderableDBInstanceOption> --+-- -- /See:/ 'availabilityZone' smart constructor. newtype AvailabilityZone = AvailabilityZone'     { _azName :: Maybe Text@@ -109,6 +110,7 @@ -- /See:/ 'certificate' smart constructor. data Certificate = Certificate'     { _cCertificateType       :: !(Maybe Text)+    , _cCertificateARN        :: !(Maybe Text)     , _cValidTill             :: !(Maybe ISO8601)     , _cCertificateIdentifier :: !(Maybe Text)     , _cThumbprint            :: !(Maybe Text)@@ -121,6 +123,8 @@ -- -- * 'cCertificateType' --+-- * 'cCertificateARN'+-- -- * 'cValidTill' -- -- * 'cCertificateIdentifier'@@ -133,6 +137,7 @@ certificate =     Certificate'     { _cCertificateType = Nothing+    , _cCertificateARN = Nothing     , _cValidTill = Nothing     , _cCertificateIdentifier = Nothing     , _cThumbprint = Nothing@@ -143,6 +148,10 @@ cCertificateType :: Lens' Certificate (Maybe Text) cCertificateType = lens _cCertificateType (\ s a -> s{_cCertificateType = a}); +-- | The Amazon Resource Name (ARN) for the certificate.+cCertificateARN :: Lens' Certificate (Maybe Text)+cCertificateARN = lens _cCertificateARN (\ s a -> s{_cCertificateARN = a});+ -- | The final date that the certificate continues to be valid. cValidTill :: Lens' Certificate (Maybe UTCTime) cValidTill = lens _cValidTill (\ s a -> s{_cValidTill = a}) . mapping _Time;@@ -162,8 +171,10 @@ instance FromXML Certificate where         parseXML x           = Certificate' <$>-              (x .@? "CertificateType") <*> (x .@? "ValidTill") <*>-                (x .@? "CertificateIdentifier")+              (x .@? "CertificateType") <*>+                (x .@? "CertificateArn")+                <*> (x .@? "ValidTill")+                <*> (x .@? "CertificateIdentifier")                 <*> (x .@? "Thumbprint")                 <*> (x .@? "ValidFrom") @@ -215,11 +226,17 @@ -- | Contains the result of a successful invocation of the following actions: -- -- -   < CreateDBCluster>+-- -- -   < DeleteDBCluster>+-- -- -   < FailoverDBCluster>+-- -- -   < ModifyDBCluster>+-- -- -   < RestoreDBClusterFromSnapshot> --+-- -   < RestoreDBClusterToPointInTime>+-- -- This data type is used as a response element in the < DescribeDBClusters> action. -- -- /See:/ 'dbCluster' smart constructor.@@ -229,12 +246,15 @@     , _dcStorageEncrypted                :: !(Maybe Bool)     , _dcDBClusterIdentifier             :: !(Maybe Text)     , _dcDBClusterMembers                :: !(Maybe [DBClusterMember])+    , _dcReadReplicaIdentifiers          :: !(Maybe [Text])+    , _dcReplicationSourceIdentifier     :: !(Maybe Text)     , _dcHostedZoneId                    :: !(Maybe Text)     , _dcDBClusterParameterGroup         :: !(Maybe Text)     , _dcMasterUsername                  :: !(Maybe Text)     , _dcDBClusterResourceId             :: !(Maybe Text)     , _dcEarliestRestorableTime          :: !(Maybe ISO8601)     , _dcEngine                          :: !(Maybe Text)+    , _dcDBClusterARN                    :: !(Maybe Text)     , _dcLatestRestorableTime            :: !(Maybe ISO8601)     , _dcPreferredMaintenanceWindow      :: !(Maybe Text)     , _dcAvailabilityZones               :: !(Maybe [Text])@@ -266,6 +286,10 @@ -- -- * 'dcDBClusterMembers' --+-- * 'dcReadReplicaIdentifiers'+--+-- * 'dcReplicationSourceIdentifier'+-- -- * 'dcHostedZoneId' -- -- * 'dcDBClusterParameterGroup'@@ -278,6 +302,8 @@ -- -- * 'dcEngine' --+-- * 'dcDBClusterARN'+-- -- * 'dcLatestRestorableTime' -- -- * 'dcPreferredMaintenanceWindow'@@ -316,12 +342,15 @@     , _dcStorageEncrypted = Nothing     , _dcDBClusterIdentifier = Nothing     , _dcDBClusterMembers = Nothing+    , _dcReadReplicaIdentifiers = Nothing+    , _dcReplicationSourceIdentifier = Nothing     , _dcHostedZoneId = Nothing     , _dcDBClusterParameterGroup = Nothing     , _dcMasterUsername = Nothing     , _dcDBClusterResourceId = Nothing     , _dcEarliestRestorableTime = Nothing     , _dcEngine = Nothing+    , _dcDBClusterARN = Nothing     , _dcLatestRestorableTime = Nothing     , _dcPreferredMaintenanceWindow = Nothing     , _dcAvailabilityZones = Nothing@@ -359,6 +388,14 @@ dcDBClusterMembers :: Lens' DBCluster [DBClusterMember] dcDBClusterMembers = lens _dcDBClusterMembers (\ s a -> s{_dcDBClusterMembers = a}) . _Default . _Coerce; +-- | Contains one or more identifiers of the Read Replicas associated with this DB cluster.+dcReadReplicaIdentifiers :: Lens' DBCluster [Text]+dcReadReplicaIdentifiers = lens _dcReadReplicaIdentifiers (\ s a -> s{_dcReadReplicaIdentifiers = a}) . _Default . _Coerce;++-- | Contains the identifier of the source DB cluster if this DB cluster is a Read Replica.+dcReplicationSourceIdentifier :: Lens' DBCluster (Maybe Text)+dcReplicationSourceIdentifier = lens _dcReplicationSourceIdentifier (\ s a -> s{_dcReplicationSourceIdentifier = a});+ -- | Specifies the ID that Amazon Route 53 assigns when you create a hosted zone. dcHostedZoneId :: Lens' DBCluster (Maybe Text) dcHostedZoneId = lens _dcHostedZoneId (\ s a -> s{_dcHostedZoneId = a});@@ -383,6 +420,10 @@ dcEngine :: Lens' DBCluster (Maybe Text) dcEngine = lens _dcEngine (\ s a -> s{_dcEngine = a}); +-- | The Amazon Resource Name (ARN) for the DB cluster.+dcDBClusterARN :: Lens' DBCluster (Maybe Text)+dcDBClusterARN = lens _dcDBClusterARN (\ s a -> s{_dcDBClusterARN = a});+ -- | Specifies the latest time to which a database can be restored with point-in-time restore. dcLatestRestorableTime :: Lens' DBCluster (Maybe UTCTime) dcLatestRestorableTime = lens _dcLatestRestorableTime (\ s a -> s{_dcLatestRestorableTime = a}) . mapping _Time;@@ -452,12 +493,17 @@                 <*>                 (x .@? "DBClusterMembers" .!@ mempty >>=                    may (parseXMLList "DBClusterMember"))+                <*>+                (x .@? "ReadReplicaIdentifiers" .!@ mempty >>=+                   may (parseXMLList "ReadReplicaIdentifier"))+                <*> (x .@? "ReplicationSourceIdentifier")                 <*> (x .@? "HostedZoneId")                 <*> (x .@? "DBClusterParameterGroup")                 <*> (x .@? "MasterUsername")                 <*> (x .@? "DbClusterResourceId")                 <*> (x .@? "EarliestRestorableTime")                 <*> (x .@? "Engine")+                <*> (x .@? "DBClusterArn")                 <*> (x .@? "LatestRestorableTime")                 <*> (x .@? "PreferredMaintenanceWindow")                 <*>@@ -584,13 +630,14 @@  instance NFData DBClusterOptionGroupStatus --- | Contains the result of a successful invocation of the < CreateDBClusterParameterGroup> action.+-- | Contains the result of a successful invocation of the < CreateDBClusterParameterGroup> or < CopyDBClusterParameterGroup> action. -- -- This data type is used as a request parameter in the < DeleteDBClusterParameterGroup> action, and as a response element in the < DescribeDBClusterParameterGroups> action. -- -- /See:/ 'dbClusterParameterGroup' smart constructor. data DBClusterParameterGroup = DBClusterParameterGroup'-    { _dcpgDBParameterGroupFamily      :: !(Maybe Text)+    { _dcpgDBClusterParameterGroupARN  :: !(Maybe Text)+    , _dcpgDBParameterGroupFamily      :: !(Maybe Text)     , _dcpgDBClusterParameterGroupName :: !(Maybe Text)     , _dcpgDescription                 :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -599,6 +646,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'dcpgDBClusterParameterGroupARN'+-- -- * 'dcpgDBParameterGroupFamily' -- -- * 'dcpgDBClusterParameterGroupName'@@ -608,11 +657,16 @@     :: DBClusterParameterGroup dbClusterParameterGroup =     DBClusterParameterGroup'-    { _dcpgDBParameterGroupFamily = Nothing+    { _dcpgDBClusterParameterGroupARN = Nothing+    , _dcpgDBParameterGroupFamily = Nothing     , _dcpgDBClusterParameterGroupName = Nothing     , _dcpgDescription = Nothing     } +-- | The Amazon Resource Name (ARN) for the DB cluster parameter group.+dcpgDBClusterParameterGroupARN :: Lens' DBClusterParameterGroup (Maybe Text)+dcpgDBClusterParameterGroupARN = lens _dcpgDBClusterParameterGroupARN (\ s a -> s{_dcpgDBClusterParameterGroupARN = a});+ -- | Provides the name of the DB parameter group family that this DB cluster parameter group is compatible with. dcpgDBParameterGroupFamily :: Lens' DBClusterParameterGroup (Maybe Text) dcpgDBParameterGroupFamily = lens _dcpgDBParameterGroupFamily (\ s a -> s{_dcpgDBParameterGroupFamily = a});@@ -628,8 +682,9 @@ instance FromXML DBClusterParameterGroup where         parseXML x           = DBClusterParameterGroup' <$>-              (x .@? "DBParameterGroupFamily") <*>-                (x .@? "DBClusterParameterGroupName")+              (x .@? "DBClusterParameterGroupArn") <*>+                (x .@? "DBParameterGroupFamily")+                <*> (x .@? "DBClusterParameterGroupName")                 <*> (x .@? "Description")  instance Hashable DBClusterParameterGroup@@ -660,7 +715,9 @@ -- Constraints: -- -- -   Must be 1 to 255 alphanumeric characters+-- -- -   First character must be a letter+-- -- -   Cannot end with a hyphen or contain two consecutive hyphens -- -- This value is stored as a lowercase string.@@ -680,6 +737,7 @@ -- | Contains the result of a successful invocation of the following actions: -- -- -   < CreateDBClusterSnapshot>+-- -- -   < DeleteDBClusterSnapshot> -- -- This data type is used as a response element in the < DescribeDBClusterSnapshots> action.@@ -691,6 +749,7 @@     , _dcsStorageEncrypted            :: !(Maybe Bool)     , _dcsDBClusterIdentifier         :: !(Maybe Text)     , _dcsMasterUsername              :: !(Maybe Text)+    , _dcsDBClusterSnapshotARN        :: !(Maybe Text)     , _dcsVPCId                       :: !(Maybe Text)     , _dcsDBClusterSnapshotIdentifier :: !(Maybe Text)     , _dcsEngine                      :: !(Maybe Text)@@ -719,6 +778,8 @@ -- -- * 'dcsMasterUsername' --+-- * 'dcsDBClusterSnapshotARN'+-- -- * 'dcsVPCId' -- -- * 'dcsDBClusterSnapshotIdentifier'@@ -751,6 +812,7 @@     , _dcsStorageEncrypted = Nothing     , _dcsDBClusterIdentifier = Nothing     , _dcsMasterUsername = Nothing+    , _dcsDBClusterSnapshotARN = Nothing     , _dcsVPCId = Nothing     , _dcsDBClusterSnapshotIdentifier = Nothing     , _dcsEngine = Nothing@@ -785,6 +847,10 @@ dcsMasterUsername :: Lens' DBClusterSnapshot (Maybe Text) dcsMasterUsername = lens _dcsMasterUsername (\ s a -> s{_dcsMasterUsername = a}); +-- | The Amazon Resource Name (ARN) for the DB cluster snapshot.+dcsDBClusterSnapshotARN :: Lens' DBClusterSnapshot (Maybe Text)+dcsDBClusterSnapshotARN = lens _dcsDBClusterSnapshotARN (\ s a -> s{_dcsDBClusterSnapshotARN = a});+ -- | Provides the VPC ID associated with the DB cluster snapshot. dcsVPCId :: Lens' DBClusterSnapshot (Maybe Text) dcsVPCId = lens _dcsVPCId (\ s a -> s{_dcsVPCId = a});@@ -840,6 +906,7 @@                 (x .@? "StorageEncrypted")                 <*> (x .@? "DBClusterIdentifier")                 <*> (x .@? "MasterUsername")+                <*> (x .@? "DBClusterSnapshotArn")                 <*> (x .@? "VpcId")                 <*> (x .@? "DBClusterSnapshotIdentifier")                 <*> (x .@? "Engine")@@ -859,6 +926,99 @@  instance NFData DBClusterSnapshot +-- | Contains the name and values of a manual DB cluster snapshot attribute.+--+-- Manual DB cluster snapshot attributes are used to authorize other AWS accounts to restore a manual DB cluster snapshot. For more information, see the < ModifyDBClusterSnapshotAttribute> API action.+--+-- /See:/ 'dbClusterSnapshotAttribute' smart constructor.+data DBClusterSnapshotAttribute = DBClusterSnapshotAttribute'+    { _dcsaAttributeValues :: !(Maybe [Text])+    , _dcsaAttributeName   :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DBClusterSnapshotAttribute' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcsaAttributeValues'+--+-- * 'dcsaAttributeName'+dbClusterSnapshotAttribute+    :: DBClusterSnapshotAttribute+dbClusterSnapshotAttribute =+    DBClusterSnapshotAttribute'+    { _dcsaAttributeValues = Nothing+    , _dcsaAttributeName = Nothing+    }++-- | The value(s) for the manual DB cluster snapshot attribute.+--+-- If the 'AttributeName' field is set to 'restore', then this element returns a list of IDs of the AWS accounts that are authorized to copy or restore the manual DB cluster snapshot. If a value of 'all' is in the list, then the manual DB cluster snapshot is public and available for any AWS account to copy or restore.+dcsaAttributeValues :: Lens' DBClusterSnapshotAttribute [Text]+dcsaAttributeValues = lens _dcsaAttributeValues (\ s a -> s{_dcsaAttributeValues = a}) . _Default . _Coerce;++-- | The name of the manual DB cluster snapshot attribute.+--+-- The attribute named 'restore' refers to the list of AWS accounts that have permission to copy or restore the manual DB cluster snapshot. For more information, see the < ModifyDBClusterSnapshotAttribute> API action.+dcsaAttributeName :: Lens' DBClusterSnapshotAttribute (Maybe Text)+dcsaAttributeName = lens _dcsaAttributeName (\ s a -> s{_dcsaAttributeName = a});++instance FromXML DBClusterSnapshotAttribute where+        parseXML x+          = DBClusterSnapshotAttribute' <$>+              (x .@? "AttributeValues" .!@ mempty >>=+                 may (parseXMLList "AttributeValue"))+                <*> (x .@? "AttributeName")++instance Hashable DBClusterSnapshotAttribute++instance NFData DBClusterSnapshotAttribute++-- | Contains the results of a successful call to the < DescribeDBClusterSnapshotAttributes> API action.+--+-- Manual DB cluster snapshot attributes are used to authorize other AWS accounts to copy or restore a manual DB cluster snapshot. For more information, see the < ModifyDBClusterSnapshotAttribute> API action.+--+-- /See:/ 'dbClusterSnapshotAttributesResult' smart constructor.+data DBClusterSnapshotAttributesResult = DBClusterSnapshotAttributesResult'+    { _dcsarDBClusterSnapshotIdentifier :: !(Maybe Text)+    , _dcsarDBClusterSnapshotAttributes :: !(Maybe [DBClusterSnapshotAttribute])+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DBClusterSnapshotAttributesResult' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcsarDBClusterSnapshotIdentifier'+--+-- * 'dcsarDBClusterSnapshotAttributes'+dbClusterSnapshotAttributesResult+    :: DBClusterSnapshotAttributesResult+dbClusterSnapshotAttributesResult =+    DBClusterSnapshotAttributesResult'+    { _dcsarDBClusterSnapshotIdentifier = Nothing+    , _dcsarDBClusterSnapshotAttributes = Nothing+    }++-- | The identifier of the manual DB cluster snapshot that the attributes apply to.+dcsarDBClusterSnapshotIdentifier :: Lens' DBClusterSnapshotAttributesResult (Maybe Text)+dcsarDBClusterSnapshotIdentifier = lens _dcsarDBClusterSnapshotIdentifier (\ s a -> s{_dcsarDBClusterSnapshotIdentifier = a});++-- | The list of attributes and values for the manual DB cluster snapshot.+dcsarDBClusterSnapshotAttributes :: Lens' DBClusterSnapshotAttributesResult [DBClusterSnapshotAttribute]+dcsarDBClusterSnapshotAttributes = lens _dcsarDBClusterSnapshotAttributes (\ s a -> s{_dcsarDBClusterSnapshotAttributes = a}) . _Default . _Coerce;++instance FromXML DBClusterSnapshotAttributesResult+         where+        parseXML x+          = DBClusterSnapshotAttributesResult' <$>+              (x .@? "DBClusterSnapshotIdentifier") <*>+                (x .@? "DBClusterSnapshotAttributes" .!@ mempty >>=+                   may (parseXMLList "DBClusterSnapshotAttribute"))++instance Hashable DBClusterSnapshotAttributesResult++instance NFData DBClusterSnapshotAttributesResult+ -- | This data type is used as a response element in the action < DescribeDBEngineVersions>. -- -- /See:/ 'dbEngineVersion' smart constructor.@@ -961,7 +1121,9 @@ -- | Contains the result of a successful invocation of the following actions: -- -- -   < CreateDBInstance>+-- -- -   < DeleteDBInstance>+-- -- -   < ModifyDBInstance> -- -- This data type is used as a response element in the < DescribeDBInstances> action.@@ -974,6 +1136,7 @@     , _diDBClusterIdentifier                   :: !(Maybe Text)     , _diPubliclyAccessible                    :: !(Maybe Bool)     , _diAutoMinorVersionUpgrade               :: !(Maybe Bool)+    , _diDBInstanceARN                         :: !(Maybe Text)     , _diMasterUsername                        :: !(Maybe Text)     , _diReadReplicaDBInstanceIdentifiers      :: !(Maybe [Text])     , _diMonitoringRoleARN                     :: !(Maybe Text)@@ -1031,6 +1194,8 @@ -- -- * 'diAutoMinorVersionUpgrade' --+-- * 'diDBInstanceARN'+-- -- * 'diMasterUsername' -- -- * 'diReadReplicaDBInstanceIdentifiers'@@ -1118,6 +1283,7 @@     , _diDBClusterIdentifier = Nothing     , _diPubliclyAccessible = Nothing     , _diAutoMinorVersionUpgrade = Nothing+    , _diDBInstanceARN = Nothing     , _diMasterUsername = Nothing     , _diReadReplicaDBInstanceIdentifiers = Nothing     , _diMonitoringRoleARN = Nothing@@ -1180,6 +1346,7 @@ -- Default: The default behavior varies depending on whether a VPC has been requested or not. The following list shows the default behavior in each case. -- -- -   __Default VPC:__true+-- -- -   __VPC:__false -- -- If no DB subnet group has been specified as part of the request and the PubliclyAccessible value has not been set, the DB instance will be publicly accessible. If a specific DB subnet group has been specified as part of the request and the PubliclyAccessible value has not been set, the DB instance will be private.@@ -1190,6 +1357,10 @@ diAutoMinorVersionUpgrade :: Lens' DBInstance (Maybe Bool) diAutoMinorVersionUpgrade = lens _diAutoMinorVersionUpgrade (\ s a -> s{_diAutoMinorVersionUpgrade = a}); +-- | The Amazon Resource Name (ARN) for the DB instance.+diDBInstanceARN :: Lens' DBInstance (Maybe Text)+diDBInstanceARN = lens _diDBInstanceARN (\ s a -> s{_diDBInstanceARN = a});+ -- | Contains the master username for the DB instance. diMasterUsername :: Lens' DBInstance (Maybe Text) diMasterUsername = lens _diMasterUsername (\ s a -> s{_diMasterUsername = a});@@ -1366,6 +1537,7 @@                 <*> (x .@? "DBClusterIdentifier")                 <*> (x .@? "PubliclyAccessible")                 <*> (x .@? "AutoMinorVersionUpgrade")+                <*> (x .@? "DBInstanceArn")                 <*> (x .@? "MasterUsername")                 <*>                 (x .@? "ReadReplicaDBInstanceIdentifiers" .!@ mempty@@ -1487,7 +1659,8 @@ -- -- /See:/ 'dbParameterGroup' smart constructor. data DBParameterGroup = DBParameterGroup'-    { _dpgDBParameterGroupFamily :: !(Maybe Text)+    { _dpgDBParameterGroupARN    :: !(Maybe Text)+    , _dpgDBParameterGroupFamily :: !(Maybe Text)     , _dpgDBParameterGroupName   :: !(Maybe Text)     , _dpgDescription            :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -1496,6 +1669,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'dpgDBParameterGroupARN'+-- -- * 'dpgDBParameterGroupFamily' -- -- * 'dpgDBParameterGroupName'@@ -1505,11 +1680,16 @@     :: DBParameterGroup dbParameterGroup =     DBParameterGroup'-    { _dpgDBParameterGroupFamily = Nothing+    { _dpgDBParameterGroupARN = Nothing+    , _dpgDBParameterGroupFamily = Nothing     , _dpgDBParameterGroupName = Nothing     , _dpgDescription = Nothing     } +-- | The Amazon Resource Name (ARN) for the DB parameter group.+dpgDBParameterGroupARN :: Lens' DBParameterGroup (Maybe Text)+dpgDBParameterGroupARN = lens _dpgDBParameterGroupARN (\ s a -> s{_dpgDBParameterGroupARN = a});+ -- | Provides the name of the DB parameter group family that this DB parameter group is compatible with. dpgDBParameterGroupFamily :: Lens' DBParameterGroup (Maybe Text) dpgDBParameterGroupFamily = lens _dpgDBParameterGroupFamily (\ s a -> s{_dpgDBParameterGroupFamily = a});@@ -1525,8 +1705,9 @@ instance FromXML DBParameterGroup where         parseXML x           = DBParameterGroup' <$>-              (x .@? "DBParameterGroupFamily") <*>-                (x .@? "DBParameterGroupName")+              (x .@? "DBParameterGroupArn") <*>+                (x .@? "DBParameterGroupFamily")+                <*> (x .@? "DBParameterGroupName")                 <*> (x .@? "Description")  instance Hashable DBParameterGroup@@ -1570,12 +1751,18 @@ -- This data type is used as a response element in the following actions: -- -- -   < CreateDBInstance>+-- -- -   < CreateDBInstanceReadReplica>+-- -- -   < DeleteDBInstance>+-- -- -   < ModifyDBInstance>+-- -- -   < RebootDBInstance>+-- -- -   < RestoreDBInstanceFromDBSnapshot> --+-- -- /See:/ 'dbParameterGroupStatus' smart constructor. data DBParameterGroupStatus = DBParameterGroupStatus'     { _dpgsDBParameterGroupName :: !(Maybe Text)@@ -1618,8 +1805,11 @@ -- | Contains the result of a successful invocation of the following actions: -- -- -   < DescribeDBSecurityGroups>+-- -- -   < AuthorizeDBSecurityGroupIngress>+-- -- -   < CreateDBSecurityGroup>+-- -- -   < RevokeDBSecurityGroupIngress> -- -- This data type is used as a response element in the < DescribeDBSecurityGroups> action.@@ -1628,6 +1818,7 @@ data DBSecurityGroup = DBSecurityGroup'     { _dbsgVPCId                      :: !(Maybe Text)     , _dbsgOwnerId                    :: !(Maybe Text)+    , _dbsgDBSecurityGroupARN         :: !(Maybe Text)     , _dbsgIPRanges                   :: !(Maybe [IPRange])     , _dbsgDBSecurityGroupName        :: !(Maybe Text)     , _dbsgEC2SecurityGroups          :: !(Maybe [EC2SecurityGroup])@@ -1642,6 +1833,8 @@ -- -- * 'dbsgOwnerId' --+-- * 'dbsgDBSecurityGroupARN'+-- -- * 'dbsgIPRanges' -- -- * 'dbsgDBSecurityGroupName'@@ -1655,6 +1848,7 @@     DBSecurityGroup'     { _dbsgVPCId = Nothing     , _dbsgOwnerId = Nothing+    , _dbsgDBSecurityGroupARN = Nothing     , _dbsgIPRanges = Nothing     , _dbsgDBSecurityGroupName = Nothing     , _dbsgEC2SecurityGroups = Nothing@@ -1669,6 +1863,10 @@ dbsgOwnerId :: Lens' DBSecurityGroup (Maybe Text) dbsgOwnerId = lens _dbsgOwnerId (\ s a -> s{_dbsgOwnerId = a}); +-- | The Amazon Resource Name (ARN) for the DB security group.+dbsgDBSecurityGroupARN :: Lens' DBSecurityGroup (Maybe Text)+dbsgDBSecurityGroupARN = lens _dbsgDBSecurityGroupARN (\ s a -> s{_dbsgDBSecurityGroupARN = a});+ -- | Contains a list of < IPRange> elements. dbsgIPRanges :: Lens' DBSecurityGroup [IPRange] dbsgIPRanges = lens _dbsgIPRanges (\ s a -> s{_dbsgIPRanges = a}) . _Default . _Coerce;@@ -1689,6 +1887,8 @@         parseXML x           = DBSecurityGroup' <$>               (x .@? "VpcId") <*> (x .@? "OwnerId") <*>+                (x .@? "DBSecurityGroupArn")+                <*>                 (x .@? "IPRanges" .!@ mempty >>=                    may (parseXMLList "IPRange"))                 <*> (x .@? "DBSecurityGroupName")@@ -1704,10 +1904,14 @@ -- | This data type is used as a response element in the following actions: -- -- -   < ModifyDBInstance>+-- -- -   < RebootDBInstance>+-- -- -   < RestoreDBInstanceFromDBSnapshot>+-- -- -   < RestoreDBInstanceToPointInTime> --+-- -- /See:/ 'dbSecurityGroupMembership' smart constructor. data DBSecurityGroupMembership = DBSecurityGroupMembership'     { _dsgmStatus              :: !(Maybe Text)@@ -1749,6 +1953,7 @@ -- | Contains the result of a successful invocation of the following actions: -- -- -   < CreateDBSnapshot>+-- -- -   < DeleteDBSnapshot> -- -- This data type is used as a response element in the < DescribeDBSnapshots> action.@@ -1757,6 +1962,7 @@ data DBSnapshot = DBSnapshot'     { _dsEngineVersion              :: !(Maybe Text)     , _dsStatus                     :: !(Maybe Text)+    , _dsDBSnapshotARN              :: !(Maybe Text)     , _dsMasterUsername             :: !(Maybe Text)     , _dsSourceRegion               :: !(Maybe Text)     , _dsIOPS                       :: !(Maybe Int)@@ -1788,6 +1994,8 @@ -- -- * 'dsStatus' --+-- * 'dsDBSnapshotARN'+-- -- * 'dsMasterUsername' -- -- * 'dsSourceRegion'@@ -1835,6 +2043,7 @@     DBSnapshot'     { _dsEngineVersion = Nothing     , _dsStatus = Nothing+    , _dsDBSnapshotARN = Nothing     , _dsMasterUsername = Nothing     , _dsSourceRegion = Nothing     , _dsIOPS = Nothing@@ -1866,6 +2075,10 @@ dsStatus :: Lens' DBSnapshot (Maybe Text) dsStatus = lens _dsStatus (\ s a -> s{_dsStatus = a}); +-- | The Amazon Resource Name (ARN) for the DB snapshot.+dsDBSnapshotARN :: Lens' DBSnapshot (Maybe Text)+dsDBSnapshotARN = lens _dsDBSnapshotARN (\ s a -> s{_dsDBSnapshotARN = a});+ -- | Provides the master username for the DB snapshot. dsMasterUsername :: Lens' DBSnapshot (Maybe Text) dsMasterUsername = lens _dsMasterUsername (\ s a -> s{_dsMasterUsername = a});@@ -1954,7 +2167,8 @@         parseXML x           = DBSnapshot' <$>               (x .@? "EngineVersion") <*> (x .@? "Status") <*>-                (x .@? "MasterUsername")+                (x .@? "DBSnapshotArn")+                <*> (x .@? "MasterUsername")                 <*> (x .@? "SourceRegion")                 <*> (x .@? "Iops")                 <*> (x .@? "VpcId")@@ -2005,15 +2219,15 @@     , _dsaAttributeName = Nothing     } --- | The value(s) for the manual DB snapshot attribute.+-- | The value or values for the manual DB snapshot attribute. ----- If the 'AttributeName' field is 'restore', then this field returns a list of AWS account ids that are authorized to copy or restore the manual DB snapshot. If a value of 'all' is in the list, then the manual DB snapshot is public and available for any AWS account to copy or restore.+-- If the 'AttributeName' field is set to 'restore', then this element returns a list of IDs of the AWS accounts that are authorized to copy or restore the manual DB snapshot. If a value of 'all' is in the list, then the manual DB snapshot is public and available for any AWS account to copy or restore. dsaAttributeValues :: Lens' DBSnapshotAttribute [Text] dsaAttributeValues = lens _dsaAttributeValues (\ s a -> s{_dsaAttributeValues = a}) . _Default . _Coerce;  -- | The name of the manual DB snapshot attribute. ----- An attribute name of 'restore' applies to the list of AWS accounts that have permission to copy or restore the manual DB snapshot.+-- The attribute named 'restore' refers to the list of AWS accounts that have permission to copy or restore the manual DB cluster snapshot. For more information, see the < ModifyDBSnapshotAttribute> API action. dsaAttributeName :: Lens' DBSnapshotAttribute (Maybe Text) dsaAttributeName = lens _dsaAttributeName (\ s a -> s{_dsaAttributeName = a}); @@ -2028,9 +2242,9 @@  instance NFData DBSnapshotAttribute --- | Contains the results of a successful call to the < DescribeDBSnapshotAttributes> API.+-- | Contains the results of a successful call to the < DescribeDBSnapshotAttributes> API action. ----- Manual DB snapshot attributes are used to authorize other AWS accounts to copy or restore a manual DB snapshot. For more information, see the < ModifyDBSnapshotAttribute> API.+-- Manual DB snapshot attributes are used to authorize other AWS accounts to copy or restore a manual DB snapshot. For more information, see the < ModifyDBSnapshotAttribute> API action. -- -- /See:/ 'dbSnapshotAttributesResult' smart constructor. data DBSnapshotAttributesResult = DBSnapshotAttributesResult'@@ -2075,8 +2289,11 @@ -- | Contains the result of a successful invocation of the following actions: -- -- -   < CreateDBSubnetGroup>+-- -- -   < ModifyDBSubnetGroup>+-- -- -   < DescribeDBSubnetGroups>+-- -- -   < DeleteDBSubnetGroup> -- -- This data type is used as a response element in the < DescribeDBSubnetGroups> action.@@ -2087,6 +2304,7 @@     , _dsgVPCId                    :: !(Maybe Text)     , _dsgSubnets                  :: !(Maybe [Subnet])     , _dsgDBSubnetGroupDescription :: !(Maybe Text)+    , _dsgDBSubnetGroupARN         :: !(Maybe Text)     , _dsgSubnetGroupStatus        :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -2102,6 +2320,8 @@ -- -- * 'dsgDBSubnetGroupDescription' --+-- * 'dsgDBSubnetGroupARN'+-- -- * 'dsgSubnetGroupStatus' dbSubnetGroup     :: DBSubnetGroup@@ -2111,6 +2331,7 @@     , _dsgVPCId = Nothing     , _dsgSubnets = Nothing     , _dsgDBSubnetGroupDescription = Nothing+    , _dsgDBSubnetGroupARN = Nothing     , _dsgSubnetGroupStatus = Nothing     } @@ -2130,6 +2351,10 @@ dsgDBSubnetGroupDescription :: Lens' DBSubnetGroup (Maybe Text) dsgDBSubnetGroupDescription = lens _dsgDBSubnetGroupDescription (\ s a -> s{_dsgDBSubnetGroupDescription = a}); +-- | The Amazon Resource Name (ARN) for the DB subnet group.+dsgDBSubnetGroupARN :: Lens' DBSubnetGroup (Maybe Text)+dsgDBSubnetGroupARN = lens _dsgDBSubnetGroupARN (\ s a -> s{_dsgDBSubnetGroupARN = a});+ -- | Provides the status of the DB subnet group. dsgSubnetGroupStatus :: Lens' DBSubnetGroup (Maybe Text) dsgSubnetGroupStatus = lens _dsgSubnetGroupStatus (\ s a -> s{_dsgSubnetGroupStatus = a});@@ -2141,6 +2366,7 @@                 (x .@? "Subnets" .!@ mempty >>=                    may (parseXMLList "Subnet"))                 <*> (x .@? "DBSubnetGroupDescription")+                <*> (x .@? "DBSubnetGroupArn")                 <*> (x .@? "SubnetGroupStatus")  instance Hashable DBSubnetGroup@@ -2257,9 +2483,12 @@ -- | This data type is used as a response element in the following actions: -- -- -   < AuthorizeDBSecurityGroupIngress>+-- -- -   < DescribeDBSecurityGroups>+-- -- -   < RevokeDBSecurityGroupIngress> --+-- -- /See:/ 'ec2SecurityGroup' smart constructor. data EC2SecurityGroup = EC2SecurityGroup'     { _esgStatus                  :: !(Maybe Text)@@ -2320,9 +2549,12 @@ -- | This data type is used as a response element in the following actions: -- -- -   < CreateDBInstance>+-- -- -   < DescribeDBInstances>+-- -- -   < DeleteDBInstance> --+-- -- /See:/ 'endpoint' smart constructor. data Endpoint = Endpoint'     { _eHostedZoneId :: !(Maybe Text)@@ -2426,6 +2658,7 @@ -- /See:/ 'event' smart constructor. data Event = Event'     { _eSourceType       :: !(Maybe SourceType)+    , _eSourceARN        :: !(Maybe Text)     , _eSourceIdentifier :: !(Maybe Text)     , _eDate             :: !(Maybe ISO8601)     , _eEventCategories  :: !(Maybe [Text])@@ -2438,6 +2671,8 @@ -- -- * 'eSourceType' --+-- * 'eSourceARN'+-- -- * 'eSourceIdentifier' -- -- * 'eDate'@@ -2450,6 +2685,7 @@ event =     Event'     { _eSourceType = Nothing+    , _eSourceARN = Nothing     , _eSourceIdentifier = Nothing     , _eDate = Nothing     , _eEventCategories = Nothing@@ -2460,6 +2696,10 @@ eSourceType :: Lens' Event (Maybe SourceType) eSourceType = lens _eSourceType (\ s a -> s{_eSourceType = a}); +-- | The Amazon Resource Name (ARN) for the event.+eSourceARN :: Lens' Event (Maybe Text)+eSourceARN = lens _eSourceARN (\ s a -> s{_eSourceARN = a});+ -- | Provides the identifier for the source of the event. eSourceIdentifier :: Lens' Event (Maybe Text) eSourceIdentifier = lens _eSourceIdentifier (\ s a -> s{_eSourceIdentifier = a});@@ -2479,7 +2719,8 @@ instance FromXML Event where         parseXML x           = Event' <$>-              (x .@? "SourceType") <*> (x .@? "SourceIdentifier")+              (x .@? "SourceType") <*> (x .@? "SourceArn") <*>+                (x .@? "SourceIdentifier")                 <*> (x .@? "Date")                 <*>                 (x .@? "EventCategories" .!@ mempty >>=@@ -2540,6 +2781,7 @@     , _esCustomerAWSId            :: !(Maybe Text)     , _esCustSubscriptionId       :: !(Maybe Text)     , _esSNSTopicARN              :: !(Maybe Text)+    , _esEventSubscriptionARN     :: !(Maybe Text)     , _esEnabled                  :: !(Maybe Bool)     , _esSourceType               :: !(Maybe Text)     , _esSubscriptionCreationTime :: !(Maybe Text)@@ -2559,6 +2801,8 @@ -- -- * 'esSNSTopicARN' --+-- * 'esEventSubscriptionARN'+-- -- * 'esEnabled' -- -- * 'esSourceType'@@ -2576,6 +2820,7 @@     , _esCustomerAWSId = Nothing     , _esCustSubscriptionId = Nothing     , _esSNSTopicARN = Nothing+    , _esEventSubscriptionARN = Nothing     , _esEnabled = Nothing     , _esSourceType = Nothing     , _esSubscriptionCreationTime = Nothing@@ -2605,6 +2850,10 @@ esSNSTopicARN :: Lens' EventSubscription (Maybe Text) esSNSTopicARN = lens _esSNSTopicARN (\ s a -> s{_esSNSTopicARN = a}); +-- | The Amazon Resource Name (ARN) for the event subscription.+esEventSubscriptionARN :: Lens' EventSubscription (Maybe Text)+esEventSubscriptionARN = lens _esEventSubscriptionARN (\ s a -> s{_esEventSubscriptionARN = a});+ -- | A Boolean value indicating if the subscription is enabled. True indicates the subscription is enabled. esEnabled :: Lens' EventSubscription (Maybe Bool) esEnabled = lens _esEnabled (\ s a -> s{_esEnabled = a});@@ -2631,6 +2880,7 @@               (x .@? "Status") <*> (x .@? "CustomerAwsId") <*>                 (x .@? "CustSubscriptionId")                 <*> (x .@? "SnsTopicArn")+                <*> (x .@? "EventSubscriptionArn")                 <*> (x .@? "Enabled")                 <*> (x .@? "SourceType")                 <*> (x .@? "SubscriptionCreationTime")@@ -2645,7 +2895,9 @@  instance NFData EventSubscription --- | /See:/ 'filter'' smart constructor.+-- | This type is not currently supported.+--+-- /See:/ 'filter'' smart constructor. data Filter = Filter'     { _fName   :: !Text     , _fValues :: ![Text]@@ -2735,6 +2987,7 @@     , _oOptionSettings              :: !(Maybe [OptionSetting])     , _oVPCSecurityGroupMemberships :: !(Maybe [VPCSecurityGroupMembership])     , _oDBSecurityGroupMemberships  :: !(Maybe [DBSecurityGroupMembership])+    , _oOptionVersion               :: !(Maybe Text)     , _oPort                        :: !(Maybe Int)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -2756,6 +3009,8 @@ -- -- * 'oDBSecurityGroupMemberships' --+-- * 'oOptionVersion'+-- -- * 'oPort' option     :: Option@@ -2768,6 +3023,7 @@     , _oOptionSettings = Nothing     , _oVPCSecurityGroupMemberships = Nothing     , _oDBSecurityGroupMemberships = Nothing+    , _oOptionVersion = Nothing     , _oPort = Nothing     } @@ -2799,6 +3055,10 @@ oDBSecurityGroupMemberships :: Lens' Option [DBSecurityGroupMembership] oDBSecurityGroupMemberships = lens _oDBSecurityGroupMemberships (\ s a -> s{_oDBSecurityGroupMemberships = a}) . _Default . _Coerce; +-- | The version of the option.+oOptionVersion :: Lens' Option (Maybe Text)+oOptionVersion = lens _oOptionVersion (\ s a -> s{_oOptionVersion = a});+ -- | If required, the port configured for this option to use. oPort :: Lens' Option (Maybe Int) oPort = lens _oPort (\ s a -> s{_oPort = a});@@ -2818,6 +3078,7 @@                 <*>                 (x .@? "DBSecurityGroupMemberships" .!@ mempty >>=                    may (parseXMLList "DBSecurityGroup"))+                <*> (x .@? "OptionVersion")                 <*> (x .@? "Port")  instance Hashable Option@@ -2831,6 +3092,7 @@     { _ocOptionSettings              :: !(Maybe [OptionSetting])     , _ocVPCSecurityGroupMemberships :: !(Maybe [Text])     , _ocDBSecurityGroupMemberships  :: !(Maybe [Text])+    , _ocOptionVersion               :: !(Maybe Text)     , _ocPort                        :: !(Maybe Int)     , _ocOptionName                  :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -2845,6 +3107,8 @@ -- -- * 'ocDBSecurityGroupMemberships' --+-- * 'ocOptionVersion'+-- -- * 'ocPort' -- -- * 'ocOptionName'@@ -2856,6 +3120,7 @@     { _ocOptionSettings = Nothing     , _ocVPCSecurityGroupMemberships = Nothing     , _ocDBSecurityGroupMemberships = Nothing+    , _ocOptionVersion = Nothing     , _ocPort = Nothing     , _ocOptionName = pOptionName_     }@@ -2872,6 +3137,10 @@ ocDBSecurityGroupMemberships :: Lens' OptionConfiguration [Text] ocDBSecurityGroupMemberships = lens _ocDBSecurityGroupMemberships (\ s a -> s{_ocDBSecurityGroupMemberships = a}) . _Default . _Coerce; +-- | The version for the option.+ocOptionVersion :: Lens' OptionConfiguration (Maybe Text)+ocOptionVersion = lens _ocOptionVersion (\ s a -> s{_ocOptionVersion = a});+ -- | The optional port for the option. ocPort :: Lens' OptionConfiguration (Maybe Int) ocPort = lens _ocPort (\ s a -> s{_ocPort = a});@@ -2898,6 +3167,7 @@                  toQuery                    (toQueryList "DBSecurityGroupName" <$>                       _ocDBSecurityGroupMemberships),+               "OptionVersion" =: _ocOptionVersion,                "Port" =: _ocPort, "OptionName" =: _ocOptionName]  -- |@@ -2908,6 +3178,7 @@     , _ogVPCId                                 :: !(Maybe Text)     , _ogAllowsVPCAndNonVPCInstanceMemberships :: !(Maybe Bool)     , _ogEngineName                            :: !(Maybe Text)+    , _ogOptionGroupARN                        :: !(Maybe Text)     , _ogMajorEngineVersion                    :: !(Maybe Text)     , _ogOptions                               :: !(Maybe [Option])     , _ogOptionGroupName                       :: !(Maybe Text)@@ -2925,6 +3196,8 @@ -- -- * 'ogEngineName' --+-- * 'ogOptionGroupARN'+-- -- * 'ogMajorEngineVersion' -- -- * 'ogOptions'@@ -2938,6 +3211,7 @@     , _ogVPCId = Nothing     , _ogAllowsVPCAndNonVPCInstanceMemberships = Nothing     , _ogEngineName = Nothing+    , _ogOptionGroupARN = Nothing     , _ogMajorEngineVersion = Nothing     , _ogOptions = Nothing     , _ogOptionGroupName = Nothing@@ -2959,6 +3233,10 @@ ogEngineName :: Lens' OptionGroup (Maybe Text) ogEngineName = lens _ogEngineName (\ s a -> s{_ogEngineName = a}); +-- | The Amazon Resource Name (ARN) for the option group.+ogOptionGroupARN :: Lens' OptionGroup (Maybe Text)+ogOptionGroupARN = lens _ogOptionGroupARN (\ s a -> s{_ogOptionGroupARN = a});+ -- | Indicates the major engine version associated with this option group. ogMajorEngineVersion :: Lens' OptionGroup (Maybe Text) ogMajorEngineVersion = lens _ogMajorEngineVersion (\ s a -> s{_ogMajorEngineVersion = a});@@ -2977,6 +3255,7 @@               (x .@? "OptionGroupDescription") <*> (x .@? "VpcId")                 <*> (x .@? "AllowsVpcAndNonVpcInstanceMemberships")                 <*> (x .@? "EngineName")+                <*> (x .@? "OptionGroupArn")                 <*> (x .@? "MajorEngineVersion")                 <*>                 (x .@? "Options" .!@ mempty >>=@@ -3032,8 +3311,10 @@ -- /See:/ 'optionGroupOption' smart constructor. data OptionGroupOption = OptionGroupOption'     { _ogoMinimumRequiredMinorEngineVersion :: !(Maybe Text)+    , _ogoOptionsConflictsWith              :: !(Maybe [Text])     , _ogoPermanent                         :: !(Maybe Bool)     , _ogoPersistent                        :: !(Maybe Bool)+    , _ogoOptionGroupOptionVersions         :: !(Maybe [OptionVersion])     , _ogoEngineName                        :: !(Maybe Text)     , _ogoMajorEngineVersion                :: !(Maybe Text)     , _ogoName                              :: !(Maybe Text)@@ -3050,10 +3331,14 @@ -- -- * 'ogoMinimumRequiredMinorEngineVersion' --+-- * 'ogoOptionsConflictsWith'+-- -- * 'ogoPermanent' -- -- * 'ogoPersistent' --+-- * 'ogoOptionGroupOptionVersions'+-- -- * 'ogoEngineName' -- -- * 'ogoMajorEngineVersion'@@ -3074,8 +3359,10 @@ optionGroupOption =     OptionGroupOption'     { _ogoMinimumRequiredMinorEngineVersion = Nothing+    , _ogoOptionsConflictsWith = Nothing     , _ogoPermanent = Nothing     , _ogoPersistent = Nothing+    , _ogoOptionGroupOptionVersions = Nothing     , _ogoEngineName = Nothing     , _ogoMajorEngineVersion = Nothing     , _ogoName = Nothing@@ -3090,14 +3377,22 @@ ogoMinimumRequiredMinorEngineVersion :: Lens' OptionGroupOption (Maybe Text) ogoMinimumRequiredMinorEngineVersion = lens _ogoMinimumRequiredMinorEngineVersion (\ s a -> s{_ogoMinimumRequiredMinorEngineVersion = a}); --- | A permanent option cannot be removed from the option group once the option group is used, and it cannot be removed from the db instance after assigning an option group with this permanent option.+-- | The options that conflict with this option.+ogoOptionsConflictsWith :: Lens' OptionGroupOption [Text]+ogoOptionsConflictsWith = lens _ogoOptionsConflictsWith (\ s a -> s{_ogoOptionsConflictsWith = a}) . _Default . _Coerce;++-- | Permanent options can never be removed from an option group. An option group containing a permanent option can\'t be removed from a DB instance. ogoPermanent :: Lens' OptionGroupOption (Maybe Bool) ogoPermanent = lens _ogoPermanent (\ s a -> s{_ogoPermanent = a}); --- | A persistent option cannot be removed from the option group once the option group is used, but this option can be removed from the db instance while modifying the related data and assigning another option group without this option.+-- | Persistent options can\'t be removed from an option group while DB instances are associated with the option group. If you disassociate all DB instances from the option group, your can remove the persistent option from the option group. ogoPersistent :: Lens' OptionGroupOption (Maybe Bool) ogoPersistent = lens _ogoPersistent (\ s a -> s{_ogoPersistent = a}); +-- | The versions that are available for the option.+ogoOptionGroupOptionVersions :: Lens' OptionGroupOption [OptionVersion]+ogoOptionGroupOptionVersions = lens _ogoOptionGroupOptionVersions (\ s a -> s{_ogoOptionGroupOptionVersions = a}) . _Default . _Coerce;+ -- | The name of the engine that this option can be applied to. ogoEngineName :: Lens' OptionGroupOption (Maybe Text) ogoEngineName = lens _ogoEngineName (\ s a -> s{_ogoEngineName = a});@@ -3114,7 +3409,7 @@ ogoDefaultPort :: Lens' OptionGroupOption (Maybe Int) ogoDefaultPort = lens _ogoDefaultPort (\ s a -> s{_ogoDefaultPort = a}); --- | Specifies the option settings that are available (and the default value) for each option in an option group.+-- | The option settings that are available (and the default value) for each option in an option group. ogoOptionGroupOptionSettings :: Lens' OptionGroupOption [OptionGroupOptionSetting] ogoOptionGroupOptionSettings = lens _ogoOptionGroupOptionSettings (\ s a -> s{_ogoOptionGroupOptionSettings = a}) . _Default . _Coerce; @@ -3126,7 +3421,7 @@ ogoDescription :: Lens' OptionGroupOption (Maybe Text) ogoDescription = lens _ogoDescription (\ s a -> s{_ogoDescription = a}); --- | List of all options that are prerequisites for this option.+-- | The options that are prerequisites for this option. ogoOptionsDependedOn :: Lens' OptionGroupOption [Text] ogoOptionsDependedOn = lens _ogoOptionsDependedOn (\ s a -> s{_ogoOptionsDependedOn = a}) . _Default . _Coerce; @@ -3134,8 +3429,13 @@         parseXML x           = OptionGroupOption' <$>               (x .@? "MinimumRequiredMinorEngineVersion") <*>-                (x .@? "Permanent")+                (x .@? "OptionsConflictsWith" .!@ mempty >>=+                   may (parseXMLList "OptionConflictName"))+                <*> (x .@? "Permanent")                 <*> (x .@? "Persistent")+                <*>+                (x .@? "OptionGroupOptionVersions" .!@ mempty >>=+                   may (parseXMLList "OptionVersion"))                 <*> (x .@? "EngineName")                 <*> (x .@? "MajorEngineVersion")                 <*> (x .@? "Name")@@ -3343,6 +3643,46 @@                "AllowedValues" =: _osAllowedValues,                "Description" =: _osDescription] +-- | The version for an option. Option group option versions are returned by the < DescribeOptionGroupOptions> action.+--+-- /See:/ 'optionVersion' smart constructor.+data OptionVersion = OptionVersion'+    { _ovVersion   :: !(Maybe Text)+    , _ovIsDefault :: !(Maybe Bool)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'OptionVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ovVersion'+--+-- * 'ovIsDefault'+optionVersion+    :: OptionVersion+optionVersion =+    OptionVersion'+    { _ovVersion = Nothing+    , _ovIsDefault = Nothing+    }++-- | The version of the option.+ovVersion :: Lens' OptionVersion (Maybe Text)+ovVersion = lens _ovVersion (\ s a -> s{_ovVersion = a});++-- | True if the version is the default version of the option; otherwise, false.+ovIsDefault :: Lens' OptionVersion (Maybe Bool)+ovIsDefault = lens _ovIsDefault (\ s a -> s{_ovIsDefault = a});++instance FromXML OptionVersion where+        parseXML x+          = OptionVersion' <$>+              (x .@? "Version") <*> (x .@? "IsDefault")++instance Hashable OptionVersion++instance NFData OptionVersion+ -- | Contains a list of available options for a DB instance -- -- This data type is used as a response element in the < DescribeOrderableDBInstanceOptions> action.@@ -3687,8 +4027,10 @@ data PendingModifiedValues = PendingModifiedValues'     { _pmvEngineVersion           :: !(Maybe Text)     , _pmvMasterUserPassword      :: !(Maybe Text)+    , _pmvDBSubnetGroupName       :: !(Maybe Text)     , _pmvIOPS                    :: !(Maybe Int)     , _pmvDBInstanceClass         :: !(Maybe Text)+    , _pmvLicenseModel            :: !(Maybe Text)     , _pmvCACertificateIdentifier :: !(Maybe Text)     , _pmvDBInstanceIdentifier    :: !(Maybe Text)     , _pmvBackupRetentionPeriod   :: !(Maybe Int)@@ -3706,10 +4048,14 @@ -- -- * 'pmvMasterUserPassword' --+-- * 'pmvDBSubnetGroupName'+-- -- * 'pmvIOPS' -- -- * 'pmvDBInstanceClass' --+-- * 'pmvLicenseModel'+-- -- * 'pmvCACertificateIdentifier' -- -- * 'pmvDBInstanceIdentifier'@@ -3729,8 +4075,10 @@     PendingModifiedValues'     { _pmvEngineVersion = Nothing     , _pmvMasterUserPassword = Nothing+    , _pmvDBSubnetGroupName = Nothing     , _pmvIOPS = Nothing     , _pmvDBInstanceClass = Nothing+    , _pmvLicenseModel = Nothing     , _pmvCACertificateIdentifier = Nothing     , _pmvDBInstanceIdentifier = Nothing     , _pmvBackupRetentionPeriod = Nothing@@ -3748,6 +4096,10 @@ pmvMasterUserPassword :: Lens' PendingModifiedValues (Maybe Text) pmvMasterUserPassword = lens _pmvMasterUserPassword (\ s a -> s{_pmvMasterUserPassword = a}); +-- | The new DB subnet group for the DB instance.+pmvDBSubnetGroupName :: Lens' PendingModifiedValues (Maybe Text)+pmvDBSubnetGroupName = lens _pmvDBSubnetGroupName (\ s a -> s{_pmvDBSubnetGroupName = a});+ -- | Specifies the new Provisioned IOPS value for the DB instance that will be applied or is being applied. pmvIOPS :: Lens' PendingModifiedValues (Maybe Int) pmvIOPS = lens _pmvIOPS (\ s a -> s{_pmvIOPS = a});@@ -3756,6 +4108,12 @@ pmvDBInstanceClass :: Lens' PendingModifiedValues (Maybe Text) pmvDBInstanceClass = lens _pmvDBInstanceClass (\ s a -> s{_pmvDBInstanceClass = a}); +-- | The license model for the DB instance.+--+-- Valid values: 'license-included' | 'bring-your-own-license' | 'general-public-license'+pmvLicenseModel :: Lens' PendingModifiedValues (Maybe Text)+pmvLicenseModel = lens _pmvLicenseModel (\ s a -> s{_pmvLicenseModel = a});+ -- | Specifies the identifier of the CA certificate for the DB instance. pmvCACertificateIdentifier :: Lens' PendingModifiedValues (Maybe Text) pmvCACertificateIdentifier = lens _pmvCACertificateIdentifier (\ s a -> s{_pmvCACertificateIdentifier = a});@@ -3789,8 +4147,10 @@           = PendingModifiedValues' <$>               (x .@? "EngineVersion") <*>                 (x .@? "MasterUserPassword")+                <*> (x .@? "DBSubnetGroupName")                 <*> (x .@? "Iops")                 <*> (x .@? "DBInstanceClass")+                <*> (x .@? "LicenseModel")                 <*> (x .@? "CACertificateIdentifier")                 <*> (x .@? "DBInstanceIdentifier")                 <*> (x .@? "BackupRetentionPeriod")@@ -3854,6 +4214,7 @@     , _rdiStartTime                     :: !(Maybe ISO8601)     , _rdiProductDescription            :: !(Maybe Text)     , _rdiReservedDBInstanceId          :: !(Maybe Text)+    , _rdiReservedDBInstanceARN         :: !(Maybe Text)     , _rdiDBInstanceClass               :: !(Maybe Text)     , _rdiMultiAZ                       :: !(Maybe Bool)     , _rdiReservedDBInstancesOfferingId :: !(Maybe Text)@@ -3880,6 +4241,8 @@ -- -- * 'rdiReservedDBInstanceId' --+-- * 'rdiReservedDBInstanceARN'+-- -- * 'rdiDBInstanceClass' -- -- * 'rdiMultiAZ'@@ -3905,6 +4268,7 @@     , _rdiStartTime = Nothing     , _rdiProductDescription = Nothing     , _rdiReservedDBInstanceId = Nothing+    , _rdiReservedDBInstanceARN = Nothing     , _rdiDBInstanceClass = Nothing     , _rdiMultiAZ = Nothing     , _rdiReservedDBInstancesOfferingId = Nothing@@ -3939,6 +4303,10 @@ rdiReservedDBInstanceId :: Lens' ReservedDBInstance (Maybe Text) rdiReservedDBInstanceId = lens _rdiReservedDBInstanceId (\ s a -> s{_rdiReservedDBInstanceId = a}); +-- | The Amazon Resource Name (ARN) for the reserved DB instance.+rdiReservedDBInstanceARN :: Lens' ReservedDBInstance (Maybe Text)+rdiReservedDBInstanceARN = lens _rdiReservedDBInstanceARN (\ s a -> s{_rdiReservedDBInstanceARN = a});+ -- | The DB instance class for the reserved DB instance. rdiDBInstanceClass :: Lens' ReservedDBInstance (Maybe Text) rdiDBInstanceClass = lens _rdiDBInstanceClass (\ s a -> s{_rdiDBInstanceClass = a});@@ -3979,6 +4347,7 @@                 <*> (x .@? "StartTime")                 <*> (x .@? "ProductDescription")                 <*> (x .@? "ReservedDBInstanceId")+                <*> (x .@? "ReservedDBInstanceArn")                 <*> (x .@? "DBInstanceClass")                 <*> (x .@? "MultiAZ")                 <*> (x .@? "ReservedDBInstancesOfferingId")@@ -4151,6 +4520,55 @@ instance Hashable ResourcePendingMaintenanceActions  instance NFData ResourcePendingMaintenanceActions++-- | Contains an AWS Region name as the result of a successful call to the < DescribeSourceRegions> action.+--+-- /See:/ 'sourceRegion' smart constructor.+data SourceRegion = SourceRegion'+    { _srStatus     :: !(Maybe Text)+    , _srRegionName :: !(Maybe Text)+    , _srEndpoint   :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'SourceRegion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'srStatus'+--+-- * 'srRegionName'+--+-- * 'srEndpoint'+sourceRegion+    :: SourceRegion+sourceRegion =+    SourceRegion'+    { _srStatus = Nothing+    , _srRegionName = Nothing+    , _srEndpoint = Nothing+    }++-- | The status of the source region.+srStatus :: Lens' SourceRegion (Maybe Text)+srStatus = lens _srStatus (\ s a -> s{_srStatus = a});++-- | The source region name.+srRegionName :: Lens' SourceRegion (Maybe Text)+srRegionName = lens _srRegionName (\ s a -> s{_srRegionName = a});++-- | The source region endpoint.+srEndpoint :: Lens' SourceRegion (Maybe Text)+srEndpoint = lens _srEndpoint (\ s a -> s{_srEndpoint = a});++instance FromXML SourceRegion where+        parseXML x+          = SourceRegion' <$>+              (x .@? "Status") <*> (x .@? "RegionName") <*>+                (x .@? "Endpoint")++instance Hashable SourceRegion++instance NFData SourceRegion  -- | This data type is used as a response element in the < DescribeDBSubnetGroups> action. --

@@ -52,6 +52,9 @@ --         , requestResetDBClusterParameterGroup $ --             resetDBClusterParameterGroup --+--         , requestRestoreDBClusterFromS3 $+--             restoreDBClusterFromS3+-- --         , requestDescribeEvents $ --             describeEvents --@@ -94,6 +97,9 @@ --         , requestDescribeDBSnapshotAttributes $ --             describeDBSnapshotAttributes --+--         , requestPromoteReadReplicaDBCluster $+--             promoteReadReplicaDBCluster+-- --         , requestRemoveTagsFromResource $ --             removeTagsFromResource --@@ -118,6 +124,9 @@ --         , requestAuthorizeDBSecurityGroupIngress $ --             authorizeDBSecurityGroupIngress --+--         , requestDescribeSourceRegions $+--             describeSourceRegions+-- --         , requestRestoreDBClusterFromSnapshot $ --             restoreDBClusterFromSnapshot --@@ -169,9 +178,15 @@ --         , requestCreateDBParameterGroup $ --             createDBParameterGroup --+--         , requestModifyDBClusterSnapshotAttribute $+--             modifyDBClusterSnapshotAttribute+-- --         , requestModifyDBCluster $ --             modifyDBCluster --+--         , requestCopyDBClusterParameterGroup $+--             copyDBClusterParameterGroup+-- --         , requestDescribeEventCategories $ --             describeEventCategories --@@ -181,6 +196,9 @@ --         , requestRestoreDBInstanceToPointInTime $ --             restoreDBInstanceToPointInTime --+--         , requestDescribeDBClusterSnapshotAttributes $+--             describeDBClusterSnapshotAttributes+-- --         , requestDescribePendingMaintenanceActions $ --             describePendingMaintenanceActions --@@ -289,6 +307,9 @@ --         , responseResetDBClusterParameterGroup $ --             dbClusterParameterGroupNameMessage --+--         , responseRestoreDBClusterFromS3 $+--             restoreDBClusterFromS3Response+-- --         , responseDescribeEvents $ --             describeEventsResponse --@@ -331,6 +352,9 @@ --         , responseDescribeDBSnapshotAttributes $ --             describeDBSnapshotAttributesResponse --+--         , responsePromoteReadReplicaDBCluster $+--             promoteReadReplicaDBClusterResponse+-- --         , responseRemoveTagsFromResource $ --             removeTagsFromResourceResponse --@@ -355,6 +379,9 @@ --         , responseAuthorizeDBSecurityGroupIngress $ --             authorizeDBSecurityGroupIngressResponse --+--         , responseDescribeSourceRegions $+--             describeSourceRegionsResponse+-- --         , responseRestoreDBClusterFromSnapshot $ --             restoreDBClusterFromSnapshotResponse --@@ -406,9 +433,15 @@ --         , responseCreateDBParameterGroup $ --             createDBParameterGroupResponse --+--         , responseModifyDBClusterSnapshotAttribute $+--             modifyDBClusterSnapshotAttributeResponse+-- --         , responseModifyDBCluster $ --             modifyDBClusterResponse --+--         , responseCopyDBClusterParameterGroup $+--             copyDBClusterParameterGroupResponse+-- --         , responseDescribeEventCategories $ --             describeEventCategoriesResponse --@@ -418,6 +451,9 @@ --         , responseRestoreDBInstanceToPointInTime $ --             restoreDBInstanceToPointInTimeResponse --+--         , responseDescribeDBClusterSnapshotAttributes $+--             describeDBClusterSnapshotAttributesResponse+-- --         , responseDescribePendingMaintenanceActions $ --             describePendingMaintenanceActionsResponse --@@ -544,6 +580,11 @@     "ResetDBClusterParameterGroup"     "fixture/ResetDBClusterParameterGroup.yaml" +requestRestoreDBClusterFromS3 :: RestoreDBClusterFromS3 -> TestTree+requestRestoreDBClusterFromS3 = req+    "RestoreDBClusterFromS3"+    "fixture/RestoreDBClusterFromS3.yaml"+ requestDescribeEvents :: DescribeEvents -> TestTree requestDescribeEvents = req     "DescribeEvents"@@ -614,6 +655,11 @@     "DescribeDBSnapshotAttributes"     "fixture/DescribeDBSnapshotAttributes.yaml" +requestPromoteReadReplicaDBCluster :: PromoteReadReplicaDBCluster -> TestTree+requestPromoteReadReplicaDBCluster = req+    "PromoteReadReplicaDBCluster"+    "fixture/PromoteReadReplicaDBCluster.yaml"+ requestRemoveTagsFromResource :: RemoveTagsFromResource -> TestTree requestRemoveTagsFromResource = req     "RemoveTagsFromResource"@@ -654,6 +700,11 @@     "AuthorizeDBSecurityGroupIngress"     "fixture/AuthorizeDBSecurityGroupIngress.yaml" +requestDescribeSourceRegions :: DescribeSourceRegions -> TestTree+requestDescribeSourceRegions = req+    "DescribeSourceRegions"+    "fixture/DescribeSourceRegions.yaml"+ requestRestoreDBClusterFromSnapshot :: RestoreDBClusterFromSnapshot -> TestTree requestRestoreDBClusterFromSnapshot = req     "RestoreDBClusterFromSnapshot"@@ -739,11 +790,21 @@     "CreateDBParameterGroup"     "fixture/CreateDBParameterGroup.yaml" +requestModifyDBClusterSnapshotAttribute :: ModifyDBClusterSnapshotAttribute -> TestTree+requestModifyDBClusterSnapshotAttribute = req+    "ModifyDBClusterSnapshotAttribute"+    "fixture/ModifyDBClusterSnapshotAttribute.yaml"+ requestModifyDBCluster :: ModifyDBCluster -> TestTree requestModifyDBCluster = req     "ModifyDBCluster"     "fixture/ModifyDBCluster.yaml" +requestCopyDBClusterParameterGroup :: CopyDBClusterParameterGroup -> TestTree+requestCopyDBClusterParameterGroup = req+    "CopyDBClusterParameterGroup"+    "fixture/CopyDBClusterParameterGroup.yaml"+ requestDescribeEventCategories :: DescribeEventCategories -> TestTree requestDescribeEventCategories = req     "DescribeEventCategories"@@ -759,6 +820,11 @@     "RestoreDBInstanceToPointInTime"     "fixture/RestoreDBInstanceToPointInTime.yaml" +requestDescribeDBClusterSnapshotAttributes :: DescribeDBClusterSnapshotAttributes -> TestTree+requestDescribeDBClusterSnapshotAttributes = req+    "DescribeDBClusterSnapshotAttributes"+    "fixture/DescribeDBClusterSnapshotAttributes.yaml"+ requestDescribePendingMaintenanceActions :: DescribePendingMaintenanceActions -> TestTree requestDescribePendingMaintenanceActions = req     "DescribePendingMaintenanceActions"@@ -952,6 +1018,13 @@     rds     (Proxy :: Proxy ResetDBClusterParameterGroup) +responseRestoreDBClusterFromS3 :: RestoreDBClusterFromS3Response -> TestTree+responseRestoreDBClusterFromS3 = res+    "RestoreDBClusterFromS3Response"+    "fixture/RestoreDBClusterFromS3Response.proto"+    rds+    (Proxy :: Proxy RestoreDBClusterFromS3)+ responseDescribeEvents :: DescribeEventsResponse -> TestTree responseDescribeEvents = res     "DescribeEventsResponse"@@ -1050,6 +1123,13 @@     rds     (Proxy :: Proxy DescribeDBSnapshotAttributes) +responsePromoteReadReplicaDBCluster :: PromoteReadReplicaDBClusterResponse -> TestTree+responsePromoteReadReplicaDBCluster = res+    "PromoteReadReplicaDBClusterResponse"+    "fixture/PromoteReadReplicaDBClusterResponse.proto"+    rds+    (Proxy :: Proxy PromoteReadReplicaDBCluster)+ responseRemoveTagsFromResource :: RemoveTagsFromResourceResponse -> TestTree responseRemoveTagsFromResource = res     "RemoveTagsFromResourceResponse"@@ -1106,6 +1186,13 @@     rds     (Proxy :: Proxy AuthorizeDBSecurityGroupIngress) +responseDescribeSourceRegions :: DescribeSourceRegionsResponse -> TestTree+responseDescribeSourceRegions = res+    "DescribeSourceRegionsResponse"+    "fixture/DescribeSourceRegionsResponse.proto"+    rds+    (Proxy :: Proxy DescribeSourceRegions)+ responseRestoreDBClusterFromSnapshot :: RestoreDBClusterFromSnapshotResponse -> TestTree responseRestoreDBClusterFromSnapshot = res     "RestoreDBClusterFromSnapshotResponse"@@ -1225,6 +1312,13 @@     rds     (Proxy :: Proxy CreateDBParameterGroup) +responseModifyDBClusterSnapshotAttribute :: ModifyDBClusterSnapshotAttributeResponse -> TestTree+responseModifyDBClusterSnapshotAttribute = res+    "ModifyDBClusterSnapshotAttributeResponse"+    "fixture/ModifyDBClusterSnapshotAttributeResponse.proto"+    rds+    (Proxy :: Proxy ModifyDBClusterSnapshotAttribute)+ responseModifyDBCluster :: ModifyDBClusterResponse -> TestTree responseModifyDBCluster = res     "ModifyDBClusterResponse"@@ -1232,6 +1326,13 @@     rds     (Proxy :: Proxy ModifyDBCluster) +responseCopyDBClusterParameterGroup :: CopyDBClusterParameterGroupResponse -> TestTree+responseCopyDBClusterParameterGroup = res+    "CopyDBClusterParameterGroupResponse"+    "fixture/CopyDBClusterParameterGroupResponse.proto"+    rds+    (Proxy :: Proxy CopyDBClusterParameterGroup)+ responseDescribeEventCategories :: DescribeEventCategoriesResponse -> TestTree responseDescribeEventCategories = res     "DescribeEventCategoriesResponse"@@ -1252,6 +1353,13 @@     "fixture/RestoreDBInstanceToPointInTimeResponse.proto"     rds     (Proxy :: Proxy RestoreDBInstanceToPointInTime)++responseDescribeDBClusterSnapshotAttributes :: DescribeDBClusterSnapshotAttributesResponse -> TestTree+responseDescribeDBClusterSnapshotAttributes = res+    "DescribeDBClusterSnapshotAttributesResponse"+    "fixture/DescribeDBClusterSnapshotAttributesResponse.proto"+    rds+    (Proxy :: Proxy DescribeDBClusterSnapshotAttributes)  responseDescribePendingMaintenanceActions :: DescribePendingMaintenanceActionsResponse -> TestTree responseDescribePendingMaintenanceActions = res