packages feed

amazonka-rds 1.4.5 → 1.5.0

raw patch · 107 files changed

+10310/−8369 lines, 107 filesdep ~amazonka-coredep ~amazonka-rdsdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

+ Network.AWS.RDS: data DoubleRange
+ Network.AWS.RDS: data Range
+ Network.AWS.RDS: data ValidDBInstanceModificationsMessage
+ Network.AWS.RDS: data ValidStorageOptions
+ Network.AWS.RDS: dcCloneGroupId :: Lens' DBCluster (Maybe Text)
+ Network.AWS.RDS: dcClusterCreateTime :: Lens' DBCluster (Maybe UTCTime)
+ Network.AWS.RDS: dcIAMDatabaseAuthenticationEnabled :: Lens' DBCluster (Maybe Bool)
+ Network.AWS.RDS: dcMultiAZ :: Lens' DBCluster (Maybe Bool)
+ Network.AWS.RDS: dcsIAMDatabaseAuthenticationEnabled :: Lens' DBClusterSnapshot (Maybe Bool)
+ Network.AWS.RDS: dcsSourceDBClusterSnapshotARN :: Lens' DBClusterSnapshot (Maybe Text)
+ Network.AWS.RDS: diIAMDatabaseAuthenticationEnabled :: Lens' DBInstance (Maybe Bool)
+ Network.AWS.RDS: diPerformanceInsightsEnabled :: Lens' DBInstance (Maybe Bool)
+ Network.AWS.RDS: diPerformanceInsightsKMSKeyId :: Lens' DBInstance (Maybe Text)
+ Network.AWS.RDS: diReadReplicaDBClusterIdentifiers :: Lens' DBInstance [Text]
+ Network.AWS.RDS: doubleRange :: DoubleRange
+ Network.AWS.RDS: drFrom :: Lens' DoubleRange (Maybe Double)
+ Network.AWS.RDS: drTo :: Lens' DoubleRange (Maybe Double)
+ Network.AWS.RDS: dsIAMDatabaseAuthenticationEnabled :: Lens' DBSnapshot (Maybe Bool)
+ Network.AWS.RDS: odioMaxIOPSPerDBInstance :: Lens' OrderableDBInstanceOption (Maybe Int)
+ Network.AWS.RDS: odioMaxIOPSPerGib :: Lens' OrderableDBInstanceOption (Maybe Double)
+ Network.AWS.RDS: odioMaxStorageSize :: Lens' OrderableDBInstanceOption (Maybe Int)
+ Network.AWS.RDS: odioMinIOPSPerDBInstance :: Lens' OrderableDBInstanceOption (Maybe Int)
+ Network.AWS.RDS: odioMinIOPSPerGib :: Lens' OrderableDBInstanceOption (Maybe Double)
+ Network.AWS.RDS: odioMinStorageSize :: Lens' OrderableDBInstanceOption (Maybe Int)
+ Network.AWS.RDS: odioSupportsIAMDatabaseAuthentication :: Lens' OrderableDBInstanceOption (Maybe Bool)
+ Network.AWS.RDS: odioSupportsPerformanceInsights :: Lens' OrderableDBInstanceOption (Maybe Bool)
+ Network.AWS.RDS: ogoRequiresAutoMinorEngineVersionUpgrade :: Lens' OptionGroupOption (Maybe Bool)
+ Network.AWS.RDS: ogoSupportsOptionVersionDowngrade :: Lens' OptionGroupOption (Maybe Bool)
+ Network.AWS.RDS: ogoVPCOnly :: Lens' OptionGroupOption (Maybe Bool)
+ Network.AWS.RDS: rFrom :: Lens' Range (Maybe Int)
+ Network.AWS.RDS: rStep :: Lens' Range (Maybe Int)
+ Network.AWS.RDS: rTo :: Lens' Range (Maybe Int)
+ Network.AWS.RDS: range :: Range
+ Network.AWS.RDS: validDBInstanceModificationsMessage :: ValidDBInstanceModificationsMessage
+ Network.AWS.RDS: validStorageOptions :: ValidStorageOptions
+ Network.AWS.RDS: vdimmStorage :: Lens' ValidDBInstanceModificationsMessage [ValidStorageOptions]
+ Network.AWS.RDS: vsoIOPSToStorageRatio :: Lens' ValidStorageOptions [DoubleRange]
+ Network.AWS.RDS: vsoProvisionedIOPS :: Lens' ValidStorageOptions [Range]
+ Network.AWS.RDS: vsoStorageSize :: Lens' ValidStorageOptions [Range]
+ Network.AWS.RDS: vsoStorageType :: Lens' ValidStorageOptions (Maybe Text)
+ Network.AWS.RDS.CopyDBClusterSnapshot: cdbcsCopyTags :: Lens' CopyDBClusterSnapshot (Maybe Bool)
+ Network.AWS.RDS.CopyDBClusterSnapshot: cdbcsKMSKeyId :: Lens' CopyDBClusterSnapshot (Maybe Text)
+ Network.AWS.RDS.CopyDBClusterSnapshot: cdbcsPreSignedURL :: Lens' CopyDBClusterSnapshot (Maybe Text)
+ Network.AWS.RDS.CopyDBSnapshot: cdsOptionGroupName :: Lens' CopyDBSnapshot (Maybe Text)
+ Network.AWS.RDS.CopyDBSnapshot: cdsPreSignedURL :: Lens' CopyDBSnapshot (Maybe Text)
+ Network.AWS.RDS.CreateDBCluster: cdcEnableIAMDatabaseAuthentication :: Lens' CreateDBCluster (Maybe Bool)
+ Network.AWS.RDS.CreateDBCluster: cdcPreSignedURL :: Lens' CreateDBCluster (Maybe Text)
+ Network.AWS.RDS.CreateDBInstance: cdiEnableIAMDatabaseAuthentication :: Lens' CreateDBInstance (Maybe Bool)
+ Network.AWS.RDS.CreateDBInstance: cdiEnablePerformanceInsights :: Lens' CreateDBInstance (Maybe Bool)
+ Network.AWS.RDS.CreateDBInstance: cdiPerformanceInsightsKMSKeyId :: Lens' CreateDBInstance (Maybe Text)
+ Network.AWS.RDS.CreateDBInstanceReadReplica: cdirrEnableIAMDatabaseAuthentication :: Lens' CreateDBInstanceReadReplica (Maybe Bool)
+ Network.AWS.RDS.CreateDBInstanceReadReplica: cdirrEnablePerformanceInsights :: Lens' CreateDBInstanceReadReplica (Maybe Bool)
+ Network.AWS.RDS.CreateDBInstanceReadReplica: cdirrKMSKeyId :: Lens' CreateDBInstanceReadReplica (Maybe Text)
+ Network.AWS.RDS.CreateDBInstanceReadReplica: cdirrPerformanceInsightsKMSKeyId :: Lens' CreateDBInstanceReadReplica (Maybe Text)
+ Network.AWS.RDS.CreateDBInstanceReadReplica: cdirrPreSignedURL :: Lens' CreateDBInstanceReadReplica (Maybe Text)
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: data DescribeValidDBInstanceModifications
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: data DescribeValidDBInstanceModificationsResponse
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: describeValidDBInstanceModifications :: Text -> DescribeValidDBInstanceModifications
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: describeValidDBInstanceModificationsResponse :: Int -> DescribeValidDBInstanceModificationsResponse
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: dvdimDBInstanceIdentifier :: Lens' DescribeValidDBInstanceModifications Text
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: dvdimrsResponseStatus :: Lens' DescribeValidDBInstanceModificationsResponse Int
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: dvdimrsValidDBInstanceModificationsMessage :: Lens' DescribeValidDBInstanceModificationsResponse (Maybe ValidDBInstanceModificationsMessage)
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance Control.DeepSeq.NFData Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModifications
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance Control.DeepSeq.NFData Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModificationsResponse
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance Data.Data.Data Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModifications
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance Data.Data.Data Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModificationsResponse
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance Data.Hashable.Class.Hashable Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModifications
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance GHC.Classes.Eq Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModifications
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance GHC.Classes.Eq Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModificationsResponse
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance GHC.Generics.Generic Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModifications
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance GHC.Generics.Generic Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModificationsResponse
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance GHC.Read.Read Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModifications
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance GHC.Read.Read Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModificationsResponse
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance GHC.Show.Show Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModifications
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance GHC.Show.Show Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModificationsResponse
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModifications
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance Network.AWS.Data.Path.ToPath Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModifications
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance Network.AWS.Data.Query.ToQuery Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModifications
+ Network.AWS.RDS.DescribeValidDBInstanceModifications: instance Network.AWS.Types.AWSRequest Network.AWS.RDS.DescribeValidDBInstanceModifications.DescribeValidDBInstanceModifications
+ Network.AWS.RDS.ModifyDBCluster: mdcEnableIAMDatabaseAuthentication :: Lens' ModifyDBCluster (Maybe Bool)
+ Network.AWS.RDS.ModifyDBInstance: mdiEnableIAMDatabaseAuthentication :: Lens' ModifyDBInstance (Maybe Bool)
+ Network.AWS.RDS.ModifyDBInstance: mdiEnablePerformanceInsights :: Lens' ModifyDBInstance (Maybe Bool)
+ Network.AWS.RDS.ModifyDBInstance: mdiPerformanceInsightsKMSKeyId :: Lens' ModifyDBInstance (Maybe Text)
+ Network.AWS.RDS.ModifyDBSnapshot: data ModifyDBSnapshot
+ Network.AWS.RDS.ModifyDBSnapshot: data ModifyDBSnapshotResponse
+ Network.AWS.RDS.ModifyDBSnapshot: instance Control.DeepSeq.NFData Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshot
+ Network.AWS.RDS.ModifyDBSnapshot: instance Control.DeepSeq.NFData Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshotResponse
+ Network.AWS.RDS.ModifyDBSnapshot: instance Data.Data.Data Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshot
+ Network.AWS.RDS.ModifyDBSnapshot: instance Data.Data.Data Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshotResponse
+ Network.AWS.RDS.ModifyDBSnapshot: instance Data.Hashable.Class.Hashable Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshot
+ Network.AWS.RDS.ModifyDBSnapshot: instance GHC.Classes.Eq Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshot
+ Network.AWS.RDS.ModifyDBSnapshot: instance GHC.Classes.Eq Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshotResponse
+ Network.AWS.RDS.ModifyDBSnapshot: instance GHC.Generics.Generic Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshot
+ Network.AWS.RDS.ModifyDBSnapshot: instance GHC.Generics.Generic Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshotResponse
+ Network.AWS.RDS.ModifyDBSnapshot: instance GHC.Read.Read Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshot
+ Network.AWS.RDS.ModifyDBSnapshot: instance GHC.Read.Read Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshotResponse
+ Network.AWS.RDS.ModifyDBSnapshot: instance GHC.Show.Show Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshot
+ Network.AWS.RDS.ModifyDBSnapshot: instance GHC.Show.Show Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshotResponse
+ Network.AWS.RDS.ModifyDBSnapshot: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshot
+ Network.AWS.RDS.ModifyDBSnapshot: instance Network.AWS.Data.Path.ToPath Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshot
+ Network.AWS.RDS.ModifyDBSnapshot: instance Network.AWS.Data.Query.ToQuery Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshot
+ Network.AWS.RDS.ModifyDBSnapshot: instance Network.AWS.Types.AWSRequest Network.AWS.RDS.ModifyDBSnapshot.ModifyDBSnapshot
+ Network.AWS.RDS.ModifyDBSnapshot: mdsDBSnapshotIdentifier :: Lens' ModifyDBSnapshot Text
+ Network.AWS.RDS.ModifyDBSnapshot: mdsEngineVersion :: Lens' ModifyDBSnapshot (Maybe Text)
+ Network.AWS.RDS.ModifyDBSnapshot: mdsOptionGroupName :: Lens' ModifyDBSnapshot (Maybe Text)
+ Network.AWS.RDS.ModifyDBSnapshot: mdsrsDBSnapshot :: Lens' ModifyDBSnapshotResponse (Maybe DBSnapshot)
+ Network.AWS.RDS.ModifyDBSnapshot: mdsrsResponseStatus :: Lens' ModifyDBSnapshotResponse Int
+ Network.AWS.RDS.ModifyDBSnapshot: modifyDBSnapshot :: Text -> ModifyDBSnapshot
+ Network.AWS.RDS.ModifyDBSnapshot: modifyDBSnapshotResponse :: Int -> ModifyDBSnapshotResponse
+ Network.AWS.RDS.RestoreDBClusterFromS3: rdcfsEnableIAMDatabaseAuthentication :: Lens' RestoreDBClusterFromS3 (Maybe Bool)
+ Network.AWS.RDS.RestoreDBClusterFromSnapshot: rdbcfsEnableIAMDatabaseAuthentication :: Lens' RestoreDBClusterFromSnapshot (Maybe Bool)
+ Network.AWS.RDS.RestoreDBClusterToPointInTime: rdctpitEnableIAMDatabaseAuthentication :: Lens' RestoreDBClusterToPointInTime (Maybe Bool)
+ Network.AWS.RDS.RestoreDBClusterToPointInTime: rdctpitRestoreType :: Lens' RestoreDBClusterToPointInTime (Maybe Text)
+ Network.AWS.RDS.RestoreDBInstanceFromDBSnapshot: rdifdsEnableIAMDatabaseAuthentication :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Bool)
+ Network.AWS.RDS.RestoreDBInstanceToPointInTime: rditpitEnableIAMDatabaseAuthentication :: Lens' RestoreDBInstanceToPointInTime (Maybe Bool)
+ Network.AWS.RDS.StartDBInstance: data StartDBInstance
+ Network.AWS.RDS.StartDBInstance: data StartDBInstanceResponse
+ Network.AWS.RDS.StartDBInstance: instance Control.DeepSeq.NFData Network.AWS.RDS.StartDBInstance.StartDBInstance
+ Network.AWS.RDS.StartDBInstance: instance Control.DeepSeq.NFData Network.AWS.RDS.StartDBInstance.StartDBInstanceResponse
+ Network.AWS.RDS.StartDBInstance: instance Data.Data.Data Network.AWS.RDS.StartDBInstance.StartDBInstance
+ Network.AWS.RDS.StartDBInstance: instance Data.Data.Data Network.AWS.RDS.StartDBInstance.StartDBInstanceResponse
+ Network.AWS.RDS.StartDBInstance: instance Data.Hashable.Class.Hashable Network.AWS.RDS.StartDBInstance.StartDBInstance
+ Network.AWS.RDS.StartDBInstance: instance GHC.Classes.Eq Network.AWS.RDS.StartDBInstance.StartDBInstance
+ Network.AWS.RDS.StartDBInstance: instance GHC.Classes.Eq Network.AWS.RDS.StartDBInstance.StartDBInstanceResponse
+ Network.AWS.RDS.StartDBInstance: instance GHC.Generics.Generic Network.AWS.RDS.StartDBInstance.StartDBInstance
+ Network.AWS.RDS.StartDBInstance: instance GHC.Generics.Generic Network.AWS.RDS.StartDBInstance.StartDBInstanceResponse
+ Network.AWS.RDS.StartDBInstance: instance GHC.Read.Read Network.AWS.RDS.StartDBInstance.StartDBInstance
+ Network.AWS.RDS.StartDBInstance: instance GHC.Read.Read Network.AWS.RDS.StartDBInstance.StartDBInstanceResponse
+ Network.AWS.RDS.StartDBInstance: instance GHC.Show.Show Network.AWS.RDS.StartDBInstance.StartDBInstance
+ Network.AWS.RDS.StartDBInstance: instance GHC.Show.Show Network.AWS.RDS.StartDBInstance.StartDBInstanceResponse
+ Network.AWS.RDS.StartDBInstance: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.RDS.StartDBInstance.StartDBInstance
+ Network.AWS.RDS.StartDBInstance: instance Network.AWS.Data.Path.ToPath Network.AWS.RDS.StartDBInstance.StartDBInstance
+ Network.AWS.RDS.StartDBInstance: instance Network.AWS.Data.Query.ToQuery Network.AWS.RDS.StartDBInstance.StartDBInstance
+ Network.AWS.RDS.StartDBInstance: instance Network.AWS.Types.AWSRequest Network.AWS.RDS.StartDBInstance.StartDBInstance
+ Network.AWS.RDS.StartDBInstance: sdbiDBInstanceIdentifier :: Lens' StartDBInstance Text
+ Network.AWS.RDS.StartDBInstance: sdbirsDBInstance :: Lens' StartDBInstanceResponse (Maybe DBInstance)
+ Network.AWS.RDS.StartDBInstance: sdbirsResponseStatus :: Lens' StartDBInstanceResponse Int
+ Network.AWS.RDS.StartDBInstance: startDBInstance :: Text -> StartDBInstance
+ Network.AWS.RDS.StartDBInstance: startDBInstanceResponse :: Int -> StartDBInstanceResponse
+ Network.AWS.RDS.StopDBInstance: data StopDBInstance
+ Network.AWS.RDS.StopDBInstance: data StopDBInstanceResponse
+ Network.AWS.RDS.StopDBInstance: instance Control.DeepSeq.NFData Network.AWS.RDS.StopDBInstance.StopDBInstance
+ Network.AWS.RDS.StopDBInstance: instance Control.DeepSeq.NFData Network.AWS.RDS.StopDBInstance.StopDBInstanceResponse
+ Network.AWS.RDS.StopDBInstance: instance Data.Data.Data Network.AWS.RDS.StopDBInstance.StopDBInstance
+ Network.AWS.RDS.StopDBInstance: instance Data.Data.Data Network.AWS.RDS.StopDBInstance.StopDBInstanceResponse
+ Network.AWS.RDS.StopDBInstance: instance Data.Hashable.Class.Hashable Network.AWS.RDS.StopDBInstance.StopDBInstance
+ Network.AWS.RDS.StopDBInstance: instance GHC.Classes.Eq Network.AWS.RDS.StopDBInstance.StopDBInstance
+ Network.AWS.RDS.StopDBInstance: instance GHC.Classes.Eq Network.AWS.RDS.StopDBInstance.StopDBInstanceResponse
+ Network.AWS.RDS.StopDBInstance: instance GHC.Generics.Generic Network.AWS.RDS.StopDBInstance.StopDBInstance
+ Network.AWS.RDS.StopDBInstance: instance GHC.Generics.Generic Network.AWS.RDS.StopDBInstance.StopDBInstanceResponse
+ Network.AWS.RDS.StopDBInstance: instance GHC.Read.Read Network.AWS.RDS.StopDBInstance.StopDBInstance
+ Network.AWS.RDS.StopDBInstance: instance GHC.Read.Read Network.AWS.RDS.StopDBInstance.StopDBInstanceResponse
+ Network.AWS.RDS.StopDBInstance: instance GHC.Show.Show Network.AWS.RDS.StopDBInstance.StopDBInstance
+ Network.AWS.RDS.StopDBInstance: instance GHC.Show.Show Network.AWS.RDS.StopDBInstance.StopDBInstanceResponse
+ Network.AWS.RDS.StopDBInstance: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.RDS.StopDBInstance.StopDBInstance
+ Network.AWS.RDS.StopDBInstance: instance Network.AWS.Data.Path.ToPath Network.AWS.RDS.StopDBInstance.StopDBInstance
+ Network.AWS.RDS.StopDBInstance: instance Network.AWS.Data.Query.ToQuery Network.AWS.RDS.StopDBInstance.StopDBInstance
+ Network.AWS.RDS.StopDBInstance: instance Network.AWS.Types.AWSRequest Network.AWS.RDS.StopDBInstance.StopDBInstance
+ Network.AWS.RDS.StopDBInstance: sdiDBInstanceIdentifier :: Lens' StopDBInstance Text
+ Network.AWS.RDS.StopDBInstance: sdiDBSnapshotIdentifier :: Lens' StopDBInstance (Maybe Text)
+ Network.AWS.RDS.StopDBInstance: sdirsDBInstance :: Lens' StopDBInstanceResponse (Maybe DBInstance)
+ Network.AWS.RDS.StopDBInstance: sdirsResponseStatus :: Lens' StopDBInstanceResponse Int
+ Network.AWS.RDS.StopDBInstance: stopDBInstance :: Text -> StopDBInstance
+ Network.AWS.RDS.StopDBInstance: stopDBInstanceResponse :: Int -> StopDBInstanceResponse
+ Network.AWS.RDS.Types: data DoubleRange
+ Network.AWS.RDS.Types: data Range
+ Network.AWS.RDS.Types: data ValidDBInstanceModificationsMessage
+ Network.AWS.RDS.Types: data ValidStorageOptions
+ Network.AWS.RDS.Types: dcCloneGroupId :: Lens' DBCluster (Maybe Text)
+ Network.AWS.RDS.Types: dcClusterCreateTime :: Lens' DBCluster (Maybe UTCTime)
+ Network.AWS.RDS.Types: dcIAMDatabaseAuthenticationEnabled :: Lens' DBCluster (Maybe Bool)
+ Network.AWS.RDS.Types: dcMultiAZ :: Lens' DBCluster (Maybe Bool)
+ Network.AWS.RDS.Types: dcsIAMDatabaseAuthenticationEnabled :: Lens' DBClusterSnapshot (Maybe Bool)
+ Network.AWS.RDS.Types: dcsSourceDBClusterSnapshotARN :: Lens' DBClusterSnapshot (Maybe Text)
+ Network.AWS.RDS.Types: diIAMDatabaseAuthenticationEnabled :: Lens' DBInstance (Maybe Bool)
+ Network.AWS.RDS.Types: diPerformanceInsightsEnabled :: Lens' DBInstance (Maybe Bool)
+ Network.AWS.RDS.Types: diPerformanceInsightsKMSKeyId :: Lens' DBInstance (Maybe Text)
+ Network.AWS.RDS.Types: diReadReplicaDBClusterIdentifiers :: Lens' DBInstance [Text]
+ Network.AWS.RDS.Types: doubleRange :: DoubleRange
+ Network.AWS.RDS.Types: drFrom :: Lens' DoubleRange (Maybe Double)
+ Network.AWS.RDS.Types: drTo :: Lens' DoubleRange (Maybe Double)
+ Network.AWS.RDS.Types: dsIAMDatabaseAuthenticationEnabled :: Lens' DBSnapshot (Maybe Bool)
+ Network.AWS.RDS.Types: odioMaxIOPSPerDBInstance :: Lens' OrderableDBInstanceOption (Maybe Int)
+ Network.AWS.RDS.Types: odioMaxIOPSPerGib :: Lens' OrderableDBInstanceOption (Maybe Double)
+ Network.AWS.RDS.Types: odioMaxStorageSize :: Lens' OrderableDBInstanceOption (Maybe Int)
+ Network.AWS.RDS.Types: odioMinIOPSPerDBInstance :: Lens' OrderableDBInstanceOption (Maybe Int)
+ Network.AWS.RDS.Types: odioMinIOPSPerGib :: Lens' OrderableDBInstanceOption (Maybe Double)
+ Network.AWS.RDS.Types: odioMinStorageSize :: Lens' OrderableDBInstanceOption (Maybe Int)
+ Network.AWS.RDS.Types: odioSupportsIAMDatabaseAuthentication :: Lens' OrderableDBInstanceOption (Maybe Bool)
+ Network.AWS.RDS.Types: odioSupportsPerformanceInsights :: Lens' OrderableDBInstanceOption (Maybe Bool)
+ Network.AWS.RDS.Types: ogoRequiresAutoMinorEngineVersionUpgrade :: Lens' OptionGroupOption (Maybe Bool)
+ Network.AWS.RDS.Types: ogoSupportsOptionVersionDowngrade :: Lens' OptionGroupOption (Maybe Bool)
+ Network.AWS.RDS.Types: ogoVPCOnly :: Lens' OptionGroupOption (Maybe Bool)
+ Network.AWS.RDS.Types: rFrom :: Lens' Range (Maybe Int)
+ Network.AWS.RDS.Types: rStep :: Lens' Range (Maybe Int)
+ Network.AWS.RDS.Types: rTo :: Lens' Range (Maybe Int)
+ Network.AWS.RDS.Types: range :: Range
+ Network.AWS.RDS.Types: validDBInstanceModificationsMessage :: ValidDBInstanceModificationsMessage
+ Network.AWS.RDS.Types: validStorageOptions :: ValidStorageOptions
+ Network.AWS.RDS.Types: vdimmStorage :: Lens' ValidDBInstanceModificationsMessage [ValidStorageOptions]
+ Network.AWS.RDS.Types: vsoIOPSToStorageRatio :: Lens' ValidStorageOptions [DoubleRange]
+ Network.AWS.RDS.Types: vsoProvisionedIOPS :: Lens' ValidStorageOptions [Range]
+ Network.AWS.RDS.Types: vsoStorageSize :: Lens' ValidStorageOptions [Range]
+ Network.AWS.RDS.Types: vsoStorageType :: Lens' ValidStorageOptions (Maybe Text)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`1.4.5`+`1.5.0`   ## Description
amazonka-rds.cabal view
@@ -1,13 +1,13 @@ name:                  amazonka-rds-version:               1.4.5+version:               1.5.0 synopsis:              Amazon Relational Database Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,14 +29,19 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-rds  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.RDS@@ -99,6 +104,7 @@         , Network.AWS.RDS.DescribeReservedDBInstances         , Network.AWS.RDS.DescribeReservedDBInstancesOfferings         , Network.AWS.RDS.DescribeSourceRegions+        , Network.AWS.RDS.DescribeValidDBInstanceModifications         , Network.AWS.RDS.DownloadDBLogFilePortion         , Network.AWS.RDS.FailoverDBCluster         , Network.AWS.RDS.ListTagsForResource@@ -107,6 +113,7 @@         , Network.AWS.RDS.ModifyDBClusterSnapshotAttribute         , Network.AWS.RDS.ModifyDBInstance         , Network.AWS.RDS.ModifyDBParameterGroup+        , Network.AWS.RDS.ModifyDBSnapshot         , Network.AWS.RDS.ModifyDBSnapshotAttribute         , Network.AWS.RDS.ModifyDBSubnetGroup         , Network.AWS.RDS.ModifyEventSubscription@@ -126,6 +133,8 @@         , Network.AWS.RDS.RestoreDBInstanceFromDBSnapshot         , Network.AWS.RDS.RestoreDBInstanceToPointInTime         , Network.AWS.RDS.RevokeDBSecurityGroupIngress+        , Network.AWS.RDS.StartDBInstance+        , Network.AWS.RDS.StopDBInstance         , Network.AWS.RDS.Types         , Network.AWS.RDS.Waiters @@ -134,7 +143,7 @@         , Network.AWS.RDS.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-rds-test@@ -154,9 +163,9 @@         , Test.AWS.RDS.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-rds == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-rds         , base         , bytestring         , tasty
+ fixture/DescribeValidDBInstanceModifications.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/DescribeValidDBInstanceModificationsResponse.proto view
+ fixture/ModifyDBSnapshot.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/ModifyDBSnapshotResponse.proto view
+ fixture/StartDBInstance.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/StartDBInstanceResponse.proto view
+ fixture/StopDBInstance.yaml view
@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/rds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  rds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''
+ fixture/StopDBInstanceResponse.proto view
gen/Network/AWS/RDS.hs view
@@ -5,9 +5,9 @@  -- | -- Module      : Network.AWS.RDS--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -15,7 +15,7 @@ -- -- ----- Amazon Relational Database Service (Amazon RDS) is a web service that makes it easier to set up, operate, and scale a relational database in the cloud. It provides cost-efficient, resizeable capacity for an industry-standard relational database and manages common database administration tasks, freeing up developers to focus on what makes their applications and businesses unique.+-- Amazon Relational Database Service (Amazon RDS) is a web service that makes it easier to set up, operate, and scale a relational database in the cloud. It provides cost-efficient, resizable capacity for an industry-standard relational database and manages common database administration tasks, freeing up developers to focus on what makes their applications and businesses unique. -- -- Amazon RDS gives you access to the capabilities of a MySQL, MariaDB, PostgreSQL, Microsoft SQL Server, Oracle, or Amazon Aurora database server. These capabilities mean that the code, applications, and tools you already use today with your existing databases work with Amazon RDS without modification. Amazon RDS automatically backs up your database and maintains the database software that powers your DB instance. Amazon RDS is flexible: you can scale your database instance's compute resources and storage capacity to meet your application's demand. As with all Amazon Web Services, there are no up-front investments, and you pay only for the resources you use. --@@ -301,6 +301,9 @@     -- ** DescribeDBEngineVersions (Paginated)     , module Network.AWS.RDS.DescribeDBEngineVersions +    -- ** StopDBInstance+    , module Network.AWS.RDS.StopDBInstance+     -- ** CopyDBSnapshot     , module Network.AWS.RDS.CopyDBSnapshot @@ -415,6 +418,9 @@     -- ** DeleteDBClusterSnapshot     , module Network.AWS.RDS.DeleteDBClusterSnapshot +    -- ** DescribeValidDBInstanceModifications+    , module Network.AWS.RDS.DescribeValidDBInstanceModifications+     -- ** DescribeOptionGroupOptions (Paginated)     , module Network.AWS.RDS.DescribeOptionGroupOptions @@ -454,6 +460,9 @@     -- ** DescribeEventCategories     , module Network.AWS.RDS.DescribeEventCategories +    -- ** StartDBInstance+    , module Network.AWS.RDS.StartDBInstance+     -- ** ModifyDBClusterParameterGroup     , module Network.AWS.RDS.ModifyDBClusterParameterGroup @@ -463,6 +472,9 @@     -- ** DescribeDBClusterSnapshotAttributes     , module Network.AWS.RDS.DescribeDBClusterSnapshotAttributes +    -- ** ModifyDBSnapshot+    , module Network.AWS.RDS.ModifyDBSnapshot+     -- ** DescribePendingMaintenanceActions     , module Network.AWS.RDS.DescribePendingMaintenanceActions @@ -599,10 +611,12 @@     , dcHostedZoneId     , dcDBClusterParameterGroup     , dcMasterUsername+    , dcIAMDatabaseAuthenticationEnabled     , dcDBClusterResourceId     , dcEarliestRestorableTime     , dcEngine     , dcDBClusterARN+    , dcCloneGroupId     , dcLatestRestorableTime     , dcPreferredMaintenanceWindow     , dcAvailabilityZones@@ -614,7 +628,9 @@     , dcBackupRetentionPeriod     , dcDBSubnetGroup     , dcDatabaseName+    , dcMultiAZ     , dcAllocatedStorage+    , dcClusterCreateTime     , dcEndpoint     , dcPercentProgress     , dcReaderEndpoint@@ -662,6 +678,7 @@     , dcsStorageEncrypted     , dcsDBClusterIdentifier     , dcsMasterUsername+    , dcsIAMDatabaseAuthenticationEnabled     , dcsDBClusterSnapshotARN     , dcsVPCId     , dcsDBClusterSnapshotIdentifier@@ -672,6 +689,7 @@     , dcsKMSKeyId     , dcsSnapshotCreateTime     , dcsAllocatedStorage+    , dcsSourceDBClusterSnapshotARN     , dcsClusterCreateTime     , dcsPercentProgress     , dcsPort@@ -713,6 +731,7 @@     , diDBInstanceARN     , diMasterUsername     , diReadReplicaDBInstanceIdentifiers+    , diIAMDatabaseAuthenticationEnabled     , diMonitoringRoleARN     , diIOPS     , diInstanceCreateTime@@ -732,11 +751,13 @@     , diAvailabilityZone     , diVPCSecurityGroups     , diBackupRetentionPeriod+    , diPerformanceInsightsKMSKeyId     , diDBSubnetGroup     , diMultiAZ     , diOptionGroupMemberships     , diEnhancedMonitoringResourceARN     , diSecondaryAvailabilityZone+    , diPerformanceInsightsEnabled     , diAllocatedStorage     , diDBiResourceId     , diDBParameterGroups@@ -747,6 +768,7 @@     , diDBInstanceStatus     , diDBInstancePort     , diPendingModifiedValues+    , diReadReplicaDBClusterIdentifiers     , diStorageType     , diStatusInfos     , diDomainMemberships@@ -804,6 +826,7 @@     , dsDBSnapshotARN     , dsMasterUsername     , dsSourceRegion+    , dsIAMDatabaseAuthenticationEnabled     , dsIOPS     , dsVPCId     , dsInstanceCreateTime@@ -862,6 +885,12 @@     , dmDomain     , dmIAMRoleName +    -- ** DoubleRange+    , DoubleRange+    , doubleRange+    , drTo+    , drFrom+     -- ** EC2SecurityGroup     , EC2SecurityGroup     , ec2SecurityGroup@@ -978,11 +1007,14 @@     , ogoEngineName     , ogoMajorEngineVersion     , ogoName+    , ogoSupportsOptionVersionDowngrade     , ogoDefaultPort     , ogoOptionGroupOptionSettings+    , ogoRequiresAutoMinorEngineVersionUpgrade     , ogoPortRequired     , ogoDescription     , ogoOptionsDependedOn+    , ogoVPCOnly      -- ** OptionGroupOptionSetting     , OptionGroupOptionSetting@@ -1017,16 +1049,24 @@     , OrderableDBInstanceOption     , orderableDBInstanceOption     , odioEngineVersion+    , odioMinIOPSPerGib+    , odioSupportsIAMDatabaseAuthentication+    , odioMinIOPSPerDBInstance     , odioMultiAZCapable+    , odioMaxStorageSize     , odioEngine+    , odioMinStorageSize     , odioSupportsIOPS+    , odioSupportsPerformanceInsights     , odioDBInstanceClass     , odioLicenseModel     , odioAvailabilityZones     , odioSupportsStorageEncryption     , odioReadReplicaCapable+    , odioMaxIOPSPerGib     , odioVPC     , odioSupportsEnhancedMonitoring+    , odioMaxIOPSPerDBInstance     , odioStorageType      -- ** Parameter@@ -1070,6 +1110,13 @@     , pmvPort     , pmvStorageType +    -- ** Range+    , Range+    , range+    , rTo+    , rFrom+    , rStep+     -- ** RecurringCharge     , RecurringCharge     , recurringCharge@@ -1154,96 +1201,113 @@     , vpcSecurityGroupMembership     , vsgmStatus     , vsgmVPCSecurityGroupId++    -- ** ValidDBInstanceModificationsMessage+    , ValidDBInstanceModificationsMessage+    , validDBInstanceModificationsMessage+    , vdimmStorage++    -- ** ValidStorageOptions+    , ValidStorageOptions+    , validStorageOptions+    , vsoStorageSize+    , vsoProvisionedIOPS+    , vsoIOPSToStorageRatio+    , vsoStorageType     ) where -import           Network.AWS.RDS.AddRoleToDBCluster-import           Network.AWS.RDS.AddSourceIdentifierToSubscription-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-import           Network.AWS.RDS.CopyOptionGroup-import           Network.AWS.RDS.CreateDBCluster-import           Network.AWS.RDS.CreateDBClusterParameterGroup-import           Network.AWS.RDS.CreateDBClusterSnapshot-import           Network.AWS.RDS.CreateDBInstance-import           Network.AWS.RDS.CreateDBInstanceReadReplica-import           Network.AWS.RDS.CreateDBParameterGroup-import           Network.AWS.RDS.CreateDBSecurityGroup-import           Network.AWS.RDS.CreateDBSnapshot-import           Network.AWS.RDS.CreateDBSubnetGroup-import           Network.AWS.RDS.CreateEventSubscription-import           Network.AWS.RDS.CreateOptionGroup-import           Network.AWS.RDS.DeleteDBCluster-import           Network.AWS.RDS.DeleteDBClusterParameterGroup-import           Network.AWS.RDS.DeleteDBClusterSnapshot-import           Network.AWS.RDS.DeleteDBInstance-import           Network.AWS.RDS.DeleteDBParameterGroup-import           Network.AWS.RDS.DeleteDBSecurityGroup-import           Network.AWS.RDS.DeleteDBSnapshot-import           Network.AWS.RDS.DeleteDBSubnetGroup-import           Network.AWS.RDS.DeleteEventSubscription-import           Network.AWS.RDS.DeleteOptionGroup-import           Network.AWS.RDS.DescribeAccountAttributes-import           Network.AWS.RDS.DescribeCertificates-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-import           Network.AWS.RDS.DescribeDBLogFiles-import           Network.AWS.RDS.DescribeDBParameterGroups-import           Network.AWS.RDS.DescribeDBParameters-import           Network.AWS.RDS.DescribeDBSecurityGroups-import           Network.AWS.RDS.DescribeDBSnapshotAttributes-import           Network.AWS.RDS.DescribeDBSnapshots-import           Network.AWS.RDS.DescribeDBSubnetGroups-import           Network.AWS.RDS.DescribeEngineDefaultClusterParameters-import           Network.AWS.RDS.DescribeEngineDefaultParameters-import           Network.AWS.RDS.DescribeEventCategories-import           Network.AWS.RDS.DescribeEvents-import           Network.AWS.RDS.DescribeEventSubscriptions-import           Network.AWS.RDS.DescribeOptionGroupOptions-import           Network.AWS.RDS.DescribeOptionGroups-import           Network.AWS.RDS.DescribeOrderableDBInstanceOptions-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-import           Network.AWS.RDS.ModifyDBSubnetGroup-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.RemoveRoleFromDBCluster-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-import           Network.AWS.RDS.RestoreDBInstanceToPointInTime-import           Network.AWS.RDS.RevokeDBSecurityGroupIngress-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Waiters+import Network.AWS.RDS.AddRoleToDBCluster+import Network.AWS.RDS.AddSourceIdentifierToSubscription+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+import Network.AWS.RDS.CopyOptionGroup+import Network.AWS.RDS.CreateDBCluster+import Network.AWS.RDS.CreateDBClusterParameterGroup+import Network.AWS.RDS.CreateDBClusterSnapshot+import Network.AWS.RDS.CreateDBInstance+import Network.AWS.RDS.CreateDBInstanceReadReplica+import Network.AWS.RDS.CreateDBParameterGroup+import Network.AWS.RDS.CreateDBSecurityGroup+import Network.AWS.RDS.CreateDBSnapshot+import Network.AWS.RDS.CreateDBSubnetGroup+import Network.AWS.RDS.CreateEventSubscription+import Network.AWS.RDS.CreateOptionGroup+import Network.AWS.RDS.DeleteDBCluster+import Network.AWS.RDS.DeleteDBClusterParameterGroup+import Network.AWS.RDS.DeleteDBClusterSnapshot+import Network.AWS.RDS.DeleteDBInstance+import Network.AWS.RDS.DeleteDBParameterGroup+import Network.AWS.RDS.DeleteDBSecurityGroup+import Network.AWS.RDS.DeleteDBSnapshot+import Network.AWS.RDS.DeleteDBSubnetGroup+import Network.AWS.RDS.DeleteEventSubscription+import Network.AWS.RDS.DeleteOptionGroup+import Network.AWS.RDS.DescribeAccountAttributes+import Network.AWS.RDS.DescribeCertificates+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+import Network.AWS.RDS.DescribeDBLogFiles+import Network.AWS.RDS.DescribeDBParameterGroups+import Network.AWS.RDS.DescribeDBParameters+import Network.AWS.RDS.DescribeDBSecurityGroups+import Network.AWS.RDS.DescribeDBSnapshotAttributes+import Network.AWS.RDS.DescribeDBSnapshots+import Network.AWS.RDS.DescribeDBSubnetGroups+import Network.AWS.RDS.DescribeEngineDefaultClusterParameters+import Network.AWS.RDS.DescribeEngineDefaultParameters+import Network.AWS.RDS.DescribeEventCategories+import Network.AWS.RDS.DescribeEvents+import Network.AWS.RDS.DescribeEventSubscriptions+import Network.AWS.RDS.DescribeOptionGroupOptions+import Network.AWS.RDS.DescribeOptionGroups+import Network.AWS.RDS.DescribeOrderableDBInstanceOptions+import Network.AWS.RDS.DescribePendingMaintenanceActions+import Network.AWS.RDS.DescribeReservedDBInstances+import Network.AWS.RDS.DescribeReservedDBInstancesOfferings+import Network.AWS.RDS.DescribeSourceRegions+import Network.AWS.RDS.DescribeValidDBInstanceModifications+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.ModifyDBSnapshot+import Network.AWS.RDS.ModifyDBSnapshotAttribute+import Network.AWS.RDS.ModifyDBSubnetGroup+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.RemoveRoleFromDBCluster+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+import Network.AWS.RDS.RestoreDBInstanceToPointInTime+import Network.AWS.RDS.RevokeDBSecurityGroupIngress+import Network.AWS.RDS.StartDBInstance+import Network.AWS.RDS.StopDBInstance+import Network.AWS.RDS.Types+import Network.AWS.RDS.Waiters  {- $errors Error matchers are designed for use with the functions provided by
gen/Network/AWS/RDS/AddRoleToDBCluster.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.AddRoleToDBCluster--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,19 +35,20 @@     , AddRoleToDBClusterResponse     ) 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+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:/ 'addRoleToDBCluster' smart constructor. data AddRoleToDBCluster = AddRoleToDBCluster'-    { _artdcDBClusterIdentifier :: !Text-    , _artdcRoleARN             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _artdcDBClusterIdentifier :: !Text+  , _artdcRoleARN             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddRoleToDBCluster' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -60,11 +61,10 @@     -> Text -- ^ 'artdcRoleARN'     -> AddRoleToDBCluster addRoleToDBCluster pDBClusterIdentifier_ pRoleARN_ =-    AddRoleToDBCluster'-    { _artdcDBClusterIdentifier = pDBClusterIdentifier_-    , _artdcRoleARN = pRoleARN_-    }+  AddRoleToDBCluster'+  {_artdcDBClusterIdentifier = pDBClusterIdentifier_, _artdcRoleARN = pRoleARN_} + -- | The name of the DB cluster to associate the IAM role with. artdcDBClusterIdentifier :: Lens' AddRoleToDBCluster Text artdcDBClusterIdentifier = lens _artdcDBClusterIdentifier (\ s a -> s{_artdcDBClusterIdentifier = a});@@ -79,9 +79,9 @@         request = postQuery rds         response = receiveNull AddRoleToDBClusterResponse' -instance Hashable AddRoleToDBCluster+instance Hashable AddRoleToDBCluster where -instance NFData AddRoleToDBCluster+instance NFData AddRoleToDBCluster where  instance ToHeaders AddRoleToDBCluster where         toHeaders = const mempty@@ -99,13 +99,15 @@  -- | /See:/ 'addRoleToDBClusterResponse' smart constructor. data AddRoleToDBClusterResponse =-    AddRoleToDBClusterResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  AddRoleToDBClusterResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddRoleToDBClusterResponse' with the minimum fields required to make a request. -- addRoleToDBClusterResponse     :: AddRoleToDBClusterResponse addRoleToDBClusterResponse = AddRoleToDBClusterResponse' -instance NFData AddRoleToDBClusterResponse++instance NFData AddRoleToDBClusterResponse where
gen/Network/AWS/RDS/AddSourceIdentifierToSubscription.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.AddSourceIdentifierToSubscription--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , asitsrsResponseStatus     ) 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+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  -- | --@@ -51,32 +51,34 @@ -- -- /See:/ 'addSourceIdentifierToSubscription' smart constructor. data AddSourceIdentifierToSubscription = AddSourceIdentifierToSubscription'-    { _asitsSubscriptionName :: !Text-    , _asitsSourceIdentifier :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _asitsSubscriptionName :: !Text+  , _asitsSourceIdentifier :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddSourceIdentifierToSubscription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'asitsSubscriptionName' - The name of the RDS event notification subscription you want to add a source identifier to. ----- * 'asitsSourceIdentifier' - The identifier of the event source to be added. An identifier must begin with a letter and must contain only ASCII letters, digits, and hyphens; it cannot end with a hyphen or contain two consecutive hyphens. 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' - The identifier of the event source to be added. 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. addSourceIdentifierToSubscription     :: Text -- ^ 'asitsSubscriptionName'     -> Text -- ^ 'asitsSourceIdentifier'     -> AddSourceIdentifierToSubscription addSourceIdentifierToSubscription pSubscriptionName_ pSourceIdentifier_ =-    AddSourceIdentifierToSubscription'-    { _asitsSubscriptionName = pSubscriptionName_-    , _asitsSourceIdentifier = pSourceIdentifier_-    }+  AddSourceIdentifierToSubscription'+  { _asitsSubscriptionName = pSubscriptionName_+  , _asitsSourceIdentifier = pSourceIdentifier_+  } + -- | The name of the RDS event notification subscription you want to add a source identifier to. asitsSubscriptionName :: Lens' AddSourceIdentifierToSubscription Text asitsSubscriptionName = lens _asitsSubscriptionName (\ s a -> s{_asitsSubscriptionName = a}); --- | The identifier of the event source to be added. An identifier must begin with a letter and must contain only ASCII letters, digits, and hyphens; it cannot end with a hyphen or contain two consecutive hyphens. 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.+-- | The identifier of the event source to be added. 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}); @@ -93,8 +95,10 @@                    (x .@? "EventSubscription") <*> (pure (fromEnum s)))  instance Hashable AddSourceIdentifierToSubscription+         where  instance NFData AddSourceIdentifierToSubscription+         where  instance ToHeaders AddSourceIdentifierToSubscription          where@@ -116,10 +120,11 @@  -- | /See:/ 'addSourceIdentifierToSubscriptionResponse' smart constructor. data AddSourceIdentifierToSubscriptionResponse = AddSourceIdentifierToSubscriptionResponse'-    { _asitsrsEventSubscription :: !(Maybe EventSubscription)-    , _asitsrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _asitsrsEventSubscription :: !(Maybe EventSubscription)+  , _asitsrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddSourceIdentifierToSubscriptionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -131,11 +136,12 @@     :: Int -- ^ 'asitsrsResponseStatus'     -> AddSourceIdentifierToSubscriptionResponse addSourceIdentifierToSubscriptionResponse pResponseStatus_ =-    AddSourceIdentifierToSubscriptionResponse'-    { _asitsrsEventSubscription = Nothing-    , _asitsrsResponseStatus = pResponseStatus_-    }+  AddSourceIdentifierToSubscriptionResponse'+  { _asitsrsEventSubscription = Nothing+  , _asitsrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. asitsrsEventSubscription :: Lens' AddSourceIdentifierToSubscriptionResponse (Maybe EventSubscription) asitsrsEventSubscription = lens _asitsrsEventSubscription (\ s a -> s{_asitsrsEventSubscription = a});@@ -145,4 +151,5 @@ asitsrsResponseStatus = lens _asitsrsResponseStatus (\ s a -> s{_asitsrsResponseStatus = a});  instance NFData-         AddSourceIdentifierToSubscriptionResponse+           AddSourceIdentifierToSubscriptionResponse+         where
gen/Network/AWS/RDS/AddTagsToResource.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.AddTagsToResource--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , AddTagsToResourceResponse     ) 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+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  -- | --@@ -50,27 +50,26 @@ -- -- /See:/ 'addTagsToResource' smart constructor. data AddTagsToResource = AddTagsToResource'-    { _attrResourceName :: !Text-    , _attrTags         :: ![Tag]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _attrResourceName :: !Text+  , _attrTags         :: ![Tag]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddTagsToResource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'attrResourceName' - 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' - The Amazon RDS resource that the tags are 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)> . -- -- * 'attrTags' - The tags to be assigned to the Amazon RDS resource. addTagsToResource     :: Text -- ^ 'attrResourceName'     -> AddTagsToResource addTagsToResource pResourceName_ =-    AddTagsToResource'-    { _attrResourceName = pResourceName_-    , _attrTags = mempty-    }+  AddTagsToResource' {_attrResourceName = pResourceName_, _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.ARN.html#USER_Tagging.ARN.Constructing Constructing an RDS Amazon Resource Name (ARN)> .++-- | The Amazon RDS resource that the tags are 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}); @@ -83,9 +82,9 @@         request = postQuery rds         response = receiveNull AddTagsToResourceResponse' -instance Hashable AddTagsToResource+instance Hashable AddTagsToResource where -instance NFData AddTagsToResource+instance NFData AddTagsToResource where  instance ToHeaders AddTagsToResource where         toHeaders = const mempty@@ -103,13 +102,15 @@  -- | /See:/ 'addTagsToResourceResponse' smart constructor. data AddTagsToResourceResponse =-    AddTagsToResourceResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  AddTagsToResourceResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddTagsToResourceResponse' with the minimum fields required to make a request. -- addTagsToResourceResponse     :: AddTagsToResourceResponse addTagsToResourceResponse = AddTagsToResourceResponse' -instance NFData AddTagsToResourceResponse++instance NFData AddTagsToResourceResponse where
gen/Network/AWS/RDS/ApplyPendingMaintenanceAction.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.ApplyPendingMaintenanceAction--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , apmarsResponseStatus     ) 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+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  -- | --@@ -52,11 +52,12 @@ -- -- /See:/ 'applyPendingMaintenanceAction' smart constructor. data ApplyPendingMaintenanceAction = ApplyPendingMaintenanceAction'-    { _apmaResourceIdentifier :: !Text-    , _apmaApplyAction        :: !Text-    , _apmaOptInType          :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _apmaResourceIdentifier :: !Text+  , _apmaApplyAction        :: !Text+  , _apmaOptInType          :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ApplyPendingMaintenanceAction' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,12 +73,13 @@     -> Text -- ^ 'apmaOptInType'     -> ApplyPendingMaintenanceAction applyPendingMaintenanceAction pResourceIdentifier_ pApplyAction_ pOptInType_ =-    ApplyPendingMaintenanceAction'-    { _apmaResourceIdentifier = pResourceIdentifier_-    , _apmaApplyAction = pApplyAction_-    , _apmaOptInType = pOptInType_-    }+  ApplyPendingMaintenanceAction'+  { _apmaResourceIdentifier = pResourceIdentifier_+  , _apmaApplyAction = pApplyAction_+  , _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.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});@@ -103,9 +105,9 @@                    (x .@? "ResourcePendingMaintenanceActions") <*>                      (pure (fromEnum s))) -instance Hashable ApplyPendingMaintenanceAction+instance Hashable ApplyPendingMaintenanceAction where -instance NFData ApplyPendingMaintenanceAction+instance NFData ApplyPendingMaintenanceAction where  instance ToHeaders ApplyPendingMaintenanceAction          where@@ -126,10 +128,11 @@  -- | /See:/ 'applyPendingMaintenanceActionResponse' smart constructor. data ApplyPendingMaintenanceActionResponse = ApplyPendingMaintenanceActionResponse'-    { _apmarsResourcePendingMaintenanceActions :: !(Maybe ResourcePendingMaintenanceActions)-    , _apmarsResponseStatus                    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _apmarsResourcePendingMaintenanceActions :: !(Maybe ResourcePendingMaintenanceActions)+  , _apmarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ApplyPendingMaintenanceActionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -141,11 +144,12 @@     :: Int -- ^ 'apmarsResponseStatus'     -> ApplyPendingMaintenanceActionResponse applyPendingMaintenanceActionResponse pResponseStatus_ =-    ApplyPendingMaintenanceActionResponse'-    { _apmarsResourcePendingMaintenanceActions = Nothing-    , _apmarsResponseStatus = pResponseStatus_-    }+  ApplyPendingMaintenanceActionResponse'+  { _apmarsResourcePendingMaintenanceActions = Nothing+  , _apmarsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. apmarsResourcePendingMaintenanceActions :: Lens' ApplyPendingMaintenanceActionResponse (Maybe ResourcePendingMaintenanceActions) apmarsResourcePendingMaintenanceActions = lens _apmarsResourcePendingMaintenanceActions (\ s a -> s{_apmarsResourcePendingMaintenanceActions = a});@@ -155,3 +159,4 @@ apmarsResponseStatus = lens _apmarsResponseStatus (\ s a -> s{_apmarsResponseStatus = a});  instance NFData ApplyPendingMaintenanceActionResponse+         where
gen/Network/AWS/RDS/AuthorizeDBSecurityGroupIngress.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.AuthorizeDBSecurityGroupIngress--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -43,12 +43,12 @@     , adsgirsResponseStatus     ) 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+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  -- | --@@ -56,13 +56,14 @@ -- -- /See:/ 'authorizeDBSecurityGroupIngress' smart constructor. data AuthorizeDBSecurityGroupIngress = AuthorizeDBSecurityGroupIngress'-    { _adsgiEC2SecurityGroupOwnerId :: !(Maybe Text)-    , _adsgiEC2SecurityGroupName    :: !(Maybe Text)-    , _adsgiCIdRIP                  :: !(Maybe Text)-    , _adsgiEC2SecurityGroupId      :: !(Maybe Text)-    , _adsgiDBSecurityGroupName     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _adsgiEC2SecurityGroupOwnerId :: !(Maybe Text)+  , _adsgiEC2SecurityGroupName    :: !(Maybe Text)+  , _adsgiCIdRIP                  :: !(Maybe Text)+  , _adsgiEC2SecurityGroupId      :: !(Maybe Text)+  , _adsgiDBSecurityGroupName     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AuthorizeDBSecurityGroupIngress' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -80,14 +81,15 @@     :: Text -- ^ 'adsgiDBSecurityGroupName'     -> AuthorizeDBSecurityGroupIngress authorizeDBSecurityGroupIngress pDBSecurityGroupName_ =-    AuthorizeDBSecurityGroupIngress'-    { _adsgiEC2SecurityGroupOwnerId = Nothing-    , _adsgiEC2SecurityGroupName = Nothing-    , _adsgiCIdRIP = Nothing-    , _adsgiEC2SecurityGroupId = Nothing-    , _adsgiDBSecurityGroupName = pDBSecurityGroupName_-    }+  AuthorizeDBSecurityGroupIngress'+  { _adsgiEC2SecurityGroupOwnerId = Nothing+  , _adsgiEC2SecurityGroupName = Nothing+  , _adsgiCIdRIP = Nothing+  , _adsgiEC2SecurityGroupId = Nothing+  , _adsgiDBSecurityGroupName = pDBSecurityGroupName_+  } + -- | AWS account number of the owner of the EC2 security group specified in the @EC2SecurityGroupName@ parameter. The AWS Access Key ID is not an acceptable value. For VPC DB security groups, @EC2SecurityGroupId@ must be provided. Otherwise, @EC2SecurityGroupOwnerId@ and either @EC2SecurityGroupName@ or @EC2SecurityGroupId@ must be provided. adsgiEC2SecurityGroupOwnerId :: Lens' AuthorizeDBSecurityGroupIngress (Maybe Text) adsgiEC2SecurityGroupOwnerId = lens _adsgiEC2SecurityGroupOwnerId (\ s a -> s{_adsgiEC2SecurityGroupOwnerId = a});@@ -121,8 +123,9 @@                    (x .@? "DBSecurityGroup") <*> (pure (fromEnum s)))  instance Hashable AuthorizeDBSecurityGroupIngress+         where -instance NFData AuthorizeDBSecurityGroupIngress+instance NFData AuthorizeDBSecurityGroupIngress where  instance ToHeaders AuthorizeDBSecurityGroupIngress          where@@ -147,10 +150,11 @@  -- | /See:/ 'authorizeDBSecurityGroupIngressResponse' smart constructor. data AuthorizeDBSecurityGroupIngressResponse = AuthorizeDBSecurityGroupIngressResponse'-    { _adsgirsDBSecurityGroup :: !(Maybe DBSecurityGroup)-    , _adsgirsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _adsgirsDBSecurityGroup :: !(Maybe DBSecurityGroup)+  , _adsgirsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AuthorizeDBSecurityGroupIngressResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -162,11 +166,10 @@     :: Int -- ^ 'adsgirsResponseStatus'     -> AuthorizeDBSecurityGroupIngressResponse authorizeDBSecurityGroupIngressResponse pResponseStatus_ =-    AuthorizeDBSecurityGroupIngressResponse'-    { _adsgirsDBSecurityGroup = Nothing-    , _adsgirsResponseStatus = pResponseStatus_-    }+  AuthorizeDBSecurityGroupIngressResponse'+  {_adsgirsDBSecurityGroup = Nothing, _adsgirsResponseStatus = pResponseStatus_} + -- | Undocumented member. adsgirsDBSecurityGroup :: Lens' AuthorizeDBSecurityGroupIngressResponse (Maybe DBSecurityGroup) adsgirsDBSecurityGroup = lens _adsgirsDBSecurityGroup (\ s a -> s{_adsgirsDBSecurityGroup = a});@@ -176,4 +179,5 @@ adsgirsResponseStatus = lens _adsgirsResponseStatus (\ s a -> s{_adsgirsResponseStatus = a});  instance NFData-         AuthorizeDBSecurityGroupIngressResponse+           AuthorizeDBSecurityGroupIngressResponse+         where
gen/Network/AWS/RDS/CopyDBClusterParameterGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.CopyDBClusterParameterGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,30 +40,31 @@     , 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+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)+  { _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' - Undocumented member. ----- * 'cdbcpgSourceDBClusterParameterGroupIdentifier' - 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' - 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 AWS 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 AWS 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@ . ----- * 'cdbcpgTargetDBClusterParameterGroupIdentifier' - 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' - The identifier for the copied DB cluster parameter group. Constraints:     * Cannot be null, empty, or blank     * Must contain from 1 to 255 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-cluster-param-group1@ -- -- * 'cdbcpgTargetDBClusterParameterGroupDescription' - A description for the copied DB cluster parameter group. copyDBClusterParameterGroup@@ -72,22 +73,26 @@     -> Text -- ^ 'cdbcpgTargetDBClusterParameterGroupDescription'     -> CopyDBClusterParameterGroup copyDBClusterParameterGroup pSourceDBClusterParameterGroupIdentifier_ pTargetDBClusterParameterGroupIdentifier_ pTargetDBClusterParameterGroupDescription_ =-    CopyDBClusterParameterGroup'-    { _cdbcpgTags = Nothing-    , _cdbcpgSourceDBClusterParameterGroupIdentifier = pSourceDBClusterParameterGroupIdentifier_-    , _cdbcpgTargetDBClusterParameterGroupIdentifier = pTargetDBClusterParameterGroupIdentifier_-    , _cdbcpgTargetDBClusterParameterGroupDescription = 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@ .+-- | 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 AWS 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 AWS 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@+-- | The identifier for the copied DB cluster parameter group. Constraints:     * Cannot be null, empty, or blank     * Must contain from 1 to 255 letters, numbers, 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}); @@ -107,9 +112,9 @@                    (x .@? "DBClusterParameterGroup") <*>                      (pure (fromEnum s))) -instance Hashable CopyDBClusterParameterGroup+instance Hashable CopyDBClusterParameterGroup where -instance NFData CopyDBClusterParameterGroup+instance NFData CopyDBClusterParameterGroup where  instance ToHeaders CopyDBClusterParameterGroup where         toHeaders = const mempty@@ -134,10 +139,11 @@  -- | /See:/ 'copyDBClusterParameterGroupResponse' smart constructor. data CopyDBClusterParameterGroupResponse = CopyDBClusterParameterGroupResponse'-    { _cdcpgrsDBClusterParameterGroup :: !(Maybe DBClusterParameterGroup)-    , _cdcpgrsResponseStatus          :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -149,11 +155,12 @@     :: Int -- ^ 'cdcpgrsResponseStatus'     -> CopyDBClusterParameterGroupResponse copyDBClusterParameterGroupResponse pResponseStatus_ =-    CopyDBClusterParameterGroupResponse'-    { _cdcpgrsDBClusterParameterGroup = Nothing-    , _cdcpgrsResponseStatus = pResponseStatus_-    }+  CopyDBClusterParameterGroupResponse'+  { _cdcpgrsDBClusterParameterGroup = Nothing+  , _cdcpgrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. cdcpgrsDBClusterParameterGroup :: Lens' CopyDBClusterParameterGroupResponse (Maybe DBClusterParameterGroup) cdcpgrsDBClusterParameterGroup = lens _cdcpgrsDBClusterParameterGroup (\ s a -> s{_cdcpgrsDBClusterParameterGroup = a});@@ -163,3 +170,4 @@ cdcpgrsResponseStatus = lens _cdcpgrsResponseStatus (\ s a -> s{_cdcpgrsResponseStatus = a});  instance NFData CopyDBClusterParameterGroupResponse+         where
gen/Network/AWS/RDS/CopyDBClusterSnapshot.hs view
@@ -12,21 +12,56 @@  -- | -- Module      : Network.AWS.RDS.CopyDBClusterSnapshot--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a snapshot of a 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./+-- Copies a snapshot of a DB cluster. -- --+-- To copy a DB cluster snapshot from a shared manual DB cluster snapshot, @SourceDBClusterSnapshotIdentifier@ must be the Amazon Resource Name (ARN) of the shared DB cluster snapshot.+--+-- You can copy an encrypted DB cluster snapshot from another AWS Region. In that case, the AWS Region where you call the @CopyDBClusterSnapshot@ action is the destination AWS Region for the encrypted DB cluster snapshot to be copied to. To copy an encrypted DB cluster snapshot from another AWS Region, you must provide the following values:+--+--     * @KmsKeyId@ - The AWS Key Management System (KMS) key identifier for the key to use to encrypt the copy of the DB cluster snapshot in the destination AWS Region.+--+--     * @PreSignedUrl@ - A URL that contains a Signature Version 4 signed request for the @CopyDBClusterSnapshot@ action to be called in the source AWS Region where the DB cluster snapshot is copied from. The pre-signed URL must be a valid request for the @CopyDBClusterSnapshot@ API action that can be executed in the source AWS Region that contains the encrypted DB cluster snapshot to be copied.+--+-- The pre-signed URL request must contain the following parameter values:+--+--     * @KmsKeyId@ - The KMS key identifier for the key to use to encrypt the copy of the DB cluster snapshot in the destination AWS Region. This is the same identifier for both the @CopyDBClusterSnapshot@ action that is called in the destination AWS Region, and the action contained in the pre-signed URL.+--+--     * @DestinationRegion@ - The name of the AWS Region that the DB cluster snapshot will be created in.+--+--     * @SourceDBClusterSnapshotIdentifier@ - The DB cluster snapshot identifier for the encrypted DB cluster snapshot to be copied. This identifier must be in the Amazon Resource Name (ARN) format for the source AWS Region. For example, if you are copying an encrypted DB cluster snapshot from the us-west-2 region, then your @SourceDBClusterSnapshotIdentifier@ looks like the following example: @arn:aws:rds:us-west-2:123456789012:cluster-snapshot:aurora-cluster1-snapshot-20161115@ .+--+--+--+-- To learn how to generate a Signature Version 4 signed request, see <http://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html Authenticating Requests: Using Query Parameters (AWS Signature Version 4)> and <http://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 Signing Process> .+--+--     * @TargetDBClusterSnapshotIdentifier@ - The identifier for the new copy of the DB cluster snapshot in the destination AWS Region.+--+--     * @SourceDBClusterSnapshotIdentifier@ - The DB cluster snapshot identifier for the encrypted DB cluster snapshot to be copied. This identifier must be in the ARN format for the source AWS Region and is the same value as the @SourceDBClusterSnapshotIdentifier@ in the pre-signed URL.+--+--+--+-- To cancel the copy operation once it is in progress, delete the target DB cluster snapshot identified by @TargetDBClusterSnapshotIdentifier@ while that DB cluster snapshot is in "copying" status.+--+-- For more information on copying encrypted DB cluster snapshots from one AWS Region to another, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_CopySnapshot.html#USER_CopyDBClusterSnapshot.CrossRegion Copying a DB Cluster Snapshot in the Same Account, Either in the Same Region or Across Regions> in the Amazon RDS User Guide.+--+-- 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.CopyDBClusterSnapshot     (     -- * Creating a Request       copyDBClusterSnapshot     , CopyDBClusterSnapshot     -- * Request Lenses+    , cdbcsPreSignedURL+    , cdbcsCopyTags+    , cdbcsKMSKeyId     , cdbcsTags     , cdbcsSourceDBClusterSnapshotIdentifier     , cdbcsTargetDBClusterSnapshotIdentifier@@ -39,12 +74,12 @@     , cdcsrsResponseStatus     ) 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+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  -- | --@@ -52,40 +87,68 @@ -- -- /See:/ 'copyDBClusterSnapshot' smart constructor. data CopyDBClusterSnapshot = CopyDBClusterSnapshot'-    { _cdbcsTags                              :: !(Maybe [Tag])-    , _cdbcsSourceDBClusterSnapshotIdentifier :: !Text-    , _cdbcsTargetDBClusterSnapshotIdentifier :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdbcsPreSignedURL                      :: !(Maybe Text)+  , _cdbcsCopyTags                          :: !(Maybe Bool)+  , _cdbcsKMSKeyId                          :: !(Maybe Text)+  , _cdbcsTags                              :: !(Maybe [Tag])+  , _cdbcsSourceDBClusterSnapshotIdentifier :: !Text+  , _cdbcsTargetDBClusterSnapshotIdentifier :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CopyDBClusterSnapshot' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'cdbcsPreSignedURL' - The URL that contains a Signature Version 4 signed request for the @CopyDBClusterSnapshot@ API action in the AWS Region that contains the source DB cluster snapshot to copy. The @PreSignedUrl@ parameter must be used when copying an encrypted DB cluster snapshot from another AWS Region. The pre-signed URL must be a valid request for the @CopyDBSClusterSnapshot@ API action that can be executed in the source AWS Region that contains the encrypted DB cluster snapshot to be copied. The pre-signed URL request must contain the following parameter values:     * @KmsKeyId@ - The KMS key identifier for the key to use to encrypt the copy of the DB cluster snapshot in the destination AWS Region. This is the same identifier for both the @CopyDBClusterSnapshot@ action that is called in the destination AWS Region, and the action contained in the pre-signed URL.     * @DestinationRegion@ - The name of the AWS Region that the DB cluster snapshot will be created in.     * @SourceDBClusterSnapshotIdentifier@ - The DB cluster snapshot identifier for the encrypted DB cluster snapshot to be copied. This identifier must be in the Amazon Resource Name (ARN) format for the source AWS Region. For example, if you are copying an encrypted DB cluster snapshot from the us-west-2 region, then your @SourceDBClusterSnapshotIdentifier@ looks like the following example: @arn:aws:rds:us-west-2:123456789012:cluster-snapshot:aurora-cluster1-snapshot-20161115@ . To learn how to generate a Signature Version 4 signed request, see <http://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html Authenticating Requests: Using Query Parameters (AWS Signature Version 4)> and <http://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 Signing Process> .+--+-- * 'cdbcsCopyTags' - True to copy all tags from the source DB cluster snapshot to the target DB cluster snapshot; otherwise false. The default is false.+--+-- * 'cdbcsKMSKeyId' - The AWS KMS key ID for an encrypted DB cluster snapshot. The KMS key ID is the Amazon Resource Name (ARN), KMS key identifier, or the KMS key alias for the KMS encryption key.  If you copy an unencrypted DB cluster snapshot and specify a value for the @KmsKeyId@ parameter, Amazon RDS encrypts the target DB cluster snapshot using the specified KMS encryption key.  If you copy an encrypted DB cluster snapshot from your AWS account, you can specify a value for @KmsKeyId@ to encrypt the copy with a new KMS encryption key. If you don't specify a value for @KmsKeyId@ , then the copy of the DB cluster snapshot is encrypted with the same KMS key as the source DB cluster snapshot.  If you copy an encrypted DB cluster snapshot that is shared from another AWS account, then you must specify a value for @KmsKeyId@ .  To copy an encrypted DB cluster snapshot to another AWS Region, you must set @KmsKeyId@ to the KMS key ID you want to use to encrypt the copy of the DB cluster snapshot in the destination AWS Region. KMS encryption keys are specific to the AWS Region that they are created in, and you cannot use encryption keys from one AWS Region in another AWS Region.+-- -- * 'cdbcsTags' - Undocumented member. ----- * 'cdbcsSourceDBClusterSnapshotIdentifier' - The identifier of the DB cluster snapshot to copy. 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-snapshot1@+-- * 'cdbcsSourceDBClusterSnapshotIdentifier' - The identifier of the DB cluster snapshot to copy. This parameter is not case-sensitive. You cannot copy an encrypted, shared DB cluster snapshot from one AWS Region to another. Constraints:     * Must specify a valid system snapshot in the "available" state.     * If the source snapshot is in the same AWS Region as the copy, specify a valid DB snapshot identifier.     * If the source snapshot is in a different AWS Region than the copy, specify a valid DB cluster snapshot ARN. For more information, go to <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_CopySnapshot.html Copying a DB Snapshot or DB Cluster Snapshot> . Example: @my-cluster-snapshot1@ ----- * 'cdbcsTargetDBClusterSnapshotIdentifier' - The identifier of the new DB cluster snapshot to create from the source DB cluster snapshot. 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-snapshot2@+-- * 'cdbcsTargetDBClusterSnapshotIdentifier' - The identifier of the new DB cluster snapshot to create from the source DB cluster snapshot. This parameter is not case-sensitive. Constraints:     * Must contain from 1 to 63 letters, numbers, or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @my-cluster-snapshot2@ copyDBClusterSnapshot     :: Text -- ^ 'cdbcsSourceDBClusterSnapshotIdentifier'     -> Text -- ^ 'cdbcsTargetDBClusterSnapshotIdentifier'     -> CopyDBClusterSnapshot copyDBClusterSnapshot pSourceDBClusterSnapshotIdentifier_ pTargetDBClusterSnapshotIdentifier_ =-    CopyDBClusterSnapshot'-    { _cdbcsTags = Nothing-    , _cdbcsSourceDBClusterSnapshotIdentifier = pSourceDBClusterSnapshotIdentifier_-    , _cdbcsTargetDBClusterSnapshotIdentifier = pTargetDBClusterSnapshotIdentifier_-    }+  CopyDBClusterSnapshot'+  { _cdbcsPreSignedURL = Nothing+  , _cdbcsCopyTags = Nothing+  , _cdbcsKMSKeyId = Nothing+  , _cdbcsTags = Nothing+  , _cdbcsSourceDBClusterSnapshotIdentifier =+      pSourceDBClusterSnapshotIdentifier_+  , _cdbcsTargetDBClusterSnapshotIdentifier =+      pTargetDBClusterSnapshotIdentifier_+  } ++-- | The URL that contains a Signature Version 4 signed request for the @CopyDBClusterSnapshot@ API action in the AWS Region that contains the source DB cluster snapshot to copy. The @PreSignedUrl@ parameter must be used when copying an encrypted DB cluster snapshot from another AWS Region. The pre-signed URL must be a valid request for the @CopyDBSClusterSnapshot@ API action that can be executed in the source AWS Region that contains the encrypted DB cluster snapshot to be copied. The pre-signed URL request must contain the following parameter values:     * @KmsKeyId@ - The KMS key identifier for the key to use to encrypt the copy of the DB cluster snapshot in the destination AWS Region. This is the same identifier for both the @CopyDBClusterSnapshot@ action that is called in the destination AWS Region, and the action contained in the pre-signed URL.     * @DestinationRegion@ - The name of the AWS Region that the DB cluster snapshot will be created in.     * @SourceDBClusterSnapshotIdentifier@ - The DB cluster snapshot identifier for the encrypted DB cluster snapshot to be copied. This identifier must be in the Amazon Resource Name (ARN) format for the source AWS Region. For example, if you are copying an encrypted DB cluster snapshot from the us-west-2 region, then your @SourceDBClusterSnapshotIdentifier@ looks like the following example: @arn:aws:rds:us-west-2:123456789012:cluster-snapshot:aurora-cluster1-snapshot-20161115@ . To learn how to generate a Signature Version 4 signed request, see <http://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html Authenticating Requests: Using Query Parameters (AWS Signature Version 4)> and <http://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 Signing Process> .+cdbcsPreSignedURL :: Lens' CopyDBClusterSnapshot (Maybe Text)+cdbcsPreSignedURL = lens _cdbcsPreSignedURL (\ s a -> s{_cdbcsPreSignedURL = a});++-- | True to copy all tags from the source DB cluster snapshot to the target DB cluster snapshot; otherwise false. The default is false.+cdbcsCopyTags :: Lens' CopyDBClusterSnapshot (Maybe Bool)+cdbcsCopyTags = lens _cdbcsCopyTags (\ s a -> s{_cdbcsCopyTags = a});++-- | The AWS KMS key ID for an encrypted DB cluster snapshot. The KMS key ID is the Amazon Resource Name (ARN), KMS key identifier, or the KMS key alias for the KMS encryption key.  If you copy an unencrypted DB cluster snapshot and specify a value for the @KmsKeyId@ parameter, Amazon RDS encrypts the target DB cluster snapshot using the specified KMS encryption key.  If you copy an encrypted DB cluster snapshot from your AWS account, you can specify a value for @KmsKeyId@ to encrypt the copy with a new KMS encryption key. If you don't specify a value for @KmsKeyId@ , then the copy of the DB cluster snapshot is encrypted with the same KMS key as the source DB cluster snapshot.  If you copy an encrypted DB cluster snapshot that is shared from another AWS account, then you must specify a value for @KmsKeyId@ .  To copy an encrypted DB cluster snapshot to another AWS Region, you must set @KmsKeyId@ to the KMS key ID you want to use to encrypt the copy of the DB cluster snapshot in the destination AWS Region. KMS encryption keys are specific to the AWS Region that they are created in, and you cannot use encryption keys from one AWS Region in another AWS Region.+cdbcsKMSKeyId :: Lens' CopyDBClusterSnapshot (Maybe Text)+cdbcsKMSKeyId = lens _cdbcsKMSKeyId (\ s a -> s{_cdbcsKMSKeyId = a});+ -- | Undocumented member. cdbcsTags :: Lens' CopyDBClusterSnapshot [Tag] cdbcsTags = lens _cdbcsTags (\ s a -> s{_cdbcsTags = a}) . _Default . _Coerce; --- | The identifier of the DB cluster snapshot to copy. 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-snapshot1@+-- | The identifier of the DB cluster snapshot to copy. This parameter is not case-sensitive. You cannot copy an encrypted, shared DB cluster snapshot from one AWS Region to another. Constraints:     * Must specify a valid system snapshot in the "available" state.     * If the source snapshot is in the same AWS Region as the copy, specify a valid DB snapshot identifier.     * If the source snapshot is in a different AWS Region than the copy, specify a valid DB cluster snapshot ARN. For more information, go to <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_CopySnapshot.html Copying a DB Snapshot or DB Cluster Snapshot> . Example: @my-cluster-snapshot1@ cdbcsSourceDBClusterSnapshotIdentifier :: Lens' CopyDBClusterSnapshot Text cdbcsSourceDBClusterSnapshotIdentifier = lens _cdbcsSourceDBClusterSnapshotIdentifier (\ s a -> s{_cdbcsSourceDBClusterSnapshotIdentifier = a}); --- | The identifier of the new DB cluster snapshot to create from the source DB cluster snapshot. 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-snapshot2@+-- | The identifier of the new DB cluster snapshot to create from the source DB cluster snapshot. This parameter is not case-sensitive. Constraints:     * Must contain from 1 to 63 letters, numbers, or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @my-cluster-snapshot2@ cdbcsTargetDBClusterSnapshotIdentifier :: Lens' CopyDBClusterSnapshot Text cdbcsTargetDBClusterSnapshotIdentifier = lens _cdbcsTargetDBClusterSnapshotIdentifier (\ s a -> s{_cdbcsTargetDBClusterSnapshotIdentifier = a}); @@ -99,9 +162,9 @@                  CopyDBClusterSnapshotResponse' <$>                    (x .@? "DBClusterSnapshot") <*> (pure (fromEnum s))) -instance Hashable CopyDBClusterSnapshot+instance Hashable CopyDBClusterSnapshot where -instance NFData CopyDBClusterSnapshot+instance NFData CopyDBClusterSnapshot where  instance ToHeaders CopyDBClusterSnapshot where         toHeaders = const mempty@@ -114,6 +177,9 @@           = mconcat               ["Action" =: ("CopyDBClusterSnapshot" :: ByteString),                "Version" =: ("2014-10-31" :: ByteString),+               "PreSignedUrl" =: _cdbcsPreSignedURL,+               "CopyTags" =: _cdbcsCopyTags,+               "KmsKeyId" =: _cdbcsKMSKeyId,                "Tags" =: toQuery (toQueryList "Tag" <$> _cdbcsTags),                "SourceDBClusterSnapshotIdentifier" =:                  _cdbcsSourceDBClusterSnapshotIdentifier,@@ -122,10 +188,11 @@  -- | /See:/ 'copyDBClusterSnapshotResponse' smart constructor. data CopyDBClusterSnapshotResponse = CopyDBClusterSnapshotResponse'-    { _cdcsrsDBClusterSnapshot :: !(Maybe DBClusterSnapshot)-    , _cdcsrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdcsrsDBClusterSnapshot :: !(Maybe DBClusterSnapshot)+  , _cdcsrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CopyDBClusterSnapshotResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -137,11 +204,10 @@     :: Int -- ^ 'cdcsrsResponseStatus'     -> CopyDBClusterSnapshotResponse copyDBClusterSnapshotResponse pResponseStatus_ =-    CopyDBClusterSnapshotResponse'-    { _cdcsrsDBClusterSnapshot = Nothing-    , _cdcsrsResponseStatus = pResponseStatus_-    }+  CopyDBClusterSnapshotResponse'+  {_cdcsrsDBClusterSnapshot = Nothing, _cdcsrsResponseStatus = pResponseStatus_} + -- | Undocumented member. cdcsrsDBClusterSnapshot :: Lens' CopyDBClusterSnapshotResponse (Maybe DBClusterSnapshot) cdcsrsDBClusterSnapshot = lens _cdcsrsDBClusterSnapshot (\ s a -> s{_cdcsrsDBClusterSnapshot = a});@@ -150,4 +216,4 @@ cdcsrsResponseStatus :: Lens' CopyDBClusterSnapshotResponse Int cdcsrsResponseStatus = lens _cdcsrsResponseStatus (\ s a -> s{_cdcsrsResponseStatus = a}); -instance NFData CopyDBClusterSnapshotResponse+instance NFData CopyDBClusterSnapshotResponse where
gen/Network/AWS/RDS/CopyDBParameterGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.CopyDBParameterGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@     , cdbpgrsResponseStatus     ) 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+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  -- | --@@ -53,12 +53,13 @@ -- -- /See:/ 'copyDBParameterGroup' smart constructor. data CopyDBParameterGroup = CopyDBParameterGroup'-    { _cdpgTags                              :: !(Maybe [Tag])-    , _cdpgSourceDBParameterGroupIdentifier  :: !Text-    , _cdpgTargetDBParameterGroupIdentifier  :: !Text-    , _cdpgTargetDBParameterGroupDescription :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdpgTags                              :: !(Maybe [Tag])+  , _cdpgSourceDBParameterGroupIdentifier  :: !Text+  , _cdpgTargetDBParameterGroupIdentifier  :: !Text+  , _cdpgTargetDBParameterGroupDescription :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CopyDBParameterGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,7 +68,7 @@ -- -- * 'cdpgSourceDBParameterGroupIdentifier' - 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.     * Must specify a valid DB parameter group identifier, for example @my-db-param-group@ , or a valid ARN. ----- * 'cdpgTargetDBParameterGroupIdentifier' - The identifier for the copied DB 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-db-parameter-group@+-- * 'cdpgTargetDBParameterGroupIdentifier' - The identifier for the copied DB parameter group. Constraints:     * Cannot be null, empty, or blank     * Must contain from 1 to 255 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-db-parameter-group@ -- -- * 'cdpgTargetDBParameterGroupDescription' - A description for the copied DB parameter group. copyDBParameterGroup@@ -76,13 +77,14 @@     -> Text -- ^ 'cdpgTargetDBParameterGroupDescription'     -> CopyDBParameterGroup copyDBParameterGroup pSourceDBParameterGroupIdentifier_ pTargetDBParameterGroupIdentifier_ pTargetDBParameterGroupDescription_ =-    CopyDBParameterGroup'-    { _cdpgTags = Nothing-    , _cdpgSourceDBParameterGroupIdentifier = pSourceDBParameterGroupIdentifier_-    , _cdpgTargetDBParameterGroupIdentifier = pTargetDBParameterGroupIdentifier_-    , _cdpgTargetDBParameterGroupDescription = pTargetDBParameterGroupDescription_-    }+  CopyDBParameterGroup'+  { _cdpgTags = Nothing+  , _cdpgSourceDBParameterGroupIdentifier = pSourceDBParameterGroupIdentifier_+  , _cdpgTargetDBParameterGroupIdentifier = pTargetDBParameterGroupIdentifier_+  , _cdpgTargetDBParameterGroupDescription = pTargetDBParameterGroupDescription_+  } + -- | Undocumented member. cdpgTags :: Lens' CopyDBParameterGroup [Tag] cdpgTags = lens _cdpgTags (\ s a -> s{_cdpgTags = a}) . _Default . _Coerce;@@ -91,7 +93,7 @@ cdpgSourceDBParameterGroupIdentifier :: Lens' CopyDBParameterGroup Text cdpgSourceDBParameterGroupIdentifier = lens _cdpgSourceDBParameterGroupIdentifier (\ s a -> s{_cdpgSourceDBParameterGroupIdentifier = a}); --- | The identifier for the copied DB 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-db-parameter-group@+-- | The identifier for the copied DB parameter group. Constraints:     * Cannot be null, empty, or blank     * Must contain from 1 to 255 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-db-parameter-group@ cdpgTargetDBParameterGroupIdentifier :: Lens' CopyDBParameterGroup Text cdpgTargetDBParameterGroupIdentifier = lens _cdpgTargetDBParameterGroupIdentifier (\ s a -> s{_cdpgTargetDBParameterGroupIdentifier = a}); @@ -109,9 +111,9 @@                  CopyDBParameterGroupResponse' <$>                    (x .@? "DBParameterGroup") <*> (pure (fromEnum s))) -instance Hashable CopyDBParameterGroup+instance Hashable CopyDBParameterGroup where -instance NFData CopyDBParameterGroup+instance NFData CopyDBParameterGroup where  instance ToHeaders CopyDBParameterGroup where         toHeaders = const mempty@@ -134,10 +136,11 @@  -- | /See:/ 'copyDBParameterGroupResponse' smart constructor. data CopyDBParameterGroupResponse = CopyDBParameterGroupResponse'-    { _cdbpgrsDBParameterGroup :: !(Maybe DBParameterGroup)-    , _cdbpgrsResponseStatus   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdbpgrsDBParameterGroup :: !(Maybe DBParameterGroup)+  , _cdbpgrsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CopyDBParameterGroupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -149,11 +152,12 @@     :: Int -- ^ 'cdbpgrsResponseStatus'     -> CopyDBParameterGroupResponse copyDBParameterGroupResponse pResponseStatus_ =-    CopyDBParameterGroupResponse'-    { _cdbpgrsDBParameterGroup = Nothing-    , _cdbpgrsResponseStatus = pResponseStatus_-    }+  CopyDBParameterGroupResponse'+  { _cdbpgrsDBParameterGroup = Nothing+  , _cdbpgrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. cdbpgrsDBParameterGroup :: Lens' CopyDBParameterGroupResponse (Maybe DBParameterGroup) cdbpgrsDBParameterGroup = lens _cdbpgrsDBParameterGroup (\ s a -> s{_cdbpgrsDBParameterGroup = a});@@ -162,4 +166,4 @@ cdbpgrsResponseStatus :: Lens' CopyDBParameterGroupResponse Int cdbpgrsResponseStatus = lens _cdbpgrsResponseStatus (\ s a -> s{_cdbpgrsResponseStatus = a}); -instance NFData CopyDBParameterGroupResponse+instance NFData CopyDBParameterGroupResponse where
gen/Network/AWS/RDS/CopyDBSnapshot.hs view
@@ -12,25 +12,31 @@  -- | -- Module      : Network.AWS.RDS.CopyDBSnapshot--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Copies the specified DB snapshot. The source DB snapshot must be in the "available" state. -- ----- If you are copying from a shared manual DB snapshot, the @SourceDBSnapshotIdentifier@ must be the ARN of the shared DB snapshot.+-- You can copy a snapshot from one AWS Region to another. In that case, the AWS Region where you call the @CopyDBSnapshot@ action is the destination AWS Region for the DB snapshot copy. --+-- You cannot copy an encrypted, shared DB snapshot from one AWS Region to another.+--+-- For more information about copying snapshots, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_CopyDBSnapshot.html Copying a DB Snapshot> in the Amazon RDS User Guide.+-- module Network.AWS.RDS.CopyDBSnapshot     (     -- * Creating a Request       copyDBSnapshot     , CopyDBSnapshot     -- * Request Lenses+    , cdsPreSignedURL     , cdsCopyTags     , cdsKMSKeyId+    , cdsOptionGroupName     , cdsTags     , cdsSourceDBSnapshotIdentifier     , cdsTargetDBSnapshotIdentifier@@ -43,12 +49,12 @@     , cdsrsResponseStatus     ) 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+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  -- | --@@ -56,56 +62,74 @@ -- -- /See:/ 'copyDBSnapshot' smart constructor. data CopyDBSnapshot = CopyDBSnapshot'-    { _cdsCopyTags                   :: !(Maybe Bool)-    , _cdsKMSKeyId                   :: !(Maybe Text)-    , _cdsTags                       :: !(Maybe [Tag])-    , _cdsSourceDBSnapshotIdentifier :: !Text-    , _cdsTargetDBSnapshotIdentifier :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdsPreSignedURL               :: !(Maybe Text)+  , _cdsCopyTags                   :: !(Maybe Bool)+  , _cdsKMSKeyId                   :: !(Maybe Text)+  , _cdsOptionGroupName            :: !(Maybe Text)+  , _cdsTags                       :: !(Maybe [Tag])+  , _cdsSourceDBSnapshotIdentifier :: !Text+  , _cdsTargetDBSnapshotIdentifier :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CopyDBSnapshot' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'cdsPreSignedURL' - The URL that contains a Signature Version 4 signed request for the @CopyDBSnapshot@ API action in the source AWS Region that contains the source DB snapshot to copy.  You must specify this parameter when you copy an encrypted DB snapshot from another AWS Region by using the Amazon RDS API. You can specify the source region option instead of this parameter when you copy an encrypted DB snapshot from another AWS Region by using the AWS CLI.  The presigned URL must be a valid request for the @CopyDBSnapshot@ API action that can be executed in the source AWS Region that contains the encrypted DB snapshot to be copied. The presigned URL request must contain the following parameter values:      * @DestinationRegion@ - The AWS Region that the encrypted DB snapshot is copied to. This AWS Region is the same one where the @CopyDBSnapshot@ action is called that contains this presigned URL.  For example, if you copy an encrypted DB snapshot from the us-west-2 region to the us-east-1 region, then you call the @CopyDBSnapshot@ action in the us-east-1 region and provide a presigned URL that contains a call to the @CopyDBSnapshot@ action in the us-west-2 region. For this example, the @DestinationRegion@ in the presigned URL must be set to the us-east-1 region.      * @KmsKeyId@ - The KMS key identifier for the key to use to encrypt the copy of the DB snapshot in the destination AWS Region. This is the same identifier for both the @CopyDBSnapshot@ action that is called in the destination AWS Region, and the action contained in the presigned URL.      * @SourceDBSnapshotIdentifier@ - The DB snapshot identifier for the encrypted snapshot to be copied. This identifier must be in the Amazon Resource Name (ARN) format for the source AWS Region. For example, if you are copying an encrypted DB snapshot from the us-west-2 region, then your @SourceDBSnapshotIdentifier@ looks like the following example: @arn:aws:rds:us-west-2:123456789012:snapshot:mysql-instance1-snapshot-20161115@ .  To learn how to generate a Signature Version 4 signed request, see <http://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html Authenticating Requests: Using Query Parameters (AWS Signature Version 4)> and <http://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 Signing Process> .+-- -- * 'cdsCopyTags' - True to copy all tags from the source DB snapshot to the target DB snapshot; otherwise false. The default is false. ----- * 'cdsKMSKeyId' - The AWS Key Management Service (AWS KMS) key identifier for an encrypted DB snapshot. The KMS key identifier is the Amazon Resource Name (ARN) or the KMS key alias for the KMS encryption key. If you copy an unencrypted DB snapshot and specify a value for the @KmsKeyId@ parameter, Amazon RDS encrypts the target DB snapshot using the specified KMS encryption key. If you copy an encrypted DB snapshot from your AWS account, you can specify a value for @KmsKeyId@ to encrypt the copy with a new KMS encryption key. If you don't specify a value for @KmsKeyId@ then the copy of the DB snapshot is encrypted with the same KMS key as the source DB snapshot.  If you copy an encrypted DB snapshot that is shared from another AWS account, then you must specify a value for @KmsKeyId@ .+-- * 'cdsKMSKeyId' - The AWS KMS key ID for an encrypted DB snapshot. The KMS key ID is the Amazon Resource Name (ARN), KMS key identifier, or the KMS key alias for the KMS encryption key.  If you copy an encrypted DB snapshot from your AWS account, you can specify a value for this parameter to encrypt the copy with a new KMS encryption key. If you don't specify a value for this parameter, then the copy of the DB snapshot is encrypted with the same KMS key as the source DB snapshot.  If you copy an encrypted DB snapshot that is shared from another AWS account, then you must specify a value for this parameter.  If you specify this parameter when you copy an unencrypted snapshot, the copy is encrypted.  If you copy an encrypted snapshot to a different AWS Region, then you must specify a KMS key for the destination AWS Region. KMS encryption keys are specific to the AWS Region that they are created in, and you cannot use encryption keys from one AWS Region in another AWS Region. --+-- * 'cdsOptionGroupName' - The name of an option group to associate with the copy of the snapshot. Specify this option if you are copying a snapshot from one AWS Region to another, and your DB instance uses a nondefault option group. If your source DB instance uses Transparent Data Encryption for Oracle or Microsoft SQL Server, you must specify this option when copying across regions. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_CopySnapshot.html#USER_CopySnapshot.Options Option Group Considerations> .+-- -- * 'cdsTags' - Undocumented member. ----- * 'cdsSourceDBSnapshotIdentifier' - The identifier for the source DB snapshot. If you are copying from a shared manual DB snapshot, this must be the ARN of the shared DB snapshot. 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@  Example: @arn:aws:rds:rr-regn-1:123456789012:snapshot:mysql-instance1-snapshot-20130805@+-- * 'cdsSourceDBSnapshotIdentifier' - The identifier for the source DB snapshot. If the source snapshot is in the same AWS Region as the copy, specify a valid DB snapshot identifier. For example, you might specify @rds:mysql-instance1-snapshot-20130805@ .  If the source snapshot is in a different AWS Region than the copy, specify a valid DB snapshot ARN. For example, you might specify @arn:aws:rds:us-west-2:123456789012:snapshot:mysql-instance1-snapshot-20130805@ .  If you are copying from a shared manual DB snapshot, this parameter must be the Amazon Resource Name (ARN) of the shared DB snapshot.  If you are copying an encrypted snapshot this parameter must be in the ARN format for the source AWS Region, and must match the @SourceDBSnapshotIdentifier@ in the @PreSignedUrl@ parameter.  Constraints:     * Must specify a valid system snapshot in the "available" state. Example: @rds:mydb-2012-04-02-00-01@  Example: @arn:aws:rds:us-west-2:123456789012:snapshot:mysql-instance1-snapshot-20130805@ ----- * 'cdsTargetDBSnapshotIdentifier' - The identifier for the copied snapshot. 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@+-- * 'cdsTargetDBSnapshotIdentifier' - The identifier for the copy of the snapshot.  Constraints:     * Cannot be null, empty, or blank     * Must contain from 1 to 255 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-db-snapshot@ copyDBSnapshot     :: Text -- ^ 'cdsSourceDBSnapshotIdentifier'     -> Text -- ^ 'cdsTargetDBSnapshotIdentifier'     -> CopyDBSnapshot copyDBSnapshot pSourceDBSnapshotIdentifier_ pTargetDBSnapshotIdentifier_ =-    CopyDBSnapshot'-    { _cdsCopyTags = Nothing-    , _cdsKMSKeyId = Nothing-    , _cdsTags = Nothing-    , _cdsSourceDBSnapshotIdentifier = pSourceDBSnapshotIdentifier_-    , _cdsTargetDBSnapshotIdentifier = pTargetDBSnapshotIdentifier_-    }+  CopyDBSnapshot'+  { _cdsPreSignedURL = Nothing+  , _cdsCopyTags = Nothing+  , _cdsKMSKeyId = Nothing+  , _cdsOptionGroupName = Nothing+  , _cdsTags = Nothing+  , _cdsSourceDBSnapshotIdentifier = pSourceDBSnapshotIdentifier_+  , _cdsTargetDBSnapshotIdentifier = pTargetDBSnapshotIdentifier_+  } ++-- | The URL that contains a Signature Version 4 signed request for the @CopyDBSnapshot@ API action in the source AWS Region that contains the source DB snapshot to copy.  You must specify this parameter when you copy an encrypted DB snapshot from another AWS Region by using the Amazon RDS API. You can specify the source region option instead of this parameter when you copy an encrypted DB snapshot from another AWS Region by using the AWS CLI.  The presigned URL must be a valid request for the @CopyDBSnapshot@ API action that can be executed in the source AWS Region that contains the encrypted DB snapshot to be copied. The presigned URL request must contain the following parameter values:      * @DestinationRegion@ - The AWS Region that the encrypted DB snapshot is copied to. This AWS Region is the same one where the @CopyDBSnapshot@ action is called that contains this presigned URL.  For example, if you copy an encrypted DB snapshot from the us-west-2 region to the us-east-1 region, then you call the @CopyDBSnapshot@ action in the us-east-1 region and provide a presigned URL that contains a call to the @CopyDBSnapshot@ action in the us-west-2 region. For this example, the @DestinationRegion@ in the presigned URL must be set to the us-east-1 region.      * @KmsKeyId@ - The KMS key identifier for the key to use to encrypt the copy of the DB snapshot in the destination AWS Region. This is the same identifier for both the @CopyDBSnapshot@ action that is called in the destination AWS Region, and the action contained in the presigned URL.      * @SourceDBSnapshotIdentifier@ - The DB snapshot identifier for the encrypted snapshot to be copied. This identifier must be in the Amazon Resource Name (ARN) format for the source AWS Region. For example, if you are copying an encrypted DB snapshot from the us-west-2 region, then your @SourceDBSnapshotIdentifier@ looks like the following example: @arn:aws:rds:us-west-2:123456789012:snapshot:mysql-instance1-snapshot-20161115@ .  To learn how to generate a Signature Version 4 signed request, see <http://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html Authenticating Requests: Using Query Parameters (AWS Signature Version 4)> and <http://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 Signing Process> .+cdsPreSignedURL :: Lens' CopyDBSnapshot (Maybe Text)+cdsPreSignedURL = lens _cdsPreSignedURL (\ s a -> s{_cdsPreSignedURL = a});+ -- | True to copy all tags from the source DB snapshot to the target DB snapshot; otherwise false. The default is false. cdsCopyTags :: Lens' CopyDBSnapshot (Maybe Bool) cdsCopyTags = lens _cdsCopyTags (\ s a -> s{_cdsCopyTags = a}); --- | The AWS Key Management Service (AWS KMS) key identifier for an encrypted DB snapshot. The KMS key identifier is the Amazon Resource Name (ARN) or the KMS key alias for the KMS encryption key. If you copy an unencrypted DB snapshot and specify a value for the @KmsKeyId@ parameter, Amazon RDS encrypts the target DB snapshot using the specified KMS encryption key. If you copy an encrypted DB snapshot from your AWS account, you can specify a value for @KmsKeyId@ to encrypt the copy with a new KMS encryption key. If you don't specify a value for @KmsKeyId@ then the copy of the DB snapshot is encrypted with the same KMS key as the source DB snapshot.  If you copy an encrypted DB snapshot that is shared from another AWS account, then you must specify a value for @KmsKeyId@ .+-- | The AWS KMS key ID for an encrypted DB snapshot. The KMS key ID is the Amazon Resource Name (ARN), KMS key identifier, or the KMS key alias for the KMS encryption key.  If you copy an encrypted DB snapshot from your AWS account, you can specify a value for this parameter to encrypt the copy with a new KMS encryption key. If you don't specify a value for this parameter, then the copy of the DB snapshot is encrypted with the same KMS key as the source DB snapshot.  If you copy an encrypted DB snapshot that is shared from another AWS account, then you must specify a value for this parameter.  If you specify this parameter when you copy an unencrypted snapshot, the copy is encrypted.  If you copy an encrypted snapshot to a different AWS Region, then you must specify a KMS key for the destination AWS Region. KMS encryption keys are specific to the AWS Region that they are created in, and you cannot use encryption keys from one AWS Region in another AWS Region. cdsKMSKeyId :: Lens' CopyDBSnapshot (Maybe Text) cdsKMSKeyId = lens _cdsKMSKeyId (\ s a -> s{_cdsKMSKeyId = a}); +-- | The name of an option group to associate with the copy of the snapshot. Specify this option if you are copying a snapshot from one AWS Region to another, and your DB instance uses a nondefault option group. If your source DB instance uses Transparent Data Encryption for Oracle or Microsoft SQL Server, you must specify this option when copying across regions. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_CopySnapshot.html#USER_CopySnapshot.Options Option Group Considerations> .+cdsOptionGroupName :: Lens' CopyDBSnapshot (Maybe Text)+cdsOptionGroupName = lens _cdsOptionGroupName (\ s a -> s{_cdsOptionGroupName = a});+ -- | Undocumented member. cdsTags :: Lens' CopyDBSnapshot [Tag] cdsTags = lens _cdsTags (\ s a -> s{_cdsTags = a}) . _Default . _Coerce; --- | The identifier for the source DB snapshot. If you are copying from a shared manual DB snapshot, this must be the ARN of the shared DB snapshot. 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@  Example: @arn:aws:rds:rr-regn-1:123456789012:snapshot:mysql-instance1-snapshot-20130805@+-- | The identifier for the source DB snapshot. If the source snapshot is in the same AWS Region as the copy, specify a valid DB snapshot identifier. For example, you might specify @rds:mysql-instance1-snapshot-20130805@ .  If the source snapshot is in a different AWS Region than the copy, specify a valid DB snapshot ARN. For example, you might specify @arn:aws:rds:us-west-2:123456789012:snapshot:mysql-instance1-snapshot-20130805@ .  If you are copying from a shared manual DB snapshot, this parameter must be the Amazon Resource Name (ARN) of the shared DB snapshot.  If you are copying an encrypted snapshot this parameter must be in the ARN format for the source AWS Region, and must match the @SourceDBSnapshotIdentifier@ in the @PreSignedUrl@ parameter.  Constraints:     * Must specify a valid system snapshot in the "available" state. Example: @rds:mydb-2012-04-02-00-01@  Example: @arn:aws:rds:us-west-2:123456789012:snapshot:mysql-instance1-snapshot-20130805@ cdsSourceDBSnapshotIdentifier :: Lens' CopyDBSnapshot Text cdsSourceDBSnapshotIdentifier = lens _cdsSourceDBSnapshotIdentifier (\ s a -> s{_cdsSourceDBSnapshotIdentifier = a}); --- | The identifier for the copied snapshot. 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@+-- | The identifier for the copy of the snapshot.  Constraints:     * Cannot be null, empty, or blank     * Must contain from 1 to 255 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-db-snapshot@ cdsTargetDBSnapshotIdentifier :: Lens' CopyDBSnapshot Text cdsTargetDBSnapshotIdentifier = lens _cdsTargetDBSnapshotIdentifier (\ s a -> s{_cdsTargetDBSnapshotIdentifier = a}); @@ -118,9 +142,9 @@                  CopyDBSnapshotResponse' <$>                    (x .@? "DBSnapshot") <*> (pure (fromEnum s))) -instance Hashable CopyDBSnapshot+instance Hashable CopyDBSnapshot where -instance NFData CopyDBSnapshot+instance NFData CopyDBSnapshot where  instance ToHeaders CopyDBSnapshot where         toHeaders = const mempty@@ -133,8 +157,10 @@           = mconcat               ["Action" =: ("CopyDBSnapshot" :: ByteString),                "Version" =: ("2014-10-31" :: ByteString),+               "PreSignedUrl" =: _cdsPreSignedURL,                "CopyTags" =: _cdsCopyTags,                "KmsKeyId" =: _cdsKMSKeyId,+               "OptionGroupName" =: _cdsOptionGroupName,                "Tags" =: toQuery (toQueryList "Tag" <$> _cdsTags),                "SourceDBSnapshotIdentifier" =:                  _cdsSourceDBSnapshotIdentifier,@@ -143,10 +169,11 @@  -- | /See:/ 'copyDBSnapshotResponse' smart constructor. data CopyDBSnapshotResponse = CopyDBSnapshotResponse'-    { _cdsrsDBSnapshot     :: !(Maybe DBSnapshot)-    , _cdsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdsrsDBSnapshot     :: !(Maybe DBSnapshot)+  , _cdsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CopyDBSnapshotResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -158,11 +185,10 @@     :: Int -- ^ 'cdsrsResponseStatus'     -> CopyDBSnapshotResponse copyDBSnapshotResponse pResponseStatus_ =-    CopyDBSnapshotResponse'-    { _cdsrsDBSnapshot = Nothing-    , _cdsrsResponseStatus = pResponseStatus_-    }+  CopyDBSnapshotResponse'+  {_cdsrsDBSnapshot = Nothing, _cdsrsResponseStatus = pResponseStatus_} + -- | Undocumented member. cdsrsDBSnapshot :: Lens' CopyDBSnapshotResponse (Maybe DBSnapshot) cdsrsDBSnapshot = lens _cdsrsDBSnapshot (\ s a -> s{_cdsrsDBSnapshot = a});@@ -171,4 +197,4 @@ cdsrsResponseStatus :: Lens' CopyDBSnapshotResponse Int cdsrsResponseStatus = lens _cdsrsResponseStatus (\ s a -> s{_cdsrsResponseStatus = a}); -instance NFData CopyDBSnapshotResponse+instance NFData CopyDBSnapshotResponse where
gen/Network/AWS/RDS/CopyOptionGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.CopyOptionGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@     , cogrsResponseStatus     ) 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+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  -- | --@@ -53,21 +53,22 @@ -- -- /See:/ 'copyOptionGroup' smart constructor. data CopyOptionGroup = CopyOptionGroup'-    { _cTags                         :: !(Maybe [Tag])-    , _cSourceOptionGroupIdentifier  :: !Text-    , _cTargetOptionGroupIdentifier  :: !Text-    , _cTargetOptionGroupDescription :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cTags                         :: !(Maybe [Tag])+  , _cSourceOptionGroupIdentifier  :: !Text+  , _cTargetOptionGroupIdentifier  :: !Text+  , _cTargetOptionGroupDescription :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CopyOptionGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cTags' - Undocumented member. ----- * 'cSourceOptionGroupIdentifier' - 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' - 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 AWS 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 AWS Region than the copy, specify a valid option group ARN, for example @arn:aws:rds:us-west-2:123456789012:og:special-options@ . ----- * 'cTargetOptionGroupIdentifier' - The identifier for the copied option 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-option-group@+-- * 'cTargetOptionGroupIdentifier' - The identifier for the copied option group. Constraints:     * Cannot be null, empty, or blank     * Must contain from 1 to 255 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-option-group@ -- -- * 'cTargetOptionGroupDescription' - The description for the copied option group. copyOptionGroup@@ -76,22 +77,23 @@     -> Text -- ^ 'cTargetOptionGroupDescription'     -> CopyOptionGroup copyOptionGroup pSourceOptionGroupIdentifier_ pTargetOptionGroupIdentifier_ pTargetOptionGroupDescription_ =-    CopyOptionGroup'-    { _cTags = Nothing-    , _cSourceOptionGroupIdentifier = pSourceOptionGroupIdentifier_-    , _cTargetOptionGroupIdentifier = pTargetOptionGroupIdentifier_-    , _cTargetOptionGroupDescription = pTargetOptionGroupDescription_-    }+  CopyOptionGroup'+  { _cTags = Nothing+  , _cSourceOptionGroupIdentifier = pSourceOptionGroupIdentifier_+  , _cTargetOptionGroupIdentifier = pTargetOptionGroupIdentifier_+  , _cTargetOptionGroupDescription = pTargetOptionGroupDescription_+  } + -- | Undocumented member. 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.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@ .+-- | 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 AWS 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 AWS 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}); --- | The identifier for the copied option 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-option-group@+-- | The identifier for the copied option group. Constraints:     * Cannot be null, empty, or blank     * Must contain from 1 to 255 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-option-group@ cTargetOptionGroupIdentifier :: Lens' CopyOptionGroup Text cTargetOptionGroupIdentifier = lens _cTargetOptionGroupIdentifier (\ s a -> s{_cTargetOptionGroupIdentifier = a}); @@ -108,9 +110,9 @@                  CopyOptionGroupResponse' <$>                    (x .@? "OptionGroup") <*> (pure (fromEnum s))) -instance Hashable CopyOptionGroup+instance Hashable CopyOptionGroup where -instance NFData CopyOptionGroup+instance NFData CopyOptionGroup where  instance ToHeaders CopyOptionGroup where         toHeaders = const mempty@@ -133,10 +135,11 @@  -- | /See:/ 'copyOptionGroupResponse' smart constructor. data CopyOptionGroupResponse = CopyOptionGroupResponse'-    { _cogrsOptionGroup    :: !(Maybe OptionGroup)-    , _cogrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cogrsOptionGroup    :: !(Maybe OptionGroup)+  , _cogrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CopyOptionGroupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -148,11 +151,10 @@     :: Int -- ^ 'cogrsResponseStatus'     -> CopyOptionGroupResponse copyOptionGroupResponse pResponseStatus_ =-    CopyOptionGroupResponse'-    { _cogrsOptionGroup = Nothing-    , _cogrsResponseStatus = pResponseStatus_-    }+  CopyOptionGroupResponse'+  {_cogrsOptionGroup = Nothing, _cogrsResponseStatus = pResponseStatus_} + -- | Undocumented member. cogrsOptionGroup :: Lens' CopyOptionGroupResponse (Maybe OptionGroup) cogrsOptionGroup = lens _cogrsOptionGroup (\ s a -> s{_cogrsOptionGroup = a});@@ -161,4 +163,4 @@ cogrsResponseStatus :: Lens' CopyOptionGroupResponse Int cogrsResponseStatus = lens _cogrsResponseStatus (\ s a -> s{_cogrsResponseStatus = a}); -instance NFData CopyOptionGroupResponse+instance NFData CopyOptionGroupResponse where
gen/Network/AWS/RDS/CreateDBCluster.hs view
@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.RDS.CreateDBCluster--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- 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.+-- You can use the @ReplicationSourceIdentifier@ parameter to create the DB cluster as a Read Replica of another DB cluster or Amazon RDS MySQL DB instance. For cross-region replication where the DB cluster identified by @ReplicationSourceIdentifier@ is encrypted, you must also specify the @PreSignedUrl@ parameter. -- -- 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./ --@@ -37,6 +37,7 @@     , cdcReplicationSourceIdentifier     , cdcMasterUsername     , cdcDBSubnetGroupName+    , cdcPreSignedURL     , cdcPreferredMaintenanceWindow     , cdcAvailabilityZones     , cdcCharacterSetName@@ -49,6 +50,7 @@     , cdcOptionGroupName     , cdcTags     , cdcPort+    , cdcEnableIAMDatabaseAuthentication     , cdcDBClusterIdentifier     , cdcEngine @@ -60,12 +62,12 @@     , cdcrsResponseStatus     ) 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+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  -- | --@@ -73,28 +75,31 @@ -- -- /See:/ 'createDBCluster' smart constructor. 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])-    , _cdcCharacterSetName            :: !(Maybe Text)-    , _cdcKMSKeyId                    :: !(Maybe Text)-    , _cdcPreferredBackupWindow       :: !(Maybe Text)-    , _cdcBackupRetentionPeriod       :: !(Maybe Int)-    , _cdcVPCSecurityGroupIds         :: !(Maybe [Text])-    , _cdcDatabaseName                :: !(Maybe Text)-    , _cdcDBClusterParameterGroupName :: !(Maybe Text)-    , _cdcOptionGroupName             :: !(Maybe Text)-    , _cdcTags                        :: !(Maybe [Tag])-    , _cdcPort                        :: !(Maybe Int)-    , _cdcDBClusterIdentifier         :: !Text-    , _cdcEngine                      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdcEngineVersion                   :: !(Maybe Text)+  , _cdcStorageEncrypted                :: !(Maybe Bool)+  , _cdcMasterUserPassword              :: !(Maybe Text)+  , _cdcReplicationSourceIdentifier     :: !(Maybe Text)+  , _cdcMasterUsername                  :: !(Maybe Text)+  , _cdcDBSubnetGroupName               :: !(Maybe Text)+  , _cdcPreSignedURL                    :: !(Maybe Text)+  , _cdcPreferredMaintenanceWindow      :: !(Maybe Text)+  , _cdcAvailabilityZones               :: !(Maybe [Text])+  , _cdcCharacterSetName                :: !(Maybe Text)+  , _cdcKMSKeyId                        :: !(Maybe Text)+  , _cdcPreferredBackupWindow           :: !(Maybe Text)+  , _cdcBackupRetentionPeriod           :: !(Maybe Int)+  , _cdcVPCSecurityGroupIds             :: !(Maybe [Text])+  , _cdcDatabaseName                    :: !(Maybe Text)+  , _cdcDBClusterParameterGroupName     :: !(Maybe Text)+  , _cdcOptionGroupName                 :: !(Maybe Text)+  , _cdcTags                            :: !(Maybe [Tag])+  , _cdcPort                            :: !(Maybe Int)+  , _cdcEnableIAMDatabaseAuthentication :: !(Maybe Bool)+  , _cdcDBClusterIdentifier             :: !Text+  , _cdcEngine                          :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBCluster' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,29 +110,31 @@ -- -- * 'cdcMasterUserPassword' - 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. ----- * 'cdcReplicationSourceIdentifier' - The Amazon Resource Name (ARN) of the source DB cluster if this DB cluster is created as a Read Replica.+-- * 'cdcReplicationSourceIdentifier' - The Amazon Resource Name (ARN) of the source DB instance or DB cluster if this DB cluster is created as a Read Replica. ----- * 'cdcMasterUsername' - 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' - The name of the master user for the DB cluster. Constraints:     * Must be 1 to 16 letters or numbers.     * First character must be a letter.     * Cannot be a reserved word for the chosen database engine. ----- * 'cdcDBSubnetGroupName' - A DB subnet group to associate with this DB cluster. Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@+-- * 'cdcDBSubnetGroupName' - A DB subnet group to associate with this DB cluster. Constraints: Must match the name of an existing DBSubnetGroup. Must not be default. Example: @mySubnetgroup@ ----- * 'cdcPreferredMaintenanceWindow' - 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.+-- * 'cdcPreSignedURL' - A URL that contains a Signature Version 4 signed request for the @CreateDBCluster@ action to be called in the source AWS Region where the DB cluster is replicated from. You only need to specify @PreSignedUrl@ when you are performing cross-region replication from an encrypted DB cluster. The pre-signed URL must be a valid request for the @CreateDBCluster@ API action that can be executed in the source AWS Region that contains the encrypted DB cluster to be copied. The pre-signed URL request must contain the following parameter values:     * @KmsKeyId@ - The KMS key identifier for the key to use to encrypt the copy of the DB cluster in the destination AWS Region. This should refer to the same KMS key for both the @CreateDBCluster@ action that is called in the destination AWS Region, and the action contained in the pre-signed URL.     * @DestinationRegion@ - The name of the AWS Region that Aurora Read Replica will be created in.     * @ReplicationSourceIdentifier@ - The DB cluster identifier for the encrypted DB cluster to be copied. This identifier must be in the Amazon Resource Name (ARN) format for the source AWS Region. For example, if you are copying an encrypted DB cluster from the us-west-2 region, then your @ReplicationSourceIdentifier@ would look like Example: @arn:aws:rds:us-west-2:123456789012:cluster:aurora-cluster1@ . To learn how to generate a Signature Version 4 signed request, see <http://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html Authenticating Requests: Using Query Parameters (AWS Signature Version 4)> and <http://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 Signing Process> . --+-- * 'cdcPreferredMaintenanceWindow' - 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 AWS 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.+-- -- * 'cdcAvailabilityZones' - A list of EC2 Availability Zones that instances in the DB cluster can be created in. For information on regions and Availability Zones, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.RegionsAndAvailabilityZones.html Regions and Availability Zones> . -- -- * 'cdcCharacterSetName' - A value that indicates that the DB cluster should be associated with the specified CharacterSet. ----- * 'cdcKMSKeyId' - 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.+-- * 'cdcKMSKeyId' - 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 KMS encryption key. If an encryption key is not specified in @KmsKeyId@ :     * If @ReplicationSourceIdentifier@ identifies an encrypted source, then Amazon RDS will use the encryption key used to encrypt the source. Otherwise, Amazon RDS will use your default encryption key.      * If the @StorageEncrypted@ parameter is true and @ReplicationSourceIdentifier@ is not specified, 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. If you create a Read Replica of an encrypted DB cluster in another AWS Region, you must set @KmsKeyId@ to a KMS key ID that is valid in the destination AWS Region. This key is used to encrypt the Read Replica in that AWS Region. ----- * 'cdcPreferredBackupWindow' - 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.+-- * 'cdcPreferredBackupWindow' - 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 AWS 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. -- -- * 'cdcBackupRetentionPeriod' - The number of days for which automated backups are retained. You must specify a minimum value of 1. Default: 1 Constraints:     * Must be a value from 1 to 35 -- -- * 'cdcVPCSecurityGroupIds' - A list of EC2 VPC security groups to associate with this DB cluster. ----- * 'cdcDatabaseName' - The name for your database of up to 8 alpha-numeric characters. If you do not provide a name, Amazon RDS will not create a database in the DB cluster you are creating.+-- * 'cdcDatabaseName' - The name for your database of up to 64 alpha-numeric characters. If you do not provide a name, Amazon RDS will not create a database in the DB cluster you are creating. ----- * 'cdcDBClusterParameterGroupName' - 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' - The name of the DB cluster parameter group to associate with this DB cluster. If this argument is omitted, @default.aurora5.6@ is used.  Constraints:     * If supplied, must match the name of an existing DBClusterParameterGroup. -- -- * 'cdcOptionGroupName' - A value that indicates that the DB cluster should be associated with the specified option group. Permanent options cannot be removed from an option group. The option group cannot be removed from a DB cluster once it is associated with a DB cluster. --@@ -135,37 +142,42 @@ -- -- * 'cdcPort' - The port number on which the instances in the DB cluster accept connections. Default: @3306@ ----- * 'cdcDBClusterIdentifier' - The DB cluster identifier. This parameter is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @my-cluster1@+-- * 'cdcEnableIAMDatabaseAuthentication' - A Boolean value that is true to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts, and otherwise false. Default: @false@ --+-- * 'cdcDBClusterIdentifier' - The DB cluster identifier. This parameter is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 letters, numbers, or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @my-cluster1@+-- -- * 'cdcEngine' - The name of the database engine to be used for this DB cluster. Valid Values: @aurora@ createDBCluster     :: Text -- ^ 'cdcDBClusterIdentifier'     -> Text -- ^ 'cdcEngine'     -> CreateDBCluster createDBCluster pDBClusterIdentifier_ pEngine_ =-    CreateDBCluster'-    { _cdcEngineVersion = Nothing-    , _cdcStorageEncrypted = Nothing-    , _cdcMasterUserPassword = Nothing-    , _cdcReplicationSourceIdentifier = Nothing-    , _cdcMasterUsername = Nothing-    , _cdcDBSubnetGroupName = Nothing-    , _cdcPreferredMaintenanceWindow = Nothing-    , _cdcAvailabilityZones = Nothing-    , _cdcCharacterSetName = Nothing-    , _cdcKMSKeyId = Nothing-    , _cdcPreferredBackupWindow = Nothing-    , _cdcBackupRetentionPeriod = Nothing-    , _cdcVPCSecurityGroupIds = Nothing-    , _cdcDatabaseName = Nothing-    , _cdcDBClusterParameterGroupName = Nothing-    , _cdcOptionGroupName = Nothing-    , _cdcTags = Nothing-    , _cdcPort = Nothing-    , _cdcDBClusterIdentifier = pDBClusterIdentifier_-    , _cdcEngine = pEngine_-    }+  CreateDBCluster'+  { _cdcEngineVersion = Nothing+  , _cdcStorageEncrypted = Nothing+  , _cdcMasterUserPassword = Nothing+  , _cdcReplicationSourceIdentifier = Nothing+  , _cdcMasterUsername = Nothing+  , _cdcDBSubnetGroupName = Nothing+  , _cdcPreSignedURL = Nothing+  , _cdcPreferredMaintenanceWindow = Nothing+  , _cdcAvailabilityZones = Nothing+  , _cdcCharacterSetName = Nothing+  , _cdcKMSKeyId = Nothing+  , _cdcPreferredBackupWindow = Nothing+  , _cdcBackupRetentionPeriod = Nothing+  , _cdcVPCSecurityGroupIds = Nothing+  , _cdcDatabaseName = Nothing+  , _cdcDBClusterParameterGroupName = Nothing+  , _cdcOptionGroupName = Nothing+  , _cdcTags = Nothing+  , _cdcPort = Nothing+  , _cdcEnableIAMDatabaseAuthentication = Nothing+  , _cdcDBClusterIdentifier = pDBClusterIdentifier_+  , _cdcEngine = pEngine_+  } + -- | The version number of the database engine to use. __Aurora__  Example: @5.6.10a@ cdcEngineVersion :: Lens' CreateDBCluster (Maybe Text) cdcEngineVersion = lens _cdcEngineVersion (\ s a -> s{_cdcEngineVersion = a});@@ -178,19 +190,23 @@ 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.+-- | The Amazon Resource Name (ARN) of the source DB instance or 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.+-- | The name of the master user for the DB cluster. Constraints:     * Must be 1 to 16 letters or numbers.     * 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. Example: @mySubnetgroup@+-- | A DB subnet group to associate with this DB cluster. Constraints: Must match the name of an existing DBSubnetGroup. Must not be default. Example: @mySubnetgroup@ cdcDBSubnetGroupName :: Lens' CreateDBCluster (Maybe Text) cdcDBSubnetGroupName = lens _cdcDBSubnetGroupName (\ s a -> s{_cdcDBSubnetGroupName = 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.+-- | A URL that contains a Signature Version 4 signed request for the @CreateDBCluster@ action to be called in the source AWS Region where the DB cluster is replicated from. You only need to specify @PreSignedUrl@ when you are performing cross-region replication from an encrypted DB cluster. The pre-signed URL must be a valid request for the @CreateDBCluster@ API action that can be executed in the source AWS Region that contains the encrypted DB cluster to be copied. The pre-signed URL request must contain the following parameter values:     * @KmsKeyId@ - The KMS key identifier for the key to use to encrypt the copy of the DB cluster in the destination AWS Region. This should refer to the same KMS key for both the @CreateDBCluster@ action that is called in the destination AWS Region, and the action contained in the pre-signed URL.     * @DestinationRegion@ - The name of the AWS Region that Aurora Read Replica will be created in.     * @ReplicationSourceIdentifier@ - The DB cluster identifier for the encrypted DB cluster to be copied. This identifier must be in the Amazon Resource Name (ARN) format for the source AWS Region. For example, if you are copying an encrypted DB cluster from the us-west-2 region, then your @ReplicationSourceIdentifier@ would look like Example: @arn:aws:rds:us-west-2:123456789012:cluster:aurora-cluster1@ . To learn how to generate a Signature Version 4 signed request, see <http://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html Authenticating Requests: Using Query Parameters (AWS Signature Version 4)> and <http://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 Signing Process> .+cdcPreSignedURL :: Lens' CreateDBCluster (Maybe Text)+cdcPreSignedURL = lens _cdcPreSignedURL (\ s a -> s{_cdcPreSignedURL = 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 AWS 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. cdcPreferredMaintenanceWindow :: Lens' CreateDBCluster (Maybe Text) cdcPreferredMaintenanceWindow = lens _cdcPreferredMaintenanceWindow (\ s a -> s{_cdcPreferredMaintenanceWindow = a}); @@ -202,11 +218,11 @@ cdcCharacterSetName :: Lens' CreateDBCluster (Maybe Text) cdcCharacterSetName = lens _cdcCharacterSetName (\ s a -> s{_cdcCharacterSetName = 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.+-- | 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 KMS encryption key. If an encryption key is not specified in @KmsKeyId@ :     * If @ReplicationSourceIdentifier@ identifies an encrypted source, then Amazon RDS will use the encryption key used to encrypt the source. Otherwise, Amazon RDS will use your default encryption key.      * If the @StorageEncrypted@ parameter is true and @ReplicationSourceIdentifier@ is not specified, 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. If you create a Read Replica of an encrypted DB cluster in another AWS Region, you must set @KmsKeyId@ to a KMS key ID that is valid in the destination AWS Region. This key is used to encrypt the Read Replica in that AWS Region. cdcKMSKeyId :: Lens' CreateDBCluster (Maybe Text) cdcKMSKeyId = lens _cdcKMSKeyId (\ s a -> s{_cdcKMSKeyId = 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.+-- | 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 AWS 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. cdcPreferredBackupWindow :: Lens' CreateDBCluster (Maybe Text) cdcPreferredBackupWindow = lens _cdcPreferredBackupWindow (\ s a -> s{_cdcPreferredBackupWindow = a}); @@ -218,11 +234,11 @@ cdcVPCSecurityGroupIds :: Lens' CreateDBCluster [Text] cdcVPCSecurityGroupIds = lens _cdcVPCSecurityGroupIds (\ s a -> s{_cdcVPCSecurityGroupIds = a}) . _Default . _Coerce; --- | The name for your database of up to 8 alpha-numeric characters. If you do not provide a name, Amazon RDS will not create a database in the DB cluster you are creating.+-- | The name for your database of up to 64 alpha-numeric characters. If you do not provide a name, Amazon RDS will not create a database in the DB cluster you are creating. 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@ 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+-- | The name of the DB cluster parameter group to associate with this DB cluster. If this argument is omitted, @default.aurora5.6@ is used.  Constraints:     * If supplied, must match the name of an existing DBClusterParameterGroup. cdcDBClusterParameterGroupName :: Lens' CreateDBCluster (Maybe Text) cdcDBClusterParameterGroupName = lens _cdcDBClusterParameterGroupName (\ s a -> s{_cdcDBClusterParameterGroupName = a}); @@ -238,7 +254,11 @@ cdcPort :: Lens' CreateDBCluster (Maybe Int) cdcPort = lens _cdcPort (\ s a -> s{_cdcPort = a}); --- | The DB cluster identifier. This parameter is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @my-cluster1@+-- | A Boolean value that is true to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts, and otherwise false. Default: @false@+cdcEnableIAMDatabaseAuthentication :: Lens' CreateDBCluster (Maybe Bool)+cdcEnableIAMDatabaseAuthentication = lens _cdcEnableIAMDatabaseAuthentication (\ s a -> s{_cdcEnableIAMDatabaseAuthentication = a});++-- | The DB cluster identifier. This parameter is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 letters, numbers, or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @my-cluster1@ cdcDBClusterIdentifier :: Lens' CreateDBCluster Text cdcDBClusterIdentifier = lens _cdcDBClusterIdentifier (\ s a -> s{_cdcDBClusterIdentifier = a}); @@ -255,9 +275,9 @@                  CreateDBClusterResponse' <$>                    (x .@? "DBCluster") <*> (pure (fromEnum s))) -instance Hashable CreateDBCluster+instance Hashable CreateDBCluster where -instance NFData CreateDBCluster+instance NFData CreateDBCluster where  instance ToHeaders CreateDBCluster where         toHeaders = const mempty@@ -277,6 +297,7 @@                  _cdcReplicationSourceIdentifier,                "MasterUsername" =: _cdcMasterUsername,                "DBSubnetGroupName" =: _cdcDBSubnetGroupName,+               "PreSignedUrl" =: _cdcPreSignedURL,                "PreferredMaintenanceWindow" =:                  _cdcPreferredMaintenanceWindow,                "AvailabilityZones" =:@@ -297,15 +318,18 @@                "OptionGroupName" =: _cdcOptionGroupName,                "Tags" =: toQuery (toQueryList "Tag" <$> _cdcTags),                "Port" =: _cdcPort,+               "EnableIAMDatabaseAuthentication" =:+                 _cdcEnableIAMDatabaseAuthentication,                "DBClusterIdentifier" =: _cdcDBClusterIdentifier,                "Engine" =: _cdcEngine]  -- | /See:/ 'createDBClusterResponse' smart constructor. data CreateDBClusterResponse = CreateDBClusterResponse'-    { _cdcrsDBCluster      :: !(Maybe DBCluster)-    , _cdcrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdcrsDBCluster      :: !(Maybe DBCluster)+  , _cdcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBClusterResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -317,11 +341,10 @@     :: Int -- ^ 'cdcrsResponseStatus'     -> CreateDBClusterResponse createDBClusterResponse pResponseStatus_ =-    CreateDBClusterResponse'-    { _cdcrsDBCluster = Nothing-    , _cdcrsResponseStatus = pResponseStatus_-    }+  CreateDBClusterResponse'+  {_cdcrsDBCluster = Nothing, _cdcrsResponseStatus = pResponseStatus_} + -- | Undocumented member. cdcrsDBCluster :: Lens' CreateDBClusterResponse (Maybe DBCluster) cdcrsDBCluster = lens _cdcrsDBCluster (\ s a -> s{_cdcrsDBCluster = a});@@ -330,4 +353,4 @@ cdcrsResponseStatus :: Lens' CreateDBClusterResponse Int cdcrsResponseStatus = lens _cdcrsResponseStatus (\ s a -> s{_cdcrsResponseStatus = a}); -instance NFData CreateDBClusterResponse+instance NFData CreateDBClusterResponse where
gen/Network/AWS/RDS/CreateDBClusterParameterGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.CreateDBClusterParameterGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -48,12 +48,12 @@     , cdbcpgrsResponseStatus     ) 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+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  -- | --@@ -61,19 +61,20 @@ -- -- /See:/ 'createDBClusterParameterGroup' smart constructor. data CreateDBClusterParameterGroup = CreateDBClusterParameterGroup'-    { _cdcpgTags                        :: !(Maybe [Tag])-    , _cdcpgDBClusterParameterGroupName :: !Text-    , _cdcpgDBParameterGroupFamily      :: !Text-    , _cdcpgDescription                 :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdcpgTags                        :: !(Maybe [Tag])+  , _cdcpgDBClusterParameterGroupName :: !Text+  , _cdcpgDBParameterGroupFamily      :: !Text+  , _cdcpgDescription                 :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBClusterParameterGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cdcpgTags' - Undocumented member. ----- * 'cdcpgDBClusterParameterGroupName' - The name of the DB cluster parameter group. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- * 'cdcpgDBClusterParameterGroupName' - The name of the DB cluster parameter group. Constraints:     * Must match the name of an existing DBClusterParameterGroup. -- -- * 'cdcpgDBParameterGroupFamily' - The DB cluster parameter group family name. A DB cluster parameter group can be associated with one and only one DB cluster parameter group family, and can be applied only to a DB cluster running a database engine and engine version compatible with that DB cluster parameter group family. --@@ -84,18 +85,19 @@     -> Text -- ^ 'cdcpgDescription'     -> CreateDBClusterParameterGroup createDBClusterParameterGroup pDBClusterParameterGroupName_ pDBParameterGroupFamily_ pDescription_ =-    CreateDBClusterParameterGroup'-    { _cdcpgTags = Nothing-    , _cdcpgDBClusterParameterGroupName = pDBClusterParameterGroupName_-    , _cdcpgDBParameterGroupFamily = pDBParameterGroupFamily_-    , _cdcpgDescription = pDescription_-    }+  CreateDBClusterParameterGroup'+  { _cdcpgTags = Nothing+  , _cdcpgDBClusterParameterGroupName = pDBClusterParameterGroupName_+  , _cdcpgDBParameterGroupFamily = pDBParameterGroupFamily_+  , _cdcpgDescription = pDescription_+  } + -- | Undocumented member. cdcpgTags :: Lens' CreateDBClusterParameterGroup [Tag] cdcpgTags = lens _cdcpgTags (\ s a -> s{_cdcpgTags = a}) . _Default . _Coerce; --- | The name of the DB cluster parameter group. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The name of the DB cluster parameter group. Constraints:     * Must match the name of an existing DBClusterParameterGroup. cdcpgDBClusterParameterGroupName :: Lens' CreateDBClusterParameterGroup Text cdcpgDBClusterParameterGroupName = lens _cdcpgDBClusterParameterGroupName (\ s a -> s{_cdcpgDBClusterParameterGroupName = a}); @@ -120,9 +122,9 @@                    (x .@? "DBClusterParameterGroup") <*>                      (pure (fromEnum s))) -instance Hashable CreateDBClusterParameterGroup+instance Hashable CreateDBClusterParameterGroup where -instance NFData CreateDBClusterParameterGroup+instance NFData CreateDBClusterParameterGroup where  instance ToHeaders CreateDBClusterParameterGroup          where@@ -146,10 +148,11 @@  -- | /See:/ 'createDBClusterParameterGroupResponse' smart constructor. data CreateDBClusterParameterGroupResponse = CreateDBClusterParameterGroupResponse'-    { _cdbcpgrsDBClusterParameterGroup :: !(Maybe DBClusterParameterGroup)-    , _cdbcpgrsResponseStatus          :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -161,11 +164,12 @@     :: Int -- ^ 'cdbcpgrsResponseStatus'     -> CreateDBClusterParameterGroupResponse createDBClusterParameterGroupResponse pResponseStatus_ =-    CreateDBClusterParameterGroupResponse'-    { _cdbcpgrsDBClusterParameterGroup = Nothing-    , _cdbcpgrsResponseStatus = pResponseStatus_-    }+  CreateDBClusterParameterGroupResponse'+  { _cdbcpgrsDBClusterParameterGroup = Nothing+  , _cdbcpgrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. cdbcpgrsDBClusterParameterGroup :: Lens' CreateDBClusterParameterGroupResponse (Maybe DBClusterParameterGroup) cdbcpgrsDBClusterParameterGroup = lens _cdbcpgrsDBClusterParameterGroup (\ s a -> s{_cdbcpgrsDBClusterParameterGroup = a});@@ -175,3 +179,4 @@ cdbcpgrsResponseStatus = lens _cdbcpgrsResponseStatus (\ s a -> s{_cdbcpgrsResponseStatus = a});  instance NFData CreateDBClusterParameterGroupResponse+         where
gen/Network/AWS/RDS/CreateDBClusterSnapshot.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.CreateDBClusterSnapshot--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , cdbcsrsResponseStatus     ) 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+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  -- | --@@ -52,40 +52,42 @@ -- -- /See:/ 'createDBClusterSnapshot' smart constructor. data CreateDBClusterSnapshot = CreateDBClusterSnapshot'-    { _cdcsTags                        :: !(Maybe [Tag])-    , _cdcsDBClusterSnapshotIdentifier :: !Text-    , _cdcsDBClusterIdentifier         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdcsTags                        :: !(Maybe [Tag])+  , _cdcsDBClusterSnapshotIdentifier :: !Text+  , _cdcsDBClusterIdentifier         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBClusterSnapshot' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cdcsTags' - The tags to be assigned to the DB cluster snapshot. ----- * 'cdcsDBClusterSnapshotIdentifier' - The identifier of the DB cluster snapshot. This parameter is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @my-cluster1-snapshot1@+-- * 'cdcsDBClusterSnapshotIdentifier' - The identifier of the DB cluster snapshot. This parameter is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 letters, numbers, or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @my-cluster1-snapshot1@ ----- * 'cdcsDBClusterIdentifier' - The identifier of the DB cluster to create a snapshot for. 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-cluster1@+-- * 'cdcsDBClusterIdentifier' - The identifier of the DB cluster to create a snapshot for. This parameter is not case-sensitive. Constraints:     * Must match the identifier of an existing DBCluster. Example: @my-cluster1@ createDBClusterSnapshot     :: Text -- ^ 'cdcsDBClusterSnapshotIdentifier'     -> Text -- ^ 'cdcsDBClusterIdentifier'     -> CreateDBClusterSnapshot createDBClusterSnapshot pDBClusterSnapshotIdentifier_ pDBClusterIdentifier_ =-    CreateDBClusterSnapshot'-    { _cdcsTags = Nothing-    , _cdcsDBClusterSnapshotIdentifier = pDBClusterSnapshotIdentifier_-    , _cdcsDBClusterIdentifier = pDBClusterIdentifier_-    }+  CreateDBClusterSnapshot'+  { _cdcsTags = Nothing+  , _cdcsDBClusterSnapshotIdentifier = pDBClusterSnapshotIdentifier_+  , _cdcsDBClusterIdentifier = pDBClusterIdentifier_+  } + -- | The tags to be assigned to the DB cluster snapshot. cdcsTags :: Lens' CreateDBClusterSnapshot [Tag] cdcsTags = lens _cdcsTags (\ s a -> s{_cdcsTags = a}) . _Default . _Coerce; --- | The identifier of the DB cluster snapshot. This parameter is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @my-cluster1-snapshot1@+-- | The identifier of the DB cluster snapshot. This parameter is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 letters, numbers, or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @my-cluster1-snapshot1@ cdcsDBClusterSnapshotIdentifier :: Lens' CreateDBClusterSnapshot Text cdcsDBClusterSnapshotIdentifier = lens _cdcsDBClusterSnapshotIdentifier (\ s a -> s{_cdcsDBClusterSnapshotIdentifier = a}); --- | The identifier of the DB cluster to create a snapshot for. 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-cluster1@+-- | The identifier of the DB cluster to create a snapshot for. This parameter is not case-sensitive. Constraints:     * Must match the identifier of an existing DBCluster. Example: @my-cluster1@ cdcsDBClusterIdentifier :: Lens' CreateDBClusterSnapshot Text cdcsDBClusterIdentifier = lens _cdcsDBClusterIdentifier (\ s a -> s{_cdcsDBClusterIdentifier = a}); @@ -99,9 +101,9 @@                  CreateDBClusterSnapshotResponse' <$>                    (x .@? "DBClusterSnapshot") <*> (pure (fromEnum s))) -instance Hashable CreateDBClusterSnapshot+instance Hashable CreateDBClusterSnapshot where -instance NFData CreateDBClusterSnapshot+instance NFData CreateDBClusterSnapshot where  instance ToHeaders CreateDBClusterSnapshot where         toHeaders = const mempty@@ -122,10 +124,11 @@  -- | /See:/ 'createDBClusterSnapshotResponse' smart constructor. data CreateDBClusterSnapshotResponse = CreateDBClusterSnapshotResponse'-    { _cdbcsrsDBClusterSnapshot :: !(Maybe DBClusterSnapshot)-    , _cdbcsrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdbcsrsDBClusterSnapshot :: !(Maybe DBClusterSnapshot)+  , _cdbcsrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBClusterSnapshotResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -137,11 +140,12 @@     :: Int -- ^ 'cdbcsrsResponseStatus'     -> CreateDBClusterSnapshotResponse createDBClusterSnapshotResponse pResponseStatus_ =-    CreateDBClusterSnapshotResponse'-    { _cdbcsrsDBClusterSnapshot = Nothing-    , _cdbcsrsResponseStatus = pResponseStatus_-    }+  CreateDBClusterSnapshotResponse'+  { _cdbcsrsDBClusterSnapshot = Nothing+  , _cdbcsrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. cdbcsrsDBClusterSnapshot :: Lens' CreateDBClusterSnapshotResponse (Maybe DBClusterSnapshot) cdbcsrsDBClusterSnapshot = lens _cdbcsrsDBClusterSnapshot (\ s a -> s{_cdbcsrsDBClusterSnapshot = a});@@ -150,4 +154,4 @@ cdbcsrsResponseStatus :: Lens' CreateDBClusterSnapshotResponse Int cdbcsrsResponseStatus = lens _cdbcsrsResponseStatus (\ s a -> s{_cdbcsrsResponseStatus = a}); -instance NFData CreateDBClusterSnapshotResponse+instance NFData CreateDBClusterSnapshotResponse where
gen/Network/AWS/RDS/CreateDBInstance.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.CreateDBInstance--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,11 +45,13 @@     , cdiLicenseModel     , cdiPreferredMaintenanceWindow     , cdiCharacterSetName+    , cdiEnablePerformanceInsights     , cdiKMSKeyId     , cdiDBParameterGroupName     , cdiPreferredBackupWindow     , cdiAvailabilityZone     , cdiBackupRetentionPeriod+    , cdiPerformanceInsightsKMSKeyId     , cdiVPCSecurityGroupIds     , cdiMultiAZ     , cdiAllocatedStorage@@ -60,6 +62,7 @@     , cdiDomainIAMRoleName     , cdiTags     , cdiPort+    , cdiEnableIAMDatabaseAuthentication     , cdiStorageType     , cdiDBName     , cdiDBInstanceIdentifier@@ -74,12 +77,12 @@     , cdirsResponseStatus     ) 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+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  -- | --@@ -87,69 +90,73 @@ -- -- /See:/ 'createDBInstance' smart constructor. data CreateDBInstance = CreateDBInstance'-    { _cdiEngineVersion              :: !(Maybe Text)-    , _cdiDBSecurityGroups           :: !(Maybe [Text])-    , _cdiStorageEncrypted           :: !(Maybe Bool)-    , _cdiDBClusterIdentifier        :: !(Maybe Text)-    , _cdiMasterUserPassword         :: !(Maybe Text)-    , _cdiPubliclyAccessible         :: !(Maybe Bool)-    , _cdiAutoMinorVersionUpgrade    :: !(Maybe Bool)-    , _cdiMasterUsername             :: !(Maybe Text)-    , _cdiDBSubnetGroupName          :: !(Maybe Text)-    , _cdiMonitoringRoleARN          :: !(Maybe Text)-    , _cdiIOPS                       :: !(Maybe Int)-    , _cdiDomain                     :: !(Maybe Text)-    , _cdiMonitoringInterval         :: !(Maybe Int)-    , _cdiTDECredentialPassword      :: !(Maybe Text)-    , _cdiPromotionTier              :: !(Maybe Int)-    , _cdiLicenseModel               :: !(Maybe Text)-    , _cdiPreferredMaintenanceWindow :: !(Maybe Text)-    , _cdiCharacterSetName           :: !(Maybe Text)-    , _cdiKMSKeyId                   :: !(Maybe Text)-    , _cdiDBParameterGroupName       :: !(Maybe Text)-    , _cdiPreferredBackupWindow      :: !(Maybe Text)-    , _cdiAvailabilityZone           :: !(Maybe Text)-    , _cdiBackupRetentionPeriod      :: !(Maybe Int)-    , _cdiVPCSecurityGroupIds        :: !(Maybe [Text])-    , _cdiMultiAZ                    :: !(Maybe Bool)-    , _cdiAllocatedStorage           :: !(Maybe Int)-    , _cdiOptionGroupName            :: !(Maybe Text)-    , _cdiCopyTagsToSnapshot         :: !(Maybe Bool)-    , _cdiTimezone                   :: !(Maybe Text)-    , _cdiTDECredentialARN           :: !(Maybe Text)-    , _cdiDomainIAMRoleName          :: !(Maybe Text)-    , _cdiTags                       :: !(Maybe [Tag])-    , _cdiPort                       :: !(Maybe Int)-    , _cdiStorageType                :: !(Maybe Text)-    , _cdiDBName                     :: !(Maybe Text)-    , _cdiDBInstanceIdentifier       :: !Text-    , _cdiDBInstanceClass            :: !Text-    , _cdiEngine                     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdiEngineVersion                   :: !(Maybe Text)+  , _cdiDBSecurityGroups                :: !(Maybe [Text])+  , _cdiStorageEncrypted                :: !(Maybe Bool)+  , _cdiDBClusterIdentifier             :: !(Maybe Text)+  , _cdiMasterUserPassword              :: !(Maybe Text)+  , _cdiPubliclyAccessible              :: !(Maybe Bool)+  , _cdiAutoMinorVersionUpgrade         :: !(Maybe Bool)+  , _cdiMasterUsername                  :: !(Maybe Text)+  , _cdiDBSubnetGroupName               :: !(Maybe Text)+  , _cdiMonitoringRoleARN               :: !(Maybe Text)+  , _cdiIOPS                            :: !(Maybe Int)+  , _cdiDomain                          :: !(Maybe Text)+  , _cdiMonitoringInterval              :: !(Maybe Int)+  , _cdiTDECredentialPassword           :: !(Maybe Text)+  , _cdiPromotionTier                   :: !(Maybe Int)+  , _cdiLicenseModel                    :: !(Maybe Text)+  , _cdiPreferredMaintenanceWindow      :: !(Maybe Text)+  , _cdiCharacterSetName                :: !(Maybe Text)+  , _cdiEnablePerformanceInsights       :: !(Maybe Bool)+  , _cdiKMSKeyId                        :: !(Maybe Text)+  , _cdiDBParameterGroupName            :: !(Maybe Text)+  , _cdiPreferredBackupWindow           :: !(Maybe Text)+  , _cdiAvailabilityZone                :: !(Maybe Text)+  , _cdiBackupRetentionPeriod           :: !(Maybe Int)+  , _cdiPerformanceInsightsKMSKeyId     :: !(Maybe Text)+  , _cdiVPCSecurityGroupIds             :: !(Maybe [Text])+  , _cdiMultiAZ                         :: !(Maybe Bool)+  , _cdiAllocatedStorage                :: !(Maybe Int)+  , _cdiOptionGroupName                 :: !(Maybe Text)+  , _cdiCopyTagsToSnapshot              :: !(Maybe Bool)+  , _cdiTimezone                        :: !(Maybe Text)+  , _cdiTDECredentialARN                :: !(Maybe Text)+  , _cdiDomainIAMRoleName               :: !(Maybe Text)+  , _cdiTags                            :: !(Maybe [Tag])+  , _cdiPort                            :: !(Maybe Int)+  , _cdiEnableIAMDatabaseAuthentication :: !(Maybe Bool)+  , _cdiStorageType                     :: !(Maybe Text)+  , _cdiDBName                          :: !(Maybe Text)+  , _cdiDBInstanceIdentifier            :: !Text+  , _cdiDBInstanceClass                 :: !Text+  , _cdiEngine                          :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBInstance' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdiEngineVersion' - The version number of the database engine to use. 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. __Amazon Aurora__      * __Version 5.6 (available in these 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.1 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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):__ @10.1.14@      * __Version 10.0 (available in all AWS regions):__ @10.0.17 | 10.0.24@  __MySQL__      * __Version 5.7 (available in all AWS regions):__ @5.7.10 | 5.7.11@      * __Version 5.6 (available in all AWS regions):__ @5.6.27 | 5.6.29@      * __Version 5.6 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-west-1, us-west-2):__ @5.6.23@      * __Version 5.6 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-west-1, us-west-2):__ @5.6.19a | 5.6.19b | 5.6.21 | 5.6.21b | 5.6.22@      * __Version 5.5 (available in all AWS regions):__ @5.5.46@      * __Version 5.5 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-west-1, us-west-2):__ @5.5.42@      * __Version 5.5 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-west-1, us-west-2):__ @5.5.40b | 5.5.41@      * __Version 5.5 (available in these 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@  __Oracle Database Enterprise Edition (oracle-ee)__      * __Version 12.1.0.2 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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.2.v5@      * __Version 12.1.0.2 (available in all AWS regions):__ @12.1.0.2.v1 | 12.1.0.2.v2 | 12.1.0.2.v3 | 12.1.0.2.v4@      * __Version 12.1.0.1 (available in these 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.v6@      * __Version 12.1.0.1 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-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.0.1 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-gov-west-1, us-west-1, us-west-2):__ @12.1.0.1.v1 | 12.1.0.1.v2@      * __Version 11.2.0.4 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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):__ @11.2.0.4.v6 | 11.2.0.4.v9@      * __Version 11.2.0.4 (available in all AWS regions):__ @11.2.0.4.v1 | 11.2.0.4.v3 | 11.2.0.4.v4 | 11.2.0.4.v5 | 11.2.0.4.v7 | 11.2.0.4.v8@  __Oracle Database Standard Edition Two (oracle-se2)__      * __Version 12.1.0.2 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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.2.v5@      * __Version 12.1.0.2 (available in all AWS regions):__ @12.1.0.2.v2 | 12.1.0.2.v3 | 12.1.0.2.v4@  __Oracle Database Standard Edition One (oracle-se1)__      * __Version 12.1.0.1 (available in these 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.v6@      * __Version 12.1.0.1 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-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.0.1 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-gov-west-1, us-west-1, us-west-2):__ @12.1.0.1.v1 | 12.1.0.1.v2@      * __Version 11.2.0.4 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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):__ @11.2.0.4.v6 | 11.2.0.4.v9@      * __Version 11.2.0.4 (available in all AWS regions):__ @11.2.0.4.v1 | 11.2.0.4.v3 | 11.2.0.4.v4 | 11.2.0.4.v5 | 11.2.0.4.v7 | 11.2.0.4.v8@  __Oracle Database Standard Edition (oracle-se)__      * __Version 12.1.0.1 (available in these 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.v6@      * __Version 12.1.0.1 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-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.0.1 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-gov-west-1, us-west-1, us-west-2):__ @12.1.0.1.v1 | 12.1.0.1.v2@      * __Version 11.2.0.4 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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):__ @11.2.0.4.v6 | 11.2.0.4.v9@      * __Version 11.2.0.4 (available in all AWS regions):__ @11.2.0.4.v1 | 11.2.0.4.v3 | 11.2.0.4.v4 | 11.2.0.4.v5 | 11.2.0.4.v7 | 11.2.0.4.v8@  __PostgreSQL__      * __Version 9.5 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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.5.2 | 9.5.4@      * __Version 9.4 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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.4.7 | 9.4.9@      * __Version 9.4 (available in all AWS regions):__ @9.4.5@      * __Version 9.4 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-west-1, us-west-2):__ @9.4.1 | 9.4.4@      * __Version 9.3 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-west-1, us-west-2):__ @9.3.10 | 9.3.3 | 9.3.5 | 9.3.6 | 9.3.9@      * __Version 9.3 (available in these 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 these 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 | 9.3.14@  __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@+-- * 'cdiEngineVersion' - The version number of the database engine to use. 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. __Amazon Aurora__  Not applicable. The version number of the database engine to be used by the DB instance is managed by the DB cluster. For more information, see 'CreateDBCluster' . __MariaDB__      * @10.1.23@ (supported in all AWS regions)     * @10.1.19@ (supported in all AWS regions)     * @10.1.14@ (supported in all regions except us-east-2)     * @10.0.31@ (supported in all AWS regions)     * @10.0.28@ (supported in all AWS regions)     * @10.0.24@ (supported in all AWS regions)     * @10.0.17@ (supported in all regions except us-east-2, ca-central-1, eu-west-2) __Microsoft SQL Server 2016__      * @13.00.4422.0.v1@ (supported for all editions, and all AWS regions)     * @13.00.2164.0.v1@ (supported for all editions, and all AWS regions) __Microsoft SQL Server 2014__      * @12.00.5546.0.v1@ (supported for all editions, and all AWS regions)     * @12.00.5000.0.v1@ (supported for all editions, and all AWS regions)     * @12.00.4422.0.v1@ (supported for all editions except Enterprise Edition, and all AWS regions except ca-central-1 and eu-west-2) __Microsoft SQL Server 2012__      * @11.00.6594.0.v1@ (supported for all editions, and all AWS regions)     * @11.00.6020.0.v1@ (supported for all editions, and all AWS regions)     * @11.00.5058.0.v1@ (supported for all editions, and all AWS regions except us-east-2, ca-central-1, and eu-west-2)     * @11.00.2100.60.v1@ (supported for all editions, and all AWS regions except us-east-2, ca-central-1, and eu-west-2) __Microsoft SQL Server 2008 R2__      * @10.50.6529.0.v1@ (supported for all editions, and all AWS regions except us-east-2, ca-central-1, and eu-west-2)     * @10.50.6000.34.v1@ (supported for all editions, and all AWS regions except us-east-2, ca-central-1, and eu-west-2)     * @10.50.2789.0.v1@ (supported for all editions, and all AWS regions except us-east-2, ca-central-1, and eu-west-2) __MySQL__      * @5.7.19@ (supported in all AWS regions)     * @5.7.17@ (supported in all AWS regions)     * @5.7.16@ (supported in all AWS regions)     * @5.7.11@ (supported in all AWS regions)     * @5.6.37@ (supported in all AWS regions)     * @5.6.35@ (supported in all AWS regions)     * @5.6.34@ (supported in all AWS regions)     * @5.6.29@ (supported in all AWS regions)     * @5.6.27@ (supported in all regions except us-east-2, ca-central-1, eu-west-2)     * @5.5.57@ (supported in all AWS regions)     * @5.5.54@ (supported in all AWS regions)     * @5.5.53@ (supported in all AWS regions)     * @5.5.46@ (supported in all AWS regions) __Oracle 12c__      * @12.1.0.2.v9@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v8@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v7@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v6@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v5@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v4@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v3@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v2@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v1@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1) __Oracle 11g__      * @11.2.0.4.v13@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v12@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v11@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v10@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v9@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v8@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v7@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v6@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v5@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v4@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v3@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v1@ (supported for EE, SE1, and SE, in all AWS regions) __PostgreSQL__      * __Version 9.6.x:__ @9.6.5 | 9.6.3 | 9.6.2 | 9.6.1@      * __Version 9.5.x:__ @9.5.9 | 9.5.7 | 9.5.6 | 9.5.4 | 9.5.2@      * __Version 9.4.x:__ @9.4.14 | 9.4.12 | 9.4.11 | 9.4.9 | 9.4.7@      * __Version 9.3.x:__ @9.3.19 | 9.3.17 | 9.3.16 | 9.3.14 | 9.3.12@ -- -- * 'cdiDBSecurityGroups' - A list of DB security groups to associate with this DB instance. Default: The default DB security group for the database engine. ----- * 'cdiStorageEncrypted' - Specifies whether the DB instance is encrypted. Default: false+-- * 'cdiStorageEncrypted' - Specifies whether the DB instance is encrypted. __Amazon Aurora__  Not applicable. The encryption for DB instances is managed by the DB cluster. For more information, see 'CreateDBCluster' . Default: false -- -- * 'cdiDBClusterIdentifier' - The identifier of the DB cluster that the instance will belong to. For information on creating a DB cluster, see 'CreateDBCluster' . Type: String ----- * 'cdiMasterUserPassword' - The password for the master database user. Can be any printable ASCII character except "/", """, or "@". Type: String __MySQL__  Constraints: Must contain from 8 to 41 characters. __MariaDB__  Constraints: Must contain from 8 to 41 characters. __Oracle__  Constraints: Must contain from 8 to 30 characters. __SQL Server__  Constraints: Must contain from 8 to 128 characters. __PostgreSQL__  Constraints: Must contain from 8 to 128 characters. __Amazon Aurora__  Constraints: Must contain from 8 to 41 characters.+-- * 'cdiMasterUserPassword' - The password for the master user. Can be any printable ASCII character except "/", """, or "@". __Amazon Aurora__  Not applicable. The password for the master user is managed by the DB cluster. For more information, see 'CreateDBCluster' . __MariaDB__  Constraints: Must contain from 8 to 41 characters. __Microsoft SQL Server__  Constraints: Must contain from 8 to 128 characters. __MySQL__  Constraints: Must contain from 8 to 41 characters. __Oracle__  Constraints: Must contain from 8 to 30 characters. __PostgreSQL__  Constraints: Must contain from 8 to 128 characters. ----- * 'cdiPubliclyAccessible' - Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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.+-- * 'cdiPubliclyAccessible' - Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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 is 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 is private. ----- * 'cdiAutoMinorVersionUpgrade' - Indicates that minor engine upgrades will be applied automatically to the DB instance during the maintenance window. Default: @true@+-- * 'cdiAutoMinorVersionUpgrade' - Indicates that minor engine upgrades are applied automatically to the DB instance during the maintenance window. Default: @true@ ----- * 'cdiMasterUsername' - The name of master user for the client DB instance. __MySQL__  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__  Constraints:     * Must be 1 to 16 alphanumeric characters.     * Cannot be a reserved word for the chosen database engine. Type: String __Oracle__  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__  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__  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' - The name for the master user. __Amazon Aurora__  Not applicable. The name for the master user is managed by the DB cluster. For more information, see 'CreateDBCluster' .  __MariaDB__  Constraints:     * Required for MariaDB.     * Must be 1 to 16 letters or numbers.     * Cannot be a reserved word for the chosen database engine. __Microsoft SQL Server__  Constraints:     * Required for SQL Server.     * Must be 1 to 128 letters or numbers.     * The first character must be a letter.     * Cannot be a reserved word for the chosen database engine. __MySQL__  Constraints:     * Required for MySQL.     * Must be 1 to 16 letters or numbers.     * First character must be a letter.     * Cannot be a reserved word for the chosen database engine. __Oracle__  Constraints:     * Required for Oracle.     * Must be 1 to 30 letters or numbers.     * First character must be a letter.     * Cannot be a reserved word for the chosen database engine. __PostgreSQL__  Constraints:     * Required for PostgreSQL.     * Must be 1 to 63 letters or numbers.     * First character must be a letter.     * Cannot be a reserved word for the chosen database engine. -- -- * 'cdiDBSubnetGroupName' - A DB subnet group to associate with this DB instance. If there is no DB subnet group, then it is a non-VPC DB instance. ----- * 'cdiMonitoringRoleARN' - 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.+-- * 'cdiMonitoringRoleARN' - 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.OS.html#USER_Monitoring.OS.Enabling Setting Up and Enabling Enhanced Monitoring> . If @MonitoringInterval@ is set to a value other than 0, then you must supply a @MonitoringRoleArn@ value. -- -- * 'cdiIOPS' - The amount of Provisioned IOPS (input/output operations per second) to be initially allocated for the DB instance. Constraints: Must be a multiple between 3 and 10 of the storage amount for the DB instance. Must also be an integer multiple of 1000. For example, if the size of your DB instance is 500 GB, then your @Iops@ value can be 2000, 3000, 4000, or 5000. --@@ -163,25 +170,29 @@ -- -- * 'cdiLicenseModel' - License model information for this DB instance. Valid values: @license-included@ | @bring-your-own-license@ | @general-public-license@ ----- * 'cdiPreferredMaintenanceWindow' - The weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC). For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.DBMaintenance.html DB Instance Maintenance> .  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.+-- * 'cdiPreferredMaintenanceWindow' - The weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC). For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.DBMaintenance.html DB Instance Maintenance> .  Format: @ddd:hh24:mi-ddd:hh24:mi@  Default: A 30-minute window selected at random from an 8-hour block of time per AWS 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. ----- * 'cdiCharacterSetName' - For supported engines, indicates that the DB instance should be associated with the specified CharacterSet.+-- * 'cdiCharacterSetName' - For supported engines, indicates that the DB instance should be associated with the specified CharacterSet. __Amazon Aurora__  Not applicable. The character set is managed by the DB cluster. For more information, see 'CreateDBCluster' . ----- * 'cdiKMSKeyId' - The KMS key identifier for an encrypted DB instance. The KMS key identifier is the Amazon Resource Name (ARN) for the KMS encryption key. If you are creating a DB instance with the same AWS account that owns the KMS encryption key used to encrypt the new DB instance, 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.+-- * 'cdiEnablePerformanceInsights' - True to enable Performance Insights for the DB instance; otherwise false. ----- * 'cdiDBParameterGroupName' - The name of the DB parameter group to associate with this DB instance. If this argument is omitted, the default DBParameterGroup for the specified engine 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+-- * 'cdiKMSKeyId' - The KMS key identifier for an encrypted DB instance. The KMS key identifier is the Amazon Resource Name (ARN) for the KMS encryption key. If you are creating a DB instance with the same AWS account that owns the KMS encryption key used to encrypt the new DB instance, then you can use the KMS key alias instead of the ARN for the KM encryption key. __Amazon Aurora__  Not applicable. The KMS key identifier is managed by the DB cluster. For more information, see 'CreateDBCluster' . 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. ----- * 'cdiPreferredBackupWindow' - The daily time range during which automated backups are created if automated backups are enabled, using the @BackupRetentionPeriod@ parameter. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Overview.BackingUpAndRestoringAmazonRDSInstances.html DB Instance Backups> .  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.+-- * 'cdiDBParameterGroupName' - The name of the DB parameter group to associate with this DB instance. If this argument is omitted, the default DBParameterGroup for the specified engine is used. Constraints:     * Must be 1 to 255 letters, numbers, or hyphens.     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens ----- * 'cdiAvailabilityZone' - The EC2 Availability Zone that the database instance will be created in. For information on regions and Availability Zones, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.RegionsAndAvailabilityZones.html Regions and Availability Zones> .  Default: A random, system-chosen Availability Zone in the endpoint's region. Example: @us-east-1d@  Constraint: The AvailabilityZone parameter cannot be specified if the MultiAZ parameter is set to @true@ . The specified Availability Zone must be in the same region as the current endpoint.+-- * 'cdiPreferredBackupWindow' - The daily time range during which automated backups are created if automated backups are enabled, using the @BackupRetentionPeriod@ parameter. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Overview.BackingUpAndRestoringAmazonRDSInstances.html DB Instance Backups> .  __Amazon Aurora__  Not applicable. The daily time range for creating automated backups is managed by the DB cluster. For more information, see 'CreateDBCluster' . Default: A 30-minute window selected at random from an 8-hour block of time per AWS Region. To see the time blocks available, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_UpgradeDBInstance.Maintenance.html#AdjustingTheMaintenanceWindow Adjusting the Preferred DB Instance Maintenance Window> .  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. ----- * 'cdiBackupRetentionPeriod' - The number of days for which automated backups are retained. Setting this parameter to a positive number enables backups. Setting this parameter to 0 disables automated backups. Default: 1 Constraints:     * Must be a value from 0 to 35     * Cannot be set to 0 if the DB instance is a source to Read Replicas+-- * 'cdiAvailabilityZone' - The EC2 Availability Zone that the database instance is created in. For information on regions and Availability Zones, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.RegionsAndAvailabilityZones.html Regions and Availability Zones> .  Default: A random, system-chosen Availability Zone in the endpoint's AWS Region. Example: @us-east-1d@  Constraint: The AvailabilityZone parameter cannot be specified if the MultiAZ parameter is set to @true@ . The specified Availability Zone must be in the same AWS Region as the current endpoint. ----- * 'cdiVPCSecurityGroupIds' - A list of EC2 VPC security groups to associate with this DB instance. Default: The default EC2 VPC security group for the DB subnet group's VPC.+-- * 'cdiBackupRetentionPeriod' - The number of days for which automated backups are retained. Setting this parameter to a positive number enables backups. Setting this parameter to 0 disables automated backups. __Amazon Aurora__  Not applicable. The retention period for automated backups is managed by the DB cluster. For more information, see 'CreateDBCluster' . Default: 1 Constraints:     * Must be a value from 0 to 35     * Cannot be set to 0 if the DB instance is a source to Read Replicas --+-- * 'cdiPerformanceInsightsKMSKeyId' - The KMS key identifier for encryption of Performance Insights data. The KMS key ID is the Amazon Resource Name (ARN), KMS key identifier, or the KMS key alias for the KMS encryption key.+--+-- * 'cdiVPCSecurityGroupIds' - A list of EC2 VPC security groups to associate with this DB instance. __Amazon Aurora__  Not applicable. The associated list of EC2 VPC security groups is managed by the DB cluster. For more information, see 'CreateDBCluster' . Default: The default EC2 VPC security group for the DB subnet group's VPC.+-- -- * 'cdiMultiAZ' - Specifies if the DB instance is a Multi-AZ deployment. You cannot set the AvailabilityZone parameter if the MultiAZ parameter is set to true. ----- * 'cdiAllocatedStorage' - The amount of storage (in gigabytes) to be initially allocated for the database instance. Type: Integer __MySQL__  Constraints: Must be an integer from 5 to 6144. __MariaDB__  Constraints: Must be an integer from 5 to 6144. __PostgreSQL__  Constraints: Must be an integer from 5 to 6144. __Oracle__  Constraints: Must be an integer from 10 to 6144. __SQL Server__  Constraints: Must be an integer from 200 to 4096 (Standard Edition and Enterprise Edition) or from 20 to 4096 (Express Edition and Web Edition)+-- * 'cdiAllocatedStorage' - The amount of storage (in gigabytes) to be initially allocated for the database instance. Type: Integer __Amazon Aurora__  Not applicable. Aurora cluster volumes automatically grow as the amount of data in your database increases, though you are only charged for the space that you use in an Aurora cluster volume. __MySQL__  Constraints to the amount of storage for each storage type are the following:      * General Purpose (SSD) storage (gp2): Must be an integer from 5 to 6144.     * Provisioned IOPS storage (io1): Must be an integer from 100 to 6144.     * Magnetic storage (standard): Must be an integer from 5 to 3072. __MariaDB__  Constraints to the amount of storage for each storage type are the following:      * General Purpose (SSD) storage (gp2): Must be an integer from 5 to 6144.     * Provisioned IOPS storage (io1): Must be an integer from 100 to 6144.     * Magnetic storage (standard): Must be an integer from 5 to 3072. __PostgreSQL__  Constraints to the amount of storage for each storage type are the following:      * General Purpose (SSD) storage (gp2): Must be an integer from 5 to 6144.     * Provisioned IOPS storage (io1): Must be an integer from 100 to 6144.     * Magnetic storage (standard): Must be an integer from 5 to 3072. __Oracle__  Constraints to the amount of storage for each storage type are the following:      * General Purpose (SSD) storage (gp2): Must be an integer from 10 to 6144.     * Provisioned IOPS storage (io1): Must be an integer from 100 to 6144.     * Magnetic storage (standard): Must be an integer from 10 to 3072. __SQL Server__  Constraints to the amount of storage for each storage type are the following:      * General Purpose (SSD) storage (gp2):     * Enterprise and Standard editions: Must be an integer from 200 to 16384.     * Web and Express editions: Must be an integer from 20 to 16384.     * Provisioned IOPS storage (io1):     * Enterprise and Standard editions: Must be an integer from 200 to 16384.     * Web and Express editions: Must be an integer from 100 to 16384.     * Magnetic storage (standard):     * Enterprise and Standard editions: Must be an integer from 200 to 1024.     * Web and Express editions: Must be an integer from 20 to 1024. -- -- * 'cdiOptionGroupName' - Indicates that the DB instance should be associated with the specified option group. Permanent options, such as the TDE option for Oracle Advanced Security TDE, cannot be removed from an option group, and that option group cannot be removed from a DB instance once it is associated with a DB instance --@@ -197,63 +208,69 @@ -- -- * 'cdiPort' - The port number on which the database accepts connections. __MySQL__  Default: @3306@  Valid Values: @1150-65535@  Type: Integer __MariaDB__  Default: @3306@  Valid Values: @1150-65535@  Type: Integer __PostgreSQL__  Default: @5432@  Valid Values: @1150-65535@  Type: Integer __Oracle__  Default: @1521@  Valid Values: @1150-65535@  __SQL Server__  Default: @1433@  Valid Values: @1150-65535@ except for @1434@ , @3389@ , @47001@ , @49152@ , and @49152@ through @49156@ .  __Amazon Aurora__  Default: @3306@  Valid Values: @1150-65535@  Type: Integer --+-- * 'cdiEnableIAMDatabaseAuthentication' - True to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts; otherwise false.  You can enable IAM database authentication for the following database engines: __Amazon Aurora__  Not applicable. Mapping AWS IAM accounts to database accounts is managed by the DB cluster. For more information, see 'CreateDBCluster' . __MySQL__      * For MySQL 5.6, minor version 5.6.34 or higher     * For MySQL 5.7, minor version 5.7.16 or higher Default: @false@+-- -- * 'cdiStorageType' - Specifies the storage type to be associated with the DB instance. Valid values: @standard | gp2 | io1@  If you specify @io1@ , you must also include a value for the @Iops@ parameter.  Default: @io1@ if the @Iops@ parameter is specified; otherwise @standard@ ----- * 'cdiDBName' - The meaning of this parameter differs according to the database engine you use. Type: String __MySQL__  The name of the database to create when the DB instance is created. If this parameter is not specified, no database is created in the DB instance. Constraints:     * Must contain 1 to 64 alphanumeric characters     * Cannot be a word reserved by the specified database engine __MariaDB__  The name of the database to create when the DB instance is created. If this parameter is not specified, no database is created in the DB instance. Constraints:     * Must contain 1 to 64 alphanumeric characters     * Cannot be a word reserved by the specified database engine __PostgreSQL__  The name of the database to create when the DB instance is created. If this parameter is not specified, the default "postgres" database is created in the DB instance. 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__  The Oracle System ID (SID) of the created DB instance. Default: @ORCL@  Constraints:     * Cannot be longer than 8 characters __SQL Server__  Not applicable. Must be null. __Amazon Aurora__  The name of the database to create when the primary instance of the DB cluster is created. If this parameter is not specified, no database is created in the DB instance. Constraints:     * Must contain 1 to 64 alphanumeric characters     * Cannot be a word reserved by the specified database engine+-- * 'cdiDBName' - The meaning of this parameter differs according to the database engine you use. Type: String __MySQL__  The name of the database to create when the DB instance is created. If this parameter is not specified, no database is created in the DB instance. Constraints:     * Must contain 1 to 64 letters or numbers.     * Cannot be a word reserved by the specified database engine __MariaDB__  The name of the database to create when the DB instance is created. If this parameter is not specified, no database is created in the DB instance. Constraints:     * Must contain 1 to 64 letters or numbers.     * Cannot be a word reserved by the specified database engine __PostgreSQL__  The name of the database to create when the DB instance is created. If this parameter is not specified, the default "postgres" database is created in the DB instance. Constraints:     * Must contain 1 to 63 letters, numbers, or underscores.     * 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__  The Oracle System ID (SID) of the created DB instance. If you specify @null@ , the default value @ORCL@ is used. You can't specify the string NULL, or any other reserved word, for @DBName@ .  Default: @ORCL@  Constraints:     * Cannot be longer than 8 characters __SQL Server__  Not applicable. Must be null. __Amazon Aurora__  The name of the database to create when the primary instance of the DB cluster is created. If this parameter is not specified, no database is created in the DB instance. Constraints:     * Must contain 1 to 64 letters or numbers.     * Cannot be a word reserved by the specified database engine ----- * 'cdiDBInstanceIdentifier' - The DB instance identifier. This parameter is stored as a lowercase string. 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@+-- * 'cdiDBInstanceIdentifier' - The DB instance identifier. This parameter is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 letters, numbers, or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @mydbinstance@ ----- * 'cdiDBInstanceClass' - The compute and memory capacity of the DB instance. Valid Values: @db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.xlarge |db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.m4.large | db.m4.xlarge | db.m4.2xlarge | db.m4.4xlarge | db.m4.10xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large@+-- * 'cdiDBInstanceClass' - The compute and memory capacity of the DB instance, for example, @db.m4.large@ . Not all DB instance classes are available in all regions, or for all database engines. For the full list of DB instance classes, and availability for your engine, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.DBInstanceClass.html DB Instance Class> in the Amazon RDS User Guide. ----- * 'cdiEngine' - The name of the database engine to be used for this instance. Valid Values: @mysql@ | @mariadb@ | @oracle-se1@ | @oracle-se2@ | @oracle-se@ | @oracle-ee@ | @sqlserver-ee@ | @sqlserver-se@ | @sqlserver-ex@ | @sqlserver-web@ | @postgres@ | @aurora@  Not every database engine is available for every AWS region.+-- * 'cdiEngine' - The name of the database engine to be used for this instance.  Not every database engine is available for every AWS Region.  Valid Values:      * @aurora@      * @mariadb@      * @mysql@      * @oracle-ee@      * @oracle-se2@      * @oracle-se1@      * @oracle-se@      * @postgres@      * @sqlserver-ee@      * @sqlserver-se@      * @sqlserver-ex@      * @sqlserver-web@ createDBInstance     :: Text -- ^ 'cdiDBInstanceIdentifier'     -> Text -- ^ 'cdiDBInstanceClass'     -> Text -- ^ 'cdiEngine'     -> CreateDBInstance createDBInstance pDBInstanceIdentifier_ pDBInstanceClass_ pEngine_ =-    CreateDBInstance'-    { _cdiEngineVersion = Nothing-    , _cdiDBSecurityGroups = Nothing-    , _cdiStorageEncrypted = Nothing-    , _cdiDBClusterIdentifier = Nothing-    , _cdiMasterUserPassword = Nothing-    , _cdiPubliclyAccessible = Nothing-    , _cdiAutoMinorVersionUpgrade = Nothing-    , _cdiMasterUsername = Nothing-    , _cdiDBSubnetGroupName = Nothing-    , _cdiMonitoringRoleARN = Nothing-    , _cdiIOPS = Nothing-    , _cdiDomain = Nothing-    , _cdiMonitoringInterval = Nothing-    , _cdiTDECredentialPassword = Nothing-    , _cdiPromotionTier = Nothing-    , _cdiLicenseModel = Nothing-    , _cdiPreferredMaintenanceWindow = Nothing-    , _cdiCharacterSetName = Nothing-    , _cdiKMSKeyId = Nothing-    , _cdiDBParameterGroupName = Nothing-    , _cdiPreferredBackupWindow = Nothing-    , _cdiAvailabilityZone = Nothing-    , _cdiBackupRetentionPeriod = Nothing-    , _cdiVPCSecurityGroupIds = Nothing-    , _cdiMultiAZ = Nothing-    , _cdiAllocatedStorage = Nothing-    , _cdiOptionGroupName = Nothing-    , _cdiCopyTagsToSnapshot = Nothing-    , _cdiTimezone = Nothing-    , _cdiTDECredentialARN = Nothing-    , _cdiDomainIAMRoleName = Nothing-    , _cdiTags = Nothing-    , _cdiPort = Nothing-    , _cdiStorageType = Nothing-    , _cdiDBName = Nothing-    , _cdiDBInstanceIdentifier = pDBInstanceIdentifier_-    , _cdiDBInstanceClass = pDBInstanceClass_-    , _cdiEngine = pEngine_-    }+  CreateDBInstance'+  { _cdiEngineVersion = Nothing+  , _cdiDBSecurityGroups = Nothing+  , _cdiStorageEncrypted = Nothing+  , _cdiDBClusterIdentifier = Nothing+  , _cdiMasterUserPassword = Nothing+  , _cdiPubliclyAccessible = Nothing+  , _cdiAutoMinorVersionUpgrade = Nothing+  , _cdiMasterUsername = Nothing+  , _cdiDBSubnetGroupName = Nothing+  , _cdiMonitoringRoleARN = Nothing+  , _cdiIOPS = Nothing+  , _cdiDomain = Nothing+  , _cdiMonitoringInterval = Nothing+  , _cdiTDECredentialPassword = Nothing+  , _cdiPromotionTier = Nothing+  , _cdiLicenseModel = Nothing+  , _cdiPreferredMaintenanceWindow = Nothing+  , _cdiCharacterSetName = Nothing+  , _cdiEnablePerformanceInsights = Nothing+  , _cdiKMSKeyId = Nothing+  , _cdiDBParameterGroupName = Nothing+  , _cdiPreferredBackupWindow = Nothing+  , _cdiAvailabilityZone = Nothing+  , _cdiBackupRetentionPeriod = Nothing+  , _cdiPerformanceInsightsKMSKeyId = Nothing+  , _cdiVPCSecurityGroupIds = Nothing+  , _cdiMultiAZ = Nothing+  , _cdiAllocatedStorage = Nothing+  , _cdiOptionGroupName = Nothing+  , _cdiCopyTagsToSnapshot = Nothing+  , _cdiTimezone = Nothing+  , _cdiTDECredentialARN = Nothing+  , _cdiDomainIAMRoleName = Nothing+  , _cdiTags = Nothing+  , _cdiPort = Nothing+  , _cdiEnableIAMDatabaseAuthentication = Nothing+  , _cdiStorageType = Nothing+  , _cdiDBName = Nothing+  , _cdiDBInstanceIdentifier = pDBInstanceIdentifier_+  , _cdiDBInstanceClass = pDBInstanceClass_+  , _cdiEngine = pEngine_+  } --- | The version number of the database engine to use. 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. __Amazon Aurora__      * __Version 5.6 (available in these 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.1 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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):__ @10.1.14@      * __Version 10.0 (available in all AWS regions):__ @10.0.17 | 10.0.24@  __MySQL__      * __Version 5.7 (available in all AWS regions):__ @5.7.10 | 5.7.11@      * __Version 5.6 (available in all AWS regions):__ @5.6.27 | 5.6.29@      * __Version 5.6 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-west-1, us-west-2):__ @5.6.23@      * __Version 5.6 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-west-1, us-west-2):__ @5.6.19a | 5.6.19b | 5.6.21 | 5.6.21b | 5.6.22@      * __Version 5.5 (available in all AWS regions):__ @5.5.46@      * __Version 5.5 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-west-1, us-west-2):__ @5.5.42@      * __Version 5.5 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-west-1, us-west-2):__ @5.5.40b | 5.5.41@      * __Version 5.5 (available in these 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@  __Oracle Database Enterprise Edition (oracle-ee)__      * __Version 12.1.0.2 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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.2.v5@      * __Version 12.1.0.2 (available in all AWS regions):__ @12.1.0.2.v1 | 12.1.0.2.v2 | 12.1.0.2.v3 | 12.1.0.2.v4@      * __Version 12.1.0.1 (available in these 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.v6@      * __Version 12.1.0.1 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-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.0.1 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-gov-west-1, us-west-1, us-west-2):__ @12.1.0.1.v1 | 12.1.0.1.v2@      * __Version 11.2.0.4 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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):__ @11.2.0.4.v6 | 11.2.0.4.v9@      * __Version 11.2.0.4 (available in all AWS regions):__ @11.2.0.4.v1 | 11.2.0.4.v3 | 11.2.0.4.v4 | 11.2.0.4.v5 | 11.2.0.4.v7 | 11.2.0.4.v8@  __Oracle Database Standard Edition Two (oracle-se2)__      * __Version 12.1.0.2 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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.2.v5@      * __Version 12.1.0.2 (available in all AWS regions):__ @12.1.0.2.v2 | 12.1.0.2.v3 | 12.1.0.2.v4@  __Oracle Database Standard Edition One (oracle-se1)__      * __Version 12.1.0.1 (available in these 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.v6@      * __Version 12.1.0.1 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-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.0.1 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-gov-west-1, us-west-1, us-west-2):__ @12.1.0.1.v1 | 12.1.0.1.v2@      * __Version 11.2.0.4 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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):__ @11.2.0.4.v6 | 11.2.0.4.v9@      * __Version 11.2.0.4 (available in all AWS regions):__ @11.2.0.4.v1 | 11.2.0.4.v3 | 11.2.0.4.v4 | 11.2.0.4.v5 | 11.2.0.4.v7 | 11.2.0.4.v8@  __Oracle Database Standard Edition (oracle-se)__      * __Version 12.1.0.1 (available in these 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.v6@      * __Version 12.1.0.1 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-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.0.1 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-gov-west-1, us-west-1, us-west-2):__ @12.1.0.1.v1 | 12.1.0.1.v2@      * __Version 11.2.0.4 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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):__ @11.2.0.4.v6 | 11.2.0.4.v9@      * __Version 11.2.0.4 (available in all AWS regions):__ @11.2.0.4.v1 | 11.2.0.4.v3 | 11.2.0.4.v4 | 11.2.0.4.v5 | 11.2.0.4.v7 | 11.2.0.4.v8@  __PostgreSQL__      * __Version 9.5 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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.5.2 | 9.5.4@      * __Version 9.4 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-south-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.4.7 | 9.4.9@      * __Version 9.4 (available in all AWS regions):__ @9.4.5@      * __Version 9.4 (available in these AWS regions: ap-northeast-1, ap-northeast-2, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-west-1, us-west-2):__ @9.4.1 | 9.4.4@      * __Version 9.3 (available in these AWS regions: ap-northeast-1, ap-southeast-1, ap-southeast-2, eu-central-1, eu-west-1, sa-east-1, us-east-1, us-gov-west-1, us-west-1, us-west-2):__ @9.3.10 | 9.3.3 | 9.3.5 | 9.3.6 | 9.3.9@      * __Version 9.3 (available in these 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 these 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 | 9.3.14@  __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@++-- | The version number of the database engine to use. 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. __Amazon Aurora__  Not applicable. The version number of the database engine to be used by the DB instance is managed by the DB cluster. For more information, see 'CreateDBCluster' . __MariaDB__      * @10.1.23@ (supported in all AWS regions)     * @10.1.19@ (supported in all AWS regions)     * @10.1.14@ (supported in all regions except us-east-2)     * @10.0.31@ (supported in all AWS regions)     * @10.0.28@ (supported in all AWS regions)     * @10.0.24@ (supported in all AWS regions)     * @10.0.17@ (supported in all regions except us-east-2, ca-central-1, eu-west-2) __Microsoft SQL Server 2016__      * @13.00.4422.0.v1@ (supported for all editions, and all AWS regions)     * @13.00.2164.0.v1@ (supported for all editions, and all AWS regions) __Microsoft SQL Server 2014__      * @12.00.5546.0.v1@ (supported for all editions, and all AWS regions)     * @12.00.5000.0.v1@ (supported for all editions, and all AWS regions)     * @12.00.4422.0.v1@ (supported for all editions except Enterprise Edition, and all AWS regions except ca-central-1 and eu-west-2) __Microsoft SQL Server 2012__      * @11.00.6594.0.v1@ (supported for all editions, and all AWS regions)     * @11.00.6020.0.v1@ (supported for all editions, and all AWS regions)     * @11.00.5058.0.v1@ (supported for all editions, and all AWS regions except us-east-2, ca-central-1, and eu-west-2)     * @11.00.2100.60.v1@ (supported for all editions, and all AWS regions except us-east-2, ca-central-1, and eu-west-2) __Microsoft SQL Server 2008 R2__      * @10.50.6529.0.v1@ (supported for all editions, and all AWS regions except us-east-2, ca-central-1, and eu-west-2)     * @10.50.6000.34.v1@ (supported for all editions, and all AWS regions except us-east-2, ca-central-1, and eu-west-2)     * @10.50.2789.0.v1@ (supported for all editions, and all AWS regions except us-east-2, ca-central-1, and eu-west-2) __MySQL__      * @5.7.19@ (supported in all AWS regions)     * @5.7.17@ (supported in all AWS regions)     * @5.7.16@ (supported in all AWS regions)     * @5.7.11@ (supported in all AWS regions)     * @5.6.37@ (supported in all AWS regions)     * @5.6.35@ (supported in all AWS regions)     * @5.6.34@ (supported in all AWS regions)     * @5.6.29@ (supported in all AWS regions)     * @5.6.27@ (supported in all regions except us-east-2, ca-central-1, eu-west-2)     * @5.5.57@ (supported in all AWS regions)     * @5.5.54@ (supported in all AWS regions)     * @5.5.53@ (supported in all AWS regions)     * @5.5.46@ (supported in all AWS regions) __Oracle 12c__      * @12.1.0.2.v9@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v8@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v7@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v6@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v5@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v4@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v3@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v2@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1)     * @12.1.0.2.v1@ (supported for EE in all AWS regions, and SE2 in all AWS regions except us-gov-west-1) __Oracle 11g__      * @11.2.0.4.v13@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v12@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v11@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v10@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v9@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v8@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v7@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v6@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v5@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v4@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v3@ (supported for EE, SE1, and SE, in all AWS regions)     * @11.2.0.4.v1@ (supported for EE, SE1, and SE, in all AWS regions) __PostgreSQL__      * __Version 9.6.x:__ @9.6.5 | 9.6.3 | 9.6.2 | 9.6.1@      * __Version 9.5.x:__ @9.5.9 | 9.5.7 | 9.5.6 | 9.5.4 | 9.5.2@      * __Version 9.4.x:__ @9.4.14 | 9.4.12 | 9.4.11 | 9.4.9 | 9.4.7@      * __Version 9.3.x:__ @9.3.19 | 9.3.17 | 9.3.16 | 9.3.14 | 9.3.12@ cdiEngineVersion :: Lens' CreateDBInstance (Maybe Text) cdiEngineVersion = lens _cdiEngineVersion (\ s a -> s{_cdiEngineVersion = a}); @@ -261,7 +278,7 @@ cdiDBSecurityGroups :: Lens' CreateDBInstance [Text] cdiDBSecurityGroups = lens _cdiDBSecurityGroups (\ s a -> s{_cdiDBSecurityGroups = a}) . _Default . _Coerce; --- | Specifies whether the DB instance is encrypted. Default: false+-- | Specifies whether the DB instance is encrypted. __Amazon Aurora__  Not applicable. The encryption for DB instances is managed by the DB cluster. For more information, see 'CreateDBCluster' . Default: false cdiStorageEncrypted :: Lens' CreateDBInstance (Maybe Bool) cdiStorageEncrypted = lens _cdiStorageEncrypted (\ s a -> s{_cdiStorageEncrypted = a}); @@ -269,19 +286,19 @@ cdiDBClusterIdentifier :: Lens' CreateDBInstance (Maybe Text) cdiDBClusterIdentifier = lens _cdiDBClusterIdentifier (\ s a -> s{_cdiDBClusterIdentifier = a}); --- | The password for the master database user. Can be any printable ASCII character except "/", """, or "@". Type: String __MySQL__  Constraints: Must contain from 8 to 41 characters. __MariaDB__  Constraints: Must contain from 8 to 41 characters. __Oracle__  Constraints: Must contain from 8 to 30 characters. __SQL Server__  Constraints: Must contain from 8 to 128 characters. __PostgreSQL__  Constraints: Must contain from 8 to 128 characters. __Amazon Aurora__  Constraints: Must contain from 8 to 41 characters.+-- | The password for the master user. Can be any printable ASCII character except "/", """, or "@". __Amazon Aurora__  Not applicable. The password for the master user is managed by the DB cluster. For more information, see 'CreateDBCluster' . __MariaDB__  Constraints: Must contain from 8 to 41 characters. __Microsoft SQL Server__  Constraints: Must contain from 8 to 128 characters. __MySQL__  Constraints: Must contain from 8 to 41 characters. __Oracle__  Constraints: Must contain from 8 to 30 characters. __PostgreSQL__  Constraints: Must contain from 8 to 128 characters. cdiMasterUserPassword :: Lens' CreateDBInstance (Maybe Text) cdiMasterUserPassword = lens _cdiMasterUserPassword (\ s a -> s{_cdiMasterUserPassword = a}); --- | Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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.+-- | Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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 is 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 is private. cdiPubliclyAccessible :: Lens' CreateDBInstance (Maybe Bool) cdiPubliclyAccessible = lens _cdiPubliclyAccessible (\ s a -> s{_cdiPubliclyAccessible = a}); --- | Indicates that minor engine upgrades will be applied automatically to the DB instance during the maintenance window. Default: @true@+-- | Indicates that minor engine upgrades are applied automatically to the DB instance during the maintenance window. Default: @true@ cdiAutoMinorVersionUpgrade :: Lens' CreateDBInstance (Maybe Bool) cdiAutoMinorVersionUpgrade = lens _cdiAutoMinorVersionUpgrade (\ s a -> s{_cdiAutoMinorVersionUpgrade = a}); --- | The name of master user for the client DB instance. __MySQL__  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__  Constraints:     * Must be 1 to 16 alphanumeric characters.     * Cannot be a reserved word for the chosen database engine. Type: String __Oracle__  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__  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__  Constraints:     * Must be 1 to 63 alphanumeric characters.     * First character must be a letter.     * Cannot be a reserved word for the chosen database engine.+-- | The name for the master user. __Amazon Aurora__  Not applicable. The name for the master user is managed by the DB cluster. For more information, see 'CreateDBCluster' .  __MariaDB__  Constraints:     * Required for MariaDB.     * Must be 1 to 16 letters or numbers.     * Cannot be a reserved word for the chosen database engine. __Microsoft SQL Server__  Constraints:     * Required for SQL Server.     * Must be 1 to 128 letters or numbers.     * The first character must be a letter.     * Cannot be a reserved word for the chosen database engine. __MySQL__  Constraints:     * Required for MySQL.     * Must be 1 to 16 letters or numbers.     * First character must be a letter.     * Cannot be a reserved word for the chosen database engine. __Oracle__  Constraints:     * Required for Oracle.     * Must be 1 to 30 letters or numbers.     * First character must be a letter.     * Cannot be a reserved word for the chosen database engine. __PostgreSQL__  Constraints:     * Required for PostgreSQL.     * Must be 1 to 63 letters or numbers.     * 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}); @@ -289,7 +306,7 @@ cdiDBSubnetGroupName :: Lens' CreateDBInstance (Maybe Text) cdiDBSubnetGroupName = lens _cdiDBSubnetGroupName (\ s a -> s{_cdiDBSubnetGroupName = 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.+-- | 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.OS.html#USER_Monitoring.OS.Enabling Setting Up and Enabling Enhanced Monitoring> . If @MonitoringInterval@ is set to a value other than 0, then you must supply a @MonitoringRoleArn@ value. cdiMonitoringRoleARN :: Lens' CreateDBInstance (Maybe Text) cdiMonitoringRoleARN = lens _cdiMonitoringRoleARN (\ s a -> s{_cdiMonitoringRoleARN = a}); @@ -317,35 +334,43 @@ cdiLicenseModel :: Lens' CreateDBInstance (Maybe Text) cdiLicenseModel = lens _cdiLicenseModel (\ s a -> s{_cdiLicenseModel = a}); --- | The weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC). For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.DBMaintenance.html DB Instance Maintenance> .  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.+-- | The weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC). For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.DBMaintenance.html DB Instance Maintenance> .  Format: @ddd:hh24:mi-ddd:hh24:mi@  Default: A 30-minute window selected at random from an 8-hour block of time per AWS 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. cdiPreferredMaintenanceWindow :: Lens' CreateDBInstance (Maybe Text) cdiPreferredMaintenanceWindow = lens _cdiPreferredMaintenanceWindow (\ s a -> s{_cdiPreferredMaintenanceWindow = a}); --- | For supported engines, indicates that the DB instance should be associated with the specified CharacterSet.+-- | For supported engines, indicates that the DB instance should be associated with the specified CharacterSet. __Amazon Aurora__  Not applicable. The character set is managed by the DB cluster. For more information, see 'CreateDBCluster' . cdiCharacterSetName :: Lens' CreateDBInstance (Maybe Text) cdiCharacterSetName = lens _cdiCharacterSetName (\ s a -> s{_cdiCharacterSetName = a}); --- | The KMS key identifier for an encrypted DB instance. The KMS key identifier is the Amazon Resource Name (ARN) for the KMS encryption key. If you are creating a DB instance with the same AWS account that owns the KMS encryption key used to encrypt the new DB instance, 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.+-- | True to enable Performance Insights for the DB instance; otherwise false.+cdiEnablePerformanceInsights :: Lens' CreateDBInstance (Maybe Bool)+cdiEnablePerformanceInsights = lens _cdiEnablePerformanceInsights (\ s a -> s{_cdiEnablePerformanceInsights = a});++-- | The KMS key identifier for an encrypted DB instance. The KMS key identifier is the Amazon Resource Name (ARN) for the KMS encryption key. If you are creating a DB instance with the same AWS account that owns the KMS encryption key used to encrypt the new DB instance, then you can use the KMS key alias instead of the ARN for the KM encryption key. __Amazon Aurora__  Not applicable. The KMS key identifier is managed by the DB cluster. For more information, see 'CreateDBCluster' . 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. cdiKMSKeyId :: Lens' CreateDBInstance (Maybe Text) cdiKMSKeyId = lens _cdiKMSKeyId (\ s a -> s{_cdiKMSKeyId = a}); --- | The name of the DB parameter group to associate with this DB instance. If this argument is omitted, the default DBParameterGroup for the specified engine 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+-- | The name of the DB parameter group to associate with this DB instance. If this argument is omitted, the default DBParameterGroup for the specified engine is used. Constraints:     * Must be 1 to 255 letters, numbers, or hyphens.     * 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}); --- | The daily time range during which automated backups are created if automated backups are enabled, using the @BackupRetentionPeriod@ parameter. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Overview.BackingUpAndRestoringAmazonRDSInstances.html DB Instance Backups> .  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.+-- | The daily time range during which automated backups are created if automated backups are enabled, using the @BackupRetentionPeriod@ parameter. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Overview.BackingUpAndRestoringAmazonRDSInstances.html DB Instance Backups> .  __Amazon Aurora__  Not applicable. The daily time range for creating automated backups is managed by the DB cluster. For more information, see 'CreateDBCluster' . Default: A 30-minute window selected at random from an 8-hour block of time per AWS Region. To see the time blocks available, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_UpgradeDBInstance.Maintenance.html#AdjustingTheMaintenanceWindow Adjusting the Preferred DB Instance Maintenance Window> .  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}); --- | The EC2 Availability Zone that the database instance will be created in. For information on regions and Availability Zones, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.RegionsAndAvailabilityZones.html Regions and Availability Zones> .  Default: A random, system-chosen Availability Zone in the endpoint's region. Example: @us-east-1d@  Constraint: The AvailabilityZone parameter cannot be specified if the MultiAZ parameter is set to @true@ . The specified Availability Zone must be in the same region as the current endpoint.+-- | The EC2 Availability Zone that the database instance is created in. For information on regions and Availability Zones, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.RegionsAndAvailabilityZones.html Regions and Availability Zones> .  Default: A random, system-chosen Availability Zone in the endpoint's AWS Region. Example: @us-east-1d@  Constraint: The AvailabilityZone parameter cannot be specified if the MultiAZ parameter is set to @true@ . The specified Availability Zone must be in the same AWS Region as the current endpoint. cdiAvailabilityZone :: Lens' CreateDBInstance (Maybe Text) cdiAvailabilityZone = lens _cdiAvailabilityZone (\ s a -> s{_cdiAvailabilityZone = a}); --- | The number of days for which automated backups are retained. Setting this parameter to a positive number enables backups. Setting this parameter to 0 disables automated backups. Default: 1 Constraints:     * Must be a value from 0 to 35     * Cannot be set to 0 if the DB instance is a source to Read Replicas+-- | The number of days for which automated backups are retained. Setting this parameter to a positive number enables backups. Setting this parameter to 0 disables automated backups. __Amazon Aurora__  Not applicable. The retention period for automated backups is managed by the DB cluster. For more information, see 'CreateDBCluster' . Default: 1 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}); --- | A list of EC2 VPC security groups to associate with this DB instance. Default: The default EC2 VPC security group for the DB subnet group's VPC.+-- | The KMS key identifier for encryption of Performance Insights data. The KMS key ID is the Amazon Resource Name (ARN), KMS key identifier, or the KMS key alias for the KMS encryption key.+cdiPerformanceInsightsKMSKeyId :: Lens' CreateDBInstance (Maybe Text)+cdiPerformanceInsightsKMSKeyId = lens _cdiPerformanceInsightsKMSKeyId (\ s a -> s{_cdiPerformanceInsightsKMSKeyId = a});++-- | A list of EC2 VPC security groups to associate with this DB instance. __Amazon Aurora__  Not applicable. The associated list of EC2 VPC security groups is managed by the DB cluster. For more information, see 'CreateDBCluster' . Default: The default EC2 VPC security group for the DB subnet group's VPC. cdiVPCSecurityGroupIds :: Lens' CreateDBInstance [Text] cdiVPCSecurityGroupIds = lens _cdiVPCSecurityGroupIds (\ s a -> s{_cdiVPCSecurityGroupIds = a}) . _Default . _Coerce; @@ -353,7 +378,7 @@ cdiMultiAZ :: Lens' CreateDBInstance (Maybe Bool) cdiMultiAZ = lens _cdiMultiAZ (\ s a -> s{_cdiMultiAZ = a}); --- | The amount of storage (in gigabytes) to be initially allocated for the database instance. Type: Integer __MySQL__  Constraints: Must be an integer from 5 to 6144. __MariaDB__  Constraints: Must be an integer from 5 to 6144. __PostgreSQL__  Constraints: Must be an integer from 5 to 6144. __Oracle__  Constraints: Must be an integer from 10 to 6144. __SQL Server__  Constraints: Must be an integer from 200 to 4096 (Standard Edition and Enterprise Edition) or from 20 to 4096 (Express Edition and Web Edition)+-- | The amount of storage (in gigabytes) to be initially allocated for the database instance. Type: Integer __Amazon Aurora__  Not applicable. Aurora cluster volumes automatically grow as the amount of data in your database increases, though you are only charged for the space that you use in an Aurora cluster volume. __MySQL__  Constraints to the amount of storage for each storage type are the following:      * General Purpose (SSD) storage (gp2): Must be an integer from 5 to 6144.     * Provisioned IOPS storage (io1): Must be an integer from 100 to 6144.     * Magnetic storage (standard): Must be an integer from 5 to 3072. __MariaDB__  Constraints to the amount of storage for each storage type are the following:      * General Purpose (SSD) storage (gp2): Must be an integer from 5 to 6144.     * Provisioned IOPS storage (io1): Must be an integer from 100 to 6144.     * Magnetic storage (standard): Must be an integer from 5 to 3072. __PostgreSQL__  Constraints to the amount of storage for each storage type are the following:      * General Purpose (SSD) storage (gp2): Must be an integer from 5 to 6144.     * Provisioned IOPS storage (io1): Must be an integer from 100 to 6144.     * Magnetic storage (standard): Must be an integer from 5 to 3072. __Oracle__  Constraints to the amount of storage for each storage type are the following:      * General Purpose (SSD) storage (gp2): Must be an integer from 10 to 6144.     * Provisioned IOPS storage (io1): Must be an integer from 100 to 6144.     * Magnetic storage (standard): Must be an integer from 10 to 3072. __SQL Server__  Constraints to the amount of storage for each storage type are the following:      * General Purpose (SSD) storage (gp2):     * Enterprise and Standard editions: Must be an integer from 200 to 16384.     * Web and Express editions: Must be an integer from 20 to 16384.     * Provisioned IOPS storage (io1):     * Enterprise and Standard editions: Must be an integer from 200 to 16384.     * Web and Express editions: Must be an integer from 100 to 16384.     * Magnetic storage (standard):     * Enterprise and Standard editions: Must be an integer from 200 to 1024.     * Web and Express editions: Must be an integer from 20 to 1024. cdiAllocatedStorage :: Lens' CreateDBInstance (Maybe Int) cdiAllocatedStorage = lens _cdiAllocatedStorage (\ s a -> s{_cdiAllocatedStorage = a}); @@ -385,23 +410,27 @@ cdiPort :: Lens' CreateDBInstance (Maybe Int) cdiPort = lens _cdiPort (\ s a -> s{_cdiPort = a}); +-- | True to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts; otherwise false.  You can enable IAM database authentication for the following database engines: __Amazon Aurora__  Not applicable. Mapping AWS IAM accounts to database accounts is managed by the DB cluster. For more information, see 'CreateDBCluster' . __MySQL__      * For MySQL 5.6, minor version 5.6.34 or higher     * For MySQL 5.7, minor version 5.7.16 or higher Default: @false@+cdiEnableIAMDatabaseAuthentication :: Lens' CreateDBInstance (Maybe Bool)+cdiEnableIAMDatabaseAuthentication = lens _cdiEnableIAMDatabaseAuthentication (\ s a -> s{_cdiEnableIAMDatabaseAuthentication = a});+ -- | Specifies the storage type to be associated with the DB instance. Valid values: @standard | gp2 | io1@  If you specify @io1@ , you must also include a value for the @Iops@ parameter.  Default: @io1@ if the @Iops@ parameter is specified; otherwise @standard@ cdiStorageType :: Lens' CreateDBInstance (Maybe Text) cdiStorageType = lens _cdiStorageType (\ s a -> s{_cdiStorageType = a}); --- | The meaning of this parameter differs according to the database engine you use. Type: String __MySQL__  The name of the database to create when the DB instance is created. If this parameter is not specified, no database is created in the DB instance. Constraints:     * Must contain 1 to 64 alphanumeric characters     * Cannot be a word reserved by the specified database engine __MariaDB__  The name of the database to create when the DB instance is created. If this parameter is not specified, no database is created in the DB instance. Constraints:     * Must contain 1 to 64 alphanumeric characters     * Cannot be a word reserved by the specified database engine __PostgreSQL__  The name of the database to create when the DB instance is created. If this parameter is not specified, the default "postgres" database is created in the DB instance. 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__  The Oracle System ID (SID) of the created DB instance. Default: @ORCL@  Constraints:     * Cannot be longer than 8 characters __SQL Server__  Not applicable. Must be null. __Amazon Aurora__  The name of the database to create when the primary instance of the DB cluster is created. If this parameter is not specified, no database is created in the DB instance. Constraints:     * Must contain 1 to 64 alphanumeric characters     * Cannot be a word reserved by the specified database engine+-- | The meaning of this parameter differs according to the database engine you use. Type: String __MySQL__  The name of the database to create when the DB instance is created. If this parameter is not specified, no database is created in the DB instance. Constraints:     * Must contain 1 to 64 letters or numbers.     * Cannot be a word reserved by the specified database engine __MariaDB__  The name of the database to create when the DB instance is created. If this parameter is not specified, no database is created in the DB instance. Constraints:     * Must contain 1 to 64 letters or numbers.     * Cannot be a word reserved by the specified database engine __PostgreSQL__  The name of the database to create when the DB instance is created. If this parameter is not specified, the default "postgres" database is created in the DB instance. Constraints:     * Must contain 1 to 63 letters, numbers, or underscores.     * 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__  The Oracle System ID (SID) of the created DB instance. If you specify @null@ , the default value @ORCL@ is used. You can't specify the string NULL, or any other reserved word, for @DBName@ .  Default: @ORCL@  Constraints:     * Cannot be longer than 8 characters __SQL Server__  Not applicable. Must be null. __Amazon Aurora__  The name of the database to create when the primary instance of the DB cluster is created. If this parameter is not specified, no database is created in the DB instance. Constraints:     * Must contain 1 to 64 letters or numbers.     * Cannot be a word reserved by the specified database engine cdiDBName :: Lens' CreateDBInstance (Maybe Text) cdiDBName = lens _cdiDBName (\ s a -> s{_cdiDBName = a}); --- | The DB instance identifier. This parameter is stored as a lowercase string. 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@+-- | The DB instance identifier. This parameter is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 letters, numbers, or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @mydbinstance@ cdiDBInstanceIdentifier :: Lens' CreateDBInstance Text cdiDBInstanceIdentifier = lens _cdiDBInstanceIdentifier (\ s a -> s{_cdiDBInstanceIdentifier = a}); --- | The compute and memory capacity of the DB instance. Valid Values: @db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.xlarge |db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.m4.large | db.m4.xlarge | db.m4.2xlarge | db.m4.4xlarge | db.m4.10xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large@+-- | The compute and memory capacity of the DB instance, for example, @db.m4.large@ . Not all DB instance classes are available in all regions, or for all database engines. For the full list of DB instance classes, and availability for your engine, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.DBInstanceClass.html DB Instance Class> in the Amazon RDS User Guide. cdiDBInstanceClass :: Lens' CreateDBInstance Text cdiDBInstanceClass = lens _cdiDBInstanceClass (\ s a -> s{_cdiDBInstanceClass = a}); --- | The name of the database engine to be used for this instance. Valid Values: @mysql@ | @mariadb@ | @oracle-se1@ | @oracle-se2@ | @oracle-se@ | @oracle-ee@ | @sqlserver-ee@ | @sqlserver-se@ | @sqlserver-ex@ | @sqlserver-web@ | @postgres@ | @aurora@  Not every database engine is available for every AWS region.+-- | The name of the database engine to be used for this instance.  Not every database engine is available for every AWS Region.  Valid Values:      * @aurora@      * @mariadb@      * @mysql@      * @oracle-ee@      * @oracle-se2@      * @oracle-se1@      * @oracle-se@      * @postgres@      * @sqlserver-ee@      * @sqlserver-se@      * @sqlserver-ex@      * @sqlserver-web@ cdiEngine :: Lens' CreateDBInstance Text cdiEngine = lens _cdiEngine (\ s a -> s{_cdiEngine = a}); @@ -414,9 +443,9 @@                  CreateDBInstanceResponse' <$>                    (x .@? "DBInstance") <*> (pure (fromEnum s))) -instance Hashable CreateDBInstance+instance Hashable CreateDBInstance where -instance NFData CreateDBInstance+instance NFData CreateDBInstance where  instance ToHeaders CreateDBInstance where         toHeaders = const mempty@@ -451,11 +480,15 @@                "PreferredMaintenanceWindow" =:                  _cdiPreferredMaintenanceWindow,                "CharacterSetName" =: _cdiCharacterSetName,+               "EnablePerformanceInsights" =:+                 _cdiEnablePerformanceInsights,                "KmsKeyId" =: _cdiKMSKeyId,                "DBParameterGroupName" =: _cdiDBParameterGroupName,                "PreferredBackupWindow" =: _cdiPreferredBackupWindow,                "AvailabilityZone" =: _cdiAvailabilityZone,                "BackupRetentionPeriod" =: _cdiBackupRetentionPeriod,+               "PerformanceInsightsKMSKeyId" =:+                 _cdiPerformanceInsightsKMSKeyId,                "VpcSecurityGroupIds" =:                  toQuery                    (toQueryList "VpcSecurityGroupId" <$>@@ -468,7 +501,10 @@                "TdeCredentialArn" =: _cdiTDECredentialARN,                "DomainIAMRoleName" =: _cdiDomainIAMRoleName,                "Tags" =: toQuery (toQueryList "Tag" <$> _cdiTags),-               "Port" =: _cdiPort, "StorageType" =: _cdiStorageType,+               "Port" =: _cdiPort,+               "EnableIAMDatabaseAuthentication" =:+                 _cdiEnableIAMDatabaseAuthentication,+               "StorageType" =: _cdiStorageType,                "DBName" =: _cdiDBName,                "DBInstanceIdentifier" =: _cdiDBInstanceIdentifier,                "DBInstanceClass" =: _cdiDBInstanceClass,@@ -476,10 +512,11 @@  -- | /See:/ 'createDBInstanceResponse' smart constructor. data CreateDBInstanceResponse = CreateDBInstanceResponse'-    { _cdirsDBInstance     :: !(Maybe DBInstance)-    , _cdirsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdirsDBInstance     :: !(Maybe DBInstance)+  , _cdirsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBInstanceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -491,11 +528,10 @@     :: Int -- ^ 'cdirsResponseStatus'     -> CreateDBInstanceResponse createDBInstanceResponse pResponseStatus_ =-    CreateDBInstanceResponse'-    { _cdirsDBInstance = Nothing-    , _cdirsResponseStatus = pResponseStatus_-    }+  CreateDBInstanceResponse'+  {_cdirsDBInstance = Nothing, _cdirsResponseStatus = pResponseStatus_} + -- | Undocumented member. cdirsDBInstance :: Lens' CreateDBInstanceResponse (Maybe DBInstance) cdirsDBInstance = lens _cdirsDBInstance (\ s a -> s{_cdirsDBInstance = a});@@ -504,4 +540,4 @@ cdirsResponseStatus :: Lens' CreateDBInstanceResponse Int cdirsResponseStatus = lens _cdirsResponseStatus (\ s a -> s{_cdirsResponseStatus = a}); -instance NFData CreateDBInstanceResponse+instance NFData CreateDBInstanceResponse where
gen/Network/AWS/RDS/CreateDBInstanceReadReplica.hs view
@@ -12,19 +12,21 @@  -- | -- Module      : Network.AWS.RDS.CreateDBInstanceReadReplica--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a DB instance for a DB instance running MySQL, MariaDB, or PostgreSQL that acts as a Read Replica of a source DB instance.+-- Creates a new DB instance that acts as a Read Replica for an existing source DB instance. You can create a Read Replica for a DB instance running MySQL, MariaDB, or PostgreSQL. -- -- -- All Read Replica DB instances are created as Single-AZ deployments with backups disabled. All other DB instance attributes (including DB security groups and DB parameter groups) are inherited from the source DB instance, except as specified below. -- -- /Important:/ The source DB instance must have backup retention enabled. --+-- For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_ReadRepl.html Working with PostgreSQL, MySQL, and MariaDB Read Replicas> .+-- module Network.AWS.RDS.CreateDBInstanceReadReplica     (     -- * Creating a Request@@ -37,12 +39,17 @@     , cdirrMonitoringRoleARN     , cdirrIOPS     , cdirrMonitoringInterval+    , cdirrPreSignedURL     , cdirrDBInstanceClass+    , cdirrEnablePerformanceInsights+    , cdirrKMSKeyId     , cdirrAvailabilityZone+    , cdirrPerformanceInsightsKMSKeyId     , cdirrOptionGroupName     , cdirrCopyTagsToSnapshot     , cdirrTags     , cdirrPort+    , cdirrEnableIAMDatabaseAuthentication     , cdirrStorageType     , cdirrDBInstanceIdentifier     , cdirrSourceDBInstanceIdentifier@@ -55,41 +62,47 @@     , cdirrrsResponseStatus     ) 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+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:/ 'createDBInstanceReadReplica' smart constructor. data CreateDBInstanceReadReplica = CreateDBInstanceReadReplica'-    { _cdirrPubliclyAccessible         :: !(Maybe Bool)-    , _cdirrAutoMinorVersionUpgrade    :: !(Maybe Bool)-    , _cdirrDBSubnetGroupName          :: !(Maybe Text)-    , _cdirrMonitoringRoleARN          :: !(Maybe Text)-    , _cdirrIOPS                       :: !(Maybe Int)-    , _cdirrMonitoringInterval         :: !(Maybe Int)-    , _cdirrDBInstanceClass            :: !(Maybe Text)-    , _cdirrAvailabilityZone           :: !(Maybe Text)-    , _cdirrOptionGroupName            :: !(Maybe Text)-    , _cdirrCopyTagsToSnapshot         :: !(Maybe Bool)-    , _cdirrTags                       :: !(Maybe [Tag])-    , _cdirrPort                       :: !(Maybe Int)-    , _cdirrStorageType                :: !(Maybe Text)-    , _cdirrDBInstanceIdentifier       :: !Text-    , _cdirrSourceDBInstanceIdentifier :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdirrPubliclyAccessible              :: !(Maybe Bool)+  , _cdirrAutoMinorVersionUpgrade         :: !(Maybe Bool)+  , _cdirrDBSubnetGroupName               :: !(Maybe Text)+  , _cdirrMonitoringRoleARN               :: !(Maybe Text)+  , _cdirrIOPS                            :: !(Maybe Int)+  , _cdirrMonitoringInterval              :: !(Maybe Int)+  , _cdirrPreSignedURL                    :: !(Maybe Text)+  , _cdirrDBInstanceClass                 :: !(Maybe Text)+  , _cdirrEnablePerformanceInsights       :: !(Maybe Bool)+  , _cdirrKMSKeyId                        :: !(Maybe Text)+  , _cdirrAvailabilityZone                :: !(Maybe Text)+  , _cdirrPerformanceInsightsKMSKeyId     :: !(Maybe Text)+  , _cdirrOptionGroupName                 :: !(Maybe Text)+  , _cdirrCopyTagsToSnapshot              :: !(Maybe Bool)+  , _cdirrTags                            :: !(Maybe [Tag])+  , _cdirrPort                            :: !(Maybe Int)+  , _cdirrEnableIAMDatabaseAuthentication :: !(Maybe Bool)+  , _cdirrStorageType                     :: !(Maybe Text)+  , _cdirrDBInstanceIdentifier            :: !Text+  , _cdirrSourceDBInstanceIdentifier      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBInstanceReadReplica' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdirrPubliclyAccessible' - Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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.+-- * 'cdirrPubliclyAccessible' - Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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 is 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 is private. ----- * 'cdirrAutoMinorVersionUpgrade' - Indicates that minor engine upgrades will be applied automatically to the Read Replica during the maintenance window. Default: Inherits from the source DB instance+-- * 'cdirrAutoMinorVersionUpgrade' - Indicates that minor engine upgrades are applied automatically to the Read Replica during the maintenance window. Default: Inherits from the source DB instance ----- * 'cdirrDBSubnetGroupName' - Specifies a DB subnet group for the DB instance. The new DB instance will be created in the VPC associated with the DB subnet group. If no DB subnet group is specified, then the new DB instance is not created in a VPC. 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:>     * 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. Example: @mySubnetgroup@+-- * 'cdirrDBSubnetGroupName' - Specifies a DB subnet group for the DB instance. The new DB instance is created in the VPC associated with the DB subnet group. If no DB subnet group is specified, then the new DB instance is not created in a VPC. Constraints:     * Can only be specified if the source DB instance identifier specifies a DB instance in another AWS Region.     * If supplied, must match the name of an existing DBSubnetGroup.     * The specified DB subnet group must be in the same AWS Region in which the operation is running.     * All Read Replicas in one AWS Region that are created from the same source DB instance must either:>     * Specify DB subnet groups from the same VPC. All these Read Replicas are created in the same VPC.     * Not specify a DB subnet group. All these Read Replicas are created outside of any VPC. Example: @mySubnetgroup@ -- -- * 'cdirrMonitoringRoleARN' - 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. --@@ -97,55 +110,71 @@ -- -- * 'cdirrMonitoringInterval' - 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. Valid Values: @0, 1, 5, 10, 15, 30, 60@ ----- * 'cdirrDBInstanceClass' - The compute and memory capacity of the Read Replica. Valid Values: @db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.xlarge |db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.m4.large | db.m4.xlarge | db.m4.2xlarge | db.m4.4xlarge | db.m4.10xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large@  Default: Inherits from the source DB instance.+-- * 'cdirrPreSignedURL' - The URL that contains a Signature Version 4 signed request for the @CreateDBInstanceReadReplica@ API action in the source AWS Region that contains the source DB instance.  You must specify this parameter when you create an encrypted Read Replica from another AWS Region by using the Amazon RDS API. You can specify the source region option instead of this parameter when you create an encrypted Read Replica from another AWS Region by using the AWS CLI.  The presigned URL must be a valid request for the @CreateDBInstanceReadReplica@ API action that can be executed in the source AWS Region that contains the encrypted source DB instance. The presigned URL request must contain the following parameter values:      * @DestinationRegion@ - The AWS Region that the encrypted Read Replica is created in. This AWS Region is the same one where the @CreateDBInstanceReadReplica@ action is called that contains this presigned URL.  For example, if you create an encrypted DB instance in the us-west-1 region, from a source DB instance in the us-east-2 region, then you call the @CreateDBInstanceReadReplica@ action in the us-east-1 region and provide a presigned URL that contains a call to the @CreateDBInstanceReadReplica@ action in the us-west-2 region. For this example, the @DestinationRegion@ in the presigned URL must be set to the us-east-1 region.      * @KmsKeyId@ - The KMS key identifier for the key to use to encrypt the Read Replica in the destination AWS Region. This is the same identifier for both the @CreateDBInstanceReadReplica@ action that is called in the destination AWS Region, and the action contained in the presigned URL.      * @SourceDBInstanceIdentifier@ - The DB instance identifier for the encrypted DB instance to be replicated. This identifier must be in the Amazon Resource Name (ARN) format for the source AWS Region. For example, if you are creating an encrypted Read Replica from a DB instance in the us-west-2 region, then your @SourceDBInstanceIdentifier@ looks like the following example: @arn:aws:rds:us-west-2:123456789012:instance:mysql-instance1-20161115@ .  To learn how to generate a Signature Version 4 signed request, see <http://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html Authenticating Requests: Using Query Parameters (AWS Signature Version 4)> and <http://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 Signing Process> . ----- * 'cdirrAvailabilityZone' - The Amazon EC2 Availability Zone that the Read Replica will be created in. Default: A random, system-chosen Availability Zone in the endpoint's region. Example: @us-east-1d@+-- * 'cdirrDBInstanceClass' - The compute and memory capacity of the Read Replica, for example, @db.m4.large@ . Not all DB instance classes are available in all regions, or for all database engines. For the full list of DB instance classes, and availability for your engine, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.DBInstanceClass.html DB Instance Class> in the Amazon RDS User Guide.  Default: Inherits from the source DB instance. ----- * 'cdirrOptionGroupName' - The option group the DB instance will be associated with. If omitted, the default option group for the engine specified will be used.+-- * 'cdirrEnablePerformanceInsights' - True to enable Performance Insights for the read replica; otherwise false. --+-- * 'cdirrKMSKeyId' - The AWS KMS key ID for an encrypted Read Replica. The KMS key ID is the Amazon Resource Name (ARN), KMS key identifier, or the KMS key alias for the KMS encryption key.  If you specify this parameter when you create a Read Replica from an unencrypted DB instance, the Read Replica is encrypted.  If you create an encrypted Read Replica in the same AWS Region as the source DB instance, then you do not have to specify a value for this parameter. The Read Replica is encrypted with the same KMS key as the source DB instance.  If you create an encrypted Read Replica in a different AWS Region, then you must specify a KMS key for the destination AWS Region. KMS encryption keys are specific to the AWS Region that they are created in, and you cannot use encryption keys from one AWS Region in another AWS Region.+--+-- * 'cdirrAvailabilityZone' - The Amazon EC2 Availability Zone that the Read Replica is created in. Default: A random, system-chosen Availability Zone in the endpoint's AWS Region. Example: @us-east-1d@+--+-- * 'cdirrPerformanceInsightsKMSKeyId' - The KMS key identifier for encryption of Performance Insights data. The KMS key ID is the Amazon Resource Name (ARN), KMS key identifier, or the KMS key alias for the KMS encryption key.+--+-- * 'cdirrOptionGroupName' - The option group the DB instance is associated with. If omitted, the default option group for the engine specified is used.+-- -- * 'cdirrCopyTagsToSnapshot' - True to copy all tags from the Read Replica to snapshots of the Read Replica; otherwise false. The default is false. -- -- * 'cdirrTags' - Undocumented member. -- -- * 'cdirrPort' - The port number that the DB instance uses for connections. Default: Inherits from the source DB instance Valid Values: @1150-65535@ --+-- * 'cdirrEnableIAMDatabaseAuthentication' - True to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts; otherwise false. You can enable IAM database authentication for the following database engines     * For MySQL 5.6, minor version 5.6.34 or higher     * For MySQL 5.7, minor version 5.7.16 or higher     * Aurora 5.6 or higher. Default: @false@+-- -- * 'cdirrStorageType' - Specifies the storage type to be associated with the Read Replica. Valid values: @standard | gp2 | io1@  If you specify @io1@ , you must also include a value for the @Iops@ parameter.  Default: @io1@ if the @Iops@ parameter is specified; otherwise @standard@ -- -- * 'cdirrDBInstanceIdentifier' - The DB instance identifier of the Read Replica. This identifier is the unique key that identifies a DB instance. This parameter is stored as a lowercase string. ----- * 'cdirrSourceDBInstanceIdentifier' - The identifier of the DB instance that will act as the source for the Read Replica. Each DB instance can have up to five Read Replicas. 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.ARN.html#USER_Tagging.ARN.Constructing Constructing a Amazon RDS Amazon Resource Name (ARN)> .+-- * 'cdirrSourceDBInstanceIdentifier' - The identifier of the DB instance that will act as the source for the Read Replica. Each DB instance can have up to five Read Replicas. 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 DB instance only if the source is running PostgreSQL 9.3.5 or later (9.4.7 and higher for cross region replication).     * 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 AWS Region as the Read Replica, specify a valid DB instance identifier.     * If the source DB instance is in a different AWS 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)> . createDBInstanceReadReplica     :: Text -- ^ 'cdirrDBInstanceIdentifier'     -> Text -- ^ 'cdirrSourceDBInstanceIdentifier'     -> CreateDBInstanceReadReplica createDBInstanceReadReplica pDBInstanceIdentifier_ pSourceDBInstanceIdentifier_ =-    CreateDBInstanceReadReplica'-    { _cdirrPubliclyAccessible = Nothing-    , _cdirrAutoMinorVersionUpgrade = Nothing-    , _cdirrDBSubnetGroupName = Nothing-    , _cdirrMonitoringRoleARN = Nothing-    , _cdirrIOPS = Nothing-    , _cdirrMonitoringInterval = Nothing-    , _cdirrDBInstanceClass = Nothing-    , _cdirrAvailabilityZone = Nothing-    , _cdirrOptionGroupName = Nothing-    , _cdirrCopyTagsToSnapshot = Nothing-    , _cdirrTags = Nothing-    , _cdirrPort = Nothing-    , _cdirrStorageType = Nothing-    , _cdirrDBInstanceIdentifier = pDBInstanceIdentifier_-    , _cdirrSourceDBInstanceIdentifier = pSourceDBInstanceIdentifier_-    }+  CreateDBInstanceReadReplica'+  { _cdirrPubliclyAccessible = Nothing+  , _cdirrAutoMinorVersionUpgrade = Nothing+  , _cdirrDBSubnetGroupName = Nothing+  , _cdirrMonitoringRoleARN = Nothing+  , _cdirrIOPS = Nothing+  , _cdirrMonitoringInterval = Nothing+  , _cdirrPreSignedURL = Nothing+  , _cdirrDBInstanceClass = Nothing+  , _cdirrEnablePerformanceInsights = Nothing+  , _cdirrKMSKeyId = Nothing+  , _cdirrAvailabilityZone = Nothing+  , _cdirrPerformanceInsightsKMSKeyId = Nothing+  , _cdirrOptionGroupName = Nothing+  , _cdirrCopyTagsToSnapshot = Nothing+  , _cdirrTags = Nothing+  , _cdirrPort = Nothing+  , _cdirrEnableIAMDatabaseAuthentication = Nothing+  , _cdirrStorageType = Nothing+  , _cdirrDBInstanceIdentifier = pDBInstanceIdentifier_+  , _cdirrSourceDBInstanceIdentifier = pSourceDBInstanceIdentifier_+  } --- | Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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.++-- | Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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 is 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 is private. cdirrPubliclyAccessible :: Lens' CreateDBInstanceReadReplica (Maybe Bool) cdirrPubliclyAccessible = lens _cdirrPubliclyAccessible (\ s a -> s{_cdirrPubliclyAccessible = a}); --- | Indicates that minor engine upgrades will be applied automatically to the Read Replica during the maintenance window. Default: Inherits from the source DB instance+-- | Indicates that minor engine upgrades are applied automatically to the Read Replica during the maintenance window. Default: Inherits from the source DB instance cdirrAutoMinorVersionUpgrade :: Lens' CreateDBInstanceReadReplica (Maybe Bool) cdirrAutoMinorVersionUpgrade = lens _cdirrAutoMinorVersionUpgrade (\ s a -> s{_cdirrAutoMinorVersionUpgrade = a}); --- | Specifies a DB subnet group for the DB instance. The new DB instance will be created in the VPC associated with the DB subnet group. If no DB subnet group is specified, then the new DB instance is not created in a VPC. 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:>     * 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. Example: @mySubnetgroup@+-- | Specifies a DB subnet group for the DB instance. The new DB instance is created in the VPC associated with the DB subnet group. If no DB subnet group is specified, then the new DB instance is not created in a VPC. Constraints:     * Can only be specified if the source DB instance identifier specifies a DB instance in another AWS Region.     * If supplied, must match the name of an existing DBSubnetGroup.     * The specified DB subnet group must be in the same AWS Region in which the operation is running.     * All Read Replicas in one AWS Region that are created from the same source DB instance must either:>     * Specify DB subnet groups from the same VPC. All these Read Replicas are created in the same VPC.     * Not specify a DB subnet group. All these Read Replicas are created outside of any VPC. Example: @mySubnetgroup@ cdirrDBSubnetGroupName :: Lens' CreateDBInstanceReadReplica (Maybe Text) cdirrDBSubnetGroupName = lens _cdirrDBSubnetGroupName (\ s a -> s{_cdirrDBSubnetGroupName = a}); @@ -161,15 +190,31 @@ cdirrMonitoringInterval :: Lens' CreateDBInstanceReadReplica (Maybe Int) cdirrMonitoringInterval = lens _cdirrMonitoringInterval (\ s a -> s{_cdirrMonitoringInterval = a}); --- | The compute and memory capacity of the Read Replica. Valid Values: @db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.xlarge |db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.m4.large | db.m4.xlarge | db.m4.2xlarge | db.m4.4xlarge | db.m4.10xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large@  Default: Inherits from the source DB instance.+-- | The URL that contains a Signature Version 4 signed request for the @CreateDBInstanceReadReplica@ API action in the source AWS Region that contains the source DB instance.  You must specify this parameter when you create an encrypted Read Replica from another AWS Region by using the Amazon RDS API. You can specify the source region option instead of this parameter when you create an encrypted Read Replica from another AWS Region by using the AWS CLI.  The presigned URL must be a valid request for the @CreateDBInstanceReadReplica@ API action that can be executed in the source AWS Region that contains the encrypted source DB instance. The presigned URL request must contain the following parameter values:      * @DestinationRegion@ - The AWS Region that the encrypted Read Replica is created in. This AWS Region is the same one where the @CreateDBInstanceReadReplica@ action is called that contains this presigned URL.  For example, if you create an encrypted DB instance in the us-west-1 region, from a source DB instance in the us-east-2 region, then you call the @CreateDBInstanceReadReplica@ action in the us-east-1 region and provide a presigned URL that contains a call to the @CreateDBInstanceReadReplica@ action in the us-west-2 region. For this example, the @DestinationRegion@ in the presigned URL must be set to the us-east-1 region.      * @KmsKeyId@ - The KMS key identifier for the key to use to encrypt the Read Replica in the destination AWS Region. This is the same identifier for both the @CreateDBInstanceReadReplica@ action that is called in the destination AWS Region, and the action contained in the presigned URL.      * @SourceDBInstanceIdentifier@ - The DB instance identifier for the encrypted DB instance to be replicated. This identifier must be in the Amazon Resource Name (ARN) format for the source AWS Region. For example, if you are creating an encrypted Read Replica from a DB instance in the us-west-2 region, then your @SourceDBInstanceIdentifier@ looks like the following example: @arn:aws:rds:us-west-2:123456789012:instance:mysql-instance1-20161115@ .  To learn how to generate a Signature Version 4 signed request, see <http://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html Authenticating Requests: Using Query Parameters (AWS Signature Version 4)> and <http://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 Signing Process> .+cdirrPreSignedURL :: Lens' CreateDBInstanceReadReplica (Maybe Text)+cdirrPreSignedURL = lens _cdirrPreSignedURL (\ s a -> s{_cdirrPreSignedURL = a});++-- | The compute and memory capacity of the Read Replica, for example, @db.m4.large@ . Not all DB instance classes are available in all regions, or for all database engines. For the full list of DB instance classes, and availability for your engine, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.DBInstanceClass.html DB Instance Class> in the Amazon RDS User Guide.  Default: Inherits from the source DB instance. cdirrDBInstanceClass :: Lens' CreateDBInstanceReadReplica (Maybe Text) cdirrDBInstanceClass = lens _cdirrDBInstanceClass (\ s a -> s{_cdirrDBInstanceClass = a}); --- | The Amazon EC2 Availability Zone that the Read Replica will be created in. Default: A random, system-chosen Availability Zone in the endpoint's region. Example: @us-east-1d@+-- | True to enable Performance Insights for the read replica; otherwise false.+cdirrEnablePerformanceInsights :: Lens' CreateDBInstanceReadReplica (Maybe Bool)+cdirrEnablePerformanceInsights = lens _cdirrEnablePerformanceInsights (\ s a -> s{_cdirrEnablePerformanceInsights = a});++-- | The AWS KMS key ID for an encrypted Read Replica. The KMS key ID is the Amazon Resource Name (ARN), KMS key identifier, or the KMS key alias for the KMS encryption key.  If you specify this parameter when you create a Read Replica from an unencrypted DB instance, the Read Replica is encrypted.  If you create an encrypted Read Replica in the same AWS Region as the source DB instance, then you do not have to specify a value for this parameter. The Read Replica is encrypted with the same KMS key as the source DB instance.  If you create an encrypted Read Replica in a different AWS Region, then you must specify a KMS key for the destination AWS Region. KMS encryption keys are specific to the AWS Region that they are created in, and you cannot use encryption keys from one AWS Region in another AWS Region.+cdirrKMSKeyId :: Lens' CreateDBInstanceReadReplica (Maybe Text)+cdirrKMSKeyId = lens _cdirrKMSKeyId (\ s a -> s{_cdirrKMSKeyId = a});++-- | The Amazon EC2 Availability Zone that the Read Replica is created in. Default: A random, system-chosen Availability Zone in the endpoint's AWS Region. Example: @us-east-1d@ cdirrAvailabilityZone :: Lens' CreateDBInstanceReadReplica (Maybe Text) cdirrAvailabilityZone = lens _cdirrAvailabilityZone (\ s a -> s{_cdirrAvailabilityZone = a}); --- | The option group the DB instance will be associated with. If omitted, the default option group for the engine specified will be used.+-- | The KMS key identifier for encryption of Performance Insights data. The KMS key ID is the Amazon Resource Name (ARN), KMS key identifier, or the KMS key alias for the KMS encryption key.+cdirrPerformanceInsightsKMSKeyId :: Lens' CreateDBInstanceReadReplica (Maybe Text)+cdirrPerformanceInsightsKMSKeyId = lens _cdirrPerformanceInsightsKMSKeyId (\ s a -> s{_cdirrPerformanceInsightsKMSKeyId = a});++-- | The option group the DB instance is associated with. If omitted, the default option group for the engine specified is used. cdirrOptionGroupName :: Lens' CreateDBInstanceReadReplica (Maybe Text) cdirrOptionGroupName = lens _cdirrOptionGroupName (\ s a -> s{_cdirrOptionGroupName = a}); @@ -185,6 +230,10 @@ cdirrPort :: Lens' CreateDBInstanceReadReplica (Maybe Int) cdirrPort = lens _cdirrPort (\ s a -> s{_cdirrPort = a}); +-- | True to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts; otherwise false. You can enable IAM database authentication for the following database engines     * For MySQL 5.6, minor version 5.6.34 or higher     * For MySQL 5.7, minor version 5.7.16 or higher     * Aurora 5.6 or higher. Default: @false@+cdirrEnableIAMDatabaseAuthentication :: Lens' CreateDBInstanceReadReplica (Maybe Bool)+cdirrEnableIAMDatabaseAuthentication = lens _cdirrEnableIAMDatabaseAuthentication (\ s a -> s{_cdirrEnableIAMDatabaseAuthentication = a});+ -- | Specifies the storage type to be associated with the Read Replica. Valid values: @standard | gp2 | io1@  If you specify @io1@ , you must also include a value for the @Iops@ parameter.  Default: @io1@ if the @Iops@ parameter is specified; otherwise @standard@ cdirrStorageType :: Lens' CreateDBInstanceReadReplica (Maybe Text) cdirrStorageType = lens _cdirrStorageType (\ s a -> s{_cdirrStorageType = a});@@ -193,7 +242,7 @@ cdirrDBInstanceIdentifier :: Lens' CreateDBInstanceReadReplica Text cdirrDBInstanceIdentifier = lens _cdirrDBInstanceIdentifier (\ s a -> s{_cdirrDBInstanceIdentifier = a}); --- | The identifier of the DB instance that will act as the source for the Read Replica. Each DB instance can have up to five Read Replicas. 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.ARN.html#USER_Tagging.ARN.Constructing Constructing a Amazon RDS Amazon Resource Name (ARN)> .+-- | The identifier of the DB instance that will act as the source for the Read Replica. Each DB instance can have up to five Read Replicas. 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 DB instance only if the source is running PostgreSQL 9.3.5 or later (9.4.7 and higher for cross region replication).     * 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 AWS Region as the Read Replica, specify a valid DB instance identifier.     * If the source DB instance is in a different AWS 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}); @@ -208,9 +257,9 @@                  CreateDBInstanceReadReplicaResponse' <$>                    (x .@? "DBInstance") <*> (pure (fromEnum s))) -instance Hashable CreateDBInstanceReadReplica+instance Hashable CreateDBInstanceReadReplica where -instance NFData CreateDBInstanceReadReplica+instance NFData CreateDBInstanceReadReplica where  instance ToHeaders CreateDBInstanceReadReplica where         toHeaders = const mempty@@ -231,12 +280,20 @@                "MonitoringRoleArn" =: _cdirrMonitoringRoleARN,                "Iops" =: _cdirrIOPS,                "MonitoringInterval" =: _cdirrMonitoringInterval,+               "PreSignedUrl" =: _cdirrPreSignedURL,                "DBInstanceClass" =: _cdirrDBInstanceClass,+               "EnablePerformanceInsights" =:+                 _cdirrEnablePerformanceInsights,+               "KmsKeyId" =: _cdirrKMSKeyId,                "AvailabilityZone" =: _cdirrAvailabilityZone,+               "PerformanceInsightsKMSKeyId" =:+                 _cdirrPerformanceInsightsKMSKeyId,                "OptionGroupName" =: _cdirrOptionGroupName,                "CopyTagsToSnapshot" =: _cdirrCopyTagsToSnapshot,                "Tags" =: toQuery (toQueryList "Tag" <$> _cdirrTags),                "Port" =: _cdirrPort,+               "EnableIAMDatabaseAuthentication" =:+                 _cdirrEnableIAMDatabaseAuthentication,                "StorageType" =: _cdirrStorageType,                "DBInstanceIdentifier" =: _cdirrDBInstanceIdentifier,                "SourceDBInstanceIdentifier" =:@@ -244,10 +301,11 @@  -- | /See:/ 'createDBInstanceReadReplicaResponse' smart constructor. data CreateDBInstanceReadReplicaResponse = CreateDBInstanceReadReplicaResponse'-    { _cdirrrsDBInstance     :: !(Maybe DBInstance)-    , _cdirrrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdirrrsDBInstance     :: !(Maybe DBInstance)+  , _cdirrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBInstanceReadReplicaResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -259,11 +317,10 @@     :: Int -- ^ 'cdirrrsResponseStatus'     -> CreateDBInstanceReadReplicaResponse createDBInstanceReadReplicaResponse pResponseStatus_ =-    CreateDBInstanceReadReplicaResponse'-    { _cdirrrsDBInstance = Nothing-    , _cdirrrsResponseStatus = pResponseStatus_-    }+  CreateDBInstanceReadReplicaResponse'+  {_cdirrrsDBInstance = Nothing, _cdirrrsResponseStatus = pResponseStatus_} + -- | Undocumented member. cdirrrsDBInstance :: Lens' CreateDBInstanceReadReplicaResponse (Maybe DBInstance) cdirrrsDBInstance = lens _cdirrrsDBInstance (\ s a -> s{_cdirrrsDBInstance = a});@@ -273,3 +330,4 @@ cdirrrsResponseStatus = lens _cdirrrsResponseStatus (\ s a -> s{_cdirrrsResponseStatus = a});  instance NFData CreateDBInstanceReadReplicaResponse+         where
gen/Network/AWS/RDS/CreateDBParameterGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.CreateDBParameterGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -44,12 +44,12 @@     , cdpgrsResponseStatus     ) 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+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  -- | --@@ -57,19 +57,20 @@ -- -- /See:/ 'createDBParameterGroup' smart constructor. data CreateDBParameterGroup = CreateDBParameterGroup'-    { _cdbpgTags                   :: !(Maybe [Tag])-    , _cdbpgDBParameterGroupName   :: !Text-    , _cdbpgDBParameterGroupFamily :: !Text-    , _cdbpgDescription            :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdbpgTags                   :: !(Maybe [Tag])+  , _cdbpgDBParameterGroupName   :: !Text+  , _cdbpgDBParameterGroupFamily :: !Text+  , _cdbpgDescription            :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBParameterGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cdbpgTags' - Undocumented member. ----- * 'cdbpgDBParameterGroupName' - The name of the DB parameter group. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- * 'cdbpgDBParameterGroupName' - The name of the DB parameter group. Constraints:     * Must be 1 to 255 letters, numbers, or hyphens.     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens -- -- * 'cdbpgDBParameterGroupFamily' - The DB parameter group family name. A DB parameter group can be associated with one and only one DB parameter group family, and can be applied only to a DB instance running a database engine and engine version compatible with that DB parameter group family. --@@ -80,18 +81,19 @@     -> Text -- ^ 'cdbpgDescription'     -> CreateDBParameterGroup createDBParameterGroup pDBParameterGroupName_ pDBParameterGroupFamily_ pDescription_ =-    CreateDBParameterGroup'-    { _cdbpgTags = Nothing-    , _cdbpgDBParameterGroupName = pDBParameterGroupName_-    , _cdbpgDBParameterGroupFamily = pDBParameterGroupFamily_-    , _cdbpgDescription = pDescription_-    }+  CreateDBParameterGroup'+  { _cdbpgTags = Nothing+  , _cdbpgDBParameterGroupName = pDBParameterGroupName_+  , _cdbpgDBParameterGroupFamily = pDBParameterGroupFamily_+  , _cdbpgDescription = pDescription_+  } + -- | Undocumented member. cdbpgTags :: Lens' CreateDBParameterGroup [Tag] cdbpgTags = lens _cdbpgTags (\ s a -> s{_cdbpgTags = a}) . _Default . _Coerce; --- | The name of the DB parameter group. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The name of the DB parameter group. Constraints:     * Must be 1 to 255 letters, numbers, or hyphens.     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens cdbpgDBParameterGroupName :: Lens' CreateDBParameterGroup Text cdbpgDBParameterGroupName = lens _cdbpgDBParameterGroupName (\ s a -> s{_cdbpgDBParameterGroupName = a}); @@ -113,9 +115,9 @@                  CreateDBParameterGroupResponse' <$>                    (x .@? "DBParameterGroup") <*> (pure (fromEnum s))) -instance Hashable CreateDBParameterGroup+instance Hashable CreateDBParameterGroup where -instance NFData CreateDBParameterGroup+instance NFData CreateDBParameterGroup where  instance ToHeaders CreateDBParameterGroup where         toHeaders = const mempty@@ -137,10 +139,11 @@  -- | /See:/ 'createDBParameterGroupResponse' smart constructor. data CreateDBParameterGroupResponse = CreateDBParameterGroupResponse'-    { _cdpgrsDBParameterGroup :: !(Maybe DBParameterGroup)-    , _cdpgrsResponseStatus   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdpgrsDBParameterGroup :: !(Maybe DBParameterGroup)+  , _cdpgrsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBParameterGroupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -152,11 +155,10 @@     :: Int -- ^ 'cdpgrsResponseStatus'     -> CreateDBParameterGroupResponse createDBParameterGroupResponse pResponseStatus_ =-    CreateDBParameterGroupResponse'-    { _cdpgrsDBParameterGroup = Nothing-    , _cdpgrsResponseStatus = pResponseStatus_-    }+  CreateDBParameterGroupResponse'+  {_cdpgrsDBParameterGroup = Nothing, _cdpgrsResponseStatus = pResponseStatus_} + -- | Undocumented member. cdpgrsDBParameterGroup :: Lens' CreateDBParameterGroupResponse (Maybe DBParameterGroup) cdpgrsDBParameterGroup = lens _cdpgrsDBParameterGroup (\ s a -> s{_cdpgrsDBParameterGroup = a});@@ -165,4 +167,4 @@ cdpgrsResponseStatus :: Lens' CreateDBParameterGroupResponse Int cdpgrsResponseStatus = lens _cdpgrsResponseStatus (\ s a -> s{_cdpgrsResponseStatus = a}); -instance NFData CreateDBParameterGroupResponse+instance NFData CreateDBParameterGroupResponse where
gen/Network/AWS/RDS/CreateDBSecurityGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.CreateDBSecurityGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , cdbsgrsResponseStatus     ) 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+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  -- | --@@ -52,18 +52,19 @@ -- -- /See:/ 'createDBSecurityGroup' smart constructor. data CreateDBSecurityGroup = CreateDBSecurityGroup'-    { _cdsgTags                       :: !(Maybe [Tag])-    , _cdsgDBSecurityGroupName        :: !Text-    , _cdsgDBSecurityGroupDescription :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdsgTags                       :: !(Maybe [Tag])+  , _cdsgDBSecurityGroupName        :: !Text+  , _cdsgDBSecurityGroupDescription :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBSecurityGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cdsgTags' - Undocumented member. ----- * 'cdsgDBSecurityGroupName' - The name for the DB security group. 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     * Must not be "Default" Example: @mysecuritygroup@+-- * 'cdsgDBSecurityGroupName' - The name for the DB security group. This value is stored as a lowercase string. Constraints:     * Must be 1 to 255 letters, numbers, or hyphens.     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens     * Must not be "Default" Example: @mysecuritygroup@ -- -- * 'cdsgDBSecurityGroupDescription' - The description for the DB security group. createDBSecurityGroup@@ -71,17 +72,18 @@     -> Text -- ^ 'cdsgDBSecurityGroupDescription'     -> CreateDBSecurityGroup createDBSecurityGroup pDBSecurityGroupName_ pDBSecurityGroupDescription_ =-    CreateDBSecurityGroup'-    { _cdsgTags = Nothing-    , _cdsgDBSecurityGroupName = pDBSecurityGroupName_-    , _cdsgDBSecurityGroupDescription = pDBSecurityGroupDescription_-    }+  CreateDBSecurityGroup'+  { _cdsgTags = Nothing+  , _cdsgDBSecurityGroupName = pDBSecurityGroupName_+  , _cdsgDBSecurityGroupDescription = pDBSecurityGroupDescription_+  } + -- | Undocumented member. cdsgTags :: Lens' CreateDBSecurityGroup [Tag] cdsgTags = lens _cdsgTags (\ s a -> s{_cdsgTags = a}) . _Default . _Coerce; --- | The name for the DB security group. 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     * Must not be "Default" Example: @mysecuritygroup@+-- | The name for the DB security group. This value is stored as a lowercase string. Constraints:     * Must be 1 to 255 letters, numbers, or hyphens.     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens     * Must not be "Default" Example: @mysecuritygroup@ cdsgDBSecurityGroupName :: Lens' CreateDBSecurityGroup Text cdsgDBSecurityGroupName = lens _cdsgDBSecurityGroupName (\ s a -> s{_cdsgDBSecurityGroupName = a}); @@ -99,9 +101,9 @@                  CreateDBSecurityGroupResponse' <$>                    (x .@? "DBSecurityGroup") <*> (pure (fromEnum s))) -instance Hashable CreateDBSecurityGroup+instance Hashable CreateDBSecurityGroup where -instance NFData CreateDBSecurityGroup+instance NFData CreateDBSecurityGroup where  instance ToHeaders CreateDBSecurityGroup where         toHeaders = const mempty@@ -121,10 +123,11 @@  -- | /See:/ 'createDBSecurityGroupResponse' smart constructor. data CreateDBSecurityGroupResponse = CreateDBSecurityGroupResponse'-    { _cdbsgrsDBSecurityGroup :: !(Maybe DBSecurityGroup)-    , _cdbsgrsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdbsgrsDBSecurityGroup :: !(Maybe DBSecurityGroup)+  , _cdbsgrsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBSecurityGroupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -136,11 +139,10 @@     :: Int -- ^ 'cdbsgrsResponseStatus'     -> CreateDBSecurityGroupResponse createDBSecurityGroupResponse pResponseStatus_ =-    CreateDBSecurityGroupResponse'-    { _cdbsgrsDBSecurityGroup = Nothing-    , _cdbsgrsResponseStatus = pResponseStatus_-    }+  CreateDBSecurityGroupResponse'+  {_cdbsgrsDBSecurityGroup = Nothing, _cdbsgrsResponseStatus = pResponseStatus_} + -- | Undocumented member. cdbsgrsDBSecurityGroup :: Lens' CreateDBSecurityGroupResponse (Maybe DBSecurityGroup) cdbsgrsDBSecurityGroup = lens _cdbsgrsDBSecurityGroup (\ s a -> s{_cdbsgrsDBSecurityGroup = a});@@ -149,4 +151,4 @@ cdbsgrsResponseStatus :: Lens' CreateDBSecurityGroupResponse Int cdbsgrsResponseStatus = lens _cdbsgrsResponseStatus (\ s a -> s{_cdbsgrsResponseStatus = a}); -instance NFData CreateDBSecurityGroupResponse+instance NFData CreateDBSecurityGroupResponse where
gen/Network/AWS/RDS/CreateDBSnapshot.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.CreateDBSnapshot--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , cdbsrsResponseStatus     ) 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+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  -- | --@@ -52,40 +52,42 @@ -- -- /See:/ 'createDBSnapshot' smart constructor. data CreateDBSnapshot = CreateDBSnapshot'-    { _cdbsTags                 :: !(Maybe [Tag])-    , _cdbsDBSnapshotIdentifier :: !Text-    , _cdbsDBInstanceIdentifier :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdbsTags                 :: !(Maybe [Tag])+  , _cdbsDBSnapshotIdentifier :: !Text+  , _cdbsDBInstanceIdentifier :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBSnapshot' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cdbsTags' - Undocumented member. ----- * 'cdbsDBSnapshotIdentifier' - The identifier for the DB snapshot. 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@+-- * 'cdbsDBSnapshotIdentifier' - The identifier for the DB snapshot. Constraints:     * Cannot be null, empty, or blank     * Must contain from 1 to 255 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-snapshot-id@ ----- * 'cdbsDBInstanceIdentifier' - The DB instance identifier. This is the unique key that identifies a DB instance. 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' - The identifier of the DB instance that you want to create the snapshot of. Constraints:     * Must match the identifier of an existing DBInstance. createDBSnapshot     :: Text -- ^ 'cdbsDBSnapshotIdentifier'     -> Text -- ^ 'cdbsDBInstanceIdentifier'     -> CreateDBSnapshot createDBSnapshot pDBSnapshotIdentifier_ pDBInstanceIdentifier_ =-    CreateDBSnapshot'-    { _cdbsTags = Nothing-    , _cdbsDBSnapshotIdentifier = pDBSnapshotIdentifier_-    , _cdbsDBInstanceIdentifier = pDBInstanceIdentifier_-    }+  CreateDBSnapshot'+  { _cdbsTags = Nothing+  , _cdbsDBSnapshotIdentifier = pDBSnapshotIdentifier_+  , _cdbsDBInstanceIdentifier = pDBInstanceIdentifier_+  } + -- | Undocumented member. cdbsTags :: Lens' CreateDBSnapshot [Tag] cdbsTags = lens _cdbsTags (\ s a -> s{_cdbsTags = a}) . _Default . _Coerce; --- | The identifier for the DB snapshot. 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@+-- | The identifier for the DB snapshot. Constraints:     * Cannot be null, empty, or blank     * Must contain from 1 to 255 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-snapshot-id@ cdbsDBSnapshotIdentifier :: Lens' CreateDBSnapshot Text cdbsDBSnapshotIdentifier = lens _cdbsDBSnapshotIdentifier (\ s a -> s{_cdbsDBSnapshotIdentifier = a}); --- | The DB instance identifier. This is the unique key that identifies a DB instance. 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+-- | The identifier of the DB instance that you want to create the snapshot of. Constraints:     * Must match the identifier of an existing DBInstance. cdbsDBInstanceIdentifier :: Lens' CreateDBSnapshot Text cdbsDBInstanceIdentifier = lens _cdbsDBInstanceIdentifier (\ s a -> s{_cdbsDBInstanceIdentifier = a}); @@ -98,9 +100,9 @@                  CreateDBSnapshotResponse' <$>                    (x .@? "DBSnapshot") <*> (pure (fromEnum s))) -instance Hashable CreateDBSnapshot+instance Hashable CreateDBSnapshot where -instance NFData CreateDBSnapshot+instance NFData CreateDBSnapshot where  instance ToHeaders CreateDBSnapshot where         toHeaders = const mempty@@ -119,10 +121,11 @@  -- | /See:/ 'createDBSnapshotResponse' smart constructor. data CreateDBSnapshotResponse = CreateDBSnapshotResponse'-    { _cdbsrsDBSnapshot     :: !(Maybe DBSnapshot)-    , _cdbsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdbsrsDBSnapshot     :: !(Maybe DBSnapshot)+  , _cdbsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBSnapshotResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -134,11 +137,10 @@     :: Int -- ^ 'cdbsrsResponseStatus'     -> CreateDBSnapshotResponse createDBSnapshotResponse pResponseStatus_ =-    CreateDBSnapshotResponse'-    { _cdbsrsDBSnapshot = Nothing-    , _cdbsrsResponseStatus = pResponseStatus_-    }+  CreateDBSnapshotResponse'+  {_cdbsrsDBSnapshot = Nothing, _cdbsrsResponseStatus = pResponseStatus_} + -- | Undocumented member. cdbsrsDBSnapshot :: Lens' CreateDBSnapshotResponse (Maybe DBSnapshot) cdbsrsDBSnapshot = lens _cdbsrsDBSnapshot (\ s a -> s{_cdbsrsDBSnapshot = a});@@ -147,4 +149,4 @@ cdbsrsResponseStatus :: Lens' CreateDBSnapshotResponse Int cdbsrsResponseStatus = lens _cdbsrsResponseStatus (\ s a -> s{_cdbsrsResponseStatus = a}); -instance NFData CreateDBSnapshotResponse+instance NFData CreateDBSnapshotResponse where
gen/Network/AWS/RDS/CreateDBSubnetGroup.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.RDS.CreateDBSubnetGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a new DB subnet group. DB subnet groups must contain at least one subnet in at least two AZs in the region.+-- Creates a new DB subnet group. DB subnet groups must contain at least one subnet in at least two AZs in the AWS Region. -- -- module Network.AWS.RDS.CreateDBSubnetGroup@@ -40,12 +40,12 @@     , cdsgrsResponseStatus     ) 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+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  -- | --@@ -53,19 +53,20 @@ -- -- /See:/ 'createDBSubnetGroup' smart constructor. data CreateDBSubnetGroup = CreateDBSubnetGroup'-    { _cdbsgTags                     :: !(Maybe [Tag])-    , _cdbsgDBSubnetGroupName        :: !Text-    , _cdbsgDBSubnetGroupDescription :: !Text-    , _cdbsgSubnetIds                :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdbsgTags                     :: !(Maybe [Tag])+  , _cdbsgDBSubnetGroupName        :: !Text+  , _cdbsgDBSubnetGroupDescription :: !Text+  , _cdbsgSubnetIds                :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBSubnetGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cdbsgTags' - Undocumented member. ----- * 'cdbsgDBSubnetGroupName' - The name for the DB subnet group. This value is stored as a lowercase string. Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@+-- * 'cdbsgDBSubnetGroupName' - The name for the DB subnet group. This value is stored as a lowercase string. Constraints: Must contain no more than 255 letters, numbers, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@ -- -- * 'cdbsgDBSubnetGroupDescription' - The description for the DB subnet group. --@@ -75,18 +76,19 @@     -> Text -- ^ 'cdbsgDBSubnetGroupDescription'     -> CreateDBSubnetGroup createDBSubnetGroup pDBSubnetGroupName_ pDBSubnetGroupDescription_ =-    CreateDBSubnetGroup'-    { _cdbsgTags = Nothing-    , _cdbsgDBSubnetGroupName = pDBSubnetGroupName_-    , _cdbsgDBSubnetGroupDescription = pDBSubnetGroupDescription_-    , _cdbsgSubnetIds = mempty-    }+  CreateDBSubnetGroup'+  { _cdbsgTags = Nothing+  , _cdbsgDBSubnetGroupName = pDBSubnetGroupName_+  , _cdbsgDBSubnetGroupDescription = pDBSubnetGroupDescription_+  , _cdbsgSubnetIds = mempty+  } + -- | Undocumented member. cdbsgTags :: Lens' CreateDBSubnetGroup [Tag] cdbsgTags = lens _cdbsgTags (\ s a -> s{_cdbsgTags = a}) . _Default . _Coerce; --- | The name for the DB subnet group. This value is stored as a lowercase string. Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@+-- | The name for the DB subnet group. This value is stored as a lowercase string. Constraints: Must contain no more than 255 letters, numbers, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@ cdbsgDBSubnetGroupName :: Lens' CreateDBSubnetGroup Text cdbsgDBSubnetGroupName = lens _cdbsgDBSubnetGroupName (\ s a -> s{_cdbsgDBSubnetGroupName = a}); @@ -108,9 +110,9 @@                  CreateDBSubnetGroupResponse' <$>                    (x .@? "DBSubnetGroup") <*> (pure (fromEnum s))) -instance Hashable CreateDBSubnetGroup+instance Hashable CreateDBSubnetGroup where -instance NFData CreateDBSubnetGroup+instance NFData CreateDBSubnetGroup where  instance ToHeaders CreateDBSubnetGroup where         toHeaders = const mempty@@ -132,10 +134,11 @@  -- | /See:/ 'createDBSubnetGroupResponse' smart constructor. data CreateDBSubnetGroupResponse = CreateDBSubnetGroupResponse'-    { _cdsgrsDBSubnetGroup  :: !(Maybe DBSubnetGroup)-    , _cdsgrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cdsgrsDBSubnetGroup  :: !(Maybe DBSubnetGroup)+  , _cdsgrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDBSubnetGroupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -147,11 +150,10 @@     :: Int -- ^ 'cdsgrsResponseStatus'     -> CreateDBSubnetGroupResponse createDBSubnetGroupResponse pResponseStatus_ =-    CreateDBSubnetGroupResponse'-    { _cdsgrsDBSubnetGroup = Nothing-    , _cdsgrsResponseStatus = pResponseStatus_-    }+  CreateDBSubnetGroupResponse'+  {_cdsgrsDBSubnetGroup = Nothing, _cdsgrsResponseStatus = pResponseStatus_} + -- | Undocumented member. cdsgrsDBSubnetGroup :: Lens' CreateDBSubnetGroupResponse (Maybe DBSubnetGroup) cdsgrsDBSubnetGroup = lens _cdsgrsDBSubnetGroup (\ s a -> s{_cdsgrsDBSubnetGroup = a});@@ -160,4 +162,4 @@ cdsgrsResponseStatus :: Lens' CreateDBSubnetGroupResponse Int cdsgrsResponseStatus = lens _cdsgrsResponseStatus (\ s a -> s{_cdsgrsResponseStatus = a}); -instance NFData CreateDBSubnetGroupResponse+instance NFData CreateDBSubnetGroupResponse where
gen/Network/AWS/RDS/CreateEventSubscription.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.CreateEventSubscription--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- You can specify the type of source (SourceType) you want to be notified of, provide a list of RDS sources (SourceIds) that triggers the events, and provide a list of event categories (EventCategories) for events you want to be notified of. For example, you can specify SourceType = db-instance, SourceIds = mydbinstance1, mydbinstance2 and EventCategories = Availability, Backup. ----- If you specify both the SourceType and SourceIds, such as SourceType = db-instance and SourceIdentifier = myDBInstance1, you will be notified of all the db-instance events for the specified source. If you specify a SourceType but do not specify a SourceIdentifier, you will receive notice of the events for that source type for all your RDS sources. If you do not specify either the SourceType nor the SourceIdentifier, you will be notified of events generated from all RDS sources belonging to your customer account.+-- If you specify both the SourceType and SourceIds, such as SourceType = db-instance and SourceIdentifier = myDBInstance1, you are notified of all the db-instance events for the specified source. If you specify a SourceType but do not specify a SourceIdentifier, you receive notice of the events for that source type for all your RDS sources. If you do not specify either the SourceType nor the SourceIdentifier, you are notified of events generated from all RDS sources belonging to your customer account. -- module Network.AWS.RDS.CreateEventSubscription     (@@ -47,12 +47,12 @@     , cesrsResponseStatus     ) 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+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  -- | --@@ -60,26 +60,27 @@ -- -- /See:/ 'createEventSubscription' smart constructor. data CreateEventSubscription = CreateEventSubscription'-    { _cesEnabled          :: !(Maybe Bool)-    , _cesSourceType       :: !(Maybe Text)-    , _cesEventCategories  :: !(Maybe [Text])-    , _cesSourceIds        :: !(Maybe [Text])-    , _cesTags             :: !(Maybe [Tag])-    , _cesSubscriptionName :: !Text-    , _cesSNSTopicARN      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cesEnabled          :: !(Maybe Bool)+  , _cesSourceType       :: !(Maybe Text)+  , _cesEventCategories  :: !(Maybe [Text])+  , _cesSourceIds        :: !(Maybe [Text])+  , _cesTags             :: !(Maybe [Tag])+  , _cesSubscriptionName :: !Text+  , _cesSNSTopicARN      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateEventSubscription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cesEnabled' - A Boolean value; set to __true__ to activate the subscription, set to __false__ to create the subscription but not active it. ----- * 'cesSourceType' - 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-cluster@ | @db-parameter-group@ | @db-security-group@ | @db-snapshot@ | @db-cluster-snapshot@+-- * 'cesSourceType' - The type of source that is 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-cluster@ | @db-parameter-group@ | @db-security-group@ | @db-snapshot@ | @db-cluster-snapshot@ -- -- * 'cesEventCategories' - A list of event categories for a SourceType that you want to subscribe to. You can see a list of the categories for a given SourceType in the <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Events.html Events> topic in the Amazon RDS User Guide or by using the __DescribeEventCategories__ action. ----- * 'cesSourceIds' - The list of identifiers of the event sources for which events will be returned. If not specified, then all sources are included in the response. An identifier must begin with a letter and must contain only ASCII letters, digits, and hyphens; it cannot end with a hyphen or contain two consecutive hyphens. 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' - The list of identifiers of the event sources for which events are returned. If not specified, then all sources are included in the response. An identifier must begin with a letter and must contain only ASCII letters, digits, and hyphens; it cannot end with a hyphen or contain two consecutive hyphens. 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. -- -- * 'cesTags' - Undocumented member. --@@ -91,21 +92,22 @@     -> Text -- ^ 'cesSNSTopicARN'     -> CreateEventSubscription createEventSubscription pSubscriptionName_ pSNSTopicARN_ =-    CreateEventSubscription'-    { _cesEnabled = Nothing-    , _cesSourceType = Nothing-    , _cesEventCategories = Nothing-    , _cesSourceIds = Nothing-    , _cesTags = Nothing-    , _cesSubscriptionName = pSubscriptionName_-    , _cesSNSTopicARN = pSNSTopicARN_-    }+  CreateEventSubscription'+  { _cesEnabled = Nothing+  , _cesSourceType = Nothing+  , _cesEventCategories = Nothing+  , _cesSourceIds = Nothing+  , _cesTags = Nothing+  , _cesSubscriptionName = pSubscriptionName_+  , _cesSNSTopicARN = pSNSTopicARN_+  } + -- | A Boolean value; set to __true__ to activate the subscription, set to __false__ to create the subscription but not active it. cesEnabled :: Lens' CreateEventSubscription (Maybe Bool) cesEnabled = lens _cesEnabled (\ s a -> s{_cesEnabled = a}); --- | 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-cluster@ | @db-parameter-group@ | @db-security-group@ | @db-snapshot@ | @db-cluster-snapshot@+-- | The type of source that is 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-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}); @@ -113,7 +115,7 @@ cesEventCategories :: Lens' CreateEventSubscription [Text] cesEventCategories = lens _cesEventCategories (\ s a -> s{_cesEventCategories = a}) . _Default . _Coerce; --- | The list of identifiers of the event sources for which events will be returned. If not specified, then all sources are included in the response. An identifier must begin with a letter and must contain only ASCII letters, digits, and hyphens; it cannot end with a hyphen or contain two consecutive hyphens. 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.+-- | The list of identifiers of the event sources for which events are returned. If not specified, then all sources are included in the response. An identifier must begin with a letter and must contain only ASCII letters, digits, and hyphens; it cannot end with a hyphen or contain two consecutive hyphens. 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; @@ -139,9 +141,9 @@                  CreateEventSubscriptionResponse' <$>                    (x .@? "EventSubscription") <*> (pure (fromEnum s))) -instance Hashable CreateEventSubscription+instance Hashable CreateEventSubscription where -instance NFData CreateEventSubscription+instance NFData CreateEventSubscription where  instance ToHeaders CreateEventSubscription where         toHeaders = const mempty@@ -169,10 +171,11 @@  -- | /See:/ 'createEventSubscriptionResponse' smart constructor. data CreateEventSubscriptionResponse = CreateEventSubscriptionResponse'-    { _cesrsEventSubscription :: !(Maybe EventSubscription)-    , _cesrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cesrsEventSubscription :: !(Maybe EventSubscription)+  , _cesrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateEventSubscriptionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -184,11 +187,10 @@     :: Int -- ^ 'cesrsResponseStatus'     -> CreateEventSubscriptionResponse createEventSubscriptionResponse pResponseStatus_ =-    CreateEventSubscriptionResponse'-    { _cesrsEventSubscription = Nothing-    , _cesrsResponseStatus = pResponseStatus_-    }+  CreateEventSubscriptionResponse'+  {_cesrsEventSubscription = Nothing, _cesrsResponseStatus = pResponseStatus_} + -- | Undocumented member. cesrsEventSubscription :: Lens' CreateEventSubscriptionResponse (Maybe EventSubscription) cesrsEventSubscription = lens _cesrsEventSubscription (\ s a -> s{_cesrsEventSubscription = a});@@ -197,4 +199,4 @@ cesrsResponseStatus :: Lens' CreateEventSubscriptionResponse Int cesrsResponseStatus = lens _cesrsResponseStatus (\ s a -> s{_cesrsResponseStatus = a}); -instance NFData CreateEventSubscriptionResponse+instance NFData CreateEventSubscriptionResponse where
gen/Network/AWS/RDS/CreateOptionGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.CreateOptionGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@     , crsResponseStatus     ) 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+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  -- | --@@ -54,20 +54,21 @@ -- -- /See:/ 'createOptionGroup' smart constructor. data CreateOptionGroup = CreateOptionGroup'-    { _cogTags                   :: !(Maybe [Tag])-    , _cogOptionGroupName        :: !Text-    , _cogEngineName             :: !Text-    , _cogMajorEngineVersion     :: !Text-    , _cogOptionGroupDescription :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cogTags                   :: !(Maybe [Tag])+  , _cogOptionGroupName        :: !Text+  , _cogEngineName             :: !Text+  , _cogMajorEngineVersion     :: !Text+  , _cogOptionGroupDescription :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateOptionGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'cogTags' - Undocumented member. ----- * 'cogOptionGroupName' - Specifies the name of the option group to be created. 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@+-- * 'cogOptionGroupName' - Specifies the name of the option group to be created. Constraints:     * Must be 1 to 255 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @myoptiongroup@ -- -- * 'cogEngineName' - Specifies the name of the engine that this option group should be associated with. --@@ -81,19 +82,20 @@     -> Text -- ^ 'cogOptionGroupDescription'     -> CreateOptionGroup createOptionGroup pOptionGroupName_ pEngineName_ pMajorEngineVersion_ pOptionGroupDescription_ =-    CreateOptionGroup'-    { _cogTags = Nothing-    , _cogOptionGroupName = pOptionGroupName_-    , _cogEngineName = pEngineName_-    , _cogMajorEngineVersion = pMajorEngineVersion_-    , _cogOptionGroupDescription = pOptionGroupDescription_-    }+  CreateOptionGroup'+  { _cogTags = Nothing+  , _cogOptionGroupName = pOptionGroupName_+  , _cogEngineName = pEngineName_+  , _cogMajorEngineVersion = pMajorEngineVersion_+  , _cogOptionGroupDescription = pOptionGroupDescription_+  } + -- | Undocumented member. cogTags :: Lens' CreateOptionGroup [Tag] cogTags = lens _cogTags (\ s a -> s{_cogTags = a}) . _Default . _Coerce; --- | Specifies the name of the option group to be created. 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@+-- | Specifies the name of the option group to be created. Constraints:     * Must be 1 to 255 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @myoptiongroup@ cogOptionGroupName :: Lens' CreateOptionGroup Text cogOptionGroupName = lens _cogOptionGroupName (\ s a -> s{_cogOptionGroupName = a}); @@ -118,9 +120,9 @@                  CreateOptionGroupResponse' <$>                    (x .@? "OptionGroup") <*> (pure (fromEnum s))) -instance Hashable CreateOptionGroup+instance Hashable CreateOptionGroup where -instance NFData CreateOptionGroup+instance NFData CreateOptionGroup where  instance ToHeaders CreateOptionGroup where         toHeaders = const mempty@@ -142,10 +144,11 @@  -- | /See:/ 'createOptionGroupResponse' smart constructor. data CreateOptionGroupResponse = CreateOptionGroupResponse'-    { _crsOptionGroup    :: !(Maybe OptionGroup)-    , _crsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crsOptionGroup    :: !(Maybe OptionGroup)+  , _crsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateOptionGroupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -157,11 +160,10 @@     :: Int -- ^ 'crsResponseStatus'     -> CreateOptionGroupResponse createOptionGroupResponse pResponseStatus_ =-    CreateOptionGroupResponse'-    { _crsOptionGroup = Nothing-    , _crsResponseStatus = pResponseStatus_-    }+  CreateOptionGroupResponse'+  {_crsOptionGroup = Nothing, _crsResponseStatus = pResponseStatus_} + -- | Undocumented member. crsOptionGroup :: Lens' CreateOptionGroupResponse (Maybe OptionGroup) crsOptionGroup = lens _crsOptionGroup (\ s a -> s{_crsOptionGroup = a});@@ -170,4 +172,4 @@ crsResponseStatus :: Lens' CreateOptionGroupResponse Int crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a}); -instance NFData CreateOptionGroupResponse+instance NFData CreateOptionGroupResponse where
gen/Network/AWS/RDS/DeleteDBCluster.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DeleteDBCluster--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -43,12 +43,12 @@     , ddbcrsResponseStatus     ) 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+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  -- | --@@ -56,31 +56,33 @@ -- -- /See:/ 'deleteDBCluster' smart constructor. data DeleteDBCluster = DeleteDBCluster'-    { _ddbcFinalDBSnapshotIdentifier :: !(Maybe Text)-    , _ddbcSkipFinalSnapshot         :: !(Maybe Bool)-    , _ddbcDBClusterIdentifier       :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddbcFinalDBSnapshotIdentifier :: !(Maybe Text)+  , _ddbcSkipFinalSnapshot         :: !(Maybe Bool)+  , _ddbcDBClusterIdentifier       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBCluster' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddbcFinalDBSnapshotIdentifier' - The DB cluster snapshot identifier of the new DB cluster snapshot created when @SkipFinalSnapshot@ is set to @false@ .  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' - The DB cluster snapshot identifier of the new DB cluster snapshot created when @SkipFinalSnapshot@ is set to @false@ .  Constraints:     * Must be 1 to 255 letters, numbers, or hyphens.     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens -- -- * 'ddbcSkipFinalSnapshot' - Determines whether a final DB cluster snapshot is created before the DB cluster is deleted. If @true@ is specified, no DB cluster snapshot is created. If @false@ is specified, a DB cluster snapshot is created before the DB cluster is deleted.  Default: @false@ ----- * 'ddbcDBClusterIdentifier' - The DB cluster identifier for the DB cluster to be deleted. This parameter isn't case-sensitive. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- * 'ddbcDBClusterIdentifier' - The DB cluster identifier for the DB cluster to be deleted. This parameter isn't case-sensitive. Constraints:     * Must match an existing DBClusterIdentifier. deleteDBCluster     :: Text -- ^ 'ddbcDBClusterIdentifier'     -> DeleteDBCluster deleteDBCluster pDBClusterIdentifier_ =-    DeleteDBCluster'-    { _ddbcFinalDBSnapshotIdentifier = Nothing-    , _ddbcSkipFinalSnapshot = Nothing-    , _ddbcDBClusterIdentifier = pDBClusterIdentifier_-    }+  DeleteDBCluster'+  { _ddbcFinalDBSnapshotIdentifier = Nothing+  , _ddbcSkipFinalSnapshot = Nothing+  , _ddbcDBClusterIdentifier = pDBClusterIdentifier_+  } --- | The DB cluster snapshot identifier of the new DB cluster snapshot created when @SkipFinalSnapshot@ is set to @false@ .  Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens++-- | The DB cluster snapshot identifier of the new DB cluster snapshot created when @SkipFinalSnapshot@ is set to @false@ .  Constraints:     * Must be 1 to 255 letters, numbers, or hyphens.     * 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}); @@ -88,7 +90,7 @@ ddbcSkipFinalSnapshot :: Lens' DeleteDBCluster (Maybe Bool) ddbcSkipFinalSnapshot = lens _ddbcSkipFinalSnapshot (\ s a -> s{_ddbcSkipFinalSnapshot = a}); --- | The DB cluster identifier for the DB cluster to be deleted. This parameter isn't case-sensitive. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The DB cluster identifier for the DB cluster to be deleted. This parameter isn't case-sensitive. Constraints:     * Must match an existing DBClusterIdentifier. ddbcDBClusterIdentifier :: Lens' DeleteDBCluster Text ddbcDBClusterIdentifier = lens _ddbcDBClusterIdentifier (\ s a -> s{_ddbcDBClusterIdentifier = a}); @@ -101,9 +103,9 @@                  DeleteDBClusterResponse' <$>                    (x .@? "DBCluster") <*> (pure (fromEnum s))) -instance Hashable DeleteDBCluster+instance Hashable DeleteDBCluster where -instance NFData DeleteDBCluster+instance NFData DeleteDBCluster where  instance ToHeaders DeleteDBCluster where         toHeaders = const mempty@@ -123,10 +125,11 @@  -- | /See:/ 'deleteDBClusterResponse' smart constructor. data DeleteDBClusterResponse = DeleteDBClusterResponse'-    { _ddbcrsDBCluster      :: !(Maybe DBCluster)-    , _ddbcrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddbcrsDBCluster      :: !(Maybe DBCluster)+  , _ddbcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBClusterResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -138,11 +141,10 @@     :: Int -- ^ 'ddbcrsResponseStatus'     -> DeleteDBClusterResponse deleteDBClusterResponse pResponseStatus_ =-    DeleteDBClusterResponse'-    { _ddbcrsDBCluster = Nothing-    , _ddbcrsResponseStatus = pResponseStatus_-    }+  DeleteDBClusterResponse'+  {_ddbcrsDBCluster = Nothing, _ddbcrsResponseStatus = pResponseStatus_} + -- | Undocumented member. ddbcrsDBCluster :: Lens' DeleteDBClusterResponse (Maybe DBCluster) ddbcrsDBCluster = lens _ddbcrsDBCluster (\ s a -> s{_ddbcrsDBCluster = a});@@ -151,4 +153,4 @@ ddbcrsResponseStatus :: Lens' DeleteDBClusterResponse Int ddbcrsResponseStatus = lens _ddbcrsResponseStatus (\ s a -> s{_ddbcrsResponseStatus = a}); -instance NFData DeleteDBClusterResponse+instance NFData DeleteDBClusterResponse where
gen/Network/AWS/RDS/DeleteDBClusterParameterGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DeleteDBClusterParameterGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,12 +36,12 @@     , DeleteDBClusterParameterGroupResponse     ) 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+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  -- | --@@ -49,9 +49,10 @@ -- -- /See:/ 'deleteDBClusterParameterGroup' smart constructor. newtype DeleteDBClusterParameterGroup = DeleteDBClusterParameterGroup'-    { _ddbcpgDBClusterParameterGroupName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddbcpgDBClusterParameterGroupName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBClusterParameterGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,10 +62,10 @@     :: Text -- ^ 'ddbcpgDBClusterParameterGroupName'     -> DeleteDBClusterParameterGroup deleteDBClusterParameterGroup pDBClusterParameterGroupName_ =-    DeleteDBClusterParameterGroup'-    { _ddbcpgDBClusterParameterGroupName = pDBClusterParameterGroupName_-    }+  DeleteDBClusterParameterGroup'+  {_ddbcpgDBClusterParameterGroupName = pDBClusterParameterGroupName_} + -- | The name of the DB cluster parameter group. 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});@@ -77,9 +78,9 @@         response           = receiveNull DeleteDBClusterParameterGroupResponse' -instance Hashable DeleteDBClusterParameterGroup+instance Hashable DeleteDBClusterParameterGroup where -instance NFData DeleteDBClusterParameterGroup+instance NFData DeleteDBClusterParameterGroup where  instance ToHeaders DeleteDBClusterParameterGroup          where@@ -99,13 +100,16 @@  -- | /See:/ 'deleteDBClusterParameterGroupResponse' smart constructor. data DeleteDBClusterParameterGroupResponse =-    DeleteDBClusterParameterGroupResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteDBClusterParameterGroupResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBClusterParameterGroupResponse' with the minimum fields required to make a request. -- deleteDBClusterParameterGroupResponse     :: DeleteDBClusterParameterGroupResponse deleteDBClusterParameterGroupResponse = DeleteDBClusterParameterGroupResponse' + instance NFData DeleteDBClusterParameterGroupResponse+         where
gen/Network/AWS/RDS/DeleteDBClusterSnapshot.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DeleteDBClusterSnapshot--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , ddcsrsResponseStatus     ) 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+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  -- | --@@ -52,9 +52,10 @@ -- -- /See:/ 'deleteDBClusterSnapshot' smart constructor. newtype DeleteDBClusterSnapshot = DeleteDBClusterSnapshot'-    { _ddcsDBClusterSnapshotIdentifier :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddcsDBClusterSnapshotIdentifier :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBClusterSnapshot' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,10 +65,10 @@     :: Text -- ^ 'ddcsDBClusterSnapshotIdentifier'     -> DeleteDBClusterSnapshot deleteDBClusterSnapshot pDBClusterSnapshotIdentifier_ =-    DeleteDBClusterSnapshot'-    { _ddcsDBClusterSnapshotIdentifier = pDBClusterSnapshotIdentifier_-    }+  DeleteDBClusterSnapshot'+  {_ddcsDBClusterSnapshotIdentifier = pDBClusterSnapshotIdentifier_} + -- | The identifier of the DB cluster snapshot to delete. Constraints: Must be the name of an existing DB cluster snapshot in the @available@ state. ddcsDBClusterSnapshotIdentifier :: Lens' DeleteDBClusterSnapshot Text ddcsDBClusterSnapshotIdentifier = lens _ddcsDBClusterSnapshotIdentifier (\ s a -> s{_ddcsDBClusterSnapshotIdentifier = a});@@ -82,9 +83,9 @@                  DeleteDBClusterSnapshotResponse' <$>                    (x .@? "DBClusterSnapshot") <*> (pure (fromEnum s))) -instance Hashable DeleteDBClusterSnapshot+instance Hashable DeleteDBClusterSnapshot where -instance NFData DeleteDBClusterSnapshot+instance NFData DeleteDBClusterSnapshot where  instance ToHeaders DeleteDBClusterSnapshot where         toHeaders = const mempty@@ -103,10 +104,11 @@  -- | /See:/ 'deleteDBClusterSnapshotResponse' smart constructor. data DeleteDBClusterSnapshotResponse = DeleteDBClusterSnapshotResponse'-    { _ddcsrsDBClusterSnapshot :: !(Maybe DBClusterSnapshot)-    , _ddcsrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddcsrsDBClusterSnapshot :: !(Maybe DBClusterSnapshot)+  , _ddcsrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBClusterSnapshotResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -118,11 +120,10 @@     :: Int -- ^ 'ddcsrsResponseStatus'     -> DeleteDBClusterSnapshotResponse deleteDBClusterSnapshotResponse pResponseStatus_ =-    DeleteDBClusterSnapshotResponse'-    { _ddcsrsDBClusterSnapshot = Nothing-    , _ddcsrsResponseStatus = pResponseStatus_-    }+  DeleteDBClusterSnapshotResponse'+  {_ddcsrsDBClusterSnapshot = Nothing, _ddcsrsResponseStatus = pResponseStatus_} + -- | Undocumented member. ddcsrsDBClusterSnapshot :: Lens' DeleteDBClusterSnapshotResponse (Maybe DBClusterSnapshot) ddcsrsDBClusterSnapshot = lens _ddcsrsDBClusterSnapshot (\ s a -> s{_ddcsrsDBClusterSnapshot = a});@@ -131,4 +132,4 @@ ddcsrsResponseStatus :: Lens' DeleteDBClusterSnapshotResponse Int ddcsrsResponseStatus = lens _ddcsrsResponseStatus (\ s a -> s{_ddcsrsResponseStatus = a}); -instance NFData DeleteDBClusterSnapshotResponse+instance NFData DeleteDBClusterSnapshotResponse where
gen/Network/AWS/RDS/DeleteDBInstance.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DeleteDBInstance--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,7 +25,7 @@ -- -- 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:+-- If the specified DB instance is part of an Amazon Aurora DB cluster, you cannot delete the DB instance if both of the following conditions are true: -- --     * The DB cluster is a Read Replica of another Amazon Aurora DB cluster. --@@ -53,12 +53,12 @@     , ddirsResponseStatus     ) 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+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  -- | --@@ -66,31 +66,33 @@ -- -- /See:/ 'deleteDBInstance' smart constructor. data DeleteDBInstance = DeleteDBInstance'-    { _ddiFinalDBSnapshotIdentifier :: !(Maybe Text)-    , _ddiSkipFinalSnapshot         :: !(Maybe Bool)-    , _ddiDBInstanceIdentifier      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddiFinalDBSnapshotIdentifier :: !(Maybe Text)+  , _ddiSkipFinalSnapshot         :: !(Maybe Bool)+  , _ddiDBInstanceIdentifier      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBInstance' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddiFinalDBSnapshotIdentifier' - The DBSnapshotIdentifier of the new DBSnapshot created when SkipFinalSnapshot is set to @false@ .  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' - The DBSnapshotIdentifier of the new DBSnapshot created when SkipFinalSnapshot is set to @false@ .  Constraints:     * Must be 1 to 255 letters or numbers.     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens     * Cannot be specified when deleting a Read Replica. -- -- * 'ddiSkipFinalSnapshot' - Determines whether a final DB snapshot is created before the DB instance is deleted. If @true@ is specified, no DBSnapshot is created. If @false@ is specified, a DB snapshot is created before the DB instance is deleted.  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". Specify @true@ when deleting a Read Replica. Default: @false@ ----- * 'ddiDBInstanceIdentifier' - The DB instance identifier for the DB instance to be deleted. This parameter isn't case-sensitive. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- * 'ddiDBInstanceIdentifier' - The DB instance identifier for the DB instance to be deleted. This parameter isn't case-sensitive. Constraints:     * Must match the name of an existing DB instance. deleteDBInstance     :: Text -- ^ 'ddiDBInstanceIdentifier'     -> DeleteDBInstance deleteDBInstance pDBInstanceIdentifier_ =-    DeleteDBInstance'-    { _ddiFinalDBSnapshotIdentifier = Nothing-    , _ddiSkipFinalSnapshot = Nothing-    , _ddiDBInstanceIdentifier = pDBInstanceIdentifier_-    }+  DeleteDBInstance'+  { _ddiFinalDBSnapshotIdentifier = Nothing+  , _ddiSkipFinalSnapshot = Nothing+  , _ddiDBInstanceIdentifier = pDBInstanceIdentifier_+  } --- | The DBSnapshotIdentifier of the new DBSnapshot created when SkipFinalSnapshot is set to @false@ .  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.++-- | The DBSnapshotIdentifier of the new DBSnapshot created when SkipFinalSnapshot is set to @false@ .  Constraints:     * Must be 1 to 255 letters or numbers.     * 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}); @@ -98,7 +100,7 @@ ddiSkipFinalSnapshot :: Lens' DeleteDBInstance (Maybe Bool) ddiSkipFinalSnapshot = lens _ddiSkipFinalSnapshot (\ s a -> s{_ddiSkipFinalSnapshot = a}); --- | The DB instance identifier for the DB instance to be deleted. This parameter isn't case-sensitive. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The DB instance identifier for the DB instance to be deleted. This parameter isn't case-sensitive. Constraints:     * Must match the name of an existing DB instance. ddiDBInstanceIdentifier :: Lens' DeleteDBInstance Text ddiDBInstanceIdentifier = lens _ddiDBInstanceIdentifier (\ s a -> s{_ddiDBInstanceIdentifier = a}); @@ -111,9 +113,9 @@                  DeleteDBInstanceResponse' <$>                    (x .@? "DBInstance") <*> (pure (fromEnum s))) -instance Hashable DeleteDBInstance+instance Hashable DeleteDBInstance where -instance NFData DeleteDBInstance+instance NFData DeleteDBInstance where  instance ToHeaders DeleteDBInstance where         toHeaders = const mempty@@ -133,10 +135,11 @@  -- | /See:/ 'deleteDBInstanceResponse' smart constructor. data DeleteDBInstanceResponse = DeleteDBInstanceResponse'-    { _ddirsDBInstance     :: !(Maybe DBInstance)-    , _ddirsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddirsDBInstance     :: !(Maybe DBInstance)+  , _ddirsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBInstanceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -148,11 +151,10 @@     :: Int -- ^ 'ddirsResponseStatus'     -> DeleteDBInstanceResponse deleteDBInstanceResponse pResponseStatus_ =-    DeleteDBInstanceResponse'-    { _ddirsDBInstance = Nothing-    , _ddirsResponseStatus = pResponseStatus_-    }+  DeleteDBInstanceResponse'+  {_ddirsDBInstance = Nothing, _ddirsResponseStatus = pResponseStatus_} + -- | Undocumented member. ddirsDBInstance :: Lens' DeleteDBInstanceResponse (Maybe DBInstance) ddirsDBInstance = lens _ddirsDBInstance (\ s a -> s{_ddirsDBInstance = a});@@ -161,4 +163,4 @@ ddirsResponseStatus :: Lens' DeleteDBInstanceResponse Int ddirsResponseStatus = lens _ddirsResponseStatus (\ s a -> s{_ddirsResponseStatus = a}); -instance NFData DeleteDBInstanceResponse+instance NFData DeleteDBInstanceResponse where
gen/Network/AWS/RDS/DeleteDBParameterGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DeleteDBParameterGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,12 +34,12 @@     , DeleteDBParameterGroupResponse     ) 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+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  -- | --@@ -47,9 +47,10 @@ -- -- /See:/ 'deleteDBParameterGroup' smart constructor. newtype DeleteDBParameterGroup = DeleteDBParameterGroup'-    { _ddbpgDBParameterGroupName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddbpgDBParameterGroupName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBParameterGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -59,10 +60,9 @@     :: Text -- ^ 'ddbpgDBParameterGroupName'     -> DeleteDBParameterGroup deleteDBParameterGroup pDBParameterGroupName_ =-    DeleteDBParameterGroup'-    { _ddbpgDBParameterGroupName = pDBParameterGroupName_-    }+  DeleteDBParameterGroup' {_ddbpgDBParameterGroupName = pDBParameterGroupName_} + -- | The name of the DB parameter group. 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});@@ -74,9 +74,9 @@         response           = receiveNull DeleteDBParameterGroupResponse' -instance Hashable DeleteDBParameterGroup+instance Hashable DeleteDBParameterGroup where -instance NFData DeleteDBParameterGroup+instance NFData DeleteDBParameterGroup where  instance ToHeaders DeleteDBParameterGroup where         toHeaders = const mempty@@ -94,13 +94,15 @@  -- | /See:/ 'deleteDBParameterGroupResponse' smart constructor. data DeleteDBParameterGroupResponse =-    DeleteDBParameterGroupResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteDBParameterGroupResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBParameterGroupResponse' with the minimum fields required to make a request. -- deleteDBParameterGroupResponse     :: DeleteDBParameterGroupResponse deleteDBParameterGroupResponse = DeleteDBParameterGroupResponse' -instance NFData DeleteDBParameterGroupResponse++instance NFData DeleteDBParameterGroupResponse where
gen/Network/AWS/RDS/DeleteDBSecurityGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DeleteDBSecurityGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,12 +34,12 @@     , DeleteDBSecurityGroupResponse     ) 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+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  -- | --@@ -47,23 +47,23 @@ -- -- /See:/ 'deleteDBSecurityGroup' smart constructor. newtype DeleteDBSecurityGroup = DeleteDBSecurityGroup'-    { _ddsgDBSecurityGroupName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddsgDBSecurityGroupName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBSecurityGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddsgDBSecurityGroupName' - The name of the DB security group to delete. 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"+-- * 'ddsgDBSecurityGroupName' - The name of the DB security group to delete. Constraints:     * Must be 1 to 255 letters, numbers, or hyphens.     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens     * Must not be "Default" deleteDBSecurityGroup     :: Text -- ^ 'ddsgDBSecurityGroupName'     -> DeleteDBSecurityGroup deleteDBSecurityGroup pDBSecurityGroupName_ =-    DeleteDBSecurityGroup'-    { _ddsgDBSecurityGroupName = pDBSecurityGroupName_-    }+  DeleteDBSecurityGroup' {_ddsgDBSecurityGroupName = pDBSecurityGroupName_} --- | The name of the DB security group to delete. 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"++-- | The name of the DB security group to delete. Constraints:     * Must be 1 to 255 letters, numbers, or hyphens.     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens     * Must not be "Default" ddsgDBSecurityGroupName :: Lens' DeleteDBSecurityGroup Text ddsgDBSecurityGroupName = lens _ddsgDBSecurityGroupName (\ s a -> s{_ddsgDBSecurityGroupName = a}); @@ -73,9 +73,9 @@         request = postQuery rds         response = receiveNull DeleteDBSecurityGroupResponse' -instance Hashable DeleteDBSecurityGroup+instance Hashable DeleteDBSecurityGroup where -instance NFData DeleteDBSecurityGroup+instance NFData DeleteDBSecurityGroup where  instance ToHeaders DeleteDBSecurityGroup where         toHeaders = const mempty@@ -92,13 +92,15 @@  -- | /See:/ 'deleteDBSecurityGroupResponse' smart constructor. data DeleteDBSecurityGroupResponse =-    DeleteDBSecurityGroupResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteDBSecurityGroupResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBSecurityGroupResponse' with the minimum fields required to make a request. -- deleteDBSecurityGroupResponse     :: DeleteDBSecurityGroupResponse deleteDBSecurityGroupResponse = DeleteDBSecurityGroupResponse' -instance NFData DeleteDBSecurityGroupResponse++instance NFData DeleteDBSecurityGroupResponse where
gen/Network/AWS/RDS/DeleteDBSnapshot.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DeleteDBSnapshot--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , ddbsrsResponseStatus     ) 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+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  -- | --@@ -50,9 +50,10 @@ -- -- /See:/ 'deleteDBSnapshot' smart constructor. newtype DeleteDBSnapshot = DeleteDBSnapshot'-    { _ddbsDBSnapshotIdentifier :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddbsDBSnapshotIdentifier :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBSnapshot' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,9 @@     :: Text -- ^ 'ddbsDBSnapshotIdentifier'     -> DeleteDBSnapshot deleteDBSnapshot pDBSnapshotIdentifier_ =-    DeleteDBSnapshot'-    { _ddbsDBSnapshotIdentifier = pDBSnapshotIdentifier_-    }+  DeleteDBSnapshot' {_ddbsDBSnapshotIdentifier = pDBSnapshotIdentifier_} + -- | The DBSnapshot identifier. Constraints: Must be the name of an existing DB snapshot in the @available@ state. ddbsDBSnapshotIdentifier :: Lens' DeleteDBSnapshot Text ddbsDBSnapshotIdentifier = lens _ddbsDBSnapshotIdentifier (\ s a -> s{_ddbsDBSnapshotIdentifier = a});@@ -79,9 +79,9 @@                  DeleteDBSnapshotResponse' <$>                    (x .@? "DBSnapshot") <*> (pure (fromEnum s))) -instance Hashable DeleteDBSnapshot+instance Hashable DeleteDBSnapshot where -instance NFData DeleteDBSnapshot+instance NFData DeleteDBSnapshot where  instance ToHeaders DeleteDBSnapshot where         toHeaders = const mempty@@ -98,10 +98,11 @@  -- | /See:/ 'deleteDBSnapshotResponse' smart constructor. data DeleteDBSnapshotResponse = DeleteDBSnapshotResponse'-    { _ddbsrsDBSnapshot     :: !(Maybe DBSnapshot)-    , _ddbsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddbsrsDBSnapshot     :: !(Maybe DBSnapshot)+  , _ddbsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBSnapshotResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -113,11 +114,10 @@     :: Int -- ^ 'ddbsrsResponseStatus'     -> DeleteDBSnapshotResponse deleteDBSnapshotResponse pResponseStatus_ =-    DeleteDBSnapshotResponse'-    { _ddbsrsDBSnapshot = Nothing-    , _ddbsrsResponseStatus = pResponseStatus_-    }+  DeleteDBSnapshotResponse'+  {_ddbsrsDBSnapshot = Nothing, _ddbsrsResponseStatus = pResponseStatus_} + -- | Undocumented member. ddbsrsDBSnapshot :: Lens' DeleteDBSnapshotResponse (Maybe DBSnapshot) ddbsrsDBSnapshot = lens _ddbsrsDBSnapshot (\ s a -> s{_ddbsrsDBSnapshot = a});@@ -126,4 +126,4 @@ ddbsrsResponseStatus :: Lens' DeleteDBSnapshotResponse Int ddbsrsResponseStatus = lens _ddbsrsResponseStatus (\ s a -> s{_ddbsrsResponseStatus = a}); -instance NFData DeleteDBSnapshotResponse+instance NFData DeleteDBSnapshotResponse where
gen/Network/AWS/RDS/DeleteDBSubnetGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DeleteDBSubnetGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,12 +34,12 @@     , DeleteDBSubnetGroupResponse     ) 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+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  -- | --@@ -47,23 +47,23 @@ -- -- /See:/ 'deleteDBSubnetGroup' smart constructor. newtype DeleteDBSubnetGroup = DeleteDBSubnetGroup'-    { _ddbsgDBSubnetGroupName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddbsgDBSubnetGroupName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBSubnetGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddbsgDBSubnetGroupName' - The name of the database subnet group to delete. Constraints: Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@+-- * 'ddbsgDBSubnetGroupName' - The name of the database subnet group to delete. Constraints: Constraints: Must match the name of an existing DBSubnetGroup. Must not be default. Example: @mySubnetgroup@ deleteDBSubnetGroup     :: Text -- ^ 'ddbsgDBSubnetGroupName'     -> DeleteDBSubnetGroup deleteDBSubnetGroup pDBSubnetGroupName_ =-    DeleteDBSubnetGroup'-    { _ddbsgDBSubnetGroupName = pDBSubnetGroupName_-    }+  DeleteDBSubnetGroup' {_ddbsgDBSubnetGroupName = pDBSubnetGroupName_} --- | The name of the database subnet group to delete. Constraints: Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@++-- | The name of the database subnet group to delete. Constraints: Constraints: Must match the name of an existing DBSubnetGroup. Must not be default. Example: @mySubnetgroup@ ddbsgDBSubnetGroupName :: Lens' DeleteDBSubnetGroup Text ddbsgDBSubnetGroupName = lens _ddbsgDBSubnetGroupName (\ s a -> s{_ddbsgDBSubnetGroupName = a}); @@ -73,9 +73,9 @@         request = postQuery rds         response = receiveNull DeleteDBSubnetGroupResponse' -instance Hashable DeleteDBSubnetGroup+instance Hashable DeleteDBSubnetGroup where -instance NFData DeleteDBSubnetGroup+instance NFData DeleteDBSubnetGroup where  instance ToHeaders DeleteDBSubnetGroup where         toHeaders = const mempty@@ -92,13 +92,15 @@  -- | /See:/ 'deleteDBSubnetGroupResponse' smart constructor. data DeleteDBSubnetGroupResponse =-    DeleteDBSubnetGroupResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteDBSubnetGroupResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDBSubnetGroupResponse' with the minimum fields required to make a request. -- deleteDBSubnetGroupResponse     :: DeleteDBSubnetGroupResponse deleteDBSubnetGroupResponse = DeleteDBSubnetGroupResponse' -instance NFData DeleteDBSubnetGroupResponse++instance NFData DeleteDBSubnetGroupResponse where
gen/Network/AWS/RDS/DeleteEventSubscription.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DeleteEventSubscription--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , drsResponseStatus     ) 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+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  -- | --@@ -50,9 +50,10 @@ -- -- /See:/ 'deleteEventSubscription' smart constructor. newtype DeleteEventSubscription = DeleteEventSubscription'-    { _desSubscriptionName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _desSubscriptionName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteEventSubscription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,9 @@     :: Text -- ^ 'desSubscriptionName'     -> DeleteEventSubscription deleteEventSubscription pSubscriptionName_ =-    DeleteEventSubscription'-    { _desSubscriptionName = pSubscriptionName_-    }+  DeleteEventSubscription' {_desSubscriptionName = pSubscriptionName_} + -- | The name of the RDS event notification subscription you want to delete. desSubscriptionName :: Lens' DeleteEventSubscription Text desSubscriptionName = lens _desSubscriptionName (\ s a -> s{_desSubscriptionName = a});@@ -80,9 +80,9 @@                  DeleteEventSubscriptionResponse' <$>                    (x .@? "EventSubscription") <*> (pure (fromEnum s))) -instance Hashable DeleteEventSubscription+instance Hashable DeleteEventSubscription where -instance NFData DeleteEventSubscription+instance NFData DeleteEventSubscription where  instance ToHeaders DeleteEventSubscription where         toHeaders = const mempty@@ -100,10 +100,11 @@  -- | /See:/ 'deleteEventSubscriptionResponse' smart constructor. data DeleteEventSubscriptionResponse = DeleteEventSubscriptionResponse'-    { _drsEventSubscription :: !(Maybe EventSubscription)-    , _drsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drsEventSubscription :: !(Maybe EventSubscription)+  , _drsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteEventSubscriptionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -115,11 +116,10 @@     :: Int -- ^ 'drsResponseStatus'     -> DeleteEventSubscriptionResponse deleteEventSubscriptionResponse pResponseStatus_ =-    DeleteEventSubscriptionResponse'-    { _drsEventSubscription = Nothing-    , _drsResponseStatus = pResponseStatus_-    }+  DeleteEventSubscriptionResponse'+  {_drsEventSubscription = Nothing, _drsResponseStatus = pResponseStatus_} + -- | Undocumented member. drsEventSubscription :: Lens' DeleteEventSubscriptionResponse (Maybe EventSubscription) drsEventSubscription = lens _drsEventSubscription (\ s a -> s{_drsEventSubscription = a});@@ -128,4 +128,4 @@ drsResponseStatus :: Lens' DeleteEventSubscriptionResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DeleteEventSubscriptionResponse+instance NFData DeleteEventSubscriptionResponse where
gen/Network/AWS/RDS/DeleteOptionGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DeleteOptionGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,12 +34,12 @@     , DeleteOptionGroupResponse     ) 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+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  -- | --@@ -47,9 +47,10 @@ -- -- /See:/ 'deleteOptionGroup' smart constructor. newtype DeleteOptionGroup = DeleteOptionGroup'-    { _dOptionGroupName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dOptionGroupName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteOptionGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -59,10 +60,9 @@     :: Text -- ^ 'dOptionGroupName'     -> DeleteOptionGroup deleteOptionGroup pOptionGroupName_ =-    DeleteOptionGroup'-    { _dOptionGroupName = pOptionGroupName_-    }+  DeleteOptionGroup' {_dOptionGroupName = pOptionGroupName_} + -- | The name of the option group to be deleted. dOptionGroupName :: Lens' DeleteOptionGroup Text dOptionGroupName = lens _dOptionGroupName (\ s a -> s{_dOptionGroupName = a});@@ -72,9 +72,9 @@         request = postQuery rds         response = receiveNull DeleteOptionGroupResponse' -instance Hashable DeleteOptionGroup+instance Hashable DeleteOptionGroup where -instance NFData DeleteOptionGroup+instance NFData DeleteOptionGroup where  instance ToHeaders DeleteOptionGroup where         toHeaders = const mempty@@ -91,13 +91,15 @@  -- | /See:/ 'deleteOptionGroupResponse' smart constructor. data DeleteOptionGroupResponse =-    DeleteOptionGroupResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteOptionGroupResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteOptionGroupResponse' with the minimum fields required to make a request. -- deleteOptionGroupResponse     :: DeleteOptionGroupResponse deleteOptionGroupResponse = DeleteOptionGroupResponse' -instance NFData DeleteOptionGroupResponse++instance NFData DeleteOptionGroupResponse where
gen/Network/AWS/RDS/DescribeAccountAttributes.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeAccountAttributes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , daarsResponseStatus     ) 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+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  -- | --@@ -50,15 +50,17 @@ -- -- /See:/ 'describeAccountAttributes' smart constructor. data DescribeAccountAttributes =-    DescribeAccountAttributes'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DescribeAccountAttributes'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAccountAttributes' with the minimum fields required to make a request. -- describeAccountAttributes     :: DescribeAccountAttributes describeAccountAttributes = DescribeAccountAttributes' + instance AWSRequest DescribeAccountAttributes where         type Rs DescribeAccountAttributes =              DescribeAccountAttributesResponse@@ -71,9 +73,9 @@                       may (parseXMLList "AccountQuota"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeAccountAttributes+instance Hashable DescribeAccountAttributes where -instance NFData DescribeAccountAttributes+instance NFData DescribeAccountAttributes where  instance ToHeaders DescribeAccountAttributes where         toHeaders = const mempty@@ -95,10 +97,11 @@ -- -- /See:/ 'describeAccountAttributesResponse' smart constructor. data DescribeAccountAttributesResponse = DescribeAccountAttributesResponse'-    { _daarsAccountQuotas  :: !(Maybe [AccountQuota])-    , _daarsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _daarsAccountQuotas  :: !(Maybe [AccountQuota])+  , _daarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAccountAttributesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -110,11 +113,10 @@     :: Int -- ^ 'daarsResponseStatus'     -> DescribeAccountAttributesResponse describeAccountAttributesResponse pResponseStatus_ =-    DescribeAccountAttributesResponse'-    { _daarsAccountQuotas = Nothing-    , _daarsResponseStatus = pResponseStatus_-    }+  DescribeAccountAttributesResponse'+  {_daarsAccountQuotas = Nothing, _daarsResponseStatus = pResponseStatus_} + -- | A list of 'AccountQuota' objects. Within this list, each quota has a name, a count of usage toward the quota maximum, and a maximum value for the quota. daarsAccountQuotas :: Lens' DescribeAccountAttributesResponse [AccountQuota] daarsAccountQuotas = lens _daarsAccountQuotas (\ s a -> s{_daarsAccountQuotas = a}) . _Default . _Coerce;@@ -124,3 +126,4 @@ daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a});  instance NFData DescribeAccountAttributesResponse+         where
gen/Network/AWS/RDS/DescribeCertificates.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeCertificates--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@     , dcrsResponseStatus     ) 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+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  -- | --@@ -54,19 +54,20 @@ -- -- /See:/ 'describeCertificates' smart constructor. data DescribeCertificates = DescribeCertificates'-    { _dcFilters               :: !(Maybe [Filter])-    , _dcCertificateIdentifier :: !(Maybe Text)-    , _dcMarker                :: !(Maybe Text)-    , _dcMaxRecords            :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcFilters               :: !(Maybe [Filter])+  , _dcCertificateIdentifier :: !(Maybe Text)+  , _dcMarker                :: !(Maybe Text)+  , _dcMaxRecords            :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCertificates' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dcFilters' - This parameter is not currently supported. ----- * 'dcCertificateIdentifier' - The user-supplied certificate identifier. If this parameter is specified, information for only the identified certificate is returned. This parameter isn't case-sensitive. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- * 'dcCertificateIdentifier' - The user-supplied certificate identifier. If this parameter is specified, information for only the identified certificate is returned. This parameter isn't case-sensitive. Constraints:     * Must match an existing CertificateIdentifier. -- -- * 'dcMarker' - An optional pagination token provided by a previous 'DescribeCertificates' request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . --@@ -74,18 +75,19 @@ describeCertificates     :: DescribeCertificates describeCertificates =-    DescribeCertificates'-    { _dcFilters = Nothing-    , _dcCertificateIdentifier = Nothing-    , _dcMarker = Nothing-    , _dcMaxRecords = Nothing-    }+  DescribeCertificates'+  { _dcFilters = Nothing+  , _dcCertificateIdentifier = Nothing+  , _dcMarker = Nothing+  , _dcMaxRecords = Nothing+  } + -- | This parameter is not currently supported. dcFilters :: Lens' DescribeCertificates [Filter] dcFilters = lens _dcFilters (\ s a -> s{_dcFilters = a}) . _Default . _Coerce; --- | The user-supplied certificate identifier. If this parameter is specified, information for only the identified certificate is returned. This parameter isn't case-sensitive. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The user-supplied certificate identifier. If this parameter is specified, information for only the identified certificate is returned. This parameter isn't case-sensitive. Constraints:     * Must match an existing CertificateIdentifier. dcCertificateIdentifier :: Lens' DescribeCertificates (Maybe Text) dcCertificateIdentifier = lens _dcCertificateIdentifier (\ s a -> s{_dcCertificateIdentifier = a}); @@ -110,9 +112,9 @@                      <*> (x .@? "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeCertificates+instance Hashable DescribeCertificates where -instance NFData DescribeCertificates+instance NFData DescribeCertificates where  instance ToHeaders DescribeCertificates where         toHeaders = const mempty@@ -136,11 +138,12 @@ -- -- /See:/ 'describeCertificatesResponse' smart constructor. data DescribeCertificatesResponse = DescribeCertificatesResponse'-    { _dcrsCertificates   :: !(Maybe [Certificate])-    , _dcrsMarker         :: !(Maybe Text)-    , _dcrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcrsCertificates   :: !(Maybe [Certificate])+  , _dcrsMarker         :: !(Maybe Text)+  , _dcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCertificatesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -154,12 +157,13 @@     :: Int -- ^ 'dcrsResponseStatus'     -> DescribeCertificatesResponse describeCertificatesResponse pResponseStatus_ =-    DescribeCertificatesResponse'-    { _dcrsCertificates = Nothing-    , _dcrsMarker = Nothing-    , _dcrsResponseStatus = pResponseStatus_-    }+  DescribeCertificatesResponse'+  { _dcrsCertificates = Nothing+  , _dcrsMarker = Nothing+  , _dcrsResponseStatus = pResponseStatus_+  } + -- | The list of 'Certificate' objects for the AWS account. dcrsCertificates :: Lens' DescribeCertificatesResponse [Certificate] dcrsCertificates = lens _dcrsCertificates (\ s a -> s{_dcrsCertificates = a}) . _Default . _Coerce;@@ -172,4 +176,4 @@ dcrsResponseStatus :: Lens' DescribeCertificatesResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a}); -instance NFData DescribeCertificatesResponse+instance NFData DescribeCertificatesResponse where
gen/Network/AWS/RDS/DescribeDBClusterParameterGroups.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeDBClusterParameterGroups--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -43,12 +43,12 @@     , ddcpgrsResponseStatus     ) 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+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  -- | --@@ -56,12 +56,13 @@ -- -- /See:/ 'describeDBClusterParameterGroups' smart constructor. data DescribeDBClusterParameterGroups = DescribeDBClusterParameterGroups'-    { _ddcpgFilters                     :: !(Maybe [Filter])-    , _ddcpgMarker                      :: !(Maybe Text)-    , _ddcpgMaxRecords                  :: !(Maybe Int)-    , _ddcpgDBClusterParameterGroupName :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddcpgFilters                     :: !(Maybe [Filter])+  , _ddcpgMarker                      :: !(Maybe Text)+  , _ddcpgMaxRecords                  :: !(Maybe Int)+  , _ddcpgDBClusterParameterGroupName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBClusterParameterGroups' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,17 +73,18 @@ -- -- * 'ddcpgMaxRecords' - 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. ----- * 'ddcpgDBClusterParameterGroupName' - The name of a specific DB cluster parameter group to return details for. 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' - The name of a specific DB cluster parameter group to return details for. Constraints:     * If supplied, must match the name of an existing DBClusterParameterGroup. describeDBClusterParameterGroups     :: DescribeDBClusterParameterGroups describeDBClusterParameterGroups =-    DescribeDBClusterParameterGroups'-    { _ddcpgFilters = Nothing-    , _ddcpgMarker = Nothing-    , _ddcpgMaxRecords = Nothing-    , _ddcpgDBClusterParameterGroupName = Nothing-    }+  DescribeDBClusterParameterGroups'+  { _ddcpgFilters = Nothing+  , _ddcpgMarker = Nothing+  , _ddcpgMaxRecords = Nothing+  , _ddcpgDBClusterParameterGroupName = Nothing+  } + -- | This parameter is not currently supported. ddcpgFilters :: Lens' DescribeDBClusterParameterGroups [Filter] ddcpgFilters = lens _ddcpgFilters (\ s a -> s{_ddcpgFilters = a}) . _Default . _Coerce;@@ -95,7 +97,7 @@ ddcpgMaxRecords :: Lens' DescribeDBClusterParameterGroups (Maybe Int) ddcpgMaxRecords = lens _ddcpgMaxRecords (\ s a -> s{_ddcpgMaxRecords = a}); --- | The name of a specific DB cluster parameter group to return details for. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The name of a specific DB cluster parameter group to return details for. Constraints:     * If supplied, must match the name of an existing DBClusterParameterGroup. ddcpgDBClusterParameterGroupName :: Lens' DescribeDBClusterParameterGroups (Maybe Text) ddcpgDBClusterParameterGroupName = lens _ddcpgDBClusterParameterGroupName (\ s a -> s{_ddcpgDBClusterParameterGroupName = a}); @@ -115,8 +117,10 @@                      <*> (pure (fromEnum s)))  instance Hashable DescribeDBClusterParameterGroups+         where  instance NFData DescribeDBClusterParameterGroups+         where  instance ToHeaders DescribeDBClusterParameterGroups          where@@ -146,11 +150,12 @@ -- -- /See:/ 'describeDBClusterParameterGroupsResponse' smart constructor. data DescribeDBClusterParameterGroupsResponse = DescribeDBClusterParameterGroupsResponse'-    { _ddcpgrsMarker                   :: !(Maybe Text)-    , _ddcpgrsDBClusterParameterGroups :: !(Maybe [DBClusterParameterGroup])-    , _ddcpgrsResponseStatus           :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddcpgrsMarker                   :: !(Maybe Text)+  , _ddcpgrsDBClusterParameterGroups :: !(Maybe [DBClusterParameterGroup])+  , _ddcpgrsResponseStatus           :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBClusterParameterGroupsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -164,12 +169,13 @@     :: Int -- ^ 'ddcpgrsResponseStatus'     -> DescribeDBClusterParameterGroupsResponse describeDBClusterParameterGroupsResponse pResponseStatus_ =-    DescribeDBClusterParameterGroupsResponse'-    { _ddcpgrsMarker = Nothing-    , _ddcpgrsDBClusterParameterGroups = Nothing-    , _ddcpgrsResponseStatus = pResponseStatus_-    }+  DescribeDBClusterParameterGroupsResponse'+  { _ddcpgrsMarker = Nothing+  , _ddcpgrsDBClusterParameterGroups = Nothing+  , _ddcpgrsResponseStatus = pResponseStatus_+  } + -- | An optional pagination token provided by a previous @DescribeDBClusterParameterGroups@ request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . ddcpgrsMarker :: Lens' DescribeDBClusterParameterGroupsResponse (Maybe Text) ddcpgrsMarker = lens _ddcpgrsMarker (\ s a -> s{_ddcpgrsMarker = a});@@ -183,4 +189,5 @@ ddcpgrsResponseStatus = lens _ddcpgrsResponseStatus (\ s a -> s{_ddcpgrsResponseStatus = a});  instance NFData-         DescribeDBClusterParameterGroupsResponse+           DescribeDBClusterParameterGroupsResponse+         where
gen/Network/AWS/RDS/DescribeDBClusterParameters.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeDBClusterParameters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -44,12 +44,12 @@     , ddcprsResponseStatus     ) 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+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  -- | --@@ -57,13 +57,14 @@ -- -- /See:/ 'describeDBClusterParameters' smart constructor. data DescribeDBClusterParameters = DescribeDBClusterParameters'-    { _ddcpFilters                     :: !(Maybe [Filter])-    , _ddcpMarker                      :: !(Maybe Text)-    , _ddcpMaxRecords                  :: !(Maybe Int)-    , _ddcpSource                      :: !(Maybe Text)-    , _ddcpDBClusterParameterGroupName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddcpFilters                     :: !(Maybe [Filter])+  , _ddcpMarker                      :: !(Maybe Text)+  , _ddcpMaxRecords                  :: !(Maybe Int)+  , _ddcpSource                      :: !(Maybe Text)+  , _ddcpDBClusterParameterGroupName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBClusterParameters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,19 +77,20 @@ -- -- * 'ddcpSource' - A value that indicates to return only parameters for a specific source. Parameter sources can be @engine@ , @service@ , or @customer@ . ----- * 'ddcpDBClusterParameterGroupName' - The name of a specific DB cluster parameter group to return parameter details for. 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' - The name of a specific DB cluster parameter group to return parameter details for. Constraints:     * If supplied, must match the name of an existing DBClusterParameterGroup. describeDBClusterParameters     :: Text -- ^ 'ddcpDBClusterParameterGroupName'     -> DescribeDBClusterParameters describeDBClusterParameters pDBClusterParameterGroupName_ =-    DescribeDBClusterParameters'-    { _ddcpFilters = Nothing-    , _ddcpMarker = Nothing-    , _ddcpMaxRecords = Nothing-    , _ddcpSource = Nothing-    , _ddcpDBClusterParameterGroupName = pDBClusterParameterGroupName_-    }+  DescribeDBClusterParameters'+  { _ddcpFilters = Nothing+  , _ddcpMarker = Nothing+  , _ddcpMaxRecords = Nothing+  , _ddcpSource = Nothing+  , _ddcpDBClusterParameterGroupName = pDBClusterParameterGroupName_+  } + -- | This parameter is not currently supported. ddcpFilters :: Lens' DescribeDBClusterParameters [Filter] ddcpFilters = lens _ddcpFilters (\ s a -> s{_ddcpFilters = a}) . _Default . _Coerce;@@ -105,7 +107,7 @@ ddcpSource :: Lens' DescribeDBClusterParameters (Maybe Text) ddcpSource = lens _ddcpSource (\ s a -> s{_ddcpSource = a}); --- | The name of a specific DB cluster parameter group to return parameter details for. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The name of a specific DB cluster parameter group to return parameter details for. Constraints:     * If supplied, must match the name of an existing DBClusterParameterGroup. ddcpDBClusterParameterGroupName :: Lens' DescribeDBClusterParameters Text ddcpDBClusterParameterGroupName = lens _ddcpDBClusterParameterGroupName (\ s a -> s{_ddcpDBClusterParameterGroupName = a}); @@ -123,9 +125,9 @@                         may (parseXMLList "Parameter"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeDBClusterParameters+instance Hashable DescribeDBClusterParameters where -instance NFData DescribeDBClusterParameters+instance NFData DescribeDBClusterParameters where  instance ToHeaders DescribeDBClusterParameters where         toHeaders = const mempty@@ -153,11 +155,12 @@ -- -- /See:/ 'describeDBClusterParametersResponse' smart constructor. data DescribeDBClusterParametersResponse = DescribeDBClusterParametersResponse'-    { _ddcprsMarker         :: !(Maybe Text)-    , _ddcprsParameters     :: !(Maybe [Parameter])-    , _ddcprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddcprsMarker         :: !(Maybe Text)+  , _ddcprsParameters     :: !(Maybe [Parameter])+  , _ddcprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBClusterParametersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -171,12 +174,13 @@     :: Int -- ^ 'ddcprsResponseStatus'     -> DescribeDBClusterParametersResponse describeDBClusterParametersResponse pResponseStatus_ =-    DescribeDBClusterParametersResponse'-    { _ddcprsMarker = Nothing-    , _ddcprsParameters = Nothing-    , _ddcprsResponseStatus = pResponseStatus_-    }+  DescribeDBClusterParametersResponse'+  { _ddcprsMarker = Nothing+  , _ddcprsParameters = Nothing+  , _ddcprsResponseStatus = pResponseStatus_+  } + -- | An optional pagination token provided by a previous DescribeDBClusterParameters request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . ddcprsMarker :: Lens' DescribeDBClusterParametersResponse (Maybe Text) ddcprsMarker = lens _ddcprsMarker (\ s a -> s{_ddcprsMarker = a});@@ -190,3 +194,4 @@ ddcprsResponseStatus = lens _ddcprsResponseStatus (\ s a -> s{_ddcprsResponseStatus = a});  instance NFData DescribeDBClusterParametersResponse+         where
gen/Network/AWS/RDS/DescribeDBClusterSnapshotAttributes.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeDBClusterSnapshotAttributes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@     , 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+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  -- | --@@ -54,9 +54,10 @@ -- -- /See:/ 'describeDBClusterSnapshotAttributes' smart constructor. newtype DescribeDBClusterSnapshotAttributes = DescribeDBClusterSnapshotAttributes'-    { _ddcsaDBClusterSnapshotIdentifier :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -66,16 +67,17 @@     :: Text -- ^ 'ddcsaDBClusterSnapshotIdentifier'     -> DescribeDBClusterSnapshotAttributes describeDBClusterSnapshotAttributes pDBClusterSnapshotIdentifier_ =-    DescribeDBClusterSnapshotAttributes'-    { _ddcsaDBClusterSnapshotIdentifier = 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+           DescribeDBClusterSnapshotAttributes+         where         type Rs DescribeDBClusterSnapshotAttributes =              DescribeDBClusterSnapshotAttributesResponse         request = postQuery rds@@ -88,11 +90,14 @@                      (pure (fromEnum s)))  instance Hashable DescribeDBClusterSnapshotAttributes+         where  instance NFData DescribeDBClusterSnapshotAttributes+         where  instance ToHeaders-         DescribeDBClusterSnapshotAttributes where+           DescribeDBClusterSnapshotAttributes+         where         toHeaders = const mempty  instance ToPath DescribeDBClusterSnapshotAttributes@@ -112,10 +117,11 @@  -- | /See:/ 'describeDBClusterSnapshotAttributesResponse' smart constructor. data DescribeDBClusterSnapshotAttributesResponse = DescribeDBClusterSnapshotAttributesResponse'-    { _ddcsarsDBClusterSnapshotAttributesResult :: !(Maybe DBClusterSnapshotAttributesResult)-    , _ddcsarsResponseStatus                    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -127,11 +133,12 @@     :: Int -- ^ 'ddcsarsResponseStatus'     -> DescribeDBClusterSnapshotAttributesResponse describeDBClusterSnapshotAttributesResponse pResponseStatus_ =-    DescribeDBClusterSnapshotAttributesResponse'-    { _ddcsarsDBClusterSnapshotAttributesResult = Nothing-    , _ddcsarsResponseStatus = pResponseStatus_-    }+  DescribeDBClusterSnapshotAttributesResponse'+  { _ddcsarsDBClusterSnapshotAttributesResult = Nothing+  , _ddcsarsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. ddcsarsDBClusterSnapshotAttributesResult :: Lens' DescribeDBClusterSnapshotAttributesResponse (Maybe DBClusterSnapshotAttributesResult) ddcsarsDBClusterSnapshotAttributesResult = lens _ddcsarsDBClusterSnapshotAttributesResult (\ s a -> s{_ddcsarsDBClusterSnapshotAttributesResult = a});@@ -141,4 +148,5 @@ ddcsarsResponseStatus = lens _ddcsarsResponseStatus (\ s a -> s{_ddcsarsResponseStatus = a});  instance NFData-         DescribeDBClusterSnapshotAttributesResponse+           DescribeDBClusterSnapshotAttributesResponse+         where
gen/Network/AWS/RDS/DescribeDBClusterSnapshots.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeDBClusterSnapshots--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -49,13 +49,13 @@     , ddbcsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -63,25 +63,26 @@ -- -- /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)+  { _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. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddbcsDBClusterIdentifier' - 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' - 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:     * If supplied, must match the identifier of an existing DBCluster. -- -- * 'ddbcsIncludeShared' - 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. ----- * 'ddbcsDBClusterSnapshotIdentifier' - 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 identifier is for an automated snapshot, the @SnapshotType@ parameter must also be specified.+-- * 'ddbcsDBClusterSnapshotIdentifier' - 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:     * If supplied, must match the identifier of an existing DBClusterSnapshot.     * If this identifier is for an automated snapshot, the @SnapshotType@ parameter must also be specified. -- -- * 'ddbcsFilters' - This parameter is not currently supported. --@@ -95,18 +96,19 @@ describeDBClusterSnapshots     :: DescribeDBClusterSnapshots describeDBClusterSnapshots =-    DescribeDBClusterSnapshots'-    { _ddbcsDBClusterIdentifier = Nothing-    , _ddbcsIncludeShared = Nothing-    , _ddbcsDBClusterSnapshotIdentifier = Nothing-    , _ddbcsFilters = Nothing-    , _ddbcsSnapshotType = Nothing-    , _ddbcsMarker = Nothing-    , _ddbcsMaxRecords = Nothing-    , _ddbcsIncludePublic = Nothing-    }+  DescribeDBClusterSnapshots'+  { _ddbcsDBClusterIdentifier = Nothing+  , _ddbcsIncludeShared = Nothing+  , _ddbcsDBClusterSnapshotIdentifier = Nothing+  , _ddbcsFilters = Nothing+  , _ddbcsSnapshotType = Nothing+  , _ddbcsMarker = Nothing+  , _ddbcsMaxRecords = Nothing+  , _ddbcsIncludePublic = Nothing+  } --- | 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++-- | 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:     * If supplied, must match the identifier of an existing DBCluster. ddbcsDBClusterIdentifier :: Lens' DescribeDBClusterSnapshots (Maybe Text) ddbcsDBClusterIdentifier = lens _ddbcsDBClusterIdentifier (\ s a -> s{_ddbcsDBClusterIdentifier = a}); @@ -114,7 +116,7 @@ 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 identifier is for an automated snapshot, the @SnapshotType@ parameter must also be specified.+-- | 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:     * If supplied, must match the identifier of an existing DBClusterSnapshot.     * 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}); @@ -159,9 +161,9 @@                         may (parseXMLList "DBClusterSnapshot"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeDBClusterSnapshots+instance Hashable DescribeDBClusterSnapshots where -instance NFData DescribeDBClusterSnapshots+instance NFData DescribeDBClusterSnapshots where  instance ToHeaders DescribeDBClusterSnapshots where         toHeaders = const mempty@@ -192,11 +194,12 @@ -- -- /See:/ 'describeDBClusterSnapshotsResponse' smart constructor. data DescribeDBClusterSnapshotsResponse = DescribeDBClusterSnapshotsResponse'-    { _ddbcsrsMarker             :: !(Maybe Text)-    , _ddbcsrsDBClusterSnapshots :: !(Maybe [DBClusterSnapshot])-    , _ddbcsrsResponseStatus     :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddbcsrsMarker             :: !(Maybe Text)+  , _ddbcsrsDBClusterSnapshots :: !(Maybe [DBClusterSnapshot])+  , _ddbcsrsResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBClusterSnapshotsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -210,12 +213,13 @@     :: Int -- ^ 'ddbcsrsResponseStatus'     -> DescribeDBClusterSnapshotsResponse describeDBClusterSnapshotsResponse pResponseStatus_ =-    DescribeDBClusterSnapshotsResponse'-    { _ddbcsrsMarker = Nothing-    , _ddbcsrsDBClusterSnapshots = Nothing-    , _ddbcsrsResponseStatus = pResponseStatus_-    }+  DescribeDBClusterSnapshotsResponse'+  { _ddbcsrsMarker = Nothing+  , _ddbcsrsDBClusterSnapshots = Nothing+  , _ddbcsrsResponseStatus = pResponseStatus_+  } + -- | An optional pagination token provided by a previous 'DescribeDBClusterSnapshots' request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . ddbcsrsMarker :: Lens' DescribeDBClusterSnapshotsResponse (Maybe Text) ddbcsrsMarker = lens _ddbcsrsMarker (\ s a -> s{_ddbcsrsMarker = a});@@ -229,3 +233,4 @@ ddbcsrsResponseStatus = lens _ddbcsrsResponseStatus (\ s a -> s{_ddbcsrsResponseStatus = a});  instance NFData DescribeDBClusterSnapshotsResponse+         where
gen/Network/AWS/RDS/DescribeDBClusters.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeDBClusters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -43,12 +43,12 @@     , ddcrsResponseStatus     ) 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+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  -- | --@@ -56,19 +56,20 @@ -- -- /See:/ 'describeDBClusters' smart constructor. data DescribeDBClusters = DescribeDBClusters'-    { _ddcDBClusterIdentifier :: !(Maybe Text)-    , _ddcFilters             :: !(Maybe [Filter])-    , _ddcMarker              :: !(Maybe Text)-    , _ddcMaxRecords          :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddcDBClusterIdentifier :: !(Maybe Text)+  , _ddcFilters             :: !(Maybe [Filter])+  , _ddcMarker              :: !(Maybe Text)+  , _ddcMaxRecords          :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBClusters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddcDBClusterIdentifier' - The user-supplied DB cluster identifier. If this parameter is specified, information from only the specific DB cluster is returned. This parameter isn't case-sensitive. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- * 'ddcDBClusterIdentifier' - The user-supplied DB cluster identifier. If this parameter is specified, information from only the specific DB cluster is returned. This parameter isn't case-sensitive. Constraints:     * If supplied, must match an existing DBClusterIdentifier. ----- * 'ddcFilters' - This parameter is not currently supported.+-- * 'ddcFilters' - A filter that specifies one or more DB clusters to describe. Supported filters:     * @db-cluster-id@ - Accepts DB cluster identifiers and DB cluster Amazon Resource Names (ARNs). The results list will only include information about the DB clusters identified by these ARNs. -- -- * 'ddcMarker' - An optional pagination token provided by a previous 'DescribeDBClusters' request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . --@@ -76,18 +77,19 @@ describeDBClusters     :: DescribeDBClusters describeDBClusters =-    DescribeDBClusters'-    { _ddcDBClusterIdentifier = Nothing-    , _ddcFilters = Nothing-    , _ddcMarker = Nothing-    , _ddcMaxRecords = Nothing-    }+  DescribeDBClusters'+  { _ddcDBClusterIdentifier = Nothing+  , _ddcFilters = Nothing+  , _ddcMarker = Nothing+  , _ddcMaxRecords = Nothing+  } --- | The user-supplied DB cluster identifier. If this parameter is specified, information from only the specific DB cluster is returned. This parameter isn't case-sensitive. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens++-- | The user-supplied DB cluster identifier. If this parameter is specified, information from only the specific DB cluster is returned. This parameter isn't case-sensitive. Constraints:     * If supplied, must match an existing DBClusterIdentifier. ddcDBClusterIdentifier :: Lens' DescribeDBClusters (Maybe Text) ddcDBClusterIdentifier = lens _ddcDBClusterIdentifier (\ s a -> s{_ddcDBClusterIdentifier = a}); --- | This parameter is not currently supported.+-- | A filter that specifies one or more DB clusters to describe. Supported filters:     * @db-cluster-id@ - Accepts DB cluster identifiers and DB cluster Amazon Resource Names (ARNs). The results list will only include information about the DB clusters identified by these ARNs. ddcFilters :: Lens' DescribeDBClusters [Filter] ddcFilters = lens _ddcFilters (\ s a -> s{_ddcFilters = a}) . _Default . _Coerce; @@ -112,9 +114,9 @@                      <*> (x .@? "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeDBClusters+instance Hashable DescribeDBClusters where -instance NFData DescribeDBClusters+instance NFData DescribeDBClusters where  instance ToHeaders DescribeDBClusters where         toHeaders = const mempty@@ -139,11 +141,12 @@ -- -- /See:/ 'describeDBClustersResponse' smart constructor. data DescribeDBClustersResponse = DescribeDBClustersResponse'-    { _ddcrsDBClusters     :: !(Maybe [DBCluster])-    , _ddcrsMarker         :: !(Maybe Text)-    , _ddcrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddcrsDBClusters     :: !(Maybe [DBCluster])+  , _ddcrsMarker         :: !(Maybe Text)+  , _ddcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBClustersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -157,12 +160,13 @@     :: Int -- ^ 'ddcrsResponseStatus'     -> DescribeDBClustersResponse describeDBClustersResponse pResponseStatus_ =-    DescribeDBClustersResponse'-    { _ddcrsDBClusters = Nothing-    , _ddcrsMarker = Nothing-    , _ddcrsResponseStatus = pResponseStatus_-    }+  DescribeDBClustersResponse'+  { _ddcrsDBClusters = Nothing+  , _ddcrsMarker = Nothing+  , _ddcrsResponseStatus = pResponseStatus_+  } + -- | Contains a list of DB clusters for the user. ddcrsDBClusters :: Lens' DescribeDBClustersResponse [DBCluster] ddcrsDBClusters = lens _ddcrsDBClusters (\ s a -> s{_ddcrsDBClusters = a}) . _Default . _Coerce;@@ -175,4 +179,4 @@ ddcrsResponseStatus :: Lens' DescribeDBClustersResponse Int ddcrsResponseStatus = lens _ddcrsResponseStatus (\ s a -> s{_ddcrsResponseStatus = a}); -instance NFData DescribeDBClustersResponse+instance NFData DescribeDBClustersResponse where
gen/Network/AWS/RDS/DescribeDBEngineVersions.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeDBEngineVersions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -48,27 +48,28 @@     , ddevrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeDBEngineVersions' smart constructor. data DescribeDBEngineVersions = DescribeDBEngineVersions'-    { _ddevEngineVersion              :: !(Maybe Text)-    , _ddevListSupportedTimezones     :: !(Maybe Bool)-    , _ddevDefaultOnly                :: !(Maybe Bool)-    , _ddevFilters                    :: !(Maybe [Filter])-    , _ddevEngine                     :: !(Maybe Text)-    , _ddevDBParameterGroupFamily     :: !(Maybe Text)-    , _ddevListSupportedCharacterSets :: !(Maybe Bool)-    , _ddevMarker                     :: !(Maybe Text)-    , _ddevMaxRecords                 :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddevEngineVersion              :: !(Maybe Text)+  , _ddevListSupportedTimezones     :: !(Maybe Bool)+  , _ddevDefaultOnly                :: !(Maybe Bool)+  , _ddevFilters                    :: !(Maybe [Filter])+  , _ddevEngine                     :: !(Maybe Text)+  , _ddevDBParameterGroupFamily     :: !(Maybe Text)+  , _ddevListSupportedCharacterSets :: !(Maybe Bool)+  , _ddevMarker                     :: !(Maybe Text)+  , _ddevMaxRecords                 :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBEngineVersions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -83,7 +84,7 @@ -- -- * 'ddevEngine' - The database engine to return. ----- * 'ddevDBParameterGroupFamily' - The name of a specific DB parameter group family to return details for. 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' - The name of a specific DB parameter group family to return details for. Constraints:     * If supplied, must match an existing DBParameterGroupFamily. -- -- * 'ddevListSupportedCharacterSets' - If this parameter is specified and the requested engine supports the @CharacterSetName@ parameter for @CreateDBInstance@ , the response includes a list of supported character sets for each engine version. --@@ -93,18 +94,19 @@ describeDBEngineVersions     :: DescribeDBEngineVersions describeDBEngineVersions =-    DescribeDBEngineVersions'-    { _ddevEngineVersion = Nothing-    , _ddevListSupportedTimezones = Nothing-    , _ddevDefaultOnly = Nothing-    , _ddevFilters = Nothing-    , _ddevEngine = Nothing-    , _ddevDBParameterGroupFamily = Nothing-    , _ddevListSupportedCharacterSets = Nothing-    , _ddevMarker = Nothing-    , _ddevMaxRecords = Nothing-    }+  DescribeDBEngineVersions'+  { _ddevEngineVersion = Nothing+  , _ddevListSupportedTimezones = Nothing+  , _ddevDefaultOnly = Nothing+  , _ddevFilters = Nothing+  , _ddevEngine = Nothing+  , _ddevDBParameterGroupFamily = Nothing+  , _ddevListSupportedCharacterSets = Nothing+  , _ddevMarker = Nothing+  , _ddevMaxRecords = Nothing+  } + -- | The database engine version to return. Example: @5.1.49@ ddevEngineVersion :: Lens' DescribeDBEngineVersions (Maybe Text) ddevEngineVersion = lens _ddevEngineVersion (\ s a -> s{_ddevEngineVersion = a});@@ -125,7 +127,7 @@ ddevEngine :: Lens' DescribeDBEngineVersions (Maybe Text) ddevEngine = lens _ddevEngine (\ s a -> s{_ddevEngine = a}); --- | The name of a specific DB parameter group family to return details for. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The name of a specific DB parameter group family to return details for. Constraints:     * If supplied, must match an existing DBParameterGroupFamily. ddevDBParameterGroupFamily :: Lens' DescribeDBEngineVersions (Maybe Text) ddevDBParameterGroupFamily = lens _ddevDBParameterGroupFamily (\ s a -> s{_ddevDBParameterGroupFamily = a}); @@ -161,9 +163,9 @@                         may (parseXMLList "DBEngineVersion"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeDBEngineVersions+instance Hashable DescribeDBEngineVersions where -instance NFData DescribeDBEngineVersions+instance NFData DescribeDBEngineVersions where  instance ToHeaders DescribeDBEngineVersions where         toHeaders = const mempty@@ -197,11 +199,12 @@ -- -- /See:/ 'describeDBEngineVersionsResponse' smart constructor. data DescribeDBEngineVersionsResponse = DescribeDBEngineVersionsResponse'-    { _ddevrsMarker           :: !(Maybe Text)-    , _ddevrsDBEngineVersions :: !(Maybe [DBEngineVersion])-    , _ddevrsResponseStatus   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddevrsMarker           :: !(Maybe Text)+  , _ddevrsDBEngineVersions :: !(Maybe [DBEngineVersion])+  , _ddevrsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBEngineVersionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -215,12 +218,13 @@     :: Int -- ^ 'ddevrsResponseStatus'     -> DescribeDBEngineVersionsResponse describeDBEngineVersionsResponse pResponseStatus_ =-    DescribeDBEngineVersionsResponse'-    { _ddevrsMarker = Nothing-    , _ddevrsDBEngineVersions = Nothing-    , _ddevrsResponseStatus = pResponseStatus_-    }+  DescribeDBEngineVersionsResponse'+  { _ddevrsMarker = Nothing+  , _ddevrsDBEngineVersions = Nothing+  , _ddevrsResponseStatus = 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@ . ddevrsMarker :: Lens' DescribeDBEngineVersionsResponse (Maybe Text) ddevrsMarker = lens _ddevrsMarker (\ s a -> s{_ddevrsMarker = a});@@ -234,3 +238,4 @@ ddevrsResponseStatus = lens _ddevrsResponseStatus (\ s a -> s{_ddevrsResponseStatus = a});  instance NFData DescribeDBEngineVersionsResponse+         where
gen/Network/AWS/RDS/DescribeDBInstances.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeDBInstances--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -43,13 +43,13 @@     , ddbirsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -57,19 +57,20 @@ -- -- /See:/ 'describeDBInstances' smart constructor. data DescribeDBInstances = DescribeDBInstances'-    { _ddbiFilters              :: !(Maybe [Filter])-    , _ddbiDBInstanceIdentifier :: !(Maybe Text)-    , _ddbiMarker               :: !(Maybe Text)-    , _ddbiMaxRecords           :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddbiFilters              :: !(Maybe [Filter])+  , _ddbiDBInstanceIdentifier :: !(Maybe Text)+  , _ddbiMarker               :: !(Maybe Text)+  , _ddbiMaxRecords           :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBInstances' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddbiFilters' - This parameter is not currently supported.+-- * 'ddbiFilters' - A filter that specifies one or more DB instances to describe. Supported filters:     * @db-cluster-id@ - Accepts DB cluster identifiers and DB cluster Amazon Resource Names (ARNs). The results list will only include information about the DB instances associated with the DB Clusters identified by these ARNs.     * @db-instance-id@ - Accepts DB instance identifiers and DB instance Amazon Resource Names (ARNs). The results list will only include information about the DB instances identified by these ARNs. ----- * 'ddbiDBInstanceIdentifier' - The user-supplied instance identifier. If this parameter is specified, information from only the specific DB instance is returned. This parameter isn't case-sensitive. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- * 'ddbiDBInstanceIdentifier' - The user-supplied instance identifier. If this parameter is specified, information from only the specific DB instance is returned. This parameter isn't case-sensitive. Constraints:     * If supplied, must match the identifier of an existing DBInstance. -- -- * 'ddbiMarker' - An optional pagination token provided by a previous @DescribeDBInstances@ request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . --@@ -77,18 +78,19 @@ describeDBInstances     :: DescribeDBInstances describeDBInstances =-    DescribeDBInstances'-    { _ddbiFilters = Nothing-    , _ddbiDBInstanceIdentifier = Nothing-    , _ddbiMarker = Nothing-    , _ddbiMaxRecords = Nothing-    }+  DescribeDBInstances'+  { _ddbiFilters = Nothing+  , _ddbiDBInstanceIdentifier = Nothing+  , _ddbiMarker = Nothing+  , _ddbiMaxRecords = Nothing+  } --- | This parameter is not currently supported.++-- | A filter that specifies one or more DB instances to describe. Supported filters:     * @db-cluster-id@ - Accepts DB cluster identifiers and DB cluster Amazon Resource Names (ARNs). The results list will only include information about the DB instances associated with the DB Clusters identified by these ARNs.     * @db-instance-id@ - Accepts DB instance identifiers and DB instance Amazon Resource Names (ARNs). The results list will only include information about the DB instances identified by these ARNs. ddbiFilters :: Lens' DescribeDBInstances [Filter] ddbiFilters = lens _ddbiFilters (\ s a -> s{_ddbiFilters = a}) . _Default . _Coerce; --- | The user-supplied instance identifier. If this parameter is specified, information from only the specific DB instance is returned. This parameter isn't case-sensitive. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The user-supplied instance identifier. If this parameter is specified, information from only the specific DB instance is returned. This parameter isn't case-sensitive. Constraints:     * If supplied, must match the identifier of an existing DBInstance. ddbiDBInstanceIdentifier :: Lens' DescribeDBInstances (Maybe Text) ddbiDBInstanceIdentifier = lens _ddbiDBInstanceIdentifier (\ s a -> s{_ddbiDBInstanceIdentifier = a}); @@ -120,9 +122,9 @@                      <*> (x .@? "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeDBInstances+instance Hashable DescribeDBInstances where -instance NFData DescribeDBInstances+instance NFData DescribeDBInstances where  instance ToHeaders DescribeDBInstances where         toHeaders = const mempty@@ -147,11 +149,12 @@ -- -- /See:/ 'describeDBInstancesResponse' smart constructor. data DescribeDBInstancesResponse = DescribeDBInstancesResponse'-    { _ddbirsDBInstances    :: !(Maybe [DBInstance])-    , _ddbirsMarker         :: !(Maybe Text)-    , _ddbirsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddbirsDBInstances    :: !(Maybe [DBInstance])+  , _ddbirsMarker         :: !(Maybe Text)+  , _ddbirsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBInstancesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -165,12 +168,13 @@     :: Int -- ^ 'ddbirsResponseStatus'     -> DescribeDBInstancesResponse describeDBInstancesResponse pResponseStatus_ =-    DescribeDBInstancesResponse'-    { _ddbirsDBInstances = Nothing-    , _ddbirsMarker = Nothing-    , _ddbirsResponseStatus = pResponseStatus_-    }+  DescribeDBInstancesResponse'+  { _ddbirsDBInstances = Nothing+  , _ddbirsMarker = Nothing+  , _ddbirsResponseStatus = pResponseStatus_+  } + -- | A list of 'DBInstance' instances. ddbirsDBInstances :: Lens' DescribeDBInstancesResponse [DBInstance] ddbirsDBInstances = lens _ddbirsDBInstances (\ s a -> s{_ddbirsDBInstances = a}) . _Default . _Coerce;@@ -183,4 +187,4 @@ ddbirsResponseStatus :: Lens' DescribeDBInstancesResponse Int ddbirsResponseStatus = lens _ddbirsResponseStatus (\ s a -> s{_ddbirsResponseStatus = a}); -instance NFData DescribeDBInstancesResponse+instance NFData DescribeDBInstancesResponse where
gen/Network/AWS/RDS/DescribeDBLogFiles.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeDBLogFiles--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -46,13 +46,13 @@     , ddlfrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -60,15 +60,16 @@ -- -- /See:/ 'describeDBLogFiles' smart constructor. data DescribeDBLogFiles = DescribeDBLogFiles'-    { _ddlfFilenameContains     :: !(Maybe Text)-    , _ddlfFilters              :: !(Maybe [Filter])-    , _ddlfFileSize             :: !(Maybe Integer)-    , _ddlfFileLastWritten      :: !(Maybe Integer)-    , _ddlfMarker               :: !(Maybe Text)-    , _ddlfMaxRecords           :: !(Maybe Int)-    , _ddlfDBInstanceIdentifier :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddlfFilenameContains     :: !(Maybe Text)+  , _ddlfFilters              :: !(Maybe [Filter])+  , _ddlfFileSize             :: !(Maybe Integer)+  , _ddlfFileLastWritten      :: !(Maybe Integer)+  , _ddlfMarker               :: !(Maybe Text)+  , _ddlfMaxRecords           :: !(Maybe Int)+  , _ddlfDBInstanceIdentifier :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBLogFiles' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -85,21 +86,22 @@ -- -- * 'ddlfMaxRecords' - 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. ----- * 'ddlfDBInstanceIdentifier' - The customer-assigned name of the DB instance that contains the log files you want to list. 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' - The customer-assigned name of the DB instance that contains the log files you want to list. Constraints:     * Must match the identifier of an existing DBInstance. describeDBLogFiles     :: Text -- ^ 'ddlfDBInstanceIdentifier'     -> DescribeDBLogFiles describeDBLogFiles pDBInstanceIdentifier_ =-    DescribeDBLogFiles'-    { _ddlfFilenameContains = Nothing-    , _ddlfFilters = Nothing-    , _ddlfFileSize = Nothing-    , _ddlfFileLastWritten = Nothing-    , _ddlfMarker = Nothing-    , _ddlfMaxRecords = Nothing-    , _ddlfDBInstanceIdentifier = pDBInstanceIdentifier_-    }+  DescribeDBLogFiles'+  { _ddlfFilenameContains = Nothing+  , _ddlfFilters = Nothing+  , _ddlfFileSize = Nothing+  , _ddlfFileLastWritten = Nothing+  , _ddlfMarker = Nothing+  , _ddlfMaxRecords = Nothing+  , _ddlfDBInstanceIdentifier = pDBInstanceIdentifier_+  } + -- | Filters the available log files for log file names that contain the specified string. ddlfFilenameContains :: Lens' DescribeDBLogFiles (Maybe Text) ddlfFilenameContains = lens _ddlfFilenameContains (\ s a -> s{_ddlfFilenameContains = a});@@ -124,7 +126,7 @@ ddlfMaxRecords :: Lens' DescribeDBLogFiles (Maybe Int) ddlfMaxRecords = lens _ddlfMaxRecords (\ s a -> s{_ddlfMaxRecords = a}); --- | The customer-assigned name of the DB instance that contains the log files you want to list. 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+-- | The customer-assigned name of the DB instance that contains the log files you want to list. Constraints:     * Must match the identifier of an existing DBInstance. ddlfDBInstanceIdentifier :: Lens' DescribeDBLogFiles Text ddlfDBInstanceIdentifier = lens _ddlfDBInstanceIdentifier (\ s a -> s{_ddlfDBInstanceIdentifier = a}); @@ -148,9 +150,9 @@                      <*> (x .@? "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeDBLogFiles+instance Hashable DescribeDBLogFiles where -instance NFData DescribeDBLogFiles+instance NFData DescribeDBLogFiles where  instance ToHeaders DescribeDBLogFiles where         toHeaders = const mempty@@ -178,11 +180,12 @@ -- -- /See:/ 'describeDBLogFilesResponse' smart constructor. data DescribeDBLogFilesResponse = DescribeDBLogFilesResponse'-    { _ddlfrsDescribeDBLogFiles :: !(Maybe [DescribeDBLogFilesDetails])-    , _ddlfrsMarker             :: !(Maybe Text)-    , _ddlfrsResponseStatus     :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddlfrsDescribeDBLogFiles :: !(Maybe [DescribeDBLogFilesDetails])+  , _ddlfrsMarker             :: !(Maybe Text)+  , _ddlfrsResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBLogFilesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -196,12 +199,13 @@     :: Int -- ^ 'ddlfrsResponseStatus'     -> DescribeDBLogFilesResponse describeDBLogFilesResponse pResponseStatus_ =-    DescribeDBLogFilesResponse'-    { _ddlfrsDescribeDBLogFiles = Nothing-    , _ddlfrsMarker = Nothing-    , _ddlfrsResponseStatus = pResponseStatus_-    }+  DescribeDBLogFilesResponse'+  { _ddlfrsDescribeDBLogFiles = Nothing+  , _ddlfrsMarker = Nothing+  , _ddlfrsResponseStatus = pResponseStatus_+  } + -- | The DB log files returned. ddlfrsDescribeDBLogFiles :: Lens' DescribeDBLogFilesResponse [DescribeDBLogFilesDetails] ddlfrsDescribeDBLogFiles = lens _ddlfrsDescribeDBLogFiles (\ s a -> s{_ddlfrsDescribeDBLogFiles = a}) . _Default . _Coerce;@@ -214,4 +218,4 @@ ddlfrsResponseStatus :: Lens' DescribeDBLogFilesResponse Int ddlfrsResponseStatus = lens _ddlfrsResponseStatus (\ s a -> s{_ddlfrsResponseStatus = a}); -instance NFData DescribeDBLogFilesResponse+instance NFData DescribeDBLogFilesResponse where
gen/Network/AWS/RDS/DescribeDBParameterGroups.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeDBParameterGroups--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -43,13 +43,13 @@     , ddpgrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -57,19 +57,20 @@ -- -- /See:/ 'describeDBParameterGroups' smart constructor. data DescribeDBParameterGroups = DescribeDBParameterGroups'-    { _ddpgFilters              :: !(Maybe [Filter])-    , _ddpgDBParameterGroupName :: !(Maybe Text)-    , _ddpgMarker               :: !(Maybe Text)-    , _ddpgMaxRecords           :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddpgFilters              :: !(Maybe [Filter])+  , _ddpgDBParameterGroupName :: !(Maybe Text)+  , _ddpgMarker               :: !(Maybe Text)+  , _ddpgMaxRecords           :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBParameterGroups' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ddpgFilters' - This parameter is not currently supported. ----- * 'ddpgDBParameterGroupName' - The name of a specific DB parameter group to return details for. 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' - The name of a specific DB parameter group to return details for. Constraints:     * If supplied, must match the name of an existing DBClusterParameterGroup. -- -- * 'ddpgMarker' - An optional pagination token provided by a previous @DescribeDBParameterGroups@ request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . --@@ -77,18 +78,19 @@ describeDBParameterGroups     :: DescribeDBParameterGroups describeDBParameterGroups =-    DescribeDBParameterGroups'-    { _ddpgFilters = Nothing-    , _ddpgDBParameterGroupName = Nothing-    , _ddpgMarker = Nothing-    , _ddpgMaxRecords = Nothing-    }+  DescribeDBParameterGroups'+  { _ddpgFilters = Nothing+  , _ddpgDBParameterGroupName = Nothing+  , _ddpgMarker = Nothing+  , _ddpgMaxRecords = Nothing+  } + -- | This parameter is not currently supported. ddpgFilters :: Lens' DescribeDBParameterGroups [Filter] ddpgFilters = lens _ddpgFilters (\ s a -> s{_ddpgFilters = a}) . _Default . _Coerce; --- | The name of a specific DB parameter group to return details for. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The name of a specific DB parameter group to return details for. Constraints:     * If supplied, must match the name of an existing DBClusterParameterGroup. ddpgDBParameterGroupName :: Lens' DescribeDBParameterGroups (Maybe Text) ddpgDBParameterGroupName = lens _ddpgDBParameterGroupName (\ s a -> s{_ddpgDBParameterGroupName = a}); @@ -120,9 +122,9 @@                         may (parseXMLList "DBParameterGroup"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeDBParameterGroups+instance Hashable DescribeDBParameterGroups where -instance NFData DescribeDBParameterGroups+instance NFData DescribeDBParameterGroups where  instance ToHeaders DescribeDBParameterGroups where         toHeaders = const mempty@@ -148,11 +150,12 @@ -- -- /See:/ 'describeDBParameterGroupsResponse' smart constructor. data DescribeDBParameterGroupsResponse = DescribeDBParameterGroupsResponse'-    { _ddpgrsMarker            :: !(Maybe Text)-    , _ddpgrsDBParameterGroups :: !(Maybe [DBParameterGroup])-    , _ddpgrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddpgrsMarker            :: !(Maybe Text)+  , _ddpgrsDBParameterGroups :: !(Maybe [DBParameterGroup])+  , _ddpgrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBParameterGroupsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -166,12 +169,13 @@     :: Int -- ^ 'ddpgrsResponseStatus'     -> DescribeDBParameterGroupsResponse describeDBParameterGroupsResponse pResponseStatus_ =-    DescribeDBParameterGroupsResponse'-    { _ddpgrsMarker = Nothing-    , _ddpgrsDBParameterGroups = Nothing-    , _ddpgrsResponseStatus = pResponseStatus_-    }+  DescribeDBParameterGroupsResponse'+  { _ddpgrsMarker = Nothing+  , _ddpgrsDBParameterGroups = Nothing+  , _ddpgrsResponseStatus = 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@ . ddpgrsMarker :: Lens' DescribeDBParameterGroupsResponse (Maybe Text) ddpgrsMarker = lens _ddpgrsMarker (\ s a -> s{_ddpgrsMarker = a});@@ -185,3 +189,4 @@ ddpgrsResponseStatus = lens _ddpgrsResponseStatus (\ s a -> s{_ddpgrsResponseStatus = a});  instance NFData DescribeDBParameterGroupsResponse+         where
gen/Network/AWS/RDS/DescribeDBParameters.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeDBParameters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -44,23 +44,24 @@     , ddprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeDBParameters' smart constructor. data DescribeDBParameters = DescribeDBParameters'-    { _ddpFilters              :: !(Maybe [Filter])-    , _ddpMarker               :: !(Maybe Text)-    , _ddpMaxRecords           :: !(Maybe Int)-    , _ddpSource               :: !(Maybe Text)-    , _ddpDBParameterGroupName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddpFilters              :: !(Maybe [Filter])+  , _ddpMarker               :: !(Maybe Text)+  , _ddpMaxRecords           :: !(Maybe Int)+  , _ddpSource               :: !(Maybe Text)+  , _ddpDBParameterGroupName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBParameters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,19 +74,20 @@ -- -- * 'ddpSource' - The parameter types to return. Default: All parameter types returned Valid Values: @user | system | engine-default@ ----- * 'ddpDBParameterGroupName' - The name of a specific DB parameter group to return details for. 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' - The name of a specific DB parameter group to return details for. Constraints:     * If supplied, must match the name of an existing DBParameterGroup. describeDBParameters     :: Text -- ^ 'ddpDBParameterGroupName'     -> DescribeDBParameters describeDBParameters pDBParameterGroupName_ =-    DescribeDBParameters'-    { _ddpFilters = Nothing-    , _ddpMarker = Nothing-    , _ddpMaxRecords = Nothing-    , _ddpSource = Nothing-    , _ddpDBParameterGroupName = pDBParameterGroupName_-    }+  DescribeDBParameters'+  { _ddpFilters = Nothing+  , _ddpMarker = Nothing+  , _ddpMaxRecords = Nothing+  , _ddpSource = Nothing+  , _ddpDBParameterGroupName = pDBParameterGroupName_+  } + -- | This parameter is not currently supported. ddpFilters :: Lens' DescribeDBParameters [Filter] ddpFilters = lens _ddpFilters (\ s a -> s{_ddpFilters = a}) . _Default . _Coerce;@@ -102,7 +104,7 @@ ddpSource :: Lens' DescribeDBParameters (Maybe Text) ddpSource = lens _ddpSource (\ s a -> s{_ddpSource = a}); --- | The name of a specific DB parameter group to return details for. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The name of a specific DB parameter group to return details for. Constraints:     * If supplied, must match the name of an existing DBParameterGroup. ddpDBParameterGroupName :: Lens' DescribeDBParameters Text ddpDBParameterGroupName = lens _ddpDBParameterGroupName (\ s a -> s{_ddpDBParameterGroupName = a}); @@ -126,9 +128,9 @@                         may (parseXMLList "Parameter"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeDBParameters+instance Hashable DescribeDBParameters where -instance NFData DescribeDBParameters+instance NFData DescribeDBParameters where  instance ToHeaders DescribeDBParameters where         toHeaders = const mempty@@ -154,11 +156,12 @@ -- -- /See:/ 'describeDBParametersResponse' smart constructor. data DescribeDBParametersResponse = DescribeDBParametersResponse'-    { _ddprsMarker         :: !(Maybe Text)-    , _ddprsParameters     :: !(Maybe [Parameter])-    , _ddprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddprsMarker         :: !(Maybe Text)+  , _ddprsParameters     :: !(Maybe [Parameter])+  , _ddprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBParametersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -172,12 +175,13 @@     :: Int -- ^ 'ddprsResponseStatus'     -> DescribeDBParametersResponse describeDBParametersResponse pResponseStatus_ =-    DescribeDBParametersResponse'-    { _ddprsMarker = Nothing-    , _ddprsParameters = Nothing-    , _ddprsResponseStatus = pResponseStatus_-    }+  DescribeDBParametersResponse'+  { _ddprsMarker = Nothing+  , _ddprsParameters = Nothing+  , _ddprsResponseStatus = 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@ . ddprsMarker :: Lens' DescribeDBParametersResponse (Maybe Text) ddprsMarker = lens _ddprsMarker (\ s a -> s{_ddprsMarker = a});@@ -190,4 +194,4 @@ ddprsResponseStatus :: Lens' DescribeDBParametersResponse Int ddprsResponseStatus = lens _ddprsResponseStatus (\ s a -> s{_ddprsResponseStatus = a}); -instance NFData DescribeDBParametersResponse+instance NFData DescribeDBParametersResponse where
gen/Network/AWS/RDS/DescribeDBSecurityGroups.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeDBSecurityGroups--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -43,13 +43,13 @@     , ddbsgrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -57,12 +57,13 @@ -- -- /See:/ 'describeDBSecurityGroups' smart constructor. data DescribeDBSecurityGroups = DescribeDBSecurityGroups'-    { _ddbsgFilters             :: !(Maybe [Filter])-    , _ddbsgMarker              :: !(Maybe Text)-    , _ddbsgMaxRecords          :: !(Maybe Int)-    , _ddbsgDBSecurityGroupName :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddbsgFilters             :: !(Maybe [Filter])+  , _ddbsgMarker              :: !(Maybe Text)+  , _ddbsgMaxRecords          :: !(Maybe Int)+  , _ddbsgDBSecurityGroupName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBSecurityGroups' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,13 +78,14 @@ describeDBSecurityGroups     :: DescribeDBSecurityGroups describeDBSecurityGroups =-    DescribeDBSecurityGroups'-    { _ddbsgFilters = Nothing-    , _ddbsgMarker = Nothing-    , _ddbsgMaxRecords = Nothing-    , _ddbsgDBSecurityGroupName = Nothing-    }+  DescribeDBSecurityGroups'+  { _ddbsgFilters = Nothing+  , _ddbsgMarker = Nothing+  , _ddbsgMaxRecords = Nothing+  , _ddbsgDBSecurityGroupName = Nothing+  } + -- | This parameter is not currently supported. ddbsgFilters :: Lens' DescribeDBSecurityGroups [Filter] ddbsgFilters = lens _ddbsgFilters (\ s a -> s{_ddbsgFilters = a}) . _Default . _Coerce;@@ -120,9 +122,9 @@                      <*> (x .@? "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeDBSecurityGroups+instance Hashable DescribeDBSecurityGroups where -instance NFData DescribeDBSecurityGroups+instance NFData DescribeDBSecurityGroups where  instance ToHeaders DescribeDBSecurityGroups where         toHeaders = const mempty@@ -148,11 +150,12 @@ -- -- /See:/ 'describeDBSecurityGroupsResponse' smart constructor. data DescribeDBSecurityGroupsResponse = DescribeDBSecurityGroupsResponse'-    { _ddbsgrsDBSecurityGroups :: !(Maybe [DBSecurityGroup])-    , _ddbsgrsMarker           :: !(Maybe Text)-    , _ddbsgrsResponseStatus   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddbsgrsDBSecurityGroups :: !(Maybe [DBSecurityGroup])+  , _ddbsgrsMarker           :: !(Maybe Text)+  , _ddbsgrsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBSecurityGroupsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -166,12 +169,13 @@     :: Int -- ^ 'ddbsgrsResponseStatus'     -> DescribeDBSecurityGroupsResponse describeDBSecurityGroupsResponse pResponseStatus_ =-    DescribeDBSecurityGroupsResponse'-    { _ddbsgrsDBSecurityGroups = Nothing-    , _ddbsgrsMarker = Nothing-    , _ddbsgrsResponseStatus = pResponseStatus_-    }+  DescribeDBSecurityGroupsResponse'+  { _ddbsgrsDBSecurityGroups = Nothing+  , _ddbsgrsMarker = Nothing+  , _ddbsgrsResponseStatus = pResponseStatus_+  } + -- | A list of 'DBSecurityGroup' instances. ddbsgrsDBSecurityGroups :: Lens' DescribeDBSecurityGroupsResponse [DBSecurityGroup] ddbsgrsDBSecurityGroups = lens _ddbsgrsDBSecurityGroups (\ s a -> s{_ddbsgrsDBSecurityGroups = a}) . _Default . _Coerce;@@ -185,3 +189,4 @@ ddbsgrsResponseStatus = lens _ddbsgrsResponseStatus (\ s a -> s{_ddbsgrsResponseStatus = a});  instance NFData DescribeDBSecurityGroupsResponse+         where
gen/Network/AWS/RDS/DescribeDBSnapshotAttributes.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeDBSnapshotAttributes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@     , ddsarsResponseStatus     ) 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+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  -- | --@@ -54,9 +54,10 @@ -- -- /See:/ 'describeDBSnapshotAttributes' smart constructor. newtype DescribeDBSnapshotAttributes = DescribeDBSnapshotAttributes'-    { _ddsaDBSnapshotIdentifier :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddsaDBSnapshotIdentifier :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBSnapshotAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,10 +67,10 @@     :: Text -- ^ 'ddsaDBSnapshotIdentifier'     -> DescribeDBSnapshotAttributes describeDBSnapshotAttributes pDBSnapshotIdentifier_ =-    DescribeDBSnapshotAttributes'-    { _ddsaDBSnapshotIdentifier = pDBSnapshotIdentifier_-    }+  DescribeDBSnapshotAttributes'+  {_ddsaDBSnapshotIdentifier = pDBSnapshotIdentifier_} + -- | The identifier for the DB snapshot to describe the attributes for. ddsaDBSnapshotIdentifier :: Lens' DescribeDBSnapshotAttributes Text ddsaDBSnapshotIdentifier = lens _ddsaDBSnapshotIdentifier (\ s a -> s{_ddsaDBSnapshotIdentifier = a});@@ -87,9 +88,9 @@                    (x .@? "DBSnapshotAttributesResult") <*>                      (pure (fromEnum s))) -instance Hashable DescribeDBSnapshotAttributes+instance Hashable DescribeDBSnapshotAttributes where -instance NFData DescribeDBSnapshotAttributes+instance NFData DescribeDBSnapshotAttributes where  instance ToHeaders DescribeDBSnapshotAttributes where         toHeaders = const mempty@@ -107,10 +108,11 @@  -- | /See:/ 'describeDBSnapshotAttributesResponse' smart constructor. data DescribeDBSnapshotAttributesResponse = DescribeDBSnapshotAttributesResponse'-    { _ddsarsDBSnapshotAttributesResult :: !(Maybe DBSnapshotAttributesResult)-    , _ddsarsResponseStatus             :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddsarsDBSnapshotAttributesResult :: !(Maybe DBSnapshotAttributesResult)+  , _ddsarsResponseStatus             :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBSnapshotAttributesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -122,11 +124,12 @@     :: Int -- ^ 'ddsarsResponseStatus'     -> DescribeDBSnapshotAttributesResponse describeDBSnapshotAttributesResponse pResponseStatus_ =-    DescribeDBSnapshotAttributesResponse'-    { _ddsarsDBSnapshotAttributesResult = Nothing-    , _ddsarsResponseStatus = pResponseStatus_-    }+  DescribeDBSnapshotAttributesResponse'+  { _ddsarsDBSnapshotAttributesResult = Nothing+  , _ddsarsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. ddsarsDBSnapshotAttributesResult :: Lens' DescribeDBSnapshotAttributesResponse (Maybe DBSnapshotAttributesResult) ddsarsDBSnapshotAttributesResult = lens _ddsarsDBSnapshotAttributesResult (\ s a -> s{_ddsarsDBSnapshotAttributesResult = a});@@ -136,3 +139,4 @@ ddsarsResponseStatus = lens _ddsarsResponseStatus (\ s a -> s{_ddsarsResponseStatus = a});  instance NFData DescribeDBSnapshotAttributesResponse+         where
gen/Network/AWS/RDS/DescribeDBSnapshots.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeDBSnapshots--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -47,13 +47,13 @@     , ddsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -61,16 +61,17 @@ -- -- /See:/ 'describeDBSnapshots' smart constructor. data DescribeDBSnapshots = DescribeDBSnapshots'-    { _ddsIncludeShared        :: !(Maybe Bool)-    , _ddsFilters              :: !(Maybe [Filter])-    , _ddsDBSnapshotIdentifier :: !(Maybe Text)-    , _ddsSnapshotType         :: !(Maybe Text)-    , _ddsDBInstanceIdentifier :: !(Maybe Text)-    , _ddsMarker               :: !(Maybe Text)-    , _ddsMaxRecords           :: !(Maybe Int)-    , _ddsIncludePublic        :: !(Maybe Bool)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddsIncludeShared        :: !(Maybe Bool)+  , _ddsFilters              :: !(Maybe [Filter])+  , _ddsDBSnapshotIdentifier :: !(Maybe Text)+  , _ddsSnapshotType         :: !(Maybe Text)+  , _ddsDBInstanceIdentifier :: !(Maybe Text)+  , _ddsMarker               :: !(Maybe Text)+  , _ddsMaxRecords           :: !(Maybe Int)+  , _ddsIncludePublic        :: !(Maybe Bool)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBSnapshots' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,11 +80,11 @@ -- -- * 'ddsFilters' - This parameter is not currently supported. ----- * 'ddsDBSnapshotIdentifier' - A specific DB snapshot identifier to describe. This parameter cannot be used in conjunction with @DBInstanceIdentifier@ . 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 identifier is for an automated snapshot, the @SnapshotType@ parameter must also be specified.+-- * 'ddsDBSnapshotIdentifier' - A specific DB snapshot identifier to describe. This parameter cannot be used in conjunction with @DBInstanceIdentifier@ . This value is stored as a lowercase string.  Constraints:     * If supplied, must match the identifier of an existing DBSnapshot.     * If this identifier is for an automated snapshot, the @SnapshotType@ parameter must also be specified. -- -- * 'ddsSnapshotType' - 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 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 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@ . ----- * 'ddsDBInstanceIdentifier' - 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' - 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:     * If supplied, must match the identifier of an existing DBInstance. -- -- * 'ddsMarker' - An optional pagination token provided by a previous @DescribeDBSnapshots@ request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . --@@ -93,17 +94,18 @@ describeDBSnapshots     :: DescribeDBSnapshots describeDBSnapshots =-    DescribeDBSnapshots'-    { _ddsIncludeShared = Nothing-    , _ddsFilters = Nothing-    , _ddsDBSnapshotIdentifier = Nothing-    , _ddsSnapshotType = Nothing-    , _ddsDBInstanceIdentifier = Nothing-    , _ddsMarker = Nothing-    , _ddsMaxRecords = Nothing-    , _ddsIncludePublic = Nothing-    }+  DescribeDBSnapshots'+  { _ddsIncludeShared = Nothing+  , _ddsFilters = Nothing+  , _ddsDBSnapshotIdentifier = Nothing+  , _ddsSnapshotType = Nothing+  , _ddsDBInstanceIdentifier = Nothing+  , _ddsMarker = Nothing+  , _ddsMaxRecords = Nothing+  , _ddsIncludePublic = Nothing+  } + -- | 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@ . 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});@@ -112,7 +114,7 @@ ddsFilters :: Lens' DescribeDBSnapshots [Filter] ddsFilters = lens _ddsFilters (\ s a -> s{_ddsFilters = a}) . _Default . _Coerce; --- | A specific DB snapshot identifier to describe. This parameter cannot be used in conjunction with @DBInstanceIdentifier@ . 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 identifier is for an automated snapshot, the @SnapshotType@ parameter must also be specified.+-- | A specific DB snapshot identifier to describe. This parameter cannot be used in conjunction with @DBInstanceIdentifier@ . This value is stored as a lowercase string.  Constraints:     * If supplied, must match the identifier of an existing DBSnapshot.     * 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}); @@ -120,7 +122,7 @@ ddsSnapshotType :: Lens' DescribeDBSnapshots (Maybe Text) ddsSnapshotType = lens _ddsSnapshotType (\ s a -> s{_ddsSnapshotType = a}); --- | 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+-- | 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:     * If supplied, must match the identifier of an existing DBInstance. ddsDBInstanceIdentifier :: Lens' DescribeDBSnapshots (Maybe Text) ddsDBInstanceIdentifier = lens _ddsDBInstanceIdentifier (\ s a -> s{_ddsDBInstanceIdentifier = a}); @@ -156,9 +158,9 @@                         may (parseXMLList "DBSnapshot"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeDBSnapshots+instance Hashable DescribeDBSnapshots where -instance NFData DescribeDBSnapshots+instance NFData DescribeDBSnapshots where  instance ToHeaders DescribeDBSnapshots where         toHeaders = const mempty@@ -187,11 +189,12 @@ -- -- /See:/ 'describeDBSnapshotsResponse' smart constructor. data DescribeDBSnapshotsResponse = DescribeDBSnapshotsResponse'-    { _ddsrsMarker         :: !(Maybe Text)-    , _ddsrsDBSnapshots    :: !(Maybe [DBSnapshot])-    , _ddsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddsrsMarker         :: !(Maybe Text)+  , _ddsrsDBSnapshots    :: !(Maybe [DBSnapshot])+  , _ddsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBSnapshotsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -205,12 +208,13 @@     :: Int -- ^ 'ddsrsResponseStatus'     -> DescribeDBSnapshotsResponse describeDBSnapshotsResponse pResponseStatus_ =-    DescribeDBSnapshotsResponse'-    { _ddsrsMarker = Nothing-    , _ddsrsDBSnapshots = Nothing-    , _ddsrsResponseStatus = pResponseStatus_-    }+  DescribeDBSnapshotsResponse'+  { _ddsrsMarker = Nothing+  , _ddsrsDBSnapshots = Nothing+  , _ddsrsResponseStatus = 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@ . ddsrsMarker :: Lens' DescribeDBSnapshotsResponse (Maybe Text) ddsrsMarker = lens _ddsrsMarker (\ s a -> s{_ddsrsMarker = a});@@ -223,4 +227,4 @@ ddsrsResponseStatus :: Lens' DescribeDBSnapshotsResponse Int ddsrsResponseStatus = lens _ddsrsResponseStatus (\ s a -> s{_ddsrsResponseStatus = a}); -instance NFData DescribeDBSnapshotsResponse+instance NFData DescribeDBSnapshotsResponse where
gen/Network/AWS/RDS/DescribeDBSubnetGroups.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeDBSubnetGroups--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,13 +45,13 @@     , ddsgrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -59,12 +59,13 @@ -- -- /See:/ 'describeDBSubnetGroups' smart constructor. data DescribeDBSubnetGroups = DescribeDBSubnetGroups'-    { _ddsgDBSubnetGroupName :: !(Maybe Text)-    , _ddsgFilters           :: !(Maybe [Filter])-    , _ddsgMarker            :: !(Maybe Text)-    , _ddsgMaxRecords        :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddsgDBSubnetGroupName :: !(Maybe Text)+  , _ddsgFilters           :: !(Maybe [Filter])+  , _ddsgMarker            :: !(Maybe Text)+  , _ddsgMaxRecords        :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBSubnetGroups' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,13 +80,14 @@ describeDBSubnetGroups     :: DescribeDBSubnetGroups describeDBSubnetGroups =-    DescribeDBSubnetGroups'-    { _ddsgDBSubnetGroupName = Nothing-    , _ddsgFilters = Nothing-    , _ddsgMarker = Nothing-    , _ddsgMaxRecords = Nothing-    }+  DescribeDBSubnetGroups'+  { _ddsgDBSubnetGroupName = Nothing+  , _ddsgFilters = Nothing+  , _ddsgMarker = Nothing+  , _ddsgMaxRecords = Nothing+  } + -- | The name of the DB subnet group to return details for. ddsgDBSubnetGroupName :: Lens' DescribeDBSubnetGroups (Maybe Text) ddsgDBSubnetGroupName = lens _ddsgDBSubnetGroupName (\ s a -> s{_ddsgDBSubnetGroupName = a});@@ -122,9 +124,9 @@                      <*> (x .@? "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeDBSubnetGroups+instance Hashable DescribeDBSubnetGroups where -instance NFData DescribeDBSubnetGroups+instance NFData DescribeDBSubnetGroups where  instance ToHeaders DescribeDBSubnetGroups where         toHeaders = const mempty@@ -150,11 +152,12 @@ -- -- /See:/ 'describeDBSubnetGroupsResponse' smart constructor. data DescribeDBSubnetGroupsResponse = DescribeDBSubnetGroupsResponse'-    { _ddsgrsDBSubnetGroups :: !(Maybe [DBSubnetGroup])-    , _ddsgrsMarker         :: !(Maybe Text)-    , _ddsgrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddsgrsDBSubnetGroups :: !(Maybe [DBSubnetGroup])+  , _ddsgrsMarker         :: !(Maybe Text)+  , _ddsgrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDBSubnetGroupsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -168,12 +171,13 @@     :: Int -- ^ 'ddsgrsResponseStatus'     -> DescribeDBSubnetGroupsResponse describeDBSubnetGroupsResponse pResponseStatus_ =-    DescribeDBSubnetGroupsResponse'-    { _ddsgrsDBSubnetGroups = Nothing-    , _ddsgrsMarker = Nothing-    , _ddsgrsResponseStatus = pResponseStatus_-    }+  DescribeDBSubnetGroupsResponse'+  { _ddsgrsDBSubnetGroups = Nothing+  , _ddsgrsMarker = Nothing+  , _ddsgrsResponseStatus = pResponseStatus_+  } + -- | A list of 'DBSubnetGroup' instances. ddsgrsDBSubnetGroups :: Lens' DescribeDBSubnetGroupsResponse [DBSubnetGroup] ddsgrsDBSubnetGroups = lens _ddsgrsDBSubnetGroups (\ s a -> s{_ddsgrsDBSubnetGroups = a}) . _Default . _Coerce;@@ -186,4 +190,4 @@ ddsgrsResponseStatus :: Lens' DescribeDBSubnetGroupsResponse Int ddsgrsResponseStatus = lens _ddsgrsResponseStatus (\ s a -> s{_ddsgrsResponseStatus = a}); -instance NFData DescribeDBSubnetGroupsResponse+instance NFData DescribeDBSubnetGroupsResponse where
gen/Network/AWS/RDS/DescribeEngineDefaultClusterParameters.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeEngineDefaultClusterParameters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,12 +42,12 @@     , dedcprsResponseStatus     ) 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+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  -- | --@@ -55,12 +55,13 @@ -- -- /See:/ 'describeEngineDefaultClusterParameters' smart constructor. data DescribeEngineDefaultClusterParameters = DescribeEngineDefaultClusterParameters'-    { _dedcpFilters                :: !(Maybe [Filter])-    , _dedcpMarker                 :: !(Maybe Text)-    , _dedcpMaxRecords             :: !(Maybe Int)-    , _dedcpDBParameterGroupFamily :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dedcpFilters                :: !(Maybe [Filter])+  , _dedcpMarker                 :: !(Maybe Text)+  , _dedcpMaxRecords             :: !(Maybe Int)+  , _dedcpDBParameterGroupFamily :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEngineDefaultClusterParameters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,13 +77,14 @@     :: Text -- ^ 'dedcpDBParameterGroupFamily'     -> DescribeEngineDefaultClusterParameters describeEngineDefaultClusterParameters pDBParameterGroupFamily_ =-    DescribeEngineDefaultClusterParameters'-    { _dedcpFilters = Nothing-    , _dedcpMarker = Nothing-    , _dedcpMaxRecords = Nothing-    , _dedcpDBParameterGroupFamily = pDBParameterGroupFamily_-    }+  DescribeEngineDefaultClusterParameters'+  { _dedcpFilters = Nothing+  , _dedcpMarker = Nothing+  , _dedcpMaxRecords = Nothing+  , _dedcpDBParameterGroupFamily = pDBParameterGroupFamily_+  } + -- | This parameter is not currently supported. dedcpFilters :: Lens' DescribeEngineDefaultClusterParameters [Filter] dedcpFilters = lens _dedcpFilters (\ s a -> s{_dedcpFilters = a}) . _Default . _Coerce;@@ -100,7 +102,8 @@ dedcpDBParameterGroupFamily = lens _dedcpDBParameterGroupFamily (\ s a -> s{_dedcpDBParameterGroupFamily = a});  instance AWSRequest-         DescribeEngineDefaultClusterParameters where+           DescribeEngineDefaultClusterParameters+         where         type Rs DescribeEngineDefaultClusterParameters =              DescribeEngineDefaultClusterParametersResponse         request = postQuery rds@@ -112,21 +115,26 @@                    (x .@? "EngineDefaults") <*> (pure (fromEnum s)))  instance Hashable-         DescribeEngineDefaultClusterParameters+           DescribeEngineDefaultClusterParameters+         where  instance NFData-         DescribeEngineDefaultClusterParameters+           DescribeEngineDefaultClusterParameters+         where  instance ToHeaders-         DescribeEngineDefaultClusterParameters where+           DescribeEngineDefaultClusterParameters+         where         toHeaders = const mempty  instance ToPath-         DescribeEngineDefaultClusterParameters where+           DescribeEngineDefaultClusterParameters+         where         toPath = const "/"  instance ToQuery-         DescribeEngineDefaultClusterParameters where+           DescribeEngineDefaultClusterParameters+         where         toQuery DescribeEngineDefaultClusterParameters'{..}           = mconcat               ["Action" =:@@ -142,10 +150,11 @@  -- | /See:/ 'describeEngineDefaultClusterParametersResponse' smart constructor. data DescribeEngineDefaultClusterParametersResponse = DescribeEngineDefaultClusterParametersResponse'-    { _dedcprsEngineDefaults :: !(Maybe EngineDefaults)-    , _dedcprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dedcprsEngineDefaults :: !(Maybe EngineDefaults)+  , _dedcprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEngineDefaultClusterParametersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -157,11 +166,10 @@     :: Int -- ^ 'dedcprsResponseStatus'     -> DescribeEngineDefaultClusterParametersResponse describeEngineDefaultClusterParametersResponse pResponseStatus_ =-    DescribeEngineDefaultClusterParametersResponse'-    { _dedcprsEngineDefaults = Nothing-    , _dedcprsResponseStatus = pResponseStatus_-    }+  DescribeEngineDefaultClusterParametersResponse'+  {_dedcprsEngineDefaults = Nothing, _dedcprsResponseStatus = pResponseStatus_} + -- | Undocumented member. dedcprsEngineDefaults :: Lens' DescribeEngineDefaultClusterParametersResponse (Maybe EngineDefaults) dedcprsEngineDefaults = lens _dedcprsEngineDefaults (\ s a -> s{_dedcprsEngineDefaults = a});@@ -171,4 +179,5 @@ dedcprsResponseStatus = lens _dedcprsResponseStatus (\ s a -> s{_dedcprsResponseStatus = a});  instance NFData-         DescribeEngineDefaultClusterParametersResponse+           DescribeEngineDefaultClusterParametersResponse+         where
gen/Network/AWS/RDS/DescribeEngineDefaultParameters.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeEngineDefaultParameters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,13 +42,13 @@     , dedprsEngineDefaults     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -56,12 +56,13 @@ -- -- /See:/ 'describeEngineDefaultParameters' smart constructor. data DescribeEngineDefaultParameters = DescribeEngineDefaultParameters'-    { _dedpFilters                :: !(Maybe [Filter])-    , _dedpMarker                 :: !(Maybe Text)-    , _dedpMaxRecords             :: !(Maybe Int)-    , _dedpDBParameterGroupFamily :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dedpFilters                :: !(Maybe [Filter])+  , _dedpMarker                 :: !(Maybe Text)+  , _dedpMaxRecords             :: !(Maybe Int)+  , _dedpDBParameterGroupFamily :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEngineDefaultParameters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,13 +78,14 @@     :: Text -- ^ 'dedpDBParameterGroupFamily'     -> DescribeEngineDefaultParameters describeEngineDefaultParameters pDBParameterGroupFamily_ =-    DescribeEngineDefaultParameters'-    { _dedpFilters = Nothing-    , _dedpMarker = Nothing-    , _dedpMaxRecords = Nothing-    , _dedpDBParameterGroupFamily = pDBParameterGroupFamily_-    }+  DescribeEngineDefaultParameters'+  { _dedpFilters = Nothing+  , _dedpMarker = Nothing+  , _dedpMaxRecords = Nothing+  , _dedpDBParameterGroupFamily = pDBParameterGroupFamily_+  } + -- | Not currently supported. dedpFilters :: Lens' DescribeEngineDefaultParameters [Filter] dedpFilters = lens _dedpFilters (\ s a -> s{_dedpFilters = a}) . _Default . _Coerce;@@ -126,8 +128,9 @@                    (pure (fromEnum s)) <*> (x .@ "EngineDefaults"))  instance Hashable DescribeEngineDefaultParameters+         where -instance NFData DescribeEngineDefaultParameters+instance NFData DescribeEngineDefaultParameters where  instance ToHeaders DescribeEngineDefaultParameters          where@@ -152,10 +155,11 @@  -- | /See:/ 'describeEngineDefaultParametersResponse' smart constructor. data DescribeEngineDefaultParametersResponse = DescribeEngineDefaultParametersResponse'-    { _dedprsResponseStatus :: !Int-    , _dedprsEngineDefaults :: !EngineDefaults-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dedprsResponseStatus :: !Int+  , _dedprsEngineDefaults :: !EngineDefaults+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEngineDefaultParametersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -168,11 +172,12 @@     -> EngineDefaults -- ^ 'dedprsEngineDefaults'     -> DescribeEngineDefaultParametersResponse describeEngineDefaultParametersResponse pResponseStatus_ pEngineDefaults_ =-    DescribeEngineDefaultParametersResponse'-    { _dedprsResponseStatus = pResponseStatus_-    , _dedprsEngineDefaults = pEngineDefaults_-    }+  DescribeEngineDefaultParametersResponse'+  { _dedprsResponseStatus = pResponseStatus_+  , _dedprsEngineDefaults = pEngineDefaults_+  } + -- | -- | The response status code. dedprsResponseStatus :: Lens' DescribeEngineDefaultParametersResponse Int dedprsResponseStatus = lens _dedprsResponseStatus (\ s a -> s{_dedprsResponseStatus = a});@@ -182,4 +187,5 @@ dedprsEngineDefaults = lens _dedprsEngineDefaults (\ s a -> s{_dedprsEngineDefaults = a});  instance NFData-         DescribeEngineDefaultParametersResponse+           DescribeEngineDefaultParametersResponse+         where
gen/Network/AWS/RDS/DescribeEventCategories.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeEventCategories--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , decrsResponseStatus     ) 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+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  -- | --@@ -51,26 +51,25 @@ -- -- /See:/ 'describeEventCategories' smart constructor. data DescribeEventCategories = DescribeEventCategories'-    { _decSourceType :: !(Maybe Text)-    , _decFilters    :: !(Maybe [Filter])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _decSourceType :: !(Maybe Text)+  , _decFilters    :: !(Maybe [Filter])+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEventCategories' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'decSourceType' - The type of source that will be generating the events. Valid values: db-instance | db-parameter-group | db-security-group | db-snapshot+-- * 'decSourceType' - The type of source that is generating the events. Valid values: db-instance | db-parameter-group | db-security-group | db-snapshot -- -- * 'decFilters' - This parameter is not currently supported. describeEventCategories     :: DescribeEventCategories describeEventCategories =-    DescribeEventCategories'-    { _decSourceType = Nothing-    , _decFilters = Nothing-    }+  DescribeEventCategories' {_decSourceType = Nothing, _decFilters = Nothing} --- | The type of source that will be generating the events. Valid values: db-instance | db-parameter-group | db-security-group | db-snapshot++-- | The type of source that is generating the events. Valid values: db-instance | db-parameter-group | db-security-group | db-snapshot decSourceType :: Lens' DescribeEventCategories (Maybe Text) decSourceType = lens _decSourceType (\ s a -> s{_decSourceType = a}); @@ -90,9 +89,9 @@                       may (parseXMLList "EventCategoriesMap"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeEventCategories+instance Hashable DescribeEventCategories where -instance NFData DescribeEventCategories+instance NFData DescribeEventCategories where  instance ToHeaders DescribeEventCategories where         toHeaders = const mempty@@ -116,10 +115,11 @@ -- -- /See:/ 'describeEventCategoriesResponse' smart constructor. data DescribeEventCategoriesResponse = DescribeEventCategoriesResponse'-    { _decrsEventCategoriesMapList :: !(Maybe [EventCategoriesMap])-    , _decrsResponseStatus         :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _decrsEventCategoriesMapList :: !(Maybe [EventCategoriesMap])+  , _decrsResponseStatus         :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEventCategoriesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -131,11 +131,12 @@     :: Int -- ^ 'decrsResponseStatus'     -> DescribeEventCategoriesResponse describeEventCategoriesResponse pResponseStatus_ =-    DescribeEventCategoriesResponse'-    { _decrsEventCategoriesMapList = Nothing-    , _decrsResponseStatus = pResponseStatus_-    }+  DescribeEventCategoriesResponse'+  { _decrsEventCategoriesMapList = Nothing+  , _decrsResponseStatus = pResponseStatus_+  } + -- | A list of EventCategoriesMap data types. decrsEventCategoriesMapList :: Lens' DescribeEventCategoriesResponse [EventCategoriesMap] decrsEventCategoriesMapList = lens _decrsEventCategoriesMapList (\ s a -> s{_decrsEventCategoriesMapList = a}) . _Default . _Coerce;@@ -144,4 +145,4 @@ decrsResponseStatus :: Lens' DescribeEventCategoriesResponse Int decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a}); -instance NFData DescribeEventCategoriesResponse+instance NFData DescribeEventCategoriesResponse where
gen/Network/AWS/RDS/DescribeEventSubscriptions.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeEventSubscriptions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,13 +45,13 @@     , desrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -59,12 +59,13 @@ -- -- /See:/ 'describeEventSubscriptions' smart constructor. data DescribeEventSubscriptions = DescribeEventSubscriptions'-    { _dSubscriptionName :: !(Maybe Text)-    , _dFilters          :: !(Maybe [Filter])-    , _dMarker           :: !(Maybe Text)-    , _dMaxRecords       :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dSubscriptionName :: !(Maybe Text)+  , _dFilters          :: !(Maybe [Filter])+  , _dMarker           :: !(Maybe Text)+  , _dMaxRecords       :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEventSubscriptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,13 +80,14 @@ describeEventSubscriptions     :: DescribeEventSubscriptions describeEventSubscriptions =-    DescribeEventSubscriptions'-    { _dSubscriptionName = Nothing-    , _dFilters = Nothing-    , _dMarker = Nothing-    , _dMaxRecords = Nothing-    }+  DescribeEventSubscriptions'+  { _dSubscriptionName = Nothing+  , _dFilters = Nothing+  , _dMarker = Nothing+  , _dMaxRecords = Nothing+  } + -- | The name of the RDS event notification subscription you want to describe. dSubscriptionName :: Lens' DescribeEventSubscriptions (Maybe Text) dSubscriptionName = lens _dSubscriptionName (\ s a -> s{_dSubscriptionName = a});@@ -123,9 +125,9 @@                      <*> (x .@? "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeEventSubscriptions+instance Hashable DescribeEventSubscriptions where -instance NFData DescribeEventSubscriptions+instance NFData DescribeEventSubscriptions where  instance ToHeaders DescribeEventSubscriptions where         toHeaders = const mempty@@ -150,11 +152,12 @@ -- -- /See:/ 'describeEventSubscriptionsResponse' smart constructor. data DescribeEventSubscriptionsResponse = DescribeEventSubscriptionsResponse'-    { _desrsEventSubscriptionsList :: !(Maybe [EventSubscription])-    , _desrsMarker                 :: !(Maybe Text)-    , _desrsResponseStatus         :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _desrsEventSubscriptionsList :: !(Maybe [EventSubscription])+  , _desrsMarker                 :: !(Maybe Text)+  , _desrsResponseStatus         :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEventSubscriptionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -168,12 +171,13 @@     :: Int -- ^ 'desrsResponseStatus'     -> DescribeEventSubscriptionsResponse describeEventSubscriptionsResponse pResponseStatus_ =-    DescribeEventSubscriptionsResponse'-    { _desrsEventSubscriptionsList = Nothing-    , _desrsMarker = Nothing-    , _desrsResponseStatus = pResponseStatus_-    }+  DescribeEventSubscriptionsResponse'+  { _desrsEventSubscriptionsList = Nothing+  , _desrsMarker = Nothing+  , _desrsResponseStatus = pResponseStatus_+  } + -- | A list of EventSubscriptions data types. desrsEventSubscriptionsList :: Lens' DescribeEventSubscriptionsResponse [EventSubscription] desrsEventSubscriptionsList = lens _desrsEventSubscriptionsList (\ s a -> s{_desrsEventSubscriptionsList = a}) . _Default . _Coerce;@@ -187,3 +191,4 @@ desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});  instance NFData DescribeEventSubscriptionsResponse+         where
gen/Network/AWS/RDS/DescribeEvents.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeEvents--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -48,13 +48,13 @@     , dersResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -62,17 +62,18 @@ -- -- /See:/ 'describeEvents' smart constructor. data DescribeEvents = DescribeEvents'-    { _deStartTime        :: !(Maybe ISO8601)-    , _deSourceType       :: !(Maybe SourceType)-    , _deFilters          :: !(Maybe [Filter])-    , _deSourceIdentifier :: !(Maybe Text)-    , _deEventCategories  :: !(Maybe [Text])-    , _deMarker           :: !(Maybe Text)-    , _deMaxRecords       :: !(Maybe Int)-    , _deEndTime          :: !(Maybe ISO8601)-    , _deDuration         :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _deStartTime        :: !(Maybe ISO8601)+  , _deSourceType       :: !(Maybe SourceType)+  , _deFilters          :: !(Maybe [Filter])+  , _deSourceIdentifier :: !(Maybe Text)+  , _deEventCategories  :: !(Maybe [Text])+  , _deMarker           :: !(Maybe Text)+  , _deMaxRecords       :: !(Maybe Int)+  , _deEndTime          :: !(Maybe ISO8601)+  , _deDuration         :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEvents' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -83,7 +84,7 @@ -- -- * 'deFilters' - This parameter is not currently supported. ----- * 'deSourceIdentifier' - The identifier of the event source for which events will be returned. If not specified, then all sources are included in the response. 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' - The identifier of the event source for which events are returned. If not specified, then all sources are included in the response. 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. -- -- * 'deEventCategories' - A list of event categories that trigger notifications for a event notification subscription. --@@ -97,18 +98,19 @@ describeEvents     :: DescribeEvents describeEvents =-    DescribeEvents'-    { _deStartTime = Nothing-    , _deSourceType = Nothing-    , _deFilters = Nothing-    , _deSourceIdentifier = Nothing-    , _deEventCategories = Nothing-    , _deMarker = Nothing-    , _deMaxRecords = Nothing-    , _deEndTime = Nothing-    , _deDuration = Nothing-    }+  DescribeEvents'+  { _deStartTime = Nothing+  , _deSourceType = Nothing+  , _deFilters = Nothing+  , _deSourceIdentifier = Nothing+  , _deEventCategories = Nothing+  , _deMarker = Nothing+  , _deMaxRecords = Nothing+  , _deEndTime = Nothing+  , _deDuration = Nothing+  } + -- | The beginning of the time interval to retrieve events for, specified in ISO 8601 format. For more information about ISO 8601, go to the <http://en.wikipedia.org/wiki/ISO_8601 ISO8601 Wikipedia page.>  Example: 2009-07-08T18:00Z deStartTime :: Lens' DescribeEvents (Maybe UTCTime) deStartTime = lens _deStartTime (\ s a -> s{_deStartTime = a}) . mapping _Time;@@ -121,7 +123,7 @@ deFilters :: Lens' DescribeEvents [Filter] deFilters = lens _deFilters (\ s a -> s{_deFilters = a}) . _Default . _Coerce; --- | The identifier of the event source for which events will be returned. If not specified, then all sources are included in the response. 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.+-- | The identifier of the event source for which events are returned. If not specified, then all sources are included in the response. 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}); @@ -164,9 +166,9 @@                      <*> (x .@? "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeEvents+instance Hashable DescribeEvents where -instance NFData DescribeEvents+instance NFData DescribeEvents where  instance ToHeaders DescribeEvents where         toHeaders = const mempty@@ -196,11 +198,12 @@ -- -- /See:/ 'describeEventsResponse' smart constructor. data DescribeEventsResponse = DescribeEventsResponse'-    { _dersEvents         :: !(Maybe [Event])-    , _dersMarker         :: !(Maybe Text)-    , _dersResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dersEvents         :: !(Maybe [Event])+  , _dersMarker         :: !(Maybe Text)+  , _dersResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEventsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -214,12 +217,13 @@     :: Int -- ^ 'dersResponseStatus'     -> DescribeEventsResponse describeEventsResponse pResponseStatus_ =-    DescribeEventsResponse'-    { _dersEvents = Nothing-    , _dersMarker = Nothing-    , _dersResponseStatus = pResponseStatus_-    }+  DescribeEventsResponse'+  { _dersEvents = Nothing+  , _dersMarker = Nothing+  , _dersResponseStatus = pResponseStatus_+  } + -- | A list of 'Event' instances. dersEvents :: Lens' DescribeEventsResponse [Event] dersEvents = lens _dersEvents (\ s a -> s{_dersEvents = a}) . _Default . _Coerce;@@ -232,4 +236,4 @@ dersResponseStatus :: Lens' DescribeEventsResponse Int dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a}); -instance NFData DescribeEventsResponse+instance NFData DescribeEventsResponse where
gen/Network/AWS/RDS/DescribeOptionGroupOptions.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeOptionGroupOptions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -44,13 +44,13 @@     , dogorsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -58,13 +58,14 @@ -- -- /See:/ 'describeOptionGroupOptions' smart constructor. data DescribeOptionGroupOptions = DescribeOptionGroupOptions'-    { _dogoFilters            :: !(Maybe [Filter])-    , _dogoMajorEngineVersion :: !(Maybe Text)-    , _dogoMarker             :: !(Maybe Text)-    , _dogoMaxRecords         :: !(Maybe Int)-    , _dogoEngineName         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dogoFilters            :: !(Maybe [Filter])+  , _dogoMajorEngineVersion :: !(Maybe Text)+  , _dogoMarker             :: !(Maybe Text)+  , _dogoMaxRecords         :: !(Maybe Int)+  , _dogoEngineName         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeOptionGroupOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,19 +78,20 @@ -- -- * 'dogoMaxRecords' - 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. ----- * 'dogoEngineName' - A required parameter. Options available for the given engine name will be described.+-- * 'dogoEngineName' - A required parameter. Options available for the given engine name are described. describeOptionGroupOptions     :: Text -- ^ 'dogoEngineName'     -> DescribeOptionGroupOptions describeOptionGroupOptions pEngineName_ =-    DescribeOptionGroupOptions'-    { _dogoFilters = Nothing-    , _dogoMajorEngineVersion = Nothing-    , _dogoMarker = Nothing-    , _dogoMaxRecords = Nothing-    , _dogoEngineName = pEngineName_-    }+  DescribeOptionGroupOptions'+  { _dogoFilters = Nothing+  , _dogoMajorEngineVersion = Nothing+  , _dogoMarker = Nothing+  , _dogoMaxRecords = Nothing+  , _dogoEngineName = pEngineName_+  } + -- | This parameter is not currently supported. dogoFilters :: Lens' DescribeOptionGroupOptions [Filter] dogoFilters = lens _dogoFilters (\ s a -> s{_dogoFilters = a}) . _Default . _Coerce;@@ -106,7 +108,7 @@ dogoMaxRecords :: Lens' DescribeOptionGroupOptions (Maybe Int) dogoMaxRecords = lens _dogoMaxRecords (\ s a -> s{_dogoMaxRecords = a}); --- | A required parameter. Options available for the given engine name will be described.+-- | A required parameter. Options available for the given engine name are described. dogoEngineName :: Lens' DescribeOptionGroupOptions Text dogoEngineName = lens _dogoEngineName (\ s a -> s{_dogoEngineName = a}); @@ -131,9 +133,9 @@                      <*> (x .@? "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeOptionGroupOptions+instance Hashable DescribeOptionGroupOptions where -instance NFData DescribeOptionGroupOptions+instance NFData DescribeOptionGroupOptions where  instance ToHeaders DescribeOptionGroupOptions where         toHeaders = const mempty@@ -160,11 +162,12 @@ -- -- /See:/ 'describeOptionGroupOptionsResponse' smart constructor. data DescribeOptionGroupOptionsResponse = DescribeOptionGroupOptionsResponse'-    { _dogorsOptionGroupOptions :: !(Maybe [OptionGroupOption])-    , _dogorsMarker             :: !(Maybe Text)-    , _dogorsResponseStatus     :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dogorsOptionGroupOptions :: !(Maybe [OptionGroupOption])+  , _dogorsMarker             :: !(Maybe Text)+  , _dogorsResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeOptionGroupOptionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -178,12 +181,13 @@     :: Int -- ^ 'dogorsResponseStatus'     -> DescribeOptionGroupOptionsResponse describeOptionGroupOptionsResponse pResponseStatus_ =-    DescribeOptionGroupOptionsResponse'-    { _dogorsOptionGroupOptions = Nothing-    , _dogorsMarker = Nothing-    , _dogorsResponseStatus = pResponseStatus_-    }+  DescribeOptionGroupOptionsResponse'+  { _dogorsOptionGroupOptions = Nothing+  , _dogorsMarker = Nothing+  , _dogorsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. dogorsOptionGroupOptions :: Lens' DescribeOptionGroupOptionsResponse [OptionGroupOption] dogorsOptionGroupOptions = lens _dogorsOptionGroupOptions (\ s a -> s{_dogorsOptionGroupOptions = a}) . _Default . _Coerce;@@ -197,3 +201,4 @@ dogorsResponseStatus = lens _dogorsResponseStatus (\ s a -> s{_dogorsResponseStatus = a});  instance NFData DescribeOptionGroupOptionsResponse+         where
gen/Network/AWS/RDS/DescribeOptionGroups.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeOptionGroups--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,13 +45,13 @@     , dogrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -59,14 +59,15 @@ -- -- /See:/ 'describeOptionGroups' smart constructor. data DescribeOptionGroups = DescribeOptionGroups'-    { _dogFilters            :: !(Maybe [Filter])-    , _dogEngineName         :: !(Maybe Text)-    , _dogMajorEngineVersion :: !(Maybe Text)-    , _dogMarker             :: !(Maybe Text)-    , _dogMaxRecords         :: !(Maybe Int)-    , _dogOptionGroupName    :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dogFilters            :: !(Maybe [Filter])+  , _dogEngineName         :: !(Maybe Text)+  , _dogMajorEngineVersion :: !(Maybe Text)+  , _dogMarker             :: !(Maybe Text)+  , _dogMaxRecords         :: !(Maybe Int)+  , _dogOptionGroupName    :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeOptionGroups' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -85,15 +86,16 @@ describeOptionGroups     :: DescribeOptionGroups describeOptionGroups =-    DescribeOptionGroups'-    { _dogFilters = Nothing-    , _dogEngineName = Nothing-    , _dogMajorEngineVersion = Nothing-    , _dogMarker = Nothing-    , _dogMaxRecords = Nothing-    , _dogOptionGroupName = Nothing-    }+  DescribeOptionGroups'+  { _dogFilters = Nothing+  , _dogEngineName = Nothing+  , _dogMajorEngineVersion = Nothing+  , _dogMarker = Nothing+  , _dogMaxRecords = Nothing+  , _dogOptionGroupName = Nothing+  } + -- | This parameter is not currently supported. dogFilters :: Lens' DescribeOptionGroups [Filter] dogFilters = lens _dogFilters (\ s a -> s{_dogFilters = a}) . _Default . _Coerce;@@ -138,9 +140,9 @@                         may (parseXMLList "OptionGroup"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeOptionGroups+instance Hashable DescribeOptionGroups where -instance NFData DescribeOptionGroups+instance NFData DescribeOptionGroups where  instance ToHeaders DescribeOptionGroups where         toHeaders = const mempty@@ -167,11 +169,12 @@ -- -- /See:/ 'describeOptionGroupsResponse' smart constructor. data DescribeOptionGroupsResponse = DescribeOptionGroupsResponse'-    { _dogrsMarker           :: !(Maybe Text)-    , _dogrsOptionGroupsList :: !(Maybe [OptionGroup])-    , _dogrsResponseStatus   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dogrsMarker           :: !(Maybe Text)+  , _dogrsOptionGroupsList :: !(Maybe [OptionGroup])+  , _dogrsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeOptionGroupsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -185,12 +188,13 @@     :: Int -- ^ 'dogrsResponseStatus'     -> DescribeOptionGroupsResponse describeOptionGroupsResponse pResponseStatus_ =-    DescribeOptionGroupsResponse'-    { _dogrsMarker = Nothing-    , _dogrsOptionGroupsList = Nothing-    , _dogrsResponseStatus = pResponseStatus_-    }+  DescribeOptionGroupsResponse'+  { _dogrsMarker = Nothing+  , _dogrsOptionGroupsList = Nothing+  , _dogrsResponseStatus = 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@ . dogrsMarker :: Lens' DescribeOptionGroupsResponse (Maybe Text) dogrsMarker = lens _dogrsMarker (\ s a -> s{_dogrsMarker = a});@@ -203,4 +207,4 @@ dogrsResponseStatus :: Lens' DescribeOptionGroupsResponse Int dogrsResponseStatus = lens _dogrsResponseStatus (\ s a -> s{_dogrsResponseStatus = a}); -instance NFData DescribeOptionGroupsResponse+instance NFData DescribeOptionGroupsResponse where
gen/Network/AWS/RDS/DescribeOrderableDBInstanceOptions.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeOrderableDBInstanceOptions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -47,13 +47,13 @@     , dodiorsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -61,16 +61,17 @@ -- -- /See:/ 'describeOrderableDBInstanceOptions' smart constructor. data DescribeOrderableDBInstanceOptions = DescribeOrderableDBInstanceOptions'-    { _dodioEngineVersion   :: !(Maybe Text)-    , _dodioFilters         :: !(Maybe [Filter])-    , _dodioDBInstanceClass :: !(Maybe Text)-    , _dodioLicenseModel    :: !(Maybe Text)-    , _dodioMarker          :: !(Maybe Text)-    , _dodioMaxRecords      :: !(Maybe Int)-    , _dodioVPC             :: !(Maybe Bool)-    , _dodioEngine          :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dodioEngineVersion   :: !(Maybe Text)+  , _dodioFilters         :: !(Maybe [Filter])+  , _dodioDBInstanceClass :: !(Maybe Text)+  , _dodioLicenseModel    :: !(Maybe Text)+  , _dodioMarker          :: !(Maybe Text)+  , _dodioMaxRecords      :: !(Maybe Int)+  , _dodioVPC             :: !(Maybe Bool)+  , _dodioEngine          :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeOrderableDBInstanceOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -94,17 +95,18 @@     :: Text -- ^ 'dodioEngine'     -> DescribeOrderableDBInstanceOptions describeOrderableDBInstanceOptions pEngine_ =-    DescribeOrderableDBInstanceOptions'-    { _dodioEngineVersion = Nothing-    , _dodioFilters = Nothing-    , _dodioDBInstanceClass = Nothing-    , _dodioLicenseModel = Nothing-    , _dodioMarker = Nothing-    , _dodioMaxRecords = Nothing-    , _dodioVPC = Nothing-    , _dodioEngine = pEngine_-    }+  DescribeOrderableDBInstanceOptions'+  { _dodioEngineVersion = Nothing+  , _dodioFilters = Nothing+  , _dodioDBInstanceClass = Nothing+  , _dodioLicenseModel = Nothing+  , _dodioMarker = Nothing+  , _dodioMaxRecords = Nothing+  , _dodioVPC = Nothing+  , _dodioEngine = pEngine_+  } + -- | The engine version filter value. Specify this parameter to show only the available offerings matching the specified engine version. dodioEngineVersion :: Lens' DescribeOrderableDBInstanceOptions (Maybe Text) dodioEngineVersion = lens _dodioEngineVersion (\ s a -> s{_dodioEngineVersion = a});@@ -147,7 +149,8 @@             Just $ rq & dodioMarker .~ rs ^. dodiorsMarker  instance AWSRequest-         DescribeOrderableDBInstanceOptions where+           DescribeOrderableDBInstanceOptions+         where         type Rs DescribeOrderableDBInstanceOptions =              DescribeOrderableDBInstanceOptionsResponse         request = postQuery rds@@ -162,8 +165,10 @@                      <*> (pure (fromEnum s)))  instance Hashable DescribeOrderableDBInstanceOptions+         where  instance NFData DescribeOrderableDBInstanceOptions+         where  instance ToHeaders DescribeOrderableDBInstanceOptions          where@@ -195,11 +200,12 @@ -- -- /See:/ 'describeOrderableDBInstanceOptionsResponse' smart constructor. data DescribeOrderableDBInstanceOptionsResponse = DescribeOrderableDBInstanceOptionsResponse'-    { _dodiorsOrderableDBInstanceOptions :: !(Maybe [OrderableDBInstanceOption])-    , _dodiorsMarker                     :: !(Maybe Text)-    , _dodiorsResponseStatus             :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dodiorsOrderableDBInstanceOptions :: !(Maybe [OrderableDBInstanceOption])+  , _dodiorsMarker                     :: !(Maybe Text)+  , _dodiorsResponseStatus             :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeOrderableDBInstanceOptionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -213,12 +219,13 @@     :: Int -- ^ 'dodiorsResponseStatus'     -> DescribeOrderableDBInstanceOptionsResponse describeOrderableDBInstanceOptionsResponse pResponseStatus_ =-    DescribeOrderableDBInstanceOptionsResponse'-    { _dodiorsOrderableDBInstanceOptions = Nothing-    , _dodiorsMarker = Nothing-    , _dodiorsResponseStatus = pResponseStatus_-    }+  DescribeOrderableDBInstanceOptionsResponse'+  { _dodiorsOrderableDBInstanceOptions = Nothing+  , _dodiorsMarker = Nothing+  , _dodiorsResponseStatus = pResponseStatus_+  } + -- | An 'OrderableDBInstanceOption' structure containing information about orderable options for the DB instance. dodiorsOrderableDBInstanceOptions :: Lens' DescribeOrderableDBInstanceOptionsResponse [OrderableDBInstanceOption] dodiorsOrderableDBInstanceOptions = lens _dodiorsOrderableDBInstanceOptions (\ s a -> s{_dodiorsOrderableDBInstanceOptions = a}) . _Default . _Coerce;@@ -232,4 +239,5 @@ dodiorsResponseStatus = lens _dodiorsResponseStatus (\ s a -> s{_dodiorsResponseStatus = a});  instance NFData-         DescribeOrderableDBInstanceOptionsResponse+           DescribeOrderableDBInstanceOptionsResponse+         where
gen/Network/AWS/RDS/DescribePendingMaintenanceActions.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribePendingMaintenanceActions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@     , dpmarsResponseStatus     ) 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+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  -- | --@@ -54,17 +54,18 @@ -- -- /See:/ 'describePendingMaintenanceActions' smart constructor. data DescribePendingMaintenanceActions = DescribePendingMaintenanceActions'-    { _dpmaFilters            :: !(Maybe [Filter])-    , _dpmaMarker             :: !(Maybe Text)-    , _dpmaMaxRecords         :: !(Maybe Int)-    , _dpmaResourceIdentifier :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpmaFilters            :: !(Maybe [Filter])+  , _dpmaMarker             :: !(Maybe Text)+  , _dpmaMaxRecords         :: !(Maybe Int)+  , _dpmaResourceIdentifier :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribePendingMaintenanceActions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpmaFilters' - A filter that specifies one or more resources to return pending maintenance actions for. 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' - A filter that specifies one or more resources to return pending maintenance actions for. Supported filters:     * @db-cluster-id@ - Accepts DB cluster identifiers and DB cluster Amazon Resource Names (ARNs). The results list will only include pending maintenance actions for the DB clusters identified by these ARNs.     * @db-instance-id@ - Accepts DB instance identifiers and DB instance ARNs. The results list will only include pending maintenance actions for the DB instances identified by these ARNs. -- -- * 'dpmaMarker' - An optional pagination token provided by a previous @DescribePendingMaintenanceActions@ request. If this parameter is specified, the response includes only records beyond the marker, up to a number of records specified by @MaxRecords@ . --@@ -74,14 +75,15 @@ describePendingMaintenanceActions     :: DescribePendingMaintenanceActions describePendingMaintenanceActions =-    DescribePendingMaintenanceActions'-    { _dpmaFilters = Nothing-    , _dpmaMarker = Nothing-    , _dpmaMaxRecords = Nothing-    , _dpmaResourceIdentifier = Nothing-    }+  DescribePendingMaintenanceActions'+  { _dpmaFilters = Nothing+  , _dpmaMarker = Nothing+  , _dpmaMaxRecords = Nothing+  , _dpmaResourceIdentifier = Nothing+  } --- | A filter that specifies one or more resources to return pending maintenance actions for. 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.++-- | A filter that specifies one or more resources to return pending maintenance actions for. Supported filters:     * @db-cluster-id@ - Accepts DB cluster identifiers and DB cluster Amazon Resource Names (ARNs). The results list will only include pending maintenance actions for the DB clusters identified by these ARNs.     * @db-instance-id@ - Accepts DB instance identifiers and DB instance 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; @@ -114,8 +116,10 @@                      <*> (pure (fromEnum s)))  instance Hashable DescribePendingMaintenanceActions+         where  instance NFData DescribePendingMaintenanceActions+         where  instance ToHeaders DescribePendingMaintenanceActions          where@@ -144,11 +148,12 @@ -- -- /See:/ 'describePendingMaintenanceActionsResponse' smart constructor. data DescribePendingMaintenanceActionsResponse = DescribePendingMaintenanceActionsResponse'-    { _dpmarsPendingMaintenanceActions :: !(Maybe [ResourcePendingMaintenanceActions])-    , _dpmarsMarker                    :: !(Maybe Text)-    , _dpmarsResponseStatus            :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dpmarsPendingMaintenanceActions :: !(Maybe [ResourcePendingMaintenanceActions])+  , _dpmarsMarker :: !(Maybe Text)+  , _dpmarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribePendingMaintenanceActionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -162,12 +167,13 @@     :: Int -- ^ 'dpmarsResponseStatus'     -> DescribePendingMaintenanceActionsResponse describePendingMaintenanceActionsResponse pResponseStatus_ =-    DescribePendingMaintenanceActionsResponse'-    { _dpmarsPendingMaintenanceActions = Nothing-    , _dpmarsMarker = Nothing-    , _dpmarsResponseStatus = pResponseStatus_-    }+  DescribePendingMaintenanceActionsResponse'+  { _dpmarsPendingMaintenanceActions = Nothing+  , _dpmarsMarker = Nothing+  , _dpmarsResponseStatus = pResponseStatus_+  } + -- | A list of the pending maintenance actions for the resource. dpmarsPendingMaintenanceActions :: Lens' DescribePendingMaintenanceActionsResponse [ResourcePendingMaintenanceActions] dpmarsPendingMaintenanceActions = lens _dpmarsPendingMaintenanceActions (\ s a -> s{_dpmarsPendingMaintenanceActions = a}) . _Default . _Coerce;@@ -181,4 +187,5 @@ dpmarsResponseStatus = lens _dpmarsResponseStatus (\ s a -> s{_dpmarsResponseStatus = a});  instance NFData-         DescribePendingMaintenanceActionsResponse+           DescribePendingMaintenanceActionsResponse+         where
gen/Network/AWS/RDS/DescribeReservedDBInstances.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeReservedDBInstances--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -49,13 +49,13 @@     , drdirsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -63,18 +63,19 @@ -- -- /See:/ 'describeReservedDBInstances' smart constructor. data DescribeReservedDBInstances = DescribeReservedDBInstances'-    { _drdiProductDescription            :: !(Maybe Text)-    , _drdiFilters                       :: !(Maybe [Filter])-    , _drdiReservedDBInstanceId          :: !(Maybe Text)-    , _drdiDBInstanceClass               :: !(Maybe Text)-    , _drdiMarker                        :: !(Maybe Text)-    , _drdiMaxRecords                    :: !(Maybe Int)-    , _drdiMultiAZ                       :: !(Maybe Bool)-    , _drdiReservedDBInstancesOfferingId :: !(Maybe Text)-    , _drdiOfferingType                  :: !(Maybe Text)-    , _drdiDuration                      :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drdiProductDescription            :: !(Maybe Text)+  , _drdiFilters                       :: !(Maybe [Filter])+  , _drdiReservedDBInstanceId          :: !(Maybe Text)+  , _drdiDBInstanceClass               :: !(Maybe Text)+  , _drdiMarker                        :: !(Maybe Text)+  , _drdiMaxRecords                    :: !(Maybe Int)+  , _drdiMultiAZ                       :: !(Maybe Bool)+  , _drdiReservedDBInstancesOfferingId :: !(Maybe Text)+  , _drdiOfferingType                  :: !(Maybe Text)+  , _drdiDuration                      :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeReservedDBInstances' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -101,19 +102,20 @@ describeReservedDBInstances     :: DescribeReservedDBInstances describeReservedDBInstances =-    DescribeReservedDBInstances'-    { _drdiProductDescription = Nothing-    , _drdiFilters = Nothing-    , _drdiReservedDBInstanceId = Nothing-    , _drdiDBInstanceClass = Nothing-    , _drdiMarker = Nothing-    , _drdiMaxRecords = Nothing-    , _drdiMultiAZ = Nothing-    , _drdiReservedDBInstancesOfferingId = Nothing-    , _drdiOfferingType = Nothing-    , _drdiDuration = Nothing-    }+  DescribeReservedDBInstances'+  { _drdiProductDescription = Nothing+  , _drdiFilters = Nothing+  , _drdiReservedDBInstanceId = Nothing+  , _drdiDBInstanceClass = Nothing+  , _drdiMarker = Nothing+  , _drdiMaxRecords = Nothing+  , _drdiMultiAZ = Nothing+  , _drdiReservedDBInstancesOfferingId = Nothing+  , _drdiOfferingType = Nothing+  , _drdiDuration = Nothing+  } + -- | The product description filter value. Specify this parameter to show only those reservations matching the specified product description. drdiProductDescription :: Lens' DescribeReservedDBInstances (Maybe Text) drdiProductDescription = lens _drdiProductDescription (\ s a -> s{_drdiProductDescription = a});@@ -175,9 +177,9 @@                      <*> (x .@? "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeReservedDBInstances+instance Hashable DescribeReservedDBInstances where -instance NFData DescribeReservedDBInstances+instance NFData DescribeReservedDBInstances where  instance ToHeaders DescribeReservedDBInstances where         toHeaders = const mempty@@ -210,11 +212,12 @@ -- -- /See:/ 'describeReservedDBInstancesResponse' smart constructor. data DescribeReservedDBInstancesResponse = DescribeReservedDBInstancesResponse'-    { _drdirsReservedDBInstances :: !(Maybe [ReservedDBInstance])-    , _drdirsMarker              :: !(Maybe Text)-    , _drdirsResponseStatus      :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drdirsReservedDBInstances :: !(Maybe [ReservedDBInstance])+  , _drdirsMarker              :: !(Maybe Text)+  , _drdirsResponseStatus      :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeReservedDBInstancesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -228,12 +231,13 @@     :: Int -- ^ 'drdirsResponseStatus'     -> DescribeReservedDBInstancesResponse describeReservedDBInstancesResponse pResponseStatus_ =-    DescribeReservedDBInstancesResponse'-    { _drdirsReservedDBInstances = Nothing-    , _drdirsMarker = Nothing-    , _drdirsResponseStatus = pResponseStatus_-    }+  DescribeReservedDBInstancesResponse'+  { _drdirsReservedDBInstances = Nothing+  , _drdirsMarker = Nothing+  , _drdirsResponseStatus = pResponseStatus_+  } + -- | A list of reserved DB instances. drdirsReservedDBInstances :: Lens' DescribeReservedDBInstancesResponse [ReservedDBInstance] drdirsReservedDBInstances = lens _drdirsReservedDBInstances (\ s a -> s{_drdirsReservedDBInstances = a}) . _Default . _Coerce;@@ -247,3 +251,4 @@ drdirsResponseStatus = lens _drdirsResponseStatus (\ s a -> s{_drdirsResponseStatus = a});  instance NFData DescribeReservedDBInstancesResponse+         where
gen/Network/AWS/RDS/DescribeReservedDBInstancesOfferings.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DescribeReservedDBInstancesOfferings--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -48,13 +48,13 @@     , drdiorsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -62,17 +62,18 @@ -- -- /See:/ 'describeReservedDBInstancesOfferings' smart constructor. data DescribeReservedDBInstancesOfferings = DescribeReservedDBInstancesOfferings'-    { _drdioProductDescription            :: !(Maybe Text)-    , _drdioFilters                       :: !(Maybe [Filter])-    , _drdioDBInstanceClass               :: !(Maybe Text)-    , _drdioMarker                        :: !(Maybe Text)-    , _drdioMaxRecords                    :: !(Maybe Int)-    , _drdioMultiAZ                       :: !(Maybe Bool)-    , _drdioReservedDBInstancesOfferingId :: !(Maybe Text)-    , _drdioOfferingType                  :: !(Maybe Text)-    , _drdioDuration                      :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drdioProductDescription            :: !(Maybe Text)+  , _drdioFilters                       :: !(Maybe [Filter])+  , _drdioDBInstanceClass               :: !(Maybe Text)+  , _drdioMarker                        :: !(Maybe Text)+  , _drdioMaxRecords                    :: !(Maybe Int)+  , _drdioMultiAZ                       :: !(Maybe Bool)+  , _drdioReservedDBInstancesOfferingId :: !(Maybe Text)+  , _drdioOfferingType                  :: !(Maybe Text)+  , _drdioDuration                      :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeReservedDBInstancesOfferings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -97,18 +98,19 @@ describeReservedDBInstancesOfferings     :: DescribeReservedDBInstancesOfferings describeReservedDBInstancesOfferings =-    DescribeReservedDBInstancesOfferings'-    { _drdioProductDescription = Nothing-    , _drdioFilters = Nothing-    , _drdioDBInstanceClass = Nothing-    , _drdioMarker = Nothing-    , _drdioMaxRecords = Nothing-    , _drdioMultiAZ = Nothing-    , _drdioReservedDBInstancesOfferingId = Nothing-    , _drdioOfferingType = Nothing-    , _drdioDuration = Nothing-    }+  DescribeReservedDBInstancesOfferings'+  { _drdioProductDescription = Nothing+  , _drdioFilters = Nothing+  , _drdioDBInstanceClass = Nothing+  , _drdioMarker = Nothing+  , _drdioMaxRecords = Nothing+  , _drdioMultiAZ = Nothing+  , _drdioReservedDBInstancesOfferingId = Nothing+  , _drdioOfferingType = Nothing+  , _drdioDuration = Nothing+  } + -- | Product description filter value. Specify this parameter to show only the available offerings matching the specified product description. drdioProductDescription :: Lens' DescribeReservedDBInstancesOfferings (Maybe Text) drdioProductDescription = lens _drdioProductDescription (\ s a -> s{_drdioProductDescription = a});@@ -146,7 +148,8 @@ drdioDuration = lens _drdioDuration (\ s a -> s{_drdioDuration = a});  instance AWSPager-         DescribeReservedDBInstancesOfferings where+           DescribeReservedDBInstancesOfferings+         where         page rq rs           | stop (rs ^. drdiorsMarker) = Nothing           | stop (rs ^. drdiorsReservedDBInstancesOfferings) =@@ -155,7 +158,8 @@             Just $ rq & drdioMarker .~ rs ^. drdiorsMarker  instance AWSRequest-         DescribeReservedDBInstancesOfferings where+           DescribeReservedDBInstancesOfferings+         where         type Rs DescribeReservedDBInstancesOfferings =              DescribeReservedDBInstancesOfferingsResponse         request = postQuery rds@@ -170,12 +174,15 @@                      <*> (pure (fromEnum s)))  instance Hashable-         DescribeReservedDBInstancesOfferings+           DescribeReservedDBInstancesOfferings+         where  instance NFData DescribeReservedDBInstancesOfferings+         where  instance ToHeaders-         DescribeReservedDBInstancesOfferings where+           DescribeReservedDBInstancesOfferings+         where         toHeaders = const mempty  instance ToPath DescribeReservedDBInstancesOfferings@@ -208,11 +215,12 @@ -- -- /See:/ 'describeReservedDBInstancesOfferingsResponse' smart constructor. data DescribeReservedDBInstancesOfferingsResponse = DescribeReservedDBInstancesOfferingsResponse'-    { _drdiorsMarker                       :: !(Maybe Text)-    , _drdiorsReservedDBInstancesOfferings :: !(Maybe [ReservedDBInstancesOffering])-    , _drdiorsResponseStatus               :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drdiorsMarker :: !(Maybe Text)+  , _drdiorsReservedDBInstancesOfferings :: !(Maybe [ReservedDBInstancesOffering])+  , _drdiorsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeReservedDBInstancesOfferingsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -226,12 +234,13 @@     :: Int -- ^ 'drdiorsResponseStatus'     -> DescribeReservedDBInstancesOfferingsResponse describeReservedDBInstancesOfferingsResponse pResponseStatus_ =-    DescribeReservedDBInstancesOfferingsResponse'-    { _drdiorsMarker = Nothing-    , _drdiorsReservedDBInstancesOfferings = Nothing-    , _drdiorsResponseStatus = pResponseStatus_-    }+  DescribeReservedDBInstancesOfferingsResponse'+  { _drdiorsMarker = Nothing+  , _drdiorsReservedDBInstancesOfferings = Nothing+  , _drdiorsResponseStatus = 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@ . drdiorsMarker :: Lens' DescribeReservedDBInstancesOfferingsResponse (Maybe Text) drdiorsMarker = lens _drdiorsMarker (\ s a -> s{_drdiorsMarker = a});@@ -245,4 +254,5 @@ drdiorsResponseStatus = lens _drdiorsResponseStatus (\ s a -> s{_drdiorsResponseStatus = a});  instance NFData-         DescribeReservedDBInstancesOfferingsResponse+           DescribeReservedDBInstancesOfferingsResponse+         where
gen/Network/AWS/RDS/DescribeSourceRegions.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.RDS.DescribeSourceRegions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a list of the source AWS regions where the current AWS region can create a Read Replica or copy a DB snapshot from. This API action supports pagination.+-- Returns a list of the source AWS regions where the current AWS Region can create a Read Replica or copy a DB snapshot from. This API action supports pagination. -- -- module Network.AWS.RDS.DescribeSourceRegions@@ -41,12 +41,12 @@     , 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+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  -- | --@@ -54,17 +54,18 @@ -- -- /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)+  { _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' - The source region name. For example, @us-east-1@ . Constraints:     * Must specify a valid AWS Region name.+-- * 'dsrRegionName' - The source AWS Region name. For example, @us-east-1@ . Constraints:     * Must specify a valid AWS Region name. -- -- * 'dsrFilters' - This parameter is not currently supported. --@@ -74,14 +75,15 @@ describeSourceRegions     :: DescribeSourceRegions describeSourceRegions =-    DescribeSourceRegions'-    { _dsrRegionName = Nothing-    , _dsrFilters = Nothing-    , _dsrMarker = Nothing-    , _dsrMaxRecords = Nothing-    }+  DescribeSourceRegions'+  { _dsrRegionName = Nothing+  , _dsrFilters = Nothing+  , _dsrMarker = Nothing+  , _dsrMaxRecords = Nothing+  } --- | The source region name. For example, @us-east-1@ . Constraints:     * Must specify a valid AWS Region name.++-- | The source AWS Region name. For example, @us-east-1@ . Constraints:     * Must specify a valid AWS Region name. dsrRegionName :: Lens' DescribeSourceRegions (Maybe Text) dsrRegionName = lens _dsrRegionName (\ s a -> s{_dsrRegionName = a}); @@ -110,9 +112,9 @@                         may (parseXMLList "SourceRegion"))                      <*> (pure (fromEnum s))) -instance Hashable DescribeSourceRegions+instance Hashable DescribeSourceRegions where -instance NFData DescribeSourceRegions+instance NFData DescribeSourceRegions where  instance ToHeaders DescribeSourceRegions where         toHeaders = const mempty@@ -137,35 +139,37 @@ -- -- /See:/ 'describeSourceRegionsResponse' smart constructor. data DescribeSourceRegionsResponse = DescribeSourceRegionsResponse'-    { _dsrrsMarker         :: !(Maybe Text)-    , _dsrrsSourceRegions  :: !(Maybe [SourceRegion])-    , _dsrrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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' - 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@ . ----- * 'dsrrsSourceRegions' - 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' - A list of SourceRegion instances that contains each source AWS Region that the current AWS Region can get a Read Replica or a DB snapshot from. -- -- * 'dsrrsResponseStatus' - -- | The response status code. describeSourceRegionsResponse     :: Int -- ^ 'dsrrsResponseStatus'     -> DescribeSourceRegionsResponse describeSourceRegionsResponse pResponseStatus_ =-    DescribeSourceRegionsResponse'-    { _dsrrsMarker = Nothing-    , _dsrrsSourceRegions = Nothing-    , _dsrrsResponseStatus = 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.+-- | A list of SourceRegion instances that contains each source AWS Region that the current AWS 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; @@ -173,4 +177,4 @@ dsrrsResponseStatus :: Lens' DescribeSourceRegionsResponse Int dsrrsResponseStatus = lens _dsrrsResponseStatus (\ s a -> s{_dsrrsResponseStatus = a}); -instance NFData DescribeSourceRegionsResponse+instance NFData DescribeSourceRegionsResponse where
+ gen/Network/AWS/RDS/DescribeValidDBInstanceModifications.hs view
@@ -0,0 +1,148 @@+{-# 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.DescribeValidDBInstanceModifications+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- You can call 'DescribeValidDBInstanceModifications' to learn what modifications you can make to your DB instance. You can use this information when you call 'ModifyDBInstance' .+--+--+module Network.AWS.RDS.DescribeValidDBInstanceModifications+    (+    -- * Creating a Request+      describeValidDBInstanceModifications+    , DescribeValidDBInstanceModifications+    -- * Request Lenses+    , dvdimDBInstanceIdentifier++    -- * Destructuring the Response+    , describeValidDBInstanceModificationsResponse+    , DescribeValidDBInstanceModificationsResponse+    -- * Response Lenses+    , dvdimrsValidDBInstanceModificationsMessage+    , dvdimrsResponseStatus+    ) 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:/ 'describeValidDBInstanceModifications' smart constructor.+newtype DescribeValidDBInstanceModifications = DescribeValidDBInstanceModifications'+  { _dvdimDBInstanceIdentifier :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeValidDBInstanceModifications' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dvdimDBInstanceIdentifier' - The customer identifier or the ARN of your DB instance.+describeValidDBInstanceModifications+    :: Text -- ^ 'dvdimDBInstanceIdentifier'+    -> DescribeValidDBInstanceModifications+describeValidDBInstanceModifications pDBInstanceIdentifier_ =+  DescribeValidDBInstanceModifications'+  {_dvdimDBInstanceIdentifier = pDBInstanceIdentifier_}+++-- | The customer identifier or the ARN of your DB instance.+dvdimDBInstanceIdentifier :: Lens' DescribeValidDBInstanceModifications Text+dvdimDBInstanceIdentifier = lens _dvdimDBInstanceIdentifier (\ s a -> s{_dvdimDBInstanceIdentifier = a});++instance AWSRequest+           DescribeValidDBInstanceModifications+         where+        type Rs DescribeValidDBInstanceModifications =+             DescribeValidDBInstanceModificationsResponse+        request = postQuery rds+        response+          = receiveXMLWrapper+              "DescribeValidDBInstanceModificationsResult"+              (\ s h x ->+                 DescribeValidDBInstanceModificationsResponse' <$>+                   (x .@? "ValidDBInstanceModificationsMessage") <*>+                     (pure (fromEnum s)))++instance Hashable+           DescribeValidDBInstanceModifications+         where++instance NFData DescribeValidDBInstanceModifications+         where++instance ToHeaders+           DescribeValidDBInstanceModifications+         where+        toHeaders = const mempty++instance ToPath DescribeValidDBInstanceModifications+         where+        toPath = const "/"++instance ToQuery DescribeValidDBInstanceModifications+         where+        toQuery DescribeValidDBInstanceModifications'{..}+          = mconcat+              ["Action" =:+                 ("DescribeValidDBInstanceModifications" ::+                    ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "DBInstanceIdentifier" =: _dvdimDBInstanceIdentifier]++-- | /See:/ 'describeValidDBInstanceModificationsResponse' smart constructor.+data DescribeValidDBInstanceModificationsResponse = DescribeValidDBInstanceModificationsResponse'+  { _dvdimrsValidDBInstanceModificationsMessage :: !(Maybe ValidDBInstanceModificationsMessage)+  , _dvdimrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeValidDBInstanceModificationsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dvdimrsValidDBInstanceModificationsMessage' - Undocumented member.+--+-- * 'dvdimrsResponseStatus' - -- | The response status code.+describeValidDBInstanceModificationsResponse+    :: Int -- ^ 'dvdimrsResponseStatus'+    -> DescribeValidDBInstanceModificationsResponse+describeValidDBInstanceModificationsResponse pResponseStatus_ =+  DescribeValidDBInstanceModificationsResponse'+  { _dvdimrsValidDBInstanceModificationsMessage = Nothing+  , _dvdimrsResponseStatus = pResponseStatus_+  }+++-- | Undocumented member.+dvdimrsValidDBInstanceModificationsMessage :: Lens' DescribeValidDBInstanceModificationsResponse (Maybe ValidDBInstanceModificationsMessage)+dvdimrsValidDBInstanceModificationsMessage = lens _dvdimrsValidDBInstanceModificationsMessage (\ s a -> s{_dvdimrsValidDBInstanceModificationsMessage = a});++-- | -- | The response status code.+dvdimrsResponseStatus :: Lens' DescribeValidDBInstanceModificationsResponse Int+dvdimrsResponseStatus = lens _dvdimrsResponseStatus (\ s a -> s{_dvdimrsResponseStatus = a});++instance NFData+           DescribeValidDBInstanceModificationsResponse+         where
gen/Network/AWS/RDS/DownloadDBLogFilePortion.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.DownloadDBLogFilePortion--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -44,13 +44,13 @@     , ddlfprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types-import           Network.AWS.RDS.Types.Product-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.RDS.Types+import Network.AWS.RDS.Types.Product+import Network.AWS.Request+import Network.AWS.Response  -- | --@@ -58,21 +58,22 @@ -- -- /See:/ 'downloadDBLogFilePortion' smart constructor. data DownloadDBLogFilePortion = DownloadDBLogFilePortion'-    { _ddlfpNumberOfLines        :: !(Maybe Int)-    , _ddlfpMarker               :: !(Maybe Text)-    , _ddlfpDBInstanceIdentifier :: !Text-    , _ddlfpLogFileName          :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddlfpNumberOfLines        :: !(Maybe Int)+  , _ddlfpMarker               :: !(Maybe Text)+  , _ddlfpDBInstanceIdentifier :: !Text+  , _ddlfpLogFileName          :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DownloadDBLogFilePortion' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddlfpNumberOfLines' - The number of lines to download. If the number of lines specified results in a file over 1 MB in size, the file will be truncated at 1 MB in size. If the NumberOfLines parameter is specified, then the block of lines returned can be from the beginning or the end of the log file, depending on the value of the Marker parameter.     * If neither Marker or NumberOfLines are specified, the entire log file is returned up to a maximum of 10000 lines, starting with the most recent log entries first.     * If NumberOfLines is specified and Marker is not specified, then the most recent lines from the end of the log file are returned.     * If Marker is specified as "0", then the specified number of lines from the beginning of the log file are returned.     * You can download the log file in blocks of lines by specifying the size of the block using the NumberOfLines parameter, and by specifying a value of "0" for the Marker parameter in your first request. Include the Marker value returned in the response as the Marker value for the next request, continuing until the AdditionalDataPending response element returns false.+-- * 'ddlfpNumberOfLines' - The number of lines to download. If the number of lines specified results in a file over 1 MB in size, the file is truncated at 1 MB in size. If the NumberOfLines parameter is specified, then the block of lines returned can be from the beginning or the end of the log file, depending on the value of the Marker parameter.     * If neither Marker or NumberOfLines are specified, the entire log file is returned up to a maximum of 10000 lines, starting with the most recent log entries first.     * If NumberOfLines is specified and Marker is not specified, then the most recent lines from the end of the log file are returned.     * If Marker is specified as "0", then the specified number of lines from the beginning of the log file are returned.     * You can download the log file in blocks of lines by specifying the size of the block using the NumberOfLines parameter, and by specifying a value of "0" for the Marker parameter in your first request. Include the Marker value returned in the response as the Marker value for the next request, continuing until the AdditionalDataPending response element returns false. -- -- * 'ddlfpMarker' - The pagination token provided in the previous request or "0". If the Marker parameter is specified the response includes only records beyond the marker until the end of the file or up to NumberOfLines. ----- * 'ddlfpDBInstanceIdentifier' - The customer-assigned name of the DB instance that contains the log files you want to list. 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' - The customer-assigned name of the DB instance that contains the log files you want to list. Constraints:     * Must match the identifier of an existing DBInstance. -- -- * 'ddlfpLogFileName' - The name of the log file to be downloaded. downloadDBLogFilePortion@@ -80,14 +81,15 @@     -> Text -- ^ 'ddlfpLogFileName'     -> DownloadDBLogFilePortion downloadDBLogFilePortion pDBInstanceIdentifier_ pLogFileName_ =-    DownloadDBLogFilePortion'-    { _ddlfpNumberOfLines = Nothing-    , _ddlfpMarker = Nothing-    , _ddlfpDBInstanceIdentifier = pDBInstanceIdentifier_-    , _ddlfpLogFileName = pLogFileName_-    }+  DownloadDBLogFilePortion'+  { _ddlfpNumberOfLines = Nothing+  , _ddlfpMarker = Nothing+  , _ddlfpDBInstanceIdentifier = pDBInstanceIdentifier_+  , _ddlfpLogFileName = pLogFileName_+  } --- | The number of lines to download. If the number of lines specified results in a file over 1 MB in size, the file will be truncated at 1 MB in size. If the NumberOfLines parameter is specified, then the block of lines returned can be from the beginning or the end of the log file, depending on the value of the Marker parameter.     * If neither Marker or NumberOfLines are specified, the entire log file is returned up to a maximum of 10000 lines, starting with the most recent log entries first.     * If NumberOfLines is specified and Marker is not specified, then the most recent lines from the end of the log file are returned.     * If Marker is specified as "0", then the specified number of lines from the beginning of the log file are returned.     * You can download the log file in blocks of lines by specifying the size of the block using the NumberOfLines parameter, and by specifying a value of "0" for the Marker parameter in your first request. Include the Marker value returned in the response as the Marker value for the next request, continuing until the AdditionalDataPending response element returns false.++-- | The number of lines to download. If the number of lines specified results in a file over 1 MB in size, the file is truncated at 1 MB in size. If the NumberOfLines parameter is specified, then the block of lines returned can be from the beginning or the end of the log file, depending on the value of the Marker parameter.     * If neither Marker or NumberOfLines are specified, the entire log file is returned up to a maximum of 10000 lines, starting with the most recent log entries first.     * If NumberOfLines is specified and Marker is not specified, then the most recent lines from the end of the log file are returned.     * If Marker is specified as "0", then the specified number of lines from the beginning of the log file are returned.     * You can download the log file in blocks of lines by specifying the size of the block using the NumberOfLines parameter, and by specifying a value of "0" for the Marker parameter in your first request. Include the Marker value returned in the response as the Marker value for the next request, continuing until the AdditionalDataPending response element returns false. ddlfpNumberOfLines :: Lens' DownloadDBLogFilePortion (Maybe Int) ddlfpNumberOfLines = lens _ddlfpNumberOfLines (\ s a -> s{_ddlfpNumberOfLines = a}); @@ -95,7 +97,7 @@ ddlfpMarker :: Lens' DownloadDBLogFilePortion (Maybe Text) ddlfpMarker = lens _ddlfpMarker (\ s a -> s{_ddlfpMarker = a}); --- | The customer-assigned name of the DB instance that contains the log files you want to list. 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+-- | The customer-assigned name of the DB instance that contains the log files you want to list. Constraints:     * Must match the identifier of an existing DBInstance. ddlfpDBInstanceIdentifier :: Lens' DownloadDBLogFilePortion Text ddlfpDBInstanceIdentifier = lens _ddlfpDBInstanceIdentifier (\ s a -> s{_ddlfpDBInstanceIdentifier = a}); @@ -123,9 +125,9 @@                      <*> (x .@? "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DownloadDBLogFilePortion+instance Hashable DownloadDBLogFilePortion where -instance NFData DownloadDBLogFilePortion+instance NFData DownloadDBLogFilePortion where  instance ToHeaders DownloadDBLogFilePortion where         toHeaders = const mempty@@ -150,12 +152,13 @@ -- -- /See:/ 'downloadDBLogFilePortionResponse' smart constructor. data DownloadDBLogFilePortionResponse = DownloadDBLogFilePortionResponse'-    { _ddlfprsLogFileData           :: !(Maybe Text)-    , _ddlfprsAdditionalDataPending :: !(Maybe Bool)-    , _ddlfprsMarker                :: !(Maybe Text)-    , _ddlfprsResponseStatus        :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddlfprsLogFileData           :: !(Maybe Text)+  , _ddlfprsAdditionalDataPending :: !(Maybe Bool)+  , _ddlfprsMarker                :: !(Maybe Text)+  , _ddlfprsResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DownloadDBLogFilePortionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -171,13 +174,14 @@     :: Int -- ^ 'ddlfprsResponseStatus'     -> DownloadDBLogFilePortionResponse downloadDBLogFilePortionResponse pResponseStatus_ =-    DownloadDBLogFilePortionResponse'-    { _ddlfprsLogFileData = Nothing-    , _ddlfprsAdditionalDataPending = Nothing-    , _ddlfprsMarker = Nothing-    , _ddlfprsResponseStatus = pResponseStatus_-    }+  DownloadDBLogFilePortionResponse'+  { _ddlfprsLogFileData = Nothing+  , _ddlfprsAdditionalDataPending = Nothing+  , _ddlfprsMarker = Nothing+  , _ddlfprsResponseStatus = pResponseStatus_+  } + -- | Entries from the specified log file. ddlfprsLogFileData :: Lens' DownloadDBLogFilePortionResponse (Maybe Text) ddlfprsLogFileData = lens _ddlfprsLogFileData (\ s a -> s{_ddlfprsLogFileData = a});@@ -195,3 +199,4 @@ ddlfprsResponseStatus = lens _ddlfprsResponseStatus (\ s a -> s{_ddlfprsResponseStatus = a});  instance NFData DownloadDBLogFilePortionResponse+         where
gen/Network/AWS/RDS/FailoverDBCluster.hs view
@@ -12,18 +12,18 @@  -- | -- Module      : Network.AWS.RDS.FailoverDBCluster--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Forces a failover for a DB cluster. -- ----- A failover for a DB cluster promotes one of the read-only instances in the DB cluster to the master DB instance (the cluster writer) and deletes the current primary instance.+-- A failover for a DB cluster promotes one of the Aurora Replicas (read-only instances) in the DB cluster to be the primary instance (the cluster writer). ----- Amazon Aurora will automatically fail over to a read-only instance, if one exists, when the primary instance fails. You can force a failover when you want to simulate a failure of a DB instance for testing. Because each instance in a DB cluster has its own endpoint address, you will need to clean up and re-establish any existing connections that use those endpoint addresses when the failover is complete.+-- Amazon Aurora will automatically fail over to an Aurora Replica, if one exists, when the primary instance fails. You can force a failover when you want to simulate a failure of a primary instance for testing. Because each instance in a DB cluster has its own endpoint address, you will need to clean up and re-establish any existing connections that use those endpoint addresses when the failover is complete. -- -- 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./ --@@ -44,12 +44,12 @@     , fdcrsResponseStatus     ) 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+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  -- | --@@ -57,26 +57,26 @@ -- -- /See:/ 'failoverDBCluster' smart constructor. data FailoverDBCluster = FailoverDBCluster'-    { _fdcDBClusterIdentifier        :: !(Maybe Text)-    , _fdcTargetDBInstanceIdentifier :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'fdcDBClusterIdentifier' - A DB cluster identifier to force a failover for. 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+-- * 'fdcDBClusterIdentifier' - A DB cluster identifier to force a failover for. This parameter is not case-sensitive. Constraints:     * Must match the identifier of an existing DBCluster. -- -- * 'fdcTargetDBInstanceIdentifier' - 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@ . failoverDBCluster     :: FailoverDBCluster failoverDBCluster =-    FailoverDBCluster'-    { _fdcDBClusterIdentifier = Nothing-    , _fdcTargetDBInstanceIdentifier = Nothing-    }+  FailoverDBCluster'+  {_fdcDBClusterIdentifier = Nothing, _fdcTargetDBInstanceIdentifier = Nothing} --- | A DB cluster identifier to force a failover for. 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++-- | A DB cluster identifier to force a failover for. This parameter is not case-sensitive. Constraints:     * Must match the identifier of an existing DBCluster. fdcDBClusterIdentifier :: Lens' FailoverDBCluster (Maybe Text) fdcDBClusterIdentifier = lens _fdcDBClusterIdentifier (\ s a -> s{_fdcDBClusterIdentifier = a}); @@ -93,9 +93,9 @@                  FailoverDBClusterResponse' <$>                    (x .@? "DBCluster") <*> (pure (fromEnum s))) -instance Hashable FailoverDBCluster+instance Hashable FailoverDBCluster where -instance NFData FailoverDBCluster+instance NFData FailoverDBCluster where  instance ToHeaders FailoverDBCluster where         toHeaders = const mempty@@ -114,10 +114,11 @@  -- | /See:/ 'failoverDBClusterResponse' smart constructor. data FailoverDBClusterResponse = FailoverDBClusterResponse'-    { _fdcrsDBCluster      :: !(Maybe DBCluster)-    , _fdcrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _fdcrsDBCluster      :: !(Maybe DBCluster)+  , _fdcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'FailoverDBClusterResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,11 +130,10 @@     :: Int -- ^ 'fdcrsResponseStatus'     -> FailoverDBClusterResponse failoverDBClusterResponse pResponseStatus_ =-    FailoverDBClusterResponse'-    { _fdcrsDBCluster = Nothing-    , _fdcrsResponseStatus = pResponseStatus_-    }+  FailoverDBClusterResponse'+  {_fdcrsDBCluster = Nothing, _fdcrsResponseStatus = pResponseStatus_} + -- | Undocumented member. fdcrsDBCluster :: Lens' FailoverDBClusterResponse (Maybe DBCluster) fdcrsDBCluster = lens _fdcrsDBCluster (\ s a -> s{_fdcrsDBCluster = a});@@ -142,4 +142,4 @@ fdcrsResponseStatus :: Lens' FailoverDBClusterResponse Int fdcrsResponseStatus = lens _fdcrsResponseStatus (\ s a -> s{_fdcrsResponseStatus = a}); -instance NFData FailoverDBClusterResponse+instance NFData FailoverDBClusterResponse where
gen/Network/AWS/RDS/ListTagsForResource.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.ListTagsForResource--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@     , ltfrrsResponseStatus     ) 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+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  -- | --@@ -53,10 +53,11 @@ -- -- /See:/ 'listTagsForResource' smart constructor. data ListTagsForResource = ListTagsForResource'-    { _ltfrFilters      :: !(Maybe [Filter])-    , _ltfrResourceName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltfrFilters      :: !(Maybe [Filter])+  , _ltfrResourceName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTagsForResource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,11 +69,10 @@     :: Text -- ^ 'ltfrResourceName'     -> ListTagsForResource listTagsForResource pResourceName_ =-    ListTagsForResource'-    { _ltfrFilters = Nothing-    , _ltfrResourceName = pResourceName_-    }+  ListTagsForResource'+  {_ltfrFilters = Nothing, _ltfrResourceName = pResourceName_} + -- | This parameter is not currently supported. ltfrFilters :: Lens' ListTagsForResource [Filter] ltfrFilters = lens _ltfrFilters (\ s a -> s{_ltfrFilters = a}) . _Default . _Coerce;@@ -93,9 +93,9 @@                       may (parseXMLList "Tag"))                      <*> (pure (fromEnum s))) -instance Hashable ListTagsForResource+instance Hashable ListTagsForResource where -instance NFData ListTagsForResource+instance NFData ListTagsForResource where  instance ToHeaders ListTagsForResource where         toHeaders = const mempty@@ -118,10 +118,11 @@ -- -- /See:/ 'listTagsForResourceResponse' smart constructor. data ListTagsForResourceResponse = ListTagsForResourceResponse'-    { _ltfrrsTagList        :: !(Maybe [Tag])-    , _ltfrrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltfrrsTagList        :: !(Maybe [Tag])+  , _ltfrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTagsForResourceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -133,11 +134,10 @@     :: Int -- ^ 'ltfrrsResponseStatus'     -> ListTagsForResourceResponse listTagsForResourceResponse pResponseStatus_ =-    ListTagsForResourceResponse'-    { _ltfrrsTagList = Nothing-    , _ltfrrsResponseStatus = pResponseStatus_-    }+  ListTagsForResourceResponse'+  {_ltfrrsTagList = Nothing, _ltfrrsResponseStatus = pResponseStatus_} + -- | List of tags returned by the ListTagsForResource operation. ltfrrsTagList :: Lens' ListTagsForResourceResponse [Tag] ltfrrsTagList = lens _ltfrrsTagList (\ s a -> s{_ltfrrsTagList = a}) . _Default . _Coerce;@@ -146,4 +146,4 @@ ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a}); -instance NFData ListTagsForResourceResponse+instance NFData ListTagsForResourceResponse where
gen/Network/AWS/RDS/ModifyDBCluster.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.ModifyDBCluster--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,6 +37,7 @@     , mdcOptionGroupName     , mdcNewDBClusterIdentifier     , mdcPort+    , mdcEnableIAMDatabaseAuthentication     , mdcDBClusterIdentifier      -- * Destructuring the Response@@ -47,12 +48,12 @@     , mdcrsResponseStatus     ) 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+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  -- | --@@ -60,32 +61,34 @@ -- -- /See:/ 'modifyDBCluster' smart constructor. data ModifyDBCluster = ModifyDBCluster'-    { _mdcMasterUserPassword          :: !(Maybe Text)-    , _mdcPreferredMaintenanceWindow  :: !(Maybe Text)-    , _mdcPreferredBackupWindow       :: !(Maybe Text)-    , _mdcBackupRetentionPeriod       :: !(Maybe Int)-    , _mdcVPCSecurityGroupIds         :: !(Maybe [Text])-    , _mdcDBClusterParameterGroupName :: !(Maybe Text)-    , _mdcApplyImmediately            :: !(Maybe Bool)-    , _mdcOptionGroupName             :: !(Maybe Text)-    , _mdcNewDBClusterIdentifier      :: !(Maybe Text)-    , _mdcPort                        :: !(Maybe Int)-    , _mdcDBClusterIdentifier         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mdcMasterUserPassword              :: !(Maybe Text)+  , _mdcPreferredMaintenanceWindow      :: !(Maybe Text)+  , _mdcPreferredBackupWindow           :: !(Maybe Text)+  , _mdcBackupRetentionPeriod           :: !(Maybe Int)+  , _mdcVPCSecurityGroupIds             :: !(Maybe [Text])+  , _mdcDBClusterParameterGroupName     :: !(Maybe Text)+  , _mdcApplyImmediately                :: !(Maybe Bool)+  , _mdcOptionGroupName                 :: !(Maybe Text)+  , _mdcNewDBClusterIdentifier          :: !(Maybe Text)+  , _mdcPort                            :: !(Maybe Int)+  , _mdcEnableIAMDatabaseAuthentication :: !(Maybe Bool)+  , _mdcDBClusterIdentifier             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyDBCluster' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'mdcMasterUserPassword' - The new password for the master database user. This password can contain any printable ASCII character except "/", """, or "@". Constraints: Must contain from 8 to 41 characters. ----- * 'mdcPreferredMaintenanceWindow' - 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.+-- * 'mdcPreferredMaintenanceWindow' - 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 AWS 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. ----- * 'mdcPreferredBackupWindow' - 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.+-- * 'mdcPreferredBackupWindow' - 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 AWS 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. -- -- * 'mdcBackupRetentionPeriod' - The number of days for which automated backups are retained. You must specify a minimum value of 1. Default: 1 Constraints:     * Must be a value from 1 to 35 ----- * 'mdcVPCSecurityGroupIds' - A lst of VPC security groups that the DB cluster will belong to.+-- * 'mdcVPCSecurityGroupIds' - A list of VPC security groups that the DB cluster will belong to. -- -- * 'mdcDBClusterParameterGroupName' - The name of the DB cluster parameter group to use for the DB cluster. --@@ -93,38 +96,42 @@ -- -- * 'mdcOptionGroupName' - A value that indicates that the DB cluster should be associated with the specified option group. Changing this parameter does not result in an outage except in the following case, and the change is applied during the next maintenance window unless the @ApplyImmediately@ parameter is set to @true@ for this request. If the parameter change results in an option group that enables OEM, this change can cause a brief (sub-second) period during which new connections are rejected but existing connections are not interrupted.  Permanent options cannot be removed from an option group. The option group cannot be removed from a DB cluster once it is associated with a DB cluster. ----- * 'mdcNewDBClusterIdentifier' - The new DB cluster identifier for the DB cluster when renaming a DB cluster. This value is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-cluster2@+-- * 'mdcNewDBClusterIdentifier' - The new DB cluster identifier for the DB cluster when renaming a DB cluster. This value is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 letters, numbers, or hyphens     * The first character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-cluster2@ -- -- * 'mdcPort' - The port number on which the DB cluster accepts connections. Constraints: Value must be @1150-65535@  Default: The same port as the original DB cluster. ----- * 'mdcDBClusterIdentifier' - The DB cluster identifier for the cluster being modified. This parameter is not case-sensitive. Constraints:     * Must be the identifier for an existing DB cluster.     * Must contain from 1 to 63 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens.+-- * 'mdcEnableIAMDatabaseAuthentication' - A Boolean value that is true to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts, and otherwise false. Default: @false@+--+-- * 'mdcDBClusterIdentifier' - The DB cluster identifier for the cluster being modified. This parameter is not case-sensitive. Constraints:     * Must match the identifier of an existing DBCluster. modifyDBCluster     :: Text -- ^ 'mdcDBClusterIdentifier'     -> ModifyDBCluster modifyDBCluster pDBClusterIdentifier_ =-    ModifyDBCluster'-    { _mdcMasterUserPassword = Nothing-    , _mdcPreferredMaintenanceWindow = Nothing-    , _mdcPreferredBackupWindow = Nothing-    , _mdcBackupRetentionPeriod = Nothing-    , _mdcVPCSecurityGroupIds = Nothing-    , _mdcDBClusterParameterGroupName = Nothing-    , _mdcApplyImmediately = Nothing-    , _mdcOptionGroupName = Nothing-    , _mdcNewDBClusterIdentifier = Nothing-    , _mdcPort = Nothing-    , _mdcDBClusterIdentifier = pDBClusterIdentifier_-    }+  ModifyDBCluster'+  { _mdcMasterUserPassword = Nothing+  , _mdcPreferredMaintenanceWindow = Nothing+  , _mdcPreferredBackupWindow = Nothing+  , _mdcBackupRetentionPeriod = Nothing+  , _mdcVPCSecurityGroupIds = Nothing+  , _mdcDBClusterParameterGroupName = Nothing+  , _mdcApplyImmediately = Nothing+  , _mdcOptionGroupName = Nothing+  , _mdcNewDBClusterIdentifier = Nothing+  , _mdcPort = Nothing+  , _mdcEnableIAMDatabaseAuthentication = Nothing+  , _mdcDBClusterIdentifier = pDBClusterIdentifier_+  } + -- | The new password for the master database user. This password can contain any printable ASCII character except "/", """, or "@". Constraints: Must contain from 8 to 41 characters. mdcMasterUserPassword :: Lens' ModifyDBCluster (Maybe Text) mdcMasterUserPassword = lens _mdcMasterUserPassword (\ s a -> s{_mdcMasterUserPassword = 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.+-- | 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 AWS 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. mdcPreferredMaintenanceWindow :: Lens' ModifyDBCluster (Maybe Text) mdcPreferredMaintenanceWindow = lens _mdcPreferredMaintenanceWindow (\ s a -> s{_mdcPreferredMaintenanceWindow = 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.+-- | 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 AWS 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. mdcPreferredBackupWindow :: Lens' ModifyDBCluster (Maybe Text) mdcPreferredBackupWindow = lens _mdcPreferredBackupWindow (\ s a -> s{_mdcPreferredBackupWindow = a}); @@ -132,7 +139,7 @@ mdcBackupRetentionPeriod :: Lens' ModifyDBCluster (Maybe Int) mdcBackupRetentionPeriod = lens _mdcBackupRetentionPeriod (\ s a -> s{_mdcBackupRetentionPeriod = a}); --- | A lst of VPC security groups that the DB cluster will belong to.+-- | A list of VPC security groups that the DB cluster will belong to. mdcVPCSecurityGroupIds :: Lens' ModifyDBCluster [Text] mdcVPCSecurityGroupIds = lens _mdcVPCSecurityGroupIds (\ s a -> s{_mdcVPCSecurityGroupIds = a}) . _Default . _Coerce; @@ -148,7 +155,7 @@ mdcOptionGroupName :: Lens' ModifyDBCluster (Maybe Text) mdcOptionGroupName = lens _mdcOptionGroupName (\ s a -> s{_mdcOptionGroupName = a}); --- | The new DB cluster identifier for the DB cluster when renaming a DB cluster. This value is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-cluster2@+-- | The new DB cluster identifier for the DB cluster when renaming a DB cluster. This value is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 letters, numbers, or hyphens     * The first character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-cluster2@ mdcNewDBClusterIdentifier :: Lens' ModifyDBCluster (Maybe Text) mdcNewDBClusterIdentifier = lens _mdcNewDBClusterIdentifier (\ s a -> s{_mdcNewDBClusterIdentifier = a}); @@ -156,7 +163,11 @@ mdcPort :: Lens' ModifyDBCluster (Maybe Int) mdcPort = lens _mdcPort (\ s a -> s{_mdcPort = a}); --- | The DB cluster identifier for the cluster being modified. This parameter is not case-sensitive. Constraints:     * Must be the identifier for an existing DB cluster.     * Must contain from 1 to 63 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens.+-- | A Boolean value that is true to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts, and otherwise false. Default: @false@+mdcEnableIAMDatabaseAuthentication :: Lens' ModifyDBCluster (Maybe Bool)+mdcEnableIAMDatabaseAuthentication = lens _mdcEnableIAMDatabaseAuthentication (\ s a -> s{_mdcEnableIAMDatabaseAuthentication = a});++-- | The DB cluster identifier for the cluster being modified. This parameter is not case-sensitive. Constraints:     * Must match the identifier of an existing DBCluster. mdcDBClusterIdentifier :: Lens' ModifyDBCluster Text mdcDBClusterIdentifier = lens _mdcDBClusterIdentifier (\ s a -> s{_mdcDBClusterIdentifier = a}); @@ -169,9 +180,9 @@                  ModifyDBClusterResponse' <$>                    (x .@? "DBCluster") <*> (pure (fromEnum s))) -instance Hashable ModifyDBCluster+instance Hashable ModifyDBCluster where -instance NFData ModifyDBCluster+instance NFData ModifyDBCluster where  instance ToHeaders ModifyDBCluster where         toHeaders = const mempty@@ -200,14 +211,17 @@                "NewDBClusterIdentifier" =:                  _mdcNewDBClusterIdentifier,                "Port" =: _mdcPort,+               "EnableIAMDatabaseAuthentication" =:+                 _mdcEnableIAMDatabaseAuthentication,                "DBClusterIdentifier" =: _mdcDBClusterIdentifier]  -- | /See:/ 'modifyDBClusterResponse' smart constructor. data ModifyDBClusterResponse = ModifyDBClusterResponse'-    { _mdcrsDBCluster      :: !(Maybe DBCluster)-    , _mdcrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mdcrsDBCluster      :: !(Maybe DBCluster)+  , _mdcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyDBClusterResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -219,11 +233,10 @@     :: Int -- ^ 'mdcrsResponseStatus'     -> ModifyDBClusterResponse modifyDBClusterResponse pResponseStatus_ =-    ModifyDBClusterResponse'-    { _mdcrsDBCluster = Nothing-    , _mdcrsResponseStatus = pResponseStatus_-    }+  ModifyDBClusterResponse'+  {_mdcrsDBCluster = Nothing, _mdcrsResponseStatus = pResponseStatus_} + -- | Undocumented member. mdcrsDBCluster :: Lens' ModifyDBClusterResponse (Maybe DBCluster) mdcrsDBCluster = lens _mdcrsDBCluster (\ s a -> s{_mdcrsDBCluster = a});@@ -232,4 +245,4 @@ mdcrsResponseStatus :: Lens' ModifyDBClusterResponse Int mdcrsResponseStatus = lens _mdcrsResponseStatus (\ s a -> s{_mdcrsResponseStatus = a}); -instance NFData ModifyDBClusterResponse+instance NFData ModifyDBClusterResponse where
gen/Network/AWS/RDS/ModifyDBClusterParameterGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.ModifyDBClusterParameterGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@     , dcpgnmDBClusterParameterGroupName     ) 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+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  -- | --@@ -54,10 +54,11 @@ -- -- /See:/ 'modifyDBClusterParameterGroup' smart constructor. data ModifyDBClusterParameterGroup = ModifyDBClusterParameterGroup'-    { _mdcpgDBClusterParameterGroupName :: !Text-    , _mdcpgParameters                  :: ![Parameter]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mdcpgDBClusterParameterGroupName :: !Text+  , _mdcpgParameters                  :: ![Parameter]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyDBClusterParameterGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,11 +70,12 @@     :: Text -- ^ 'mdcpgDBClusterParameterGroupName'     -> ModifyDBClusterParameterGroup modifyDBClusterParameterGroup pDBClusterParameterGroupName_ =-    ModifyDBClusterParameterGroup'-    { _mdcpgDBClusterParameterGroupName = pDBClusterParameterGroupName_-    , _mdcpgParameters = mempty-    }+  ModifyDBClusterParameterGroup'+  { _mdcpgDBClusterParameterGroupName = pDBClusterParameterGroupName_+  , _mdcpgParameters = mempty+  } + -- | The name of the DB cluster parameter group to modify. mdcpgDBClusterParameterGroupName :: Lens' ModifyDBClusterParameterGroup Text mdcpgDBClusterParameterGroupName = lens _mdcpgDBClusterParameterGroupName (\ s a -> s{_mdcpgDBClusterParameterGroupName = a});@@ -92,9 +94,9 @@               "ModifyDBClusterParameterGroupResult"               (\ s h x -> parseXML x) -instance Hashable ModifyDBClusterParameterGroup+instance Hashable ModifyDBClusterParameterGroup where -instance NFData ModifyDBClusterParameterGroup+instance NFData ModifyDBClusterParameterGroup where  instance ToHeaders ModifyDBClusterParameterGroup          where
gen/Network/AWS/RDS/ModifyDBClusterSnapshotAttribute.hs view
@@ -12,21 +12,19 @@  -- | -- Module      : Network.AWS.RDS.ModifyDBClusterSnapshotAttribute--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@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 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. If a manual DB cluster snapshot is encrypted, it can be shared, but only by specifying a list of authorized AWS account IDs for the @ValuesToAdd@ parameter. You can't use @all@ as a value for that parameter in this case. -- -- 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@@ -46,12 +44,12 @@     , 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+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  -- | --@@ -59,12 +57,13 @@ -- -- /See:/ 'modifyDBClusterSnapshotAttribute' smart constructor. data ModifyDBClusterSnapshotAttribute = ModifyDBClusterSnapshotAttribute'-    { _mdcsaValuesToAdd                 :: !(Maybe [Text])-    , _mdcsaValuesToRemove              :: !(Maybe [Text])-    , _mdcsaDBClusterSnapshotIdentifier :: !Text-    , _mdcsaAttributeName               :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -81,13 +80,14 @@     -> Text -- ^ 'mdcsaAttributeName'     -> ModifyDBClusterSnapshotAttribute modifyDBClusterSnapshotAttribute pDBClusterSnapshotIdentifier_ pAttributeName_ =-    ModifyDBClusterSnapshotAttribute'-    { _mdcsaValuesToAdd = Nothing-    , _mdcsaValuesToRemove = Nothing-    , _mdcsaDBClusterSnapshotIdentifier = pDBClusterSnapshotIdentifier_-    , _mdcsaAttributeName = 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;@@ -118,8 +118,10 @@                      (pure (fromEnum s)))  instance Hashable ModifyDBClusterSnapshotAttribute+         where  instance NFData ModifyDBClusterSnapshotAttribute+         where  instance ToHeaders ModifyDBClusterSnapshotAttribute          where@@ -149,10 +151,11 @@  -- | /See:/ 'modifyDBClusterSnapshotAttributeResponse' smart constructor. data ModifyDBClusterSnapshotAttributeResponse = ModifyDBClusterSnapshotAttributeResponse'-    { _mdcsarsDBClusterSnapshotAttributesResult :: !(Maybe DBClusterSnapshotAttributesResult)-    , _mdcsarsResponseStatus                    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -164,11 +167,12 @@     :: Int -- ^ 'mdcsarsResponseStatus'     -> ModifyDBClusterSnapshotAttributeResponse modifyDBClusterSnapshotAttributeResponse pResponseStatus_ =-    ModifyDBClusterSnapshotAttributeResponse'-    { _mdcsarsDBClusterSnapshotAttributesResult = Nothing-    , _mdcsarsResponseStatus = pResponseStatus_-    }+  ModifyDBClusterSnapshotAttributeResponse'+  { _mdcsarsDBClusterSnapshotAttributesResult = Nothing+  , _mdcsarsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. mdcsarsDBClusterSnapshotAttributesResult :: Lens' ModifyDBClusterSnapshotAttributeResponse (Maybe DBClusterSnapshotAttributesResult) mdcsarsDBClusterSnapshotAttributesResult = lens _mdcsarsDBClusterSnapshotAttributesResult (\ s a -> s{_mdcsarsDBClusterSnapshotAttributesResult = a});@@ -178,4 +182,5 @@ mdcsarsResponseStatus = lens _mdcsarsResponseStatus (\ s a -> s{_mdcsarsResponseStatus = a});  instance NFData-         ModifyDBClusterSnapshotAttributeResponse+           ModifyDBClusterSnapshotAttributeResponse+         where
gen/Network/AWS/RDS/ModifyDBInstance.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.RDS.ModifyDBInstance--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- 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.+-- 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. To learn what modifications you can make to your DB instance, call 'DescribeValidDBInstanceModifications' before you call 'ModifyDBInstance' . -- -- module Network.AWS.RDS.ModifyDBInstance@@ -46,9 +46,11 @@     , mdiLicenseModel     , mdiPreferredMaintenanceWindow     , mdiCACertificateIdentifier+    , mdiEnablePerformanceInsights     , mdiDBParameterGroupName     , mdiPreferredBackupWindow     , mdiBackupRetentionPeriod+    , mdiPerformanceInsightsKMSKeyId     , mdiVPCSecurityGroupIds     , mdiMultiAZ     , mdiAllocatedStorage@@ -57,6 +59,7 @@     , mdiCopyTagsToSnapshot     , mdiTDECredentialARN     , mdiDomainIAMRoleName+    , mdiEnableIAMDatabaseAuthentication     , mdiStorageType     , mdiDBInstanceIdentifier @@ -68,12 +71,12 @@     , mdirsResponseStatus     ) 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+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  -- | --@@ -81,65 +84,69 @@ -- -- /See:/ 'modifyDBInstance' smart constructor. data ModifyDBInstance = ModifyDBInstance'-    { _mdiEngineVersion              :: !(Maybe Text)-    , _mdiDBSecurityGroups           :: !(Maybe [Text])-    , _mdiDBPortNumber               :: !(Maybe Int)-    , _mdiMasterUserPassword         :: !(Maybe Text)-    , _mdiPubliclyAccessible         :: !(Maybe Bool)-    , _mdiAutoMinorVersionUpgrade    :: !(Maybe Bool)-    , _mdiDBSubnetGroupName          :: !(Maybe Text)-    , _mdiMonitoringRoleARN          :: !(Maybe Text)-    , _mdiIOPS                       :: !(Maybe Int)-    , _mdiAllowMajorVersionUpgrade   :: !(Maybe Bool)-    , _mdiNewDBInstanceIdentifier    :: !(Maybe Text)-    , _mdiDomain                     :: !(Maybe Text)-    , _mdiMonitoringInterval         :: !(Maybe Int)-    , _mdiTDECredentialPassword      :: !(Maybe Text)-    , _mdiDBInstanceClass            :: !(Maybe Text)-    , _mdiPromotionTier              :: !(Maybe Int)-    , _mdiLicenseModel               :: !(Maybe Text)-    , _mdiPreferredMaintenanceWindow :: !(Maybe Text)-    , _mdiCACertificateIdentifier    :: !(Maybe Text)-    , _mdiDBParameterGroupName       :: !(Maybe Text)-    , _mdiPreferredBackupWindow      :: !(Maybe Text)-    , _mdiBackupRetentionPeriod      :: !(Maybe Int)-    , _mdiVPCSecurityGroupIds        :: !(Maybe [Text])-    , _mdiMultiAZ                    :: !(Maybe Bool)-    , _mdiAllocatedStorage           :: !(Maybe Int)-    , _mdiApplyImmediately           :: !(Maybe Bool)-    , _mdiOptionGroupName            :: !(Maybe Text)-    , _mdiCopyTagsToSnapshot         :: !(Maybe Bool)-    , _mdiTDECredentialARN           :: !(Maybe Text)-    , _mdiDomainIAMRoleName          :: !(Maybe Text)-    , _mdiStorageType                :: !(Maybe Text)-    , _mdiDBInstanceIdentifier       :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mdiEngineVersion                   :: !(Maybe Text)+  , _mdiDBSecurityGroups                :: !(Maybe [Text])+  , _mdiDBPortNumber                    :: !(Maybe Int)+  , _mdiMasterUserPassword              :: !(Maybe Text)+  , _mdiPubliclyAccessible              :: !(Maybe Bool)+  , _mdiAutoMinorVersionUpgrade         :: !(Maybe Bool)+  , _mdiDBSubnetGroupName               :: !(Maybe Text)+  , _mdiMonitoringRoleARN               :: !(Maybe Text)+  , _mdiIOPS                            :: !(Maybe Int)+  , _mdiAllowMajorVersionUpgrade        :: !(Maybe Bool)+  , _mdiNewDBInstanceIdentifier         :: !(Maybe Text)+  , _mdiDomain                          :: !(Maybe Text)+  , _mdiMonitoringInterval              :: !(Maybe Int)+  , _mdiTDECredentialPassword           :: !(Maybe Text)+  , _mdiDBInstanceClass                 :: !(Maybe Text)+  , _mdiPromotionTier                   :: !(Maybe Int)+  , _mdiLicenseModel                    :: !(Maybe Text)+  , _mdiPreferredMaintenanceWindow      :: !(Maybe Text)+  , _mdiCACertificateIdentifier         :: !(Maybe Text)+  , _mdiEnablePerformanceInsights       :: !(Maybe Bool)+  , _mdiDBParameterGroupName            :: !(Maybe Text)+  , _mdiPreferredBackupWindow           :: !(Maybe Text)+  , _mdiBackupRetentionPeriod           :: !(Maybe Int)+  , _mdiPerformanceInsightsKMSKeyId     :: !(Maybe Text)+  , _mdiVPCSecurityGroupIds             :: !(Maybe [Text])+  , _mdiMultiAZ                         :: !(Maybe Bool)+  , _mdiAllocatedStorage                :: !(Maybe Int)+  , _mdiApplyImmediately                :: !(Maybe Bool)+  , _mdiOptionGroupName                 :: !(Maybe Text)+  , _mdiCopyTagsToSnapshot              :: !(Maybe Bool)+  , _mdiTDECredentialARN                :: !(Maybe Text)+  , _mdiDomainIAMRoleName               :: !(Maybe Text)+  , _mdiEnableIAMDatabaseAuthentication :: !(Maybe Bool)+  , _mdiStorageType                     :: !(Maybe Text)+  , _mdiDBInstanceIdentifier            :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyDBInstance' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'mdiEngineVersion' - The version number of the database engine to upgrade to. Changing this parameter results in an outage and the change is applied during the next maintenance window unless the @ApplyImmediately@ parameter is set to @true@ for this request.  For major version upgrades, if a non-default DB parameter group is currently in use, a new DB parameter group in the DB parameter group family for the new engine version must be specified. The new DB parameter group can be the default for that DB parameter group family. For a list of valid engine versions, see 'CreateDBInstance' .+-- * 'mdiEngineVersion' - The version number of the database engine to upgrade to. Changing this parameter results in an outage and the change is applied during the next maintenance window unless the @ApplyImmediately@ parameter is set to @true@ for this request.  For major version upgrades, if a nondefault DB parameter group is currently in use, a new DB parameter group in the DB parameter group family for the new engine version must be specified. The new DB parameter group can be the default for that DB parameter group family. For a list of valid engine versions, see 'CreateDBInstance' . ----- * 'mdiDBSecurityGroups' - A list of DB security groups to authorize on this DB instance. Changing this setting does not result in an outage and the change is asynchronously applied as soon as possible. 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' - A list of DB security groups to authorize on this DB instance. Changing this setting does not result in an outage and the change is asynchronously applied as soon as possible. Constraints:     * If supplied, must match existing DBSecurityGroups. -- -- * 'mdiDBPortNumber' - The port number on which the database accepts connections. The value of the @DBPortNumber@ parameter must not match any of the port values specified for options in the option group for the DB instance. Your database will restart when you change the @DBPortNumber@ value regardless of the value of the @ApplyImmediately@ parameter. __MySQL__  Default: @3306@  Valid Values: @1150-65535@  __MariaDB__  Default: @3306@  Valid Values: @1150-65535@  __PostgreSQL__  Default: @5432@  Valid Values: @1150-65535@  Type: Integer __Oracle__  Default: @1521@  Valid Values: @1150-65535@  __SQL Server__  Default: @1433@  Valid Values: @1150-65535@ except for @1434@ , @3389@ , @47001@ , @49152@ , and @49152@ through @49156@ .  __Amazon Aurora__  Default: @3306@  Valid Values: @1150-65535@ ----- * 'mdiMasterUserPassword' - The new password for the DB instance master user. Can be any printable ASCII character except "/", """, or "@". Changing this parameter does not result in an outage and the change is asynchronously applied as soon as possible. Between the time of the request and the completion of the request, the @MasterUserPassword@ element exists in the @PendingModifiedValues@ element of the operation response.  Default: Uses existing setting Constraints: Must be 8 to 41 alphanumeric characters (MySQL, MariaDB, and Amazon Aurora), 8 to 30 alphanumeric characters (Oracle), or 8 to 128 alphanumeric characters (SQL Server).+-- * 'mdiMasterUserPassword' - The new password for the master user. Can be any printable ASCII character except "/", """, or "@". Changing this parameter does not result in an outage and the change is asynchronously applied as soon as possible. Between the time of the request and the completion of the request, the @MasterUserPassword@ element exists in the @PendingModifiedValues@ element of the operation response.  __Amazon Aurora__  Not applicable. The password for the master user is managed by the DB cluster. For more information, see 'ModifyDBCluster' .  Default: Uses existing setting __MariaDB__  Constraints: Must contain from 8 to 41 characters. __Microsoft SQL Server__  Constraints: Must contain from 8 to 128 characters. __MySQL__  Constraints: Must contain from 8 to 41 characters. __Oracle__  Constraints: Must contain from 8 to 30 characters. __PostgreSQL__  Constraints: Must contain from 8 to 128 characters. -- -- * 'mdiPubliclyAccessible' - Boolean value that indicates if the DB instance has a publicly resolvable DNS name. Set to @True@ to make the DB instance Internet-facing with a publicly resolvable DNS name, which resolves to a public IP address. Set to @False@ to make the DB instance internal with a DNS name that resolves to a private IP address.  @PubliclyAccessible@ only applies to DB instances in a VPC. The DB instance must be part of a public subnet and @PubliclyAccessible@ must be true in order for it to be publicly accessible.  Changes to the @PubliclyAccessible@ parameter are applied immediately regardless of the value of the @ApplyImmediately@ parameter. Default: false ----- * 'mdiAutoMinorVersionUpgrade' - Indicates that minor version upgrades will be applied automatically to the DB instance during the maintenance window. Changing this parameter does not result in an outage except in the following case and the change is asynchronously applied as soon as possible. An outage will result if this parameter is set to @true@ during the maintenance window, and a newer minor version is available, and RDS has enabled auto patching for that engine version.+-- * 'mdiAutoMinorVersionUpgrade' - Indicates that minor version upgrades are applied automatically to the DB instance during the maintenance window. Changing this parameter does not result in an outage except in the following case and the change is asynchronously applied as soon as possible. An outage will result if this parameter is set to @true@ during the maintenance window, and a newer minor version is available, and RDS has enabled auto patching for that engine version. ----- * 'mdiDBSubnetGroupName' - The new DB subnet group for the DB instance. You can use this parameter to move your DB instance to a different 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' - The new DB subnet group for the DB instance. You can use this parameter to move your DB instance to a different 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: If supplied, must match the name of an existing DBSubnetGroup. Example: @mySubnetGroup@ -- -- * 'mdiMonitoringRoleARN' - 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. ----- * 'mdiIOPS' - The new Provisioned IOPS (I/O operations per second) value for the RDS instance. Changing this setting 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.  Default: Uses existing setting Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. If you are migrating from Provisioned IOPS to standard storage, set this value to 0. The DB instance will require a reboot for the change in storage type to take effect. __SQL Server__  Setting the IOPS value for the SQL Server database engine is not supported. Type: Integer If you choose to migrate your DB instance from using standard storage to using Provisioned IOPS, or from using Provisioned IOPS to using standard storage, the process can take time. The duration of the migration depends on several factors such as database load, storage size, storage type (standard or Provisioned IOPS), amount of IOPS provisioned (if any), and the number of prior scale storage operations. Typical migration times are under 24 hours, but the process can take up to several days in some cases. During the migration, the DB instance will be available for use, but might experience performance degradation. While the migration takes place, nightly backups for the instance will be suspended. No other Amazon RDS operations can take place for the instance, including modifying the instance, rebooting the instance, deleting the instance, creating a Read Replica for the instance, and creating a DB snapshot of the instance.+-- * 'mdiIOPS' - The new Provisioned IOPS (I/O operations per second) value for the RDS instance. Changing this setting 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.  Default: Uses existing setting Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. If you are migrating from Provisioned IOPS to standard storage, set this value to 0. The DB instance will require a reboot for the change in storage type to take effect. __SQL Server__  Setting the IOPS value for the SQL Server database engine is not supported. Type: Integer If you choose to migrate your DB instance from using standard storage to using Provisioned IOPS, or from using Provisioned IOPS to using standard storage, the process can take time. The duration of the migration depends on several factors such as database load, storage size, storage type (standard or Provisioned IOPS), amount of IOPS provisioned (if any), and the number of prior scale storage operations. Typical migration times are under 24 hours, but the process can take up to several days in some cases. During the migration, the DB instance is available for use, but might experience performance degradation. While the migration takes place, nightly backups for the instance are suspended. No other Amazon RDS operations can take place for the instance, including modifying the instance, rebooting the instance, deleting the instance, creating a Read Replica for the instance, and creating a DB snapshot of the instance. -- -- * 'mdiAllowMajorVersionUpgrade' - Indicates that major version upgrades are allowed. Changing this parameter does not result in an outage and the change is asynchronously applied as soon as possible. Constraints: This parameter must be set to true when specifying a value for the EngineVersion parameter that is a different major version than the DB instance's current version. ----- * 'mdiNewDBInstanceIdentifier' - The new DB instance identifier for the DB instance when renaming a DB instance. When you change the DB instance identifier, an instance reboot will occur immediately if you set @Apply Immediately@ to true, or will occur during the next maintenance window if @Apply Immediately@ to false. This value is stored as a lowercase string.  Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- * 'mdiNewDBInstanceIdentifier' - The new DB instance identifier for the DB instance when renaming a DB instance. When you change the DB instance identifier, an instance reboot will occur immediately if you set @Apply Immediately@ to true, or will occur during the next maintenance window if @Apply Immediately@ to false. This value is stored as a lowercase string.  Constraints:     * Must contain from 1 to 63 letters, numbers, or hyphens.     * The first character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @mydbinstance@ -- -- * 'mdiDomain' - The Active Directory Domain to move the instance to. Specify @none@ to remove the instance from its current domain. The domain must be created prior to this operation. Currently only a Microsoft SQL Server instance can be created in a Active Directory Domain. --@@ -147,7 +154,7 @@ -- -- * 'mdiTDECredentialPassword' - The password for the given ARN from the Key Store in order to access the device. ----- * 'mdiDBInstanceClass' - The new compute and memory capacity of the DB instance. To determine the instance classes that are available for a particular DB engine, use the 'DescribeOrderableDBInstanceOptions' action.  Passing a value for this setting causes an outage during the change and is applied during the next maintenance window, unless @ApplyImmediately@ is specified as @true@ for this request.  Default: Uses existing setting Valid Values: @db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.xlarge | db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.m4.large | db.m4.xlarge | db.m4.2xlarge | db.m4.4xlarge | db.m4.10xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large@+-- * 'mdiDBInstanceClass' - The new compute and memory capacity of the DB instance, for example, @db.m4.large@ . Not all DB instance classes are available in all regions, or for all database engines. For the full list of DB instance classes, and availability for your engine, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.DBInstanceClass.html DB Instance Class> in the Amazon RDS User Guide.  If you modify the DB instance class, an outage occurs during the change. The change is applied during the next maintenance window, unless @ApplyImmediately@ is specified as @true@ for this request.  Default: Uses existing setting -- -- * 'mdiPromotionTier' - A value that specifies the order in which an Aurora Replica is promoted to the primary instance after a failure of the existing primary instance. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Aurora.Managing.html#Aurora.Managing.FaultTolerance Fault Tolerance for an Aurora DB Cluster> .  Default: 1 Valid Values: 0 - 15 --@@ -157,19 +164,23 @@ -- -- * 'mdiCACertificateIdentifier' - Indicates the certificate that needs to be associated with the instance. --+-- * 'mdiEnablePerformanceInsights' - True to enable Performance Insights for the DB instance; otherwise false.+-- -- * 'mdiDBParameterGroupName' - The name of the DB parameter group to apply to the DB instance. Changing this setting does not result in an outage. The parameter group name itself is changed immediately, but the actual parameter changes are not applied until you reboot the instance without failover. The db instance will NOT be rebooted automatically and the parameter changes will NOT be applied during the next maintenance window. Default: Uses existing setting Constraints: The DB parameter group must be in the same DB parameter group family as this DB instance. ----- * 'mdiPreferredBackupWindow' - The daily time range during which automated backups are created if automated backups are enabled, as determined by the @BackupRetentionPeriod@ parameter. Changing this parameter does not result in an outage and the change is asynchronously applied as soon as possible.  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' - The daily time range during which automated backups are created if automated backups are enabled, as determined by the @BackupRetentionPeriod@ parameter. Changing this parameter does not result in an outage and the change is asynchronously applied as soon as possible.  __Amazon Aurora__  Not applicable. The daily time range for creating automated backups is managed by the DB cluster. For more information, see 'ModifyDBCluster' . 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 ----- * 'mdiBackupRetentionPeriod' - The number of days to retain automated backups. Setting this parameter to a positive number enables backups. Setting this parameter to 0 disables automated backups. Changing this parameter can result in an outage if you change from 0 to a non-zero value or from a non-zero value to 0. These changes are applied during the next maintenance window unless the @ApplyImmediately@ parameter is set to @true@ for this request. If you change the parameter from one non-zero value to another non-zero value, the change is asynchronously applied as soon as possible. Default: Uses existing setting 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' - The number of days to retain automated backups. Setting this parameter to a positive number enables backups. Setting this parameter to 0 disables automated backups. Changing this parameter can result in an outage if you change from 0 to a non-zero value or from a non-zero value to 0. These changes are applied during the next maintenance window unless the @ApplyImmediately@ parameter is set to @true@ for this request. If you change the parameter from one non-zero value to another non-zero value, the change is asynchronously applied as soon as possible. __Amazon Aurora__  Not applicable. The retention period for automated backups is managed by the DB cluster. For more information, see 'ModifyDBCluster' . Default: Uses existing setting 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 ----- * 'mdiVPCSecurityGroupIds' - A list of EC2 VPC security groups to authorize on this DB instance. This change is asynchronously applied as soon as possible. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- * 'mdiPerformanceInsightsKMSKeyId' - The KMS key identifier for encryption of Performance Insights data. The KMS key ID is the Amazon Resource Name (ARN), KMS key identifier, or the KMS key alias for the KMS encryption key. --+-- * 'mdiVPCSecurityGroupIds' - A list of EC2 VPC security groups to authorize on this DB instance. This change is asynchronously applied as soon as possible. __Amazon Aurora__  Not applicable. The associated list of EC2 VPC security groups is managed by the DB cluster. For more information, see 'ModifyDBCluster' . Constraints:     * If supplied, must match existing VpcSecurityGroupIds.+-- -- * 'mdiMultiAZ' - 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. ----- * 'mdiAllocatedStorage' - The new storage capacity of the RDS instance. Changing this setting does not result in an outage and the change is applied during the next maintenance window unless @ApplyImmediately@ is set to @true@ for this request.  __MySQL__  Default: Uses existing setting Valid Values: 5-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. Type: Integer __MariaDB__  Default: Uses existing setting Valid Values: 5-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. Type: Integer __PostgreSQL__  Default: Uses existing setting Valid Values: 5-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. Type: Integer __Oracle__  Default: Uses existing setting Valid Values: 10-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. __SQL Server__  Cannot be modified. If you choose to migrate your DB instance from using standard storage to using Provisioned IOPS, or from using Provisioned IOPS to using standard storage, the process can take time. The duration of the migration depends on several factors such as database load, storage size, storage type (standard or Provisioned IOPS), amount of IOPS provisioned (if any), and the number of prior scale storage operations. Typical migration times are under 24 hours, but the process can take up to several days in some cases. During the migration, the DB instance will be available for use, but might experience performance degradation. While the migration takes place, nightly backups for the instance will be suspended. No other Amazon RDS operations can take place for the instance, including modifying the instance, rebooting the instance, deleting the instance, creating a Read Replica for the instance, and creating a DB snapshot of the instance.+-- * 'mdiAllocatedStorage' - The new storage capacity of the RDS instance. Changing this setting does not result in an outage and the change is applied during the next maintenance window unless @ApplyImmediately@ is set to @true@ for this request.  __MySQL__  Default: Uses existing setting Valid Values: 5-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. Type: Integer __MariaDB__  Default: Uses existing setting Valid Values: 5-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. Type: Integer __PostgreSQL__  Default: Uses existing setting Valid Values: 5-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. Type: Integer __Oracle__  Default: Uses existing setting Valid Values: 10-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. __SQL Server__  Cannot be modified. If you choose to migrate your DB instance from using standard storage to using Provisioned IOPS, or from using Provisioned IOPS to using standard storage, the process can take time. The duration of the migration depends on several factors such as database load, storage size, storage type (standard or Provisioned IOPS), amount of IOPS provisioned (if any), and the number of prior scale storage operations. Typical migration times are under 24 hours, but the process can take up to several days in some cases. During the migration, the DB instance is available for use, but might experience performance degradation. While the migration takes place, nightly backups for the instance are suspended. No other Amazon RDS operations can take place for the instance, including modifying the instance, rebooting the instance, deleting the instance, creating a Read Replica for the instance, and creating a DB snapshot of the instance. ----- * 'mdiApplyImmediately' - Specifies whether the modifications in this request and any pending modifications are asynchronously applied as soon as possible, regardless of the @PreferredMaintenanceWindow@ setting for the DB instance.  If this parameter is set to @false@ , changes to the DB instance are applied during the next maintenance window. Some parameter changes can cause an outage and will be applied on the next call to 'RebootDBInstance' , or the next failure reboot. Review the table of parameters in <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Overview.DBInstance.Modifying.html Modifying a DB Instance and Using the Apply Immediately Parameter> to see the impact that setting @ApplyImmediately@ to @true@ or @false@ has for each modified parameter and to determine when the changes will be applied.  Default: @false@+-- * 'mdiApplyImmediately' - Specifies whether the modifications in this request and any pending modifications are asynchronously applied as soon as possible, regardless of the @PreferredMaintenanceWindow@ setting for the DB instance.  If this parameter is set to @false@ , changes to the DB instance are applied during the next maintenance window. Some parameter changes can cause an outage and are applied on the next call to 'RebootDBInstance' , or the next failure reboot. Review the table of parameters in <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Overview.DBInstance.Modifying.html Modifying a DB Instance and Using the Apply Immediately Parameter> to see the impact that setting @ApplyImmediately@ to @true@ or @false@ has for each modified parameter and to determine when the changes are applied.  Default: @false@ -- -- * 'mdiOptionGroupName' - Indicates that the DB instance should be associated with the specified option group. Changing this parameter does not result in an outage except in the following case and the change is applied during the next maintenance window unless the @ApplyImmediately@ parameter is set to @true@ for this request. If the parameter change results in an option group that enables OEM, this change can cause a brief (sub-second) period during which new connections are rejected but existing connections are not interrupted.  Permanent options, such as the TDE option for Oracle Advanced Security TDE, cannot be removed from an option group, and that option group cannot be removed from a DB instance once it is associated with a DB instance --@@ -179,53 +190,59 @@ -- -- * 'mdiDomainIAMRoleName' - The name of the IAM role to use when making API calls to the Directory Service. --+-- * 'mdiEnableIAMDatabaseAuthentication' - True to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts; otherwise false. You can enable IAM database authentication for the following database engines __Amazon Aurora__  Not applicable. Mapping AWS IAM accounts to database accounts is managed by the DB cluster. For more information, see 'ModifyDBCluster' . __MySQL__      * For MySQL 5.6, minor version 5.6.34 or higher     * For MySQL 5.7, minor version 5.7.16 or higher Default: @false@+-- -- * 'mdiStorageType' - Specifies the storage type to be associated with the DB instance. Valid values: @standard | gp2 | io1@  If you specify @io1@ , you must also include a value for the @Iops@ parameter.  Default: @io1@ if the @Iops@ parameter is specified; otherwise @standard@ ----- * 'mdiDBInstanceIdentifier' - The DB instance identifier. This value is stored as a lowercase string. 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' - The DB instance identifier. This value is stored as a lowercase string. Constraints:     * Must match the identifier of an existing DBInstance. modifyDBInstance     :: Text -- ^ 'mdiDBInstanceIdentifier'     -> ModifyDBInstance modifyDBInstance pDBInstanceIdentifier_ =-    ModifyDBInstance'-    { _mdiEngineVersion = Nothing-    , _mdiDBSecurityGroups = Nothing-    , _mdiDBPortNumber = Nothing-    , _mdiMasterUserPassword = Nothing-    , _mdiPubliclyAccessible = Nothing-    , _mdiAutoMinorVersionUpgrade = Nothing-    , _mdiDBSubnetGroupName = Nothing-    , _mdiMonitoringRoleARN = Nothing-    , _mdiIOPS = Nothing-    , _mdiAllowMajorVersionUpgrade = Nothing-    , _mdiNewDBInstanceIdentifier = Nothing-    , _mdiDomain = Nothing-    , _mdiMonitoringInterval = Nothing-    , _mdiTDECredentialPassword = Nothing-    , _mdiDBInstanceClass = Nothing-    , _mdiPromotionTier = Nothing-    , _mdiLicenseModel = Nothing-    , _mdiPreferredMaintenanceWindow = Nothing-    , _mdiCACertificateIdentifier = Nothing-    , _mdiDBParameterGroupName = Nothing-    , _mdiPreferredBackupWindow = Nothing-    , _mdiBackupRetentionPeriod = Nothing-    , _mdiVPCSecurityGroupIds = Nothing-    , _mdiMultiAZ = Nothing-    , _mdiAllocatedStorage = Nothing-    , _mdiApplyImmediately = Nothing-    , _mdiOptionGroupName = Nothing-    , _mdiCopyTagsToSnapshot = Nothing-    , _mdiTDECredentialARN = Nothing-    , _mdiDomainIAMRoleName = Nothing-    , _mdiStorageType = Nothing-    , _mdiDBInstanceIdentifier = pDBInstanceIdentifier_-    }+  ModifyDBInstance'+  { _mdiEngineVersion = Nothing+  , _mdiDBSecurityGroups = Nothing+  , _mdiDBPortNumber = Nothing+  , _mdiMasterUserPassword = Nothing+  , _mdiPubliclyAccessible = Nothing+  , _mdiAutoMinorVersionUpgrade = Nothing+  , _mdiDBSubnetGroupName = Nothing+  , _mdiMonitoringRoleARN = Nothing+  , _mdiIOPS = Nothing+  , _mdiAllowMajorVersionUpgrade = Nothing+  , _mdiNewDBInstanceIdentifier = Nothing+  , _mdiDomain = Nothing+  , _mdiMonitoringInterval = Nothing+  , _mdiTDECredentialPassword = Nothing+  , _mdiDBInstanceClass = Nothing+  , _mdiPromotionTier = Nothing+  , _mdiLicenseModel = Nothing+  , _mdiPreferredMaintenanceWindow = Nothing+  , _mdiCACertificateIdentifier = Nothing+  , _mdiEnablePerformanceInsights = Nothing+  , _mdiDBParameterGroupName = Nothing+  , _mdiPreferredBackupWindow = Nothing+  , _mdiBackupRetentionPeriod = Nothing+  , _mdiPerformanceInsightsKMSKeyId = Nothing+  , _mdiVPCSecurityGroupIds = Nothing+  , _mdiMultiAZ = Nothing+  , _mdiAllocatedStorage = Nothing+  , _mdiApplyImmediately = Nothing+  , _mdiOptionGroupName = Nothing+  , _mdiCopyTagsToSnapshot = Nothing+  , _mdiTDECredentialARN = Nothing+  , _mdiDomainIAMRoleName = Nothing+  , _mdiEnableIAMDatabaseAuthentication = Nothing+  , _mdiStorageType = Nothing+  , _mdiDBInstanceIdentifier = pDBInstanceIdentifier_+  } --- | The version number of the database engine to upgrade to. Changing this parameter results in an outage and the change is applied during the next maintenance window unless the @ApplyImmediately@ parameter is set to @true@ for this request.  For major version upgrades, if a non-default DB parameter group is currently in use, a new DB parameter group in the DB parameter group family for the new engine version must be specified. The new DB parameter group can be the default for that DB parameter group family. For a list of valid engine versions, see 'CreateDBInstance' .++-- | The version number of the database engine to upgrade to. Changing this parameter results in an outage and the change is applied during the next maintenance window unless the @ApplyImmediately@ parameter is set to @true@ for this request.  For major version upgrades, if a nondefault DB parameter group is currently in use, a new DB parameter group in the DB parameter group family for the new engine version must be specified. The new DB parameter group can be the default for that DB parameter group family. For a list of valid engine versions, see 'CreateDBInstance' . mdiEngineVersion :: Lens' ModifyDBInstance (Maybe Text) mdiEngineVersion = lens _mdiEngineVersion (\ s a -> s{_mdiEngineVersion = a}); --- | A list of DB security groups to authorize on this DB instance. Changing this setting does not result in an outage and the change is asynchronously applied as soon as possible. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | A list of DB security groups to authorize on this DB instance. Changing this setting does not result in an outage and the change is asynchronously applied as soon as possible. Constraints:     * If supplied, must match existing DBSecurityGroups. mdiDBSecurityGroups :: Lens' ModifyDBInstance [Text] mdiDBSecurityGroups = lens _mdiDBSecurityGroups (\ s a -> s{_mdiDBSecurityGroups = a}) . _Default . _Coerce; @@ -233,7 +250,7 @@ mdiDBPortNumber :: Lens' ModifyDBInstance (Maybe Int) mdiDBPortNumber = lens _mdiDBPortNumber (\ s a -> s{_mdiDBPortNumber = a}); --- | The new password for the DB instance master user. Can be any printable ASCII character except "/", """, or "@". Changing this parameter does not result in an outage and the change is asynchronously applied as soon as possible. Between the time of the request and the completion of the request, the @MasterUserPassword@ element exists in the @PendingModifiedValues@ element of the operation response.  Default: Uses existing setting Constraints: Must be 8 to 41 alphanumeric characters (MySQL, MariaDB, and Amazon Aurora), 8 to 30 alphanumeric characters (Oracle), or 8 to 128 alphanumeric characters (SQL Server).+-- | The new password for the master user. Can be any printable ASCII character except "/", """, or "@". Changing this parameter does not result in an outage and the change is asynchronously applied as soon as possible. Between the time of the request and the completion of the request, the @MasterUserPassword@ element exists in the @PendingModifiedValues@ element of the operation response.  __Amazon Aurora__  Not applicable. The password for the master user is managed by the DB cluster. For more information, see 'ModifyDBCluster' .  Default: Uses existing setting __MariaDB__  Constraints: Must contain from 8 to 41 characters. __Microsoft SQL Server__  Constraints: Must contain from 8 to 128 characters. __MySQL__  Constraints: Must contain from 8 to 41 characters. __Oracle__  Constraints: Must contain from 8 to 30 characters. __PostgreSQL__  Constraints: Must contain from 8 to 128 characters. mdiMasterUserPassword :: Lens' ModifyDBInstance (Maybe Text) mdiMasterUserPassword = lens _mdiMasterUserPassword (\ s a -> s{_mdiMasterUserPassword = a}); @@ -241,11 +258,11 @@ mdiPubliclyAccessible :: Lens' ModifyDBInstance (Maybe Bool) mdiPubliclyAccessible = lens _mdiPubliclyAccessible (\ s a -> s{_mdiPubliclyAccessible = a}); --- | Indicates that minor version upgrades will be applied automatically to the DB instance during the maintenance window. Changing this parameter does not result in an outage except in the following case and the change is asynchronously applied as soon as possible. An outage will result if this parameter is set to @true@ during the maintenance window, and a newer minor version is available, and RDS has enabled auto patching for that engine version.+-- | Indicates that minor version upgrades are applied automatically to the DB instance during the maintenance window. Changing this parameter does not result in an outage except in the following case and the change is asynchronously applied as soon as possible. An outage will result if this parameter is set to @true@ during the maintenance window, and a newer minor version is available, and RDS has enabled auto patching for that engine version. 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. 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@+-- | The new DB subnet group for the DB instance. You can use this parameter to move your DB instance to a different 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: If supplied, must match the name of an existing DBSubnetGroup. Example: @mySubnetGroup@ mdiDBSubnetGroupName :: Lens' ModifyDBInstance (Maybe Text) mdiDBSubnetGroupName = lens _mdiDBSubnetGroupName (\ s a -> s{_mdiDBSubnetGroupName = a}); @@ -253,7 +270,7 @@ mdiMonitoringRoleARN :: Lens' ModifyDBInstance (Maybe Text) mdiMonitoringRoleARN = lens _mdiMonitoringRoleARN (\ s a -> s{_mdiMonitoringRoleARN = a}); --- | The new Provisioned IOPS (I/O operations per second) value for the RDS instance. Changing this setting 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.  Default: Uses existing setting Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. If you are migrating from Provisioned IOPS to standard storage, set this value to 0. The DB instance will require a reboot for the change in storage type to take effect. __SQL Server__  Setting the IOPS value for the SQL Server database engine is not supported. Type: Integer If you choose to migrate your DB instance from using standard storage to using Provisioned IOPS, or from using Provisioned IOPS to using standard storage, the process can take time. The duration of the migration depends on several factors such as database load, storage size, storage type (standard or Provisioned IOPS), amount of IOPS provisioned (if any), and the number of prior scale storage operations. Typical migration times are under 24 hours, but the process can take up to several days in some cases. During the migration, the DB instance will be available for use, but might experience performance degradation. While the migration takes place, nightly backups for the instance will be suspended. No other Amazon RDS operations can take place for the instance, including modifying the instance, rebooting the instance, deleting the instance, creating a Read Replica for the instance, and creating a DB snapshot of the instance.+-- | The new Provisioned IOPS (I/O operations per second) value for the RDS instance. Changing this setting 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.  Default: Uses existing setting Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. If you are migrating from Provisioned IOPS to standard storage, set this value to 0. The DB instance will require a reboot for the change in storage type to take effect. __SQL Server__  Setting the IOPS value for the SQL Server database engine is not supported. Type: Integer If you choose to migrate your DB instance from using standard storage to using Provisioned IOPS, or from using Provisioned IOPS to using standard storage, the process can take time. The duration of the migration depends on several factors such as database load, storage size, storage type (standard or Provisioned IOPS), amount of IOPS provisioned (if any), and the number of prior scale storage operations. Typical migration times are under 24 hours, but the process can take up to several days in some cases. During the migration, the DB instance is available for use, but might experience performance degradation. While the migration takes place, nightly backups for the instance are suspended. No other Amazon RDS operations can take place for the instance, including modifying the instance, rebooting the instance, deleting the instance, creating a Read Replica for the instance, and creating a DB snapshot of the instance. mdiIOPS :: Lens' ModifyDBInstance (Maybe Int) mdiIOPS = lens _mdiIOPS (\ s a -> s{_mdiIOPS = a}); @@ -261,7 +278,7 @@ mdiAllowMajorVersionUpgrade :: Lens' ModifyDBInstance (Maybe Bool) mdiAllowMajorVersionUpgrade = lens _mdiAllowMajorVersionUpgrade (\ s a -> s{_mdiAllowMajorVersionUpgrade = a}); --- | The new DB instance identifier for the DB instance when renaming a DB instance. When you change the DB instance identifier, an instance reboot will occur immediately if you set @Apply Immediately@ to true, or will occur during the next maintenance window if @Apply Immediately@ to false. This value is stored as a lowercase string.  Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The new DB instance identifier for the DB instance when renaming a DB instance. When you change the DB instance identifier, an instance reboot will occur immediately if you set @Apply Immediately@ to true, or will occur during the next maintenance window if @Apply Immediately@ to false. This value is stored as a lowercase string.  Constraints:     * Must contain from 1 to 63 letters, numbers, or hyphens.     * The first character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @mydbinstance@ mdiNewDBInstanceIdentifier :: Lens' ModifyDBInstance (Maybe Text) mdiNewDBInstanceIdentifier = lens _mdiNewDBInstanceIdentifier (\ s a -> s{_mdiNewDBInstanceIdentifier = a}); @@ -277,7 +294,7 @@ mdiTDECredentialPassword :: Lens' ModifyDBInstance (Maybe Text) mdiTDECredentialPassword = lens _mdiTDECredentialPassword (\ s a -> s{_mdiTDECredentialPassword = a}); --- | The new compute and memory capacity of the DB instance. To determine the instance classes that are available for a particular DB engine, use the 'DescribeOrderableDBInstanceOptions' action.  Passing a value for this setting causes an outage during the change and is applied during the next maintenance window, unless @ApplyImmediately@ is specified as @true@ for this request.  Default: Uses existing setting Valid Values: @db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.xlarge | db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.m4.large | db.m4.xlarge | db.m4.2xlarge | db.m4.4xlarge | db.m4.10xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large@+-- | The new compute and memory capacity of the DB instance, for example, @db.m4.large@ . Not all DB instance classes are available in all regions, or for all database engines. For the full list of DB instance classes, and availability for your engine, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.DBInstanceClass.html DB Instance Class> in the Amazon RDS User Guide.  If you modify the DB instance class, an outage occurs during the change. The change is applied during the next maintenance window, unless @ApplyImmediately@ is specified as @true@ for this request.  Default: Uses existing setting mdiDBInstanceClass :: Lens' ModifyDBInstance (Maybe Text) mdiDBInstanceClass = lens _mdiDBInstanceClass (\ s a -> s{_mdiDBInstanceClass = a}); @@ -297,19 +314,27 @@ mdiCACertificateIdentifier :: Lens' ModifyDBInstance (Maybe Text) mdiCACertificateIdentifier = lens _mdiCACertificateIdentifier (\ s a -> s{_mdiCACertificateIdentifier = a}); +-- | True to enable Performance Insights for the DB instance; otherwise false.+mdiEnablePerformanceInsights :: Lens' ModifyDBInstance (Maybe Bool)+mdiEnablePerformanceInsights = lens _mdiEnablePerformanceInsights (\ s a -> s{_mdiEnablePerformanceInsights = a});+ -- | The name of the DB parameter group to apply to the DB instance. Changing this setting does not result in an outage. The parameter group name itself is changed immediately, but the actual parameter changes are not applied until you reboot the instance without failover. The db instance will NOT be rebooted automatically and the parameter changes will NOT be applied during the next maintenance window. Default: Uses existing setting Constraints: The DB parameter group must be in the same DB parameter group family as this DB instance. mdiDBParameterGroupName :: Lens' ModifyDBInstance (Maybe Text) mdiDBParameterGroupName = lens _mdiDBParameterGroupName (\ s a -> s{_mdiDBParameterGroupName = a}); --- | The daily time range during which automated backups are created if automated backups are enabled, as determined by the @BackupRetentionPeriod@ parameter. Changing this parameter does not result in an outage and the change is asynchronously applied as soon as possible.  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+-- | The daily time range during which automated backups are created if automated backups are enabled, as determined by the @BackupRetentionPeriod@ parameter. Changing this parameter does not result in an outage and the change is asynchronously applied as soon as possible.  __Amazon Aurora__  Not applicable. The daily time range for creating automated backups is managed by the DB cluster. For more information, see 'ModifyDBCluster' . 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}); --- | The number of days to retain automated backups. Setting this parameter to a positive number enables backups. Setting this parameter to 0 disables automated backups. Changing this parameter can result in an outage if you change from 0 to a non-zero value or from a non-zero value to 0. These changes are applied during the next maintenance window unless the @ApplyImmediately@ parameter is set to @true@ for this request. If you change the parameter from one non-zero value to another non-zero value, the change is asynchronously applied as soon as possible. Default: Uses existing setting 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+-- | The number of days to retain automated backups. Setting this parameter to a positive number enables backups. Setting this parameter to 0 disables automated backups. Changing this parameter can result in an outage if you change from 0 to a non-zero value or from a non-zero value to 0. These changes are applied during the next maintenance window unless the @ApplyImmediately@ parameter is set to @true@ for this request. If you change the parameter from one non-zero value to another non-zero value, the change is asynchronously applied as soon as possible. __Amazon Aurora__  Not applicable. The retention period for automated backups is managed by the DB cluster. For more information, see 'ModifyDBCluster' . Default: Uses existing setting 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}); --- | A list of EC2 VPC security groups to authorize on this DB instance. This change is asynchronously applied as soon as possible. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The KMS key identifier for encryption of Performance Insights data. The KMS key ID is the Amazon Resource Name (ARN), KMS key identifier, or the KMS key alias for the KMS encryption key.+mdiPerformanceInsightsKMSKeyId :: Lens' ModifyDBInstance (Maybe Text)+mdiPerformanceInsightsKMSKeyId = lens _mdiPerformanceInsightsKMSKeyId (\ s a -> s{_mdiPerformanceInsightsKMSKeyId = a});++-- | A list of EC2 VPC security groups to authorize on this DB instance. This change is asynchronously applied as soon as possible. __Amazon Aurora__  Not applicable. The associated list of EC2 VPC security groups is managed by the DB cluster. For more information, see 'ModifyDBCluster' . Constraints:     * If supplied, must match existing VpcSecurityGroupIds. mdiVPCSecurityGroupIds :: Lens' ModifyDBInstance [Text] mdiVPCSecurityGroupIds = lens _mdiVPCSecurityGroupIds (\ s a -> s{_mdiVPCSecurityGroupIds = a}) . _Default . _Coerce; @@ -317,11 +342,11 @@ mdiMultiAZ :: Lens' ModifyDBInstance (Maybe Bool) mdiMultiAZ = lens _mdiMultiAZ (\ s a -> s{_mdiMultiAZ = a}); --- | The new storage capacity of the RDS instance. Changing this setting does not result in an outage and the change is applied during the next maintenance window unless @ApplyImmediately@ is set to @true@ for this request.  __MySQL__  Default: Uses existing setting Valid Values: 5-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. Type: Integer __MariaDB__  Default: Uses existing setting Valid Values: 5-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. Type: Integer __PostgreSQL__  Default: Uses existing setting Valid Values: 5-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. Type: Integer __Oracle__  Default: Uses existing setting Valid Values: 10-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. __SQL Server__  Cannot be modified. If you choose to migrate your DB instance from using standard storage to using Provisioned IOPS, or from using Provisioned IOPS to using standard storage, the process can take time. The duration of the migration depends on several factors such as database load, storage size, storage type (standard or Provisioned IOPS), amount of IOPS provisioned (if any), and the number of prior scale storage operations. Typical migration times are under 24 hours, but the process can take up to several days in some cases. During the migration, the DB instance will be available for use, but might experience performance degradation. While the migration takes place, nightly backups for the instance will be suspended. No other Amazon RDS operations can take place for the instance, including modifying the instance, rebooting the instance, deleting the instance, creating a Read Replica for the instance, and creating a DB snapshot of the instance.+-- | The new storage capacity of the RDS instance. Changing this setting does not result in an outage and the change is applied during the next maintenance window unless @ApplyImmediately@ is set to @true@ for this request.  __MySQL__  Default: Uses existing setting Valid Values: 5-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. Type: Integer __MariaDB__  Default: Uses existing setting Valid Values: 5-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. Type: Integer __PostgreSQL__  Default: Uses existing setting Valid Values: 5-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. Type: Integer __Oracle__  Default: Uses existing setting Valid Values: 10-6144 Constraints: Value supplied must be at least 10% greater than the current value. Values that are not at least 10% greater than the existing value are rounded up so that they are 10% greater than the current value. __SQL Server__  Cannot be modified. If you choose to migrate your DB instance from using standard storage to using Provisioned IOPS, or from using Provisioned IOPS to using standard storage, the process can take time. The duration of the migration depends on several factors such as database load, storage size, storage type (standard or Provisioned IOPS), amount of IOPS provisioned (if any), and the number of prior scale storage operations. Typical migration times are under 24 hours, but the process can take up to several days in some cases. During the migration, the DB instance is available for use, but might experience performance degradation. While the migration takes place, nightly backups for the instance are suspended. No other Amazon RDS operations can take place for the instance, including modifying the instance, rebooting the instance, deleting the instance, creating a Read Replica for the instance, and creating a DB snapshot of the instance. mdiAllocatedStorage :: Lens' ModifyDBInstance (Maybe Int) mdiAllocatedStorage = lens _mdiAllocatedStorage (\ s a -> s{_mdiAllocatedStorage = a}); --- | Specifies whether the modifications in this request and any pending modifications are asynchronously applied as soon as possible, regardless of the @PreferredMaintenanceWindow@ setting for the DB instance.  If this parameter is set to @false@ , changes to the DB instance are applied during the next maintenance window. Some parameter changes can cause an outage and will be applied on the next call to 'RebootDBInstance' , or the next failure reboot. Review the table of parameters in <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Overview.DBInstance.Modifying.html Modifying a DB Instance and Using the Apply Immediately Parameter> to see the impact that setting @ApplyImmediately@ to @true@ or @false@ has for each modified parameter and to determine when the changes will be applied.  Default: @false@+-- | Specifies whether the modifications in this request and any pending modifications are asynchronously applied as soon as possible, regardless of the @PreferredMaintenanceWindow@ setting for the DB instance.  If this parameter is set to @false@ , changes to the DB instance are applied during the next maintenance window. Some parameter changes can cause an outage and are applied on the next call to 'RebootDBInstance' , or the next failure reboot. Review the table of parameters in <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Overview.DBInstance.Modifying.html Modifying a DB Instance and Using the Apply Immediately Parameter> to see the impact that setting @ApplyImmediately@ to @true@ or @false@ has for each modified parameter and to determine when the changes are applied.  Default: @false@ mdiApplyImmediately :: Lens' ModifyDBInstance (Maybe Bool) mdiApplyImmediately = lens _mdiApplyImmediately (\ s a -> s{_mdiApplyImmediately = a}); @@ -341,11 +366,15 @@ mdiDomainIAMRoleName :: Lens' ModifyDBInstance (Maybe Text) mdiDomainIAMRoleName = lens _mdiDomainIAMRoleName (\ s a -> s{_mdiDomainIAMRoleName = a}); +-- | True to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts; otherwise false. You can enable IAM database authentication for the following database engines __Amazon Aurora__  Not applicable. Mapping AWS IAM accounts to database accounts is managed by the DB cluster. For more information, see 'ModifyDBCluster' . __MySQL__      * For MySQL 5.6, minor version 5.6.34 or higher     * For MySQL 5.7, minor version 5.7.16 or higher Default: @false@+mdiEnableIAMDatabaseAuthentication :: Lens' ModifyDBInstance (Maybe Bool)+mdiEnableIAMDatabaseAuthentication = lens _mdiEnableIAMDatabaseAuthentication (\ s a -> s{_mdiEnableIAMDatabaseAuthentication = a});+ -- | Specifies the storage type to be associated with the DB instance. Valid values: @standard | gp2 | io1@  If you specify @io1@ , you must also include a value for the @Iops@ parameter.  Default: @io1@ if the @Iops@ parameter is specified; otherwise @standard@ mdiStorageType :: Lens' ModifyDBInstance (Maybe Text) mdiStorageType = lens _mdiStorageType (\ s a -> s{_mdiStorageType = a}); --- | The DB instance identifier. This value is stored as a lowercase string. 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+-- | The DB instance identifier. This value is stored as a lowercase string. Constraints:     * Must match the identifier of an existing DBInstance. mdiDBInstanceIdentifier :: Lens' ModifyDBInstance Text mdiDBInstanceIdentifier = lens _mdiDBInstanceIdentifier (\ s a -> s{_mdiDBInstanceIdentifier = a}); @@ -358,9 +387,9 @@                  ModifyDBInstanceResponse' <$>                    (x .@? "DBInstance") <*> (pure (fromEnum s))) -instance Hashable ModifyDBInstance+instance Hashable ModifyDBInstance where -instance NFData ModifyDBInstance+instance NFData ModifyDBInstance where  instance ToHeaders ModifyDBInstance where         toHeaders = const mempty@@ -400,9 +429,13 @@                  _mdiPreferredMaintenanceWindow,                "CACertificateIdentifier" =:                  _mdiCACertificateIdentifier,+               "EnablePerformanceInsights" =:+                 _mdiEnablePerformanceInsights,                "DBParameterGroupName" =: _mdiDBParameterGroupName,                "PreferredBackupWindow" =: _mdiPreferredBackupWindow,                "BackupRetentionPeriod" =: _mdiBackupRetentionPeriod,+               "PerformanceInsightsKMSKeyId" =:+                 _mdiPerformanceInsightsKMSKeyId,                "VpcSecurityGroupIds" =:                  toQuery                    (toQueryList "VpcSecurityGroupId" <$>@@ -414,15 +447,18 @@                "CopyTagsToSnapshot" =: _mdiCopyTagsToSnapshot,                "TdeCredentialArn" =: _mdiTDECredentialARN,                "DomainIAMRoleName" =: _mdiDomainIAMRoleName,+               "EnableIAMDatabaseAuthentication" =:+                 _mdiEnableIAMDatabaseAuthentication,                "StorageType" =: _mdiStorageType,                "DBInstanceIdentifier" =: _mdiDBInstanceIdentifier]  -- | /See:/ 'modifyDBInstanceResponse' smart constructor. data ModifyDBInstanceResponse = ModifyDBInstanceResponse'-    { _mdirsDBInstance     :: !(Maybe DBInstance)-    , _mdirsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mdirsDBInstance     :: !(Maybe DBInstance)+  , _mdirsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyDBInstanceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -434,11 +470,10 @@     :: Int -- ^ 'mdirsResponseStatus'     -> ModifyDBInstanceResponse modifyDBInstanceResponse pResponseStatus_ =-    ModifyDBInstanceResponse'-    { _mdirsDBInstance = Nothing-    , _mdirsResponseStatus = pResponseStatus_-    }+  ModifyDBInstanceResponse'+  {_mdirsDBInstance = Nothing, _mdirsResponseStatus = pResponseStatus_} + -- | Undocumented member. mdirsDBInstance :: Lens' ModifyDBInstanceResponse (Maybe DBInstance) mdirsDBInstance = lens _mdirsDBInstance (\ s a -> s{_mdirsDBInstance = a});@@ -447,4 +482,4 @@ mdirsResponseStatus :: Lens' ModifyDBInstanceResponse Int mdirsResponseStatus = lens _mdirsResponseStatus (\ s a -> s{_mdirsResponseStatus = a}); -instance NFData ModifyDBInstanceResponse+instance NFData ModifyDBInstanceResponse where
gen/Network/AWS/RDS/ModifyDBParameterGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.ModifyDBParameterGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , dpgnmDBParameterGroupName     ) 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+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  -- | --@@ -52,27 +52,27 @@ -- -- /See:/ 'modifyDBParameterGroup' smart constructor. data ModifyDBParameterGroup = ModifyDBParameterGroup'-    { _mdpgDBParameterGroupName :: !Text-    , _mdpgParameters           :: ![Parameter]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mdpgDBParameterGroupName :: !Text+  , _mdpgParameters           :: ![Parameter]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyDBParameterGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'mdpgDBParameterGroupName' - The name of the DB parameter group. 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' - The name of the DB parameter group. Constraints:     * If supplied, must match the name of an existing DBParameterGroup. -- -- * 'mdpgParameters' - An array of parameter names, values, and the apply method for the parameter update. At least one parameter name, value, and apply method must be supplied; subsequent arguments are optional. A maximum of 20 parameters can be modified in a single request. Valid Values (for the application method): @immediate | pending-reboot@ modifyDBParameterGroup     :: Text -- ^ 'mdpgDBParameterGroupName'     -> ModifyDBParameterGroup modifyDBParameterGroup pDBParameterGroupName_ =-    ModifyDBParameterGroup'-    { _mdpgDBParameterGroupName = pDBParameterGroupName_-    , _mdpgParameters = mempty-    }+  ModifyDBParameterGroup'+  {_mdpgDBParameterGroupName = pDBParameterGroupName_, _mdpgParameters = mempty} --- | The name of the DB parameter group. 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++-- | The name of the DB parameter group. Constraints:     * If supplied, must match the name of an existing DBParameterGroup. mdpgDBParameterGroupName :: Lens' ModifyDBParameterGroup Text mdpgDBParameterGroupName = lens _mdpgDBParameterGroupName (\ s a -> s{_mdpgDBParameterGroupName = a}); @@ -88,9 +88,9 @@           = receiveXMLWrapper "ModifyDBParameterGroupResult"               (\ s h x -> parseXML x) -instance Hashable ModifyDBParameterGroup+instance Hashable ModifyDBParameterGroup where -instance NFData ModifyDBParameterGroup+instance NFData ModifyDBParameterGroup where  instance ToHeaders ModifyDBParameterGroup where         toHeaders = const mempty
+ gen/Network/AWS/RDS/ModifyDBSnapshot.hs view
@@ -0,0 +1,149 @@+{-# 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.ModifyDBSnapshot+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a manual DB snapshot, which can be encrypted or not encrypted, with a new engine version.+--+--+-- Amazon RDS supports upgrading DB snapshots for MySQL and Oracle.+--+module Network.AWS.RDS.ModifyDBSnapshot+    (+    -- * Creating a Request+      modifyDBSnapshot+    , ModifyDBSnapshot+    -- * Request Lenses+    , mdsEngineVersion+    , mdsOptionGroupName+    , mdsDBSnapshotIdentifier++    -- * Destructuring the Response+    , modifyDBSnapshotResponse+    , ModifyDBSnapshotResponse+    -- * Response Lenses+    , mdsrsDBSnapshot+    , mdsrsResponseStatus+    ) 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:/ 'modifyDBSnapshot' smart constructor.+data ModifyDBSnapshot = ModifyDBSnapshot'+  { _mdsEngineVersion        :: !(Maybe Text)+  , _mdsOptionGroupName      :: !(Maybe Text)+  , _mdsDBSnapshotIdentifier :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ModifyDBSnapshot' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mdsEngineVersion' - The engine version to upgrade the DB snapshot to.  The following are the database engines and engine versions that are available when you upgrade a DB snapshot.  __MySQL__      * @5.5.46@ (supported for 5.1 DB snapshots) __Oracle__      * @12.1.0.2.v8@ (supported for 12.1.0.1 DB snapshots)     * @11.2.0.4.v12@ (supported for 11.2.0.2 DB snapshots)     * @11.2.0.4.v11@ (supported for 11.2.0.3 DB snapshots)+--+-- * 'mdsOptionGroupName' - The option group to identify with the upgraded DB snapshot.  You can specify this parameter when you upgrade an Oracle DB snapshot. The same option group considerations apply when upgrading a DB snapshot as when upgrading a DB instance. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_UpgradeDBInstance.Oracle.html#USER_UpgradeDBInstance.Oracle.OGPG.OG Option Group Considerations> .+--+-- * 'mdsDBSnapshotIdentifier' - The identifier of the DB snapshot to modify.+modifyDBSnapshot+    :: Text -- ^ 'mdsDBSnapshotIdentifier'+    -> ModifyDBSnapshot+modifyDBSnapshot pDBSnapshotIdentifier_ =+  ModifyDBSnapshot'+  { _mdsEngineVersion = Nothing+  , _mdsOptionGroupName = Nothing+  , _mdsDBSnapshotIdentifier = pDBSnapshotIdentifier_+  }+++-- | The engine version to upgrade the DB snapshot to.  The following are the database engines and engine versions that are available when you upgrade a DB snapshot.  __MySQL__      * @5.5.46@ (supported for 5.1 DB snapshots) __Oracle__      * @12.1.0.2.v8@ (supported for 12.1.0.1 DB snapshots)     * @11.2.0.4.v12@ (supported for 11.2.0.2 DB snapshots)     * @11.2.0.4.v11@ (supported for 11.2.0.3 DB snapshots)+mdsEngineVersion :: Lens' ModifyDBSnapshot (Maybe Text)+mdsEngineVersion = lens _mdsEngineVersion (\ s a -> s{_mdsEngineVersion = a});++-- | The option group to identify with the upgraded DB snapshot.  You can specify this parameter when you upgrade an Oracle DB snapshot. The same option group considerations apply when upgrading a DB snapshot as when upgrading a DB instance. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_UpgradeDBInstance.Oracle.html#USER_UpgradeDBInstance.Oracle.OGPG.OG Option Group Considerations> .+mdsOptionGroupName :: Lens' ModifyDBSnapshot (Maybe Text)+mdsOptionGroupName = lens _mdsOptionGroupName (\ s a -> s{_mdsOptionGroupName = a});++-- | The identifier of the DB snapshot to modify.+mdsDBSnapshotIdentifier :: Lens' ModifyDBSnapshot Text+mdsDBSnapshotIdentifier = lens _mdsDBSnapshotIdentifier (\ s a -> s{_mdsDBSnapshotIdentifier = a});++instance AWSRequest ModifyDBSnapshot where+        type Rs ModifyDBSnapshot = ModifyDBSnapshotResponse+        request = postQuery rds+        response+          = receiveXMLWrapper "ModifyDBSnapshotResult"+              (\ s h x ->+                 ModifyDBSnapshotResponse' <$>+                   (x .@? "DBSnapshot") <*> (pure (fromEnum s)))++instance Hashable ModifyDBSnapshot where++instance NFData ModifyDBSnapshot where++instance ToHeaders ModifyDBSnapshot where+        toHeaders = const mempty++instance ToPath ModifyDBSnapshot where+        toPath = const "/"++instance ToQuery ModifyDBSnapshot where+        toQuery ModifyDBSnapshot'{..}+          = mconcat+              ["Action" =: ("ModifyDBSnapshot" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "EngineVersion" =: _mdsEngineVersion,+               "OptionGroupName" =: _mdsOptionGroupName,+               "DBSnapshotIdentifier" =: _mdsDBSnapshotIdentifier]++-- | /See:/ 'modifyDBSnapshotResponse' smart constructor.+data ModifyDBSnapshotResponse = ModifyDBSnapshotResponse'+  { _mdsrsDBSnapshot     :: !(Maybe DBSnapshot)+  , _mdsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ModifyDBSnapshotResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mdsrsDBSnapshot' - Undocumented member.+--+-- * 'mdsrsResponseStatus' - -- | The response status code.+modifyDBSnapshotResponse+    :: Int -- ^ 'mdsrsResponseStatus'+    -> ModifyDBSnapshotResponse+modifyDBSnapshotResponse pResponseStatus_ =+  ModifyDBSnapshotResponse'+  {_mdsrsDBSnapshot = Nothing, _mdsrsResponseStatus = pResponseStatus_}+++-- | Undocumented member.+mdsrsDBSnapshot :: Lens' ModifyDBSnapshotResponse (Maybe DBSnapshot)+mdsrsDBSnapshot = lens _mdsrsDBSnapshot (\ s a -> s{_mdsrsDBSnapshot = a});++-- | -- | The response status code.+mdsrsResponseStatus :: Lens' ModifyDBSnapshotResponse Int+mdsrsResponseStatus = lens _mdsrsResponseStatus (\ s a -> s{_mdsrsResponseStatus = a});++instance NFData ModifyDBSnapshotResponse where
gen/Network/AWS/RDS/ModifyDBSnapshotAttribute.hs view
@@ -12,21 +12,19 @@  -- | -- Module      : Network.AWS.RDS.ModifyDBSnapshotAttribute--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@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 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 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 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. If the manual DB snapshot is encrypted, it can be shared, but only by specifying a list of authorized AWS account IDs for the @ValuesToAdd@ parameter. You can't use @all@ as a value for that parameter in this case. -- -- 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     (     -- * Creating a Request@@ -46,12 +44,12 @@     , mdsarsResponseStatus     ) 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+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  -- | --@@ -59,12 +57,13 @@ -- -- /See:/ 'modifyDBSnapshotAttribute' smart constructor. data ModifyDBSnapshotAttribute = ModifyDBSnapshotAttribute'-    { _mdsaValuesToAdd          :: !(Maybe [Text])-    , _mdsaValuesToRemove       :: !(Maybe [Text])-    , _mdsaDBSnapshotIdentifier :: !Text-    , _mdsaAttributeName        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mdsaValuesToAdd          :: !(Maybe [Text])+  , _mdsaValuesToRemove       :: !(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. -- -- Use one of the following lenses to modify other fields as desired:@@ -81,13 +80,14 @@     -> Text -- ^ 'mdsaAttributeName'     -> ModifyDBSnapshotAttribute modifyDBSnapshotAttribute pDBSnapshotIdentifier_ pAttributeName_ =-    ModifyDBSnapshotAttribute'-    { _mdsaValuesToAdd = Nothing-    , _mdsaValuesToRemove = Nothing-    , _mdsaDBSnapshotIdentifier = pDBSnapshotIdentifier_-    , _mdsaAttributeName = pAttributeName_-    }+  ModifyDBSnapshotAttribute'+  { _mdsaValuesToAdd = Nothing+  , _mdsaValuesToRemove = 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, 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;@@ -115,9 +115,9 @@                    (x .@? "DBSnapshotAttributesResult") <*>                      (pure (fromEnum s))) -instance Hashable ModifyDBSnapshotAttribute+instance Hashable ModifyDBSnapshotAttribute where -instance NFData ModifyDBSnapshotAttribute+instance NFData ModifyDBSnapshotAttribute where  instance ToHeaders ModifyDBSnapshotAttribute where         toHeaders = const mempty@@ -143,10 +143,11 @@  -- | /See:/ 'modifyDBSnapshotAttributeResponse' smart constructor. data ModifyDBSnapshotAttributeResponse = ModifyDBSnapshotAttributeResponse'-    { _mdsarsDBSnapshotAttributesResult :: !(Maybe DBSnapshotAttributesResult)-    , _mdsarsResponseStatus             :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mdsarsDBSnapshotAttributesResult :: !(Maybe DBSnapshotAttributesResult)+  , _mdsarsResponseStatus             :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyDBSnapshotAttributeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -158,11 +159,12 @@     :: Int -- ^ 'mdsarsResponseStatus'     -> ModifyDBSnapshotAttributeResponse modifyDBSnapshotAttributeResponse pResponseStatus_ =-    ModifyDBSnapshotAttributeResponse'-    { _mdsarsDBSnapshotAttributesResult = Nothing-    , _mdsarsResponseStatus = pResponseStatus_-    }+  ModifyDBSnapshotAttributeResponse'+  { _mdsarsDBSnapshotAttributesResult = Nothing+  , _mdsarsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. mdsarsDBSnapshotAttributesResult :: Lens' ModifyDBSnapshotAttributeResponse (Maybe DBSnapshotAttributesResult) mdsarsDBSnapshotAttributesResult = lens _mdsarsDBSnapshotAttributesResult (\ s a -> s{_mdsarsDBSnapshotAttributesResult = a});@@ -172,3 +174,4 @@ mdsarsResponseStatus = lens _mdsarsResponseStatus (\ s a -> s{_mdsarsResponseStatus = a});  instance NFData ModifyDBSnapshotAttributeResponse+         where
gen/Network/AWS/RDS/ModifyDBSubnetGroup.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.RDS.ModifyDBSubnetGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Modifies an existing DB subnet group. DB subnet groups must contain at least one subnet in at least two AZs in the region.+-- Modifies an existing DB subnet group. DB subnet groups must contain at least one subnet in at least two AZs in the AWS Region. -- -- module Network.AWS.RDS.ModifyDBSubnetGroup@@ -39,12 +39,12 @@     , mdsgrsResponseStatus     ) 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+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  -- | --@@ -52,35 +52,37 @@ -- -- /See:/ 'modifyDBSubnetGroup' smart constructor. data ModifyDBSubnetGroup = ModifyDBSubnetGroup'-    { _mdsgDBSubnetGroupDescription :: !(Maybe Text)-    , _mdsgDBSubnetGroupName        :: !Text-    , _mdsgSubnetIds                :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mdsgDBSubnetGroupDescription :: !(Maybe Text)+  , _mdsgDBSubnetGroupName        :: !Text+  , _mdsgSubnetIds                :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyDBSubnetGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'mdsgDBSubnetGroupDescription' - The description for the DB subnet group. ----- * 'mdsgDBSubnetGroupName' - The name for the DB subnet group. This value is stored as a lowercase string. Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@+-- * 'mdsgDBSubnetGroupName' - The name for the DB subnet group. This value is stored as a lowercase string. You can't modify the default subnet group.  Constraints: Must match the name of an existing DBSubnetGroup. Must not be default. Example: @mySubnetgroup@ -- -- * 'mdsgSubnetIds' - The EC2 subnet IDs for the DB subnet group. modifyDBSubnetGroup     :: Text -- ^ 'mdsgDBSubnetGroupName'     -> ModifyDBSubnetGroup modifyDBSubnetGroup pDBSubnetGroupName_ =-    ModifyDBSubnetGroup'-    { _mdsgDBSubnetGroupDescription = Nothing-    , _mdsgDBSubnetGroupName = pDBSubnetGroupName_-    , _mdsgSubnetIds = mempty-    }+  ModifyDBSubnetGroup'+  { _mdsgDBSubnetGroupDescription = Nothing+  , _mdsgDBSubnetGroupName = pDBSubnetGroupName_+  , _mdsgSubnetIds = mempty+  } + -- | The description for the DB subnet group. mdsgDBSubnetGroupDescription :: Lens' ModifyDBSubnetGroup (Maybe Text) mdsgDBSubnetGroupDescription = lens _mdsgDBSubnetGroupDescription (\ s a -> s{_mdsgDBSubnetGroupDescription = a}); --- | The name for the DB subnet group. This value is stored as a lowercase string. Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@+-- | The name for the DB subnet group. This value is stored as a lowercase string. You can't modify the default subnet group.  Constraints: Must match the name of an existing DBSubnetGroup. Must not be default. Example: @mySubnetgroup@ mdsgDBSubnetGroupName :: Lens' ModifyDBSubnetGroup Text mdsgDBSubnetGroupName = lens _mdsgDBSubnetGroupName (\ s a -> s{_mdsgDBSubnetGroupName = a}); @@ -98,9 +100,9 @@                  ModifyDBSubnetGroupResponse' <$>                    (x .@? "DBSubnetGroup") <*> (pure (fromEnum s))) -instance Hashable ModifyDBSubnetGroup+instance Hashable ModifyDBSubnetGroup where -instance NFData ModifyDBSubnetGroup+instance NFData ModifyDBSubnetGroup where  instance ToHeaders ModifyDBSubnetGroup where         toHeaders = const mempty@@ -121,10 +123,11 @@  -- | /See:/ 'modifyDBSubnetGroupResponse' smart constructor. data ModifyDBSubnetGroupResponse = ModifyDBSubnetGroupResponse'-    { _mdsgrsDBSubnetGroup  :: !(Maybe DBSubnetGroup)-    , _mdsgrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mdsgrsDBSubnetGroup  :: !(Maybe DBSubnetGroup)+  , _mdsgrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyDBSubnetGroupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -136,11 +139,10 @@     :: Int -- ^ 'mdsgrsResponseStatus'     -> ModifyDBSubnetGroupResponse modifyDBSubnetGroupResponse pResponseStatus_ =-    ModifyDBSubnetGroupResponse'-    { _mdsgrsDBSubnetGroup = Nothing-    , _mdsgrsResponseStatus = pResponseStatus_-    }+  ModifyDBSubnetGroupResponse'+  {_mdsgrsDBSubnetGroup = Nothing, _mdsgrsResponseStatus = pResponseStatus_} + -- | Undocumented member. mdsgrsDBSubnetGroup :: Lens' ModifyDBSubnetGroupResponse (Maybe DBSubnetGroup) mdsgrsDBSubnetGroup = lens _mdsgrsDBSubnetGroup (\ s a -> s{_mdsgrsDBSubnetGroup = a});@@ -149,4 +151,4 @@ mdsgrsResponseStatus :: Lens' ModifyDBSubnetGroupResponse Int mdsgrsResponseStatus = lens _mdsgrsResponseStatus (\ s a -> s{_mdsgrsResponseStatus = a}); -instance NFData ModifyDBSubnetGroupResponse+instance NFData ModifyDBSubnetGroupResponse where
gen/Network/AWS/RDS/ModifyEventSubscription.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.ModifyEventSubscription--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -43,12 +43,12 @@     , mesrsResponseStatus     ) 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+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  -- | --@@ -56,13 +56,14 @@ -- -- /See:/ 'modifyEventSubscription' smart constructor. data ModifyEventSubscription = ModifyEventSubscription'-    { _mesSNSTopicARN      :: !(Maybe Text)-    , _mesEnabled          :: !(Maybe Bool)-    , _mesSourceType       :: !(Maybe Text)-    , _mesEventCategories  :: !(Maybe [Text])-    , _mesSubscriptionName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mesSNSTopicARN      :: !(Maybe Text)+  , _mesEnabled          :: !(Maybe Bool)+  , _mesSourceType       :: !(Maybe Text)+  , _mesEventCategories  :: !(Maybe [Text])+  , _mesSubscriptionName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyEventSubscription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,7 +72,7 @@ -- -- * 'mesEnabled' - A Boolean value; set to __true__ to activate the subscription. ----- * 'mesSourceType' - 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+-- * 'mesSourceType' - The type of source that is 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 -- -- * 'mesEventCategories' - A list of event categories for a SourceType that you want to subscribe to. You can see a list of the categories for a given SourceType in the <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Events.html Events> topic in the Amazon RDS User Guide or by using the __DescribeEventCategories__ action. --@@ -80,14 +81,15 @@     :: Text -- ^ 'mesSubscriptionName'     -> ModifyEventSubscription modifyEventSubscription pSubscriptionName_ =-    ModifyEventSubscription'-    { _mesSNSTopicARN = Nothing-    , _mesEnabled = Nothing-    , _mesSourceType = Nothing-    , _mesEventCategories = Nothing-    , _mesSubscriptionName = pSubscriptionName_-    }+  ModifyEventSubscription'+  { _mesSNSTopicARN = Nothing+  , _mesEnabled = Nothing+  , _mesSourceType = Nothing+  , _mesEventCategories = Nothing+  , _mesSubscriptionName = pSubscriptionName_+  } + -- | The Amazon Resource Name (ARN) of the SNS topic created for event notification. The ARN is created by Amazon SNS when you create a topic and subscribe to it. mesSNSTopicARN :: Lens' ModifyEventSubscription (Maybe Text) mesSNSTopicARN = lens _mesSNSTopicARN (\ s a -> s{_mesSNSTopicARN = a});@@ -96,7 +98,7 @@ mesEnabled :: Lens' ModifyEventSubscription (Maybe Bool) mesEnabled = lens _mesEnabled (\ s a -> s{_mesEnabled = a}); --- | 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+-- | The type of source that is 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 mesSourceType :: Lens' ModifyEventSubscription (Maybe Text) mesSourceType = lens _mesSourceType (\ s a -> s{_mesSourceType = a}); @@ -118,9 +120,9 @@                  ModifyEventSubscriptionResponse' <$>                    (x .@? "EventSubscription") <*> (pure (fromEnum s))) -instance Hashable ModifyEventSubscription+instance Hashable ModifyEventSubscription where -instance NFData ModifyEventSubscription+instance NFData ModifyEventSubscription where  instance ToHeaders ModifyEventSubscription where         toHeaders = const mempty@@ -145,10 +147,11 @@  -- | /See:/ 'modifyEventSubscriptionResponse' smart constructor. data ModifyEventSubscriptionResponse = ModifyEventSubscriptionResponse'-    { _mesrsEventSubscription :: !(Maybe EventSubscription)-    , _mesrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mesrsEventSubscription :: !(Maybe EventSubscription)+  , _mesrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyEventSubscriptionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -160,11 +163,10 @@     :: Int -- ^ 'mesrsResponseStatus'     -> ModifyEventSubscriptionResponse modifyEventSubscriptionResponse pResponseStatus_ =-    ModifyEventSubscriptionResponse'-    { _mesrsEventSubscription = Nothing-    , _mesrsResponseStatus = pResponseStatus_-    }+  ModifyEventSubscriptionResponse'+  {_mesrsEventSubscription = Nothing, _mesrsResponseStatus = pResponseStatus_} + -- | Undocumented member. mesrsEventSubscription :: Lens' ModifyEventSubscriptionResponse (Maybe EventSubscription) mesrsEventSubscription = lens _mesrsEventSubscription (\ s a -> s{_mesrsEventSubscription = a});@@ -173,4 +175,4 @@ mesrsResponseStatus :: Lens' ModifyEventSubscriptionResponse Int mesrsResponseStatus = lens _mesrsResponseStatus (\ s a -> s{_mesrsResponseStatus = a}); -instance NFData ModifyEventSubscriptionResponse+instance NFData ModifyEventSubscriptionResponse where
gen/Network/AWS/RDS/ModifyOptionGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.ModifyOptionGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@     , mogrsResponseStatus     ) 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+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  -- | --@@ -53,12 +53,13 @@ -- -- /See:/ 'modifyOptionGroup' smart constructor. data ModifyOptionGroup = ModifyOptionGroup'-    { _mogOptionsToInclude :: !(Maybe [OptionConfiguration])-    , _mogOptionsToRemove  :: !(Maybe [Text])-    , _mogApplyImmediately :: !(Maybe Bool)-    , _mogOptionGroupName  :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mogOptionsToInclude :: !(Maybe [OptionConfiguration])+  , _mogOptionsToRemove  :: !(Maybe [Text])+  , _mogApplyImmediately :: !(Maybe Bool)+  , _mogOptionGroupName  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyOptionGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,13 +75,14 @@     :: Text -- ^ 'mogOptionGroupName'     -> ModifyOptionGroup modifyOptionGroup pOptionGroupName_ =-    ModifyOptionGroup'-    { _mogOptionsToInclude = Nothing-    , _mogOptionsToRemove = Nothing-    , _mogApplyImmediately = Nothing-    , _mogOptionGroupName = pOptionGroupName_-    }+  ModifyOptionGroup'+  { _mogOptionsToInclude = Nothing+  , _mogOptionsToRemove = Nothing+  , _mogApplyImmediately = Nothing+  , _mogOptionGroupName = pOptionGroupName_+  } + -- | Options in this list are added to the option group or, if already present, the specified configuration is used to update the existing configuration. mogOptionsToInclude :: Lens' ModifyOptionGroup [OptionConfiguration] mogOptionsToInclude = lens _mogOptionsToInclude (\ s a -> s{_mogOptionsToInclude = a}) . _Default . _Coerce;@@ -106,9 +108,9 @@                  ModifyOptionGroupResponse' <$>                    (x .@? "OptionGroup") <*> (pure (fromEnum s))) -instance Hashable ModifyOptionGroup+instance Hashable ModifyOptionGroup where -instance NFData ModifyOptionGroup+instance NFData ModifyOptionGroup where  instance ToHeaders ModifyOptionGroup where         toHeaders = const mempty@@ -133,10 +135,11 @@  -- | /See:/ 'modifyOptionGroupResponse' smart constructor. data ModifyOptionGroupResponse = ModifyOptionGroupResponse'-    { _mogrsOptionGroup    :: !(Maybe OptionGroup)-    , _mogrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mogrsOptionGroup    :: !(Maybe OptionGroup)+  , _mogrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyOptionGroupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -148,11 +151,10 @@     :: Int -- ^ 'mogrsResponseStatus'     -> ModifyOptionGroupResponse modifyOptionGroupResponse pResponseStatus_ =-    ModifyOptionGroupResponse'-    { _mogrsOptionGroup = Nothing-    , _mogrsResponseStatus = pResponseStatus_-    }+  ModifyOptionGroupResponse'+  {_mogrsOptionGroup = Nothing, _mogrsResponseStatus = pResponseStatus_} + -- | Undocumented member. mogrsOptionGroup :: Lens' ModifyOptionGroupResponse (Maybe OptionGroup) mogrsOptionGroup = lens _mogrsOptionGroup (\ s a -> s{_mogrsOptionGroup = a});@@ -161,4 +163,4 @@ mogrsResponseStatus :: Lens' ModifyOptionGroupResponse Int mogrsResponseStatus = lens _mogrsResponseStatus (\ s a -> s{_mogrsResponseStatus = a}); -instance NFData ModifyOptionGroupResponse+instance NFData ModifyOptionGroupResponse where
gen/Network/AWS/RDS/PromoteReadReplica.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.PromoteReadReplica--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , prrrsResponseStatus     ) 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+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  -- | --@@ -52,31 +52,33 @@ -- -- /See:/ 'promoteReadReplica' smart constructor. data PromoteReadReplica = PromoteReadReplica'-    { _prrPreferredBackupWindow :: !(Maybe Text)-    , _prrBackupRetentionPeriod :: !(Maybe Int)-    , _prrDBInstanceIdentifier  :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _prrPreferredBackupWindow :: !(Maybe Text)+  , _prrBackupRetentionPeriod :: !(Maybe Int)+  , _prrDBInstanceIdentifier  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PromoteReadReplica' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'prrPreferredBackupWindow' - 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.+-- * 'prrPreferredBackupWindow' - 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 AWS 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. -- -- * 'prrBackupRetentionPeriod' - The number of days to retain automated backups. Setting this parameter to a positive number enables backups. Setting this parameter to 0 disables automated backups. Default: 1 Constraints:     * Must be a value from 0 to 8 ----- * 'prrDBInstanceIdentifier' - The DB instance identifier. This value is stored as a lowercase string. 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@+-- * 'prrDBInstanceIdentifier' - The DB instance identifier. This value is stored as a lowercase string. Constraints:     * Must match the identifier of an existing Read Replica DB instance. Example: @mydbinstance@ promoteReadReplica     :: Text -- ^ 'prrDBInstanceIdentifier'     -> PromoteReadReplica promoteReadReplica pDBInstanceIdentifier_ =-    PromoteReadReplica'-    { _prrPreferredBackupWindow = Nothing-    , _prrBackupRetentionPeriod = Nothing-    , _prrDBInstanceIdentifier = pDBInstanceIdentifier_-    }+  PromoteReadReplica'+  { _prrPreferredBackupWindow = Nothing+  , _prrBackupRetentionPeriod = Nothing+  , _prrDBInstanceIdentifier = pDBInstanceIdentifier_+  } --- | 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.++-- | 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 AWS 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. prrPreferredBackupWindow :: Lens' PromoteReadReplica (Maybe Text) prrPreferredBackupWindow = lens _prrPreferredBackupWindow (\ s a -> s{_prrPreferredBackupWindow = a}); @@ -84,7 +86,7 @@ prrBackupRetentionPeriod :: Lens' PromoteReadReplica (Maybe Int) prrBackupRetentionPeriod = lens _prrBackupRetentionPeriod (\ s a -> s{_prrBackupRetentionPeriod = a}); --- | The DB instance identifier. This value is stored as a lowercase string. 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@+-- | The DB instance identifier. This value is stored as a lowercase string. Constraints:     * Must match the identifier of an existing Read Replica DB instance. Example: @mydbinstance@ prrDBInstanceIdentifier :: Lens' PromoteReadReplica Text prrDBInstanceIdentifier = lens _prrDBInstanceIdentifier (\ s a -> s{_prrDBInstanceIdentifier = a}); @@ -98,9 +100,9 @@                  PromoteReadReplicaResponse' <$>                    (x .@? "DBInstance") <*> (pure (fromEnum s))) -instance Hashable PromoteReadReplica+instance Hashable PromoteReadReplica where -instance NFData PromoteReadReplica+instance NFData PromoteReadReplica where  instance ToHeaders PromoteReadReplica where         toHeaders = const mempty@@ -119,10 +121,11 @@  -- | /See:/ 'promoteReadReplicaResponse' smart constructor. data PromoteReadReplicaResponse = PromoteReadReplicaResponse'-    { _prrrsDBInstance     :: !(Maybe DBInstance)-    , _prrrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _prrrsDBInstance     :: !(Maybe DBInstance)+  , _prrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PromoteReadReplicaResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -134,11 +137,10 @@     :: Int -- ^ 'prrrsResponseStatus'     -> PromoteReadReplicaResponse promoteReadReplicaResponse pResponseStatus_ =-    PromoteReadReplicaResponse'-    { _prrrsDBInstance = Nothing-    , _prrrsResponseStatus = pResponseStatus_-    }+  PromoteReadReplicaResponse'+  {_prrrsDBInstance = Nothing, _prrrsResponseStatus = pResponseStatus_} + -- | Undocumented member. prrrsDBInstance :: Lens' PromoteReadReplicaResponse (Maybe DBInstance) prrrsDBInstance = lens _prrrsDBInstance (\ s a -> s{_prrrsDBInstance = a});@@ -147,4 +149,4 @@ prrrsResponseStatus :: Lens' PromoteReadReplicaResponse Int prrrsResponseStatus = lens _prrrsResponseStatus (\ s a -> s{_prrrsResponseStatus = a}); -instance NFData PromoteReadReplicaResponse+instance NFData PromoteReadReplicaResponse where
gen/Network/AWS/RDS/PromoteReadReplicaDBCluster.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.PromoteReadReplicaDBCluster--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , 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+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  -- | --@@ -50,23 +50,24 @@ -- -- /See:/ 'promoteReadReplicaDBCluster' smart constructor. newtype PromoteReadReplicaDBCluster = PromoteReadReplicaDBCluster'-    { _prrdcDBClusterIdentifier :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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' - 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' - The identifier of the DB cluster Read Replica to promote. This parameter is not case-sensitive.  Constraints:     * Must match the identifier of an existing DBCluster Read Replica. Example: @my-cluster-replica1@ promoteReadReplicaDBCluster     :: Text -- ^ 'prrdcDBClusterIdentifier'     -> PromoteReadReplicaDBCluster promoteReadReplicaDBCluster pDBClusterIdentifier_ =-    PromoteReadReplicaDBCluster'-    { _prrdcDBClusterIdentifier = 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@++-- | The identifier of the DB cluster Read Replica to promote. This parameter is not case-sensitive.  Constraints:     * Must match the identifier of an existing DBCluster Read Replica. Example: @my-cluster-replica1@ prrdcDBClusterIdentifier :: Lens' PromoteReadReplicaDBCluster Text prrdcDBClusterIdentifier = lens _prrdcDBClusterIdentifier (\ s a -> s{_prrdcDBClusterIdentifier = a}); @@ -81,9 +82,9 @@                  PromoteReadReplicaDBClusterResponse' <$>                    (x .@? "DBCluster") <*> (pure (fromEnum s))) -instance Hashable PromoteReadReplicaDBCluster+instance Hashable PromoteReadReplicaDBCluster where -instance NFData PromoteReadReplicaDBCluster+instance NFData PromoteReadReplicaDBCluster where  instance ToHeaders PromoteReadReplicaDBCluster where         toHeaders = const mempty@@ -101,10 +102,11 @@  -- | /See:/ 'promoteReadReplicaDBClusterResponse' smart constructor. data PromoteReadReplicaDBClusterResponse = PromoteReadReplicaDBClusterResponse'-    { _prrdcrsDBCluster      :: !(Maybe DBCluster)-    , _prrdcrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -116,11 +118,10 @@     :: Int -- ^ 'prrdcrsResponseStatus'     -> PromoteReadReplicaDBClusterResponse promoteReadReplicaDBClusterResponse pResponseStatus_ =-    PromoteReadReplicaDBClusterResponse'-    { _prrdcrsDBCluster = Nothing-    , _prrdcrsResponseStatus = pResponseStatus_-    }+  PromoteReadReplicaDBClusterResponse'+  {_prrdcrsDBCluster = Nothing, _prrdcrsResponseStatus = pResponseStatus_} + -- | Undocumented member. prrdcrsDBCluster :: Lens' PromoteReadReplicaDBClusterResponse (Maybe DBCluster) prrdcrsDBCluster = lens _prrdcrsDBCluster (\ s a -> s{_prrdcrsDBCluster = a});@@ -130,3 +131,4 @@ prrdcrsResponseStatus = lens _prrdcrsResponseStatus (\ s a -> s{_prrdcrsResponseStatus = a});  instance NFData PromoteReadReplicaDBClusterResponse+         where
gen/Network/AWS/RDS/PurchaseReservedDBInstancesOffering.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.PurchaseReservedDBInstancesOffering--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@     , prdiorsResponseStatus     ) 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+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  -- | --@@ -53,12 +53,13 @@ -- -- /See:/ 'purchaseReservedDBInstancesOffering' smart constructor. data PurchaseReservedDBInstancesOffering = PurchaseReservedDBInstancesOffering'-    { _prdioDBInstanceCount               :: !(Maybe Int)-    , _prdioReservedDBInstanceId          :: !(Maybe Text)-    , _prdioTags                          :: !(Maybe [Tag])-    , _prdioReservedDBInstancesOfferingId :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _prdioDBInstanceCount               :: !(Maybe Int)+  , _prdioReservedDBInstanceId          :: !(Maybe Text)+  , _prdioTags                          :: !(Maybe [Tag])+  , _prdioReservedDBInstancesOfferingId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PurchaseReservedDBInstancesOffering' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,13 +75,14 @@     :: Text -- ^ 'prdioReservedDBInstancesOfferingId'     -> PurchaseReservedDBInstancesOffering purchaseReservedDBInstancesOffering pReservedDBInstancesOfferingId_ =-    PurchaseReservedDBInstancesOffering'-    { _prdioDBInstanceCount = Nothing-    , _prdioReservedDBInstanceId = Nothing-    , _prdioTags = Nothing-    , _prdioReservedDBInstancesOfferingId = pReservedDBInstancesOfferingId_-    }+  PurchaseReservedDBInstancesOffering'+  { _prdioDBInstanceCount = Nothing+  , _prdioReservedDBInstanceId = Nothing+  , _prdioTags = Nothing+  , _prdioReservedDBInstancesOfferingId = pReservedDBInstancesOfferingId_+  } + -- | The number of instances to reserve. Default: @1@ prdioDBInstanceCount :: Lens' PurchaseReservedDBInstancesOffering (Maybe Int) prdioDBInstanceCount = lens _prdioDBInstanceCount (\ s a -> s{_prdioDBInstanceCount = a});@@ -98,7 +100,8 @@ prdioReservedDBInstancesOfferingId = lens _prdioReservedDBInstancesOfferingId (\ s a -> s{_prdioReservedDBInstancesOfferingId = a});  instance AWSRequest-         PurchaseReservedDBInstancesOffering where+           PurchaseReservedDBInstancesOffering+         where         type Rs PurchaseReservedDBInstancesOffering =              PurchaseReservedDBInstancesOfferingResponse         request = postQuery rds@@ -110,11 +113,14 @@                    (x .@? "ReservedDBInstance") <*> (pure (fromEnum s)))  instance Hashable PurchaseReservedDBInstancesOffering+         where  instance NFData PurchaseReservedDBInstancesOffering+         where  instance ToHeaders-         PurchaseReservedDBInstancesOffering where+           PurchaseReservedDBInstancesOffering+         where         toHeaders = const mempty  instance ToPath PurchaseReservedDBInstancesOffering@@ -137,10 +143,11 @@  -- | /See:/ 'purchaseReservedDBInstancesOfferingResponse' smart constructor. data PurchaseReservedDBInstancesOfferingResponse = PurchaseReservedDBInstancesOfferingResponse'-    { _prdiorsReservedDBInstance :: !(Maybe ReservedDBInstance)-    , _prdiorsResponseStatus     :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _prdiorsReservedDBInstance :: !(Maybe ReservedDBInstance)+  , _prdiorsResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PurchaseReservedDBInstancesOfferingResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -152,11 +159,12 @@     :: Int -- ^ 'prdiorsResponseStatus'     -> PurchaseReservedDBInstancesOfferingResponse purchaseReservedDBInstancesOfferingResponse pResponseStatus_ =-    PurchaseReservedDBInstancesOfferingResponse'-    { _prdiorsReservedDBInstance = Nothing-    , _prdiorsResponseStatus = pResponseStatus_-    }+  PurchaseReservedDBInstancesOfferingResponse'+  { _prdiorsReservedDBInstance = Nothing+  , _prdiorsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. prdiorsReservedDBInstance :: Lens' PurchaseReservedDBInstancesOfferingResponse (Maybe ReservedDBInstance) prdiorsReservedDBInstance = lens _prdiorsReservedDBInstance (\ s a -> s{_prdiorsReservedDBInstance = a});@@ -166,4 +174,5 @@ prdiorsResponseStatus = lens _prdiorsResponseStatus (\ s a -> s{_prdiorsResponseStatus = a});  instance NFData-         PurchaseReservedDBInstancesOfferingResponse+           PurchaseReservedDBInstancesOfferingResponse+         where
gen/Network/AWS/RDS/RebootDBInstance.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.RDS.RebootDBInstance--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Rebooting a DB instance restarts the database engine service. A reboot also applies to the DB instance any modifications to the associated DB parameter group that were pending. Rebooting a DB instance results in a momentary outage of the instance, during which the DB instance status is set to rebooting. If the RDS instance is configured for MultiAZ, it is possible that the reboot will be conducted through a failover. An Amazon RDS event is created when the reboot is completed.+-- Rebooting a DB instance restarts the database engine service. A reboot also applies to the DB instance any modifications to the associated DB parameter group that were pending. Rebooting a DB instance results in a momentary outage of the instance, during which the DB instance status is set to rebooting. If the RDS instance is configured for MultiAZ, it is possible that the reboot is conducted through a failover. An Amazon RDS event is created when the reboot is completed. -- -- -- If your DB instance is deployed in multiple Availability Zones, you can force a failover from one AZ to the other during the reboot. You might force a failover to test the availability of your DB instance deployment or to restore operations to the original AZ after a failover occurs.@@ -42,12 +42,12 @@     , rdirsResponseStatus     ) 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+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  -- | --@@ -55,31 +55,33 @@ -- -- /See:/ 'rebootDBInstance' smart constructor. data RebootDBInstance = RebootDBInstance'-    { _rdiForceFailover        :: !(Maybe Bool)-    , _rdiDBInstanceIdentifier :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rdiForceFailover        :: !(Maybe Bool)+  , _rdiDBInstanceIdentifier :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RebootDBInstance' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rdiForceFailover' - When @true@ , the reboot will be conducted through a MultiAZ failover.  Constraint: You cannot specify @true@ if the instance is not configured for MultiAZ.+-- * 'rdiForceFailover' - When @true@ , the reboot is conducted through a MultiAZ failover.  Constraint: You cannot specify @true@ if the instance is not configured for MultiAZ. ----- * 'rdiDBInstanceIdentifier' - The DB instance identifier. This parameter is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- * 'rdiDBInstanceIdentifier' - The DB instance identifier. This parameter is stored as a lowercase string. Constraints:     * Must match the identifier of an existing DBInstance. rebootDBInstance     :: Text -- ^ 'rdiDBInstanceIdentifier'     -> RebootDBInstance rebootDBInstance pDBInstanceIdentifier_ =-    RebootDBInstance'-    { _rdiForceFailover = Nothing-    , _rdiDBInstanceIdentifier = pDBInstanceIdentifier_-    }+  RebootDBInstance'+  { _rdiForceFailover = Nothing+  , _rdiDBInstanceIdentifier = pDBInstanceIdentifier_+  } --- | When @true@ , the reboot will be conducted through a MultiAZ failover.  Constraint: You cannot specify @true@ if the instance is not configured for MultiAZ.++-- | When @true@ , the reboot is conducted through a MultiAZ failover.  Constraint: You cannot specify @true@ if the instance is not configured for MultiAZ. rdiForceFailover :: Lens' RebootDBInstance (Maybe Bool) rdiForceFailover = lens _rdiForceFailover (\ s a -> s{_rdiForceFailover = a}); --- | The DB instance identifier. This parameter is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The DB instance identifier. This parameter is stored as a lowercase string. Constraints:     * Must match the identifier of an existing DBInstance. rdiDBInstanceIdentifier :: Lens' RebootDBInstance Text rdiDBInstanceIdentifier = lens _rdiDBInstanceIdentifier (\ s a -> s{_rdiDBInstanceIdentifier = a}); @@ -92,9 +94,9 @@                  RebootDBInstanceResponse' <$>                    (x .@? "DBInstance") <*> (pure (fromEnum s))) -instance Hashable RebootDBInstance+instance Hashable RebootDBInstance where -instance NFData RebootDBInstance+instance NFData RebootDBInstance where  instance ToHeaders RebootDBInstance where         toHeaders = const mempty@@ -112,10 +114,11 @@  -- | /See:/ 'rebootDBInstanceResponse' smart constructor. data RebootDBInstanceResponse = RebootDBInstanceResponse'-    { _rdirsDBInstance     :: !(Maybe DBInstance)-    , _rdirsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rdirsDBInstance     :: !(Maybe DBInstance)+  , _rdirsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RebootDBInstanceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -127,11 +130,10 @@     :: Int -- ^ 'rdirsResponseStatus'     -> RebootDBInstanceResponse rebootDBInstanceResponse pResponseStatus_ =-    RebootDBInstanceResponse'-    { _rdirsDBInstance = Nothing-    , _rdirsResponseStatus = pResponseStatus_-    }+  RebootDBInstanceResponse'+  {_rdirsDBInstance = Nothing, _rdirsResponseStatus = pResponseStatus_} + -- | Undocumented member. rdirsDBInstance :: Lens' RebootDBInstanceResponse (Maybe DBInstance) rdirsDBInstance = lens _rdirsDBInstance (\ s a -> s{_rdirsDBInstance = a});@@ -140,4 +142,4 @@ rdirsResponseStatus :: Lens' RebootDBInstanceResponse Int rdirsResponseStatus = lens _rdirsResponseStatus (\ s a -> s{_rdirsResponseStatus = a}); -instance NFData RebootDBInstanceResponse+instance NFData RebootDBInstanceResponse where
gen/Network/AWS/RDS/RemoveRoleFromDBCluster.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.RemoveRoleFromDBCluster--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,24 +35,25 @@     , RemoveRoleFromDBClusterResponse     ) 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+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:/ 'removeRoleFromDBCluster' smart constructor. data RemoveRoleFromDBCluster = RemoveRoleFromDBCluster'-    { _rrfdcDBClusterIdentifier :: !Text-    , _rrfdcRoleARN             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rrfdcDBClusterIdentifier :: !Text+  , _rrfdcRoleARN             :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveRoleFromDBCluster' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rrfdcDBClusterIdentifier' - The name of the DB cluster to disassociate the IAM role rom.+-- * 'rrfdcDBClusterIdentifier' - The name of the DB cluster to disassociate the IAM role from. -- -- * 'rrfdcRoleARN' - The Amazon Resource Name (ARN) of the IAM role to disassociate from the Aurora DB cluster, for example @arn:aws:iam::123456789012:role/AuroraAccessRole@ . removeRoleFromDBCluster@@ -60,12 +61,11 @@     -> Text -- ^ 'rrfdcRoleARN'     -> RemoveRoleFromDBCluster removeRoleFromDBCluster pDBClusterIdentifier_ pRoleARN_ =-    RemoveRoleFromDBCluster'-    { _rrfdcDBClusterIdentifier = pDBClusterIdentifier_-    , _rrfdcRoleARN = pRoleARN_-    }+  RemoveRoleFromDBCluster'+  {_rrfdcDBClusterIdentifier = pDBClusterIdentifier_, _rrfdcRoleARN = pRoleARN_} --- | The name of the DB cluster to disassociate the IAM role rom.++-- | The name of the DB cluster to disassociate the IAM role from. rrfdcDBClusterIdentifier :: Lens' RemoveRoleFromDBCluster Text rrfdcDBClusterIdentifier = lens _rrfdcDBClusterIdentifier (\ s a -> s{_rrfdcDBClusterIdentifier = a}); @@ -80,9 +80,9 @@         response           = receiveNull RemoveRoleFromDBClusterResponse' -instance Hashable RemoveRoleFromDBCluster+instance Hashable RemoveRoleFromDBCluster where -instance NFData RemoveRoleFromDBCluster+instance NFData RemoveRoleFromDBCluster where  instance ToHeaders RemoveRoleFromDBCluster where         toHeaders = const mempty@@ -101,13 +101,15 @@  -- | /See:/ 'removeRoleFromDBClusterResponse' smart constructor. data RemoveRoleFromDBClusterResponse =-    RemoveRoleFromDBClusterResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  RemoveRoleFromDBClusterResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveRoleFromDBClusterResponse' with the minimum fields required to make a request. -- removeRoleFromDBClusterResponse     :: RemoveRoleFromDBClusterResponse removeRoleFromDBClusterResponse = RemoveRoleFromDBClusterResponse' -instance NFData RemoveRoleFromDBClusterResponse++instance NFData RemoveRoleFromDBClusterResponse where
gen/Network/AWS/RDS/RemoveSourceIdentifierFromSubscription.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.RemoveSourceIdentifierFromSubscription--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , rsifsrsResponseStatus     ) 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+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  -- | --@@ -51,10 +51,11 @@ -- -- /See:/ 'removeSourceIdentifierFromSubscription' smart constructor. data RemoveSourceIdentifierFromSubscription = RemoveSourceIdentifierFromSubscription'-    { _rsifsSubscriptionName :: !Text-    , _rsifsSourceIdentifier :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rsifsSubscriptionName :: !Text+  , _rsifsSourceIdentifier :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveSourceIdentifierFromSubscription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,11 +68,12 @@     -> Text -- ^ 'rsifsSourceIdentifier'     -> RemoveSourceIdentifierFromSubscription removeSourceIdentifierFromSubscription pSubscriptionName_ pSourceIdentifier_ =-    RemoveSourceIdentifierFromSubscription'-    { _rsifsSubscriptionName = pSubscriptionName_-    , _rsifsSourceIdentifier = pSourceIdentifier_-    }+  RemoveSourceIdentifierFromSubscription'+  { _rsifsSubscriptionName = pSubscriptionName_+  , _rsifsSourceIdentifier = pSourceIdentifier_+  } + -- | The name of the RDS event notification subscription you want to remove a source identifier from. rsifsSubscriptionName :: Lens' RemoveSourceIdentifierFromSubscription Text rsifsSubscriptionName = lens _rsifsSubscriptionName (\ s a -> s{_rsifsSubscriptionName = a});@@ -81,7 +83,8 @@ rsifsSourceIdentifier = lens _rsifsSourceIdentifier (\ s a -> s{_rsifsSourceIdentifier = a});  instance AWSRequest-         RemoveSourceIdentifierFromSubscription where+           RemoveSourceIdentifierFromSubscription+         where         type Rs RemoveSourceIdentifierFromSubscription =              RemoveSourceIdentifierFromSubscriptionResponse         request = postQuery rds@@ -93,21 +96,26 @@                    (x .@? "EventSubscription") <*> (pure (fromEnum s)))  instance Hashable-         RemoveSourceIdentifierFromSubscription+           RemoveSourceIdentifierFromSubscription+         where  instance NFData-         RemoveSourceIdentifierFromSubscription+           RemoveSourceIdentifierFromSubscription+         where  instance ToHeaders-         RemoveSourceIdentifierFromSubscription where+           RemoveSourceIdentifierFromSubscription+         where         toHeaders = const mempty  instance ToPath-         RemoveSourceIdentifierFromSubscription where+           RemoveSourceIdentifierFromSubscription+         where         toPath = const "/"  instance ToQuery-         RemoveSourceIdentifierFromSubscription where+           RemoveSourceIdentifierFromSubscription+         where         toQuery RemoveSourceIdentifierFromSubscription'{..}           = mconcat               ["Action" =:@@ -119,10 +127,11 @@  -- | /See:/ 'removeSourceIdentifierFromSubscriptionResponse' smart constructor. data RemoveSourceIdentifierFromSubscriptionResponse = RemoveSourceIdentifierFromSubscriptionResponse'-    { _rsifsrsEventSubscription :: !(Maybe EventSubscription)-    , _rsifsrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rsifsrsEventSubscription :: !(Maybe EventSubscription)+  , _rsifsrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveSourceIdentifierFromSubscriptionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -134,11 +143,12 @@     :: Int -- ^ 'rsifsrsResponseStatus'     -> RemoveSourceIdentifierFromSubscriptionResponse removeSourceIdentifierFromSubscriptionResponse pResponseStatus_ =-    RemoveSourceIdentifierFromSubscriptionResponse'-    { _rsifsrsEventSubscription = Nothing-    , _rsifsrsResponseStatus = pResponseStatus_-    }+  RemoveSourceIdentifierFromSubscriptionResponse'+  { _rsifsrsEventSubscription = Nothing+  , _rsifsrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. rsifsrsEventSubscription :: Lens' RemoveSourceIdentifierFromSubscriptionResponse (Maybe EventSubscription) rsifsrsEventSubscription = lens _rsifsrsEventSubscription (\ s a -> s{_rsifsrsEventSubscription = a});@@ -148,4 +158,5 @@ rsifsrsResponseStatus = lens _rsifsrsResponseStatus (\ s a -> s{_rsifsrsResponseStatus = a});  instance NFData-         RemoveSourceIdentifierFromSubscriptionResponse+           RemoveSourceIdentifierFromSubscriptionResponse+         where
gen/Network/AWS/RDS/RemoveTagsFromResource.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.RemoveTagsFromResource--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , RemoveTagsFromResourceResponse     ) 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+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  -- | --@@ -50,27 +50,27 @@ -- -- /See:/ 'removeTagsFromResource' smart constructor. data RemoveTagsFromResource = RemoveTagsFromResource'-    { _rtfrResourceName :: !Text-    , _rtfrTagKeys      :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rtfrResourceName :: !Text+  , _rtfrTagKeys      :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveTagsFromResource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rtfrResourceName' - 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' - The Amazon RDS resource that the tags are 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)> . -- -- * 'rtfrTagKeys' - The tag key (name) of the tag to be removed. removeTagsFromResource     :: Text -- ^ 'rtfrResourceName'     -> RemoveTagsFromResource removeTagsFromResource pResourceName_ =-    RemoveTagsFromResource'-    { _rtfrResourceName = pResourceName_-    , _rtfrTagKeys = mempty-    }+  RemoveTagsFromResource'+  {_rtfrResourceName = pResourceName_, _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.ARN.html#USER_Tagging.ARN.Constructing Constructing an RDS Amazon Resource Name (ARN)> .++-- | The Amazon RDS resource that the tags are 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}); @@ -85,9 +85,9 @@         response           = receiveNull RemoveTagsFromResourceResponse' -instance Hashable RemoveTagsFromResource+instance Hashable RemoveTagsFromResource where -instance NFData RemoveTagsFromResource+instance NFData RemoveTagsFromResource where  instance ToHeaders RemoveTagsFromResource where         toHeaders = const mempty@@ -106,13 +106,15 @@  -- | /See:/ 'removeTagsFromResourceResponse' smart constructor. data RemoveTagsFromResourceResponse =-    RemoveTagsFromResourceResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  RemoveTagsFromResourceResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveTagsFromResourceResponse' with the minimum fields required to make a request. -- removeTagsFromResourceResponse     :: RemoveTagsFromResourceResponse removeTagsFromResourceResponse = RemoveTagsFromResourceResponse' -instance NFData RemoveTagsFromResourceResponse++instance NFData RemoveTagsFromResourceResponse where
gen/Network/AWS/RDS/ResetDBClusterParameterGroup.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.ResetDBClusterParameterGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,12 +42,12 @@     , dcpgnmDBClusterParameterGroupName     ) 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+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  -- | --@@ -55,11 +55,12 @@ -- -- /See:/ 'resetDBClusterParameterGroup' smart constructor. data ResetDBClusterParameterGroup = ResetDBClusterParameterGroup'-    { _rdcpgResetAllParameters          :: !(Maybe Bool)-    , _rdcpgParameters                  :: !(Maybe [Parameter])-    , _rdcpgDBClusterParameterGroupName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rdcpgResetAllParameters          :: !(Maybe Bool)+  , _rdcpgParameters                  :: !(Maybe [Parameter])+  , _rdcpgDBClusterParameterGroupName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResetDBClusterParameterGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,12 +74,13 @@     :: Text -- ^ 'rdcpgDBClusterParameterGroupName'     -> ResetDBClusterParameterGroup resetDBClusterParameterGroup pDBClusterParameterGroupName_ =-    ResetDBClusterParameterGroup'-    { _rdcpgResetAllParameters = Nothing-    , _rdcpgParameters = Nothing-    , _rdcpgDBClusterParameterGroupName = pDBClusterParameterGroupName_-    }+  ResetDBClusterParameterGroup'+  { _rdcpgResetAllParameters = Nothing+  , _rdcpgParameters = Nothing+  , _rdcpgDBClusterParameterGroupName = pDBClusterParameterGroupName_+  } + -- | A value that is set to @true@ to reset all parameters in the DB cluster parameter group to their default values, and @false@ otherwise. You cannot use this parameter if there is a list of parameter names specified for the @Parameters@ parameter. rdcpgResetAllParameters :: Lens' ResetDBClusterParameterGroup (Maybe Bool) rdcpgResetAllParameters = lens _rdcpgResetAllParameters (\ s a -> s{_rdcpgResetAllParameters = a});@@ -101,9 +103,9 @@               "ResetDBClusterParameterGroupResult"               (\ s h x -> parseXML x) -instance Hashable ResetDBClusterParameterGroup+instance Hashable ResetDBClusterParameterGroup where -instance NFData ResetDBClusterParameterGroup+instance NFData ResetDBClusterParameterGroup where  instance ToHeaders ResetDBClusterParameterGroup where         toHeaders = const mempty
gen/Network/AWS/RDS/ResetDBParameterGroup.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.RDS.ResetDBParameterGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Modifies the parameters of a DB parameter group to the engine/system default value. To reset specific parameters submit a list of the following: @ParameterName@ and @ApplyMethod@ . To reset the entire DB parameter group, specify the @DBParameterGroup@ name and @ResetAllParameters@ parameters. When resetting the entire group, dynamic parameters are updated immediately and static parameters are set to @pending-reboot@ to take effect on the next DB instance restart or @RebootDBInstance@ request.+-- Modifies the parameters of a DB parameter group to the engine/system default value. To reset specific parameters, provide a list of the following: @ParameterName@ and @ApplyMethod@ . To reset the entire DB parameter group, specify the @DBParameterGroup@ name and @ResetAllParameters@ parameters. When resetting the entire group, dynamic parameters are updated immediately and static parameters are set to @pending-reboot@ to take effect on the next DB instance restart or @RebootDBInstance@ request. -- -- module Network.AWS.RDS.ResetDBParameterGroup@@ -38,12 +38,12 @@     , dpgnmDBParameterGroupName     ) 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+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  -- | --@@ -51,39 +51,41 @@ -- -- /See:/ 'resetDBParameterGroup' smart constructor. data ResetDBParameterGroup = ResetDBParameterGroup'-    { _rdpgResetAllParameters   :: !(Maybe Bool)-    , _rdpgParameters           :: !(Maybe [Parameter])-    , _rdpgDBParameterGroupName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rdpgResetAllParameters   :: !(Maybe Bool)+  , _rdpgParameters           :: !(Maybe [Parameter])+  , _rdpgDBParameterGroupName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResetDBParameterGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'rdpgResetAllParameters' - Specifies whether (@true@ ) or not (@false@ ) to reset all parameters in the DB parameter group to default values.  Default: @true@ ----- * 'rdpgParameters' - An array of parameter names, values, and the apply method for the parameter update. At least one parameter name, value, and apply method must be supplied; subsequent arguments are optional. A maximum of 20 parameters can be modified in a single request. __MySQL__  Valid Values (for Apply method): @immediate@ | @pending-reboot@  You can use the immediate value with dynamic parameters only. You can use the @pending-reboot@ value for both dynamic and static parameters, and changes are applied when DB instance reboots. __MariaDB__  Valid Values (for Apply method): @immediate@ | @pending-reboot@  You can use the immediate value with dynamic parameters only. You can use the @pending-reboot@ value for both dynamic and static parameters, and changes are applied when DB instance reboots. __Oracle__  Valid Values (for Apply method): @pending-reboot@+-- * 'rdpgParameters' - To reset the entire DB parameter group, specify the @DBParameterGroup@ name and @ResetAllParameters@ parameters. To reset specific parameters, provide a list of the following: @ParameterName@ and @ApplyMethod@ . A maximum of 20 parameters can be modified in a single request. __MySQL__  Valid Values (for Apply method): @immediate@ | @pending-reboot@  You can use the immediate value with dynamic parameters only. You can use the @pending-reboot@ value for both dynamic and static parameters, and changes are applied when DB instance reboots. __MariaDB__  Valid Values (for Apply method): @immediate@ | @pending-reboot@  You can use the immediate value with dynamic parameters only. You can use the @pending-reboot@ value for both dynamic and static parameters, and changes are applied when DB instance reboots. __Oracle__  Valid Values (for Apply method): @pending-reboot@ ----- * 'rdpgDBParameterGroupName' - The name of the DB parameter group. 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' - The name of the DB parameter group. Constraints:     * Must match the name of an existing DBParameterGroup. resetDBParameterGroup     :: Text -- ^ 'rdpgDBParameterGroupName'     -> ResetDBParameterGroup resetDBParameterGroup pDBParameterGroupName_ =-    ResetDBParameterGroup'-    { _rdpgResetAllParameters = Nothing-    , _rdpgParameters = Nothing-    , _rdpgDBParameterGroupName = pDBParameterGroupName_-    }+  ResetDBParameterGroup'+  { _rdpgResetAllParameters = Nothing+  , _rdpgParameters = Nothing+  , _rdpgDBParameterGroupName = pDBParameterGroupName_+  } + -- | Specifies whether (@true@ ) or not (@false@ ) to reset all parameters in the DB parameter group to default values.  Default: @true@ rdpgResetAllParameters :: Lens' ResetDBParameterGroup (Maybe Bool) rdpgResetAllParameters = lens _rdpgResetAllParameters (\ s a -> s{_rdpgResetAllParameters = a}); --- | An array of parameter names, values, and the apply method for the parameter update. At least one parameter name, value, and apply method must be supplied; subsequent arguments are optional. A maximum of 20 parameters can be modified in a single request. __MySQL__  Valid Values (for Apply method): @immediate@ | @pending-reboot@  You can use the immediate value with dynamic parameters only. You can use the @pending-reboot@ value for both dynamic and static parameters, and changes are applied when DB instance reboots. __MariaDB__  Valid Values (for Apply method): @immediate@ | @pending-reboot@  You can use the immediate value with dynamic parameters only. You can use the @pending-reboot@ value for both dynamic and static parameters, and changes are applied when DB instance reboots. __Oracle__  Valid Values (for Apply method): @pending-reboot@+-- | To reset the entire DB parameter group, specify the @DBParameterGroup@ name and @ResetAllParameters@ parameters. To reset specific parameters, provide a list of the following: @ParameterName@ and @ApplyMethod@ . A maximum of 20 parameters can be modified in a single request. __MySQL__  Valid Values (for Apply method): @immediate@ | @pending-reboot@  You can use the immediate value with dynamic parameters only. You can use the @pending-reboot@ value for both dynamic and static parameters, and changes are applied when DB instance reboots. __MariaDB__  Valid Values (for Apply method): @immediate@ | @pending-reboot@  You can use the immediate value with dynamic parameters only. You can use the @pending-reboot@ value for both dynamic and static parameters, and changes are applied when DB instance reboots. __Oracle__  Valid Values (for Apply method): @pending-reboot@ rdpgParameters :: Lens' ResetDBParameterGroup [Parameter] rdpgParameters = lens _rdpgParameters (\ s a -> s{_rdpgParameters = a}) . _Default . _Coerce; --- | The name of the DB parameter group. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+-- | The name of the DB parameter group. Constraints:     * Must match the name of an existing DBParameterGroup. rdpgDBParameterGroupName :: Lens' ResetDBParameterGroup Text rdpgDBParameterGroupName = lens _rdpgDBParameterGroupName (\ s a -> s{_rdpgDBParameterGroupName = a}); @@ -95,9 +97,9 @@           = receiveXMLWrapper "ResetDBParameterGroupResult"               (\ s h x -> parseXML x) -instance Hashable ResetDBParameterGroup+instance Hashable ResetDBParameterGroup where -instance NFData ResetDBParameterGroup+instance NFData ResetDBParameterGroup where  instance ToHeaders ResetDBParameterGroup where         toHeaders = const mempty
gen/Network/AWS/RDS/RestoreDBClusterFromS3.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.RDS.RestoreDBClusterFromS3--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@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 <AmazonRDS/latest/UserGuide/Aurora.Migrate.MySQL.html#Aurora.Migrate.MySQL.S3 Migrating Data from MySQL by Using an Amazon S3 Bucket> .+-- 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.MySQL.html#Aurora.Migrate.MySQL.S3 Migrating Data from MySQL by Using an Amazon S3 Bucket> . -- -- module Network.AWS.RDS.RestoreDBClusterFromS3@@ -43,6 +43,7 @@     , rdcfsOptionGroupName     , rdcfsTags     , rdcfsPort+    , rdcfsEnableIAMDatabaseAuthentication     , rdcfsDBClusterIdentifier     , rdcfsEngine     , rdcfsMasterUsername@@ -60,41 +61,43 @@     , 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+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)+  { _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)+  , _rdcfsEnableIAMDatabaseAuthentication :: !(Maybe Bool)+  , _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:@@ -103,17 +106,17 @@ -- -- * 'rdcfsStorageEncrypted' - Specifies whether the restored DB cluster is encrypted. ----- * 'rdcfsDBSubnetGroupName' - 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' - A DB subnet group to associate with the restored DB cluster. Constraints: If supplied, must match the name of an existing DBSubnetGroup.  Example: @mySubnetgroup@ ----- * 'rdcfsPreferredMaintenanceWindow' - 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' - 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 AWS 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. -- -- * 'rdcfsAvailabilityZones' - A list of EC2 Availability Zones that instances in the restored DB cluster can be created in. -- -- * 'rdcfsCharacterSetName' - A value that indicates that the restored DB cluster should be associated with the specified CharacterSet. ----- * 'rdcfsKMSKeyId' - 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' - 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. ----- * 'rdcfsPreferredBackupWindow' - 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' - 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 AWS 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. -- -- * 'rdcfsBackupRetentionPeriod' - 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 --@@ -121,7 +124,7 @@ -- -- * 'rdcfsDatabaseName' - The database name for the restored DB cluster. ----- * 'rdcfsDBClusterParameterGroupName' - 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' - The name of the DB cluster parameter group to associate with the restored DB cluster. If this argument is omitted, @default.aurora5.6@ is used.  Constraints:     * If supplied, must match the name of an existing DBClusterParameterGroup. -- -- * 'rdcfsS3Prefix' - 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. --@@ -131,11 +134,13 @@ -- -- * 'rdcfsPort' - The port number on which the instances in the restored DB cluster accept connections. Default: @3306@ ----- * 'rdcfsDBClusterIdentifier' - 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@+-- * 'rdcfsEnableIAMDatabaseAuthentication' - A Boolean value that is true to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts, and otherwise false. Default: @false@ --+-- * 'rdcfsDBClusterIdentifier' - 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 letters, numbers, or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @my-cluster1@+-- -- * 'rdcfsEngine' - The name of the database engine to be used for the restored DB cluster. Valid Values: @aurora@ ----- * 'rdcfsMasterUsername' - 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' - The name of the master user for the restored DB cluster. Constraints:     * Must be 1 to 16 letters or numbers.     * First character must be a letter.     * Cannot be a reserved word for the chosen database engine. -- -- * 'rdcfsMasterUserPassword' - 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. --@@ -157,33 +162,35 @@     -> 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_-    }+  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+  , _rdcfsEnableIAMDatabaseAuthentication = 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});@@ -192,11 +199,11 @@ 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@+-- | A DB subnet group to associate with the restored DB cluster. Constraints: If supplied, must match the name of an existing DBSubnetGroup.  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.+-- | 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 AWS 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}); @@ -208,11 +215,11 @@ 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.+-- | 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.+-- | 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 AWS 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}); @@ -228,7 +235,7 @@ 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+-- | The name of the DB cluster parameter group to associate with the restored DB cluster. If this argument is omitted, @default.aurora5.6@ is used.  Constraints:     * If supplied, must match the name of an existing DBClusterParameterGroup. rdcfsDBClusterParameterGroupName :: Lens' RestoreDBClusterFromS3 (Maybe Text) rdcfsDBClusterParameterGroupName = lens _rdcfsDBClusterParameterGroupName (\ s a -> s{_rdcfsDBClusterParameterGroupName = a}); @@ -248,7 +255,11 @@ 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@+-- | A Boolean value that is true to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts, and otherwise false. Default: @false@+rdcfsEnableIAMDatabaseAuthentication :: Lens' RestoreDBClusterFromS3 (Maybe Bool)+rdcfsEnableIAMDatabaseAuthentication = lens _rdcfsEnableIAMDatabaseAuthentication (\ s a -> s{_rdcfsEnableIAMDatabaseAuthentication = 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 letters, numbers, 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}); @@ -256,7 +267,7 @@ 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.+-- | The name of the master user for the restored DB cluster. Constraints:     * Must be 1 to 16 letters or numbers.     * 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}); @@ -290,9 +301,9 @@                  RestoreDBClusterFromS3Response' <$>                    (x .@? "DBCluster") <*> (pure (fromEnum s))) -instance Hashable RestoreDBClusterFromS3+instance Hashable RestoreDBClusterFromS3 where -instance NFData RestoreDBClusterFromS3+instance NFData RestoreDBClusterFromS3 where  instance ToHeaders RestoreDBClusterFromS3 where         toHeaders = const mempty@@ -332,6 +343,8 @@                "OptionGroupName" =: _rdcfsOptionGroupName,                "Tags" =: toQuery (toQueryList "Tag" <$> _rdcfsTags),                "Port" =: _rdcfsPort,+               "EnableIAMDatabaseAuthentication" =:+                 _rdcfsEnableIAMDatabaseAuthentication,                "DBClusterIdentifier" =: _rdcfsDBClusterIdentifier,                "Engine" =: _rdcfsEngine,                "MasterUsername" =: _rdcfsMasterUsername,@@ -343,10 +356,11 @@  -- | /See:/ 'restoreDBClusterFromS3Response' smart constructor. data RestoreDBClusterFromS3Response = RestoreDBClusterFromS3Response'-    { _rdcfsrsDBCluster      :: !(Maybe DBCluster)-    , _rdcfsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -358,11 +372,10 @@     :: Int -- ^ 'rdcfsrsResponseStatus'     -> RestoreDBClusterFromS3Response restoreDBClusterFromS3Response pResponseStatus_ =-    RestoreDBClusterFromS3Response'-    { _rdcfsrsDBCluster = Nothing-    , _rdcfsrsResponseStatus = pResponseStatus_-    }+  RestoreDBClusterFromS3Response'+  {_rdcfsrsDBCluster = Nothing, _rdcfsrsResponseStatus = pResponseStatus_} + -- | Undocumented member. rdcfsrsDBCluster :: Lens' RestoreDBClusterFromS3Response (Maybe DBCluster) rdcfsrsDBCluster = lens _rdcfsrsDBCluster (\ s a -> s{_rdcfsrsDBCluster = a});@@ -371,4 +384,4 @@ rdcfsrsResponseStatus :: Lens' RestoreDBClusterFromS3Response Int rdcfsrsResponseStatus = lens _rdcfsrsResponseStatus (\ s a -> s{_rdcfsrsResponseStatus = a}); -instance NFData RestoreDBClusterFromS3Response+instance NFData RestoreDBClusterFromS3Response where
gen/Network/AWS/RDS/RestoreDBClusterFromSnapshot.hs view
@@ -12,15 +12,19 @@  -- | -- Module      : Network.AWS.RDS.RestoreDBClusterFromSnapshot--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a new DB cluster from a DB cluster snapshot. The target DB cluster is created from the source DB cluster restore point with the same configuration as the original source DB cluster, except that the new DB cluster is created with the default security group.+-- Creates a new DB cluster from a DB snapshot or DB cluster snapshot. -- --+-- If a DB snapshot is specified, the target DB cluster is created from the source DB snapshot with a default configuration and default security group.+--+-- If a DB cluster snapshot is specified, the target DB cluster is created from the source DB cluster restore point with the same configuration as the original source DB cluster, except that the new DB cluster is created with the default security group.+-- -- 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.RestoreDBClusterFromSnapshot@@ -38,6 +42,7 @@     , rdbcfsOptionGroupName     , rdbcfsTags     , rdbcfsPort+    , rdbcfsEnableIAMDatabaseAuthentication     , rdbcfsDBClusterIdentifier     , rdbcfsSnapshotIdentifier     , rdbcfsEngine@@ -50,12 +55,12 @@     , rdbcfsrsResponseStatus     ) 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+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  -- | --@@ -63,31 +68,33 @@ -- -- /See:/ 'restoreDBClusterFromSnapshot' smart constructor. data RestoreDBClusterFromSnapshot = RestoreDBClusterFromSnapshot'-    { _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)+  { _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)+  , _rdbcfsEnableIAMDatabaseAuthentication :: !(Maybe Bool)+  , _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: -- -- * 'rdbcfsEngineVersion' - The version of the database engine to use for the new DB cluster. ----- * 'rdbcfsDBSubnetGroupName' - 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@+-- * 'rdbcfsDBSubnetGroupName' - The name of the DB subnet group to use for the new DB cluster. Constraints: If supplied, must match the name of an existing DBSubnetGroup. Example: @mySubnetgroup@ -- -- * 'rdbcfsAvailabilityZones' - Provides the list of EC2 Availability Zones that instances in the restored DB cluster can be created in. ----- * 'rdbcfsKMSKeyId' - 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 encrypted using the specified encryption key.+-- * 'rdbcfsKMSKeyId' - The KMS key identifier to use when restoring an encrypted DB cluster from a DB snapshot or 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 snapshot or DB cluster snapshot in @SnapshotIdentifier@ is encrypted, then the restored DB cluster is encrypted using the KMS key that was used to encrypt the DB snapshot or DB cluster snapshot.     * If the DB snapshot or DB cluster snapshot in @SnapshotIdentifier@ is not encrypted, then the restored DB cluster is not encrypted. -- -- * 'rdbcfsVPCSecurityGroupIds' - A list of VPC security groups that the new DB cluster will belong to. --@@ -99,10 +106,12 @@ -- -- * 'rdbcfsPort' - 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. ----- * 'rdbcfsDBClusterIdentifier' - 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@+-- * 'rdbcfsEnableIAMDatabaseAuthentication' - A Boolean value that is true to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts, and otherwise false. Default: @false@ ----- * 'rdbcfsSnapshotIdentifier' - 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+-- * 'rdbcfsDBClusterIdentifier' - The name of the DB cluster to create from the DB snapshot or DB cluster snapshot. This parameter isn't case-sensitive. Constraints:     * Must contain from 1 to 255 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-snapshot-id@ --+-- * 'rdbcfsSnapshotIdentifier' - The identifier for the DB snapshot or DB cluster snapshot to restore from. You can use either the name or the Amazon Resource Name (ARN) to specify a DB cluster snapshot. However, you can use only the ARN to specify a DB snapshot. Constraints:     * Must match the identifier of an existing Snapshot.+-- -- * 'rdbcfsEngine' - 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 restoreDBClusterFromSnapshot     :: Text -- ^ 'rdbcfsDBClusterIdentifier'@@ -110,26 +119,28 @@     -> Text -- ^ 'rdbcfsEngine'     -> RestoreDBClusterFromSnapshot restoreDBClusterFromSnapshot pDBClusterIdentifier_ pSnapshotIdentifier_ pEngine_ =-    RestoreDBClusterFromSnapshot'-    { _rdbcfsEngineVersion = Nothing-    , _rdbcfsDBSubnetGroupName = Nothing-    , _rdbcfsAvailabilityZones = Nothing-    , _rdbcfsKMSKeyId = Nothing-    , _rdbcfsVPCSecurityGroupIds = Nothing-    , _rdbcfsDatabaseName = Nothing-    , _rdbcfsOptionGroupName = Nothing-    , _rdbcfsTags = Nothing-    , _rdbcfsPort = Nothing-    , _rdbcfsDBClusterIdentifier = pDBClusterIdentifier_-    , _rdbcfsSnapshotIdentifier = pSnapshotIdentifier_-    , _rdbcfsEngine = pEngine_-    }+  RestoreDBClusterFromSnapshot'+  { _rdbcfsEngineVersion = Nothing+  , _rdbcfsDBSubnetGroupName = Nothing+  , _rdbcfsAvailabilityZones = Nothing+  , _rdbcfsKMSKeyId = Nothing+  , _rdbcfsVPCSecurityGroupIds = Nothing+  , _rdbcfsDatabaseName = Nothing+  , _rdbcfsOptionGroupName = Nothing+  , _rdbcfsTags = Nothing+  , _rdbcfsPort = Nothing+  , _rdbcfsEnableIAMDatabaseAuthentication = Nothing+  , _rdbcfsDBClusterIdentifier = pDBClusterIdentifier_+  , _rdbcfsSnapshotIdentifier = pSnapshotIdentifier_+  , _rdbcfsEngine = pEngine_+  } + -- | The version of the database engine to use for the new DB cluster. 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@+-- | The name of the DB subnet group to use for the new DB cluster. Constraints: If supplied, must match the name of an existing DBSubnetGroup. Example: @mySubnetgroup@ rdbcfsDBSubnetGroupName :: Lens' RestoreDBClusterFromSnapshot (Maybe Text) rdbcfsDBSubnetGroupName = lens _rdbcfsDBSubnetGroupName (\ s a -> s{_rdbcfsDBSubnetGroupName = a}); @@ -137,7 +148,7 @@ 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 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 encrypted using the specified encryption key.+-- | The KMS key identifier to use when restoring an encrypted DB cluster from a DB snapshot or 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 snapshot or DB cluster snapshot in @SnapshotIdentifier@ is encrypted, then the restored DB cluster is encrypted using the KMS key that was used to encrypt the DB snapshot or DB cluster snapshot.     * If the DB snapshot or DB cluster snapshot in @SnapshotIdentifier@ is not encrypted, then the restored DB cluster is not encrypted. rdbcfsKMSKeyId :: Lens' RestoreDBClusterFromSnapshot (Maybe Text) rdbcfsKMSKeyId = lens _rdbcfsKMSKeyId (\ s a -> s{_rdbcfsKMSKeyId = a}); @@ -161,11 +172,15 @@ 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@+-- | A Boolean value that is true to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts, and otherwise false. Default: @false@+rdbcfsEnableIAMDatabaseAuthentication :: Lens' RestoreDBClusterFromSnapshot (Maybe Bool)+rdbcfsEnableIAMDatabaseAuthentication = lens _rdbcfsEnableIAMDatabaseAuthentication (\ s a -> s{_rdbcfsEnableIAMDatabaseAuthentication = a});++-- | The name of the DB cluster to create from the DB snapshot or DB cluster snapshot. This parameter isn't case-sensitive. Constraints:     * Must contain from 1 to 255 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-snapshot-id@ 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+-- | The identifier for the DB snapshot or DB cluster snapshot to restore from. You can use either the name or the Amazon Resource Name (ARN) to specify a DB cluster snapshot. However, you can use only the ARN to specify a DB snapshot. Constraints:     * Must match the identifier of an existing Snapshot. rdbcfsSnapshotIdentifier :: Lens' RestoreDBClusterFromSnapshot Text rdbcfsSnapshotIdentifier = lens _rdbcfsSnapshotIdentifier (\ s a -> s{_rdbcfsSnapshotIdentifier = a}); @@ -185,9 +200,9 @@                  RestoreDBClusterFromSnapshotResponse' <$>                    (x .@? "DBCluster") <*> (pure (fromEnum s))) -instance Hashable RestoreDBClusterFromSnapshot+instance Hashable RestoreDBClusterFromSnapshot where -instance NFData RestoreDBClusterFromSnapshot+instance NFData RestoreDBClusterFromSnapshot where  instance ToHeaders RestoreDBClusterFromSnapshot where         toHeaders = const mempty@@ -217,16 +232,19 @@                "Tags" =:                  toQuery (toQueryList "Tag" <$> _rdbcfsTags),                "Port" =: _rdbcfsPort,+               "EnableIAMDatabaseAuthentication" =:+                 _rdbcfsEnableIAMDatabaseAuthentication,                "DBClusterIdentifier" =: _rdbcfsDBClusterIdentifier,                "SnapshotIdentifier" =: _rdbcfsSnapshotIdentifier,                "Engine" =: _rdbcfsEngine]  -- | /See:/ 'restoreDBClusterFromSnapshotResponse' smart constructor. data RestoreDBClusterFromSnapshotResponse = RestoreDBClusterFromSnapshotResponse'-    { _rdbcfsrsDBCluster      :: !(Maybe DBCluster)-    , _rdbcfsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -238,11 +256,10 @@     :: Int -- ^ 'rdbcfsrsResponseStatus'     -> RestoreDBClusterFromSnapshotResponse restoreDBClusterFromSnapshotResponse pResponseStatus_ =-    RestoreDBClusterFromSnapshotResponse'-    { _rdbcfsrsDBCluster = Nothing-    , _rdbcfsrsResponseStatus = pResponseStatus_-    }+  RestoreDBClusterFromSnapshotResponse'+  {_rdbcfsrsDBCluster = Nothing, _rdbcfsrsResponseStatus = pResponseStatus_} + -- | Undocumented member. rdbcfsrsDBCluster :: Lens' RestoreDBClusterFromSnapshotResponse (Maybe DBCluster) rdbcfsrsDBCluster = lens _rdbcfsrsDBCluster (\ s a -> s{_rdbcfsrsDBCluster = a});@@ -252,3 +269,4 @@ rdbcfsrsResponseStatus = lens _rdbcfsrsResponseStatus (\ s a -> s{_rdbcfsrsResponseStatus = a});  instance NFData RestoreDBClusterFromSnapshotResponse+         where
gen/Network/AWS/RDS/RestoreDBClusterToPointInTime.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.RestoreDBClusterToPointInTime--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -33,10 +33,12 @@     , rdctpitDBSubnetGroupName     , rdctpitKMSKeyId     , rdctpitVPCSecurityGroupIds+    , rdctpitRestoreType     , rdctpitOptionGroupName     , rdctpitRestoreToTime     , rdctpitTags     , rdctpitPort+    , rdctpitEnableIAMDatabaseAuthentication     , rdctpitDBClusterIdentifier     , rdctpitSourceDBClusterIdentifier @@ -48,12 +50,12 @@     , rdctpitrsResponseStatus     ) 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+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  -- | --@@ -61,80 +63,94 @@ -- -- /See:/ 'restoreDBClusterToPointInTime' smart constructor. data RestoreDBClusterToPointInTime = RestoreDBClusterToPointInTime'-    { _rdctpitUseLatestRestorableTime   :: !(Maybe Bool)-    , _rdctpitDBSubnetGroupName         :: !(Maybe Text)-    , _rdctpitKMSKeyId                  :: !(Maybe Text)-    , _rdctpitVPCSecurityGroupIds       :: !(Maybe [Text])-    , _rdctpitOptionGroupName           :: !(Maybe Text)-    , _rdctpitRestoreToTime             :: !(Maybe ISO8601)-    , _rdctpitTags                      :: !(Maybe [Tag])-    , _rdctpitPort                      :: !(Maybe Int)-    , _rdctpitDBClusterIdentifier       :: !Text-    , _rdctpitSourceDBClusterIdentifier :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rdctpitUseLatestRestorableTime         :: !(Maybe Bool)+  , _rdctpitDBSubnetGroupName               :: !(Maybe Text)+  , _rdctpitKMSKeyId                        :: !(Maybe Text)+  , _rdctpitVPCSecurityGroupIds             :: !(Maybe [Text])+  , _rdctpitRestoreType                     :: !(Maybe Text)+  , _rdctpitOptionGroupName                 :: !(Maybe Text)+  , _rdctpitRestoreToTime                   :: !(Maybe ISO8601)+  , _rdctpitTags                            :: !(Maybe [Tag])+  , _rdctpitPort                            :: !(Maybe Int)+  , _rdctpitEnableIAMDatabaseAuthentication :: !(Maybe Bool)+  , _rdctpitDBClusterIdentifier             :: !Text+  , _rdctpitSourceDBClusterIdentifier       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestoreDBClusterToPointInTime' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'rdctpitUseLatestRestorableTime' - A value that is set to @true@ to restore the DB cluster to the latest restorable backup time, and @false@ otherwise.  Default: @false@  Constraints: Cannot be specified if @RestoreToTime@ parameter is provided. ----- * 'rdctpitDBSubnetGroupName' - The DB subnet group name to use for the new DB cluster. Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@+-- * 'rdctpitDBSubnetGroupName' - The DB subnet group name to use for the new DB cluster. Constraints: If supplied, must match the name of an existing DBSubnetGroup. Example: @mySubnetgroup@ ----- * 'rdctpitKMSKeyId' - The KMS key identifier to use when restoring an encrypted DB cluster from an encrypted DB cluster. 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. You can restore to a new DB cluster and encrypt the new DB cluster with a KMS key that is different than the KMS key used to encrypt the source DB cluster. The new DB cluster will be encrypted with the KMS key identified by the @KmsKeyId@ parameter. If you do not specify a value for the @KmsKeyId@ parameter, then the following will occur:     * 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 @DBClusterIdentifier@ refers to a DB cluster that is note encrypted, then the restore request is rejected.+-- * 'rdctpitKMSKeyId' - The KMS key identifier to use when restoring an encrypted DB cluster from an encrypted DB cluster. 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. You can restore to a new DB cluster and encrypt the new DB cluster with a KMS key that is different than the KMS key used to encrypt the source DB cluster. The new DB cluster is encrypted with the KMS key identified by the @KmsKeyId@ parameter. If you do not specify a value for the @KmsKeyId@ parameter, then the following will occur:     * 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 @DBClusterIdentifier@ refers to a DB cluster that is not encrypted, then the restore request is rejected. ----- * 'rdctpitVPCSecurityGroupIds' - A lst of VPC security groups that the new DB cluster belongs to.+-- * 'rdctpitVPCSecurityGroupIds' - A list of VPC security groups that the new DB cluster belongs to. --+-- * 'rdctpitRestoreType' - The type of restore to be performed. You can specify one of the following values:     * @full-copy@ - The new DB cluster is restored as a full copy of the source DB cluster.     * @copy-on-write@ - The new DB cluster is restored as a clone of the source DB cluster. Constraints: You cannot specify @copy-on-write@ if the engine version of the source DB cluster is earlier than 1.11. If you don't specify a @RestoreType@ value, then the new DB cluster is restored as a full copy of the source DB cluster.+-- -- * 'rdctpitOptionGroupName' - The name of the option group for the new DB cluster. ----- * 'rdctpitRestoreToTime' - The date and time to restore the DB cluster to. Valid Values: Value must be a time in Universal Coordinated Time (UTC) format 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@+-- * 'rdctpitRestoreToTime' - The date and time to restore the DB cluster to. Valid Values: Value must be a time in Universal Coordinated Time (UTC) format Constraints:     * Must be before the latest restorable time for the DB instance     * Must be specified if @UseLatestRestorableTime@ parameter is not provided     * Cannot be specified if @UseLatestRestorableTime@ parameter is true     * Cannot be specified if @RestoreType@ parameter is @copy-on-write@  Example: @2015-03-07T23:45:00Z@ -- -- * 'rdctpitTags' - Undocumented member. -- -- * 'rdctpitPort' - 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. ----- * 'rdctpitDBClusterIdentifier' - The name of the new DB cluster to be created. 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+-- * 'rdctpitEnableIAMDatabaseAuthentication' - A Boolean value that is true to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts, and otherwise false. Default: @false@ ----- * 'rdctpitSourceDBClusterIdentifier' - The identifier of the source DB cluster from which to restore. 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+-- * 'rdctpitDBClusterIdentifier' - The name of the new DB cluster to be created. Constraints:     * Must contain from 1 to 63 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+--+-- * 'rdctpitSourceDBClusterIdentifier' - The identifier of the source DB cluster from which to restore. Constraints:     * Must match the identifier of an existing DBCluster. restoreDBClusterToPointInTime     :: Text -- ^ 'rdctpitDBClusterIdentifier'     -> Text -- ^ 'rdctpitSourceDBClusterIdentifier'     -> RestoreDBClusterToPointInTime restoreDBClusterToPointInTime pDBClusterIdentifier_ pSourceDBClusterIdentifier_ =-    RestoreDBClusterToPointInTime'-    { _rdctpitUseLatestRestorableTime = Nothing-    , _rdctpitDBSubnetGroupName = Nothing-    , _rdctpitKMSKeyId = Nothing-    , _rdctpitVPCSecurityGroupIds = Nothing-    , _rdctpitOptionGroupName = Nothing-    , _rdctpitRestoreToTime = Nothing-    , _rdctpitTags = Nothing-    , _rdctpitPort = Nothing-    , _rdctpitDBClusterIdentifier = pDBClusterIdentifier_-    , _rdctpitSourceDBClusterIdentifier = pSourceDBClusterIdentifier_-    }+  RestoreDBClusterToPointInTime'+  { _rdctpitUseLatestRestorableTime = Nothing+  , _rdctpitDBSubnetGroupName = Nothing+  , _rdctpitKMSKeyId = Nothing+  , _rdctpitVPCSecurityGroupIds = Nothing+  , _rdctpitRestoreType = Nothing+  , _rdctpitOptionGroupName = Nothing+  , _rdctpitRestoreToTime = Nothing+  , _rdctpitTags = Nothing+  , _rdctpitPort = Nothing+  , _rdctpitEnableIAMDatabaseAuthentication = Nothing+  , _rdctpitDBClusterIdentifier = pDBClusterIdentifier_+  , _rdctpitSourceDBClusterIdentifier = pSourceDBClusterIdentifier_+  } + -- | A value that is set to @true@ to restore the DB cluster to the latest restorable backup time, and @false@ otherwise.  Default: @false@  Constraints: Cannot be specified if @RestoreToTime@ parameter is provided. rdctpitUseLatestRestorableTime :: Lens' RestoreDBClusterToPointInTime (Maybe Bool) rdctpitUseLatestRestorableTime = lens _rdctpitUseLatestRestorableTime (\ s a -> s{_rdctpitUseLatestRestorableTime = a}); --- | The DB subnet group name to use for the new DB cluster. Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@+-- | The DB subnet group name to use for the new DB cluster. Constraints: If supplied, must match the name of an existing DBSubnetGroup. Example: @mySubnetgroup@ rdctpitDBSubnetGroupName :: Lens' RestoreDBClusterToPointInTime (Maybe Text) rdctpitDBSubnetGroupName = lens _rdctpitDBSubnetGroupName (\ s a -> s{_rdctpitDBSubnetGroupName = a}); --- | The KMS key identifier to use when restoring an encrypted DB cluster from an encrypted DB cluster. 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. You can restore to a new DB cluster and encrypt the new DB cluster with a KMS key that is different than the KMS key used to encrypt the source DB cluster. The new DB cluster will be encrypted with the KMS key identified by the @KmsKeyId@ parameter. If you do not specify a value for the @KmsKeyId@ parameter, then the following will occur:     * 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 @DBClusterIdentifier@ refers to a DB cluster that is note encrypted, then the restore request is rejected.+-- | The KMS key identifier to use when restoring an encrypted DB cluster from an encrypted DB cluster. 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. You can restore to a new DB cluster and encrypt the new DB cluster with a KMS key that is different than the KMS key used to encrypt the source DB cluster. The new DB cluster is encrypted with the KMS key identified by the @KmsKeyId@ parameter. If you do not specify a value for the @KmsKeyId@ parameter, then the following will occur:     * 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 @DBClusterIdentifier@ refers to a DB cluster that is not encrypted, then the restore request is rejected. rdctpitKMSKeyId :: Lens' RestoreDBClusterToPointInTime (Maybe Text) rdctpitKMSKeyId = lens _rdctpitKMSKeyId (\ s a -> s{_rdctpitKMSKeyId = a}); --- | A lst of VPC security groups that the new DB cluster belongs to.+-- | A list of VPC security groups that the new DB cluster belongs to. rdctpitVPCSecurityGroupIds :: Lens' RestoreDBClusterToPointInTime [Text] rdctpitVPCSecurityGroupIds = lens _rdctpitVPCSecurityGroupIds (\ s a -> s{_rdctpitVPCSecurityGroupIds = a}) . _Default . _Coerce; +-- | The type of restore to be performed. You can specify one of the following values:     * @full-copy@ - The new DB cluster is restored as a full copy of the source DB cluster.     * @copy-on-write@ - The new DB cluster is restored as a clone of the source DB cluster. Constraints: You cannot specify @copy-on-write@ if the engine version of the source DB cluster is earlier than 1.11. If you don't specify a @RestoreType@ value, then the new DB cluster is restored as a full copy of the source DB cluster.+rdctpitRestoreType :: Lens' RestoreDBClusterToPointInTime (Maybe Text)+rdctpitRestoreType = lens _rdctpitRestoreType (\ s a -> s{_rdctpitRestoreType = a});+ -- | The name of the option group for the new DB cluster. rdctpitOptionGroupName :: Lens' RestoreDBClusterToPointInTime (Maybe Text) rdctpitOptionGroupName = lens _rdctpitOptionGroupName (\ s a -> s{_rdctpitOptionGroupName = a}); --- | The date and time to restore the DB cluster to. Valid Values: Value must be a time in Universal Coordinated Time (UTC) format 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@+-- | The date and time to restore the DB cluster to. Valid Values: Value must be a time in Universal Coordinated Time (UTC) format Constraints:     * Must be before the latest restorable time for the DB instance     * Must be specified if @UseLatestRestorableTime@ parameter is not provided     * Cannot be specified if @UseLatestRestorableTime@ parameter is true     * Cannot be specified if @RestoreType@ parameter is @copy-on-write@  Example: @2015-03-07T23:45:00Z@ rdctpitRestoreToTime :: Lens' RestoreDBClusterToPointInTime (Maybe UTCTime) rdctpitRestoreToTime = lens _rdctpitRestoreToTime (\ s a -> s{_rdctpitRestoreToTime = a}) . mapping _Time; @@ -146,11 +162,15 @@ rdctpitPort :: Lens' RestoreDBClusterToPointInTime (Maybe Int) rdctpitPort = lens _rdctpitPort (\ s a -> s{_rdctpitPort = a}); --- | The name of the new DB cluster to be created. 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+-- | A Boolean value that is true to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts, and otherwise false. Default: @false@+rdctpitEnableIAMDatabaseAuthentication :: Lens' RestoreDBClusterToPointInTime (Maybe Bool)+rdctpitEnableIAMDatabaseAuthentication = lens _rdctpitEnableIAMDatabaseAuthentication (\ s a -> s{_rdctpitEnableIAMDatabaseAuthentication = a});++-- | The name of the new DB cluster to be created. Constraints:     * Must contain from 1 to 63 letters, numbers, 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}); --- | The identifier of the source DB cluster from which to restore. 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+-- | The identifier of the source DB cluster from which to restore. Constraints:     * Must match the identifier of an existing DBCluster. rdctpitSourceDBClusterIdentifier :: Lens' RestoreDBClusterToPointInTime Text rdctpitSourceDBClusterIdentifier = lens _rdctpitSourceDBClusterIdentifier (\ s a -> s{_rdctpitSourceDBClusterIdentifier = a}); @@ -166,9 +186,9 @@                  RestoreDBClusterToPointInTimeResponse' <$>                    (x .@? "DBCluster") <*> (pure (fromEnum s))) -instance Hashable RestoreDBClusterToPointInTime+instance Hashable RestoreDBClusterToPointInTime where -instance NFData RestoreDBClusterToPointInTime+instance NFData RestoreDBClusterToPointInTime where  instance ToHeaders RestoreDBClusterToPointInTime          where@@ -191,21 +211,25 @@                  toQuery                    (toQueryList "VpcSecurityGroupId" <$>                       _rdctpitVPCSecurityGroupIds),+               "RestoreType" =: _rdctpitRestoreType,                "OptionGroupName" =: _rdctpitOptionGroupName,                "RestoreToTime" =: _rdctpitRestoreToTime,                "Tags" =:                  toQuery (toQueryList "Tag" <$> _rdctpitTags),                "Port" =: _rdctpitPort,+               "EnableIAMDatabaseAuthentication" =:+                 _rdctpitEnableIAMDatabaseAuthentication,                "DBClusterIdentifier" =: _rdctpitDBClusterIdentifier,                "SourceDBClusterIdentifier" =:                  _rdctpitSourceDBClusterIdentifier]  -- | /See:/ 'restoreDBClusterToPointInTimeResponse' smart constructor. data RestoreDBClusterToPointInTimeResponse = RestoreDBClusterToPointInTimeResponse'-    { _rdctpitrsDBCluster      :: !(Maybe DBCluster)-    , _rdctpitrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rdctpitrsDBCluster      :: !(Maybe DBCluster)+  , _rdctpitrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestoreDBClusterToPointInTimeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -217,11 +241,10 @@     :: Int -- ^ 'rdctpitrsResponseStatus'     -> RestoreDBClusterToPointInTimeResponse restoreDBClusterToPointInTimeResponse pResponseStatus_ =-    RestoreDBClusterToPointInTimeResponse'-    { _rdctpitrsDBCluster = Nothing-    , _rdctpitrsResponseStatus = pResponseStatus_-    }+  RestoreDBClusterToPointInTimeResponse'+  {_rdctpitrsDBCluster = Nothing, _rdctpitrsResponseStatus = pResponseStatus_} + -- | Undocumented member. rdctpitrsDBCluster :: Lens' RestoreDBClusterToPointInTimeResponse (Maybe DBCluster) rdctpitrsDBCluster = lens _rdctpitrsDBCluster (\ s a -> s{_rdctpitrsDBCluster = a});@@ -231,3 +254,4 @@ rdctpitrsResponseStatus = lens _rdctpitrsResponseStatus (\ s a -> s{_rdctpitrsResponseStatus = a});  instance NFData RestoreDBClusterToPointInTimeResponse+         where
gen/Network/AWS/RDS/RestoreDBInstanceFromDBSnapshot.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.RestoreDBInstanceFromDBSnapshot--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -48,6 +48,7 @@     , rdifdsDomainIAMRoleName     , rdifdsTags     , rdifdsPort+    , rdifdsEnableIAMDatabaseAuthentication     , rdifdsStorageType     , rdifdsDBName     , rdifdsDBInstanceIdentifier@@ -61,12 +62,12 @@     , rdifdsrsResponseStatus     ) 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+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  -- | --@@ -74,52 +75,54 @@ -- -- /See:/ 'restoreDBInstanceFromDBSnapshot' smart constructor. data RestoreDBInstanceFromDBSnapshot = RestoreDBInstanceFromDBSnapshot'-    { _rdifdsPubliclyAccessible      :: !(Maybe Bool)-    , _rdifdsAutoMinorVersionUpgrade :: !(Maybe Bool)-    , _rdifdsDBSubnetGroupName       :: !(Maybe Text)-    , _rdifdsIOPS                    :: !(Maybe Int)-    , _rdifdsDomain                  :: !(Maybe Text)-    , _rdifdsEngine                  :: !(Maybe Text)-    , _rdifdsTDECredentialPassword   :: !(Maybe Text)-    , _rdifdsDBInstanceClass         :: !(Maybe Text)-    , _rdifdsLicenseModel            :: !(Maybe Text)-    , _rdifdsAvailabilityZone        :: !(Maybe Text)-    , _rdifdsMultiAZ                 :: !(Maybe Bool)-    , _rdifdsOptionGroupName         :: !(Maybe Text)-    , _rdifdsCopyTagsToSnapshot      :: !(Maybe Bool)-    , _rdifdsTDECredentialARN        :: !(Maybe Text)-    , _rdifdsDomainIAMRoleName       :: !(Maybe Text)-    , _rdifdsTags                    :: !(Maybe [Tag])-    , _rdifdsPort                    :: !(Maybe Int)-    , _rdifdsStorageType             :: !(Maybe Text)-    , _rdifdsDBName                  :: !(Maybe Text)-    , _rdifdsDBInstanceIdentifier    :: !Text-    , _rdifdsDBSnapshotIdentifier    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rdifdsPubliclyAccessible              :: !(Maybe Bool)+  , _rdifdsAutoMinorVersionUpgrade         :: !(Maybe Bool)+  , _rdifdsDBSubnetGroupName               :: !(Maybe Text)+  , _rdifdsIOPS                            :: !(Maybe Int)+  , _rdifdsDomain                          :: !(Maybe Text)+  , _rdifdsEngine                          :: !(Maybe Text)+  , _rdifdsTDECredentialPassword           :: !(Maybe Text)+  , _rdifdsDBInstanceClass                 :: !(Maybe Text)+  , _rdifdsLicenseModel                    :: !(Maybe Text)+  , _rdifdsAvailabilityZone                :: !(Maybe Text)+  , _rdifdsMultiAZ                         :: !(Maybe Bool)+  , _rdifdsOptionGroupName                 :: !(Maybe Text)+  , _rdifdsCopyTagsToSnapshot              :: !(Maybe Bool)+  , _rdifdsTDECredentialARN                :: !(Maybe Text)+  , _rdifdsDomainIAMRoleName               :: !(Maybe Text)+  , _rdifdsTags                            :: !(Maybe [Tag])+  , _rdifdsPort                            :: !(Maybe Int)+  , _rdifdsEnableIAMDatabaseAuthentication :: !(Maybe Bool)+  , _rdifdsStorageType                     :: !(Maybe Text)+  , _rdifdsDBName                          :: !(Maybe Text)+  , _rdifdsDBInstanceIdentifier            :: !Text+  , _rdifdsDBSnapshotIdentifier            :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestoreDBInstanceFromDBSnapshot' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rdifdsPubliclyAccessible' - Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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.+-- * 'rdifdsPubliclyAccessible' - Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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 is 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 is private. ----- * 'rdifdsAutoMinorVersionUpgrade' - Indicates that minor version upgrades will be applied automatically to the DB instance during the maintenance window.+-- * 'rdifdsAutoMinorVersionUpgrade' - Indicates that minor version upgrades are applied automatically to the DB instance during the maintenance window. ----- * 'rdifdsDBSubnetGroupName' - The DB subnet group name to use for the new instance. Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@+-- * 'rdifdsDBSubnetGroupName' - The DB subnet group name to use for the new instance. Constraints: If supplied, must match the name of an existing DBSubnetGroup. Example: @mySubnetgroup@ ----- * 'rdifdsIOPS' - Specifies the amount of provisioned IOPS for the DB instance, expressed in I/O operations per second. If this parameter is not specified, the IOPS value will be taken from the backup. If this parameter is set to 0, the new instance will be converted to a non-PIOPS instance, which will take additional time, though your DB instance will be available for connections before the conversion starts. Constraints: Must be an integer greater than 1000. __SQL Server__  Setting the IOPS value for the SQL Server database engine is not supported.+-- * 'rdifdsIOPS' - Specifies the amount of provisioned IOPS for the DB instance, expressed in I/O operations per second. If this parameter is not specified, the IOPS value is taken from the backup. If this parameter is set to 0, the new instance is converted to a non-PIOPS instance. The conversion takes additional time, though your DB instance is available for connections before the conversion starts.  The provisioned IOPS value must follow the requirements for your database engine. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/CHAP_Storage.html#USER_PIOPS Amazon RDS Provisioned IOPS Storage to Improve Performance> .  Constraints: Must be an integer greater than 1000. -- -- * 'rdifdsDomain' - Specify the Active Directory Domain to restore the instance in. ----- * 'rdifdsEngine' - The database engine to use for the new instance. Default: The same as source Constraint: Must be compatible with the engine of the source Valid Values: @MySQL@ | @mariadb@ | @oracle-se1@ | @oracle-se@ | @oracle-ee@ | @sqlserver-ee@ | @sqlserver-se@ | @sqlserver-ex@ | @sqlserver-web@ | @postgres@ | @aurora@+-- * 'rdifdsEngine' - The database engine to use for the new instance. Default: The same as source Constraint: Must be compatible with the engine of the source. You can restore a MariaDB 10.1 DB instance from a MySQL 5.6 snapshot. Valid Values:     * @aurora@      * @mariadb@      * @mysql@      * @oracle-ee@      * @oracle-se2@      * @oracle-se1@      * @oracle-se@      * @postgres@      * @sqlserver-ee@      * @sqlserver-se@      * @sqlserver-ex@      * @sqlserver-web@ -- -- * 'rdifdsTDECredentialPassword' - The password for the given ARN from the Key Store in order to access the device. ----- * 'rdifdsDBInstanceClass' - The compute and memory capacity of the Amazon RDS DB instance. Valid Values: @db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.m4.large | db.m4.xlarge | db.m4.2xlarge | db.m4.4xlarge | db.m4.10xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large@+-- * 'rdifdsDBInstanceClass' - The compute and memory capacity of the Amazon RDS DB instance, for example, @db.m4.large@ . Not all DB instance classes are available in all regions, or for all database engines. For the full list of DB instance classes, and availability for your engine, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.DBInstanceClass.html DB Instance Class> in the Amazon RDS User Guide.  Default: The same DBInstanceClass as the original DB instance. -- -- * 'rdifdsLicenseModel' - License model information for the restored DB instance. Default: Same as source. Valid values: @license-included@ | @bring-your-own-license@ | @general-public-license@ ----- * 'rdifdsAvailabilityZone' - The EC2 Availability Zone that the database instance will be created in. Default: A random, system-chosen Availability Zone. Constraint: You cannot specify the AvailabilityZone parameter if the MultiAZ parameter is set to @true@ . Example: @us-east-1a@+-- * 'rdifdsAvailabilityZone' - The EC2 Availability Zone that the database instance is created in. Default: A random, system-chosen Availability Zone. Constraint: You cannot specify the AvailabilityZone parameter if the MultiAZ parameter is set to @true@ . Example: @us-east-1a@ -- -- * 'rdifdsMultiAZ' - Specifies if the DB instance is a Multi-AZ deployment. Constraint: You cannot specify the AvailabilityZone parameter if the MultiAZ parameter is set to @true@ . --@@ -135,55 +138,59 @@ -- -- * 'rdifdsPort' - The port number on which the database accepts connections. Default: The same port as the original DB instance Constraints: Value must be @1150-65535@ --+-- * 'rdifdsEnableIAMDatabaseAuthentication' - True to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts; otherwise false. You can enable IAM database authentication for the following database engines     * For MySQL 5.6, minor version 5.6.34 or higher     * For MySQL 5.7, minor version 5.7.16 or higher     * Aurora 5.6 or higher. Default: @false@+-- -- * 'rdifdsStorageType' - Specifies the storage type to be associated with the DB instance. Valid values: @standard | gp2 | io1@  If you specify @io1@ , you must also include a value for the @Iops@ parameter.  Default: @io1@ if the @Iops@ parameter is specified; otherwise @standard@ -- -- * 'rdifdsDBName' - The database name for the restored DB instance. ----- * 'rdifdsDBInstanceIdentifier' - Name of the DB instance to create from the DB snapshot. This parameter isn't case-sensitive. 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@+-- * 'rdifdsDBInstanceIdentifier' - Name of the DB instance to create from the DB snapshot. This parameter isn't case-sensitive. Constraints:     * Must contain from 1 to 63 numbers, letters, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-snapshot-id@ ----- * 'rdifdsDBSnapshotIdentifier' - The identifier for the DB snapshot to restore from. 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.+-- * 'rdifdsDBSnapshotIdentifier' - The identifier for the DB snapshot to restore from. Constraints:     * Must match the identifier of an existing DBSnapshot.     * If you are restoring from a shared manual DB snapshot, the @DBSnapshotIdentifier@ must be the ARN of the shared DB snapshot. restoreDBInstanceFromDBSnapshot     :: Text -- ^ 'rdifdsDBInstanceIdentifier'     -> Text -- ^ 'rdifdsDBSnapshotIdentifier'     -> RestoreDBInstanceFromDBSnapshot restoreDBInstanceFromDBSnapshot pDBInstanceIdentifier_ pDBSnapshotIdentifier_ =-    RestoreDBInstanceFromDBSnapshot'-    { _rdifdsPubliclyAccessible = Nothing-    , _rdifdsAutoMinorVersionUpgrade = Nothing-    , _rdifdsDBSubnetGroupName = Nothing-    , _rdifdsIOPS = Nothing-    , _rdifdsDomain = Nothing-    , _rdifdsEngine = Nothing-    , _rdifdsTDECredentialPassword = Nothing-    , _rdifdsDBInstanceClass = Nothing-    , _rdifdsLicenseModel = Nothing-    , _rdifdsAvailabilityZone = Nothing-    , _rdifdsMultiAZ = Nothing-    , _rdifdsOptionGroupName = Nothing-    , _rdifdsCopyTagsToSnapshot = Nothing-    , _rdifdsTDECredentialARN = Nothing-    , _rdifdsDomainIAMRoleName = Nothing-    , _rdifdsTags = Nothing-    , _rdifdsPort = Nothing-    , _rdifdsStorageType = Nothing-    , _rdifdsDBName = Nothing-    , _rdifdsDBInstanceIdentifier = pDBInstanceIdentifier_-    , _rdifdsDBSnapshotIdentifier = pDBSnapshotIdentifier_-    }+  RestoreDBInstanceFromDBSnapshot'+  { _rdifdsPubliclyAccessible = Nothing+  , _rdifdsAutoMinorVersionUpgrade = Nothing+  , _rdifdsDBSubnetGroupName = Nothing+  , _rdifdsIOPS = Nothing+  , _rdifdsDomain = Nothing+  , _rdifdsEngine = Nothing+  , _rdifdsTDECredentialPassword = Nothing+  , _rdifdsDBInstanceClass = Nothing+  , _rdifdsLicenseModel = Nothing+  , _rdifdsAvailabilityZone = Nothing+  , _rdifdsMultiAZ = Nothing+  , _rdifdsOptionGroupName = Nothing+  , _rdifdsCopyTagsToSnapshot = Nothing+  , _rdifdsTDECredentialARN = Nothing+  , _rdifdsDomainIAMRoleName = Nothing+  , _rdifdsTags = Nothing+  , _rdifdsPort = Nothing+  , _rdifdsEnableIAMDatabaseAuthentication = Nothing+  , _rdifdsStorageType = Nothing+  , _rdifdsDBName = Nothing+  , _rdifdsDBInstanceIdentifier = pDBInstanceIdentifier_+  , _rdifdsDBSnapshotIdentifier = pDBSnapshotIdentifier_+  } --- | Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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.++-- | Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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 is 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 is private. rdifdsPubliclyAccessible :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Bool) rdifdsPubliclyAccessible = lens _rdifdsPubliclyAccessible (\ s a -> s{_rdifdsPubliclyAccessible = a}); --- | Indicates that minor version upgrades will be applied automatically to the DB instance during the maintenance window.+-- | Indicates that minor version upgrades are applied automatically to the DB instance during the maintenance window. rdifdsAutoMinorVersionUpgrade :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Bool) rdifdsAutoMinorVersionUpgrade = lens _rdifdsAutoMinorVersionUpgrade (\ s a -> s{_rdifdsAutoMinorVersionUpgrade = a}); --- | The DB subnet group name to use for the new instance. Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@+-- | The DB subnet group name to use for the new instance. Constraints: If supplied, must match the name of an existing DBSubnetGroup. Example: @mySubnetgroup@ rdifdsDBSubnetGroupName :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) rdifdsDBSubnetGroupName = lens _rdifdsDBSubnetGroupName (\ s a -> s{_rdifdsDBSubnetGroupName = a}); --- | Specifies the amount of provisioned IOPS for the DB instance, expressed in I/O operations per second. If this parameter is not specified, the IOPS value will be taken from the backup. If this parameter is set to 0, the new instance will be converted to a non-PIOPS instance, which will take additional time, though your DB instance will be available for connections before the conversion starts. Constraints: Must be an integer greater than 1000. __SQL Server__  Setting the IOPS value for the SQL Server database engine is not supported.+-- | Specifies the amount of provisioned IOPS for the DB instance, expressed in I/O operations per second. If this parameter is not specified, the IOPS value is taken from the backup. If this parameter is set to 0, the new instance is converted to a non-PIOPS instance. The conversion takes additional time, though your DB instance is available for connections before the conversion starts.  The provisioned IOPS value must follow the requirements for your database engine. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/CHAP_Storage.html#USER_PIOPS Amazon RDS Provisioned IOPS Storage to Improve Performance> .  Constraints: Must be an integer greater than 1000. rdifdsIOPS :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Int) rdifdsIOPS = lens _rdifdsIOPS (\ s a -> s{_rdifdsIOPS = a}); @@ -191,7 +198,7 @@ rdifdsDomain :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) rdifdsDomain = lens _rdifdsDomain (\ s a -> s{_rdifdsDomain = a}); --- | The database engine to use for the new instance. Default: The same as source Constraint: Must be compatible with the engine of the source Valid Values: @MySQL@ | @mariadb@ | @oracle-se1@ | @oracle-se@ | @oracle-ee@ | @sqlserver-ee@ | @sqlserver-se@ | @sqlserver-ex@ | @sqlserver-web@ | @postgres@ | @aurora@+-- | The database engine to use for the new instance. Default: The same as source Constraint: Must be compatible with the engine of the source. You can restore a MariaDB 10.1 DB instance from a MySQL 5.6 snapshot. Valid Values:     * @aurora@      * @mariadb@      * @mysql@      * @oracle-ee@      * @oracle-se2@      * @oracle-se1@      * @oracle-se@      * @postgres@      * @sqlserver-ee@      * @sqlserver-se@      * @sqlserver-ex@      * @sqlserver-web@ rdifdsEngine :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) rdifdsEngine = lens _rdifdsEngine (\ s a -> s{_rdifdsEngine = a}); @@ -199,7 +206,7 @@ rdifdsTDECredentialPassword :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) rdifdsTDECredentialPassword = lens _rdifdsTDECredentialPassword (\ s a -> s{_rdifdsTDECredentialPassword = a}); --- | The compute and memory capacity of the Amazon RDS DB instance. Valid Values: @db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.m4.large | db.m4.xlarge | db.m4.2xlarge | db.m4.4xlarge | db.m4.10xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large@+-- | The compute and memory capacity of the Amazon RDS DB instance, for example, @db.m4.large@ . Not all DB instance classes are available in all regions, or for all database engines. For the full list of DB instance classes, and availability for your engine, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.DBInstanceClass.html DB Instance Class> in the Amazon RDS User Guide.  Default: The same DBInstanceClass as the original DB instance. rdifdsDBInstanceClass :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) rdifdsDBInstanceClass = lens _rdifdsDBInstanceClass (\ s a -> s{_rdifdsDBInstanceClass = a}); @@ -207,7 +214,7 @@ rdifdsLicenseModel :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) rdifdsLicenseModel = lens _rdifdsLicenseModel (\ s a -> s{_rdifdsLicenseModel = a}); --- | The EC2 Availability Zone that the database instance will be created in. Default: A random, system-chosen Availability Zone. Constraint: You cannot specify the AvailabilityZone parameter if the MultiAZ parameter is set to @true@ . Example: @us-east-1a@+-- | The EC2 Availability Zone that the database instance is created in. Default: A random, system-chosen Availability Zone. Constraint: You cannot specify the AvailabilityZone parameter if the MultiAZ parameter is set to @true@ . Example: @us-east-1a@ rdifdsAvailabilityZone :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) rdifdsAvailabilityZone = lens _rdifdsAvailabilityZone (\ s a -> s{_rdifdsAvailabilityZone = a}); @@ -239,6 +246,10 @@ rdifdsPort :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Int) rdifdsPort = lens _rdifdsPort (\ s a -> s{_rdifdsPort = a}); +-- | True to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts; otherwise false. You can enable IAM database authentication for the following database engines     * For MySQL 5.6, minor version 5.6.34 or higher     * For MySQL 5.7, minor version 5.7.16 or higher     * Aurora 5.6 or higher. Default: @false@+rdifdsEnableIAMDatabaseAuthentication :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Bool)+rdifdsEnableIAMDatabaseAuthentication = lens _rdifdsEnableIAMDatabaseAuthentication (\ s a -> s{_rdifdsEnableIAMDatabaseAuthentication = a});+ -- | Specifies the storage type to be associated with the DB instance. Valid values: @standard | gp2 | io1@  If you specify @io1@ , you must also include a value for the @Iops@ parameter.  Default: @io1@ if the @Iops@ parameter is specified; otherwise @standard@ rdifdsStorageType :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) rdifdsStorageType = lens _rdifdsStorageType (\ s a -> s{_rdifdsStorageType = a});@@ -247,11 +258,11 @@ rdifdsDBName :: Lens' RestoreDBInstanceFromDBSnapshot (Maybe Text) rdifdsDBName = lens _rdifdsDBName (\ s a -> s{_rdifdsDBName = a}); --- | Name of the DB instance to create from the DB snapshot. This parameter isn't case-sensitive. 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@+-- | Name of the DB instance to create from the DB snapshot. This parameter isn't case-sensitive. Constraints:     * Must contain from 1 to 63 numbers, letters, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens Example: @my-snapshot-id@ rdifdsDBInstanceIdentifier :: Lens' RestoreDBInstanceFromDBSnapshot Text rdifdsDBInstanceIdentifier = lens _rdifdsDBInstanceIdentifier (\ s a -> s{_rdifdsDBInstanceIdentifier = a}); --- | The identifier for the DB snapshot to restore from. 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.+-- | The identifier for the DB snapshot to restore from. Constraints:     * Must match the identifier of an existing DBSnapshot.     * If you are restoring from a shared manual DB snapshot, the @DBSnapshotIdentifier@ must be the ARN of the shared DB snapshot. rdifdsDBSnapshotIdentifier :: Lens' RestoreDBInstanceFromDBSnapshot Text rdifdsDBSnapshotIdentifier = lens _rdifdsDBSnapshotIdentifier (\ s a -> s{_rdifdsDBSnapshotIdentifier = a}); @@ -268,8 +279,9 @@                    (x .@? "DBInstance") <*> (pure (fromEnum s)))  instance Hashable RestoreDBInstanceFromDBSnapshot+         where -instance NFData RestoreDBInstanceFromDBSnapshot+instance NFData RestoreDBInstanceFromDBSnapshot where  instance ToHeaders RestoreDBInstanceFromDBSnapshot          where@@ -304,6 +316,8 @@                "Tags" =:                  toQuery (toQueryList "Tag" <$> _rdifdsTags),                "Port" =: _rdifdsPort,+               "EnableIAMDatabaseAuthentication" =:+                 _rdifdsEnableIAMDatabaseAuthentication,                "StorageType" =: _rdifdsStorageType,                "DBName" =: _rdifdsDBName,                "DBInstanceIdentifier" =:@@ -313,10 +327,11 @@  -- | /See:/ 'restoreDBInstanceFromDBSnapshotResponse' smart constructor. data RestoreDBInstanceFromDBSnapshotResponse = RestoreDBInstanceFromDBSnapshotResponse'-    { _rdifdsrsDBInstance     :: !(Maybe DBInstance)-    , _rdifdsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rdifdsrsDBInstance     :: !(Maybe DBInstance)+  , _rdifdsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestoreDBInstanceFromDBSnapshotResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -328,11 +343,10 @@     :: Int -- ^ 'rdifdsrsResponseStatus'     -> RestoreDBInstanceFromDBSnapshotResponse restoreDBInstanceFromDBSnapshotResponse pResponseStatus_ =-    RestoreDBInstanceFromDBSnapshotResponse'-    { _rdifdsrsDBInstance = Nothing-    , _rdifdsrsResponseStatus = pResponseStatus_-    }+  RestoreDBInstanceFromDBSnapshotResponse'+  {_rdifdsrsDBInstance = Nothing, _rdifdsrsResponseStatus = pResponseStatus_} + -- | Undocumented member. rdifdsrsDBInstance :: Lens' RestoreDBInstanceFromDBSnapshotResponse (Maybe DBInstance) rdifdsrsDBInstance = lens _rdifdsrsDBInstance (\ s a -> s{_rdifdsrsDBInstance = a});@@ -342,4 +356,5 @@ rdifdsrsResponseStatus = lens _rdifdsrsResponseStatus (\ s a -> s{_rdifdsrsResponseStatus = a});  instance NFData-         RestoreDBInstanceFromDBSnapshotResponse+           RestoreDBInstanceFromDBSnapshotResponse+         where
gen/Network/AWS/RDS/RestoreDBInstanceToPointInTime.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.RestoreDBInstanceToPointInTime--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -48,6 +48,7 @@     , rditpitDomainIAMRoleName     , rditpitTags     , rditpitPort+    , rditpitEnableIAMDatabaseAuthentication     , rditpitStorageType     , rditpitDBName     , rditpitSourceDBInstanceIdentifier@@ -61,12 +62,12 @@     , rditpitrsResponseStatus     ) 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+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  -- | --@@ -74,42 +75,44 @@ -- -- /See:/ 'restoreDBInstanceToPointInTime' smart constructor. data RestoreDBInstanceToPointInTime = RestoreDBInstanceToPointInTime'-    { _rditpitUseLatestRestorableTime    :: !(Maybe Bool)-    , _rditpitPubliclyAccessible         :: !(Maybe Bool)-    , _rditpitAutoMinorVersionUpgrade    :: !(Maybe Bool)-    , _rditpitDBSubnetGroupName          :: !(Maybe Text)-    , _rditpitRestoreTime                :: !(Maybe ISO8601)-    , _rditpitIOPS                       :: !(Maybe Int)-    , _rditpitDomain                     :: !(Maybe Text)-    , _rditpitEngine                     :: !(Maybe Text)-    , _rditpitTDECredentialPassword      :: !(Maybe Text)-    , _rditpitDBInstanceClass            :: !(Maybe Text)-    , _rditpitLicenseModel               :: !(Maybe Text)-    , _rditpitAvailabilityZone           :: !(Maybe Text)-    , _rditpitMultiAZ                    :: !(Maybe Bool)-    , _rditpitOptionGroupName            :: !(Maybe Text)-    , _rditpitCopyTagsToSnapshot         :: !(Maybe Bool)-    , _rditpitTDECredentialARN           :: !(Maybe Text)-    , _rditpitDomainIAMRoleName          :: !(Maybe Text)-    , _rditpitTags                       :: !(Maybe [Tag])-    , _rditpitPort                       :: !(Maybe Int)-    , _rditpitStorageType                :: !(Maybe Text)-    , _rditpitDBName                     :: !(Maybe Text)-    , _rditpitSourceDBInstanceIdentifier :: !Text-    , _rditpitTargetDBInstanceIdentifier :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rditpitUseLatestRestorableTime         :: !(Maybe Bool)+  , _rditpitPubliclyAccessible              :: !(Maybe Bool)+  , _rditpitAutoMinorVersionUpgrade         :: !(Maybe Bool)+  , _rditpitDBSubnetGroupName               :: !(Maybe Text)+  , _rditpitRestoreTime                     :: !(Maybe ISO8601)+  , _rditpitIOPS                            :: !(Maybe Int)+  , _rditpitDomain                          :: !(Maybe Text)+  , _rditpitEngine                          :: !(Maybe Text)+  , _rditpitTDECredentialPassword           :: !(Maybe Text)+  , _rditpitDBInstanceClass                 :: !(Maybe Text)+  , _rditpitLicenseModel                    :: !(Maybe Text)+  , _rditpitAvailabilityZone                :: !(Maybe Text)+  , _rditpitMultiAZ                         :: !(Maybe Bool)+  , _rditpitOptionGroupName                 :: !(Maybe Text)+  , _rditpitCopyTagsToSnapshot              :: !(Maybe Bool)+  , _rditpitTDECredentialARN                :: !(Maybe Text)+  , _rditpitDomainIAMRoleName               :: !(Maybe Text)+  , _rditpitTags                            :: !(Maybe [Tag])+  , _rditpitPort                            :: !(Maybe Int)+  , _rditpitEnableIAMDatabaseAuthentication :: !(Maybe Bool)+  , _rditpitStorageType                     :: !(Maybe Text)+  , _rditpitDBName                          :: !(Maybe Text)+  , _rditpitSourceDBInstanceIdentifier      :: !Text+  , _rditpitTargetDBInstanceIdentifier      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestoreDBInstanceToPointInTime' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'rditpitUseLatestRestorableTime' - Specifies whether (@true@ ) or not (@false@ ) the DB instance is restored from the latest backup time.  Default: @false@  Constraints: Cannot be specified if RestoreTime parameter is provided. ----- * 'rditpitPubliclyAccessible' - Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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.+-- * 'rditpitPubliclyAccessible' - Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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 is 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 is private. ----- * 'rditpitAutoMinorVersionUpgrade' - Indicates that minor version upgrades will be applied automatically to the DB instance during the maintenance window.+-- * 'rditpitAutoMinorVersionUpgrade' - Indicates that minor version upgrades are applied automatically to the DB instance during the maintenance window. ----- * 'rditpitDBSubnetGroupName' - The DB subnet group name to use for the new instance. Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@+-- * 'rditpitDBSubnetGroupName' - The DB subnet group name to use for the new instance. Constraints: If supplied, must match the name of an existing DBSubnetGroup. Example: @mySubnetgroup@ -- -- * 'rditpitRestoreTime' - The date and time to restore from. Valid Values: Value must be a time in Universal Coordinated Time (UTC) format 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@ --@@ -117,15 +120,15 @@ -- -- * 'rditpitDomain' - Specify the Active Directory Domain to restore the instance in. ----- * 'rditpitEngine' - The database engine to use for the new instance. Default: The same as source Constraint: Must be compatible with the engine of the source Valid Values: @MySQL@ | @mariadb@ | @oracle-se1@ | @oracle-se@ | @oracle-ee@ | @sqlserver-ee@ | @sqlserver-se@ | @sqlserver-ex@ | @sqlserver-web@ | @postgres@ | @aurora@+-- * 'rditpitEngine' - The database engine to use for the new instance. Default: The same as source Constraint: Must be compatible with the engine of the source Valid Values:     * @aurora@      * @mariadb@      * @mysql@      * @oracle-ee@      * @oracle-se2@      * @oracle-se1@      * @oracle-se@      * @postgres@      * @sqlserver-ee@      * @sqlserver-se@      * @sqlserver-ex@      * @sqlserver-web@ -- -- * 'rditpitTDECredentialPassword' - The password for the given ARN from the Key Store in order to access the device. ----- * 'rditpitDBInstanceClass' - The compute and memory capacity of the Amazon RDS DB instance. Valid Values: @db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.m4.large | db.m4.xlarge | db.m4.2xlarge | db.m4.4xlarge | db.m4.10xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large@  Default: The same DBInstanceClass as the original DB instance.+-- * 'rditpitDBInstanceClass' - The compute and memory capacity of the Amazon RDS DB instance, for example, @db.m4.large@ . Not all DB instance classes are available in all regions, or for all database engines. For the full list of DB instance classes, and availability for your engine, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.DBInstanceClass.html DB Instance Class> in the Amazon RDS User Guide.  Default: The same DBInstanceClass as the original DB instance. -- -- * 'rditpitLicenseModel' - License model information for the restored DB instance. Default: Same as source. Valid values: @license-included@ | @bring-your-own-license@ | @general-public-license@ ----- * 'rditpitAvailabilityZone' - The EC2 Availability Zone that the database instance will be created in. Default: A random, system-chosen Availability Zone. Constraint: You cannot specify the AvailabilityZone parameter if the MultiAZ parameter is set to true. Example: @us-east-1a@+-- * 'rditpitAvailabilityZone' - The EC2 Availability Zone that the database instance is created in. Default: A random, system-chosen Availability Zone. Constraint: You cannot specify the AvailabilityZone parameter if the MultiAZ parameter is set to true. Example: @us-east-1a@ -- -- * 'rditpitMultiAZ' - Specifies if the DB instance is a Multi-AZ deployment. Constraint: You cannot specify the AvailabilityZone parameter if the MultiAZ parameter is set to @true@ . --@@ -141,57 +144,61 @@ -- -- * 'rditpitPort' - The port number on which the database accepts connections. Constraints: Value must be @1150-65535@  Default: The same port as the original DB instance. --+-- * 'rditpitEnableIAMDatabaseAuthentication' - True to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts; otherwise false. You can enable IAM database authentication for the following database engines     * For MySQL 5.6, minor version 5.6.34 or higher     * For MySQL 5.7, minor version 5.7.16 or higher     * Aurora 5.6 or higher. Default: @false@+-- -- * 'rditpitStorageType' - Specifies the storage type to be associated with the DB instance. Valid values: @standard | gp2 | io1@  If you specify @io1@ , you must also include a value for the @Iops@ parameter.  Default: @io1@ if the @Iops@ parameter is specified; otherwise @standard@ -- -- * 'rditpitDBName' - The database name for the restored DB instance. ----- * 'rditpitSourceDBInstanceIdentifier' - The identifier of the source DB instance from which to restore. 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' - The identifier of the source DB instance from which to restore. Constraints:     * Must match the identifier of an existing DBInstance. ----- * 'rditpitTargetDBInstanceIdentifier' - The name of the new database instance to be created. 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' - The name of the new database instance to be created. Constraints:     * Must contain from 1 to 63 letters, numbers, or hyphens     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens restoreDBInstanceToPointInTime     :: Text -- ^ 'rditpitSourceDBInstanceIdentifier'     -> Text -- ^ 'rditpitTargetDBInstanceIdentifier'     -> RestoreDBInstanceToPointInTime restoreDBInstanceToPointInTime pSourceDBInstanceIdentifier_ pTargetDBInstanceIdentifier_ =-    RestoreDBInstanceToPointInTime'-    { _rditpitUseLatestRestorableTime = Nothing-    , _rditpitPubliclyAccessible = Nothing-    , _rditpitAutoMinorVersionUpgrade = Nothing-    , _rditpitDBSubnetGroupName = Nothing-    , _rditpitRestoreTime = Nothing-    , _rditpitIOPS = Nothing-    , _rditpitDomain = Nothing-    , _rditpitEngine = Nothing-    , _rditpitTDECredentialPassword = Nothing-    , _rditpitDBInstanceClass = Nothing-    , _rditpitLicenseModel = Nothing-    , _rditpitAvailabilityZone = Nothing-    , _rditpitMultiAZ = Nothing-    , _rditpitOptionGroupName = Nothing-    , _rditpitCopyTagsToSnapshot = Nothing-    , _rditpitTDECredentialARN = Nothing-    , _rditpitDomainIAMRoleName = Nothing-    , _rditpitTags = Nothing-    , _rditpitPort = Nothing-    , _rditpitStorageType = Nothing-    , _rditpitDBName = Nothing-    , _rditpitSourceDBInstanceIdentifier = pSourceDBInstanceIdentifier_-    , _rditpitTargetDBInstanceIdentifier = pTargetDBInstanceIdentifier_-    }+  RestoreDBInstanceToPointInTime'+  { _rditpitUseLatestRestorableTime = Nothing+  , _rditpitPubliclyAccessible = Nothing+  , _rditpitAutoMinorVersionUpgrade = Nothing+  , _rditpitDBSubnetGroupName = Nothing+  , _rditpitRestoreTime = Nothing+  , _rditpitIOPS = Nothing+  , _rditpitDomain = Nothing+  , _rditpitEngine = Nothing+  , _rditpitTDECredentialPassword = Nothing+  , _rditpitDBInstanceClass = Nothing+  , _rditpitLicenseModel = Nothing+  , _rditpitAvailabilityZone = Nothing+  , _rditpitMultiAZ = Nothing+  , _rditpitOptionGroupName = Nothing+  , _rditpitCopyTagsToSnapshot = Nothing+  , _rditpitTDECredentialARN = Nothing+  , _rditpitDomainIAMRoleName = Nothing+  , _rditpitTags = Nothing+  , _rditpitPort = Nothing+  , _rditpitEnableIAMDatabaseAuthentication = Nothing+  , _rditpitStorageType = Nothing+  , _rditpitDBName = Nothing+  , _rditpitSourceDBInstanceIdentifier = pSourceDBInstanceIdentifier_+  , _rditpitTargetDBInstanceIdentifier = pTargetDBInstanceIdentifier_+  } + -- | Specifies whether (@true@ ) or not (@false@ ) the DB instance is restored from the latest backup time.  Default: @false@  Constraints: Cannot be specified if RestoreTime parameter is provided. rditpitUseLatestRestorableTime :: Lens' RestoreDBInstanceToPointInTime (Maybe Bool) rditpitUseLatestRestorableTime = lens _rditpitUseLatestRestorableTime (\ s a -> s{_rditpitUseLatestRestorableTime = a}); --- | Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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.+-- | Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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 is 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 is private. rditpitPubliclyAccessible :: Lens' RestoreDBInstanceToPointInTime (Maybe Bool) rditpitPubliclyAccessible = lens _rditpitPubliclyAccessible (\ s a -> s{_rditpitPubliclyAccessible = a}); --- | Indicates that minor version upgrades will be applied automatically to the DB instance during the maintenance window.+-- | Indicates that minor version upgrades are applied automatically to the DB instance during the maintenance window. rditpitAutoMinorVersionUpgrade :: Lens' RestoreDBInstanceToPointInTime (Maybe Bool) rditpitAutoMinorVersionUpgrade = lens _rditpitAutoMinorVersionUpgrade (\ s a -> s{_rditpitAutoMinorVersionUpgrade = a}); --- | The DB subnet group name to use for the new instance. Constraints: Must contain no more than 255 alphanumeric characters, periods, underscores, spaces, or hyphens. Must not be default. Example: @mySubnetgroup@+-- | The DB subnet group name to use for the new instance. Constraints: If supplied, must match the name of an existing DBSubnetGroup. Example: @mySubnetgroup@ rditpitDBSubnetGroupName :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) rditpitDBSubnetGroupName = lens _rditpitDBSubnetGroupName (\ s a -> s{_rditpitDBSubnetGroupName = a}); @@ -207,7 +214,7 @@ rditpitDomain :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) rditpitDomain = lens _rditpitDomain (\ s a -> s{_rditpitDomain = a}); --- | The database engine to use for the new instance. Default: The same as source Constraint: Must be compatible with the engine of the source Valid Values: @MySQL@ | @mariadb@ | @oracle-se1@ | @oracle-se@ | @oracle-ee@ | @sqlserver-ee@ | @sqlserver-se@ | @sqlserver-ex@ | @sqlserver-web@ | @postgres@ | @aurora@+-- | The database engine to use for the new instance. Default: The same as source Constraint: Must be compatible with the engine of the source Valid Values:     * @aurora@      * @mariadb@      * @mysql@      * @oracle-ee@      * @oracle-se2@      * @oracle-se1@      * @oracle-se@      * @postgres@      * @sqlserver-ee@      * @sqlserver-se@      * @sqlserver-ex@      * @sqlserver-web@ rditpitEngine :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) rditpitEngine = lens _rditpitEngine (\ s a -> s{_rditpitEngine = a}); @@ -215,7 +222,7 @@ rditpitTDECredentialPassword :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) rditpitTDECredentialPassword = lens _rditpitTDECredentialPassword (\ s a -> s{_rditpitTDECredentialPassword = a}); --- | The compute and memory capacity of the Amazon RDS DB instance. Valid Values: @db.t1.micro | db.m1.small | db.m1.medium | db.m1.large | db.m1.xlarge | db.m2.2xlarge | db.m2.4xlarge | db.m3.medium | db.m3.large | db.m3.xlarge | db.m3.2xlarge | db.m4.large | db.m4.xlarge | db.m4.2xlarge | db.m4.4xlarge | db.m4.10xlarge | db.r3.large | db.r3.xlarge | db.r3.2xlarge | db.r3.4xlarge | db.r3.8xlarge | db.t2.micro | db.t2.small | db.t2.medium | db.t2.large@  Default: The same DBInstanceClass as the original DB instance.+-- | The compute and memory capacity of the Amazon RDS DB instance, for example, @db.m4.large@ . Not all DB instance classes are available in all regions, or for all database engines. For the full list of DB instance classes, and availability for your engine, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Concepts.DBInstanceClass.html DB Instance Class> in the Amazon RDS User Guide.  Default: The same DBInstanceClass as the original DB instance. rditpitDBInstanceClass :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) rditpitDBInstanceClass = lens _rditpitDBInstanceClass (\ s a -> s{_rditpitDBInstanceClass = a}); @@ -223,7 +230,7 @@ rditpitLicenseModel :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) rditpitLicenseModel = lens _rditpitLicenseModel (\ s a -> s{_rditpitLicenseModel = a}); --- | The EC2 Availability Zone that the database instance will be created in. Default: A random, system-chosen Availability Zone. Constraint: You cannot specify the AvailabilityZone parameter if the MultiAZ parameter is set to true. Example: @us-east-1a@+-- | The EC2 Availability Zone that the database instance is created in. Default: A random, system-chosen Availability Zone. Constraint: You cannot specify the AvailabilityZone parameter if the MultiAZ parameter is set to true. Example: @us-east-1a@ rditpitAvailabilityZone :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) rditpitAvailabilityZone = lens _rditpitAvailabilityZone (\ s a -> s{_rditpitAvailabilityZone = a}); @@ -255,6 +262,10 @@ rditpitPort :: Lens' RestoreDBInstanceToPointInTime (Maybe Int) rditpitPort = lens _rditpitPort (\ s a -> s{_rditpitPort = a}); +-- | True to enable mapping of AWS Identity and Access Management (IAM) accounts to database accounts; otherwise false. You can enable IAM database authentication for the following database engines     * For MySQL 5.6, minor version 5.6.34 or higher     * For MySQL 5.7, minor version 5.7.16 or higher     * Aurora 5.6 or higher. Default: @false@+rditpitEnableIAMDatabaseAuthentication :: Lens' RestoreDBInstanceToPointInTime (Maybe Bool)+rditpitEnableIAMDatabaseAuthentication = lens _rditpitEnableIAMDatabaseAuthentication (\ s a -> s{_rditpitEnableIAMDatabaseAuthentication = a});+ -- | Specifies the storage type to be associated with the DB instance. Valid values: @standard | gp2 | io1@  If you specify @io1@ , you must also include a value for the @Iops@ parameter.  Default: @io1@ if the @Iops@ parameter is specified; otherwise @standard@ rditpitStorageType :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) rditpitStorageType = lens _rditpitStorageType (\ s a -> s{_rditpitStorageType = a});@@ -263,11 +274,11 @@ rditpitDBName :: Lens' RestoreDBInstanceToPointInTime (Maybe Text) rditpitDBName = lens _rditpitDBName (\ s a -> s{_rditpitDBName = a}); --- | The identifier of the source DB instance from which to restore. 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+-- | The identifier of the source DB instance from which to restore. Constraints:     * Must match the identifier of an existing DBInstance. rditpitSourceDBInstanceIdentifier :: Lens' RestoreDBInstanceToPointInTime Text rditpitSourceDBInstanceIdentifier = lens _rditpitSourceDBInstanceIdentifier (\ s a -> s{_rditpitSourceDBInstanceIdentifier = a}); --- | The name of the new database instance to be created. 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+-- | The name of the new database instance to be created. Constraints:     * Must contain from 1 to 63 letters, numbers, 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}); @@ -284,8 +295,9 @@                    (x .@? "DBInstance") <*> (pure (fromEnum s)))  instance Hashable RestoreDBInstanceToPointInTime+         where -instance NFData RestoreDBInstanceToPointInTime+instance NFData RestoreDBInstanceToPointInTime where  instance ToHeaders RestoreDBInstanceToPointInTime          where@@ -322,6 +334,8 @@                "Tags" =:                  toQuery (toQueryList "Tag" <$> _rditpitTags),                "Port" =: _rditpitPort,+               "EnableIAMDatabaseAuthentication" =:+                 _rditpitEnableIAMDatabaseAuthentication,                "StorageType" =: _rditpitStorageType,                "DBName" =: _rditpitDBName,                "SourceDBInstanceIdentifier" =:@@ -331,10 +345,11 @@  -- | /See:/ 'restoreDBInstanceToPointInTimeResponse' smart constructor. data RestoreDBInstanceToPointInTimeResponse = RestoreDBInstanceToPointInTimeResponse'-    { _rditpitrsDBInstance     :: !(Maybe DBInstance)-    , _rditpitrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rditpitrsDBInstance     :: !(Maybe DBInstance)+  , _rditpitrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestoreDBInstanceToPointInTimeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -346,11 +361,10 @@     :: Int -- ^ 'rditpitrsResponseStatus'     -> RestoreDBInstanceToPointInTimeResponse restoreDBInstanceToPointInTimeResponse pResponseStatus_ =-    RestoreDBInstanceToPointInTimeResponse'-    { _rditpitrsDBInstance = Nothing-    , _rditpitrsResponseStatus = pResponseStatus_-    }+  RestoreDBInstanceToPointInTimeResponse'+  {_rditpitrsDBInstance = Nothing, _rditpitrsResponseStatus = pResponseStatus_} + -- | Undocumented member. rditpitrsDBInstance :: Lens' RestoreDBInstanceToPointInTimeResponse (Maybe DBInstance) rditpitrsDBInstance = lens _rditpitrsDBInstance (\ s a -> s{_rditpitrsDBInstance = a});@@ -360,4 +374,5 @@ rditpitrsResponseStatus = lens _rditpitrsResponseStatus (\ s a -> s{_rditpitrsResponseStatus = a});  instance NFData-         RestoreDBInstanceToPointInTimeResponse+           RestoreDBInstanceToPointInTimeResponse+         where
gen/Network/AWS/RDS/RevokeDBSecurityGroupIngress.hs view
@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.RDS.RevokeDBSecurityGroupIngress--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@     , rdsgirsResponseStatus     ) 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+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  -- | --@@ -54,13 +54,14 @@ -- -- /See:/ 'revokeDBSecurityGroupIngress' smart constructor. data RevokeDBSecurityGroupIngress = RevokeDBSecurityGroupIngress'-    { _rdsgiEC2SecurityGroupOwnerId :: !(Maybe Text)-    , _rdsgiEC2SecurityGroupName    :: !(Maybe Text)-    , _rdsgiCIdRIP                  :: !(Maybe Text)-    , _rdsgiEC2SecurityGroupId      :: !(Maybe Text)-    , _rdsgiDBSecurityGroupName     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rdsgiEC2SecurityGroupOwnerId :: !(Maybe Text)+  , _rdsgiEC2SecurityGroupName    :: !(Maybe Text)+  , _rdsgiCIdRIP                  :: !(Maybe Text)+  , _rdsgiEC2SecurityGroupId      :: !(Maybe Text)+  , _rdsgiDBSecurityGroupName     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RevokeDBSecurityGroupIngress' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,14 +79,15 @@     :: Text -- ^ 'rdsgiDBSecurityGroupName'     -> RevokeDBSecurityGroupIngress revokeDBSecurityGroupIngress pDBSecurityGroupName_ =-    RevokeDBSecurityGroupIngress'-    { _rdsgiEC2SecurityGroupOwnerId = Nothing-    , _rdsgiEC2SecurityGroupName = Nothing-    , _rdsgiCIdRIP = Nothing-    , _rdsgiEC2SecurityGroupId = Nothing-    , _rdsgiDBSecurityGroupName = pDBSecurityGroupName_-    }+  RevokeDBSecurityGroupIngress'+  { _rdsgiEC2SecurityGroupOwnerId = Nothing+  , _rdsgiEC2SecurityGroupName = Nothing+  , _rdsgiCIdRIP = Nothing+  , _rdsgiEC2SecurityGroupId = Nothing+  , _rdsgiDBSecurityGroupName = pDBSecurityGroupName_+  } + -- | The AWS Account Number of the owner of the EC2 security group specified in the @EC2SecurityGroupName@ parameter. The AWS Access Key ID is not an acceptable value. For VPC DB security groups, @EC2SecurityGroupId@ must be provided. Otherwise, EC2SecurityGroupOwnerId and either @EC2SecurityGroupName@ or @EC2SecurityGroupId@ must be provided. rdsgiEC2SecurityGroupOwnerId :: Lens' RevokeDBSecurityGroupIngress (Maybe Text) rdsgiEC2SecurityGroupOwnerId = lens _rdsgiEC2SecurityGroupOwnerId (\ s a -> s{_rdsgiEC2SecurityGroupOwnerId = a});@@ -118,9 +120,9 @@                  RevokeDBSecurityGroupIngressResponse' <$>                    (x .@? "DBSecurityGroup") <*> (pure (fromEnum s))) -instance Hashable RevokeDBSecurityGroupIngress+instance Hashable RevokeDBSecurityGroupIngress where -instance NFData RevokeDBSecurityGroupIngress+instance NFData RevokeDBSecurityGroupIngress where  instance ToHeaders RevokeDBSecurityGroupIngress where         toHeaders = const mempty@@ -143,10 +145,11 @@  -- | /See:/ 'revokeDBSecurityGroupIngressResponse' smart constructor. data RevokeDBSecurityGroupIngressResponse = RevokeDBSecurityGroupIngressResponse'-    { _rdsgirsDBSecurityGroup :: !(Maybe DBSecurityGroup)-    , _rdsgirsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rdsgirsDBSecurityGroup :: !(Maybe DBSecurityGroup)+  , _rdsgirsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RevokeDBSecurityGroupIngressResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -158,11 +161,10 @@     :: Int -- ^ 'rdsgirsResponseStatus'     -> RevokeDBSecurityGroupIngressResponse revokeDBSecurityGroupIngressResponse pResponseStatus_ =-    RevokeDBSecurityGroupIngressResponse'-    { _rdsgirsDBSecurityGroup = Nothing-    , _rdsgirsResponseStatus = pResponseStatus_-    }+  RevokeDBSecurityGroupIngressResponse'+  {_rdsgirsDBSecurityGroup = Nothing, _rdsgirsResponseStatus = pResponseStatus_} + -- | Undocumented member. rdsgirsDBSecurityGroup :: Lens' RevokeDBSecurityGroupIngressResponse (Maybe DBSecurityGroup) rdsgirsDBSecurityGroup = lens _rdsgirsDBSecurityGroup (\ s a -> s{_rdsgirsDBSecurityGroup = a});@@ -172,3 +174,4 @@ rdsgirsResponseStatus = lens _rdsgirsResponseStatus (\ s a -> s{_rdsgirsResponseStatus = a});  instance NFData RevokeDBSecurityGroupIngressResponse+         where
+ gen/Network/AWS/RDS/StartDBInstance.hs view
@@ -0,0 +1,125 @@+{-# 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.StartDBInstance+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts a DB instance that was stopped using the AWS console, the stop-db-instance AWS CLI command, or the StopDBInstance action. For more information, see Stopping and Starting a DB instance in the AWS RDS user guide.+--+--+module Network.AWS.RDS.StartDBInstance+    (+    -- * Creating a Request+      startDBInstance+    , StartDBInstance+    -- * Request Lenses+    , sdbiDBInstanceIdentifier++    -- * Destructuring the Response+    , startDBInstanceResponse+    , StartDBInstanceResponse+    -- * Response Lenses+    , sdbirsDBInstance+    , sdbirsResponseStatus+    ) 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:/ 'startDBInstance' smart constructor.+newtype StartDBInstance = StartDBInstance'+  { _sdbiDBInstanceIdentifier :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartDBInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sdbiDBInstanceIdentifier' - The user-supplied instance identifier.+startDBInstance+    :: Text -- ^ 'sdbiDBInstanceIdentifier'+    -> StartDBInstance+startDBInstance pDBInstanceIdentifier_ =+  StartDBInstance' {_sdbiDBInstanceIdentifier = pDBInstanceIdentifier_}+++-- | The user-supplied instance identifier.+sdbiDBInstanceIdentifier :: Lens' StartDBInstance Text+sdbiDBInstanceIdentifier = lens _sdbiDBInstanceIdentifier (\ s a -> s{_sdbiDBInstanceIdentifier = a});++instance AWSRequest StartDBInstance where+        type Rs StartDBInstance = StartDBInstanceResponse+        request = postQuery rds+        response+          = receiveXMLWrapper "StartDBInstanceResult"+              (\ s h x ->+                 StartDBInstanceResponse' <$>+                   (x .@? "DBInstance") <*> (pure (fromEnum s)))++instance Hashable StartDBInstance where++instance NFData StartDBInstance where++instance ToHeaders StartDBInstance where+        toHeaders = const mempty++instance ToPath StartDBInstance where+        toPath = const "/"++instance ToQuery StartDBInstance where+        toQuery StartDBInstance'{..}+          = mconcat+              ["Action" =: ("StartDBInstance" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "DBInstanceIdentifier" =: _sdbiDBInstanceIdentifier]++-- | /See:/ 'startDBInstanceResponse' smart constructor.+data StartDBInstanceResponse = StartDBInstanceResponse'+  { _sdbirsDBInstance     :: !(Maybe DBInstance)+  , _sdbirsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartDBInstanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sdbirsDBInstance' - Undocumented member.+--+-- * 'sdbirsResponseStatus' - -- | The response status code.+startDBInstanceResponse+    :: Int -- ^ 'sdbirsResponseStatus'+    -> StartDBInstanceResponse+startDBInstanceResponse pResponseStatus_ =+  StartDBInstanceResponse'+  {_sdbirsDBInstance = Nothing, _sdbirsResponseStatus = pResponseStatus_}+++-- | Undocumented member.+sdbirsDBInstance :: Lens' StartDBInstanceResponse (Maybe DBInstance)+sdbirsDBInstance = lens _sdbirsDBInstance (\ s a -> s{_sdbirsDBInstance = a});++-- | -- | The response status code.+sdbirsResponseStatus :: Lens' StartDBInstanceResponse Int+sdbirsResponseStatus = lens _sdbirsResponseStatus (\ s a -> s{_sdbirsResponseStatus = a});++instance NFData StartDBInstanceResponse where
+ gen/Network/AWS/RDS/StopDBInstance.hs view
@@ -0,0 +1,137 @@+{-# 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.StopDBInstance+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Stops a DB instance. When you stop a DB instance, Amazon RDS retains the DB instance's metadata, including its endpoint, DB parameter group, and option group membership. Amazon RDS also retains the transaction logs so you can do a point-in-time restore if necessary. For more information, see Stopping and Starting a DB instance in the AWS RDS user guide.+--+--+module Network.AWS.RDS.StopDBInstance+    (+    -- * Creating a Request+      stopDBInstance+    , StopDBInstance+    -- * Request Lenses+    , sdiDBSnapshotIdentifier+    , sdiDBInstanceIdentifier++    -- * Destructuring the Response+    , stopDBInstanceResponse+    , StopDBInstanceResponse+    -- * Response Lenses+    , sdirsDBInstance+    , sdirsResponseStatus+    ) 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:/ 'stopDBInstance' smart constructor.+data StopDBInstance = StopDBInstance'+  { _sdiDBSnapshotIdentifier :: !(Maybe Text)+  , _sdiDBInstanceIdentifier :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StopDBInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sdiDBSnapshotIdentifier' - The user-supplied instance identifier of the DB Snapshot created immediately before the DB instance is stopped.+--+-- * 'sdiDBInstanceIdentifier' - The user-supplied instance identifier.+stopDBInstance+    :: Text -- ^ 'sdiDBInstanceIdentifier'+    -> StopDBInstance+stopDBInstance pDBInstanceIdentifier_ =+  StopDBInstance'+  { _sdiDBSnapshotIdentifier = Nothing+  , _sdiDBInstanceIdentifier = pDBInstanceIdentifier_+  }+++-- | The user-supplied instance identifier of the DB Snapshot created immediately before the DB instance is stopped.+sdiDBSnapshotIdentifier :: Lens' StopDBInstance (Maybe Text)+sdiDBSnapshotIdentifier = lens _sdiDBSnapshotIdentifier (\ s a -> s{_sdiDBSnapshotIdentifier = a});++-- | The user-supplied instance identifier.+sdiDBInstanceIdentifier :: Lens' StopDBInstance Text+sdiDBInstanceIdentifier = lens _sdiDBInstanceIdentifier (\ s a -> s{_sdiDBInstanceIdentifier = a});++instance AWSRequest StopDBInstance where+        type Rs StopDBInstance = StopDBInstanceResponse+        request = postQuery rds+        response+          = receiveXMLWrapper "StopDBInstanceResult"+              (\ s h x ->+                 StopDBInstanceResponse' <$>+                   (x .@? "DBInstance") <*> (pure (fromEnum s)))++instance Hashable StopDBInstance where++instance NFData StopDBInstance where++instance ToHeaders StopDBInstance where+        toHeaders = const mempty++instance ToPath StopDBInstance where+        toPath = const "/"++instance ToQuery StopDBInstance where+        toQuery StopDBInstance'{..}+          = mconcat+              ["Action" =: ("StopDBInstance" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "DBSnapshotIdentifier" =: _sdiDBSnapshotIdentifier,+               "DBInstanceIdentifier" =: _sdiDBInstanceIdentifier]++-- | /See:/ 'stopDBInstanceResponse' smart constructor.+data StopDBInstanceResponse = StopDBInstanceResponse'+  { _sdirsDBInstance     :: !(Maybe DBInstance)+  , _sdirsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StopDBInstanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sdirsDBInstance' - Undocumented member.+--+-- * 'sdirsResponseStatus' - -- | The response status code.+stopDBInstanceResponse+    :: Int -- ^ 'sdirsResponseStatus'+    -> StopDBInstanceResponse+stopDBInstanceResponse pResponseStatus_ =+  StopDBInstanceResponse'+  {_sdirsDBInstance = Nothing, _sdirsResponseStatus = pResponseStatus_}+++-- | Undocumented member.+sdirsDBInstance :: Lens' StopDBInstanceResponse (Maybe DBInstance)+sdirsDBInstance = lens _sdirsDBInstance (\ s a -> s{_sdirsDBInstance = a});++-- | -- | The response status code.+sdirsResponseStatus :: Lens' StopDBInstanceResponse Int+sdirsResponseStatus = lens _sdirsResponseStatus (\ s a -> s{_sdirsResponseStatus = a});++instance NFData StopDBInstanceResponse where
gen/Network/AWS/RDS/Types.hs view
@@ -4,9 +4,9 @@  -- | -- Module      : Network.AWS.RDS.Types--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -140,10 +140,12 @@     , dcHostedZoneId     , dcDBClusterParameterGroup     , dcMasterUsername+    , dcIAMDatabaseAuthenticationEnabled     , dcDBClusterResourceId     , dcEarliestRestorableTime     , dcEngine     , dcDBClusterARN+    , dcCloneGroupId     , dcLatestRestorableTime     , dcPreferredMaintenanceWindow     , dcAvailabilityZones@@ -155,7 +157,9 @@     , dcBackupRetentionPeriod     , dcDBSubnetGroup     , dcDatabaseName+    , dcMultiAZ     , dcAllocatedStorage+    , dcClusterCreateTime     , dcEndpoint     , dcPercentProgress     , dcReaderEndpoint@@ -203,6 +207,7 @@     , dcsStorageEncrypted     , dcsDBClusterIdentifier     , dcsMasterUsername+    , dcsIAMDatabaseAuthenticationEnabled     , dcsDBClusterSnapshotARN     , dcsVPCId     , dcsDBClusterSnapshotIdentifier@@ -213,6 +218,7 @@     , dcsKMSKeyId     , dcsSnapshotCreateTime     , dcsAllocatedStorage+    , dcsSourceDBClusterSnapshotARN     , dcsClusterCreateTime     , dcsPercentProgress     , dcsPort@@ -254,6 +260,7 @@     , diDBInstanceARN     , diMasterUsername     , diReadReplicaDBInstanceIdentifiers+    , diIAMDatabaseAuthenticationEnabled     , diMonitoringRoleARN     , diIOPS     , diInstanceCreateTime@@ -273,11 +280,13 @@     , diAvailabilityZone     , diVPCSecurityGroups     , diBackupRetentionPeriod+    , diPerformanceInsightsKMSKeyId     , diDBSubnetGroup     , diMultiAZ     , diOptionGroupMemberships     , diEnhancedMonitoringResourceARN     , diSecondaryAvailabilityZone+    , diPerformanceInsightsEnabled     , diAllocatedStorage     , diDBiResourceId     , diDBParameterGroups@@ -288,6 +297,7 @@     , diDBInstanceStatus     , diDBInstancePort     , diPendingModifiedValues+    , diReadReplicaDBClusterIdentifiers     , diStorageType     , diStatusInfos     , diDomainMemberships@@ -345,6 +355,7 @@     , dsDBSnapshotARN     , dsMasterUsername     , dsSourceRegion+    , dsIAMDatabaseAuthenticationEnabled     , dsIOPS     , dsVPCId     , dsInstanceCreateTime@@ -403,6 +414,12 @@     , dmDomain     , dmIAMRoleName +    -- * DoubleRange+    , DoubleRange+    , doubleRange+    , drTo+    , drFrom+     -- * EC2SecurityGroup     , EC2SecurityGroup     , ec2SecurityGroup@@ -519,11 +536,14 @@     , ogoEngineName     , ogoMajorEngineVersion     , ogoName+    , ogoSupportsOptionVersionDowngrade     , ogoDefaultPort     , ogoOptionGroupOptionSettings+    , ogoRequiresAutoMinorEngineVersionUpgrade     , ogoPortRequired     , ogoDescription     , ogoOptionsDependedOn+    , ogoVPCOnly      -- * OptionGroupOptionSetting     , OptionGroupOptionSetting@@ -558,16 +578,24 @@     , OrderableDBInstanceOption     , orderableDBInstanceOption     , odioEngineVersion+    , odioMinIOPSPerGib+    , odioSupportsIAMDatabaseAuthentication+    , odioMinIOPSPerDBInstance     , odioMultiAZCapable+    , odioMaxStorageSize     , odioEngine+    , odioMinStorageSize     , odioSupportsIOPS+    , odioSupportsPerformanceInsights     , odioDBInstanceClass     , odioLicenseModel     , odioAvailabilityZones     , odioSupportsStorageEncryption     , odioReadReplicaCapable+    , odioMaxIOPSPerGib     , odioVPC     , odioSupportsEnhancedMonitoring+    , odioMaxIOPSPerDBInstance     , odioStorageType      -- * Parameter@@ -611,6 +639,13 @@     , pmvPort     , pmvStorageType +    -- * Range+    , Range+    , range+    , rTo+    , rFrom+    , rStep+     -- * RecurringCharge     , RecurringCharge     , recurringCharge@@ -695,40 +730,55 @@     , vpcSecurityGroupMembership     , vsgmStatus     , vsgmVPCSecurityGroupId++    -- * ValidDBInstanceModificationsMessage+    , ValidDBInstanceModificationsMessage+    , validDBInstanceModificationsMessage+    , vdimmStorage++    -- * ValidStorageOptions+    , ValidStorageOptions+    , validStorageOptions+    , vsoStorageSize+    , vsoProvisionedIOPS+    , vsoIOPSToStorageRatio+    , vsoStorageType     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types.Product-import           Network.AWS.RDS.Types.Sum-import           Network.AWS.Sign.V4+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.RDS.Types.Product+import Network.AWS.RDS.Types.Sum+import Network.AWS.Sign.V4  -- | API version @2014-10-31@ of the Amazon Relational Database Service SDK configuration. rds :: Service rds =-    Service-    { _svcAbbrev = "RDS"-    , _svcSigner = v4-    , _svcPrefix = "rds"-    , _svcVersion = "2014-10-31"-    , _svcEndpoint = defaultEndpoint rds-    , _svcTimeout = Just 70-    , _svcCheck = statusSuccess-    , _svcError = parseXMLError "RDS"-    , _svcRetry = retry-    }+  Service+  { _svcAbbrev = "RDS"+  , _svcSigner = v4+  , _svcPrefix = "rds"+  , _svcVersion = "2014-10-31"+  , _svcEndpoint = defaultEndpoint rds+  , _svcTimeout = Just 70+  , _svcCheck = statusSuccess+  , _svcError = parseXMLError "RDS"+  , _svcRetry = retry+  }   where     retry =-        Exponential-        { _retryBase = 5.0e-2-        , _retryGrowth = 2-        , _retryAttempts = 5-        , _retryCheck = check-        }+      Exponential+      { _retryBase = 5.0e-2+      , _retryGrowth = 2+      , _retryAttempts = 5+      , _retryCheck = check+      }     check e+      | has (hasCode "ThrottledException" . hasStatus 400) e =+        Just "throttled_exception"       | has (hasStatus 429) e = Just "too_many_requests"       | has (hasCode "ThrottlingException" . hasStatus 400) e =-          Just "throttling_exception"+        Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"       | has (hasStatus 502) e = Just "bad_gateway"@@ -737,380 +787,428 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing + -- | /SourceDBInstanceIdentifier/ refers to a DB instance with /BackupRetentionPeriod/ equal to 0. -- -- _PointInTimeRestoreNotEnabledFault :: AsError a => Getting (First ServiceError) a ServiceError _PointInTimeRestoreNotEnabledFault =-    _ServiceError . hasStatus 400 . hasCode "PointInTimeRestoreNotEnabled"+  _MatchServiceError rds "PointInTimeRestoreNotEnabled" . hasStatus 400 --- | The DB parameter group cannot be deleted because it is in use.++-- | The DB parameter group is in use or is in an invalid state. If you are attempting to delete the parameter group, you cannot delete it when the parameter group is in this state. -- -- _InvalidDBParameterGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDBParameterGroupStateFault =-    _ServiceError . hasStatus 400 . hasCode "InvalidDBParameterGroupState"+  _MatchServiceError rds "InvalidDBParameterGroupState" . hasStatus 400 + -- | Request would exceed the user's DB Instance quota. -- -- _ReservedDBInstanceQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _ReservedDBInstanceQuotaExceededFault =-    _ServiceError . hasStatus 400 . hasCode "ReservedDBInstanceQuotaExceeded"+  _MatchServiceError rds "ReservedDBInstanceQuotaExceeded" . hasStatus 400 + -- | The requested source could not be found. -- -- _SourceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_SourceNotFoundFault = _ServiceError . hasStatus 404 . hasCode "SourceNotFound"+_SourceNotFoundFault = _MatchServiceError rds "SourceNotFound" . hasStatus 404 + -- | /CertificateIdentifier/ does not refer to an existing certificate. -- -- _CertificateNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _CertificateNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "CertificateNotFound"+  _MatchServiceError rds "CertificateNotFound" . hasStatus 404 + -- | DB security group authorization quota has been reached. -- -- _AuthorizationQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _AuthorizationQuotaExceededFault =-    _ServiceError . hasStatus 400 . hasCode "AuthorizationQuotaExceeded"+  _MatchServiceError rds "AuthorizationQuotaExceeded" . hasStatus 400 + -- | User already has a DB cluster snapshot with the given identifier. -- -- _DBClusterSnapshotAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError _DBClusterSnapshotAlreadyExistsFault =-    _ServiceError .-    hasStatus 400 . hasCode "DBClusterSnapshotAlreadyExistsFault"+  _MatchServiceError rds "DBClusterSnapshotAlreadyExistsFault" . hasStatus 400 + -- | A DB parameter group with the same name exists. -- -- _DBParameterGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError _DBParameterGroupAlreadyExistsFault =-    _ServiceError . hasStatus 400 . hasCode "DBParameterGroupAlreadyExists"+  _MatchServiceError rds "DBParameterGroupAlreadyExists" . hasStatus 400 + -- | Request would result in user exceeding the allowed number of DB parameter groups. -- -- _DBParameterGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _DBParameterGroupQuotaExceededFault =-    _ServiceError . hasStatus 400 . hasCode "DBParameterGroupQuotaExceeded"+  _MatchServiceError rds "DBParameterGroupQuotaExceeded" . hasStatus 400 + -- | The DB cluster does not have enough capacity for the current operation. -- -- _InsufficientDBClusterCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError _InsufficientDBClusterCapacityFault =-    _ServiceError .-    hasStatus 403 . hasCode "InsufficientDBClusterCapacityFault"+  _MatchServiceError rds "InsufficientDBClusterCapacityFault" . hasStatus 403 + -- | User already has a reservation with the given identifier. -- -- _ReservedDBInstanceAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError _ReservedDBInstanceAlreadyExistsFault =-    _ServiceError . hasStatus 404 . hasCode "ReservedDBInstanceAlreadyExists"+  _MatchServiceError rds "ReservedDBInstanceAlreadyExists" . hasStatus 404 + -- | Provisioned IOPS not available in the specified Availability Zone. -- -- _ProvisionedIOPSNotAvailableInAZFault :: AsError a => Getting (First ServiceError) a ServiceError _ProvisionedIOPSNotAvailableInAZFault =-    _ServiceError .-    hasStatus 400 . hasCode "ProvisionedIopsNotAvailableInAZFault"+  _MatchServiceError rds "ProvisionedIopsNotAvailableInAZFault" . hasStatus 400 + -- | The specified CIDRIP or EC2 security group is already authorized for the specified DB security group. -- -- _AuthorizationAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError _AuthorizationAlreadyExistsFault =-    _ServiceError . hasStatus 400 . hasCode "AuthorizationAlreadyExists"+  _MatchServiceError rds "AuthorizationAlreadyExists" . hasStatus 400 + -- | The supplied category does not exist. -- -- _SubscriptionCategoryNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _SubscriptionCategoryNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "SubscriptionCategoryNotFound"+  _MatchServiceError rds "SubscriptionCategoryNotFound" . hasStatus 404 + -- | The subscription name does not exist. -- -- _SubscriptionNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _SubscriptionNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "SubscriptionNotFound"+  _MatchServiceError rds "SubscriptionNotFound" . hasStatus 404 + -- | The requested subnet is invalid, or multiple subnets were requested that are not all in a common VPC. -- -- _InvalidSubnet :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidSubnet = _ServiceError . hasStatus 400 . hasCode "InvalidSubnet"+_InvalidSubnet = _MatchServiceError rds "InvalidSubnet" . hasStatus 400 + -- | 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"+  _MatchServiceError rds "SharedSnapshotQuotaExceeded" . hasStatus 400 + -- | Request would result in user exceeding the allowed number of subnets in a DB subnet groups. -- -- _DBSubnetQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _DBSubnetQuotaExceededFault =-    _ServiceError . hasStatus 400 . hasCode "DBSubnetQuotaExceededFault"+  _MatchServiceError rds "DBSubnetQuotaExceededFault" . hasStatus 400 + -- | The specified option group could not be found. -- -- _OptionGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _OptionGroupNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "OptionGroupNotFoundFault"+  _MatchServiceError rds "OptionGroupNotFoundFault" . hasStatus 404 + -- | /DBClusterIdentifier/ does not refer to an existing DB cluster. -- -- _DBClusterNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _DBClusterNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "DBClusterNotFoundFault"+  _MatchServiceError rds "DBClusterNotFoundFault" . hasStatus 404 + -- | /LogFileName/ does not refer to an existing DB log file. -- -- _DBLogFileNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _DBLogFileNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "DBLogFileNotFoundFault"+  _MatchServiceError rds "DBLogFileNotFoundFault" . hasStatus 404 + -- | 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"+  _MatchServiceError rds "InvalidS3BucketFault" . hasStatus 400 + -- | User already has a DB cluster with the given identifier. -- -- _DBClusterAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError _DBClusterAlreadyExistsFault =-    _ServiceError . hasStatus 400 . hasCode "DBClusterAlreadyExistsFault"+  _MatchServiceError rds "DBClusterAlreadyExistsFault" . hasStatus 400 + -- | /StorageType/ specified cannot be associated with the DB Instance. -- -- _StorageTypeNotSupportedFault :: AsError a => Getting (First ServiceError) a ServiceError _StorageTypeNotSupportedFault =-    _ServiceError . hasStatus 400 . hasCode "StorageTypeNotSupported"+  _MatchServiceError rds "StorageTypeNotSupported" . hasStatus 400 + -- | Request would result in user exceeding the allowed number of DB security groups. -- -- _DBSecurityGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _DBSecurityGroupQuotaExceededFault =-    _ServiceError . hasStatus 400 . hasCode "QuotaExceeded.DBSecurityGroup"+  _MatchServiceError rds "QuotaExceeded.DBSecurityGroup" . hasStatus 400 + -- | The option group you are trying to create already exists. -- -- _OptionGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError _OptionGroupAlreadyExistsFault =-    _ServiceError . hasStatus 400 . hasCode "OptionGroupAlreadyExistsFault"+  _MatchServiceError rds "OptionGroupAlreadyExistsFault" . hasStatus 400 + -- | The quota of 20 option groups was exceeded for this AWS account. -- -- _OptionGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _OptionGroupQuotaExceededFault =-    _ServiceError . hasStatus 400 . hasCode "OptionGroupQuotaExceededFault"+  _MatchServiceError rds "OptionGroupQuotaExceededFault" . hasStatus 400 + -- | A DB security group with the name specified in /DBSecurityGroupName/ already exists. -- -- _DBSecurityGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError _DBSecurityGroupAlreadyExistsFault =-    _ServiceError . hasStatus 400 . hasCode "DBSecurityGroupAlreadyExists"+  _MatchServiceError rds "DBSecurityGroupAlreadyExists" . hasStatus 400 + -- | The SNS topic ARN does not exist. -- -- _SNSTopicARNNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _SNSTopicARNNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "SNSTopicArnNotFound"+  _MatchServiceError rds "SNSTopicArnNotFound" . hasStatus 404 + -- | This error can occur if someone else is modifying a subscription. You should retry the action. -- -- _InvalidEventSubscriptionStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidEventSubscriptionStateFault =-    _ServiceError . hasStatus 400 . hasCode "InvalidEventSubscriptionState"+  _MatchServiceError rds "InvalidEventSubscriptionState" . hasStatus 400 + -- | Error accessing KMS key. -- -- _KMSKeyNotAccessibleFault :: AsError a => Getting (First ServiceError) a ServiceError _KMSKeyNotAccessibleFault =-    _ServiceError . hasStatus 400 . hasCode "KMSKeyNotAccessibleFault"+  _MatchServiceError rds "KMSKeyNotAccessibleFault" . hasStatus 400 + -- | /DBSnapshotIdentifier/ does not refer to an existing DB snapshot. -- -- _DBSnapshotNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _DBSnapshotNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "DBSnapshotNotFound"+  _MatchServiceError rds "DBSnapshotNotFound" . hasStatus 404 + -- | /DBClusterParameterGroupName/ does not refer to an existing DB Cluster parameter group. -- -- _DBClusterParameterGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _DBClusterParameterGroupNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "DBClusterParameterGroupNotFound"+  _MatchServiceError rds "DBClusterParameterGroupNotFound" . hasStatus 404 + -- | User attempted to create a new DB cluster and the user has already reached the maximum allowed DB cluster quota. -- -- _DBClusterQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _DBClusterQuotaExceededFault =-    _ServiceError . hasStatus 403 . hasCode "DBClusterQuotaExceededFault"+  _MatchServiceError rds "DBClusterQuotaExceededFault" . hasStatus 403 + -- | Request would result in user exceeding the allowed number of DB snapshots. -- -- _SnapshotQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _SnapshotQuotaExceededFault =-    _ServiceError . hasStatus 400 . hasCode "SnapshotQuotaExceeded"+  _MatchServiceError rds "SnapshotQuotaExceeded" . hasStatus 400 + -- | /DBSubnetGroupName/ is already used by an existing DB subnet group. -- -- _DBSubnetGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError _DBSubnetGroupAlreadyExistsFault =-    _ServiceError . hasStatus 400 . hasCode "DBSubnetGroupAlreadyExists"+  _MatchServiceError rds "DBSubnetGroupAlreadyExists" . hasStatus 400 + -- | You do not have permission to publish to the SNS topic ARN. -- -- _SNSNoAuthorizationFault :: AsError a => Getting (First ServiceError) a ServiceError _SNSNoAuthorizationFault =-    _ServiceError . hasStatus 400 . hasCode "SNSNoAuthorization"+  _MatchServiceError rds "SNSNoAuthorization" . hasStatus 400 + -- | /DBSecurityGroupName/ does not refer to an existing DB security group. -- -- _DBSecurityGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _DBSecurityGroupNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "DBSecurityGroupNotFound"+  _MatchServiceError rds "DBSecurityGroupNotFound" . hasStatus 404 + -- | A DB security group is not allowed for this action. -- -- _DBSecurityGroupNotSupportedFault :: AsError a => Getting (First ServiceError) a ServiceError _DBSecurityGroupNotSupportedFault =-    _ServiceError . hasStatus 400 . hasCode "DBSecurityGroupNotSupported"+  _MatchServiceError rds "DBSecurityGroupNotSupported" . hasStatus 400 + -- | Request would result in user exceeding the allowed number of DB instances. -- -- _InstanceQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _InstanceQuotaExceededFault =-    _ServiceError . hasStatus 400 . hasCode "InstanceQuotaExceeded"+  _MatchServiceError rds "InstanceQuotaExceeded" . hasStatus 400 + -- | /Domain/ does not refer to an existing Active Directory Domain. -- -- _DomainNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _DomainNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "DomainNotFoundFault"+  _MatchServiceError rds "DomainNotFoundFault" . hasStatus 404 + -- | /DBParameterGroupName/ does not refer to an existing DB parameter group. -- -- _DBParameterGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _DBParameterGroupNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "DBParameterGroupNotFound"+  _MatchServiceError rds "DBParameterGroupNotFound" . hasStatus 404 + -- | Indicates the DBSubnetGroup does not belong to the same VPC as that of an existing cross region read replica of the same source instance. -- -- _InvalidDBSubnetGroupFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDBSubnetGroupFault =-    _ServiceError . hasStatus 400 . hasCode "InvalidDBSubnetGroupFault"+  _MatchServiceError rds "InvalidDBSubnetGroupFault" . hasStatus 400 + -- | Specified offering does not exist. -- -- _ReservedDBInstancesOfferingNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _ReservedDBInstancesOfferingNotFoundFault =-    _ServiceError .-    hasStatus 404 . hasCode "ReservedDBInstancesOfferingNotFound"+  _MatchServiceError rds "ReservedDBInstancesOfferingNotFound" . hasStatus 404 + -- | The DB subnet is not in the /available/ state. -- -- _InvalidDBSubnetStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDBSubnetStateFault =-    _ServiceError . hasStatus 400 . hasCode "InvalidDBSubnetStateFault"+  _MatchServiceError rds "InvalidDBSubnetStateFault" . hasStatus 400 + -- | /DBClusterSnapshotIdentifier/ does not refer to an existing DB cluster snapshot. -- -- _DBClusterSnapshotNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _DBClusterSnapshotNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "DBClusterSnapshotNotFoundFault"+  _MatchServiceError rds "DBClusterSnapshotNotFoundFault" . hasStatus 404 + -- | SNS has responded that there is a problem with the SND topic specified. -- -- _SNSInvalidTopicFault :: AsError a => Getting (First ServiceError) a ServiceError-_SNSInvalidTopicFault =-    _ServiceError . hasStatus 400 . hasCode "SNSInvalidTopic"+_SNSInvalidTopicFault = _MatchServiceError rds "SNSInvalidTopic" . hasStatus 400 + -- | Specified DB instance class is not available in the specified Availability Zone. -- -- _InsufficientDBInstanceCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError _InsufficientDBInstanceCapacityFault =-    _ServiceError . hasStatus 400 . hasCode "InsufficientDBInstanceCapacity"+  _MatchServiceError rds "InsufficientDBInstanceCapacity" . hasStatus 400 + -- | The supplied value is not a valid DB cluster snapshot state. -- -- _InvalidDBClusterSnapshotStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDBClusterSnapshotStateFault =-    _ServiceError .-    hasStatus 400 . hasCode "InvalidDBClusterSnapshotStateFault"+  _MatchServiceError rds "InvalidDBClusterSnapshotStateFault" . hasStatus 400 + -- | The supplied subscription name already exists. -- -- _SubscriptionAlreadyExistFault :: AsError a => Getting (First ServiceError) a ServiceError _SubscriptionAlreadyExistFault =-    _ServiceError . hasStatus 400 . hasCode "SubscriptionAlreadyExist"+  _MatchServiceError rds "SubscriptionAlreadyExist" . hasStatus 400 + -- | The specified IAM role Amazon Resource Name (ARN) is already associated with the specified DB cluster. -- -- _DBClusterRoleAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError _DBClusterRoleAlreadyExistsFault =-    _ServiceError . hasStatus 400 . hasCode "DBClusterRoleAlreadyExists"+  _MatchServiceError rds "DBClusterRoleAlreadyExists" . hasStatus 400 + -- | You have exceeded the maximum number of IAM roles that can be associated with the specified DB cluster. -- -- _DBClusterRoleQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _DBClusterRoleQuotaExceededFault =-    _ServiceError . hasStatus 400 . hasCode "DBClusterRoleQuotaExceeded"+  _MatchServiceError rds "DBClusterRoleQuotaExceeded" . hasStatus 400 + -- | DB subnet group does not cover all Availability Zones after it is created because users' change. -- -- _InvalidVPCNetworkStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidVPCNetworkStateFault =-    _ServiceError . hasStatus 400 . hasCode "InvalidVPCNetworkStateFault"+  _MatchServiceError rds "InvalidVPCNetworkStateFault" . hasStatus 400 + -- | Specified CIDRIP or EC2 security group is not authorized for the specified DB security group. -- --@@ -1118,160 +1216,181 @@ -- _AuthorizationNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _AuthorizationNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "AuthorizationNotFound"+  _MatchServiceError rds "AuthorizationNotFound" . hasStatus 404 + -- | The specified reserved DB Instance not found. -- -- _ReservedDBInstanceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _ReservedDBInstanceNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "ReservedDBInstanceNotFound"+  _MatchServiceError rds "ReservedDBInstanceNotFound" . hasStatus 404 + -- | Request would result in user exceeding the allowed number of DB subnet groups. -- -- _DBSubnetGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _DBSubnetGroupQuotaExceededFault =-    _ServiceError . hasStatus 400 . hasCode "DBSubnetGroupQuotaExceeded"+  _MatchServiceError rds "DBSubnetGroupQuotaExceeded" . hasStatus 400 + -- | Indicates that the DBSubnetGroup should not be specified while creating read replicas that lie in the same region as the source instance. -- -- _DBSubnetGroupNotAllowedFault :: AsError a => Getting (First ServiceError) a ServiceError _DBSubnetGroupNotAllowedFault =-    _ServiceError . hasStatus 400 . hasCode "DBSubnetGroupNotAllowedFault"+  _MatchServiceError rds "DBSubnetGroupNotAllowedFault" . hasStatus 400 + -- | You have reached the maximum number of event subscriptions. -- -- _EventSubscriptionQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _EventSubscriptionQuotaExceededFault =-    _ServiceError . hasStatus 400 . hasCode "EventSubscriptionQuotaExceeded"+  _MatchServiceError rds "EventSubscriptionQuotaExceeded" . hasStatus 400 + -- | There is insufficient storage available for the current action. You may be able to resolve this error by updating your subnet group to use different Availability Zones that have more storage available. -- -- _InsufficientStorageClusterCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError _InsufficientStorageClusterCapacityFault =-    _ServiceError .-    hasStatus 400 . hasCode "InsufficientStorageClusterCapacity"+  _MatchServiceError rds "InsufficientStorageClusterCapacity" . hasStatus 400 + -- | The option group is not in the /available/ state. -- -- _InvalidOptionGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidOptionGroupStateFault =-    _ServiceError . hasStatus 400 . hasCode "InvalidOptionGroupStateFault"+  _MatchServiceError rds "InvalidOptionGroupStateFault" . hasStatus 400 + -- | The DB cluster is not in a valid state. -- -- _InvalidDBClusterStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDBClusterStateFault =-    _ServiceError . hasStatus 400 . hasCode "InvalidDBClusterStateFault"+  _MatchServiceError rds "InvalidDBClusterStateFault" . hasStatus 400 + -- | User already has a DB instance with the given identifier. -- -- _DBInstanceAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError _DBInstanceAlreadyExistsFault =-    _ServiceError . hasStatus 400 . hasCode "DBInstanceAlreadyExists"+  _MatchServiceError rds "DBInstanceAlreadyExists" . hasStatus 400 + -- | Cannot restore from vpc backup to non-vpc DB instance. -- -- _InvalidRestoreFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidRestoreFault =-    _ServiceError . hasStatus 400 . hasCode "InvalidRestoreFault"+  _MatchServiceError rds "InvalidRestoreFault" . hasStatus 400 + -- | The state of the DB security group does not allow deletion. -- -- _InvalidDBSecurityGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDBSecurityGroupStateFault =-    _ServiceError . hasStatus 400 . hasCode "InvalidDBSecurityGroupState"+  _MatchServiceError rds "InvalidDBSecurityGroupState" . hasStatus 400 + -- | The specified resource ID was not found. -- -- _ResourceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "ResourceNotFoundFault"+  _MatchServiceError rds "ResourceNotFoundFault" . hasStatus 404 + -- | /DBSubnetGroupName/ does not refer to an existing DB subnet group. -- -- _DBSubnetGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _DBSubnetGroupNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "DBSubnetGroupNotFoundFault"+  _MatchServiceError rds "DBSubnetGroupNotFoundFault" . hasStatus 404 + -- | The DB upgrade failed because a resource the DB depends on could not be modified. -- -- _DBUpgradeDependencyFailureFault :: AsError a => Getting (First ServiceError) a ServiceError _DBUpgradeDependencyFailureFault =-    _ServiceError . hasStatus 400 . hasCode "DBUpgradeDependencyFailure"+  _MatchServiceError rds "DBUpgradeDependencyFailure" . hasStatus 400 + -- | The specified DB instance is not in the /available/ state. -- -- _InvalidDBInstanceStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDBInstanceStateFault =-    _ServiceError . hasStatus 400 . hasCode "InvalidDBInstanceState"+  _MatchServiceError rds "InvalidDBInstanceState" . hasStatus 400 + -- | /DBSnapshotIdentifier/ is already used by an existing snapshot. -- -- _DBSnapshotAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError _DBSnapshotAlreadyExistsFault =-    _ServiceError . hasStatus 400 . hasCode "DBSnapshotAlreadyExists"+  _MatchServiceError rds "DBSnapshotAlreadyExists" . hasStatus 400 + -- | /DBInstanceIdentifier/ does not refer to an existing DB instance. -- -- _DBInstanceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _DBInstanceNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "DBInstanceNotFound"+  _MatchServiceError rds "DBInstanceNotFound" . hasStatus 404 + -- | Request would result in user exceeding the allowed amount of storage available across all DB instances. -- -- _StorageQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _StorageQuotaExceededFault =-    _ServiceError . hasStatus 400 . hasCode "StorageQuotaExceeded"+  _MatchServiceError rds "StorageQuotaExceeded" . hasStatus 400 + -- | The state of the DB snapshot does not allow deletion. -- -- _InvalidDBSnapshotStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDBSnapshotStateFault =-    _ServiceError . hasStatus 400 . hasCode "InvalidDBSnapshotState"+  _MatchServiceError rds "InvalidDBSnapshotState" . hasStatus 400 + -- | The DB subnet group cannot be deleted because it is in use. -- -- _InvalidDBSubnetGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDBSubnetGroupStateFault =-    _ServiceError . hasStatus 400 . hasCode "InvalidDBSubnetGroupStateFault"+  _MatchServiceError rds "InvalidDBSubnetGroupStateFault" . hasStatus 400 + -- | Subnets in the DB subnet group should cover at least two Availability Zones unless there is only one Availability Zone. -- -- _DBSubnetGroupDoesNotCoverEnoughAZs :: AsError a => Getting (First ServiceError) a ServiceError _DBSubnetGroupDoesNotCoverEnoughAZs =-    _ServiceError .-    hasStatus 400 . hasCode "DBSubnetGroupDoesNotCoverEnoughAZs"+  _MatchServiceError rds "DBSubnetGroupDoesNotCoverEnoughAZs" . hasStatus 400 + -- | The DB subnet is already in use in the Availability Zone. -- -- _SubnetAlreadyInUse :: AsError a => Getting (First ServiceError) a ServiceError _SubnetAlreadyInUse =-    _ServiceError . hasStatus 400 . hasCode "SubnetAlreadyInUse"+  _MatchServiceError rds "SubnetAlreadyInUse" . hasStatus 400 + -- | The specified IAM role Amazon Resource Name (ARN) is not associated with the specified DB cluster. -- -- _DBClusterRoleNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _DBClusterRoleNotFoundFault =-    _ServiceError . hasStatus 404 . hasCode "DBClusterRoleNotFound"+  _MatchServiceError rds "DBClusterRoleNotFound" . hasStatus 404+
gen/Network/AWS/RDS/Types/Product.hs view
@@ -9,4969 +9,5423 @@  -- | -- Module      : Network.AWS.RDS.Types.Product--- 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)----module Network.AWS.RDS.Types.Product where--import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.RDS.Types.Sum---- | Describes a quota for an AWS account, for example, the number of DB instances allowed.------------ /See:/ 'accountQuota' smart constructor.-data AccountQuota = AccountQuota'-    { _aqMax              :: !(Maybe Integer)-    , _aqUsed             :: !(Maybe Integer)-    , _aqAccountQuotaName :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'AccountQuota' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aqMax' - The maximum allowed value for the quota.------ * 'aqUsed' - The amount currently used toward the quota maximum.------ * 'aqAccountQuotaName' - The name of the Amazon RDS quota for this AWS account.-accountQuota-    :: AccountQuota-accountQuota =-    AccountQuota'-    { _aqMax = Nothing-    , _aqUsed = Nothing-    , _aqAccountQuotaName = Nothing-    }---- | The maximum allowed value for the quota.-aqMax :: Lens' AccountQuota (Maybe Integer)-aqMax = lens _aqMax (\ s a -> s{_aqMax = a});---- | The amount currently used toward the quota maximum.-aqUsed :: Lens' AccountQuota (Maybe Integer)-aqUsed = lens _aqUsed (\ s a -> s{_aqUsed = a});---- | The name of the Amazon RDS quota for this AWS account.-aqAccountQuotaName :: Lens' AccountQuota (Maybe Text)-aqAccountQuotaName = lens _aqAccountQuotaName (\ s a -> s{_aqAccountQuotaName = a});--instance FromXML AccountQuota where-        parseXML x-          = AccountQuota' <$>-              (x .@? "Max") <*> (x .@? "Used") <*>-                (x .@? "AccountQuotaName")--instance Hashable AccountQuota--instance NFData AccountQuota---- | Contains Availability Zone information.--------- This data type is used as an element in the following data type:------     * 'OrderableDBInstanceOption'--------------- /See:/ 'availabilityZone' smart constructor.-newtype AvailabilityZone = AvailabilityZone'-    { _azName :: Maybe Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'AvailabilityZone' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'azName' - The name of the availability zone.-availabilityZone-    :: AvailabilityZone-availabilityZone =-    AvailabilityZone'-    { _azName = Nothing-    }---- | The name of the availability zone.-azName :: Lens' AvailabilityZone (Maybe Text)-azName = lens _azName (\ s a -> s{_azName = a});--instance FromXML AvailabilityZone where-        parseXML x = AvailabilityZone' <$> (x .@? "Name")--instance Hashable AvailabilityZone--instance NFData AvailabilityZone---- | A CA certificate for an AWS account.------------ /See:/ 'certificate' smart constructor.-data Certificate = Certificate'-    { _cCertificateType       :: !(Maybe Text)-    , _cCertificateARN        :: !(Maybe Text)-    , _cValidTill             :: !(Maybe ISO8601)-    , _cCertificateIdentifier :: !(Maybe Text)-    , _cThumbprint            :: !(Maybe Text)-    , _cValidFrom             :: !(Maybe ISO8601)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Certificate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cCertificateType' - The type of the certificate.------ * 'cCertificateARN' - The Amazon Resource Name (ARN) for the certificate.------ * 'cValidTill' - The final date that the certificate continues to be valid.------ * 'cCertificateIdentifier' - The unique key that identifies a certificate.------ * 'cThumbprint' - The thumbprint of the certificate.------ * 'cValidFrom' - The starting date from which the certificate is valid.-certificate-    :: Certificate-certificate =-    Certificate'-    { _cCertificateType = Nothing-    , _cCertificateARN = Nothing-    , _cValidTill = Nothing-    , _cCertificateIdentifier = Nothing-    , _cThumbprint = Nothing-    , _cValidFrom = Nothing-    }---- | The type of the certificate.-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;---- | The unique key that identifies a certificate.-cCertificateIdentifier :: Lens' Certificate (Maybe Text)-cCertificateIdentifier = lens _cCertificateIdentifier (\ s a -> s{_cCertificateIdentifier = a});---- | The thumbprint of the certificate.-cThumbprint :: Lens' Certificate (Maybe Text)-cThumbprint = lens _cThumbprint (\ s a -> s{_cThumbprint = a});---- | The starting date from which the certificate is valid.-cValidFrom :: Lens' Certificate (Maybe UTCTime)-cValidFrom = lens _cValidFrom (\ s a -> s{_cValidFrom = a}) . mapping _Time;--instance FromXML Certificate where-        parseXML x-          = Certificate' <$>-              (x .@? "CertificateType") <*>-                (x .@? "CertificateArn")-                <*> (x .@? "ValidTill")-                <*> (x .@? "CertificateIdentifier")-                <*> (x .@? "Thumbprint")-                <*> (x .@? "ValidFrom")--instance Hashable Certificate--instance NFData Certificate---- | This data type is used as a response element in the action 'DescribeDBEngineVersions' .------------ /See:/ 'characterSet' smart constructor.-data CharacterSet = CharacterSet'-    { _csCharacterSetName        :: !(Maybe Text)-    , _csCharacterSetDescription :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'CharacterSet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csCharacterSetName' - The name of the character set.------ * 'csCharacterSetDescription' - The description of the character set.-characterSet-    :: CharacterSet-characterSet =-    CharacterSet'-    { _csCharacterSetName = Nothing-    , _csCharacterSetDescription = Nothing-    }---- | The name of the character set.-csCharacterSetName :: Lens' CharacterSet (Maybe Text)-csCharacterSetName = lens _csCharacterSetName (\ s a -> s{_csCharacterSetName = a});---- | The description of the character set.-csCharacterSetDescription :: Lens' CharacterSet (Maybe Text)-csCharacterSetDescription = lens _csCharacterSetDescription (\ s a -> s{_csCharacterSetDescription = a});--instance FromXML CharacterSet where-        parseXML x-          = CharacterSet' <$>-              (x .@? "CharacterSetName") <*>-                (x .@? "CharacterSetDescription")--instance Hashable CharacterSet--instance NFData CharacterSet---- | 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.-data DBCluster = DBCluster'-    { _dcEngineVersion                   :: !(Maybe Text)-    , _dcStatus                          :: !(Maybe Text)-    , _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])-    , _dcCharacterSetName                :: !(Maybe Text)-    , _dcKMSKeyId                        :: !(Maybe Text)-    , _dcPreferredBackupWindow           :: !(Maybe Text)-    , _dcAssociatedRoles                 :: !(Maybe [DBClusterRole])-    , _dcVPCSecurityGroups               :: !(Maybe [VPCSecurityGroupMembership])-    , _dcBackupRetentionPeriod           :: !(Maybe Int)-    , _dcDBSubnetGroup                   :: !(Maybe Text)-    , _dcDatabaseName                    :: !(Maybe Text)-    , _dcAllocatedStorage                :: !(Maybe Int)-    , _dcEndpoint                        :: !(Maybe Text)-    , _dcPercentProgress                 :: !(Maybe Text)-    , _dcReaderEndpoint                  :: !(Maybe Text)-    , _dcPort                            :: !(Maybe Int)-    , _dcDBClusterOptionGroupMemberships :: !(Maybe [DBClusterOptionGroupStatus])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBCluster' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcEngineVersion' - Indicates the database engine version.------ * 'dcStatus' - Specifies the current state of this DB cluster.------ * 'dcStorageEncrypted' - Specifies whether the DB cluster is encrypted.------ * 'dcDBClusterIdentifier' - Contains a user-supplied DB cluster identifier. This identifier is the unique key that identifies a DB cluster.------ * 'dcDBClusterMembers' - Provides the list of instances that make up the DB cluster.------ * 'dcReadReplicaIdentifiers' - Contains one or more identifiers of the Read Replicas associated with this DB cluster.------ * 'dcReplicationSourceIdentifier' - Contains the identifier of the source DB cluster if this DB cluster is a Read Replica.------ * 'dcHostedZoneId' - Specifies the ID that Amazon Route 53 assigns when you create a hosted zone.------ * 'dcDBClusterParameterGroup' - Specifies the name of the DB cluster parameter group for the DB cluster.------ * 'dcMasterUsername' - Contains the master username for the DB cluster.------ * 'dcDBClusterResourceId' - The region-unique, immutable identifier for the DB cluster. This identifier is found in AWS CloudTrail log entries whenever the KMS key for the DB cluster is accessed.------ * 'dcEarliestRestorableTime' - Specifies the earliest time to which a database can be restored with point-in-time restore.------ * 'dcEngine' - Provides the name of the database engine to be used for this DB cluster.------ * 'dcDBClusterARN' - The Amazon Resource Name (ARN) for the DB cluster.------ * 'dcLatestRestorableTime' - Specifies the latest time to which a database can be restored with point-in-time restore.------ * 'dcPreferredMaintenanceWindow' - Specifies the weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC).------ * 'dcAvailabilityZones' - Provides the list of EC2 Availability Zones that instances in the DB cluster can be created in.------ * 'dcCharacterSetName' - If present, specifies the name of the character set that this cluster is associated with.------ * 'dcKMSKeyId' - If @StorageEncrypted@ is true, the KMS key identifier for the encrypted DB cluster.------ * 'dcPreferredBackupWindow' - Specifies the daily time range during which automated backups are created if automated backups are enabled, as determined by the @BackupRetentionPeriod@ .------ * 'dcAssociatedRoles' - Provides a list of the AWS Identity and Access Management (IAM) roles that are associated with the DB cluster. IAM roles that are associated with a DB cluster grant permission for the DB cluster to access other AWS services on your behalf.------ * 'dcVPCSecurityGroups' - Provides a list of VPC security groups that the DB cluster belongs to.------ * 'dcBackupRetentionPeriod' - Specifies the number of days for which automatic DB snapshots are retained.------ * 'dcDBSubnetGroup' - Specifies information on the subnet group associated with the DB cluster, including the name, description, and subnets in the subnet group.------ * 'dcDatabaseName' - Contains the name of the initial database of this DB cluster that was provided at create time, if one was specified when the DB cluster was created. This same name is returned for the life of the DB cluster.------ * 'dcAllocatedStorage' - Specifies the allocated storage size in gigabytes (GB).------ * 'dcEndpoint' - Specifies the connection endpoint for the primary instance of the DB cluster.------ * 'dcPercentProgress' - Specifies the progress of the operation as a percentage.------ * 'dcReaderEndpoint' - The reader endpoint for the DB cluster. The reader endpoint for a DB cluster load-balances connections across the Aurora Replicas that are available in a DB cluster. As clients request new connections to the reader endpoint, Aurora distributes the connection requests among the Aurora Replicas in the DB cluster. This functionality can help balance your read workload across multiple Aurora Replicas in your DB cluster.  If a failover occurs, and the Aurora Replica that you are connected to is promoted to be the primary instance, your connection will be dropped. To continue sending your read workload to other Aurora Replicas in the cluster, you can then recoonect to the reader endpoint.------ * 'dcPort' - Specifies the port that the database engine is listening on.------ * 'dcDBClusterOptionGroupMemberships' - Provides the list of option group memberships for this DB cluster.-dbCluster-    :: DBCluster-dbCluster =-    DBCluster'-    { _dcEngineVersion = Nothing-    , _dcStatus = Nothing-    , _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-    , _dcCharacterSetName = Nothing-    , _dcKMSKeyId = Nothing-    , _dcPreferredBackupWindow = Nothing-    , _dcAssociatedRoles = Nothing-    , _dcVPCSecurityGroups = Nothing-    , _dcBackupRetentionPeriod = Nothing-    , _dcDBSubnetGroup = Nothing-    , _dcDatabaseName = Nothing-    , _dcAllocatedStorage = Nothing-    , _dcEndpoint = Nothing-    , _dcPercentProgress = Nothing-    , _dcReaderEndpoint = Nothing-    , _dcPort = Nothing-    , _dcDBClusterOptionGroupMemberships = Nothing-    }---- | Indicates the database engine version.-dcEngineVersion :: Lens' DBCluster (Maybe Text)-dcEngineVersion = lens _dcEngineVersion (\ s a -> s{_dcEngineVersion = a});---- | Specifies the current state of this DB cluster.-dcStatus :: Lens' DBCluster (Maybe Text)-dcStatus = lens _dcStatus (\ s a -> s{_dcStatus = a});---- | Specifies whether the DB cluster is encrypted.-dcStorageEncrypted :: Lens' DBCluster (Maybe Bool)-dcStorageEncrypted = lens _dcStorageEncrypted (\ s a -> s{_dcStorageEncrypted = a});---- | Contains a user-supplied DB cluster identifier. This identifier is the unique key that identifies a DB cluster.-dcDBClusterIdentifier :: Lens' DBCluster (Maybe Text)-dcDBClusterIdentifier = lens _dcDBClusterIdentifier (\ s a -> s{_dcDBClusterIdentifier = a});---- | Provides the list of instances that make up the DB cluster.-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});---- | Specifies the name of the DB cluster parameter group for the DB cluster.-dcDBClusterParameterGroup :: Lens' DBCluster (Maybe Text)-dcDBClusterParameterGroup = lens _dcDBClusterParameterGroup (\ s a -> s{_dcDBClusterParameterGroup = a});---- | Contains the master username for the DB cluster.-dcMasterUsername :: Lens' DBCluster (Maybe Text)-dcMasterUsername = lens _dcMasterUsername (\ s a -> s{_dcMasterUsername = a});---- | The region-unique, immutable identifier for the DB cluster. This identifier is found in AWS CloudTrail log entries whenever the KMS key for the DB cluster is accessed.-dcDBClusterResourceId :: Lens' DBCluster (Maybe Text)-dcDBClusterResourceId = lens _dcDBClusterResourceId (\ s a -> s{_dcDBClusterResourceId = a});---- | Specifies the earliest time to which a database can be restored with point-in-time restore.-dcEarliestRestorableTime :: Lens' DBCluster (Maybe UTCTime)-dcEarliestRestorableTime = lens _dcEarliestRestorableTime (\ s a -> s{_dcEarliestRestorableTime = a}) . mapping _Time;---- | Provides the name of the database engine to be used for this DB cluster.-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;---- | Specifies the weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC).-dcPreferredMaintenanceWindow :: Lens' DBCluster (Maybe Text)-dcPreferredMaintenanceWindow = lens _dcPreferredMaintenanceWindow (\ s a -> s{_dcPreferredMaintenanceWindow = a});---- | Provides the list of EC2 Availability Zones that instances in the DB cluster can be created in.-dcAvailabilityZones :: Lens' DBCluster [Text]-dcAvailabilityZones = lens _dcAvailabilityZones (\ s a -> s{_dcAvailabilityZones = a}) . _Default . _Coerce;---- | If present, specifies the name of the character set that this cluster is associated with.-dcCharacterSetName :: Lens' DBCluster (Maybe Text)-dcCharacterSetName = lens _dcCharacterSetName (\ s a -> s{_dcCharacterSetName = a});---- | If @StorageEncrypted@ is true, the KMS key identifier for the encrypted DB cluster.-dcKMSKeyId :: Lens' DBCluster (Maybe Text)-dcKMSKeyId = lens _dcKMSKeyId (\ s a -> s{_dcKMSKeyId = a});---- | Specifies the daily time range during which automated backups are created if automated backups are enabled, as determined by the @BackupRetentionPeriod@ .-dcPreferredBackupWindow :: Lens' DBCluster (Maybe Text)-dcPreferredBackupWindow = lens _dcPreferredBackupWindow (\ s a -> s{_dcPreferredBackupWindow = a});---- | Provides a list of the AWS Identity and Access Management (IAM) roles that are associated with the DB cluster. IAM roles that are associated with a DB cluster grant permission for the DB cluster to access other AWS services on your behalf.-dcAssociatedRoles :: Lens' DBCluster [DBClusterRole]-dcAssociatedRoles = lens _dcAssociatedRoles (\ s a -> s{_dcAssociatedRoles = a}) . _Default . _Coerce;---- | Provides a list of VPC security groups that the DB cluster belongs to.-dcVPCSecurityGroups :: Lens' DBCluster [VPCSecurityGroupMembership]-dcVPCSecurityGroups = lens _dcVPCSecurityGroups (\ s a -> s{_dcVPCSecurityGroups = a}) . _Default . _Coerce;---- | Specifies the number of days for which automatic DB snapshots are retained.-dcBackupRetentionPeriod :: Lens' DBCluster (Maybe Int)-dcBackupRetentionPeriod = lens _dcBackupRetentionPeriod (\ s a -> s{_dcBackupRetentionPeriod = a});---- | Specifies information on the subnet group associated with the DB cluster, including the name, description, and subnets in the subnet group.-dcDBSubnetGroup :: Lens' DBCluster (Maybe Text)-dcDBSubnetGroup = lens _dcDBSubnetGroup (\ s a -> s{_dcDBSubnetGroup = a});---- | Contains the name of the initial database of this DB cluster that was provided at create time, if one was specified when the DB cluster was created. This same name is returned for the life of the DB cluster.-dcDatabaseName :: Lens' DBCluster (Maybe Text)-dcDatabaseName = lens _dcDatabaseName (\ s a -> s{_dcDatabaseName = a});---- | Specifies the allocated storage size in gigabytes (GB).-dcAllocatedStorage :: Lens' DBCluster (Maybe Int)-dcAllocatedStorage = lens _dcAllocatedStorage (\ s a -> s{_dcAllocatedStorage = a});---- | Specifies the connection endpoint for the primary instance of the DB cluster.-dcEndpoint :: Lens' DBCluster (Maybe Text)-dcEndpoint = lens _dcEndpoint (\ s a -> s{_dcEndpoint = a});---- | Specifies the progress of the operation as a percentage.-dcPercentProgress :: Lens' DBCluster (Maybe Text)-dcPercentProgress = lens _dcPercentProgress (\ s a -> s{_dcPercentProgress = a});---- | The reader endpoint for the DB cluster. The reader endpoint for a DB cluster load-balances connections across the Aurora Replicas that are available in a DB cluster. As clients request new connections to the reader endpoint, Aurora distributes the connection requests among the Aurora Replicas in the DB cluster. This functionality can help balance your read workload across multiple Aurora Replicas in your DB cluster.  If a failover occurs, and the Aurora Replica that you are connected to is promoted to be the primary instance, your connection will be dropped. To continue sending your read workload to other Aurora Replicas in the cluster, you can then recoonect to the reader endpoint.-dcReaderEndpoint :: Lens' DBCluster (Maybe Text)-dcReaderEndpoint = lens _dcReaderEndpoint (\ s a -> s{_dcReaderEndpoint = a});---- | Specifies the port that the database engine is listening on.-dcPort :: Lens' DBCluster (Maybe Int)-dcPort = lens _dcPort (\ s a -> s{_dcPort = a});---- | Provides the list of option group memberships for this DB cluster.-dcDBClusterOptionGroupMemberships :: Lens' DBCluster [DBClusterOptionGroupStatus]-dcDBClusterOptionGroupMemberships = lens _dcDBClusterOptionGroupMemberships (\ s a -> s{_dcDBClusterOptionGroupMemberships = a}) . _Default . _Coerce;--instance FromXML DBCluster where-        parseXML x-          = DBCluster' <$>-              (x .@? "EngineVersion") <*> (x .@? "Status") <*>-                (x .@? "StorageEncrypted")-                <*> (x .@? "DBClusterIdentifier")-                <*>-                (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")-                <*>-                (x .@? "AvailabilityZones" .!@ mempty >>=-                   may (parseXMLList "AvailabilityZone"))-                <*> (x .@? "CharacterSetName")-                <*> (x .@? "KmsKeyId")-                <*> (x .@? "PreferredBackupWindow")-                <*>-                (x .@? "AssociatedRoles" .!@ mempty >>=-                   may (parseXMLList "DBClusterRole"))-                <*>-                (x .@? "VpcSecurityGroups" .!@ mempty >>=-                   may (parseXMLList "VpcSecurityGroupMembership"))-                <*> (x .@? "BackupRetentionPeriod")-                <*> (x .@? "DBSubnetGroup")-                <*> (x .@? "DatabaseName")-                <*> (x .@? "AllocatedStorage")-                <*> (x .@? "Endpoint")-                <*> (x .@? "PercentProgress")-                <*> (x .@? "ReaderEndpoint")-                <*> (x .@? "Port")-                <*>-                (x .@? "DBClusterOptionGroupMemberships" .!@ mempty-                   >>= may (parseXMLList "DBClusterOptionGroup"))--instance Hashable DBCluster--instance NFData DBCluster---- | Contains information about an instance that is part of a DB cluster.------------ /See:/ 'dbClusterMember' smart constructor.-data DBClusterMember = DBClusterMember'-    { _dcmPromotionTier                 :: !(Maybe Int)-    , _dcmDBInstanceIdentifier          :: !(Maybe Text)-    , _dcmIsClusterWriter               :: !(Maybe Bool)-    , _dcmDBClusterParameterGroupStatus :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBClusterMember' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcmPromotionTier' - A value that specifies the order in which an Aurora Replica is promoted to the primary instance after a failure of the existing primary instance. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Aurora.Managing.html#Aurora.Managing.FaultTolerance Fault Tolerance for an Aurora DB Cluster> .------ * 'dcmDBInstanceIdentifier' - Specifies the instance identifier for this member of the DB cluster.------ * 'dcmIsClusterWriter' - Value that is @true@ if the cluster member is the primary instance for the DB cluster and @false@ otherwise.------ * 'dcmDBClusterParameterGroupStatus' - Specifies the status of the DB cluster parameter group for this member of the DB cluster.-dbClusterMember-    :: DBClusterMember-dbClusterMember =-    DBClusterMember'-    { _dcmPromotionTier = Nothing-    , _dcmDBInstanceIdentifier = Nothing-    , _dcmIsClusterWriter = Nothing-    , _dcmDBClusterParameterGroupStatus = Nothing-    }---- | A value that specifies the order in which an Aurora Replica is promoted to the primary instance after a failure of the existing primary instance. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Aurora.Managing.html#Aurora.Managing.FaultTolerance Fault Tolerance for an Aurora DB Cluster> .-dcmPromotionTier :: Lens' DBClusterMember (Maybe Int)-dcmPromotionTier = lens _dcmPromotionTier (\ s a -> s{_dcmPromotionTier = a});---- | Specifies the instance identifier for this member of the DB cluster.-dcmDBInstanceIdentifier :: Lens' DBClusterMember (Maybe Text)-dcmDBInstanceIdentifier = lens _dcmDBInstanceIdentifier (\ s a -> s{_dcmDBInstanceIdentifier = a});---- | Value that is @true@ if the cluster member is the primary instance for the DB cluster and @false@ otherwise.-dcmIsClusterWriter :: Lens' DBClusterMember (Maybe Bool)-dcmIsClusterWriter = lens _dcmIsClusterWriter (\ s a -> s{_dcmIsClusterWriter = a});---- | Specifies the status of the DB cluster parameter group for this member of the DB cluster.-dcmDBClusterParameterGroupStatus :: Lens' DBClusterMember (Maybe Text)-dcmDBClusterParameterGroupStatus = lens _dcmDBClusterParameterGroupStatus (\ s a -> s{_dcmDBClusterParameterGroupStatus = a});--instance FromXML DBClusterMember where-        parseXML x-          = DBClusterMember' <$>-              (x .@? "PromotionTier") <*>-                (x .@? "DBInstanceIdentifier")-                <*> (x .@? "IsClusterWriter")-                <*> (x .@? "DBClusterParameterGroupStatus")--instance Hashable DBClusterMember--instance NFData DBClusterMember---- | Contains status information for a DB cluster option group.------------ /See:/ 'dbClusterOptionGroupStatus' smart constructor.-data DBClusterOptionGroupStatus = DBClusterOptionGroupStatus'-    { _dcogsStatus                   :: !(Maybe Text)-    , _dcogsDBClusterOptionGroupName :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBClusterOptionGroupStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcogsStatus' - Specifies the status of the DB cluster option group.------ * 'dcogsDBClusterOptionGroupName' - Specifies the name of the DB cluster option group.-dbClusterOptionGroupStatus-    :: DBClusterOptionGroupStatus-dbClusterOptionGroupStatus =-    DBClusterOptionGroupStatus'-    { _dcogsStatus = Nothing-    , _dcogsDBClusterOptionGroupName = Nothing-    }---- | Specifies the status of the DB cluster option group.-dcogsStatus :: Lens' DBClusterOptionGroupStatus (Maybe Text)-dcogsStatus = lens _dcogsStatus (\ s a -> s{_dcogsStatus = a});---- | Specifies the name of the DB cluster option group.-dcogsDBClusterOptionGroupName :: Lens' DBClusterOptionGroupStatus (Maybe Text)-dcogsDBClusterOptionGroupName = lens _dcogsDBClusterOptionGroupName (\ s a -> s{_dcogsDBClusterOptionGroupName = a});--instance FromXML DBClusterOptionGroupStatus where-        parseXML x-          = DBClusterOptionGroupStatus' <$>-              (x .@? "Status") <*>-                (x .@? "DBClusterOptionGroupName")--instance Hashable DBClusterOptionGroupStatus--instance NFData DBClusterOptionGroupStatus---- | 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'-    { _dcpgDBClusterParameterGroupARN  :: !(Maybe Text)-    , _dcpgDBParameterGroupFamily      :: !(Maybe Text)-    , _dcpgDBClusterParameterGroupName :: !(Maybe Text)-    , _dcpgDescription                 :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBClusterParameterGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcpgDBClusterParameterGroupARN' - The Amazon Resource Name (ARN) for the DB cluster parameter group.------ * 'dcpgDBParameterGroupFamily' - Provides the name of the DB parameter group family that this DB cluster parameter group is compatible with.------ * 'dcpgDBClusterParameterGroupName' - Provides the name of the DB cluster parameter group.------ * 'dcpgDescription' - Provides the customer-specified description for this DB cluster parameter group.-dbClusterParameterGroup-    :: DBClusterParameterGroup-dbClusterParameterGroup =-    DBClusterParameterGroup'-    { _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});---- | Provides the name of the DB cluster parameter group.-dcpgDBClusterParameterGroupName :: Lens' DBClusterParameterGroup (Maybe Text)-dcpgDBClusterParameterGroupName = lens _dcpgDBClusterParameterGroupName (\ s a -> s{_dcpgDBClusterParameterGroupName = a});---- | Provides the customer-specified description for this DB cluster parameter group.-dcpgDescription :: Lens' DBClusterParameterGroup (Maybe Text)-dcpgDescription = lens _dcpgDescription (\ s a -> s{_dcpgDescription = a});--instance FromXML DBClusterParameterGroup where-        parseXML x-          = DBClusterParameterGroup' <$>-              (x .@? "DBClusterParameterGroupArn") <*>-                (x .@? "DBParameterGroupFamily")-                <*> (x .@? "DBClusterParameterGroupName")-                <*> (x .@? "Description")--instance Hashable DBClusterParameterGroup--instance NFData DBClusterParameterGroup---- |------------ /See:/ 'dbClusterParameterGroupNameMessage' smart constructor.-newtype DBClusterParameterGroupNameMessage = DBClusterParameterGroupNameMessage'-    { _dcpgnmDBClusterParameterGroupName :: Maybe Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBClusterParameterGroupNameMessage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcpgnmDBClusterParameterGroupName' - The name of the DB cluster parameter group. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens-dbClusterParameterGroupNameMessage-    :: DBClusterParameterGroupNameMessage-dbClusterParameterGroupNameMessage =-    DBClusterParameterGroupNameMessage'-    { _dcpgnmDBClusterParameterGroupName = Nothing-    }---- | The name of the DB cluster parameter group. Constraints:     * Must be 1 to 255 alphanumeric characters     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens-dcpgnmDBClusterParameterGroupName :: Lens' DBClusterParameterGroupNameMessage (Maybe Text)-dcpgnmDBClusterParameterGroupName = lens _dcpgnmDBClusterParameterGroupName (\ s a -> s{_dcpgnmDBClusterParameterGroupName = a});--instance FromXML DBClusterParameterGroupNameMessage-         where-        parseXML x-          = DBClusterParameterGroupNameMessage' <$>-              (x .@? "DBClusterParameterGroupName")--instance Hashable DBClusterParameterGroupNameMessage--instance NFData DBClusterParameterGroupNameMessage---- | Describes an AWS Identity and Access Management (IAM) role that is associated with a DB cluster.------------ /See:/ 'dbClusterRole' smart constructor.-data DBClusterRole = DBClusterRole'-    { _dcrStatus  :: !(Maybe Text)-    , _dcrRoleARN :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBClusterRole' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcrStatus' - Describes the state of association between the IAM role and the DB cluster. The Status property returns one of the following values:     * @ACTIVE@ - the IAM role ARN is associated with the DB cluster and can be used to access other AWS services on your behalf.     * @PENDING@ - the IAM role ARN is being associated with the DB cluster.     * @INVALID@ - the IAM role ARN is associated with the DB cluster, but the DB cluster is unable to assume the IAM role in order to access other AWS services on your behalf.------ * 'dcrRoleARN' - The Amazon Resource Name (ARN) of the IAM role that is associated with the DB cluster.-dbClusterRole-    :: DBClusterRole-dbClusterRole =-    DBClusterRole'-    { _dcrStatus = Nothing-    , _dcrRoleARN = Nothing-    }---- | Describes the state of association between the IAM role and the DB cluster. The Status property returns one of the following values:     * @ACTIVE@ - the IAM role ARN is associated with the DB cluster and can be used to access other AWS services on your behalf.     * @PENDING@ - the IAM role ARN is being associated with the DB cluster.     * @INVALID@ - the IAM role ARN is associated with the DB cluster, but the DB cluster is unable to assume the IAM role in order to access other AWS services on your behalf.-dcrStatus :: Lens' DBClusterRole (Maybe Text)-dcrStatus = lens _dcrStatus (\ s a -> s{_dcrStatus = a});---- | The Amazon Resource Name (ARN) of the IAM role that is associated with the DB cluster.-dcrRoleARN :: Lens' DBClusterRole (Maybe Text)-dcrRoleARN = lens _dcrRoleARN (\ s a -> s{_dcrRoleARN = a});--instance FromXML DBClusterRole where-        parseXML x-          = DBClusterRole' <$>-              (x .@? "Status") <*> (x .@? "RoleArn")--instance Hashable DBClusterRole--instance NFData DBClusterRole---- | 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.--------- /See:/ 'dbClusterSnapshot' smart constructor.-data DBClusterSnapshot = DBClusterSnapshot'-    { _dcsEngineVersion               :: !(Maybe Text)-    , _dcsStatus                      :: !(Maybe Text)-    , _dcsStorageEncrypted            :: !(Maybe Bool)-    , _dcsDBClusterIdentifier         :: !(Maybe Text)-    , _dcsMasterUsername              :: !(Maybe Text)-    , _dcsDBClusterSnapshotARN        :: !(Maybe Text)-    , _dcsVPCId                       :: !(Maybe Text)-    , _dcsDBClusterSnapshotIdentifier :: !(Maybe Text)-    , _dcsEngine                      :: !(Maybe Text)-    , _dcsLicenseModel                :: !(Maybe Text)-    , _dcsAvailabilityZones           :: !(Maybe [Text])-    , _dcsSnapshotType                :: !(Maybe Text)-    , _dcsKMSKeyId                    :: !(Maybe Text)-    , _dcsSnapshotCreateTime          :: !(Maybe ISO8601)-    , _dcsAllocatedStorage            :: !(Maybe Int)-    , _dcsClusterCreateTime           :: !(Maybe ISO8601)-    , _dcsPercentProgress             :: !(Maybe Int)-    , _dcsPort                        :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBClusterSnapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcsEngineVersion' - Provides the version of the database engine for this DB cluster snapshot.------ * 'dcsStatus' - Specifies the status of this DB cluster snapshot.------ * 'dcsStorageEncrypted' - Specifies whether the DB cluster snapshot is encrypted.------ * 'dcsDBClusterIdentifier' - Specifies the DB cluster identifier of the DB cluster that this DB cluster snapshot was created from.------ * 'dcsMasterUsername' - Provides the master username for the DB cluster snapshot.------ * 'dcsDBClusterSnapshotARN' - The Amazon Resource Name (ARN) for the DB cluster snapshot.------ * 'dcsVPCId' - Provides the VPC ID associated with the DB cluster snapshot.------ * 'dcsDBClusterSnapshotIdentifier' - Specifies the identifier for the DB cluster snapshot.------ * 'dcsEngine' - Specifies the name of the database engine.------ * 'dcsLicenseModel' - Provides the license model information for this DB cluster snapshot.------ * 'dcsAvailabilityZones' - Provides the list of EC2 Availability Zones that instances in the DB cluster snapshot can be restored in.------ * 'dcsSnapshotType' - Provides the type of the DB cluster snapshot.------ * 'dcsKMSKeyId' - If @StorageEncrypted@ is true, the KMS key identifier for the encrypted DB cluster snapshot.------ * 'dcsSnapshotCreateTime' - Provides the time when the snapshot was taken, in Universal Coordinated Time (UTC).------ * 'dcsAllocatedStorage' - Specifies the allocated storage size in gigabytes (GB).------ * 'dcsClusterCreateTime' - Specifies the time when the DB cluster was created, in Universal Coordinated Time (UTC).------ * 'dcsPercentProgress' - Specifies the percentage of the estimated data that has been transferred.------ * 'dcsPort' - Specifies the port that the DB cluster was listening on at the time of the snapshot.-dbClusterSnapshot-    :: DBClusterSnapshot-dbClusterSnapshot =-    DBClusterSnapshot'-    { _dcsEngineVersion = Nothing-    , _dcsStatus = Nothing-    , _dcsStorageEncrypted = Nothing-    , _dcsDBClusterIdentifier = Nothing-    , _dcsMasterUsername = Nothing-    , _dcsDBClusterSnapshotARN = Nothing-    , _dcsVPCId = Nothing-    , _dcsDBClusterSnapshotIdentifier = Nothing-    , _dcsEngine = Nothing-    , _dcsLicenseModel = Nothing-    , _dcsAvailabilityZones = Nothing-    , _dcsSnapshotType = Nothing-    , _dcsKMSKeyId = Nothing-    , _dcsSnapshotCreateTime = Nothing-    , _dcsAllocatedStorage = Nothing-    , _dcsClusterCreateTime = Nothing-    , _dcsPercentProgress = Nothing-    , _dcsPort = Nothing-    }---- | Provides the version of the database engine for this DB cluster snapshot.-dcsEngineVersion :: Lens' DBClusterSnapshot (Maybe Text)-dcsEngineVersion = lens _dcsEngineVersion (\ s a -> s{_dcsEngineVersion = a});---- | Specifies the status of this DB cluster snapshot.-dcsStatus :: Lens' DBClusterSnapshot (Maybe Text)-dcsStatus = lens _dcsStatus (\ s a -> s{_dcsStatus = a});---- | Specifies whether the DB cluster snapshot is encrypted.-dcsStorageEncrypted :: Lens' DBClusterSnapshot (Maybe Bool)-dcsStorageEncrypted = lens _dcsStorageEncrypted (\ s a -> s{_dcsStorageEncrypted = a});---- | Specifies the DB cluster identifier of the DB cluster that this DB cluster snapshot was created from.-dcsDBClusterIdentifier :: Lens' DBClusterSnapshot (Maybe Text)-dcsDBClusterIdentifier = lens _dcsDBClusterIdentifier (\ s a -> s{_dcsDBClusterIdentifier = a});---- | Provides the master username for the DB cluster snapshot.-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});---- | Specifies the identifier for the DB cluster snapshot.-dcsDBClusterSnapshotIdentifier :: Lens' DBClusterSnapshot (Maybe Text)-dcsDBClusterSnapshotIdentifier = lens _dcsDBClusterSnapshotIdentifier (\ s a -> s{_dcsDBClusterSnapshotIdentifier = a});---- | Specifies the name of the database engine.-dcsEngine :: Lens' DBClusterSnapshot (Maybe Text)-dcsEngine = lens _dcsEngine (\ s a -> s{_dcsEngine = a});---- | Provides the license model information for this DB cluster snapshot.-dcsLicenseModel :: Lens' DBClusterSnapshot (Maybe Text)-dcsLicenseModel = lens _dcsLicenseModel (\ s a -> s{_dcsLicenseModel = a});---- | Provides the list of EC2 Availability Zones that instances in the DB cluster snapshot can be restored in.-dcsAvailabilityZones :: Lens' DBClusterSnapshot [Text]-dcsAvailabilityZones = lens _dcsAvailabilityZones (\ s a -> s{_dcsAvailabilityZones = a}) . _Default . _Coerce;---- | Provides the type of the DB cluster snapshot.-dcsSnapshotType :: Lens' DBClusterSnapshot (Maybe Text)-dcsSnapshotType = lens _dcsSnapshotType (\ s a -> s{_dcsSnapshotType = a});---- | If @StorageEncrypted@ is true, the KMS key identifier for the encrypted DB cluster snapshot.-dcsKMSKeyId :: Lens' DBClusterSnapshot (Maybe Text)-dcsKMSKeyId = lens _dcsKMSKeyId (\ s a -> s{_dcsKMSKeyId = a});---- | Provides the time when the snapshot was taken, in Universal Coordinated Time (UTC).-dcsSnapshotCreateTime :: Lens' DBClusterSnapshot (Maybe UTCTime)-dcsSnapshotCreateTime = lens _dcsSnapshotCreateTime (\ s a -> s{_dcsSnapshotCreateTime = a}) . mapping _Time;---- | Specifies the allocated storage size in gigabytes (GB).-dcsAllocatedStorage :: Lens' DBClusterSnapshot (Maybe Int)-dcsAllocatedStorage = lens _dcsAllocatedStorage (\ s a -> s{_dcsAllocatedStorage = a});---- | Specifies the time when the DB cluster was created, in Universal Coordinated Time (UTC).-dcsClusterCreateTime :: Lens' DBClusterSnapshot (Maybe UTCTime)-dcsClusterCreateTime = lens _dcsClusterCreateTime (\ s a -> s{_dcsClusterCreateTime = a}) . mapping _Time;---- | Specifies the percentage of the estimated data that has been transferred.-dcsPercentProgress :: Lens' DBClusterSnapshot (Maybe Int)-dcsPercentProgress = lens _dcsPercentProgress (\ s a -> s{_dcsPercentProgress = a});---- | Specifies the port that the DB cluster was listening on at the time of the snapshot.-dcsPort :: Lens' DBClusterSnapshot (Maybe Int)-dcsPort = lens _dcsPort (\ s a -> s{_dcsPort = a});--instance FromXML DBClusterSnapshot where-        parseXML x-          = DBClusterSnapshot' <$>-              (x .@? "EngineVersion") <*> (x .@? "Status") <*>-                (x .@? "StorageEncrypted")-                <*> (x .@? "DBClusterIdentifier")-                <*> (x .@? "MasterUsername")-                <*> (x .@? "DBClusterSnapshotArn")-                <*> (x .@? "VpcId")-                <*> (x .@? "DBClusterSnapshotIdentifier")-                <*> (x .@? "Engine")-                <*> (x .@? "LicenseModel")-                <*>-                (x .@? "AvailabilityZones" .!@ mempty >>=-                   may (parseXMLList "AvailabilityZone"))-                <*> (x .@? "SnapshotType")-                <*> (x .@? "KmsKeyId")-                <*> (x .@? "SnapshotCreateTime")-                <*> (x .@? "AllocatedStorage")-                <*> (x .@? "ClusterCreateTime")-                <*> (x .@? "PercentProgress")-                <*> (x .@? "Port")--instance Hashable DBClusterSnapshot--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' - 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.------ * 'dcsaAttributeName' - 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.-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' - The identifier of the manual DB cluster snapshot that the attributes apply to.------ * 'dcsarDBClusterSnapshotAttributes' - The list of attributes and values for the manual DB cluster snapshot.-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.-data DBEngineVersion = DBEngineVersion'-    { _devEngineVersion              :: !(Maybe Text)-    , _devDBEngineVersionDescription :: !(Maybe Text)-    , _devDefaultCharacterSet        :: !(Maybe CharacterSet)-    , _devEngine                     :: !(Maybe Text)-    , _devDBParameterGroupFamily     :: !(Maybe Text)-    , _devSupportedCharacterSets     :: !(Maybe [CharacterSet])-    , _devDBEngineDescription        :: !(Maybe Text)-    , _devValidUpgradeTarget         :: !(Maybe [UpgradeTarget])-    , _devSupportedTimezones         :: !(Maybe [Timezone])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBEngineVersion' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'devEngineVersion' - The version number of the database engine.------ * 'devDBEngineVersionDescription' - The description of the database engine version.------ * 'devDefaultCharacterSet' - The default character set for new instances of this engine version, if the @CharacterSetName@ parameter of the CreateDBInstance API is not specified.------ * 'devEngine' - The name of the database engine.------ * 'devDBParameterGroupFamily' - The name of the DB parameter group family for the database engine.------ * 'devSupportedCharacterSets' - A list of the character sets supported by this engine for the @CharacterSetName@ parameter of the @CreateDBInstance@ action.------ * 'devDBEngineDescription' - The description of the database engine.------ * 'devValidUpgradeTarget' - A list of engine versions that this database engine version can be upgraded to.------ * 'devSupportedTimezones' - A list of the time zones supported by this engine for the @Timezone@ parameter of the @CreateDBInstance@ action.-dbEngineVersion-    :: DBEngineVersion-dbEngineVersion =-    DBEngineVersion'-    { _devEngineVersion = Nothing-    , _devDBEngineVersionDescription = Nothing-    , _devDefaultCharacterSet = Nothing-    , _devEngine = Nothing-    , _devDBParameterGroupFamily = Nothing-    , _devSupportedCharacterSets = Nothing-    , _devDBEngineDescription = Nothing-    , _devValidUpgradeTarget = Nothing-    , _devSupportedTimezones = Nothing-    }---- | The version number of the database engine.-devEngineVersion :: Lens' DBEngineVersion (Maybe Text)-devEngineVersion = lens _devEngineVersion (\ s a -> s{_devEngineVersion = a});---- | The description of the database engine version.-devDBEngineVersionDescription :: Lens' DBEngineVersion (Maybe Text)-devDBEngineVersionDescription = lens _devDBEngineVersionDescription (\ s a -> s{_devDBEngineVersionDescription = a});---- | The default character set for new instances of this engine version, if the @CharacterSetName@ parameter of the CreateDBInstance API is not specified.-devDefaultCharacterSet :: Lens' DBEngineVersion (Maybe CharacterSet)-devDefaultCharacterSet = lens _devDefaultCharacterSet (\ s a -> s{_devDefaultCharacterSet = a});---- | The name of the database engine.-devEngine :: Lens' DBEngineVersion (Maybe Text)-devEngine = lens _devEngine (\ s a -> s{_devEngine = a});---- | The name of the DB parameter group family for the database engine.-devDBParameterGroupFamily :: Lens' DBEngineVersion (Maybe Text)-devDBParameterGroupFamily = lens _devDBParameterGroupFamily (\ s a -> s{_devDBParameterGroupFamily = a});---- | A list of the character sets supported by this engine for the @CharacterSetName@ parameter of the @CreateDBInstance@ action.-devSupportedCharacterSets :: Lens' DBEngineVersion [CharacterSet]-devSupportedCharacterSets = lens _devSupportedCharacterSets (\ s a -> s{_devSupportedCharacterSets = a}) . _Default . _Coerce;---- | The description of the database engine.-devDBEngineDescription :: Lens' DBEngineVersion (Maybe Text)-devDBEngineDescription = lens _devDBEngineDescription (\ s a -> s{_devDBEngineDescription = a});---- | A list of engine versions that this database engine version can be upgraded to.-devValidUpgradeTarget :: Lens' DBEngineVersion [UpgradeTarget]-devValidUpgradeTarget = lens _devValidUpgradeTarget (\ s a -> s{_devValidUpgradeTarget = a}) . _Default . _Coerce;---- | A list of the time zones supported by this engine for the @Timezone@ parameter of the @CreateDBInstance@ action.-devSupportedTimezones :: Lens' DBEngineVersion [Timezone]-devSupportedTimezones = lens _devSupportedTimezones (\ s a -> s{_devSupportedTimezones = a}) . _Default . _Coerce;--instance FromXML DBEngineVersion where-        parseXML x-          = DBEngineVersion' <$>-              (x .@? "EngineVersion") <*>-                (x .@? "DBEngineVersionDescription")-                <*> (x .@? "DefaultCharacterSet")-                <*> (x .@? "Engine")-                <*> (x .@? "DBParameterGroupFamily")-                <*>-                (x .@? "SupportedCharacterSets" .!@ mempty >>=-                   may (parseXMLList "CharacterSet"))-                <*> (x .@? "DBEngineDescription")-                <*>-                (x .@? "ValidUpgradeTarget" .!@ mempty >>=-                   may (parseXMLList "UpgradeTarget"))-                <*>-                (x .@? "SupportedTimezones" .!@ mempty >>=-                   may (parseXMLList "Timezone"))--instance Hashable DBEngineVersion--instance NFData DBEngineVersion---- | 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.--------- /See:/ 'dbInstance' smart constructor.-data DBInstance = DBInstance'-    { _diEngineVersion                         :: !(Maybe Text)-    , _diDBSecurityGroups                      :: !(Maybe [DBSecurityGroupMembership])-    , _diStorageEncrypted                      :: !(Maybe Bool)-    , _diDBClusterIdentifier                   :: !(Maybe Text)-    , _diPubliclyAccessible                    :: !(Maybe Bool)-    , _diAutoMinorVersionUpgrade               :: !(Maybe Bool)-    , _diDBInstanceARN                         :: !(Maybe Text)-    , _diMasterUsername                        :: !(Maybe Text)-    , _diReadReplicaDBInstanceIdentifiers      :: !(Maybe [Text])-    , _diMonitoringRoleARN                     :: !(Maybe Text)-    , _diIOPS                                  :: !(Maybe Int)-    , _diInstanceCreateTime                    :: !(Maybe ISO8601)-    , _diReadReplicaSourceDBInstanceIdentifier :: !(Maybe Text)-    , _diMonitoringInterval                    :: !(Maybe Int)-    , _diEngine                                :: !(Maybe Text)-    , _diLatestRestorableTime                  :: !(Maybe ISO8601)-    , _diDBInstanceClass                       :: !(Maybe Text)-    , _diPromotionTier                         :: !(Maybe Int)-    , _diLicenseModel                          :: !(Maybe Text)-    , _diPreferredMaintenanceWindow            :: !(Maybe Text)-    , _diCACertificateIdentifier               :: !(Maybe Text)-    , _diDBInstanceIdentifier                  :: !(Maybe Text)-    , _diCharacterSetName                      :: !(Maybe Text)-    , _diKMSKeyId                              :: !(Maybe Text)-    , _diPreferredBackupWindow                 :: !(Maybe Text)-    , _diAvailabilityZone                      :: !(Maybe Text)-    , _diVPCSecurityGroups                     :: !(Maybe [VPCSecurityGroupMembership])-    , _diBackupRetentionPeriod                 :: !(Maybe Int)-    , _diDBSubnetGroup                         :: !(Maybe DBSubnetGroup)-    , _diMultiAZ                               :: !(Maybe Bool)-    , _diOptionGroupMemberships                :: !(Maybe [OptionGroupMembership])-    , _diEnhancedMonitoringResourceARN         :: !(Maybe Text)-    , _diSecondaryAvailabilityZone             :: !(Maybe Text)-    , _diAllocatedStorage                      :: !(Maybe Int)-    , _diDBiResourceId                         :: !(Maybe Text)-    , _diDBParameterGroups                     :: !(Maybe [DBParameterGroupStatus])-    , _diCopyTagsToSnapshot                    :: !(Maybe Bool)-    , _diTimezone                              :: !(Maybe Text)-    , _diTDECredentialARN                      :: !(Maybe Text)-    , _diEndpoint                              :: !(Maybe Endpoint)-    , _diDBInstanceStatus                      :: !(Maybe Text)-    , _diDBInstancePort                        :: !(Maybe Int)-    , _diPendingModifiedValues                 :: !(Maybe PendingModifiedValues)-    , _diStorageType                           :: !(Maybe Text)-    , _diStatusInfos                           :: !(Maybe [DBInstanceStatusInfo])-    , _diDomainMemberships                     :: !(Maybe [DomainMembership])-    , _diDBName                                :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBInstance' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'diEngineVersion' - Indicates the database engine version.------ * 'diDBSecurityGroups' - Provides List of DB security group elements containing only @DBSecurityGroup.Name@ and @DBSecurityGroup.Status@ subelements.------ * 'diStorageEncrypted' - Specifies whether the DB instance is encrypted.------ * 'diDBClusterIdentifier' - If the DB instance is a member of a DB cluster, contains the name of the DB cluster that the DB instance is a member of.------ * 'diPubliclyAccessible' - Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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.------ * 'diAutoMinorVersionUpgrade' - Indicates that minor version patches are applied automatically.------ * 'diDBInstanceARN' - The Amazon Resource Name (ARN) for the DB instance.------ * 'diMasterUsername' - Contains the master username for the DB instance.------ * 'diReadReplicaDBInstanceIdentifiers' - Contains one or more identifiers of the Read Replicas associated with this DB instance.------ * 'diMonitoringRoleARN' - The ARN for the IAM role that permits RDS to send Enhanced Monitoring metrics to CloudWatch Logs.------ * 'diIOPS' - Specifies the Provisioned IOPS (I/O operations per second) value.------ * 'diInstanceCreateTime' - Provides the date and time the DB instance was created.------ * 'diReadReplicaSourceDBInstanceIdentifier' - Contains the identifier of the source DB instance if this DB instance is a Read Replica.------ * 'diMonitoringInterval' - The interval, in seconds, between points when Enhanced Monitoring metrics are collected for the DB instance.------ * 'diEngine' - Provides the name of the database engine to be used for this DB instance.------ * 'diLatestRestorableTime' - Specifies the latest time to which a database can be restored with point-in-time restore.------ * 'diDBInstanceClass' - Contains the name of the compute and memory capacity class of the DB instance.------ * 'diPromotionTier' - A value that specifies the order in which an Aurora Replica is promoted to the primary instance after a failure of the existing primary instance. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Aurora.Managing.html#Aurora.Managing.FaultTolerance Fault Tolerance for an Aurora DB Cluster> .------ * 'diLicenseModel' - License model information for this DB instance.------ * 'diPreferredMaintenanceWindow' - Specifies the weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC).------ * 'diCACertificateIdentifier' - The identifier of the CA certificate for this DB instance.------ * 'diDBInstanceIdentifier' - Contains a user-supplied database identifier. This identifier is the unique key that identifies a DB instance.------ * 'diCharacterSetName' - If present, specifies the name of the character set that this instance is associated with.------ * 'diKMSKeyId' - If @StorageEncrypted@ is true, the KMS key identifier for the encrypted DB instance.------ * 'diPreferredBackupWindow' - Specifies the daily time range during which automated backups are created if automated backups are enabled, as determined by the @BackupRetentionPeriod@ .------ * 'diAvailabilityZone' - Specifies the name of the Availability Zone the DB instance is located in.------ * 'diVPCSecurityGroups' - Provides a list of VPC security group elements that the DB instance belongs to.------ * 'diBackupRetentionPeriod' - Specifies the number of days for which automatic DB snapshots are retained.------ * 'diDBSubnetGroup' - Specifies information on the subnet group associated with the DB instance, including the name, description, and subnets in the subnet group.------ * 'diMultiAZ' - Specifies if the DB instance is a Multi-AZ deployment.------ * 'diOptionGroupMemberships' - Provides the list of option group memberships for this DB instance.------ * 'diEnhancedMonitoringResourceARN' - The Amazon Resource Name (ARN) of the Amazon CloudWatch Logs log stream that receives the Enhanced Monitoring metrics data for the DB instance.------ * 'diSecondaryAvailabilityZone' - If present, specifies the name of the secondary Availability Zone for a DB instance with multi-AZ support.------ * 'diAllocatedStorage' - Specifies the allocated storage size specified in gigabytes.------ * 'diDBiResourceId' - The region-unique, immutable identifier for the DB instance. This identifier is found in AWS CloudTrail log entries whenever the KMS key for the DB instance is accessed.------ * 'diDBParameterGroups' - Provides the list of DB parameter groups applied to this DB instance.------ * 'diCopyTagsToSnapshot' - Specifies whether tags are copied from the DB instance to snapshots of the DB instance.------ * 'diTimezone' - The time zone of the DB instance. In most cases, the @Timezone@ element is empty. @Timezone@ content appears only for Microsoft SQL Server DB instances that were created with a time zone specified.------ * 'diTDECredentialARN' - The ARN from the key store with which the instance is associated for TDE encryption.------ * 'diEndpoint' - Specifies the connection endpoint.------ * 'diDBInstanceStatus' - Specifies the current state of this database.------ * 'diDBInstancePort' - Specifies the port that the DB instance listens on. If the DB instance is part of a DB cluster, this can be a different port than the DB cluster port.------ * 'diPendingModifiedValues' - Specifies that changes to the DB instance are pending. This element is only included when changes are pending. Specific changes are identified by subelements.------ * 'diStorageType' - Specifies the storage type associated with DB instance.------ * 'diStatusInfos' - The status of a Read Replica. If the instance is not a Read Replica, this will be blank.------ * 'diDomainMemberships' - The Active Directory Domain membership records associated with the DB instance.------ * 'diDBName' - The meaning of this parameter differs according to the database engine you use. For example, this value returns MySQL, MariaDB, or PostgreSQL information when returning values from CreateDBInstanceReadReplica since Read Replicas are only supported for these engines. __MySQL, MariaDB, SQL Server, PostgreSQL, Amazon Aurora__  Contains the name of the initial database of this instance that was provided at create time, if one was specified when the DB instance was created. This same name is returned for the life of the DB instance. Type: String __Oracle__  Contains the Oracle System ID (SID) of the created DB instance. Not shown when the returned parameters do not apply to an Oracle DB instance.-dbInstance-    :: DBInstance-dbInstance =-    DBInstance'-    { _diEngineVersion = Nothing-    , _diDBSecurityGroups = Nothing-    , _diStorageEncrypted = Nothing-    , _diDBClusterIdentifier = Nothing-    , _diPubliclyAccessible = Nothing-    , _diAutoMinorVersionUpgrade = Nothing-    , _diDBInstanceARN = Nothing-    , _diMasterUsername = Nothing-    , _diReadReplicaDBInstanceIdentifiers = Nothing-    , _diMonitoringRoleARN = Nothing-    , _diIOPS = Nothing-    , _diInstanceCreateTime = Nothing-    , _diReadReplicaSourceDBInstanceIdentifier = Nothing-    , _diMonitoringInterval = Nothing-    , _diEngine = Nothing-    , _diLatestRestorableTime = Nothing-    , _diDBInstanceClass = Nothing-    , _diPromotionTier = Nothing-    , _diLicenseModel = Nothing-    , _diPreferredMaintenanceWindow = Nothing-    , _diCACertificateIdentifier = Nothing-    , _diDBInstanceIdentifier = Nothing-    , _diCharacterSetName = Nothing-    , _diKMSKeyId = Nothing-    , _diPreferredBackupWindow = Nothing-    , _diAvailabilityZone = Nothing-    , _diVPCSecurityGroups = Nothing-    , _diBackupRetentionPeriod = Nothing-    , _diDBSubnetGroup = Nothing-    , _diMultiAZ = Nothing-    , _diOptionGroupMemberships = Nothing-    , _diEnhancedMonitoringResourceARN = Nothing-    , _diSecondaryAvailabilityZone = Nothing-    , _diAllocatedStorage = Nothing-    , _diDBiResourceId = Nothing-    , _diDBParameterGroups = Nothing-    , _diCopyTagsToSnapshot = Nothing-    , _diTimezone = Nothing-    , _diTDECredentialARN = Nothing-    , _diEndpoint = Nothing-    , _diDBInstanceStatus = Nothing-    , _diDBInstancePort = Nothing-    , _diPendingModifiedValues = Nothing-    , _diStorageType = Nothing-    , _diStatusInfos = Nothing-    , _diDomainMemberships = Nothing-    , _diDBName = Nothing-    }---- | Indicates the database engine version.-diEngineVersion :: Lens' DBInstance (Maybe Text)-diEngineVersion = lens _diEngineVersion (\ s a -> s{_diEngineVersion = a});---- | Provides List of DB security group elements containing only @DBSecurityGroup.Name@ and @DBSecurityGroup.Status@ subelements.-diDBSecurityGroups :: Lens' DBInstance [DBSecurityGroupMembership]-diDBSecurityGroups = lens _diDBSecurityGroups (\ s a -> s{_diDBSecurityGroups = a}) . _Default . _Coerce;---- | Specifies whether the DB instance is encrypted.-diStorageEncrypted :: Lens' DBInstance (Maybe Bool)-diStorageEncrypted = lens _diStorageEncrypted (\ s a -> s{_diStorageEncrypted = a});---- | If the DB instance is a member of a DB cluster, contains the name of the DB cluster that the DB instance is a member of.-diDBClusterIdentifier :: Lens' DBInstance (Maybe Text)-diDBClusterIdentifier = lens _diDBClusterIdentifier (\ s a -> s{_diDBClusterIdentifier = a});---- | Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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.-diPubliclyAccessible :: Lens' DBInstance (Maybe Bool)-diPubliclyAccessible = lens _diPubliclyAccessible (\ s a -> s{_diPubliclyAccessible = a});---- | Indicates that minor version patches are applied automatically.-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});---- | Contains one or more identifiers of the Read Replicas associated with this DB instance.-diReadReplicaDBInstanceIdentifiers :: Lens' DBInstance [Text]-diReadReplicaDBInstanceIdentifiers = lens _diReadReplicaDBInstanceIdentifiers (\ s a -> s{_diReadReplicaDBInstanceIdentifiers = a}) . _Default . _Coerce;---- | The ARN for the IAM role that permits RDS to send Enhanced Monitoring metrics to CloudWatch Logs.-diMonitoringRoleARN :: Lens' DBInstance (Maybe Text)-diMonitoringRoleARN = lens _diMonitoringRoleARN (\ s a -> s{_diMonitoringRoleARN = a});---- | Specifies the Provisioned IOPS (I/O operations per second) value.-diIOPS :: Lens' DBInstance (Maybe Int)-diIOPS = lens _diIOPS (\ s a -> s{_diIOPS = a});---- | Provides the date and time the DB instance was created.-diInstanceCreateTime :: Lens' DBInstance (Maybe UTCTime)-diInstanceCreateTime = lens _diInstanceCreateTime (\ s a -> s{_diInstanceCreateTime = a}) . mapping _Time;---- | Contains the identifier of the source DB instance if this DB instance is a Read Replica.-diReadReplicaSourceDBInstanceIdentifier :: Lens' DBInstance (Maybe Text)-diReadReplicaSourceDBInstanceIdentifier = lens _diReadReplicaSourceDBInstanceIdentifier (\ s a -> s{_diReadReplicaSourceDBInstanceIdentifier = a});---- | The interval, in seconds, between points when Enhanced Monitoring metrics are collected for the DB instance.-diMonitoringInterval :: Lens' DBInstance (Maybe Int)-diMonitoringInterval = lens _diMonitoringInterval (\ s a -> s{_diMonitoringInterval = a});---- | Provides the name of the database engine to be used for this DB instance.-diEngine :: Lens' DBInstance (Maybe Text)-diEngine = lens _diEngine (\ s a -> s{_diEngine = a});---- | Specifies the latest time to which a database can be restored with point-in-time restore.-diLatestRestorableTime :: Lens' DBInstance (Maybe UTCTime)-diLatestRestorableTime = lens _diLatestRestorableTime (\ s a -> s{_diLatestRestorableTime = a}) . mapping _Time;---- | Contains the name of the compute and memory capacity class of the DB instance.-diDBInstanceClass :: Lens' DBInstance (Maybe Text)-diDBInstanceClass = lens _diDBInstanceClass (\ s a -> s{_diDBInstanceClass = a});---- | A value that specifies the order in which an Aurora Replica is promoted to the primary instance after a failure of the existing primary instance. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Aurora.Managing.html#Aurora.Managing.FaultTolerance Fault Tolerance for an Aurora DB Cluster> .-diPromotionTier :: Lens' DBInstance (Maybe Int)-diPromotionTier = lens _diPromotionTier (\ s a -> s{_diPromotionTier = a});---- | License model information for this DB instance.-diLicenseModel :: Lens' DBInstance (Maybe Text)-diLicenseModel = lens _diLicenseModel (\ s a -> s{_diLicenseModel = a});---- | Specifies the weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC).-diPreferredMaintenanceWindow :: Lens' DBInstance (Maybe Text)-diPreferredMaintenanceWindow = lens _diPreferredMaintenanceWindow (\ s a -> s{_diPreferredMaintenanceWindow = a});---- | The identifier of the CA certificate for this DB instance.-diCACertificateIdentifier :: Lens' DBInstance (Maybe Text)-diCACertificateIdentifier = lens _diCACertificateIdentifier (\ s a -> s{_diCACertificateIdentifier = a});---- | Contains a user-supplied database identifier. This identifier is the unique key that identifies a DB instance.-diDBInstanceIdentifier :: Lens' DBInstance (Maybe Text)-diDBInstanceIdentifier = lens _diDBInstanceIdentifier (\ s a -> s{_diDBInstanceIdentifier = a});---- | If present, specifies the name of the character set that this instance is associated with.-diCharacterSetName :: Lens' DBInstance (Maybe Text)-diCharacterSetName = lens _diCharacterSetName (\ s a -> s{_diCharacterSetName = a});---- | If @StorageEncrypted@ is true, the KMS key identifier for the encrypted DB instance.-diKMSKeyId :: Lens' DBInstance (Maybe Text)-diKMSKeyId = lens _diKMSKeyId (\ s a -> s{_diKMSKeyId = a});---- | Specifies the daily time range during which automated backups are created if automated backups are enabled, as determined by the @BackupRetentionPeriod@ .-diPreferredBackupWindow :: Lens' DBInstance (Maybe Text)-diPreferredBackupWindow = lens _diPreferredBackupWindow (\ s a -> s{_diPreferredBackupWindow = a});---- | Specifies the name of the Availability Zone the DB instance is located in.-diAvailabilityZone :: Lens' DBInstance (Maybe Text)-diAvailabilityZone = lens _diAvailabilityZone (\ s a -> s{_diAvailabilityZone = a});---- | Provides a list of VPC security group elements that the DB instance belongs to.-diVPCSecurityGroups :: Lens' DBInstance [VPCSecurityGroupMembership]-diVPCSecurityGroups = lens _diVPCSecurityGroups (\ s a -> s{_diVPCSecurityGroups = a}) . _Default . _Coerce;---- | Specifies the number of days for which automatic DB snapshots are retained.-diBackupRetentionPeriod :: Lens' DBInstance (Maybe Int)-diBackupRetentionPeriod = lens _diBackupRetentionPeriod (\ s a -> s{_diBackupRetentionPeriod = a});---- | Specifies information on the subnet group associated with the DB instance, including the name, description, and subnets in the subnet group.-diDBSubnetGroup :: Lens' DBInstance (Maybe DBSubnetGroup)-diDBSubnetGroup = lens _diDBSubnetGroup (\ s a -> s{_diDBSubnetGroup = a});---- | Specifies if the DB instance is a Multi-AZ deployment.-diMultiAZ :: Lens' DBInstance (Maybe Bool)-diMultiAZ = lens _diMultiAZ (\ s a -> s{_diMultiAZ = a});---- | Provides the list of option group memberships for this DB instance.-diOptionGroupMemberships :: Lens' DBInstance [OptionGroupMembership]-diOptionGroupMemberships = lens _diOptionGroupMemberships (\ s a -> s{_diOptionGroupMemberships = a}) . _Default . _Coerce;---- | The Amazon Resource Name (ARN) of the Amazon CloudWatch Logs log stream that receives the Enhanced Monitoring metrics data for the DB instance.-diEnhancedMonitoringResourceARN :: Lens' DBInstance (Maybe Text)-diEnhancedMonitoringResourceARN = lens _diEnhancedMonitoringResourceARN (\ s a -> s{_diEnhancedMonitoringResourceARN = a});---- | If present, specifies the name of the secondary Availability Zone for a DB instance with multi-AZ support.-diSecondaryAvailabilityZone :: Lens' DBInstance (Maybe Text)-diSecondaryAvailabilityZone = lens _diSecondaryAvailabilityZone (\ s a -> s{_diSecondaryAvailabilityZone = a});---- | Specifies the allocated storage size specified in gigabytes.-diAllocatedStorage :: Lens' DBInstance (Maybe Int)-diAllocatedStorage = lens _diAllocatedStorage (\ s a -> s{_diAllocatedStorage = a});---- | The region-unique, immutable identifier for the DB instance. This identifier is found in AWS CloudTrail log entries whenever the KMS key for the DB instance is accessed.-diDBiResourceId :: Lens' DBInstance (Maybe Text)-diDBiResourceId = lens _diDBiResourceId (\ s a -> s{_diDBiResourceId = a});---- | Provides the list of DB parameter groups applied to this DB instance.-diDBParameterGroups :: Lens' DBInstance [DBParameterGroupStatus]-diDBParameterGroups = lens _diDBParameterGroups (\ s a -> s{_diDBParameterGroups = a}) . _Default . _Coerce;---- | Specifies whether tags are copied from the DB instance to snapshots of the DB instance.-diCopyTagsToSnapshot :: Lens' DBInstance (Maybe Bool)-diCopyTagsToSnapshot = lens _diCopyTagsToSnapshot (\ s a -> s{_diCopyTagsToSnapshot = a});---- | The time zone of the DB instance. In most cases, the @Timezone@ element is empty. @Timezone@ content appears only for Microsoft SQL Server DB instances that were created with a time zone specified.-diTimezone :: Lens' DBInstance (Maybe Text)-diTimezone = lens _diTimezone (\ s a -> s{_diTimezone = a});---- | The ARN from the key store with which the instance is associated for TDE encryption.-diTDECredentialARN :: Lens' DBInstance (Maybe Text)-diTDECredentialARN = lens _diTDECredentialARN (\ s a -> s{_diTDECredentialARN = a});---- | Specifies the connection endpoint.-diEndpoint :: Lens' DBInstance (Maybe Endpoint)-diEndpoint = lens _diEndpoint (\ s a -> s{_diEndpoint = a});---- | Specifies the current state of this database.-diDBInstanceStatus :: Lens' DBInstance (Maybe Text)-diDBInstanceStatus = lens _diDBInstanceStatus (\ s a -> s{_diDBInstanceStatus = a});---- | Specifies the port that the DB instance listens on. If the DB instance is part of a DB cluster, this can be a different port than the DB cluster port.-diDBInstancePort :: Lens' DBInstance (Maybe Int)-diDBInstancePort = lens _diDBInstancePort (\ s a -> s{_diDBInstancePort = a});---- | Specifies that changes to the DB instance are pending. This element is only included when changes are pending. Specific changes are identified by subelements.-diPendingModifiedValues :: Lens' DBInstance (Maybe PendingModifiedValues)-diPendingModifiedValues = lens _diPendingModifiedValues (\ s a -> s{_diPendingModifiedValues = a});---- | Specifies the storage type associated with DB instance.-diStorageType :: Lens' DBInstance (Maybe Text)-diStorageType = lens _diStorageType (\ s a -> s{_diStorageType = a});---- | The status of a Read Replica. If the instance is not a Read Replica, this will be blank.-diStatusInfos :: Lens' DBInstance [DBInstanceStatusInfo]-diStatusInfos = lens _diStatusInfos (\ s a -> s{_diStatusInfos = a}) . _Default . _Coerce;---- | The Active Directory Domain membership records associated with the DB instance.-diDomainMemberships :: Lens' DBInstance [DomainMembership]-diDomainMemberships = lens _diDomainMemberships (\ s a -> s{_diDomainMemberships = a}) . _Default . _Coerce;---- | The meaning of this parameter differs according to the database engine you use. For example, this value returns MySQL, MariaDB, or PostgreSQL information when returning values from CreateDBInstanceReadReplica since Read Replicas are only supported for these engines. __MySQL, MariaDB, SQL Server, PostgreSQL, Amazon Aurora__  Contains the name of the initial database of this instance that was provided at create time, if one was specified when the DB instance was created. This same name is returned for the life of the DB instance. Type: String __Oracle__  Contains the Oracle System ID (SID) of the created DB instance. Not shown when the returned parameters do not apply to an Oracle DB instance.-diDBName :: Lens' DBInstance (Maybe Text)-diDBName = lens _diDBName (\ s a -> s{_diDBName = a});--instance FromXML DBInstance where-        parseXML x-          = DBInstance' <$>-              (x .@? "EngineVersion") <*>-                (x .@? "DBSecurityGroups" .!@ mempty >>=-                   may (parseXMLList "DBSecurityGroup"))-                <*> (x .@? "StorageEncrypted")-                <*> (x .@? "DBClusterIdentifier")-                <*> (x .@? "PubliclyAccessible")-                <*> (x .@? "AutoMinorVersionUpgrade")-                <*> (x .@? "DBInstanceArn")-                <*> (x .@? "MasterUsername")-                <*>-                (x .@? "ReadReplicaDBInstanceIdentifiers" .!@ mempty-                   >>=-                   may (parseXMLList "ReadReplicaDBInstanceIdentifier"))-                <*> (x .@? "MonitoringRoleArn")-                <*> (x .@? "Iops")-                <*> (x .@? "InstanceCreateTime")-                <*> (x .@? "ReadReplicaSourceDBInstanceIdentifier")-                <*> (x .@? "MonitoringInterval")-                <*> (x .@? "Engine")-                <*> (x .@? "LatestRestorableTime")-                <*> (x .@? "DBInstanceClass")-                <*> (x .@? "PromotionTier")-                <*> (x .@? "LicenseModel")-                <*> (x .@? "PreferredMaintenanceWindow")-                <*> (x .@? "CACertificateIdentifier")-                <*> (x .@? "DBInstanceIdentifier")-                <*> (x .@? "CharacterSetName")-                <*> (x .@? "KmsKeyId")-                <*> (x .@? "PreferredBackupWindow")-                <*> (x .@? "AvailabilityZone")-                <*>-                (x .@? "VpcSecurityGroups" .!@ mempty >>=-                   may (parseXMLList "VpcSecurityGroupMembership"))-                <*> (x .@? "BackupRetentionPeriod")-                <*> (x .@? "DBSubnetGroup")-                <*> (x .@? "MultiAZ")-                <*>-                (x .@? "OptionGroupMemberships" .!@ mempty >>=-                   may (parseXMLList "OptionGroupMembership"))-                <*> (x .@? "EnhancedMonitoringResourceArn")-                <*> (x .@? "SecondaryAvailabilityZone")-                <*> (x .@? "AllocatedStorage")-                <*> (x .@? "DbiResourceId")-                <*>-                (x .@? "DBParameterGroups" .!@ mempty >>=-                   may (parseXMLList "DBParameterGroup"))-                <*> (x .@? "CopyTagsToSnapshot")-                <*> (x .@? "Timezone")-                <*> (x .@? "TdeCredentialArn")-                <*> (x .@? "Endpoint")-                <*> (x .@? "DBInstanceStatus")-                <*> (x .@? "DbInstancePort")-                <*> (x .@? "PendingModifiedValues")-                <*> (x .@? "StorageType")-                <*>-                (x .@? "StatusInfos" .!@ mempty >>=-                   may (parseXMLList "DBInstanceStatusInfo"))-                <*>-                (x .@? "DomainMemberships" .!@ mempty >>=-                   may (parseXMLList "DomainMembership"))-                <*> (x .@? "DBName")--instance Hashable DBInstance--instance NFData DBInstance---- | Provides a list of status information for a DB instance.------------ /See:/ 'dbInstanceStatusInfo' smart constructor.-data DBInstanceStatusInfo = DBInstanceStatusInfo'-    { _disiStatus     :: !(Maybe Text)-    , _disiNormal     :: !(Maybe Bool)-    , _disiStatusType :: !(Maybe Text)-    , _disiMessage    :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBInstanceStatusInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'disiStatus' - Status of the DB instance. For a StatusType of read replica, the values can be replicating, error, stopped, or terminated.------ * 'disiNormal' - Boolean value that is true if the instance is operating normally, or false if the instance is in an error state.------ * 'disiStatusType' - This value is currently "read replication."------ * 'disiMessage' - Details of the error if there is an error for the instance. If the instance is not in an error state, this value is blank.-dbInstanceStatusInfo-    :: DBInstanceStatusInfo-dbInstanceStatusInfo =-    DBInstanceStatusInfo'-    { _disiStatus = Nothing-    , _disiNormal = Nothing-    , _disiStatusType = Nothing-    , _disiMessage = Nothing-    }---- | Status of the DB instance. For a StatusType of read replica, the values can be replicating, error, stopped, or terminated.-disiStatus :: Lens' DBInstanceStatusInfo (Maybe Text)-disiStatus = lens _disiStatus (\ s a -> s{_disiStatus = a});---- | Boolean value that is true if the instance is operating normally, or false if the instance is in an error state.-disiNormal :: Lens' DBInstanceStatusInfo (Maybe Bool)-disiNormal = lens _disiNormal (\ s a -> s{_disiNormal = a});---- | This value is currently "read replication."-disiStatusType :: Lens' DBInstanceStatusInfo (Maybe Text)-disiStatusType = lens _disiStatusType (\ s a -> s{_disiStatusType = a});---- | Details of the error if there is an error for the instance. If the instance is not in an error state, this value is blank.-disiMessage :: Lens' DBInstanceStatusInfo (Maybe Text)-disiMessage = lens _disiMessage (\ s a -> s{_disiMessage = a});--instance FromXML DBInstanceStatusInfo where-        parseXML x-          = DBInstanceStatusInfo' <$>-              (x .@? "Status") <*> (x .@? "Normal") <*>-                (x .@? "StatusType")-                <*> (x .@? "Message")--instance Hashable DBInstanceStatusInfo--instance NFData DBInstanceStatusInfo---- | Contains the result of a successful invocation of the 'CreateDBParameterGroup' action.--------- This data type is used as a request parameter in the 'DeleteDBParameterGroup' action, and as a response element in the 'DescribeDBParameterGroups' action.--------- /See:/ 'dbParameterGroup' smart constructor.-data DBParameterGroup = DBParameterGroup'-    { _dpgDBParameterGroupARN    :: !(Maybe Text)-    , _dpgDBParameterGroupFamily :: !(Maybe Text)-    , _dpgDBParameterGroupName   :: !(Maybe Text)-    , _dpgDescription            :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBParameterGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dpgDBParameterGroupARN' - The Amazon Resource Name (ARN) for the DB parameter group.------ * 'dpgDBParameterGroupFamily' - Provides the name of the DB parameter group family that this DB parameter group is compatible with.------ * 'dpgDBParameterGroupName' - Provides the name of the DB parameter group.------ * 'dpgDescription' - Provides the customer-specified description for this DB parameter group.-dbParameterGroup-    :: DBParameterGroup-dbParameterGroup =-    DBParameterGroup'-    { _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});---- | Provides the name of the DB parameter group.-dpgDBParameterGroupName :: Lens' DBParameterGroup (Maybe Text)-dpgDBParameterGroupName = lens _dpgDBParameterGroupName (\ s a -> s{_dpgDBParameterGroupName = a});---- | Provides the customer-specified description for this DB parameter group.-dpgDescription :: Lens' DBParameterGroup (Maybe Text)-dpgDescription = lens _dpgDescription (\ s a -> s{_dpgDescription = a});--instance FromXML DBParameterGroup where-        parseXML x-          = DBParameterGroup' <$>-              (x .@? "DBParameterGroupArn") <*>-                (x .@? "DBParameterGroupFamily")-                <*> (x .@? "DBParameterGroupName")-                <*> (x .@? "Description")--instance Hashable DBParameterGroup--instance NFData DBParameterGroup---- | Contains the result of a successful invocation of the 'ModifyDBParameterGroup' or 'ResetDBParameterGroup' action.------------ /See:/ 'dbParameterGroupNameMessage' smart constructor.-newtype DBParameterGroupNameMessage = DBParameterGroupNameMessage'-    { _dpgnmDBParameterGroupName :: Maybe Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBParameterGroupNameMessage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dpgnmDBParameterGroupName' - Provides the name of the DB parameter group.-dbParameterGroupNameMessage-    :: DBParameterGroupNameMessage-dbParameterGroupNameMessage =-    DBParameterGroupNameMessage'-    { _dpgnmDBParameterGroupName = Nothing-    }---- | Provides the name of the DB parameter group.-dpgnmDBParameterGroupName :: Lens' DBParameterGroupNameMessage (Maybe Text)-dpgnmDBParameterGroupName = lens _dpgnmDBParameterGroupName (\ s a -> s{_dpgnmDBParameterGroupName = a});--instance FromXML DBParameterGroupNameMessage where-        parseXML x-          = DBParameterGroupNameMessage' <$>-              (x .@? "DBParameterGroupName")--instance Hashable DBParameterGroupNameMessage--instance NFData DBParameterGroupNameMessage---- | The status of the DB parameter group.--------- This data type is used as a response element in the following actions:------     * 'CreateDBInstance'------     * 'CreateDBInstanceReadReplica'------     * 'DeleteDBInstance'------     * 'ModifyDBInstance'------     * 'RebootDBInstance'------     * 'RestoreDBInstanceFromDBSnapshot'--------------- /See:/ 'dbParameterGroupStatus' smart constructor.-data DBParameterGroupStatus = DBParameterGroupStatus'-    { _dpgsDBParameterGroupName :: !(Maybe Text)-    , _dpgsParameterApplyStatus :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBParameterGroupStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dpgsDBParameterGroupName' - The name of the DP parameter group.------ * 'dpgsParameterApplyStatus' - The status of parameter updates.-dbParameterGroupStatus-    :: DBParameterGroupStatus-dbParameterGroupStatus =-    DBParameterGroupStatus'-    { _dpgsDBParameterGroupName = Nothing-    , _dpgsParameterApplyStatus = Nothing-    }---- | The name of the DP parameter group.-dpgsDBParameterGroupName :: Lens' DBParameterGroupStatus (Maybe Text)-dpgsDBParameterGroupName = lens _dpgsDBParameterGroupName (\ s a -> s{_dpgsDBParameterGroupName = a});---- | The status of parameter updates.-dpgsParameterApplyStatus :: Lens' DBParameterGroupStatus (Maybe Text)-dpgsParameterApplyStatus = lens _dpgsParameterApplyStatus (\ s a -> s{_dpgsParameterApplyStatus = a});--instance FromXML DBParameterGroupStatus where-        parseXML x-          = DBParameterGroupStatus' <$>-              (x .@? "DBParameterGroupName") <*>-                (x .@? "ParameterApplyStatus")--instance Hashable DBParameterGroupStatus--instance NFData DBParameterGroupStatus---- | 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.--------- /See:/ 'dbSecurityGroup' smart constructor.-data DBSecurityGroup = DBSecurityGroup'-    { _dbsgVPCId                      :: !(Maybe Text)-    , _dbsgOwnerId                    :: !(Maybe Text)-    , _dbsgDBSecurityGroupARN         :: !(Maybe Text)-    , _dbsgIPRanges                   :: !(Maybe [IPRange])-    , _dbsgDBSecurityGroupName        :: !(Maybe Text)-    , _dbsgEC2SecurityGroups          :: !(Maybe [EC2SecurityGroup])-    , _dbsgDBSecurityGroupDescription :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBSecurityGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dbsgVPCId' - Provides the VpcId of the DB security group.------ * 'dbsgOwnerId' - Provides the AWS ID of the owner of a specific DB security group.------ * 'dbsgDBSecurityGroupARN' - The Amazon Resource Name (ARN) for the DB security group.------ * 'dbsgIPRanges' - Contains a list of 'IPRange' elements.------ * 'dbsgDBSecurityGroupName' - Specifies the name of the DB security group.------ * 'dbsgEC2SecurityGroups' - Contains a list of 'EC2SecurityGroup' elements.------ * 'dbsgDBSecurityGroupDescription' - Provides the description of the DB security group.-dbSecurityGroup-    :: DBSecurityGroup-dbSecurityGroup =-    DBSecurityGroup'-    { _dbsgVPCId = Nothing-    , _dbsgOwnerId = Nothing-    , _dbsgDBSecurityGroupARN = Nothing-    , _dbsgIPRanges = Nothing-    , _dbsgDBSecurityGroupName = Nothing-    , _dbsgEC2SecurityGroups = Nothing-    , _dbsgDBSecurityGroupDescription = Nothing-    }---- | Provides the VpcId of the DB security group.-dbsgVPCId :: Lens' DBSecurityGroup (Maybe Text)-dbsgVPCId = lens _dbsgVPCId (\ s a -> s{_dbsgVPCId = a});---- | Provides the AWS ID of the owner of a specific DB security group.-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;---- | Specifies the name of the DB security group.-dbsgDBSecurityGroupName :: Lens' DBSecurityGroup (Maybe Text)-dbsgDBSecurityGroupName = lens _dbsgDBSecurityGroupName (\ s a -> s{_dbsgDBSecurityGroupName = a});---- | Contains a list of 'EC2SecurityGroup' elements.-dbsgEC2SecurityGroups :: Lens' DBSecurityGroup [EC2SecurityGroup]-dbsgEC2SecurityGroups = lens _dbsgEC2SecurityGroups (\ s a -> s{_dbsgEC2SecurityGroups = a}) . _Default . _Coerce;---- | Provides the description of the DB security group.-dbsgDBSecurityGroupDescription :: Lens' DBSecurityGroup (Maybe Text)-dbsgDBSecurityGroupDescription = lens _dbsgDBSecurityGroupDescription (\ s a -> s{_dbsgDBSecurityGroupDescription = a});--instance FromXML DBSecurityGroup where-        parseXML x-          = DBSecurityGroup' <$>-              (x .@? "VpcId") <*> (x .@? "OwnerId") <*>-                (x .@? "DBSecurityGroupArn")-                <*>-                (x .@? "IPRanges" .!@ mempty >>=-                   may (parseXMLList "IPRange"))-                <*> (x .@? "DBSecurityGroupName")-                <*>-                (x .@? "EC2SecurityGroups" .!@ mempty >>=-                   may (parseXMLList "EC2SecurityGroup"))-                <*> (x .@? "DBSecurityGroupDescription")--instance Hashable DBSecurityGroup--instance NFData DBSecurityGroup---- | 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)-    , _dsgmDBSecurityGroupName :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBSecurityGroupMembership' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dsgmStatus' - The status of the DB security group.------ * 'dsgmDBSecurityGroupName' - The name of the DB security group.-dbSecurityGroupMembership-    :: DBSecurityGroupMembership-dbSecurityGroupMembership =-    DBSecurityGroupMembership'-    { _dsgmStatus = Nothing-    , _dsgmDBSecurityGroupName = Nothing-    }---- | The status of the DB security group.-dsgmStatus :: Lens' DBSecurityGroupMembership (Maybe Text)-dsgmStatus = lens _dsgmStatus (\ s a -> s{_dsgmStatus = a});---- | The name of the DB security group.-dsgmDBSecurityGroupName :: Lens' DBSecurityGroupMembership (Maybe Text)-dsgmDBSecurityGroupName = lens _dsgmDBSecurityGroupName (\ s a -> s{_dsgmDBSecurityGroupName = a});--instance FromXML DBSecurityGroupMembership where-        parseXML x-          = DBSecurityGroupMembership' <$>-              (x .@? "Status") <*> (x .@? "DBSecurityGroupName")--instance Hashable DBSecurityGroupMembership--instance NFData DBSecurityGroupMembership---- | 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.--------- /See:/ 'dbSnapshot' smart constructor.-data DBSnapshot = DBSnapshot'-    { _dsEngineVersion              :: !(Maybe Text)-    , _dsStatus                     :: !(Maybe Text)-    , _dsDBSnapshotARN              :: !(Maybe Text)-    , _dsMasterUsername             :: !(Maybe Text)-    , _dsSourceRegion               :: !(Maybe Text)-    , _dsIOPS                       :: !(Maybe Int)-    , _dsVPCId                      :: !(Maybe Text)-    , _dsInstanceCreateTime         :: !(Maybe ISO8601)-    , _dsEngine                     :: !(Maybe Text)-    , _dsEncrypted                  :: !(Maybe Bool)-    , _dsDBSnapshotIdentifier       :: !(Maybe Text)-    , _dsLicenseModel               :: !(Maybe Text)-    , _dsSourceDBSnapshotIdentifier :: !(Maybe Text)-    , _dsSnapshotType               :: !(Maybe Text)-    , _dsDBInstanceIdentifier       :: !(Maybe Text)-    , _dsKMSKeyId                   :: !(Maybe Text)-    , _dsAvailabilityZone           :: !(Maybe Text)-    , _dsSnapshotCreateTime         :: !(Maybe ISO8601)-    , _dsAllocatedStorage           :: !(Maybe Int)-    , _dsOptionGroupName            :: !(Maybe Text)-    , _dsTimezone                   :: !(Maybe Text)-    , _dsTDECredentialARN           :: !(Maybe Text)-    , _dsPercentProgress            :: !(Maybe Int)-    , _dsPort                       :: !(Maybe Int)-    , _dsStorageType                :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBSnapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dsEngineVersion' - Specifies the version of the database engine.------ * 'dsStatus' - Specifies the status of this DB snapshot.------ * 'dsDBSnapshotARN' - The Amazon Resource Name (ARN) for the DB snapshot.------ * 'dsMasterUsername' - Provides the master username for the DB snapshot.------ * 'dsSourceRegion' - The region that the DB snapshot was created in or copied from.------ * 'dsIOPS' - Specifies the Provisioned IOPS (I/O operations per second) value of the DB instance at the time of the snapshot.------ * 'dsVPCId' - Provides the VPC ID associated with the DB snapshot.------ * 'dsInstanceCreateTime' - Specifies the time when the snapshot was taken, in Universal Coordinated Time (UTC).------ * 'dsEngine' - Specifies the name of the database engine.------ * 'dsEncrypted' - Specifies whether the DB snapshot is encrypted.------ * 'dsDBSnapshotIdentifier' - Specifies the identifier for the DB snapshot.------ * 'dsLicenseModel' - License model information for the restored DB instance.------ * 'dsSourceDBSnapshotIdentifier' - The DB snapshot Arn that the DB snapshot was copied from. It only has value in case of cross customer or cross region copy.------ * 'dsSnapshotType' - Provides the type of the DB snapshot.------ * 'dsDBInstanceIdentifier' - Specifies the DB instance identifier of the DB instance this DB snapshot was created from.------ * 'dsKMSKeyId' - If @Encrypted@ is true, the KMS key identifier for the encrypted DB snapshot.------ * 'dsAvailabilityZone' - Specifies the name of the Availability Zone the DB instance was located in at the time of the DB snapshot.------ * 'dsSnapshotCreateTime' - Provides the time when the snapshot was taken, in Universal Coordinated Time (UTC).------ * 'dsAllocatedStorage' - Specifies the allocated storage size in gigabytes (GB).------ * 'dsOptionGroupName' - Provides the option group name for the DB snapshot.------ * 'dsTimezone' - The time zone of the DB snapshot. In most cases, the @Timezone@ element is empty. @Timezone@ content appears only for snapshots taken from Microsoft SQL Server DB instances that were created with a time zone specified.------ * 'dsTDECredentialARN' - The ARN from the key store with which to associate the instance for TDE encryption.------ * 'dsPercentProgress' - The percentage of the estimated data that has been transferred.------ * 'dsPort' - Specifies the port that the database engine was listening on at the time of the snapshot.------ * 'dsStorageType' - Specifies the storage type associated with DB snapshot.-dbSnapshot-    :: DBSnapshot-dbSnapshot =-    DBSnapshot'-    { _dsEngineVersion = Nothing-    , _dsStatus = Nothing-    , _dsDBSnapshotARN = Nothing-    , _dsMasterUsername = Nothing-    , _dsSourceRegion = Nothing-    , _dsIOPS = Nothing-    , _dsVPCId = Nothing-    , _dsInstanceCreateTime = Nothing-    , _dsEngine = Nothing-    , _dsEncrypted = Nothing-    , _dsDBSnapshotIdentifier = Nothing-    , _dsLicenseModel = Nothing-    , _dsSourceDBSnapshotIdentifier = Nothing-    , _dsSnapshotType = Nothing-    , _dsDBInstanceIdentifier = Nothing-    , _dsKMSKeyId = Nothing-    , _dsAvailabilityZone = Nothing-    , _dsSnapshotCreateTime = Nothing-    , _dsAllocatedStorage = Nothing-    , _dsOptionGroupName = Nothing-    , _dsTimezone = Nothing-    , _dsTDECredentialARN = Nothing-    , _dsPercentProgress = Nothing-    , _dsPort = Nothing-    , _dsStorageType = Nothing-    }---- | Specifies the version of the database engine.-dsEngineVersion :: Lens' DBSnapshot (Maybe Text)-dsEngineVersion = lens _dsEngineVersion (\ s a -> s{_dsEngineVersion = a});---- | Specifies the status of this DB snapshot.-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});---- | The region that the DB snapshot was created in or copied from.-dsSourceRegion :: Lens' DBSnapshot (Maybe Text)-dsSourceRegion = lens _dsSourceRegion (\ s a -> s{_dsSourceRegion = a});---- | Specifies the Provisioned IOPS (I/O operations per second) value of the DB instance at the time of the snapshot.-dsIOPS :: Lens' DBSnapshot (Maybe Int)-dsIOPS = lens _dsIOPS (\ s a -> s{_dsIOPS = a});---- | Provides the VPC ID associated with the DB snapshot.-dsVPCId :: Lens' DBSnapshot (Maybe Text)-dsVPCId = lens _dsVPCId (\ s a -> s{_dsVPCId = a});---- | Specifies the time when the snapshot was taken, in Universal Coordinated Time (UTC).-dsInstanceCreateTime :: Lens' DBSnapshot (Maybe UTCTime)-dsInstanceCreateTime = lens _dsInstanceCreateTime (\ s a -> s{_dsInstanceCreateTime = a}) . mapping _Time;---- | Specifies the name of the database engine.-dsEngine :: Lens' DBSnapshot (Maybe Text)-dsEngine = lens _dsEngine (\ s a -> s{_dsEngine = a});---- | Specifies whether the DB snapshot is encrypted.-dsEncrypted :: Lens' DBSnapshot (Maybe Bool)-dsEncrypted = lens _dsEncrypted (\ s a -> s{_dsEncrypted = a});---- | Specifies the identifier for the DB snapshot.-dsDBSnapshotIdentifier :: Lens' DBSnapshot (Maybe Text)-dsDBSnapshotIdentifier = lens _dsDBSnapshotIdentifier (\ s a -> s{_dsDBSnapshotIdentifier = a});---- | License model information for the restored DB instance.-dsLicenseModel :: Lens' DBSnapshot (Maybe Text)-dsLicenseModel = lens _dsLicenseModel (\ s a -> s{_dsLicenseModel = a});---- | The DB snapshot Arn that the DB snapshot was copied from. It only has value in case of cross customer or cross region copy.-dsSourceDBSnapshotIdentifier :: Lens' DBSnapshot (Maybe Text)-dsSourceDBSnapshotIdentifier = lens _dsSourceDBSnapshotIdentifier (\ s a -> s{_dsSourceDBSnapshotIdentifier = a});---- | Provides the type of the DB snapshot.-dsSnapshotType :: Lens' DBSnapshot (Maybe Text)-dsSnapshotType = lens _dsSnapshotType (\ s a -> s{_dsSnapshotType = a});---- | Specifies the DB instance identifier of the DB instance this DB snapshot was created from.-dsDBInstanceIdentifier :: Lens' DBSnapshot (Maybe Text)-dsDBInstanceIdentifier = lens _dsDBInstanceIdentifier (\ s a -> s{_dsDBInstanceIdentifier = a});---- | If @Encrypted@ is true, the KMS key identifier for the encrypted DB snapshot.-dsKMSKeyId :: Lens' DBSnapshot (Maybe Text)-dsKMSKeyId = lens _dsKMSKeyId (\ s a -> s{_dsKMSKeyId = a});---- | Specifies the name of the Availability Zone the DB instance was located in at the time of the DB snapshot.-dsAvailabilityZone :: Lens' DBSnapshot (Maybe Text)-dsAvailabilityZone = lens _dsAvailabilityZone (\ s a -> s{_dsAvailabilityZone = a});---- | Provides the time when the snapshot was taken, in Universal Coordinated Time (UTC).-dsSnapshotCreateTime :: Lens' DBSnapshot (Maybe UTCTime)-dsSnapshotCreateTime = lens _dsSnapshotCreateTime (\ s a -> s{_dsSnapshotCreateTime = a}) . mapping _Time;---- | Specifies the allocated storage size in gigabytes (GB).-dsAllocatedStorage :: Lens' DBSnapshot (Maybe Int)-dsAllocatedStorage = lens _dsAllocatedStorage (\ s a -> s{_dsAllocatedStorage = a});---- | Provides the option group name for the DB snapshot.-dsOptionGroupName :: Lens' DBSnapshot (Maybe Text)-dsOptionGroupName = lens _dsOptionGroupName (\ s a -> s{_dsOptionGroupName = a});---- | The time zone of the DB snapshot. In most cases, the @Timezone@ element is empty. @Timezone@ content appears only for snapshots taken from Microsoft SQL Server DB instances that were created with a time zone specified.-dsTimezone :: Lens' DBSnapshot (Maybe Text)-dsTimezone = lens _dsTimezone (\ s a -> s{_dsTimezone = a});---- | The ARN from the key store with which to associate the instance for TDE encryption.-dsTDECredentialARN :: Lens' DBSnapshot (Maybe Text)-dsTDECredentialARN = lens _dsTDECredentialARN (\ s a -> s{_dsTDECredentialARN = a});---- | The percentage of the estimated data that has been transferred.-dsPercentProgress :: Lens' DBSnapshot (Maybe Int)-dsPercentProgress = lens _dsPercentProgress (\ s a -> s{_dsPercentProgress = a});---- | Specifies the port that the database engine was listening on at the time of the snapshot.-dsPort :: Lens' DBSnapshot (Maybe Int)-dsPort = lens _dsPort (\ s a -> s{_dsPort = a});---- | Specifies the storage type associated with DB snapshot.-dsStorageType :: Lens' DBSnapshot (Maybe Text)-dsStorageType = lens _dsStorageType (\ s a -> s{_dsStorageType = a});--instance FromXML DBSnapshot where-        parseXML x-          = DBSnapshot' <$>-              (x .@? "EngineVersion") <*> (x .@? "Status") <*>-                (x .@? "DBSnapshotArn")-                <*> (x .@? "MasterUsername")-                <*> (x .@? "SourceRegion")-                <*> (x .@? "Iops")-                <*> (x .@? "VpcId")-                <*> (x .@? "InstanceCreateTime")-                <*> (x .@? "Engine")-                <*> (x .@? "Encrypted")-                <*> (x .@? "DBSnapshotIdentifier")-                <*> (x .@? "LicenseModel")-                <*> (x .@? "SourceDBSnapshotIdentifier")-                <*> (x .@? "SnapshotType")-                <*> (x .@? "DBInstanceIdentifier")-                <*> (x .@? "KmsKeyId")-                <*> (x .@? "AvailabilityZone")-                <*> (x .@? "SnapshotCreateTime")-                <*> (x .@? "AllocatedStorage")-                <*> (x .@? "OptionGroupName")-                <*> (x .@? "Timezone")-                <*> (x .@? "TdeCredentialArn")-                <*> (x .@? "PercentProgress")-                <*> (x .@? "Port")-                <*> (x .@? "StorageType")--instance Hashable DBSnapshot--instance NFData DBSnapshot---- | Contains the name and values of a manual DB snapshot attribute--------- Manual DB snapshot attributes are used to authorize other AWS accounts to restore a manual DB snapshot. For more information, see the 'ModifyDBSnapshotAttribute' API.--------- /See:/ 'dbSnapshotAttribute' smart constructor.-data DBSnapshotAttribute = DBSnapshotAttribute'-    { _dsaAttributeValues :: !(Maybe [Text])-    , _dsaAttributeName   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBSnapshotAttribute' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dsaAttributeValues' - The value or values for the manual DB 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 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.------ * 'dsaAttributeName' - The name of the manual DB 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 'ModifyDBSnapshotAttribute' API action.-dbSnapshotAttribute-    :: DBSnapshotAttribute-dbSnapshotAttribute =-    DBSnapshotAttribute'-    { _dsaAttributeValues = Nothing-    , _dsaAttributeName = Nothing-    }---- | The value or values for the manual DB 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 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. 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});--instance FromXML DBSnapshotAttribute where-        parseXML x-          = DBSnapshotAttribute' <$>-              (x .@? "AttributeValues" .!@ mempty >>=-                 may (parseXMLList "AttributeValue"))-                <*> (x .@? "AttributeName")--instance Hashable DBSnapshotAttribute--instance NFData DBSnapshotAttribute---- | 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 action.--------- /See:/ 'dbSnapshotAttributesResult' smart constructor.-data DBSnapshotAttributesResult = DBSnapshotAttributesResult'-    { _dsarDBSnapshotIdentifier :: !(Maybe Text)-    , _dsarDBSnapshotAttributes :: !(Maybe [DBSnapshotAttribute])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBSnapshotAttributesResult' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dsarDBSnapshotIdentifier' - The identifier of the manual DB snapshot that the attributes apply to.------ * 'dsarDBSnapshotAttributes' - The list of attributes and values for the manual DB snapshot.-dbSnapshotAttributesResult-    :: DBSnapshotAttributesResult-dbSnapshotAttributesResult =-    DBSnapshotAttributesResult'-    { _dsarDBSnapshotIdentifier = Nothing-    , _dsarDBSnapshotAttributes = Nothing-    }---- | The identifier of the manual DB snapshot that the attributes apply to.-dsarDBSnapshotIdentifier :: Lens' DBSnapshotAttributesResult (Maybe Text)-dsarDBSnapshotIdentifier = lens _dsarDBSnapshotIdentifier (\ s a -> s{_dsarDBSnapshotIdentifier = a});---- | The list of attributes and values for the manual DB snapshot.-dsarDBSnapshotAttributes :: Lens' DBSnapshotAttributesResult [DBSnapshotAttribute]-dsarDBSnapshotAttributes = lens _dsarDBSnapshotAttributes (\ s a -> s{_dsarDBSnapshotAttributes = a}) . _Default . _Coerce;--instance FromXML DBSnapshotAttributesResult where-        parseXML x-          = DBSnapshotAttributesResult' <$>-              (x .@? "DBSnapshotIdentifier") <*>-                (x .@? "DBSnapshotAttributes" .!@ mempty >>=-                   may (parseXMLList "DBSnapshotAttribute"))--instance Hashable DBSnapshotAttributesResult--instance NFData DBSnapshotAttributesResult---- | 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.--------- /See:/ 'dbSubnetGroup' smart constructor.-data DBSubnetGroup = DBSubnetGroup'-    { _dsgDBSubnetGroupName        :: !(Maybe Text)-    , _dsgVPCId                    :: !(Maybe Text)-    , _dsgSubnets                  :: !(Maybe [Subnet])-    , _dsgDBSubnetGroupDescription :: !(Maybe Text)-    , _dsgDBSubnetGroupARN         :: !(Maybe Text)-    , _dsgSubnetGroupStatus        :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DBSubnetGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dsgDBSubnetGroupName' - The name of the DB subnet group.------ * 'dsgVPCId' - Provides the VpcId of the DB subnet group.------ * 'dsgSubnets' - Contains a list of 'Subnet' elements.------ * 'dsgDBSubnetGroupDescription' - Provides the description of the DB subnet group.------ * 'dsgDBSubnetGroupARN' - The Amazon Resource Name (ARN) for the DB subnet group.------ * 'dsgSubnetGroupStatus' - Provides the status of the DB subnet group.-dbSubnetGroup-    :: DBSubnetGroup-dbSubnetGroup =-    DBSubnetGroup'-    { _dsgDBSubnetGroupName = Nothing-    , _dsgVPCId = Nothing-    , _dsgSubnets = Nothing-    , _dsgDBSubnetGroupDescription = Nothing-    , _dsgDBSubnetGroupARN = Nothing-    , _dsgSubnetGroupStatus = Nothing-    }---- | The name of the DB subnet group.-dsgDBSubnetGroupName :: Lens' DBSubnetGroup (Maybe Text)-dsgDBSubnetGroupName = lens _dsgDBSubnetGroupName (\ s a -> s{_dsgDBSubnetGroupName = a});---- | Provides the VpcId of the DB subnet group.-dsgVPCId :: Lens' DBSubnetGroup (Maybe Text)-dsgVPCId = lens _dsgVPCId (\ s a -> s{_dsgVPCId = a});---- | Contains a list of 'Subnet' elements.-dsgSubnets :: Lens' DBSubnetGroup [Subnet]-dsgSubnets = lens _dsgSubnets (\ s a -> s{_dsgSubnets = a}) . _Default . _Coerce;---- | Provides the description of the DB subnet group.-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});--instance FromXML DBSubnetGroup where-        parseXML x-          = DBSubnetGroup' <$>-              (x .@? "DBSubnetGroupName") <*> (x .@? "VpcId") <*>-                (x .@? "Subnets" .!@ mempty >>=-                   may (parseXMLList "Subnet"))-                <*> (x .@? "DBSubnetGroupDescription")-                <*> (x .@? "DBSubnetGroupArn")-                <*> (x .@? "SubnetGroupStatus")--instance Hashable DBSubnetGroup--instance NFData DBSubnetGroup---- | This data type is used as a response element to 'DescribeDBLogFiles' .------------ /See:/ 'describeDBLogFilesDetails' smart constructor.-data DescribeDBLogFilesDetails = DescribeDBLogFilesDetails'-    { _ddlfdLastWritten :: !(Maybe Integer)-    , _ddlfdSize        :: !(Maybe Integer)-    , _ddlfdLogFileName :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeDBLogFilesDetails' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddlfdLastWritten' - A POSIX timestamp when the last log entry was written.------ * 'ddlfdSize' - The size, in bytes, of the log file for the specified DB instance.------ * 'ddlfdLogFileName' - The name of the log file for the specified DB instance.-describeDBLogFilesDetails-    :: DescribeDBLogFilesDetails-describeDBLogFilesDetails =-    DescribeDBLogFilesDetails'-    { _ddlfdLastWritten = Nothing-    , _ddlfdSize = Nothing-    , _ddlfdLogFileName = Nothing-    }---- | A POSIX timestamp when the last log entry was written.-ddlfdLastWritten :: Lens' DescribeDBLogFilesDetails (Maybe Integer)-ddlfdLastWritten = lens _ddlfdLastWritten (\ s a -> s{_ddlfdLastWritten = a});---- | The size, in bytes, of the log file for the specified DB instance.-ddlfdSize :: Lens' DescribeDBLogFilesDetails (Maybe Integer)-ddlfdSize = lens _ddlfdSize (\ s a -> s{_ddlfdSize = a});---- | The name of the log file for the specified DB instance.-ddlfdLogFileName :: Lens' DescribeDBLogFilesDetails (Maybe Text)-ddlfdLogFileName = lens _ddlfdLogFileName (\ s a -> s{_ddlfdLogFileName = a});--instance FromXML DescribeDBLogFilesDetails where-        parseXML x-          = DescribeDBLogFilesDetails' <$>-              (x .@? "LastWritten") <*> (x .@? "Size") <*>-                (x .@? "LogFileName")--instance Hashable DescribeDBLogFilesDetails--instance NFData DescribeDBLogFilesDetails---- | An Active Directory Domain membership record associated with the DB instance.------------ /See:/ 'domainMembership' smart constructor.-data DomainMembership = DomainMembership'-    { _dmStatus      :: !(Maybe Text)-    , _dmFQDN        :: !(Maybe Text)-    , _dmDomain      :: !(Maybe Text)-    , _dmIAMRoleName :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DomainMembership' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dmStatus' - The status of the DB instance's Active Directory Domain membership, such as joined, pending-join, failed etc).------ * 'dmFQDN' - The fully qualified domain name of the Active Directory Domain.------ * 'dmDomain' - The identifier of the Active Directory Domain.------ * 'dmIAMRoleName' - The name of the IAM role to be used when making API calls to the Directory Service.-domainMembership-    :: DomainMembership-domainMembership =-    DomainMembership'-    { _dmStatus = Nothing-    , _dmFQDN = Nothing-    , _dmDomain = Nothing-    , _dmIAMRoleName = Nothing-    }---- | The status of the DB instance's Active Directory Domain membership, such as joined, pending-join, failed etc).-dmStatus :: Lens' DomainMembership (Maybe Text)-dmStatus = lens _dmStatus (\ s a -> s{_dmStatus = a});---- | The fully qualified domain name of the Active Directory Domain.-dmFQDN :: Lens' DomainMembership (Maybe Text)-dmFQDN = lens _dmFQDN (\ s a -> s{_dmFQDN = a});---- | The identifier of the Active Directory Domain.-dmDomain :: Lens' DomainMembership (Maybe Text)-dmDomain = lens _dmDomain (\ s a -> s{_dmDomain = a});---- | The name of the IAM role to be used when making API calls to the Directory Service.-dmIAMRoleName :: Lens' DomainMembership (Maybe Text)-dmIAMRoleName = lens _dmIAMRoleName (\ s a -> s{_dmIAMRoleName = a});--instance FromXML DomainMembership where-        parseXML x-          = DomainMembership' <$>-              (x .@? "Status") <*> (x .@? "FQDN") <*>-                (x .@? "Domain")-                <*> (x .@? "IAMRoleName")--instance Hashable DomainMembership--instance NFData DomainMembership---- | 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)-    , _esgEC2SecurityGroupOwnerId :: !(Maybe Text)-    , _esgEC2SecurityGroupName    :: !(Maybe Text)-    , _esgEC2SecurityGroupId      :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'EC2SecurityGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'esgStatus' - Provides the status of the EC2 security group. Status can be "authorizing", "authorized", "revoking", and "revoked".------ * 'esgEC2SecurityGroupOwnerId' - Specifies the AWS ID of the owner of the EC2 security group specified in the @EC2SecurityGroupName@ field.------ * 'esgEC2SecurityGroupName' - Specifies the name of the EC2 security group.------ * 'esgEC2SecurityGroupId' - Specifies the id of the EC2 security group.-ec2SecurityGroup-    :: EC2SecurityGroup-ec2SecurityGroup =-    EC2SecurityGroup'-    { _esgStatus = Nothing-    , _esgEC2SecurityGroupOwnerId = Nothing-    , _esgEC2SecurityGroupName = Nothing-    , _esgEC2SecurityGroupId = Nothing-    }---- | Provides the status of the EC2 security group. Status can be "authorizing", "authorized", "revoking", and "revoked".-esgStatus :: Lens' EC2SecurityGroup (Maybe Text)-esgStatus = lens _esgStatus (\ s a -> s{_esgStatus = a});---- | Specifies the AWS ID of the owner of the EC2 security group specified in the @EC2SecurityGroupName@ field.-esgEC2SecurityGroupOwnerId :: Lens' EC2SecurityGroup (Maybe Text)-esgEC2SecurityGroupOwnerId = lens _esgEC2SecurityGroupOwnerId (\ s a -> s{_esgEC2SecurityGroupOwnerId = a});---- | Specifies the name of the EC2 security group.-esgEC2SecurityGroupName :: Lens' EC2SecurityGroup (Maybe Text)-esgEC2SecurityGroupName = lens _esgEC2SecurityGroupName (\ s a -> s{_esgEC2SecurityGroupName = a});---- | Specifies the id of the EC2 security group.-esgEC2SecurityGroupId :: Lens' EC2SecurityGroup (Maybe Text)-esgEC2SecurityGroupId = lens _esgEC2SecurityGroupId (\ s a -> s{_esgEC2SecurityGroupId = a});--instance FromXML EC2SecurityGroup where-        parseXML x-          = EC2SecurityGroup' <$>-              (x .@? "Status") <*>-                (x .@? "EC2SecurityGroupOwnerId")-                <*> (x .@? "EC2SecurityGroupName")-                <*> (x .@? "EC2SecurityGroupId")--instance Hashable EC2SecurityGroup--instance NFData EC2SecurityGroup---- | 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)-    , _eAddress      :: !(Maybe Text)-    , _ePort         :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Endpoint' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eHostedZoneId' - Specifies the ID that Amazon Route 53 assigns when you create a hosted zone.------ * 'eAddress' - Specifies the DNS address of the DB instance.------ * 'ePort' - Specifies the port that the database engine is listening on.-endpoint-    :: Endpoint-endpoint =-    Endpoint'-    { _eHostedZoneId = Nothing-    , _eAddress = Nothing-    , _ePort = Nothing-    }---- | Specifies the ID that Amazon Route 53 assigns when you create a hosted zone.-eHostedZoneId :: Lens' Endpoint (Maybe Text)-eHostedZoneId = lens _eHostedZoneId (\ s a -> s{_eHostedZoneId = a});---- | Specifies the DNS address of the DB instance.-eAddress :: Lens' Endpoint (Maybe Text)-eAddress = lens _eAddress (\ s a -> s{_eAddress = a});---- | Specifies the port that the database engine is listening on.-ePort :: Lens' Endpoint (Maybe Int)-ePort = lens _ePort (\ s a -> s{_ePort = a});--instance FromXML Endpoint where-        parseXML x-          = Endpoint' <$>-              (x .@? "HostedZoneId") <*> (x .@? "Address") <*>-                (x .@? "Port")--instance Hashable Endpoint--instance NFData Endpoint---- | Contains the result of a successful invocation of the 'DescribeEngineDefaultParameters' action.------------ /See:/ 'engineDefaults' smart constructor.-data EngineDefaults = EngineDefaults'-    { _edDBParameterGroupFamily :: !(Maybe Text)-    , _edMarker                 :: !(Maybe Text)-    , _edParameters             :: !(Maybe [Parameter])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'EngineDefaults' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'edDBParameterGroupFamily' - Specifies the name of the DB parameter group family that the engine default parameters apply to.------ * 'edMarker' - An optional pagination token provided by a previous EngineDefaults request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ .------ * 'edParameters' - Contains a list of engine default parameters.-engineDefaults-    :: EngineDefaults-engineDefaults =-    EngineDefaults'-    { _edDBParameterGroupFamily = Nothing-    , _edMarker = Nothing-    , _edParameters = Nothing-    }---- | Specifies the name of the DB parameter group family that the engine default parameters apply to.-edDBParameterGroupFamily :: Lens' EngineDefaults (Maybe Text)-edDBParameterGroupFamily = lens _edDBParameterGroupFamily (\ s a -> s{_edDBParameterGroupFamily = a});---- | An optional pagination token provided by a previous EngineDefaults request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ .-edMarker :: Lens' EngineDefaults (Maybe Text)-edMarker = lens _edMarker (\ s a -> s{_edMarker = a});---- | Contains a list of engine default parameters.-edParameters :: Lens' EngineDefaults [Parameter]-edParameters = lens _edParameters (\ s a -> s{_edParameters = a}) . _Default . _Coerce;--instance FromXML EngineDefaults where-        parseXML x-          = EngineDefaults' <$>-              (x .@? "DBParameterGroupFamily") <*> (x .@? "Marker")-                <*>-                (x .@? "Parameters" .!@ mempty >>=-                   may (parseXMLList "Parameter"))--instance Hashable EngineDefaults--instance NFData EngineDefaults---- | This data type is used as a response element in the 'DescribeEvents' action.------------ /See:/ 'event' smart constructor.-data Event = Event'-    { _eSourceType       :: !(Maybe SourceType)-    , _eSourceARN        :: !(Maybe Text)-    , _eSourceIdentifier :: !(Maybe Text)-    , _eDate             :: !(Maybe ISO8601)-    , _eEventCategories  :: !(Maybe [Text])-    , _eMessage          :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Event' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'eSourceType' - Specifies the source type for this event.------ * 'eSourceARN' - The Amazon Resource Name (ARN) for the event.------ * 'eSourceIdentifier' - Provides the identifier for the source of the event.------ * 'eDate' - Specifies the date and time of the event.------ * 'eEventCategories' - Specifies the category for the event.------ * 'eMessage' - Provides the text of this event.-event-    :: Event-event =-    Event'-    { _eSourceType = Nothing-    , _eSourceARN = Nothing-    , _eSourceIdentifier = Nothing-    , _eDate = Nothing-    , _eEventCategories = Nothing-    , _eMessage = Nothing-    }---- | Specifies the source type for this event.-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});---- | Specifies the date and time of the event.-eDate :: Lens' Event (Maybe UTCTime)-eDate = lens _eDate (\ s a -> s{_eDate = a}) . mapping _Time;---- | Specifies the category for the event.-eEventCategories :: Lens' Event [Text]-eEventCategories = lens _eEventCategories (\ s a -> s{_eEventCategories = a}) . _Default . _Coerce;---- | Provides the text of this event.-eMessage :: Lens' Event (Maybe Text)-eMessage = lens _eMessage (\ s a -> s{_eMessage = a});--instance FromXML Event where-        parseXML x-          = Event' <$>-              (x .@? "SourceType") <*> (x .@? "SourceArn") <*>-                (x .@? "SourceIdentifier")-                <*> (x .@? "Date")-                <*>-                (x .@? "EventCategories" .!@ mempty >>=-                   may (parseXMLList "EventCategory"))-                <*> (x .@? "Message")--instance Hashable Event--instance NFData Event---- | Contains the results of a successful invocation of the 'DescribeEventCategories' action.------------ /See:/ 'eventCategoriesMap' smart constructor.-data EventCategoriesMap = EventCategoriesMap'-    { _ecmSourceType      :: !(Maybe Text)-    , _ecmEventCategories :: !(Maybe [Text])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'EventCategoriesMap' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ecmSourceType' - The source type that the returned categories belong to------ * 'ecmEventCategories' - The event categories for the specified source type-eventCategoriesMap-    :: EventCategoriesMap-eventCategoriesMap =-    EventCategoriesMap'-    { _ecmSourceType = Nothing-    , _ecmEventCategories = Nothing-    }---- | The source type that the returned categories belong to-ecmSourceType :: Lens' EventCategoriesMap (Maybe Text)-ecmSourceType = lens _ecmSourceType (\ s a -> s{_ecmSourceType = a});---- | The event categories for the specified source type-ecmEventCategories :: Lens' EventCategoriesMap [Text]-ecmEventCategories = lens _ecmEventCategories (\ s a -> s{_ecmEventCategories = a}) . _Default . _Coerce;--instance FromXML EventCategoriesMap where-        parseXML x-          = EventCategoriesMap' <$>-              (x .@? "SourceType") <*>-                (x .@? "EventCategories" .!@ mempty >>=-                   may (parseXMLList "EventCategory"))--instance Hashable EventCategoriesMap--instance NFData EventCategoriesMap---- | Contains the results of a successful invocation of the 'DescribeEventSubscriptions' action.------------ /See:/ 'eventSubscription' smart constructor.-data EventSubscription = EventSubscription'-    { _esStatus                   :: !(Maybe Text)-    , _esCustomerAWSId            :: !(Maybe Text)-    , _esCustSubscriptionId       :: !(Maybe Text)-    , _esSNSTopicARN              :: !(Maybe Text)-    , _esEventSubscriptionARN     :: !(Maybe Text)-    , _esEnabled                  :: !(Maybe Bool)-    , _esSourceType               :: !(Maybe Text)-    , _esSubscriptionCreationTime :: !(Maybe Text)-    , _esEventCategoriesList      :: !(Maybe [Text])-    , _esSourceIdsList            :: !(Maybe [Text])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'EventSubscription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'esStatus' - The status of the RDS event notification subscription. Constraints: Can be one of the following: creating | modifying | deleting | active | no-permission | topic-not-exist The status "no-permission" indicates that RDS no longer has permission to post to the SNS topic. The status "topic-not-exist" indicates that the topic was deleted after the subscription was created.------ * 'esCustomerAWSId' - The AWS customer account associated with the RDS event notification subscription.------ * 'esCustSubscriptionId' - The RDS event notification subscription Id.------ * 'esSNSTopicARN' - The topic ARN of the RDS event notification subscription.------ * 'esEventSubscriptionARN' - The Amazon Resource Name (ARN) for the event subscription.------ * 'esEnabled' - A Boolean value indicating if the subscription is enabled. True indicates the subscription is enabled.------ * 'esSourceType' - The source type for the RDS event notification subscription.------ * 'esSubscriptionCreationTime' - The time the RDS event notification subscription was created.------ * 'esEventCategoriesList' - A list of event categories for the RDS event notification subscription.------ * 'esSourceIdsList' - A list of source IDs for the RDS event notification subscription.-eventSubscription-    :: EventSubscription-eventSubscription =-    EventSubscription'-    { _esStatus = Nothing-    , _esCustomerAWSId = Nothing-    , _esCustSubscriptionId = Nothing-    , _esSNSTopicARN = Nothing-    , _esEventSubscriptionARN = Nothing-    , _esEnabled = Nothing-    , _esSourceType = Nothing-    , _esSubscriptionCreationTime = Nothing-    , _esEventCategoriesList = Nothing-    , _esSourceIdsList = Nothing-    }---- | The status of the RDS event notification subscription. Constraints: Can be one of the following: creating | modifying | deleting | active | no-permission | topic-not-exist The status "no-permission" indicates that RDS no longer has permission to post to the SNS topic. The status "topic-not-exist" indicates that the topic was deleted after the subscription was created.-esStatus :: Lens' EventSubscription (Maybe Text)-esStatus = lens _esStatus (\ s a -> s{_esStatus = a});---- | The AWS customer account associated with the RDS event notification subscription.-esCustomerAWSId :: Lens' EventSubscription (Maybe Text)-esCustomerAWSId = lens _esCustomerAWSId (\ s a -> s{_esCustomerAWSId = a});---- | The RDS event notification subscription Id.-esCustSubscriptionId :: Lens' EventSubscription (Maybe Text)-esCustSubscriptionId = lens _esCustSubscriptionId (\ s a -> s{_esCustSubscriptionId = a});---- | The topic ARN of the RDS event notification subscription.-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});---- | The source type for the RDS event notification subscription.-esSourceType :: Lens' EventSubscription (Maybe Text)-esSourceType = lens _esSourceType (\ s a -> s{_esSourceType = a});---- | The time the RDS event notification subscription was created.-esSubscriptionCreationTime :: Lens' EventSubscription (Maybe Text)-esSubscriptionCreationTime = lens _esSubscriptionCreationTime (\ s a -> s{_esSubscriptionCreationTime = a});---- | A list of event categories for the RDS event notification subscription.-esEventCategoriesList :: Lens' EventSubscription [Text]-esEventCategoriesList = lens _esEventCategoriesList (\ s a -> s{_esEventCategoriesList = a}) . _Default . _Coerce;---- | A list of source IDs for the RDS event notification subscription.-esSourceIdsList :: Lens' EventSubscription [Text]-esSourceIdsList = lens _esSourceIdsList (\ s a -> s{_esSourceIdsList = a}) . _Default . _Coerce;--instance FromXML EventSubscription where-        parseXML x-          = EventSubscription' <$>-              (x .@? "Status") <*> (x .@? "CustomerAwsId") <*>-                (x .@? "CustSubscriptionId")-                <*> (x .@? "SnsTopicArn")-                <*> (x .@? "EventSubscriptionArn")-                <*> (x .@? "Enabled")-                <*> (x .@? "SourceType")-                <*> (x .@? "SubscriptionCreationTime")-                <*>-                (x .@? "EventCategoriesList" .!@ mempty >>=-                   may (parseXMLList "EventCategory"))-                <*>-                (x .@? "SourceIdsList" .!@ mempty >>=-                   may (parseXMLList "SourceId"))--instance Hashable EventSubscription--instance NFData EventSubscription---- | This type is not currently supported.------------ /See:/ 'filter'' smart constructor.-data Filter = Filter'-    { _fName   :: !Text-    , _fValues :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Filter' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fName' - This parameter is not currently supported.------ * 'fValues' - This parameter is not currently supported.-filter'-    :: Text -- ^ 'fName'-    -> Filter-filter' pName_ =-    Filter'-    { _fName = pName_-    , _fValues = mempty-    }---- | This parameter is not currently supported.-fName :: Lens' Filter Text-fName = lens _fName (\ s a -> s{_fName = a});---- | This parameter is not currently supported.-fValues :: Lens' Filter [Text]-fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Coerce;--instance Hashable Filter--instance NFData Filter--instance ToQuery Filter where-        toQuery Filter'{..}-          = mconcat-              ["Name" =: _fName,-               "Values" =: toQueryList "Value" _fValues]---- | This data type is used as a response element in the 'DescribeDBSecurityGroups' action.------------ /See:/ 'ipRange' smart constructor.-data IPRange = IPRange'-    { _irStatus :: !(Maybe Text)-    , _irCIdRIP :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'IPRange' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'irStatus' - Specifies the status of the IP range. Status can be "authorizing", "authorized", "revoking", and "revoked".------ * 'irCIdRIP' - Specifies the IP range.-ipRange-    :: IPRange-ipRange =-    IPRange'-    { _irStatus = Nothing-    , _irCIdRIP = Nothing-    }---- | Specifies the status of the IP range. Status can be "authorizing", "authorized", "revoking", and "revoked".-irStatus :: Lens' IPRange (Maybe Text)-irStatus = lens _irStatus (\ s a -> s{_irStatus = a});---- | Specifies the IP range.-irCIdRIP :: Lens' IPRange (Maybe Text)-irCIdRIP = lens _irCIdRIP (\ s a -> s{_irCIdRIP = a});--instance FromXML IPRange where-        parseXML x-          = IPRange' <$> (x .@? "Status") <*> (x .@? "CIDRIP")--instance Hashable IPRange--instance NFData IPRange---- | Option details.------------ /See:/ 'option' smart constructor.-data Option = Option'-    { _oOptionName                  :: !(Maybe Text)-    , _oPermanent                   :: !(Maybe Bool)-    , _oPersistent                  :: !(Maybe Bool)-    , _oOptionDescription           :: !(Maybe Text)-    , _oOptionSettings              :: !(Maybe [OptionSetting])-    , _oVPCSecurityGroupMemberships :: !(Maybe [VPCSecurityGroupMembership])-    , _oDBSecurityGroupMemberships  :: !(Maybe [DBSecurityGroupMembership])-    , _oOptionVersion               :: !(Maybe Text)-    , _oPort                        :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Option' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'oOptionName' - The name of the option.------ * 'oPermanent' - Indicate if this option is permanent.------ * 'oPersistent' - Indicate if this option is persistent.------ * 'oOptionDescription' - The description of the option.------ * 'oOptionSettings' - The option settings for this option.------ * 'oVPCSecurityGroupMemberships' - If the option requires access to a port, then this VPC security group allows access to the port.------ * 'oDBSecurityGroupMemberships' - If the option requires access to a port, then this DB security group allows access to the port.------ * 'oOptionVersion' - The version of the option.------ * 'oPort' - If required, the port configured for this option to use.-option-    :: Option-option =-    Option'-    { _oOptionName = Nothing-    , _oPermanent = Nothing-    , _oPersistent = Nothing-    , _oOptionDescription = Nothing-    , _oOptionSettings = Nothing-    , _oVPCSecurityGroupMemberships = Nothing-    , _oDBSecurityGroupMemberships = Nothing-    , _oOptionVersion = Nothing-    , _oPort = Nothing-    }---- | The name of the option.-oOptionName :: Lens' Option (Maybe Text)-oOptionName = lens _oOptionName (\ s a -> s{_oOptionName = a});---- | Indicate if this option is permanent.-oPermanent :: Lens' Option (Maybe Bool)-oPermanent = lens _oPermanent (\ s a -> s{_oPermanent = a});---- | Indicate if this option is persistent.-oPersistent :: Lens' Option (Maybe Bool)-oPersistent = lens _oPersistent (\ s a -> s{_oPersistent = a});---- | The description of the option.-oOptionDescription :: Lens' Option (Maybe Text)-oOptionDescription = lens _oOptionDescription (\ s a -> s{_oOptionDescription = a});---- | The option settings for this option.-oOptionSettings :: Lens' Option [OptionSetting]-oOptionSettings = lens _oOptionSettings (\ s a -> s{_oOptionSettings = a}) . _Default . _Coerce;---- | If the option requires access to a port, then this VPC security group allows access to the port.-oVPCSecurityGroupMemberships :: Lens' Option [VPCSecurityGroupMembership]-oVPCSecurityGroupMemberships = lens _oVPCSecurityGroupMemberships (\ s a -> s{_oVPCSecurityGroupMemberships = a}) . _Default . _Coerce;---- | If the option requires access to a port, then this DB security group allows access to the port.-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});--instance FromXML Option where-        parseXML x-          = Option' <$>-              (x .@? "OptionName") <*> (x .@? "Permanent") <*>-                (x .@? "Persistent")-                <*> (x .@? "OptionDescription")-                <*>-                (x .@? "OptionSettings" .!@ mempty >>=-                   may (parseXMLList "OptionSetting"))-                <*>-                (x .@? "VpcSecurityGroupMemberships" .!@ mempty >>=-                   may (parseXMLList "VpcSecurityGroupMembership"))-                <*>-                (x .@? "DBSecurityGroupMemberships" .!@ mempty >>=-                   may (parseXMLList "DBSecurityGroup"))-                <*> (x .@? "OptionVersion")-                <*> (x .@? "Port")--instance Hashable Option--instance NFData Option---- | A list of all available options------------ /See:/ 'optionConfiguration' smart constructor.-data OptionConfiguration = OptionConfiguration'-    { _ocOptionSettings              :: !(Maybe [OptionSetting])-    , _ocVPCSecurityGroupMemberships :: !(Maybe [Text])-    , _ocDBSecurityGroupMemberships  :: !(Maybe [Text])-    , _ocOptionVersion               :: !(Maybe Text)-    , _ocPort                        :: !(Maybe Int)-    , _ocOptionName                  :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'OptionConfiguration' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ocOptionSettings' - The option settings to include in an option group.------ * 'ocVPCSecurityGroupMemberships' - A list of VpcSecurityGroupMemebrship name strings used for this option.------ * 'ocDBSecurityGroupMemberships' - A list of DBSecurityGroupMemebrship name strings used for this option.------ * 'ocOptionVersion' - The version for the option.------ * 'ocPort' - The optional port for the option.------ * 'ocOptionName' - The configuration of options to include in a group.-optionConfiguration-    :: Text -- ^ 'ocOptionName'-    -> OptionConfiguration-optionConfiguration pOptionName_ =-    OptionConfiguration'-    { _ocOptionSettings = Nothing-    , _ocVPCSecurityGroupMemberships = Nothing-    , _ocDBSecurityGroupMemberships = Nothing-    , _ocOptionVersion = Nothing-    , _ocPort = Nothing-    , _ocOptionName = pOptionName_-    }---- | The option settings to include in an option group.-ocOptionSettings :: Lens' OptionConfiguration [OptionSetting]-ocOptionSettings = lens _ocOptionSettings (\ s a -> s{_ocOptionSettings = a}) . _Default . _Coerce;---- | A list of VpcSecurityGroupMemebrship name strings used for this option.-ocVPCSecurityGroupMemberships :: Lens' OptionConfiguration [Text]-ocVPCSecurityGroupMemberships = lens _ocVPCSecurityGroupMemberships (\ s a -> s{_ocVPCSecurityGroupMemberships = a}) . _Default . _Coerce;---- | A list of DBSecurityGroupMemebrship name strings used for this option.-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});---- | The configuration of options to include in a group.-ocOptionName :: Lens' OptionConfiguration Text-ocOptionName = lens _ocOptionName (\ s a -> s{_ocOptionName = a});--instance Hashable OptionConfiguration--instance NFData OptionConfiguration--instance ToQuery OptionConfiguration where-        toQuery OptionConfiguration'{..}-          = mconcat-              ["OptionSettings" =:-                 toQuery-                   (toQueryList "OptionSetting" <$> _ocOptionSettings),-               "VpcSecurityGroupMemberships" =:-                 toQuery-                   (toQueryList "VpcSecurityGroupId" <$>-                      _ocVPCSecurityGroupMemberships),-               "DBSecurityGroupMemberships" =:-                 toQuery-                   (toQueryList "DBSecurityGroupName" <$>-                      _ocDBSecurityGroupMemberships),-               "OptionVersion" =: _ocOptionVersion,-               "Port" =: _ocPort, "OptionName" =: _ocOptionName]---- |------------ /See:/ 'optionGroup' smart constructor.-data OptionGroup = OptionGroup'-    { _ogOptionGroupDescription                :: !(Maybe Text)-    , _ogVPCId                                 :: !(Maybe Text)-    , _ogAllowsVPCAndNonVPCInstanceMemberships :: !(Maybe Bool)-    , _ogEngineName                            :: !(Maybe Text)-    , _ogOptionGroupARN                        :: !(Maybe Text)-    , _ogMajorEngineVersion                    :: !(Maybe Text)-    , _ogOptions                               :: !(Maybe [Option])-    , _ogOptionGroupName                       :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'OptionGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ogOptionGroupDescription' - Provides a description of the option group.------ * 'ogVPCId' - If __AllowsVpcAndNonVpcInstanceMemberships__ is @false@ , this field is blank. If __AllowsVpcAndNonVpcInstanceMemberships__ is @true@ and this field is blank, then this option group can be applied to both VPC and non-VPC instances. If this field contains a value, then this option group can only be applied to instances that are in the VPC indicated by this field.------ * 'ogAllowsVPCAndNonVPCInstanceMemberships' - Indicates whether this option group can be applied to both VPC and non-VPC instances. The value @true@ indicates the option group can be applied to both VPC and non-VPC instances.------ * 'ogEngineName' - Indicates the name of the engine that this option group can be applied to.------ * 'ogOptionGroupARN' - The Amazon Resource Name (ARN) for the option group.------ * 'ogMajorEngineVersion' - Indicates the major engine version associated with this option group.------ * 'ogOptions' - Indicates what options are available in the option group.------ * 'ogOptionGroupName' - Specifies the name of the option group.-optionGroup-    :: OptionGroup-optionGroup =-    OptionGroup'-    { _ogOptionGroupDescription = Nothing-    , _ogVPCId = Nothing-    , _ogAllowsVPCAndNonVPCInstanceMemberships = Nothing-    , _ogEngineName = Nothing-    , _ogOptionGroupARN = Nothing-    , _ogMajorEngineVersion = Nothing-    , _ogOptions = Nothing-    , _ogOptionGroupName = Nothing-    }---- | Provides a description of the option group.-ogOptionGroupDescription :: Lens' OptionGroup (Maybe Text)-ogOptionGroupDescription = lens _ogOptionGroupDescription (\ s a -> s{_ogOptionGroupDescription = a});---- | If __AllowsVpcAndNonVpcInstanceMemberships__ is @false@ , this field is blank. If __AllowsVpcAndNonVpcInstanceMemberships__ is @true@ and this field is blank, then this option group can be applied to both VPC and non-VPC instances. If this field contains a value, then this option group can only be applied to instances that are in the VPC indicated by this field.-ogVPCId :: Lens' OptionGroup (Maybe Text)-ogVPCId = lens _ogVPCId (\ s a -> s{_ogVPCId = a});---- | Indicates whether this option group can be applied to both VPC and non-VPC instances. The value @true@ indicates the option group can be applied to both VPC and non-VPC instances.-ogAllowsVPCAndNonVPCInstanceMemberships :: Lens' OptionGroup (Maybe Bool)-ogAllowsVPCAndNonVPCInstanceMemberships = lens _ogAllowsVPCAndNonVPCInstanceMemberships (\ s a -> s{_ogAllowsVPCAndNonVPCInstanceMemberships = a});---- | Indicates the name of the engine that this option group can be applied to.-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});---- | Indicates what options are available in the option group.-ogOptions :: Lens' OptionGroup [Option]-ogOptions = lens _ogOptions (\ s a -> s{_ogOptions = a}) . _Default . _Coerce;---- | Specifies the name of the option group.-ogOptionGroupName :: Lens' OptionGroup (Maybe Text)-ogOptionGroupName = lens _ogOptionGroupName (\ s a -> s{_ogOptionGroupName = a});--instance FromXML OptionGroup where-        parseXML x-          = OptionGroup' <$>-              (x .@? "OptionGroupDescription") <*> (x .@? "VpcId")-                <*> (x .@? "AllowsVpcAndNonVpcInstanceMemberships")-                <*> (x .@? "EngineName")-                <*> (x .@? "OptionGroupArn")-                <*> (x .@? "MajorEngineVersion")-                <*>-                (x .@? "Options" .!@ mempty >>=-                   may (parseXMLList "Option"))-                <*> (x .@? "OptionGroupName")--instance Hashable OptionGroup--instance NFData OptionGroup---- | Provides information on the option groups the DB instance is a member of.------------ /See:/ 'optionGroupMembership' smart constructor.-data OptionGroupMembership = OptionGroupMembership'-    { _ogmStatus          :: !(Maybe Text)-    , _ogmOptionGroupName :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'OptionGroupMembership' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ogmStatus' - The status of the DB instance's option group membership. Valid values are: @in-sync@ , @pending-apply@ , @pending-removal@ , @pending-maintenance-apply@ , @pending-maintenance-removal@ , @applying@ , @removing@ , and @failed@ .------ * 'ogmOptionGroupName' - The name of the option group that the instance belongs to.-optionGroupMembership-    :: OptionGroupMembership-optionGroupMembership =-    OptionGroupMembership'-    { _ogmStatus = Nothing-    , _ogmOptionGroupName = Nothing-    }---- | The status of the DB instance's option group membership. Valid values are: @in-sync@ , @pending-apply@ , @pending-removal@ , @pending-maintenance-apply@ , @pending-maintenance-removal@ , @applying@ , @removing@ , and @failed@ .-ogmStatus :: Lens' OptionGroupMembership (Maybe Text)-ogmStatus = lens _ogmStatus (\ s a -> s{_ogmStatus = a});---- | The name of the option group that the instance belongs to.-ogmOptionGroupName :: Lens' OptionGroupMembership (Maybe Text)-ogmOptionGroupName = lens _ogmOptionGroupName (\ s a -> s{_ogmOptionGroupName = a});--instance FromXML OptionGroupMembership where-        parseXML x-          = OptionGroupMembership' <$>-              (x .@? "Status") <*> (x .@? "OptionGroupName")--instance Hashable OptionGroupMembership--instance NFData OptionGroupMembership---- | Available option.------------ /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)-    , _ogoDefaultPort                       :: !(Maybe Int)-    , _ogoOptionGroupOptionSettings         :: !(Maybe [OptionGroupOptionSetting])-    , _ogoPortRequired                      :: !(Maybe Bool)-    , _ogoDescription                       :: !(Maybe Text)-    , _ogoOptionsDependedOn                 :: !(Maybe [Text])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'OptionGroupOption' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ogoMinimumRequiredMinorEngineVersion' - The minimum required engine version for the option to be applied.------ * 'ogoOptionsConflictsWith' - The options that conflict with this option.------ * 'ogoPermanent' - 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.------ * 'ogoPersistent' - 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.------ * 'ogoOptionGroupOptionVersions' - The versions that are available for the option.------ * 'ogoEngineName' - The name of the engine that this option can be applied to.------ * 'ogoMajorEngineVersion' - Indicates the major engine version that the option is available for.------ * 'ogoName' - The name of the option.------ * 'ogoDefaultPort' - If the option requires a port, specifies the default port for the option.------ * 'ogoOptionGroupOptionSettings' - The option settings that are available (and the default value) for each option in an option group.------ * 'ogoPortRequired' - Specifies whether the option requires a port.------ * 'ogoDescription' - The description of the option.------ * 'ogoOptionsDependedOn' - The options that are prerequisites for this option.-optionGroupOption-    :: OptionGroupOption-optionGroupOption =-    OptionGroupOption'-    { _ogoMinimumRequiredMinorEngineVersion = Nothing-    , _ogoOptionsConflictsWith = Nothing-    , _ogoPermanent = Nothing-    , _ogoPersistent = Nothing-    , _ogoOptionGroupOptionVersions = Nothing-    , _ogoEngineName = Nothing-    , _ogoMajorEngineVersion = Nothing-    , _ogoName = Nothing-    , _ogoDefaultPort = Nothing-    , _ogoOptionGroupOptionSettings = Nothing-    , _ogoPortRequired = Nothing-    , _ogoDescription = Nothing-    , _ogoOptionsDependedOn = Nothing-    }---- | The minimum required engine version for the option to be applied.-ogoMinimumRequiredMinorEngineVersion :: Lens' OptionGroupOption (Maybe Text)-ogoMinimumRequiredMinorEngineVersion = lens _ogoMinimumRequiredMinorEngineVersion (\ s a -> s{_ogoMinimumRequiredMinorEngineVersion = a});---- | 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});---- | 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});---- | Indicates the major engine version that the option is available for.-ogoMajorEngineVersion :: Lens' OptionGroupOption (Maybe Text)-ogoMajorEngineVersion = lens _ogoMajorEngineVersion (\ s a -> s{_ogoMajorEngineVersion = a});---- | The name of the option.-ogoName :: Lens' OptionGroupOption (Maybe Text)-ogoName = lens _ogoName (\ s a -> s{_ogoName = a});---- | If the option requires a port, specifies the default port for the option.-ogoDefaultPort :: Lens' OptionGroupOption (Maybe Int)-ogoDefaultPort = lens _ogoDefaultPort (\ s a -> s{_ogoDefaultPort = a});---- | 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;---- | Specifies whether the option requires a port.-ogoPortRequired :: Lens' OptionGroupOption (Maybe Bool)-ogoPortRequired = lens _ogoPortRequired (\ s a -> s{_ogoPortRequired = a});---- | The description of the option.-ogoDescription :: Lens' OptionGroupOption (Maybe Text)-ogoDescription = lens _ogoDescription (\ s a -> s{_ogoDescription = a});---- | The options that are prerequisites for this option.-ogoOptionsDependedOn :: Lens' OptionGroupOption [Text]-ogoOptionsDependedOn = lens _ogoOptionsDependedOn (\ s a -> s{_ogoOptionsDependedOn = a}) . _Default . _Coerce;--instance FromXML OptionGroupOption where-        parseXML x-          = OptionGroupOption' <$>-              (x .@? "MinimumRequiredMinorEngineVersion") <*>-                (x .@? "OptionsConflictsWith" .!@ mempty >>=-                   may (parseXMLList "OptionConflictName"))-                <*> (x .@? "Permanent")-                <*> (x .@? "Persistent")-                <*>-                (x .@? "OptionGroupOptionVersions" .!@ mempty >>=-                   may (parseXMLList "OptionVersion"))-                <*> (x .@? "EngineName")-                <*> (x .@? "MajorEngineVersion")-                <*> (x .@? "Name")-                <*> (x .@? "DefaultPort")-                <*>-                (x .@? "OptionGroupOptionSettings" .!@ mempty >>=-                   may (parseXMLList "OptionGroupOptionSetting"))-                <*> (x .@? "PortRequired")-                <*> (x .@? "Description")-                <*>-                (x .@? "OptionsDependedOn" .!@ mempty >>=-                   may (parseXMLList "OptionName"))--instance Hashable OptionGroupOption--instance NFData OptionGroupOption---- | Option group option settings are used to display settings available for each option with their default values and other information. These values are used with the DescribeOptionGroupOptions action.------------ /See:/ 'optionGroupOptionSetting' smart constructor.-data OptionGroupOptionSetting = OptionGroupOptionSetting'-    { _ogosApplyType          :: !(Maybe Text)-    , _ogosSettingName        :: !(Maybe Text)-    , _ogosDefaultValue       :: !(Maybe Text)-    , _ogosIsModifiable       :: !(Maybe Bool)-    , _ogosSettingDescription :: !(Maybe Text)-    , _ogosAllowedValues      :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'OptionGroupOptionSetting' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ogosApplyType' - The DB engine specific parameter type for the option group option.------ * 'ogosSettingName' - The name of the option group option.------ * 'ogosDefaultValue' - The default value for the option group option.------ * 'ogosIsModifiable' - Boolean value where true indicates that this option group option can be changed from the default value.------ * 'ogosSettingDescription' - The description of the option group option.------ * 'ogosAllowedValues' - Indicates the acceptable values for the option group option.-optionGroupOptionSetting-    :: OptionGroupOptionSetting-optionGroupOptionSetting =-    OptionGroupOptionSetting'-    { _ogosApplyType = Nothing-    , _ogosSettingName = Nothing-    , _ogosDefaultValue = Nothing-    , _ogosIsModifiable = Nothing-    , _ogosSettingDescription = Nothing-    , _ogosAllowedValues = Nothing-    }---- | The DB engine specific parameter type for the option group option.-ogosApplyType :: Lens' OptionGroupOptionSetting (Maybe Text)-ogosApplyType = lens _ogosApplyType (\ s a -> s{_ogosApplyType = a});---- | The name of the option group option.-ogosSettingName :: Lens' OptionGroupOptionSetting (Maybe Text)-ogosSettingName = lens _ogosSettingName (\ s a -> s{_ogosSettingName = a});---- | The default value for the option group option.-ogosDefaultValue :: Lens' OptionGroupOptionSetting (Maybe Text)-ogosDefaultValue = lens _ogosDefaultValue (\ s a -> s{_ogosDefaultValue = a});---- | Boolean value where true indicates that this option group option can be changed from the default value.-ogosIsModifiable :: Lens' OptionGroupOptionSetting (Maybe Bool)-ogosIsModifiable = lens _ogosIsModifiable (\ s a -> s{_ogosIsModifiable = a});---- | The description of the option group option.-ogosSettingDescription :: Lens' OptionGroupOptionSetting (Maybe Text)-ogosSettingDescription = lens _ogosSettingDescription (\ s a -> s{_ogosSettingDescription = a});---- | Indicates the acceptable values for the option group option.-ogosAllowedValues :: Lens' OptionGroupOptionSetting (Maybe Text)-ogosAllowedValues = lens _ogosAllowedValues (\ s a -> s{_ogosAllowedValues = a});--instance FromXML OptionGroupOptionSetting where-        parseXML x-          = OptionGroupOptionSetting' <$>-              (x .@? "ApplyType") <*> (x .@? "SettingName") <*>-                (x .@? "DefaultValue")-                <*> (x .@? "IsModifiable")-                <*> (x .@? "SettingDescription")-                <*> (x .@? "AllowedValues")--instance Hashable OptionGroupOptionSetting--instance NFData OptionGroupOptionSetting---- | Option settings are the actual settings being applied or configured for that option. It is used when you modify an option group or describe option groups. For example, the NATIVE_NETWORK_ENCRYPTION option has a setting called SQLNET.ENCRYPTION_SERVER that can have several different values.------------ /See:/ 'optionSetting' smart constructor.-data OptionSetting = OptionSetting'-    { _osIsCollection  :: !(Maybe Bool)-    , _osApplyType     :: !(Maybe Text)-    , _osValue         :: !(Maybe Text)-    , _osName          :: !(Maybe Text)-    , _osDefaultValue  :: !(Maybe Text)-    , _osIsModifiable  :: !(Maybe Bool)-    , _osDataType      :: !(Maybe Text)-    , _osAllowedValues :: !(Maybe Text)-    , _osDescription   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'OptionSetting' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'osIsCollection' - Indicates if the option setting is part of a collection.------ * 'osApplyType' - The DB engine specific parameter type.------ * 'osValue' - The current value of the option setting.------ * 'osName' - The name of the option that has settings that you can set.------ * 'osDefaultValue' - The default value of the option setting.------ * 'osIsModifiable' - A Boolean value that, when true, indicates the option setting can be modified from the default.------ * 'osDataType' - The data type of the option setting.------ * 'osAllowedValues' - The allowed values of the option setting.------ * 'osDescription' - The description of the option setting.-optionSetting-    :: OptionSetting-optionSetting =-    OptionSetting'-    { _osIsCollection = Nothing-    , _osApplyType = Nothing-    , _osValue = Nothing-    , _osName = Nothing-    , _osDefaultValue = Nothing-    , _osIsModifiable = Nothing-    , _osDataType = Nothing-    , _osAllowedValues = Nothing-    , _osDescription = Nothing-    }---- | Indicates if the option setting is part of a collection.-osIsCollection :: Lens' OptionSetting (Maybe Bool)-osIsCollection = lens _osIsCollection (\ s a -> s{_osIsCollection = a});---- | The DB engine specific parameter type.-osApplyType :: Lens' OptionSetting (Maybe Text)-osApplyType = lens _osApplyType (\ s a -> s{_osApplyType = a});---- | The current value of the option setting.-osValue :: Lens' OptionSetting (Maybe Text)-osValue = lens _osValue (\ s a -> s{_osValue = a});---- | The name of the option that has settings that you can set.-osName :: Lens' OptionSetting (Maybe Text)-osName = lens _osName (\ s a -> s{_osName = a});---- | The default value of the option setting.-osDefaultValue :: Lens' OptionSetting (Maybe Text)-osDefaultValue = lens _osDefaultValue (\ s a -> s{_osDefaultValue = a});---- | A Boolean value that, when true, indicates the option setting can be modified from the default.-osIsModifiable :: Lens' OptionSetting (Maybe Bool)-osIsModifiable = lens _osIsModifiable (\ s a -> s{_osIsModifiable = a});---- | The data type of the option setting.-osDataType :: Lens' OptionSetting (Maybe Text)-osDataType = lens _osDataType (\ s a -> s{_osDataType = a});---- | The allowed values of the option setting.-osAllowedValues :: Lens' OptionSetting (Maybe Text)-osAllowedValues = lens _osAllowedValues (\ s a -> s{_osAllowedValues = a});---- | The description of the option setting.-osDescription :: Lens' OptionSetting (Maybe Text)-osDescription = lens _osDescription (\ s a -> s{_osDescription = a});--instance FromXML OptionSetting where-        parseXML x-          = OptionSetting' <$>-              (x .@? "IsCollection") <*> (x .@? "ApplyType") <*>-                (x .@? "Value")-                <*> (x .@? "Name")-                <*> (x .@? "DefaultValue")-                <*> (x .@? "IsModifiable")-                <*> (x .@? "DataType")-                <*> (x .@? "AllowedValues")-                <*> (x .@? "Description")--instance Hashable OptionSetting--instance NFData OptionSetting--instance ToQuery OptionSetting where-        toQuery OptionSetting'{..}-          = mconcat-              ["IsCollection" =: _osIsCollection,-               "ApplyType" =: _osApplyType, "Value" =: _osValue,-               "Name" =: _osName, "DefaultValue" =: _osDefaultValue,-               "IsModifiable" =: _osIsModifiable,-               "DataType" =: _osDataType,-               "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' - The version of the option.------ * 'ovIsDefault' - True if the version is the default version of the option; otherwise, false.-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.--------- /See:/ 'orderableDBInstanceOption' smart constructor.-data OrderableDBInstanceOption = OrderableDBInstanceOption'-    { _odioEngineVersion              :: !(Maybe Text)-    , _odioMultiAZCapable             :: !(Maybe Bool)-    , _odioEngine                     :: !(Maybe Text)-    , _odioSupportsIOPS               :: !(Maybe Bool)-    , _odioDBInstanceClass            :: !(Maybe Text)-    , _odioLicenseModel               :: !(Maybe Text)-    , _odioAvailabilityZones          :: !(Maybe [AvailabilityZone])-    , _odioSupportsStorageEncryption  :: !(Maybe Bool)-    , _odioReadReplicaCapable         :: !(Maybe Bool)-    , _odioVPC                        :: !(Maybe Bool)-    , _odioSupportsEnhancedMonitoring :: !(Maybe Bool)-    , _odioStorageType                :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'OrderableDBInstanceOption' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'odioEngineVersion' - The engine version of the orderable DB instance.------ * 'odioMultiAZCapable' - Indicates whether this orderable DB instance is multi-AZ capable.------ * 'odioEngine' - The engine type of the orderable DB instance.------ * 'odioSupportsIOPS' - Indicates whether this orderable DB instance supports provisioned IOPS.------ * 'odioDBInstanceClass' - The DB instance class for the orderable DB instance.------ * 'odioLicenseModel' - The license model for the orderable DB instance.------ * 'odioAvailabilityZones' - A list of Availability Zones for the orderable DB instance.------ * 'odioSupportsStorageEncryption' - Indicates whether this orderable DB instance supports encrypted storage.------ * 'odioReadReplicaCapable' - Indicates whether this orderable DB instance can have a Read Replica.------ * 'odioVPC' - Indicates whether this is a VPC orderable DB instance.------ * 'odioSupportsEnhancedMonitoring' - Indicates whether the DB instance supports enhanced monitoring at intervals from 1 to 60 seconds.------ * 'odioStorageType' - Indicates the storage type for this orderable DB instance.-orderableDBInstanceOption-    :: OrderableDBInstanceOption-orderableDBInstanceOption =-    OrderableDBInstanceOption'-    { _odioEngineVersion = Nothing-    , _odioMultiAZCapable = Nothing-    , _odioEngine = Nothing-    , _odioSupportsIOPS = Nothing-    , _odioDBInstanceClass = Nothing-    , _odioLicenseModel = Nothing-    , _odioAvailabilityZones = Nothing-    , _odioSupportsStorageEncryption = Nothing-    , _odioReadReplicaCapable = Nothing-    , _odioVPC = Nothing-    , _odioSupportsEnhancedMonitoring = Nothing-    , _odioStorageType = Nothing-    }---- | The engine version of the orderable DB instance.-odioEngineVersion :: Lens' OrderableDBInstanceOption (Maybe Text)-odioEngineVersion = lens _odioEngineVersion (\ s a -> s{_odioEngineVersion = a});---- | Indicates whether this orderable DB instance is multi-AZ capable.-odioMultiAZCapable :: Lens' OrderableDBInstanceOption (Maybe Bool)-odioMultiAZCapable = lens _odioMultiAZCapable (\ s a -> s{_odioMultiAZCapable = a});---- | The engine type of the orderable DB instance.-odioEngine :: Lens' OrderableDBInstanceOption (Maybe Text)-odioEngine = lens _odioEngine (\ s a -> s{_odioEngine = a});---- | Indicates whether this orderable DB instance supports provisioned IOPS.-odioSupportsIOPS :: Lens' OrderableDBInstanceOption (Maybe Bool)-odioSupportsIOPS = lens _odioSupportsIOPS (\ s a -> s{_odioSupportsIOPS = a});---- | The DB instance class for the orderable DB instance.-odioDBInstanceClass :: Lens' OrderableDBInstanceOption (Maybe Text)-odioDBInstanceClass = lens _odioDBInstanceClass (\ s a -> s{_odioDBInstanceClass = a});---- | The license model for the orderable DB instance.-odioLicenseModel :: Lens' OrderableDBInstanceOption (Maybe Text)-odioLicenseModel = lens _odioLicenseModel (\ s a -> s{_odioLicenseModel = a});---- | A list of Availability Zones for the orderable DB instance.-odioAvailabilityZones :: Lens' OrderableDBInstanceOption [AvailabilityZone]-odioAvailabilityZones = lens _odioAvailabilityZones (\ s a -> s{_odioAvailabilityZones = a}) . _Default . _Coerce;---- | Indicates whether this orderable DB instance supports encrypted storage.-odioSupportsStorageEncryption :: Lens' OrderableDBInstanceOption (Maybe Bool)-odioSupportsStorageEncryption = lens _odioSupportsStorageEncryption (\ s a -> s{_odioSupportsStorageEncryption = a});---- | Indicates whether this orderable DB instance can have a Read Replica.-odioReadReplicaCapable :: Lens' OrderableDBInstanceOption (Maybe Bool)-odioReadReplicaCapable = lens _odioReadReplicaCapable (\ s a -> s{_odioReadReplicaCapable = a});---- | Indicates whether this is a VPC orderable DB instance.-odioVPC :: Lens' OrderableDBInstanceOption (Maybe Bool)-odioVPC = lens _odioVPC (\ s a -> s{_odioVPC = a});---- | Indicates whether the DB instance supports enhanced monitoring at intervals from 1 to 60 seconds.-odioSupportsEnhancedMonitoring :: Lens' OrderableDBInstanceOption (Maybe Bool)-odioSupportsEnhancedMonitoring = lens _odioSupportsEnhancedMonitoring (\ s a -> s{_odioSupportsEnhancedMonitoring = a});---- | Indicates the storage type for this orderable DB instance.-odioStorageType :: Lens' OrderableDBInstanceOption (Maybe Text)-odioStorageType = lens _odioStorageType (\ s a -> s{_odioStorageType = a});--instance FromXML OrderableDBInstanceOption where-        parseXML x-          = OrderableDBInstanceOption' <$>-              (x .@? "EngineVersion") <*> (x .@? "MultiAZCapable")-                <*> (x .@? "Engine")-                <*> (x .@? "SupportsIops")-                <*> (x .@? "DBInstanceClass")-                <*> (x .@? "LicenseModel")-                <*>-                (x .@? "AvailabilityZones" .!@ mempty >>=-                   may (parseXMLList "AvailabilityZone"))-                <*> (x .@? "SupportsStorageEncryption")-                <*> (x .@? "ReadReplicaCapable")-                <*> (x .@? "Vpc")-                <*> (x .@? "SupportsEnhancedMonitoring")-                <*> (x .@? "StorageType")--instance Hashable OrderableDBInstanceOption--instance NFData OrderableDBInstanceOption---- | This data type is used as a request parameter in the 'ModifyDBParameterGroup' and 'ResetDBParameterGroup' actions.--------- This data type is used as a response element in the 'DescribeEngineDefaultParameters' and 'DescribeDBParameters' actions.--------- /See:/ 'parameter' smart constructor.-data Parameter = Parameter'-    { _pApplyType            :: !(Maybe Text)-    , _pParameterValue       :: !(Maybe Text)-    , _pApplyMethod          :: !(Maybe ApplyMethod)-    , _pMinimumEngineVersion :: !(Maybe Text)-    , _pSource               :: !(Maybe Text)-    , _pIsModifiable         :: !(Maybe Bool)-    , _pDataType             :: !(Maybe Text)-    , _pAllowedValues        :: !(Maybe Text)-    , _pParameterName        :: !(Maybe Text)-    , _pDescription          :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Parameter' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pApplyType' - Specifies the engine specific parameters type.------ * 'pParameterValue' - Specifies the value of the parameter.------ * 'pApplyMethod' - Indicates when to apply parameter updates.------ * 'pMinimumEngineVersion' - The earliest engine version to which the parameter can apply.------ * 'pSource' - Indicates the source of the parameter value.------ * 'pIsModifiable' - Indicates whether (@true@ ) or not (@false@ ) the parameter can be modified. Some parameters have security or operational implications that prevent them from being changed.------ * 'pDataType' - Specifies the valid data type for the parameter.------ * 'pAllowedValues' - Specifies the valid range of values for the parameter.------ * 'pParameterName' - Specifies the name of the parameter.------ * 'pDescription' - Provides a description of the parameter.-parameter-    :: Parameter-parameter =-    Parameter'-    { _pApplyType = Nothing-    , _pParameterValue = Nothing-    , _pApplyMethod = Nothing-    , _pMinimumEngineVersion = Nothing-    , _pSource = Nothing-    , _pIsModifiable = Nothing-    , _pDataType = Nothing-    , _pAllowedValues = Nothing-    , _pParameterName = Nothing-    , _pDescription = Nothing-    }---- | Specifies the engine specific parameters type.-pApplyType :: Lens' Parameter (Maybe Text)-pApplyType = lens _pApplyType (\ s a -> s{_pApplyType = a});---- | Specifies the value of the parameter.-pParameterValue :: Lens' Parameter (Maybe Text)-pParameterValue = lens _pParameterValue (\ s a -> s{_pParameterValue = a});---- | Indicates when to apply parameter updates.-pApplyMethod :: Lens' Parameter (Maybe ApplyMethod)-pApplyMethod = lens _pApplyMethod (\ s a -> s{_pApplyMethod = a});---- | The earliest engine version to which the parameter can apply.-pMinimumEngineVersion :: Lens' Parameter (Maybe Text)-pMinimumEngineVersion = lens _pMinimumEngineVersion (\ s a -> s{_pMinimumEngineVersion = a});---- | Indicates the source of the parameter value.-pSource :: Lens' Parameter (Maybe Text)-pSource = lens _pSource (\ s a -> s{_pSource = a});---- | Indicates whether (@true@ ) or not (@false@ ) the parameter can be modified. Some parameters have security or operational implications that prevent them from being changed.-pIsModifiable :: Lens' Parameter (Maybe Bool)-pIsModifiable = lens _pIsModifiable (\ s a -> s{_pIsModifiable = a});---- | Specifies the valid data type for the parameter.-pDataType :: Lens' Parameter (Maybe Text)-pDataType = lens _pDataType (\ s a -> s{_pDataType = a});---- | Specifies the valid range of values for the parameter.-pAllowedValues :: Lens' Parameter (Maybe Text)-pAllowedValues = lens _pAllowedValues (\ s a -> s{_pAllowedValues = a});---- | Specifies the name of the parameter.-pParameterName :: Lens' Parameter (Maybe Text)-pParameterName = lens _pParameterName (\ s a -> s{_pParameterName = a});---- | Provides a description of the parameter.-pDescription :: Lens' Parameter (Maybe Text)-pDescription = lens _pDescription (\ s a -> s{_pDescription = a});--instance FromXML Parameter where-        parseXML x-          = Parameter' <$>-              (x .@? "ApplyType") <*> (x .@? "ParameterValue") <*>-                (x .@? "ApplyMethod")-                <*> (x .@? "MinimumEngineVersion")-                <*> (x .@? "Source")-                <*> (x .@? "IsModifiable")-                <*> (x .@? "DataType")-                <*> (x .@? "AllowedValues")-                <*> (x .@? "ParameterName")-                <*> (x .@? "Description")--instance Hashable Parameter--instance NFData Parameter--instance ToQuery Parameter where-        toQuery Parameter'{..}-          = mconcat-              ["ApplyType" =: _pApplyType,-               "ParameterValue" =: _pParameterValue,-               "ApplyMethod" =: _pApplyMethod,-               "MinimumEngineVersion" =: _pMinimumEngineVersion,-               "Source" =: _pSource,-               "IsModifiable" =: _pIsModifiable,-               "DataType" =: _pDataType,-               "AllowedValues" =: _pAllowedValues,-               "ParameterName" =: _pParameterName,-               "Description" =: _pDescription]---- | Provides information about a pending maintenance action for a resource.------------ /See:/ 'pendingMaintenanceAction' smart constructor.-data PendingMaintenanceAction = PendingMaintenanceAction'-    { _pmaAutoAppliedAfterDate :: !(Maybe ISO8601)-    , _pmaAction               :: !(Maybe Text)-    , _pmaOptInStatus          :: !(Maybe Text)-    , _pmaDescription          :: !(Maybe Text)-    , _pmaForcedApplyDate      :: !(Maybe ISO8601)-    , _pmaCurrentApplyDate     :: !(Maybe ISO8601)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'PendingMaintenanceAction' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pmaAutoAppliedAfterDate' - The date of the maintenance window when the action will be applied. The maintenance action will be applied to the resource during its first maintenance window after this date. If this date is specified, any @next-maintenance@ opt-in requests are ignored.------ * 'pmaAction' - The type of pending maintenance action that is available for the resource.------ * 'pmaOptInStatus' - Indicates the type of opt-in request that has been received for the resource.------ * 'pmaDescription' - A description providing more detail about the maintenance action.------ * 'pmaForcedApplyDate' - The date when the maintenance action will be automatically applied. The maintenance action will be applied to the resource on this date regardless of the maintenance window for the resource. If this date is specified, any @immediate@ opt-in requests are ignored.------ * 'pmaCurrentApplyDate' - The effective date when the pending maintenance action will be applied to the resource. This date takes into account opt-in requests received from the 'ApplyPendingMaintenanceAction' API, the @AutoAppliedAfterDate@ , and the @ForcedApplyDate@ . This value is blank if an opt-in request has not been received and nothing has been specified as @AutoAppliedAfterDate@ or @ForcedApplyDate@ .-pendingMaintenanceAction-    :: PendingMaintenanceAction-pendingMaintenanceAction =-    PendingMaintenanceAction'-    { _pmaAutoAppliedAfterDate = Nothing-    , _pmaAction = Nothing-    , _pmaOptInStatus = Nothing-    , _pmaDescription = Nothing-    , _pmaForcedApplyDate = Nothing-    , _pmaCurrentApplyDate = Nothing-    }---- | The date of the maintenance window when the action will be applied. The maintenance action will be applied to the resource during its first maintenance window after this date. If this date is specified, any @next-maintenance@ opt-in requests are ignored.-pmaAutoAppliedAfterDate :: Lens' PendingMaintenanceAction (Maybe UTCTime)-pmaAutoAppliedAfterDate = lens _pmaAutoAppliedAfterDate (\ s a -> s{_pmaAutoAppliedAfterDate = a}) . mapping _Time;---- | The type of pending maintenance action that is available for the resource.-pmaAction :: Lens' PendingMaintenanceAction (Maybe Text)-pmaAction = lens _pmaAction (\ s a -> s{_pmaAction = a});---- | Indicates the type of opt-in request that has been received for the resource.-pmaOptInStatus :: Lens' PendingMaintenanceAction (Maybe Text)-pmaOptInStatus = lens _pmaOptInStatus (\ s a -> s{_pmaOptInStatus = a});---- | A description providing more detail about the maintenance action.-pmaDescription :: Lens' PendingMaintenanceAction (Maybe Text)-pmaDescription = lens _pmaDescription (\ s a -> s{_pmaDescription = a});---- | The date when the maintenance action will be automatically applied. The maintenance action will be applied to the resource on this date regardless of the maintenance window for the resource. If this date is specified, any @immediate@ opt-in requests are ignored.-pmaForcedApplyDate :: Lens' PendingMaintenanceAction (Maybe UTCTime)-pmaForcedApplyDate = lens _pmaForcedApplyDate (\ s a -> s{_pmaForcedApplyDate = a}) . mapping _Time;---- | The effective date when the pending maintenance action will be applied to the resource. This date takes into account opt-in requests received from the 'ApplyPendingMaintenanceAction' API, the @AutoAppliedAfterDate@ , and the @ForcedApplyDate@ . This value is blank if an opt-in request has not been received and nothing has been specified as @AutoAppliedAfterDate@ or @ForcedApplyDate@ .-pmaCurrentApplyDate :: Lens' PendingMaintenanceAction (Maybe UTCTime)-pmaCurrentApplyDate = lens _pmaCurrentApplyDate (\ s a -> s{_pmaCurrentApplyDate = a}) . mapping _Time;--instance FromXML PendingMaintenanceAction where-        parseXML x-          = PendingMaintenanceAction' <$>-              (x .@? "AutoAppliedAfterDate") <*> (x .@? "Action")-                <*> (x .@? "OptInStatus")-                <*> (x .@? "Description")-                <*> (x .@? "ForcedApplyDate")-                <*> (x .@? "CurrentApplyDate")--instance Hashable PendingMaintenanceAction--instance NFData PendingMaintenanceAction---- | This data type is used as a response element in the 'ModifyDBInstance' action.------------ /See:/ 'pendingModifiedValues' smart constructor.-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)-    , _pmvMultiAZ                 :: !(Maybe Bool)-    , _pmvAllocatedStorage        :: !(Maybe Int)-    , _pmvPort                    :: !(Maybe Int)-    , _pmvStorageType             :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'PendingModifiedValues' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'pmvEngineVersion' - Indicates the database engine version.------ * 'pmvMasterUserPassword' - Contains the pending or in-progress change of the master credentials for the DB instance.------ * 'pmvDBSubnetGroupName' - The new DB subnet group for the DB instance.------ * 'pmvIOPS' - Specifies the new Provisioned IOPS value for the DB instance that will be applied or is being applied.------ * 'pmvDBInstanceClass' - Contains the new @DBInstanceClass@ for the DB instance that will be applied or is in progress.------ * 'pmvLicenseModel' - The license model for the DB instance. Valid values: @license-included@ | @bring-your-own-license@ | @general-public-license@------ * 'pmvCACertificateIdentifier' - Specifies the identifier of the CA certificate for the DB instance.------ * 'pmvDBInstanceIdentifier' - Contains the new @DBInstanceIdentifier@ for the DB instance that will be applied or is in progress.------ * 'pmvBackupRetentionPeriod' - Specifies the pending number of days for which automated backups are retained.------ * 'pmvMultiAZ' - Indicates that the Single-AZ DB instance is to change to a Multi-AZ deployment.------ * 'pmvAllocatedStorage' - Contains the new @AllocatedStorage@ size for the DB instance that will be applied or is in progress.------ * 'pmvPort' - Specifies the pending port for the DB instance.------ * 'pmvStorageType' - Specifies the storage type to be associated with the DB instance.-pendingModifiedValues-    :: PendingModifiedValues-pendingModifiedValues =-    PendingModifiedValues'-    { _pmvEngineVersion = Nothing-    , _pmvMasterUserPassword = Nothing-    , _pmvDBSubnetGroupName = Nothing-    , _pmvIOPS = Nothing-    , _pmvDBInstanceClass = Nothing-    , _pmvLicenseModel = Nothing-    , _pmvCACertificateIdentifier = Nothing-    , _pmvDBInstanceIdentifier = Nothing-    , _pmvBackupRetentionPeriod = Nothing-    , _pmvMultiAZ = Nothing-    , _pmvAllocatedStorage = Nothing-    , _pmvPort = Nothing-    , _pmvStorageType = Nothing-    }---- | Indicates the database engine version.-pmvEngineVersion :: Lens' PendingModifiedValues (Maybe Text)-pmvEngineVersion = lens _pmvEngineVersion (\ s a -> s{_pmvEngineVersion = a});---- | Contains the pending or in-progress change of the master credentials for the DB instance.-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});---- | Contains the new @DBInstanceClass@ for the DB instance that will be applied or is in progress.-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});---- | Contains the new @DBInstanceIdentifier@ for the DB instance that will be applied or is in progress.-pmvDBInstanceIdentifier :: Lens' PendingModifiedValues (Maybe Text)-pmvDBInstanceIdentifier = lens _pmvDBInstanceIdentifier (\ s a -> s{_pmvDBInstanceIdentifier = a});---- | Specifies the pending number of days for which automated backups are retained.-pmvBackupRetentionPeriod :: Lens' PendingModifiedValues (Maybe Int)-pmvBackupRetentionPeriod = lens _pmvBackupRetentionPeriod (\ s a -> s{_pmvBackupRetentionPeriod = a});---- | Indicates that the Single-AZ DB instance is to change to a Multi-AZ deployment.-pmvMultiAZ :: Lens' PendingModifiedValues (Maybe Bool)-pmvMultiAZ = lens _pmvMultiAZ (\ s a -> s{_pmvMultiAZ = a});---- | Contains the new @AllocatedStorage@ size for the DB instance that will be applied or is in progress.-pmvAllocatedStorage :: Lens' PendingModifiedValues (Maybe Int)-pmvAllocatedStorage = lens _pmvAllocatedStorage (\ s a -> s{_pmvAllocatedStorage = a});---- | Specifies the pending port for the DB instance.-pmvPort :: Lens' PendingModifiedValues (Maybe Int)-pmvPort = lens _pmvPort (\ s a -> s{_pmvPort = a});---- | Specifies the storage type to be associated with the DB instance.-pmvStorageType :: Lens' PendingModifiedValues (Maybe Text)-pmvStorageType = lens _pmvStorageType (\ s a -> s{_pmvStorageType = a});--instance FromXML PendingModifiedValues where-        parseXML x-          = PendingModifiedValues' <$>-              (x .@? "EngineVersion") <*>-                (x .@? "MasterUserPassword")-                <*> (x .@? "DBSubnetGroupName")-                <*> (x .@? "Iops")-                <*> (x .@? "DBInstanceClass")-                <*> (x .@? "LicenseModel")-                <*> (x .@? "CACertificateIdentifier")-                <*> (x .@? "DBInstanceIdentifier")-                <*> (x .@? "BackupRetentionPeriod")-                <*> (x .@? "MultiAZ")-                <*> (x .@? "AllocatedStorage")-                <*> (x .@? "Port")-                <*> (x .@? "StorageType")--instance Hashable PendingModifiedValues--instance NFData PendingModifiedValues---- | This data type is used as a response element in the 'DescribeReservedDBInstances' and 'DescribeReservedDBInstancesOfferings' actions.------------ /See:/ 'recurringCharge' smart constructor.-data RecurringCharge = RecurringCharge'-    { _rcRecurringChargeFrequency :: !(Maybe Text)-    , _rcRecurringChargeAmount    :: !(Maybe Double)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'RecurringCharge' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rcRecurringChargeFrequency' - The frequency of the recurring charge.------ * 'rcRecurringChargeAmount' - The amount of the recurring charge.-recurringCharge-    :: RecurringCharge-recurringCharge =-    RecurringCharge'-    { _rcRecurringChargeFrequency = Nothing-    , _rcRecurringChargeAmount = Nothing-    }---- | The frequency of the recurring charge.-rcRecurringChargeFrequency :: Lens' RecurringCharge (Maybe Text)-rcRecurringChargeFrequency = lens _rcRecurringChargeFrequency (\ s a -> s{_rcRecurringChargeFrequency = a});---- | The amount of the recurring charge.-rcRecurringChargeAmount :: Lens' RecurringCharge (Maybe Double)-rcRecurringChargeAmount = lens _rcRecurringChargeAmount (\ s a -> s{_rcRecurringChargeAmount = a});--instance FromXML RecurringCharge where-        parseXML x-          = RecurringCharge' <$>-              (x .@? "RecurringChargeFrequency") <*>-                (x .@? "RecurringChargeAmount")--instance Hashable RecurringCharge--instance NFData RecurringCharge---- | This data type is used as a response element in the 'DescribeReservedDBInstances' and 'PurchaseReservedDBInstancesOffering' actions.------------ /See:/ 'reservedDBInstance' smart constructor.-data ReservedDBInstance = ReservedDBInstance'-    { _rdiDBInstanceCount               :: !(Maybe Int)-    , _rdiState                         :: !(Maybe Text)-    , _rdiCurrencyCode                  :: !(Maybe Text)-    , _rdiStartTime                     :: !(Maybe ISO8601)-    , _rdiProductDescription            :: !(Maybe Text)-    , _rdiReservedDBInstanceId          :: !(Maybe Text)-    , _rdiReservedDBInstanceARN         :: !(Maybe Text)-    , _rdiDBInstanceClass               :: !(Maybe Text)-    , _rdiMultiAZ                       :: !(Maybe Bool)-    , _rdiReservedDBInstancesOfferingId :: !(Maybe Text)-    , _rdiRecurringCharges              :: !(Maybe [RecurringCharge])-    , _rdiOfferingType                  :: !(Maybe Text)-    , _rdiUsagePrice                    :: !(Maybe Double)-    , _rdiFixedPrice                    :: !(Maybe Double)-    , _rdiDuration                      :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ReservedDBInstance' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rdiDBInstanceCount' - The number of reserved DB instances.------ * 'rdiState' - The state of the reserved DB instance.------ * 'rdiCurrencyCode' - The currency code for the reserved DB instance.------ * 'rdiStartTime' - The time the reservation started.------ * 'rdiProductDescription' - The description of the reserved DB instance.------ * 'rdiReservedDBInstanceId' - The unique identifier for the reservation.------ * 'rdiReservedDBInstanceARN' - The Amazon Resource Name (ARN) for the reserved DB instance.------ * 'rdiDBInstanceClass' - The DB instance class for the reserved DB instance.------ * 'rdiMultiAZ' - Indicates if the reservation applies to Multi-AZ deployments.------ * 'rdiReservedDBInstancesOfferingId' - The offering identifier.------ * 'rdiRecurringCharges' - The recurring price charged to run this reserved DB instance.------ * 'rdiOfferingType' - The offering type of this reserved DB instance.------ * 'rdiUsagePrice' - The hourly price charged for this reserved DB instance.------ * 'rdiFixedPrice' - The fixed price charged for this reserved DB instance.------ * 'rdiDuration' - The duration of the reservation in seconds.-reservedDBInstance-    :: ReservedDBInstance-reservedDBInstance =-    ReservedDBInstance'-    { _rdiDBInstanceCount = Nothing-    , _rdiState = Nothing-    , _rdiCurrencyCode = Nothing-    , _rdiStartTime = Nothing-    , _rdiProductDescription = Nothing-    , _rdiReservedDBInstanceId = Nothing-    , _rdiReservedDBInstanceARN = Nothing-    , _rdiDBInstanceClass = Nothing-    , _rdiMultiAZ = Nothing-    , _rdiReservedDBInstancesOfferingId = Nothing-    , _rdiRecurringCharges = Nothing-    , _rdiOfferingType = Nothing-    , _rdiUsagePrice = Nothing-    , _rdiFixedPrice = Nothing-    , _rdiDuration = Nothing-    }---- | The number of reserved DB instances.-rdiDBInstanceCount :: Lens' ReservedDBInstance (Maybe Int)-rdiDBInstanceCount = lens _rdiDBInstanceCount (\ s a -> s{_rdiDBInstanceCount = a});---- | The state of the reserved DB instance.-rdiState :: Lens' ReservedDBInstance (Maybe Text)-rdiState = lens _rdiState (\ s a -> s{_rdiState = a});---- | The currency code for the reserved DB instance.-rdiCurrencyCode :: Lens' ReservedDBInstance (Maybe Text)-rdiCurrencyCode = lens _rdiCurrencyCode (\ s a -> s{_rdiCurrencyCode = a});---- | The time the reservation started.-rdiStartTime :: Lens' ReservedDBInstance (Maybe UTCTime)-rdiStartTime = lens _rdiStartTime (\ s a -> s{_rdiStartTime = a}) . mapping _Time;---- | The description of the reserved DB instance.-rdiProductDescription :: Lens' ReservedDBInstance (Maybe Text)-rdiProductDescription = lens _rdiProductDescription (\ s a -> s{_rdiProductDescription = a});---- | The unique identifier for the reservation.-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});---- | Indicates if the reservation applies to Multi-AZ deployments.-rdiMultiAZ :: Lens' ReservedDBInstance (Maybe Bool)-rdiMultiAZ = lens _rdiMultiAZ (\ s a -> s{_rdiMultiAZ = a});---- | The offering identifier.-rdiReservedDBInstancesOfferingId :: Lens' ReservedDBInstance (Maybe Text)-rdiReservedDBInstancesOfferingId = lens _rdiReservedDBInstancesOfferingId (\ s a -> s{_rdiReservedDBInstancesOfferingId = a});---- | The recurring price charged to run this reserved DB instance.-rdiRecurringCharges :: Lens' ReservedDBInstance [RecurringCharge]-rdiRecurringCharges = lens _rdiRecurringCharges (\ s a -> s{_rdiRecurringCharges = a}) . _Default . _Coerce;---- | The offering type of this reserved DB instance.-rdiOfferingType :: Lens' ReservedDBInstance (Maybe Text)-rdiOfferingType = lens _rdiOfferingType (\ s a -> s{_rdiOfferingType = a});---- | The hourly price charged for this reserved DB instance.-rdiUsagePrice :: Lens' ReservedDBInstance (Maybe Double)-rdiUsagePrice = lens _rdiUsagePrice (\ s a -> s{_rdiUsagePrice = a});---- | The fixed price charged for this reserved DB instance.-rdiFixedPrice :: Lens' ReservedDBInstance (Maybe Double)-rdiFixedPrice = lens _rdiFixedPrice (\ s a -> s{_rdiFixedPrice = a});---- | The duration of the reservation in seconds.-rdiDuration :: Lens' ReservedDBInstance (Maybe Int)-rdiDuration = lens _rdiDuration (\ s a -> s{_rdiDuration = a});--instance FromXML ReservedDBInstance where-        parseXML x-          = ReservedDBInstance' <$>-              (x .@? "DBInstanceCount") <*> (x .@? "State") <*>-                (x .@? "CurrencyCode")-                <*> (x .@? "StartTime")-                <*> (x .@? "ProductDescription")-                <*> (x .@? "ReservedDBInstanceId")-                <*> (x .@? "ReservedDBInstanceArn")-                <*> (x .@? "DBInstanceClass")-                <*> (x .@? "MultiAZ")-                <*> (x .@? "ReservedDBInstancesOfferingId")-                <*>-                (x .@? "RecurringCharges" .!@ mempty >>=-                   may (parseXMLList "RecurringCharge"))-                <*> (x .@? "OfferingType")-                <*> (x .@? "UsagePrice")-                <*> (x .@? "FixedPrice")-                <*> (x .@? "Duration")--instance Hashable ReservedDBInstance--instance NFData ReservedDBInstance---- | This data type is used as a response element in the 'DescribeReservedDBInstancesOfferings' action.------------ /See:/ 'reservedDBInstancesOffering' smart constructor.-data ReservedDBInstancesOffering = ReservedDBInstancesOffering'-    { _rdioCurrencyCode                  :: !(Maybe Text)-    , _rdioProductDescription            :: !(Maybe Text)-    , _rdioDBInstanceClass               :: !(Maybe Text)-    , _rdioMultiAZ                       :: !(Maybe Bool)-    , _rdioReservedDBInstancesOfferingId :: !(Maybe Text)-    , _rdioRecurringCharges              :: !(Maybe [RecurringCharge])-    , _rdioOfferingType                  :: !(Maybe Text)-    , _rdioUsagePrice                    :: !(Maybe Double)-    , _rdioFixedPrice                    :: !(Maybe Double)-    , _rdioDuration                      :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ReservedDBInstancesOffering' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rdioCurrencyCode' - The currency code for the reserved DB instance offering.------ * 'rdioProductDescription' - The database engine used by the offering.------ * 'rdioDBInstanceClass' - The DB instance class for the reserved DB instance.------ * 'rdioMultiAZ' - Indicates if the offering applies to Multi-AZ deployments.------ * 'rdioReservedDBInstancesOfferingId' - The offering identifier.------ * 'rdioRecurringCharges' - The recurring price charged to run this reserved DB instance.------ * 'rdioOfferingType' - The offering type.------ * 'rdioUsagePrice' - The hourly price charged for this offering.------ * 'rdioFixedPrice' - The fixed price charged for this offering.------ * 'rdioDuration' - The duration of the offering in seconds.-reservedDBInstancesOffering-    :: ReservedDBInstancesOffering-reservedDBInstancesOffering =-    ReservedDBInstancesOffering'-    { _rdioCurrencyCode = Nothing-    , _rdioProductDescription = Nothing-    , _rdioDBInstanceClass = Nothing-    , _rdioMultiAZ = Nothing-    , _rdioReservedDBInstancesOfferingId = Nothing-    , _rdioRecurringCharges = Nothing-    , _rdioOfferingType = Nothing-    , _rdioUsagePrice = Nothing-    , _rdioFixedPrice = Nothing-    , _rdioDuration = Nothing-    }---- | The currency code for the reserved DB instance offering.-rdioCurrencyCode :: Lens' ReservedDBInstancesOffering (Maybe Text)-rdioCurrencyCode = lens _rdioCurrencyCode (\ s a -> s{_rdioCurrencyCode = a});---- | The database engine used by the offering.-rdioProductDescription :: Lens' ReservedDBInstancesOffering (Maybe Text)-rdioProductDescription = lens _rdioProductDescription (\ s a -> s{_rdioProductDescription = a});---- | The DB instance class for the reserved DB instance.-rdioDBInstanceClass :: Lens' ReservedDBInstancesOffering (Maybe Text)-rdioDBInstanceClass = lens _rdioDBInstanceClass (\ s a -> s{_rdioDBInstanceClass = a});---- | Indicates if the offering applies to Multi-AZ deployments.-rdioMultiAZ :: Lens' ReservedDBInstancesOffering (Maybe Bool)-rdioMultiAZ = lens _rdioMultiAZ (\ s a -> s{_rdioMultiAZ = a});---- | The offering identifier.-rdioReservedDBInstancesOfferingId :: Lens' ReservedDBInstancesOffering (Maybe Text)-rdioReservedDBInstancesOfferingId = lens _rdioReservedDBInstancesOfferingId (\ s a -> s{_rdioReservedDBInstancesOfferingId = a});---- | The recurring price charged to run this reserved DB instance.-rdioRecurringCharges :: Lens' ReservedDBInstancesOffering [RecurringCharge]-rdioRecurringCharges = lens _rdioRecurringCharges (\ s a -> s{_rdioRecurringCharges = a}) . _Default . _Coerce;---- | The offering type.-rdioOfferingType :: Lens' ReservedDBInstancesOffering (Maybe Text)-rdioOfferingType = lens _rdioOfferingType (\ s a -> s{_rdioOfferingType = a});---- | The hourly price charged for this offering.-rdioUsagePrice :: Lens' ReservedDBInstancesOffering (Maybe Double)-rdioUsagePrice = lens _rdioUsagePrice (\ s a -> s{_rdioUsagePrice = a});---- | The fixed price charged for this offering.-rdioFixedPrice :: Lens' ReservedDBInstancesOffering (Maybe Double)-rdioFixedPrice = lens _rdioFixedPrice (\ s a -> s{_rdioFixedPrice = a});---- | The duration of the offering in seconds.-rdioDuration :: Lens' ReservedDBInstancesOffering (Maybe Int)-rdioDuration = lens _rdioDuration (\ s a -> s{_rdioDuration = a});--instance FromXML ReservedDBInstancesOffering where-        parseXML x-          = ReservedDBInstancesOffering' <$>-              (x .@? "CurrencyCode") <*>-                (x .@? "ProductDescription")-                <*> (x .@? "DBInstanceClass")-                <*> (x .@? "MultiAZ")-                <*> (x .@? "ReservedDBInstancesOfferingId")-                <*>-                (x .@? "RecurringCharges" .!@ mempty >>=-                   may (parseXMLList "RecurringCharge"))-                <*> (x .@? "OfferingType")-                <*> (x .@? "UsagePrice")-                <*> (x .@? "FixedPrice")-                <*> (x .@? "Duration")--instance Hashable ReservedDBInstancesOffering--instance NFData ReservedDBInstancesOffering---- | Describes the pending maintenance actions for a resource.------------ /See:/ 'resourcePendingMaintenanceActions' smart constructor.-data ResourcePendingMaintenanceActions = ResourcePendingMaintenanceActions'-    { _rpmaPendingMaintenanceActionDetails :: !(Maybe [PendingMaintenanceAction])-    , _rpmaResourceIdentifier              :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ResourcePendingMaintenanceActions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rpmaPendingMaintenanceActionDetails' - A list that provides details about the pending maintenance actions for the resource.------ * 'rpmaResourceIdentifier' - The ARN of the resource that has pending maintenance actions.-resourcePendingMaintenanceActions-    :: ResourcePendingMaintenanceActions-resourcePendingMaintenanceActions =-    ResourcePendingMaintenanceActions'-    { _rpmaPendingMaintenanceActionDetails = Nothing-    , _rpmaResourceIdentifier = Nothing-    }---- | A list that provides details about the pending maintenance actions for the resource.-rpmaPendingMaintenanceActionDetails :: Lens' ResourcePendingMaintenanceActions [PendingMaintenanceAction]-rpmaPendingMaintenanceActionDetails = lens _rpmaPendingMaintenanceActionDetails (\ s a -> s{_rpmaPendingMaintenanceActionDetails = a}) . _Default . _Coerce;---- | The ARN of the resource that has pending maintenance actions.-rpmaResourceIdentifier :: Lens' ResourcePendingMaintenanceActions (Maybe Text)-rpmaResourceIdentifier = lens _rpmaResourceIdentifier (\ s a -> s{_rpmaResourceIdentifier = a});--instance FromXML ResourcePendingMaintenanceActions-         where-        parseXML x-          = ResourcePendingMaintenanceActions' <$>-              (x .@? "PendingMaintenanceActionDetails" .!@ mempty-                 >>= may (parseXMLList "PendingMaintenanceAction"))-                <*> (x .@? "ResourceIdentifier")--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' - The status of the source region.------ * 'srRegionName' - The source region name.------ * 'srEndpoint' - The source region endpoint.-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.------------ /See:/ 'subnet' smart constructor.-data Subnet = Subnet'-    { _sSubnetStatus           :: !(Maybe Text)-    , _sSubnetIdentifier       :: !(Maybe Text)-    , _sSubnetAvailabilityZone :: !(Maybe AvailabilityZone)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Subnet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sSubnetStatus' - Specifies the status of the subnet.------ * 'sSubnetIdentifier' - Specifies the identifier of the subnet.------ * 'sSubnetAvailabilityZone' - Undocumented member.-subnet-    :: Subnet-subnet =-    Subnet'-    { _sSubnetStatus = Nothing-    , _sSubnetIdentifier = Nothing-    , _sSubnetAvailabilityZone = Nothing-    }---- | Specifies the status of the subnet.-sSubnetStatus :: Lens' Subnet (Maybe Text)-sSubnetStatus = lens _sSubnetStatus (\ s a -> s{_sSubnetStatus = a});---- | Specifies the identifier of the subnet.-sSubnetIdentifier :: Lens' Subnet (Maybe Text)-sSubnetIdentifier = lens _sSubnetIdentifier (\ s a -> s{_sSubnetIdentifier = a});---- | Undocumented member.-sSubnetAvailabilityZone :: Lens' Subnet (Maybe AvailabilityZone)-sSubnetAvailabilityZone = lens _sSubnetAvailabilityZone (\ s a -> s{_sSubnetAvailabilityZone = a});--instance FromXML Subnet where-        parseXML x-          = Subnet' <$>-              (x .@? "SubnetStatus") <*> (x .@? "SubnetIdentifier")-                <*> (x .@? "SubnetAvailabilityZone")--instance Hashable Subnet--instance NFData Subnet---- | Metadata assigned to an Amazon RDS resource consisting of a key-value pair.------------ /See:/ 'tag' smart constructor.-data Tag = Tag'-    { _tagValue :: !(Maybe Text)-    , _tagKey   :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Tag' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tagValue' - A value is the optional value of the tag. The string value can be from 1 to 256 Unicode characters in length and cannot be prefixed with "aws:" or "rds:". The string can only contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").------ * 'tagKey' - A key is the required name of the tag. The string value can be from 1 to 128 Unicode characters in length and cannot be prefixed with "aws:" or "rds:". The string can only contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").-tag-    :: Tag-tag =-    Tag'-    { _tagValue = Nothing-    , _tagKey = Nothing-    }---- | A value is the optional value of the tag. The string value can be from 1 to 256 Unicode characters in length and cannot be prefixed with "aws:" or "rds:". The string can only contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").-tagValue :: Lens' Tag (Maybe Text)-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});---- | A key is the required name of the tag. The string value can be from 1 to 128 Unicode characters in length and cannot be prefixed with "aws:" or "rds:". The string can only contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").-tagKey :: Lens' Tag (Maybe Text)-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});--instance FromXML Tag where-        parseXML x-          = Tag' <$> (x .@? "Value") <*> (x .@? "Key")--instance Hashable Tag--instance NFData Tag--instance ToQuery Tag where-        toQuery Tag'{..}-          = mconcat ["Value" =: _tagValue, "Key" =: _tagKey]---- | A time zone associated with a 'DBInstance' or a 'DBSnapshot' . This data type is an element in the response to the 'DescribeDBInstances' , the 'DescribeDBSnapshots' , and the 'DescribeDBEngineVersions' actions.------------ /See:/ 'timezone' smart constructor.-newtype Timezone = Timezone'-    { _tTimezoneName :: Maybe Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Timezone' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tTimezoneName' - The name of the time zone.-timezone-    :: Timezone-timezone =-    Timezone'-    { _tTimezoneName = Nothing-    }---- | The name of the time zone.-tTimezoneName :: Lens' Timezone (Maybe Text)-tTimezoneName = lens _tTimezoneName (\ s a -> s{_tTimezoneName = a});--instance FromXML Timezone where-        parseXML x = Timezone' <$> (x .@? "TimezoneName")--instance Hashable Timezone--instance NFData Timezone---- | The version of the database engine that a DB instance can be upgraded to.------------ /See:/ 'upgradeTarget' smart constructor.-data UpgradeTarget = UpgradeTarget'-    { _utEngineVersion         :: !(Maybe Text)-    , _utIsMajorVersionUpgrade :: !(Maybe Bool)-    , _utEngine                :: !(Maybe Text)-    , _utAutoUpgrade           :: !(Maybe Bool)-    , _utDescription           :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'UpgradeTarget' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'utEngineVersion' - The version number of the upgrade target database engine.------ * 'utIsMajorVersionUpgrade' - A value that indicates whether a database engine will be upgraded to a major version.------ * 'utEngine' - The name of the upgrade target database engine.------ * 'utAutoUpgrade' - A value that indicates whether the target version will be applied to any source DB instances that have AutoMinorVersionUpgrade set to true.------ * 'utDescription' - The version of the database engine that a DB instance can be upgraded to.-upgradeTarget-    :: UpgradeTarget-upgradeTarget =-    UpgradeTarget'-    { _utEngineVersion = Nothing-    , _utIsMajorVersionUpgrade = Nothing-    , _utEngine = Nothing-    , _utAutoUpgrade = Nothing-    , _utDescription = Nothing-    }---- | The version number of the upgrade target database engine.-utEngineVersion :: Lens' UpgradeTarget (Maybe Text)-utEngineVersion = lens _utEngineVersion (\ s a -> s{_utEngineVersion = a});---- | A value that indicates whether a database engine will be upgraded to a major version.-utIsMajorVersionUpgrade :: Lens' UpgradeTarget (Maybe Bool)-utIsMajorVersionUpgrade = lens _utIsMajorVersionUpgrade (\ s a -> s{_utIsMajorVersionUpgrade = a});---- | The name of the upgrade target database engine.-utEngine :: Lens' UpgradeTarget (Maybe Text)-utEngine = lens _utEngine (\ s a -> s{_utEngine = a});---- | A value that indicates whether the target version will be applied to any source DB instances that have AutoMinorVersionUpgrade set to true.-utAutoUpgrade :: Lens' UpgradeTarget (Maybe Bool)-utAutoUpgrade = lens _utAutoUpgrade (\ s a -> s{_utAutoUpgrade = a});---- | The version of the database engine that a DB instance can be upgraded to.-utDescription :: Lens' UpgradeTarget (Maybe Text)-utDescription = lens _utDescription (\ s a -> s{_utDescription = a});--instance FromXML UpgradeTarget where-        parseXML x-          = UpgradeTarget' <$>-              (x .@? "EngineVersion") <*>-                (x .@? "IsMajorVersionUpgrade")-                <*> (x .@? "Engine")-                <*> (x .@? "AutoUpgrade")-                <*> (x .@? "Description")--instance Hashable UpgradeTarget--instance NFData UpgradeTarget---- | This data type is used as a response element for queries on VPC security group membership.------------ /See:/ 'vpcSecurityGroupMembership' smart constructor.-data VPCSecurityGroupMembership = VPCSecurityGroupMembership'-    { _vsgmStatus             :: !(Maybe Text)-    , _vsgmVPCSecurityGroupId :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'VPCSecurityGroupMembership' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vsgmStatus' - The status of the VPC security group.------ * 'vsgmVPCSecurityGroupId' - The name of the VPC security group.-vpcSecurityGroupMembership-    :: VPCSecurityGroupMembership-vpcSecurityGroupMembership =-    VPCSecurityGroupMembership'-    { _vsgmStatus = Nothing-    , _vsgmVPCSecurityGroupId = Nothing-    }---- | The status of the VPC security group.-vsgmStatus :: Lens' VPCSecurityGroupMembership (Maybe Text)-vsgmStatus = lens _vsgmStatus (\ s a -> s{_vsgmStatus = a});---- | The name of the VPC security group.-vsgmVPCSecurityGroupId :: Lens' VPCSecurityGroupMembership (Maybe Text)-vsgmVPCSecurityGroupId = lens _vsgmVPCSecurityGroupId (\ s a -> s{_vsgmVPCSecurityGroupId = a});--instance FromXML VPCSecurityGroupMembership where-        parseXML x-          = VPCSecurityGroupMembership' <$>-              (x .@? "Status") <*> (x .@? "VpcSecurityGroupId")--instance Hashable VPCSecurityGroupMembership--instance NFData VPCSecurityGroupMembership+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.RDS.Types.Product where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.RDS.Types.Sum++-- | Describes a quota for an AWS account, for example, the number of DB instances allowed.+--+--+--+-- /See:/ 'accountQuota' smart constructor.+data AccountQuota = AccountQuota'+  { _aqMax              :: !(Maybe Integer)+  , _aqUsed             :: !(Maybe Integer)+  , _aqAccountQuotaName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AccountQuota' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aqMax' - The maximum allowed value for the quota.+--+-- * 'aqUsed' - The amount currently used toward the quota maximum.+--+-- * 'aqAccountQuotaName' - The name of the Amazon RDS quota for this AWS account.+accountQuota+    :: AccountQuota+accountQuota =+  AccountQuota'+  {_aqMax = Nothing, _aqUsed = Nothing, _aqAccountQuotaName = Nothing}+++-- | The maximum allowed value for the quota.+aqMax :: Lens' AccountQuota (Maybe Integer)+aqMax = lens _aqMax (\ s a -> s{_aqMax = a});++-- | The amount currently used toward the quota maximum.+aqUsed :: Lens' AccountQuota (Maybe Integer)+aqUsed = lens _aqUsed (\ s a -> s{_aqUsed = a});++-- | The name of the Amazon RDS quota for this AWS account.+aqAccountQuotaName :: Lens' AccountQuota (Maybe Text)+aqAccountQuotaName = lens _aqAccountQuotaName (\ s a -> s{_aqAccountQuotaName = a});++instance FromXML AccountQuota where+        parseXML x+          = AccountQuota' <$>+              (x .@? "Max") <*> (x .@? "Used") <*>+                (x .@? "AccountQuotaName")++instance Hashable AccountQuota where++instance NFData AccountQuota where++-- | Contains Availability Zone information.+--+--+-- This data type is used as an element in the following data type:+--+--     * 'OrderableDBInstanceOption'+--+--+--+--+-- /See:/ 'availabilityZone' smart constructor.+newtype AvailabilityZone = AvailabilityZone'+  { _azName :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AvailabilityZone' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'azName' - The name of the availability zone.+availabilityZone+    :: AvailabilityZone+availabilityZone = AvailabilityZone' {_azName = Nothing}+++-- | The name of the availability zone.+azName :: Lens' AvailabilityZone (Maybe Text)+azName = lens _azName (\ s a -> s{_azName = a});++instance FromXML AvailabilityZone where+        parseXML x = AvailabilityZone' <$> (x .@? "Name")++instance Hashable AvailabilityZone where++instance NFData AvailabilityZone where++-- | A CA certificate for an AWS account.+--+--+--+-- /See:/ 'certificate' smart constructor.+data Certificate = Certificate'+  { _cCertificateType       :: !(Maybe Text)+  , _cCertificateARN        :: !(Maybe Text)+  , _cValidTill             :: !(Maybe ISO8601)+  , _cCertificateIdentifier :: !(Maybe Text)+  , _cThumbprint            :: !(Maybe Text)+  , _cValidFrom             :: !(Maybe ISO8601)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Certificate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cCertificateType' - The type of the certificate.+--+-- * 'cCertificateARN' - The Amazon Resource Name (ARN) for the certificate.+--+-- * 'cValidTill' - The final date that the certificate continues to be valid.+--+-- * 'cCertificateIdentifier' - The unique key that identifies a certificate.+--+-- * 'cThumbprint' - The thumbprint of the certificate.+--+-- * 'cValidFrom' - The starting date from which the certificate is valid.+certificate+    :: Certificate+certificate =+  Certificate'+  { _cCertificateType = Nothing+  , _cCertificateARN = Nothing+  , _cValidTill = Nothing+  , _cCertificateIdentifier = Nothing+  , _cThumbprint = Nothing+  , _cValidFrom = Nothing+  }+++-- | The type of the certificate.+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;++-- | The unique key that identifies a certificate.+cCertificateIdentifier :: Lens' Certificate (Maybe Text)+cCertificateIdentifier = lens _cCertificateIdentifier (\ s a -> s{_cCertificateIdentifier = a});++-- | The thumbprint of the certificate.+cThumbprint :: Lens' Certificate (Maybe Text)+cThumbprint = lens _cThumbprint (\ s a -> s{_cThumbprint = a});++-- | The starting date from which the certificate is valid.+cValidFrom :: Lens' Certificate (Maybe UTCTime)+cValidFrom = lens _cValidFrom (\ s a -> s{_cValidFrom = a}) . mapping _Time;++instance FromXML Certificate where+        parseXML x+          = Certificate' <$>+              (x .@? "CertificateType") <*>+                (x .@? "CertificateArn")+                <*> (x .@? "ValidTill")+                <*> (x .@? "CertificateIdentifier")+                <*> (x .@? "Thumbprint")+                <*> (x .@? "ValidFrom")++instance Hashable Certificate where++instance NFData Certificate where++-- | This data type is used as a response element in the action 'DescribeDBEngineVersions' .+--+--+--+-- /See:/ 'characterSet' smart constructor.+data CharacterSet = CharacterSet'+  { _csCharacterSetName        :: !(Maybe Text)+  , _csCharacterSetDescription :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CharacterSet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csCharacterSetName' - The name of the character set.+--+-- * 'csCharacterSetDescription' - The description of the character set.+characterSet+    :: CharacterSet+characterSet =+  CharacterSet'+  {_csCharacterSetName = Nothing, _csCharacterSetDescription = Nothing}+++-- | The name of the character set.+csCharacterSetName :: Lens' CharacterSet (Maybe Text)+csCharacterSetName = lens _csCharacterSetName (\ s a -> s{_csCharacterSetName = a});++-- | The description of the character set.+csCharacterSetDescription :: Lens' CharacterSet (Maybe Text)+csCharacterSetDescription = lens _csCharacterSetDescription (\ s a -> s{_csCharacterSetDescription = a});++instance FromXML CharacterSet where+        parseXML x+          = CharacterSet' <$>+              (x .@? "CharacterSetName") <*>+                (x .@? "CharacterSetDescription")++instance Hashable CharacterSet where++instance NFData CharacterSet where++-- | 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.+data DBCluster = DBCluster'+  { _dcEngineVersion                    :: !(Maybe Text)+  , _dcStatus                           :: !(Maybe Text)+  , _dcStorageEncrypted                 :: !(Maybe Bool)+  , _dcDBClusterIdentifier              :: !(Maybe Text)+  , _dcDBClusterMembers                 :: !(Maybe [DBClusterMember])+  , _dcReadReplicaIdentifiers           :: !(Maybe [Text])+  , _dcReplicationSourceIdentifier      :: !(Maybe Text)+  , _dcHostedZoneId                     :: !(Maybe Text)+  , _dcDBClusterParameterGroup          :: !(Maybe Text)+  , _dcMasterUsername                   :: !(Maybe Text)+  , _dcIAMDatabaseAuthenticationEnabled :: !(Maybe Bool)+  , _dcDBClusterResourceId              :: !(Maybe Text)+  , _dcEarliestRestorableTime           :: !(Maybe ISO8601)+  , _dcEngine                           :: !(Maybe Text)+  , _dcDBClusterARN                     :: !(Maybe Text)+  , _dcCloneGroupId                     :: !(Maybe Text)+  , _dcLatestRestorableTime             :: !(Maybe ISO8601)+  , _dcPreferredMaintenanceWindow       :: !(Maybe Text)+  , _dcAvailabilityZones                :: !(Maybe [Text])+  , _dcCharacterSetName                 :: !(Maybe Text)+  , _dcKMSKeyId                         :: !(Maybe Text)+  , _dcPreferredBackupWindow            :: !(Maybe Text)+  , _dcAssociatedRoles                  :: !(Maybe [DBClusterRole])+  , _dcVPCSecurityGroups                :: !(Maybe [VPCSecurityGroupMembership])+  , _dcBackupRetentionPeriod            :: !(Maybe Int)+  , _dcDBSubnetGroup                    :: !(Maybe Text)+  , _dcDatabaseName                     :: !(Maybe Text)+  , _dcMultiAZ                          :: !(Maybe Bool)+  , _dcAllocatedStorage                 :: !(Maybe Int)+  , _dcClusterCreateTime                :: !(Maybe ISO8601)+  , _dcEndpoint                         :: !(Maybe Text)+  , _dcPercentProgress                  :: !(Maybe Text)+  , _dcReaderEndpoint                   :: !(Maybe Text)+  , _dcPort                             :: !(Maybe Int)+  , _dcDBClusterOptionGroupMemberships  :: !(Maybe [DBClusterOptionGroupStatus])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBCluster' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcEngineVersion' - Indicates the database engine version.+--+-- * 'dcStatus' - Specifies the current state of this DB cluster.+--+-- * 'dcStorageEncrypted' - Specifies whether the DB cluster is encrypted.+--+-- * 'dcDBClusterIdentifier' - Contains a user-supplied DB cluster identifier. This identifier is the unique key that identifies a DB cluster.+--+-- * 'dcDBClusterMembers' - Provides the list of instances that make up the DB cluster.+--+-- * 'dcReadReplicaIdentifiers' - Contains one or more identifiers of the Read Replicas associated with this DB cluster.+--+-- * 'dcReplicationSourceIdentifier' - Contains the identifier of the source DB cluster if this DB cluster is a Read Replica.+--+-- * 'dcHostedZoneId' - Specifies the ID that Amazon Route 53 assigns when you create a hosted zone.+--+-- * 'dcDBClusterParameterGroup' - Specifies the name of the DB cluster parameter group for the DB cluster.+--+-- * 'dcMasterUsername' - Contains the master username for the DB cluster.+--+-- * 'dcIAMDatabaseAuthenticationEnabled' - True if mapping of AWS Identity and Access Management (IAM) accounts to database accounts is enabled; otherwise false.+--+-- * 'dcDBClusterResourceId' - The region-unique, immutable identifier for the DB cluster. This identifier is found in AWS CloudTrail log entries whenever the KMS key for the DB cluster is accessed.+--+-- * 'dcEarliestRestorableTime' - Specifies the earliest time to which a database can be restored with point-in-time restore.+--+-- * 'dcEngine' - Provides the name of the database engine to be used for this DB cluster.+--+-- * 'dcDBClusterARN' - The Amazon Resource Name (ARN) for the DB cluster.+--+-- * 'dcCloneGroupId' - Identifies the clone group to which the DB cluster is associated.+--+-- * 'dcLatestRestorableTime' - Specifies the latest time to which a database can be restored with point-in-time restore.+--+-- * 'dcPreferredMaintenanceWindow' - Specifies the weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC).+--+-- * 'dcAvailabilityZones' - Provides the list of EC2 Availability Zones that instances in the DB cluster can be created in.+--+-- * 'dcCharacterSetName' - If present, specifies the name of the character set that this cluster is associated with.+--+-- * 'dcKMSKeyId' - If @StorageEncrypted@ is true, the KMS key identifier for the encrypted DB cluster.+--+-- * 'dcPreferredBackupWindow' - Specifies the daily time range during which automated backups are created if automated backups are enabled, as determined by the @BackupRetentionPeriod@ .+--+-- * 'dcAssociatedRoles' - Provides a list of the AWS Identity and Access Management (IAM) roles that are associated with the DB cluster. IAM roles that are associated with a DB cluster grant permission for the DB cluster to access other AWS services on your behalf.+--+-- * 'dcVPCSecurityGroups' - Provides a list of VPC security groups that the DB cluster belongs to.+--+-- * 'dcBackupRetentionPeriod' - Specifies the number of days for which automatic DB snapshots are retained.+--+-- * 'dcDBSubnetGroup' - Specifies information on the subnet group associated with the DB cluster, including the name, description, and subnets in the subnet group.+--+-- * 'dcDatabaseName' - Contains the name of the initial database of this DB cluster that was provided at create time, if one was specified when the DB cluster was created. This same name is returned for the life of the DB cluster.+--+-- * 'dcMultiAZ' - Specifies whether the DB cluster has instances in multiple Availability Zones.+--+-- * 'dcAllocatedStorage' - For all database engines except Amazon Aurora, @AllocatedStorage@ specifies the allocated storage size in gigabytes (GB). For Aurora, @AllocatedStorage@ always returns 1, because Aurora DB cluster storage size is not fixed, but instead automatically adjusts as needed.+--+-- * 'dcClusterCreateTime' - Specifies the time when the DB cluster was created, in Universal Coordinated Time (UTC).+--+-- * 'dcEndpoint' - Specifies the connection endpoint for the primary instance of the DB cluster.+--+-- * 'dcPercentProgress' - Specifies the progress of the operation as a percentage.+--+-- * 'dcReaderEndpoint' - The reader endpoint for the DB cluster. The reader endpoint for a DB cluster load-balances connections across the Aurora Replicas that are available in a DB cluster. As clients request new connections to the reader endpoint, Aurora distributes the connection requests among the Aurora Replicas in the DB cluster. This functionality can help balance your read workload across multiple Aurora Replicas in your DB cluster.  If a failover occurs, and the Aurora Replica that you are connected to is promoted to be the primary instance, your connection is dropped. To continue sending your read workload to other Aurora Replicas in the cluster, you can then reconnect to the reader endpoint.+--+-- * 'dcPort' - Specifies the port that the database engine is listening on.+--+-- * 'dcDBClusterOptionGroupMemberships' - Provides the list of option group memberships for this DB cluster.+dbCluster+    :: DBCluster+dbCluster =+  DBCluster'+  { _dcEngineVersion = Nothing+  , _dcStatus = Nothing+  , _dcStorageEncrypted = Nothing+  , _dcDBClusterIdentifier = Nothing+  , _dcDBClusterMembers = Nothing+  , _dcReadReplicaIdentifiers = Nothing+  , _dcReplicationSourceIdentifier = Nothing+  , _dcHostedZoneId = Nothing+  , _dcDBClusterParameterGroup = Nothing+  , _dcMasterUsername = Nothing+  , _dcIAMDatabaseAuthenticationEnabled = Nothing+  , _dcDBClusterResourceId = Nothing+  , _dcEarliestRestorableTime = Nothing+  , _dcEngine = Nothing+  , _dcDBClusterARN = Nothing+  , _dcCloneGroupId = Nothing+  , _dcLatestRestorableTime = Nothing+  , _dcPreferredMaintenanceWindow = Nothing+  , _dcAvailabilityZones = Nothing+  , _dcCharacterSetName = Nothing+  , _dcKMSKeyId = Nothing+  , _dcPreferredBackupWindow = Nothing+  , _dcAssociatedRoles = Nothing+  , _dcVPCSecurityGroups = Nothing+  , _dcBackupRetentionPeriod = Nothing+  , _dcDBSubnetGroup = Nothing+  , _dcDatabaseName = Nothing+  , _dcMultiAZ = Nothing+  , _dcAllocatedStorage = Nothing+  , _dcClusterCreateTime = Nothing+  , _dcEndpoint = Nothing+  , _dcPercentProgress = Nothing+  , _dcReaderEndpoint = Nothing+  , _dcPort = Nothing+  , _dcDBClusterOptionGroupMemberships = Nothing+  }+++-- | Indicates the database engine version.+dcEngineVersion :: Lens' DBCluster (Maybe Text)+dcEngineVersion = lens _dcEngineVersion (\ s a -> s{_dcEngineVersion = a});++-- | Specifies the current state of this DB cluster.+dcStatus :: Lens' DBCluster (Maybe Text)+dcStatus = lens _dcStatus (\ s a -> s{_dcStatus = a});++-- | Specifies whether the DB cluster is encrypted.+dcStorageEncrypted :: Lens' DBCluster (Maybe Bool)+dcStorageEncrypted = lens _dcStorageEncrypted (\ s a -> s{_dcStorageEncrypted = a});++-- | Contains a user-supplied DB cluster identifier. This identifier is the unique key that identifies a DB cluster.+dcDBClusterIdentifier :: Lens' DBCluster (Maybe Text)+dcDBClusterIdentifier = lens _dcDBClusterIdentifier (\ s a -> s{_dcDBClusterIdentifier = a});++-- | Provides the list of instances that make up the DB cluster.+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});++-- | Specifies the name of the DB cluster parameter group for the DB cluster.+dcDBClusterParameterGroup :: Lens' DBCluster (Maybe Text)+dcDBClusterParameterGroup = lens _dcDBClusterParameterGroup (\ s a -> s{_dcDBClusterParameterGroup = a});++-- | Contains the master username for the DB cluster.+dcMasterUsername :: Lens' DBCluster (Maybe Text)+dcMasterUsername = lens _dcMasterUsername (\ s a -> s{_dcMasterUsername = a});++-- | True if mapping of AWS Identity and Access Management (IAM) accounts to database accounts is enabled; otherwise false.+dcIAMDatabaseAuthenticationEnabled :: Lens' DBCluster (Maybe Bool)+dcIAMDatabaseAuthenticationEnabled = lens _dcIAMDatabaseAuthenticationEnabled (\ s a -> s{_dcIAMDatabaseAuthenticationEnabled = a});++-- | The region-unique, immutable identifier for the DB cluster. This identifier is found in AWS CloudTrail log entries whenever the KMS key for the DB cluster is accessed.+dcDBClusterResourceId :: Lens' DBCluster (Maybe Text)+dcDBClusterResourceId = lens _dcDBClusterResourceId (\ s a -> s{_dcDBClusterResourceId = a});++-- | Specifies the earliest time to which a database can be restored with point-in-time restore.+dcEarliestRestorableTime :: Lens' DBCluster (Maybe UTCTime)+dcEarliestRestorableTime = lens _dcEarliestRestorableTime (\ s a -> s{_dcEarliestRestorableTime = a}) . mapping _Time;++-- | Provides the name of the database engine to be used for this DB cluster.+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});++-- | Identifies the clone group to which the DB cluster is associated.+dcCloneGroupId :: Lens' DBCluster (Maybe Text)+dcCloneGroupId = lens _dcCloneGroupId (\ s a -> s{_dcCloneGroupId = 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;++-- | Specifies the weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC).+dcPreferredMaintenanceWindow :: Lens' DBCluster (Maybe Text)+dcPreferredMaintenanceWindow = lens _dcPreferredMaintenanceWindow (\ s a -> s{_dcPreferredMaintenanceWindow = a});++-- | Provides the list of EC2 Availability Zones that instances in the DB cluster can be created in.+dcAvailabilityZones :: Lens' DBCluster [Text]+dcAvailabilityZones = lens _dcAvailabilityZones (\ s a -> s{_dcAvailabilityZones = a}) . _Default . _Coerce;++-- | If present, specifies the name of the character set that this cluster is associated with.+dcCharacterSetName :: Lens' DBCluster (Maybe Text)+dcCharacterSetName = lens _dcCharacterSetName (\ s a -> s{_dcCharacterSetName = a});++-- | If @StorageEncrypted@ is true, the KMS key identifier for the encrypted DB cluster.+dcKMSKeyId :: Lens' DBCluster (Maybe Text)+dcKMSKeyId = lens _dcKMSKeyId (\ s a -> s{_dcKMSKeyId = a});++-- | Specifies the daily time range during which automated backups are created if automated backups are enabled, as determined by the @BackupRetentionPeriod@ .+dcPreferredBackupWindow :: Lens' DBCluster (Maybe Text)+dcPreferredBackupWindow = lens _dcPreferredBackupWindow (\ s a -> s{_dcPreferredBackupWindow = a});++-- | Provides a list of the AWS Identity and Access Management (IAM) roles that are associated with the DB cluster. IAM roles that are associated with a DB cluster grant permission for the DB cluster to access other AWS services on your behalf.+dcAssociatedRoles :: Lens' DBCluster [DBClusterRole]+dcAssociatedRoles = lens _dcAssociatedRoles (\ s a -> s{_dcAssociatedRoles = a}) . _Default . _Coerce;++-- | Provides a list of VPC security groups that the DB cluster belongs to.+dcVPCSecurityGroups :: Lens' DBCluster [VPCSecurityGroupMembership]+dcVPCSecurityGroups = lens _dcVPCSecurityGroups (\ s a -> s{_dcVPCSecurityGroups = a}) . _Default . _Coerce;++-- | Specifies the number of days for which automatic DB snapshots are retained.+dcBackupRetentionPeriod :: Lens' DBCluster (Maybe Int)+dcBackupRetentionPeriod = lens _dcBackupRetentionPeriod (\ s a -> s{_dcBackupRetentionPeriod = a});++-- | Specifies information on the subnet group associated with the DB cluster, including the name, description, and subnets in the subnet group.+dcDBSubnetGroup :: Lens' DBCluster (Maybe Text)+dcDBSubnetGroup = lens _dcDBSubnetGroup (\ s a -> s{_dcDBSubnetGroup = a});++-- | Contains the name of the initial database of this DB cluster that was provided at create time, if one was specified when the DB cluster was created. This same name is returned for the life of the DB cluster.+dcDatabaseName :: Lens' DBCluster (Maybe Text)+dcDatabaseName = lens _dcDatabaseName (\ s a -> s{_dcDatabaseName = a});++-- | Specifies whether the DB cluster has instances in multiple Availability Zones.+dcMultiAZ :: Lens' DBCluster (Maybe Bool)+dcMultiAZ = lens _dcMultiAZ (\ s a -> s{_dcMultiAZ = a});++-- | For all database engines except Amazon Aurora, @AllocatedStorage@ specifies the allocated storage size in gigabytes (GB). For Aurora, @AllocatedStorage@ always returns 1, because Aurora DB cluster storage size is not fixed, but instead automatically adjusts as needed.+dcAllocatedStorage :: Lens' DBCluster (Maybe Int)+dcAllocatedStorage = lens _dcAllocatedStorage (\ s a -> s{_dcAllocatedStorage = a});++-- | Specifies the time when the DB cluster was created, in Universal Coordinated Time (UTC).+dcClusterCreateTime :: Lens' DBCluster (Maybe UTCTime)+dcClusterCreateTime = lens _dcClusterCreateTime (\ s a -> s{_dcClusterCreateTime = a}) . mapping _Time;++-- | Specifies the connection endpoint for the primary instance of the DB cluster.+dcEndpoint :: Lens' DBCluster (Maybe Text)+dcEndpoint = lens _dcEndpoint (\ s a -> s{_dcEndpoint = a});++-- | Specifies the progress of the operation as a percentage.+dcPercentProgress :: Lens' DBCluster (Maybe Text)+dcPercentProgress = lens _dcPercentProgress (\ s a -> s{_dcPercentProgress = a});++-- | The reader endpoint for the DB cluster. The reader endpoint for a DB cluster load-balances connections across the Aurora Replicas that are available in a DB cluster. As clients request new connections to the reader endpoint, Aurora distributes the connection requests among the Aurora Replicas in the DB cluster. This functionality can help balance your read workload across multiple Aurora Replicas in your DB cluster.  If a failover occurs, and the Aurora Replica that you are connected to is promoted to be the primary instance, your connection is dropped. To continue sending your read workload to other Aurora Replicas in the cluster, you can then reconnect to the reader endpoint.+dcReaderEndpoint :: Lens' DBCluster (Maybe Text)+dcReaderEndpoint = lens _dcReaderEndpoint (\ s a -> s{_dcReaderEndpoint = a});++-- | Specifies the port that the database engine is listening on.+dcPort :: Lens' DBCluster (Maybe Int)+dcPort = lens _dcPort (\ s a -> s{_dcPort = a});++-- | Provides the list of option group memberships for this DB cluster.+dcDBClusterOptionGroupMemberships :: Lens' DBCluster [DBClusterOptionGroupStatus]+dcDBClusterOptionGroupMemberships = lens _dcDBClusterOptionGroupMemberships (\ s a -> s{_dcDBClusterOptionGroupMemberships = a}) . _Default . _Coerce;++instance FromXML DBCluster where+        parseXML x+          = DBCluster' <$>+              (x .@? "EngineVersion") <*> (x .@? "Status") <*>+                (x .@? "StorageEncrypted")+                <*> (x .@? "DBClusterIdentifier")+                <*>+                (x .@? "DBClusterMembers" .!@ mempty >>=+                   may (parseXMLList "DBClusterMember"))+                <*>+                (x .@? "ReadReplicaIdentifiers" .!@ mempty >>=+                   may (parseXMLList "ReadReplicaIdentifier"))+                <*> (x .@? "ReplicationSourceIdentifier")+                <*> (x .@? "HostedZoneId")+                <*> (x .@? "DBClusterParameterGroup")+                <*> (x .@? "MasterUsername")+                <*> (x .@? "IAMDatabaseAuthenticationEnabled")+                <*> (x .@? "DbClusterResourceId")+                <*> (x .@? "EarliestRestorableTime")+                <*> (x .@? "Engine")+                <*> (x .@? "DBClusterArn")+                <*> (x .@? "CloneGroupId")+                <*> (x .@? "LatestRestorableTime")+                <*> (x .@? "PreferredMaintenanceWindow")+                <*>+                (x .@? "AvailabilityZones" .!@ mempty >>=+                   may (parseXMLList "AvailabilityZone"))+                <*> (x .@? "CharacterSetName")+                <*> (x .@? "KmsKeyId")+                <*> (x .@? "PreferredBackupWindow")+                <*>+                (x .@? "AssociatedRoles" .!@ mempty >>=+                   may (parseXMLList "DBClusterRole"))+                <*>+                (x .@? "VpcSecurityGroups" .!@ mempty >>=+                   may (parseXMLList "VpcSecurityGroupMembership"))+                <*> (x .@? "BackupRetentionPeriod")+                <*> (x .@? "DBSubnetGroup")+                <*> (x .@? "DatabaseName")+                <*> (x .@? "MultiAZ")+                <*> (x .@? "AllocatedStorage")+                <*> (x .@? "ClusterCreateTime")+                <*> (x .@? "Endpoint")+                <*> (x .@? "PercentProgress")+                <*> (x .@? "ReaderEndpoint")+                <*> (x .@? "Port")+                <*>+                (x .@? "DBClusterOptionGroupMemberships" .!@ mempty+                   >>= may (parseXMLList "DBClusterOptionGroup"))++instance Hashable DBCluster where++instance NFData DBCluster where++-- | Contains information about an instance that is part of a DB cluster.+--+--+--+-- /See:/ 'dbClusterMember' smart constructor.+data DBClusterMember = DBClusterMember'+  { _dcmPromotionTier                 :: !(Maybe Int)+  , _dcmDBInstanceIdentifier          :: !(Maybe Text)+  , _dcmIsClusterWriter               :: !(Maybe Bool)+  , _dcmDBClusterParameterGroupStatus :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBClusterMember' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcmPromotionTier' - A value that specifies the order in which an Aurora Replica is promoted to the primary instance after a failure of the existing primary instance. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Aurora.Managing.html#Aurora.Managing.FaultTolerance Fault Tolerance for an Aurora DB Cluster> .+--+-- * 'dcmDBInstanceIdentifier' - Specifies the instance identifier for this member of the DB cluster.+--+-- * 'dcmIsClusterWriter' - Value that is @true@ if the cluster member is the primary instance for the DB cluster and @false@ otherwise.+--+-- * 'dcmDBClusterParameterGroupStatus' - Specifies the status of the DB cluster parameter group for this member of the DB cluster.+dbClusterMember+    :: DBClusterMember+dbClusterMember =+  DBClusterMember'+  { _dcmPromotionTier = Nothing+  , _dcmDBInstanceIdentifier = Nothing+  , _dcmIsClusterWriter = Nothing+  , _dcmDBClusterParameterGroupStatus = Nothing+  }+++-- | A value that specifies the order in which an Aurora Replica is promoted to the primary instance after a failure of the existing primary instance. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Aurora.Managing.html#Aurora.Managing.FaultTolerance Fault Tolerance for an Aurora DB Cluster> .+dcmPromotionTier :: Lens' DBClusterMember (Maybe Int)+dcmPromotionTier = lens _dcmPromotionTier (\ s a -> s{_dcmPromotionTier = a});++-- | Specifies the instance identifier for this member of the DB cluster.+dcmDBInstanceIdentifier :: Lens' DBClusterMember (Maybe Text)+dcmDBInstanceIdentifier = lens _dcmDBInstanceIdentifier (\ s a -> s{_dcmDBInstanceIdentifier = a});++-- | Value that is @true@ if the cluster member is the primary instance for the DB cluster and @false@ otherwise.+dcmIsClusterWriter :: Lens' DBClusterMember (Maybe Bool)+dcmIsClusterWriter = lens _dcmIsClusterWriter (\ s a -> s{_dcmIsClusterWriter = a});++-- | Specifies the status of the DB cluster parameter group for this member of the DB cluster.+dcmDBClusterParameterGroupStatus :: Lens' DBClusterMember (Maybe Text)+dcmDBClusterParameterGroupStatus = lens _dcmDBClusterParameterGroupStatus (\ s a -> s{_dcmDBClusterParameterGroupStatus = a});++instance FromXML DBClusterMember where+        parseXML x+          = DBClusterMember' <$>+              (x .@? "PromotionTier") <*>+                (x .@? "DBInstanceIdentifier")+                <*> (x .@? "IsClusterWriter")+                <*> (x .@? "DBClusterParameterGroupStatus")++instance Hashable DBClusterMember where++instance NFData DBClusterMember where++-- | Contains status information for a DB cluster option group.+--+--+--+-- /See:/ 'dbClusterOptionGroupStatus' smart constructor.+data DBClusterOptionGroupStatus = DBClusterOptionGroupStatus'+  { _dcogsStatus                   :: !(Maybe Text)+  , _dcogsDBClusterOptionGroupName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBClusterOptionGroupStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcogsStatus' - Specifies the status of the DB cluster option group.+--+-- * 'dcogsDBClusterOptionGroupName' - Specifies the name of the DB cluster option group.+dbClusterOptionGroupStatus+    :: DBClusterOptionGroupStatus+dbClusterOptionGroupStatus =+  DBClusterOptionGroupStatus'+  {_dcogsStatus = Nothing, _dcogsDBClusterOptionGroupName = Nothing}+++-- | Specifies the status of the DB cluster option group.+dcogsStatus :: Lens' DBClusterOptionGroupStatus (Maybe Text)+dcogsStatus = lens _dcogsStatus (\ s a -> s{_dcogsStatus = a});++-- | Specifies the name of the DB cluster option group.+dcogsDBClusterOptionGroupName :: Lens' DBClusterOptionGroupStatus (Maybe Text)+dcogsDBClusterOptionGroupName = lens _dcogsDBClusterOptionGroupName (\ s a -> s{_dcogsDBClusterOptionGroupName = a});++instance FromXML DBClusterOptionGroupStatus where+        parseXML x+          = DBClusterOptionGroupStatus' <$>+              (x .@? "Status") <*>+                (x .@? "DBClusterOptionGroupName")++instance Hashable DBClusterOptionGroupStatus where++instance NFData DBClusterOptionGroupStatus where++-- | 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'+  { _dcpgDBClusterParameterGroupARN  :: !(Maybe Text)+  , _dcpgDBParameterGroupFamily      :: !(Maybe Text)+  , _dcpgDBClusterParameterGroupName :: !(Maybe Text)+  , _dcpgDescription                 :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBClusterParameterGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcpgDBClusterParameterGroupARN' - The Amazon Resource Name (ARN) for the DB cluster parameter group.+--+-- * 'dcpgDBParameterGroupFamily' - Provides the name of the DB parameter group family that this DB cluster parameter group is compatible with.+--+-- * 'dcpgDBClusterParameterGroupName' - Provides the name of the DB cluster parameter group.+--+-- * 'dcpgDescription' - Provides the customer-specified description for this DB cluster parameter group.+dbClusterParameterGroup+    :: DBClusterParameterGroup+dbClusterParameterGroup =+  DBClusterParameterGroup'+  { _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});++-- | Provides the name of the DB cluster parameter group.+dcpgDBClusterParameterGroupName :: Lens' DBClusterParameterGroup (Maybe Text)+dcpgDBClusterParameterGroupName = lens _dcpgDBClusterParameterGroupName (\ s a -> s{_dcpgDBClusterParameterGroupName = a});++-- | Provides the customer-specified description for this DB cluster parameter group.+dcpgDescription :: Lens' DBClusterParameterGroup (Maybe Text)+dcpgDescription = lens _dcpgDescription (\ s a -> s{_dcpgDescription = a});++instance FromXML DBClusterParameterGroup where+        parseXML x+          = DBClusterParameterGroup' <$>+              (x .@? "DBClusterParameterGroupArn") <*>+                (x .@? "DBParameterGroupFamily")+                <*> (x .@? "DBClusterParameterGroupName")+                <*> (x .@? "Description")++instance Hashable DBClusterParameterGroup where++instance NFData DBClusterParameterGroup where++-- |+--+--+--+-- /See:/ 'dbClusterParameterGroupNameMessage' smart constructor.+newtype DBClusterParameterGroupNameMessage = DBClusterParameterGroupNameMessage'+  { _dcpgnmDBClusterParameterGroupName :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBClusterParameterGroupNameMessage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcpgnmDBClusterParameterGroupName' - The name of the DB cluster parameter group. Constraints:     * Must be 1 to 255 letters or numbers.     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+dbClusterParameterGroupNameMessage+    :: DBClusterParameterGroupNameMessage+dbClusterParameterGroupNameMessage =+  DBClusterParameterGroupNameMessage'+  {_dcpgnmDBClusterParameterGroupName = Nothing}+++-- | The name of the DB cluster parameter group. Constraints:     * Must be 1 to 255 letters or numbers.     * First character must be a letter     * Cannot end with a hyphen or contain two consecutive hyphens+dcpgnmDBClusterParameterGroupName :: Lens' DBClusterParameterGroupNameMessage (Maybe Text)+dcpgnmDBClusterParameterGroupName = lens _dcpgnmDBClusterParameterGroupName (\ s a -> s{_dcpgnmDBClusterParameterGroupName = a});++instance FromXML DBClusterParameterGroupNameMessage+         where+        parseXML x+          = DBClusterParameterGroupNameMessage' <$>+              (x .@? "DBClusterParameterGroupName")++instance Hashable DBClusterParameterGroupNameMessage+         where++instance NFData DBClusterParameterGroupNameMessage+         where++-- | Describes an AWS Identity and Access Management (IAM) role that is associated with a DB cluster.+--+--+--+-- /See:/ 'dbClusterRole' smart constructor.+data DBClusterRole = DBClusterRole'+  { _dcrStatus  :: !(Maybe Text)+  , _dcrRoleARN :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBClusterRole' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcrStatus' - Describes the state of association between the IAM role and the DB cluster. The Status property returns one of the following values:     * @ACTIVE@ - the IAM role ARN is associated with the DB cluster and can be used to access other AWS services on your behalf.     * @PENDING@ - the IAM role ARN is being associated with the DB cluster.     * @INVALID@ - the IAM role ARN is associated with the DB cluster, but the DB cluster is unable to assume the IAM role in order to access other AWS services on your behalf.+--+-- * 'dcrRoleARN' - The Amazon Resource Name (ARN) of the IAM role that is associated with the DB cluster.+dbClusterRole+    :: DBClusterRole+dbClusterRole = DBClusterRole' {_dcrStatus = Nothing, _dcrRoleARN = Nothing}+++-- | Describes the state of association between the IAM role and the DB cluster. The Status property returns one of the following values:     * @ACTIVE@ - the IAM role ARN is associated with the DB cluster and can be used to access other AWS services on your behalf.     * @PENDING@ - the IAM role ARN is being associated with the DB cluster.     * @INVALID@ - the IAM role ARN is associated with the DB cluster, but the DB cluster is unable to assume the IAM role in order to access other AWS services on your behalf.+dcrStatus :: Lens' DBClusterRole (Maybe Text)+dcrStatus = lens _dcrStatus (\ s a -> s{_dcrStatus = a});++-- | The Amazon Resource Name (ARN) of the IAM role that is associated with the DB cluster.+dcrRoleARN :: Lens' DBClusterRole (Maybe Text)+dcrRoleARN = lens _dcrRoleARN (\ s a -> s{_dcrRoleARN = a});++instance FromXML DBClusterRole where+        parseXML x+          = DBClusterRole' <$>+              (x .@? "Status") <*> (x .@? "RoleArn")++instance Hashable DBClusterRole where++instance NFData DBClusterRole where++-- | 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.+--+--+-- /See:/ 'dbClusterSnapshot' smart constructor.+data DBClusterSnapshot = DBClusterSnapshot'+  { _dcsEngineVersion                    :: !(Maybe Text)+  , _dcsStatus                           :: !(Maybe Text)+  , _dcsStorageEncrypted                 :: !(Maybe Bool)+  , _dcsDBClusterIdentifier              :: !(Maybe Text)+  , _dcsMasterUsername                   :: !(Maybe Text)+  , _dcsIAMDatabaseAuthenticationEnabled :: !(Maybe Bool)+  , _dcsDBClusterSnapshotARN             :: !(Maybe Text)+  , _dcsVPCId                            :: !(Maybe Text)+  , _dcsDBClusterSnapshotIdentifier      :: !(Maybe Text)+  , _dcsEngine                           :: !(Maybe Text)+  , _dcsLicenseModel                     :: !(Maybe Text)+  , _dcsAvailabilityZones                :: !(Maybe [Text])+  , _dcsSnapshotType                     :: !(Maybe Text)+  , _dcsKMSKeyId                         :: !(Maybe Text)+  , _dcsSnapshotCreateTime               :: !(Maybe ISO8601)+  , _dcsAllocatedStorage                 :: !(Maybe Int)+  , _dcsSourceDBClusterSnapshotARN       :: !(Maybe Text)+  , _dcsClusterCreateTime                :: !(Maybe ISO8601)+  , _dcsPercentProgress                  :: !(Maybe Int)+  , _dcsPort                             :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBClusterSnapshot' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcsEngineVersion' - Provides the version of the database engine for this DB cluster snapshot.+--+-- * 'dcsStatus' - Specifies the status of this DB cluster snapshot.+--+-- * 'dcsStorageEncrypted' - Specifies whether the DB cluster snapshot is encrypted.+--+-- * 'dcsDBClusterIdentifier' - Specifies the DB cluster identifier of the DB cluster that this DB cluster snapshot was created from.+--+-- * 'dcsMasterUsername' - Provides the master username for the DB cluster snapshot.+--+-- * 'dcsIAMDatabaseAuthenticationEnabled' - True if mapping of AWS Identity and Access Management (IAM) accounts to database accounts is enabled; otherwise false.+--+-- * 'dcsDBClusterSnapshotARN' - The Amazon Resource Name (ARN) for the DB cluster snapshot.+--+-- * 'dcsVPCId' - Provides the VPC ID associated with the DB cluster snapshot.+--+-- * 'dcsDBClusterSnapshotIdentifier' - Specifies the identifier for the DB cluster snapshot.+--+-- * 'dcsEngine' - Specifies the name of the database engine.+--+-- * 'dcsLicenseModel' - Provides the license model information for this DB cluster snapshot.+--+-- * 'dcsAvailabilityZones' - Provides the list of EC2 Availability Zones that instances in the DB cluster snapshot can be restored in.+--+-- * 'dcsSnapshotType' - Provides the type of the DB cluster snapshot.+--+-- * 'dcsKMSKeyId' - If @StorageEncrypted@ is true, the KMS key identifier for the encrypted DB cluster snapshot.+--+-- * 'dcsSnapshotCreateTime' - Provides the time when the snapshot was taken, in Universal Coordinated Time (UTC).+--+-- * 'dcsAllocatedStorage' - Specifies the allocated storage size in gigabytes (GB).+--+-- * 'dcsSourceDBClusterSnapshotARN' - If the DB cluster snapshot was copied from a source DB cluster snapshot, the Amazon Resource Name (ARN) for the source DB cluster snapshot; otherwise, a null value.+--+-- * 'dcsClusterCreateTime' - Specifies the time when the DB cluster was created, in Universal Coordinated Time (UTC).+--+-- * 'dcsPercentProgress' - Specifies the percentage of the estimated data that has been transferred.+--+-- * 'dcsPort' - Specifies the port that the DB cluster was listening on at the time of the snapshot.+dbClusterSnapshot+    :: DBClusterSnapshot+dbClusterSnapshot =+  DBClusterSnapshot'+  { _dcsEngineVersion = Nothing+  , _dcsStatus = Nothing+  , _dcsStorageEncrypted = Nothing+  , _dcsDBClusterIdentifier = Nothing+  , _dcsMasterUsername = Nothing+  , _dcsIAMDatabaseAuthenticationEnabled = Nothing+  , _dcsDBClusterSnapshotARN = Nothing+  , _dcsVPCId = Nothing+  , _dcsDBClusterSnapshotIdentifier = Nothing+  , _dcsEngine = Nothing+  , _dcsLicenseModel = Nothing+  , _dcsAvailabilityZones = Nothing+  , _dcsSnapshotType = Nothing+  , _dcsKMSKeyId = Nothing+  , _dcsSnapshotCreateTime = Nothing+  , _dcsAllocatedStorage = Nothing+  , _dcsSourceDBClusterSnapshotARN = Nothing+  , _dcsClusterCreateTime = Nothing+  , _dcsPercentProgress = Nothing+  , _dcsPort = Nothing+  }+++-- | Provides the version of the database engine for this DB cluster snapshot.+dcsEngineVersion :: Lens' DBClusterSnapshot (Maybe Text)+dcsEngineVersion = lens _dcsEngineVersion (\ s a -> s{_dcsEngineVersion = a});++-- | Specifies the status of this DB cluster snapshot.+dcsStatus :: Lens' DBClusterSnapshot (Maybe Text)+dcsStatus = lens _dcsStatus (\ s a -> s{_dcsStatus = a});++-- | Specifies whether the DB cluster snapshot is encrypted.+dcsStorageEncrypted :: Lens' DBClusterSnapshot (Maybe Bool)+dcsStorageEncrypted = lens _dcsStorageEncrypted (\ s a -> s{_dcsStorageEncrypted = a});++-- | Specifies the DB cluster identifier of the DB cluster that this DB cluster snapshot was created from.+dcsDBClusterIdentifier :: Lens' DBClusterSnapshot (Maybe Text)+dcsDBClusterIdentifier = lens _dcsDBClusterIdentifier (\ s a -> s{_dcsDBClusterIdentifier = a});++-- | Provides the master username for the DB cluster snapshot.+dcsMasterUsername :: Lens' DBClusterSnapshot (Maybe Text)+dcsMasterUsername = lens _dcsMasterUsername (\ s a -> s{_dcsMasterUsername = a});++-- | True if mapping of AWS Identity and Access Management (IAM) accounts to database accounts is enabled; otherwise false.+dcsIAMDatabaseAuthenticationEnabled :: Lens' DBClusterSnapshot (Maybe Bool)+dcsIAMDatabaseAuthenticationEnabled = lens _dcsIAMDatabaseAuthenticationEnabled (\ s a -> s{_dcsIAMDatabaseAuthenticationEnabled = 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});++-- | Specifies the identifier for the DB cluster snapshot.+dcsDBClusterSnapshotIdentifier :: Lens' DBClusterSnapshot (Maybe Text)+dcsDBClusterSnapshotIdentifier = lens _dcsDBClusterSnapshotIdentifier (\ s a -> s{_dcsDBClusterSnapshotIdentifier = a});++-- | Specifies the name of the database engine.+dcsEngine :: Lens' DBClusterSnapshot (Maybe Text)+dcsEngine = lens _dcsEngine (\ s a -> s{_dcsEngine = a});++-- | Provides the license model information for this DB cluster snapshot.+dcsLicenseModel :: Lens' DBClusterSnapshot (Maybe Text)+dcsLicenseModel = lens _dcsLicenseModel (\ s a -> s{_dcsLicenseModel = a});++-- | Provides the list of EC2 Availability Zones that instances in the DB cluster snapshot can be restored in.+dcsAvailabilityZones :: Lens' DBClusterSnapshot [Text]+dcsAvailabilityZones = lens _dcsAvailabilityZones (\ s a -> s{_dcsAvailabilityZones = a}) . _Default . _Coerce;++-- | Provides the type of the DB cluster snapshot.+dcsSnapshotType :: Lens' DBClusterSnapshot (Maybe Text)+dcsSnapshotType = lens _dcsSnapshotType (\ s a -> s{_dcsSnapshotType = a});++-- | If @StorageEncrypted@ is true, the KMS key identifier for the encrypted DB cluster snapshot.+dcsKMSKeyId :: Lens' DBClusterSnapshot (Maybe Text)+dcsKMSKeyId = lens _dcsKMSKeyId (\ s a -> s{_dcsKMSKeyId = a});++-- | Provides the time when the snapshot was taken, in Universal Coordinated Time (UTC).+dcsSnapshotCreateTime :: Lens' DBClusterSnapshot (Maybe UTCTime)+dcsSnapshotCreateTime = lens _dcsSnapshotCreateTime (\ s a -> s{_dcsSnapshotCreateTime = a}) . mapping _Time;++-- | Specifies the allocated storage size in gigabytes (GB).+dcsAllocatedStorage :: Lens' DBClusterSnapshot (Maybe Int)+dcsAllocatedStorage = lens _dcsAllocatedStorage (\ s a -> s{_dcsAllocatedStorage = a});++-- | If the DB cluster snapshot was copied from a source DB cluster snapshot, the Amazon Resource Name (ARN) for the source DB cluster snapshot; otherwise, a null value.+dcsSourceDBClusterSnapshotARN :: Lens' DBClusterSnapshot (Maybe Text)+dcsSourceDBClusterSnapshotARN = lens _dcsSourceDBClusterSnapshotARN (\ s a -> s{_dcsSourceDBClusterSnapshotARN = a});++-- | Specifies the time when the DB cluster was created, in Universal Coordinated Time (UTC).+dcsClusterCreateTime :: Lens' DBClusterSnapshot (Maybe UTCTime)+dcsClusterCreateTime = lens _dcsClusterCreateTime (\ s a -> s{_dcsClusterCreateTime = a}) . mapping _Time;++-- | Specifies the percentage of the estimated data that has been transferred.+dcsPercentProgress :: Lens' DBClusterSnapshot (Maybe Int)+dcsPercentProgress = lens _dcsPercentProgress (\ s a -> s{_dcsPercentProgress = a});++-- | Specifies the port that the DB cluster was listening on at the time of the snapshot.+dcsPort :: Lens' DBClusterSnapshot (Maybe Int)+dcsPort = lens _dcsPort (\ s a -> s{_dcsPort = a});++instance FromXML DBClusterSnapshot where+        parseXML x+          = DBClusterSnapshot' <$>+              (x .@? "EngineVersion") <*> (x .@? "Status") <*>+                (x .@? "StorageEncrypted")+                <*> (x .@? "DBClusterIdentifier")+                <*> (x .@? "MasterUsername")+                <*> (x .@? "IAMDatabaseAuthenticationEnabled")+                <*> (x .@? "DBClusterSnapshotArn")+                <*> (x .@? "VpcId")+                <*> (x .@? "DBClusterSnapshotIdentifier")+                <*> (x .@? "Engine")+                <*> (x .@? "LicenseModel")+                <*>+                (x .@? "AvailabilityZones" .!@ mempty >>=+                   may (parseXMLList "AvailabilityZone"))+                <*> (x .@? "SnapshotType")+                <*> (x .@? "KmsKeyId")+                <*> (x .@? "SnapshotCreateTime")+                <*> (x .@? "AllocatedStorage")+                <*> (x .@? "SourceDBClusterSnapshotArn")+                <*> (x .@? "ClusterCreateTime")+                <*> (x .@? "PercentProgress")+                <*> (x .@? "Port")++instance Hashable DBClusterSnapshot where++instance NFData DBClusterSnapshot where++-- | 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' - 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.+--+-- * 'dcsaAttributeName' - 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.+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 where++instance NFData DBClusterSnapshotAttribute where++-- | 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' - The identifier of the manual DB cluster snapshot that the attributes apply to.+--+-- * 'dcsarDBClusterSnapshotAttributes' - The list of attributes and values for the manual DB cluster snapshot.+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+         where++instance NFData DBClusterSnapshotAttributesResult+         where++-- | This data type is used as a response element in the action 'DescribeDBEngineVersions' .+--+--+--+-- /See:/ 'dbEngineVersion' smart constructor.+data DBEngineVersion = DBEngineVersion'+  { _devEngineVersion              :: !(Maybe Text)+  , _devDBEngineVersionDescription :: !(Maybe Text)+  , _devDefaultCharacterSet        :: !(Maybe CharacterSet)+  , _devEngine                     :: !(Maybe Text)+  , _devDBParameterGroupFamily     :: !(Maybe Text)+  , _devSupportedCharacterSets     :: !(Maybe [CharacterSet])+  , _devDBEngineDescription        :: !(Maybe Text)+  , _devValidUpgradeTarget         :: !(Maybe [UpgradeTarget])+  , _devSupportedTimezones         :: !(Maybe [Timezone])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBEngineVersion' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'devEngineVersion' - The version number of the database engine.+--+-- * 'devDBEngineVersionDescription' - The description of the database engine version.+--+-- * 'devDefaultCharacterSet' - The default character set for new instances of this engine version, if the @CharacterSetName@ parameter of the CreateDBInstance API is not specified.+--+-- * 'devEngine' - The name of the database engine.+--+-- * 'devDBParameterGroupFamily' - The name of the DB parameter group family for the database engine.+--+-- * 'devSupportedCharacterSets' - A list of the character sets supported by this engine for the @CharacterSetName@ parameter of the @CreateDBInstance@ action.+--+-- * 'devDBEngineDescription' - The description of the database engine.+--+-- * 'devValidUpgradeTarget' - A list of engine versions that this database engine version can be upgraded to.+--+-- * 'devSupportedTimezones' - A list of the time zones supported by this engine for the @Timezone@ parameter of the @CreateDBInstance@ action.+dbEngineVersion+    :: DBEngineVersion+dbEngineVersion =+  DBEngineVersion'+  { _devEngineVersion = Nothing+  , _devDBEngineVersionDescription = Nothing+  , _devDefaultCharacterSet = Nothing+  , _devEngine = Nothing+  , _devDBParameterGroupFamily = Nothing+  , _devSupportedCharacterSets = Nothing+  , _devDBEngineDescription = Nothing+  , _devValidUpgradeTarget = Nothing+  , _devSupportedTimezones = Nothing+  }+++-- | The version number of the database engine.+devEngineVersion :: Lens' DBEngineVersion (Maybe Text)+devEngineVersion = lens _devEngineVersion (\ s a -> s{_devEngineVersion = a});++-- | The description of the database engine version.+devDBEngineVersionDescription :: Lens' DBEngineVersion (Maybe Text)+devDBEngineVersionDescription = lens _devDBEngineVersionDescription (\ s a -> s{_devDBEngineVersionDescription = a});++-- | The default character set for new instances of this engine version, if the @CharacterSetName@ parameter of the CreateDBInstance API is not specified.+devDefaultCharacterSet :: Lens' DBEngineVersion (Maybe CharacterSet)+devDefaultCharacterSet = lens _devDefaultCharacterSet (\ s a -> s{_devDefaultCharacterSet = a});++-- | The name of the database engine.+devEngine :: Lens' DBEngineVersion (Maybe Text)+devEngine = lens _devEngine (\ s a -> s{_devEngine = a});++-- | The name of the DB parameter group family for the database engine.+devDBParameterGroupFamily :: Lens' DBEngineVersion (Maybe Text)+devDBParameterGroupFamily = lens _devDBParameterGroupFamily (\ s a -> s{_devDBParameterGroupFamily = a});++-- | A list of the character sets supported by this engine for the @CharacterSetName@ parameter of the @CreateDBInstance@ action.+devSupportedCharacterSets :: Lens' DBEngineVersion [CharacterSet]+devSupportedCharacterSets = lens _devSupportedCharacterSets (\ s a -> s{_devSupportedCharacterSets = a}) . _Default . _Coerce;++-- | The description of the database engine.+devDBEngineDescription :: Lens' DBEngineVersion (Maybe Text)+devDBEngineDescription = lens _devDBEngineDescription (\ s a -> s{_devDBEngineDescription = a});++-- | A list of engine versions that this database engine version can be upgraded to.+devValidUpgradeTarget :: Lens' DBEngineVersion [UpgradeTarget]+devValidUpgradeTarget = lens _devValidUpgradeTarget (\ s a -> s{_devValidUpgradeTarget = a}) . _Default . _Coerce;++-- | A list of the time zones supported by this engine for the @Timezone@ parameter of the @CreateDBInstance@ action.+devSupportedTimezones :: Lens' DBEngineVersion [Timezone]+devSupportedTimezones = lens _devSupportedTimezones (\ s a -> s{_devSupportedTimezones = a}) . _Default . _Coerce;++instance FromXML DBEngineVersion where+        parseXML x+          = DBEngineVersion' <$>+              (x .@? "EngineVersion") <*>+                (x .@? "DBEngineVersionDescription")+                <*> (x .@? "DefaultCharacterSet")+                <*> (x .@? "Engine")+                <*> (x .@? "DBParameterGroupFamily")+                <*>+                (x .@? "SupportedCharacterSets" .!@ mempty >>=+                   may (parseXMLList "CharacterSet"))+                <*> (x .@? "DBEngineDescription")+                <*>+                (x .@? "ValidUpgradeTarget" .!@ mempty >>=+                   may (parseXMLList "UpgradeTarget"))+                <*>+                (x .@? "SupportedTimezones" .!@ mempty >>=+                   may (parseXMLList "Timezone"))++instance Hashable DBEngineVersion where++instance NFData DBEngineVersion where++-- | Contains the result of a successful invocation of the following actions:+--+--+--     * 'CreateDBInstance'+--+--     * 'DeleteDBInstance'+--+--     * 'ModifyDBInstance'+--+--     * 'StopDBInstance'+--+--     * 'StartDBInstance'+--+--+--+-- This data type is used as a response element in the 'DescribeDBInstances' action.+--+--+-- /See:/ 'dbInstance' smart constructor.+data DBInstance = DBInstance'+  { _diEngineVersion :: !(Maybe Text)+  , _diDBSecurityGroups :: !(Maybe [DBSecurityGroupMembership])+  , _diStorageEncrypted :: !(Maybe Bool)+  , _diDBClusterIdentifier :: !(Maybe Text)+  , _diPubliclyAccessible :: !(Maybe Bool)+  , _diAutoMinorVersionUpgrade :: !(Maybe Bool)+  , _diDBInstanceARN :: !(Maybe Text)+  , _diMasterUsername :: !(Maybe Text)+  , _diReadReplicaDBInstanceIdentifiers :: !(Maybe [Text])+  , _diIAMDatabaseAuthenticationEnabled :: !(Maybe Bool)+  , _diMonitoringRoleARN :: !(Maybe Text)+  , _diIOPS :: !(Maybe Int)+  , _diInstanceCreateTime :: !(Maybe ISO8601)+  , _diReadReplicaSourceDBInstanceIdentifier :: !(Maybe Text)+  , _diMonitoringInterval :: !(Maybe Int)+  , _diEngine :: !(Maybe Text)+  , _diLatestRestorableTime :: !(Maybe ISO8601)+  , _diDBInstanceClass :: !(Maybe Text)+  , _diPromotionTier :: !(Maybe Int)+  , _diLicenseModel :: !(Maybe Text)+  , _diPreferredMaintenanceWindow :: !(Maybe Text)+  , _diCACertificateIdentifier :: !(Maybe Text)+  , _diDBInstanceIdentifier :: !(Maybe Text)+  , _diCharacterSetName :: !(Maybe Text)+  , _diKMSKeyId :: !(Maybe Text)+  , _diPreferredBackupWindow :: !(Maybe Text)+  , _diAvailabilityZone :: !(Maybe Text)+  , _diVPCSecurityGroups :: !(Maybe [VPCSecurityGroupMembership])+  , _diBackupRetentionPeriod :: !(Maybe Int)+  , _diPerformanceInsightsKMSKeyId :: !(Maybe Text)+  , _diDBSubnetGroup :: !(Maybe DBSubnetGroup)+  , _diMultiAZ :: !(Maybe Bool)+  , _diOptionGroupMemberships :: !(Maybe [OptionGroupMembership])+  , _diEnhancedMonitoringResourceARN :: !(Maybe Text)+  , _diSecondaryAvailabilityZone :: !(Maybe Text)+  , _diPerformanceInsightsEnabled :: !(Maybe Bool)+  , _diAllocatedStorage :: !(Maybe Int)+  , _diDBiResourceId :: !(Maybe Text)+  , _diDBParameterGroups :: !(Maybe [DBParameterGroupStatus])+  , _diCopyTagsToSnapshot :: !(Maybe Bool)+  , _diTimezone :: !(Maybe Text)+  , _diTDECredentialARN :: !(Maybe Text)+  , _diEndpoint :: !(Maybe Endpoint)+  , _diDBInstanceStatus :: !(Maybe Text)+  , _diDBInstancePort :: !(Maybe Int)+  , _diPendingModifiedValues :: !(Maybe PendingModifiedValues)+  , _diReadReplicaDBClusterIdentifiers :: !(Maybe [Text])+  , _diStorageType :: !(Maybe Text)+  , _diStatusInfos :: !(Maybe [DBInstanceStatusInfo])+  , _diDomainMemberships :: !(Maybe [DomainMembership])+  , _diDBName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'diEngineVersion' - Indicates the database engine version.+--+-- * 'diDBSecurityGroups' - Provides List of DB security group elements containing only @DBSecurityGroup.Name@ and @DBSecurityGroup.Status@ subelements.+--+-- * 'diStorageEncrypted' - Specifies whether the DB instance is encrypted.+--+-- * 'diDBClusterIdentifier' - If the DB instance is a member of a DB cluster, contains the name of the DB cluster that the DB instance is a member of.+--+-- * 'diPubliclyAccessible' - Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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 is 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 is private.+--+-- * 'diAutoMinorVersionUpgrade' - Indicates that minor version patches are applied automatically.+--+-- * 'diDBInstanceARN' - The Amazon Resource Name (ARN) for the DB instance.+--+-- * 'diMasterUsername' - Contains the master username for the DB instance.+--+-- * 'diReadReplicaDBInstanceIdentifiers' - Contains one or more identifiers of the Read Replicas associated with this DB instance.+--+-- * 'diIAMDatabaseAuthenticationEnabled' - True if mapping of AWS Identity and Access Management (IAM) accounts to database accounts is enabled; otherwise false. IAM database authentication can be enabled for the following database engines     * For MySQL 5.6, minor version 5.6.34 or higher     * For MySQL 5.7, minor version 5.7.16 or higher     * Aurora 5.6 or higher. To enable IAM database authentication for Aurora, see DBCluster Type.+--+-- * 'diMonitoringRoleARN' - The ARN for the IAM role that permits RDS to send Enhanced Monitoring metrics to CloudWatch Logs.+--+-- * 'diIOPS' - Specifies the Provisioned IOPS (I/O operations per second) value.+--+-- * 'diInstanceCreateTime' - Provides the date and time the DB instance was created.+--+-- * 'diReadReplicaSourceDBInstanceIdentifier' - Contains the identifier of the source DB instance if this DB instance is a Read Replica.+--+-- * 'diMonitoringInterval' - The interval, in seconds, between points when Enhanced Monitoring metrics are collected for the DB instance.+--+-- * 'diEngine' - Provides the name of the database engine to be used for this DB instance.+--+-- * 'diLatestRestorableTime' - Specifies the latest time to which a database can be restored with point-in-time restore.+--+-- * 'diDBInstanceClass' - Contains the name of the compute and memory capacity class of the DB instance.+--+-- * 'diPromotionTier' - A value that specifies the order in which an Aurora Replica is promoted to the primary instance after a failure of the existing primary instance. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Aurora.Managing.html#Aurora.Managing.FaultTolerance Fault Tolerance for an Aurora DB Cluster> .+--+-- * 'diLicenseModel' - License model information for this DB instance.+--+-- * 'diPreferredMaintenanceWindow' - Specifies the weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC).+--+-- * 'diCACertificateIdentifier' - The identifier of the CA certificate for this DB instance.+--+-- * 'diDBInstanceIdentifier' - Contains a user-supplied database identifier. This identifier is the unique key that identifies a DB instance.+--+-- * 'diCharacterSetName' - If present, specifies the name of the character set that this instance is associated with.+--+-- * 'diKMSKeyId' - If @StorageEncrypted@ is true, the KMS key identifier for the encrypted DB instance.+--+-- * 'diPreferredBackupWindow' - Specifies the daily time range during which automated backups are created if automated backups are enabled, as determined by the @BackupRetentionPeriod@ .+--+-- * 'diAvailabilityZone' - Specifies the name of the Availability Zone the DB instance is located in.+--+-- * 'diVPCSecurityGroups' - Provides a list of VPC security group elements that the DB instance belongs to.+--+-- * 'diBackupRetentionPeriod' - Specifies the number of days for which automatic DB snapshots are retained.+--+-- * 'diPerformanceInsightsKMSKeyId' - The KMS key identifier for encryption of Performance Insights data. The KMS key ID is the Amazon Resource Name (ARN), KMS key identifier, or the KMS key alias for the KMS encryption key.+--+-- * 'diDBSubnetGroup' - Specifies information on the subnet group associated with the DB instance, including the name, description, and subnets in the subnet group.+--+-- * 'diMultiAZ' - Specifies if the DB instance is a Multi-AZ deployment.+--+-- * 'diOptionGroupMemberships' - Provides the list of option group memberships for this DB instance.+--+-- * 'diEnhancedMonitoringResourceARN' - The Amazon Resource Name (ARN) of the Amazon CloudWatch Logs log stream that receives the Enhanced Monitoring metrics data for the DB instance.+--+-- * 'diSecondaryAvailabilityZone' - If present, specifies the name of the secondary Availability Zone for a DB instance with multi-AZ support.+--+-- * 'diPerformanceInsightsEnabled' - True if Performance Insights is enabled for the DB instance; otherwise false.+--+-- * 'diAllocatedStorage' - Specifies the allocated storage size specified in gigabytes.+--+-- * 'diDBiResourceId' - The region-unique, immutable identifier for the DB instance. This identifier is found in AWS CloudTrail log entries whenever the KMS key for the DB instance is accessed.+--+-- * 'diDBParameterGroups' - Provides the list of DB parameter groups applied to this DB instance.+--+-- * 'diCopyTagsToSnapshot' - Specifies whether tags are copied from the DB instance to snapshots of the DB instance.+--+-- * 'diTimezone' - The time zone of the DB instance. In most cases, the @Timezone@ element is empty. @Timezone@ content appears only for Microsoft SQL Server DB instances that were created with a time zone specified.+--+-- * 'diTDECredentialARN' - The ARN from the key store with which the instance is associated for TDE encryption.+--+-- * 'diEndpoint' - Specifies the connection endpoint.+--+-- * 'diDBInstanceStatus' - Specifies the current state of this database.+--+-- * 'diDBInstancePort' - Specifies the port that the DB instance listens on. If the DB instance is part of a DB cluster, this can be a different port than the DB cluster port.+--+-- * 'diPendingModifiedValues' - Specifies that changes to the DB instance are pending. This element is only included when changes are pending. Specific changes are identified by subelements.+--+-- * 'diReadReplicaDBClusterIdentifiers' - Contains one or more identifiers of Aurora DB clusters that are Read Replicas of this DB instance.+--+-- * 'diStorageType' - Specifies the storage type associated with DB instance.+--+-- * 'diStatusInfos' - The status of a Read Replica. If the instance is not a Read Replica, this is blank.+--+-- * 'diDomainMemberships' - The Active Directory Domain membership records associated with the DB instance.+--+-- * 'diDBName' - The meaning of this parameter differs according to the database engine you use. For example, this value returns MySQL, MariaDB, or PostgreSQL information when returning values from CreateDBInstanceReadReplica since Read Replicas are only supported for these engines. __MySQL, MariaDB, SQL Server, PostgreSQL__  Contains the name of the initial database of this instance that was provided at create time, if one was specified when the DB instance was created. This same name is returned for the life of the DB instance. Type: String __Oracle__  Contains the Oracle System ID (SID) of the created DB instance. Not shown when the returned parameters do not apply to an Oracle DB instance.+dbInstance+    :: DBInstance+dbInstance =+  DBInstance'+  { _diEngineVersion = Nothing+  , _diDBSecurityGroups = Nothing+  , _diStorageEncrypted = Nothing+  , _diDBClusterIdentifier = Nothing+  , _diPubliclyAccessible = Nothing+  , _diAutoMinorVersionUpgrade = Nothing+  , _diDBInstanceARN = Nothing+  , _diMasterUsername = Nothing+  , _diReadReplicaDBInstanceIdentifiers = Nothing+  , _diIAMDatabaseAuthenticationEnabled = Nothing+  , _diMonitoringRoleARN = Nothing+  , _diIOPS = Nothing+  , _diInstanceCreateTime = Nothing+  , _diReadReplicaSourceDBInstanceIdentifier = Nothing+  , _diMonitoringInterval = Nothing+  , _diEngine = Nothing+  , _diLatestRestorableTime = Nothing+  , _diDBInstanceClass = Nothing+  , _diPromotionTier = Nothing+  , _diLicenseModel = Nothing+  , _diPreferredMaintenanceWindow = Nothing+  , _diCACertificateIdentifier = Nothing+  , _diDBInstanceIdentifier = Nothing+  , _diCharacterSetName = Nothing+  , _diKMSKeyId = Nothing+  , _diPreferredBackupWindow = Nothing+  , _diAvailabilityZone = Nothing+  , _diVPCSecurityGroups = Nothing+  , _diBackupRetentionPeriod = Nothing+  , _diPerformanceInsightsKMSKeyId = Nothing+  , _diDBSubnetGroup = Nothing+  , _diMultiAZ = Nothing+  , _diOptionGroupMemberships = Nothing+  , _diEnhancedMonitoringResourceARN = Nothing+  , _diSecondaryAvailabilityZone = Nothing+  , _diPerformanceInsightsEnabled = Nothing+  , _diAllocatedStorage = Nothing+  , _diDBiResourceId = Nothing+  , _diDBParameterGroups = Nothing+  , _diCopyTagsToSnapshot = Nothing+  , _diTimezone = Nothing+  , _diTDECredentialARN = Nothing+  , _diEndpoint = Nothing+  , _diDBInstanceStatus = Nothing+  , _diDBInstancePort = Nothing+  , _diPendingModifiedValues = Nothing+  , _diReadReplicaDBClusterIdentifiers = Nothing+  , _diStorageType = Nothing+  , _diStatusInfos = Nothing+  , _diDomainMemberships = Nothing+  , _diDBName = Nothing+  }+++-- | Indicates the database engine version.+diEngineVersion :: Lens' DBInstance (Maybe Text)+diEngineVersion = lens _diEngineVersion (\ s a -> s{_diEngineVersion = a});++-- | Provides List of DB security group elements containing only @DBSecurityGroup.Name@ and @DBSecurityGroup.Status@ subelements.+diDBSecurityGroups :: Lens' DBInstance [DBSecurityGroupMembership]+diDBSecurityGroups = lens _diDBSecurityGroups (\ s a -> s{_diDBSecurityGroups = a}) . _Default . _Coerce;++-- | Specifies whether the DB instance is encrypted.+diStorageEncrypted :: Lens' DBInstance (Maybe Bool)+diStorageEncrypted = lens _diStorageEncrypted (\ s a -> s{_diStorageEncrypted = a});++-- | If the DB instance is a member of a DB cluster, contains the name of the DB cluster that the DB instance is a member of.+diDBClusterIdentifier :: Lens' DBInstance (Maybe Text)+diDBClusterIdentifier = lens _diDBClusterIdentifier (\ s a -> s{_diDBClusterIdentifier = a});++-- | Specifies the accessibility options for the DB instance. A value of true specifies an Internet-facing instance with a publicly resolvable DNS name, which resolves to a public IP address. A value of false specifies an internal instance with a DNS name that resolves to a private IP address. 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 is 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 is private.+diPubliclyAccessible :: Lens' DBInstance (Maybe Bool)+diPubliclyAccessible = lens _diPubliclyAccessible (\ s a -> s{_diPubliclyAccessible = a});++-- | Indicates that minor version patches are applied automatically.+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});++-- | Contains one or more identifiers of the Read Replicas associated with this DB instance.+diReadReplicaDBInstanceIdentifiers :: Lens' DBInstance [Text]+diReadReplicaDBInstanceIdentifiers = lens _diReadReplicaDBInstanceIdentifiers (\ s a -> s{_diReadReplicaDBInstanceIdentifiers = a}) . _Default . _Coerce;++-- | True if mapping of AWS Identity and Access Management (IAM) accounts to database accounts is enabled; otherwise false. IAM database authentication can be enabled for the following database engines     * For MySQL 5.6, minor version 5.6.34 or higher     * For MySQL 5.7, minor version 5.7.16 or higher     * Aurora 5.6 or higher. To enable IAM database authentication for Aurora, see DBCluster Type.+diIAMDatabaseAuthenticationEnabled :: Lens' DBInstance (Maybe Bool)+diIAMDatabaseAuthenticationEnabled = lens _diIAMDatabaseAuthenticationEnabled (\ s a -> s{_diIAMDatabaseAuthenticationEnabled = a});++-- | The ARN for the IAM role that permits RDS to send Enhanced Monitoring metrics to CloudWatch Logs.+diMonitoringRoleARN :: Lens' DBInstance (Maybe Text)+diMonitoringRoleARN = lens _diMonitoringRoleARN (\ s a -> s{_diMonitoringRoleARN = a});++-- | Specifies the Provisioned IOPS (I/O operations per second) value.+diIOPS :: Lens' DBInstance (Maybe Int)+diIOPS = lens _diIOPS (\ s a -> s{_diIOPS = a});++-- | Provides the date and time the DB instance was created.+diInstanceCreateTime :: Lens' DBInstance (Maybe UTCTime)+diInstanceCreateTime = lens _diInstanceCreateTime (\ s a -> s{_diInstanceCreateTime = a}) . mapping _Time;++-- | Contains the identifier of the source DB instance if this DB instance is a Read Replica.+diReadReplicaSourceDBInstanceIdentifier :: Lens' DBInstance (Maybe Text)+diReadReplicaSourceDBInstanceIdentifier = lens _diReadReplicaSourceDBInstanceIdentifier (\ s a -> s{_diReadReplicaSourceDBInstanceIdentifier = a});++-- | The interval, in seconds, between points when Enhanced Monitoring metrics are collected for the DB instance.+diMonitoringInterval :: Lens' DBInstance (Maybe Int)+diMonitoringInterval = lens _diMonitoringInterval (\ s a -> s{_diMonitoringInterval = a});++-- | Provides the name of the database engine to be used for this DB instance.+diEngine :: Lens' DBInstance (Maybe Text)+diEngine = lens _diEngine (\ s a -> s{_diEngine = a});++-- | Specifies the latest time to which a database can be restored with point-in-time restore.+diLatestRestorableTime :: Lens' DBInstance (Maybe UTCTime)+diLatestRestorableTime = lens _diLatestRestorableTime (\ s a -> s{_diLatestRestorableTime = a}) . mapping _Time;++-- | Contains the name of the compute and memory capacity class of the DB instance.+diDBInstanceClass :: Lens' DBInstance (Maybe Text)+diDBInstanceClass = lens _diDBInstanceClass (\ s a -> s{_diDBInstanceClass = a});++-- | A value that specifies the order in which an Aurora Replica is promoted to the primary instance after a failure of the existing primary instance. For more information, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Aurora.Managing.html#Aurora.Managing.FaultTolerance Fault Tolerance for an Aurora DB Cluster> .+diPromotionTier :: Lens' DBInstance (Maybe Int)+diPromotionTier = lens _diPromotionTier (\ s a -> s{_diPromotionTier = a});++-- | License model information for this DB instance.+diLicenseModel :: Lens' DBInstance (Maybe Text)+diLicenseModel = lens _diLicenseModel (\ s a -> s{_diLicenseModel = a});++-- | Specifies the weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC).+diPreferredMaintenanceWindow :: Lens' DBInstance (Maybe Text)+diPreferredMaintenanceWindow = lens _diPreferredMaintenanceWindow (\ s a -> s{_diPreferredMaintenanceWindow = a});++-- | The identifier of the CA certificate for this DB instance.+diCACertificateIdentifier :: Lens' DBInstance (Maybe Text)+diCACertificateIdentifier = lens _diCACertificateIdentifier (\ s a -> s{_diCACertificateIdentifier = a});++-- | Contains a user-supplied database identifier. This identifier is the unique key that identifies a DB instance.+diDBInstanceIdentifier :: Lens' DBInstance (Maybe Text)+diDBInstanceIdentifier = lens _diDBInstanceIdentifier (\ s a -> s{_diDBInstanceIdentifier = a});++-- | If present, specifies the name of the character set that this instance is associated with.+diCharacterSetName :: Lens' DBInstance (Maybe Text)+diCharacterSetName = lens _diCharacterSetName (\ s a -> s{_diCharacterSetName = a});++-- | If @StorageEncrypted@ is true, the KMS key identifier for the encrypted DB instance.+diKMSKeyId :: Lens' DBInstance (Maybe Text)+diKMSKeyId = lens _diKMSKeyId (\ s a -> s{_diKMSKeyId = a});++-- | Specifies the daily time range during which automated backups are created if automated backups are enabled, as determined by the @BackupRetentionPeriod@ .+diPreferredBackupWindow :: Lens' DBInstance (Maybe Text)+diPreferredBackupWindow = lens _diPreferredBackupWindow (\ s a -> s{_diPreferredBackupWindow = a});++-- | Specifies the name of the Availability Zone the DB instance is located in.+diAvailabilityZone :: Lens' DBInstance (Maybe Text)+diAvailabilityZone = lens _diAvailabilityZone (\ s a -> s{_diAvailabilityZone = a});++-- | Provides a list of VPC security group elements that the DB instance belongs to.+diVPCSecurityGroups :: Lens' DBInstance [VPCSecurityGroupMembership]+diVPCSecurityGroups = lens _diVPCSecurityGroups (\ s a -> s{_diVPCSecurityGroups = a}) . _Default . _Coerce;++-- | Specifies the number of days for which automatic DB snapshots are retained.+diBackupRetentionPeriod :: Lens' DBInstance (Maybe Int)+diBackupRetentionPeriod = lens _diBackupRetentionPeriod (\ s a -> s{_diBackupRetentionPeriod = a});++-- | The KMS key identifier for encryption of Performance Insights data. The KMS key ID is the Amazon Resource Name (ARN), KMS key identifier, or the KMS key alias for the KMS encryption key.+diPerformanceInsightsKMSKeyId :: Lens' DBInstance (Maybe Text)+diPerformanceInsightsKMSKeyId = lens _diPerformanceInsightsKMSKeyId (\ s a -> s{_diPerformanceInsightsKMSKeyId = a});++-- | Specifies information on the subnet group associated with the DB instance, including the name, description, and subnets in the subnet group.+diDBSubnetGroup :: Lens' DBInstance (Maybe DBSubnetGroup)+diDBSubnetGroup = lens _diDBSubnetGroup (\ s a -> s{_diDBSubnetGroup = a});++-- | Specifies if the DB instance is a Multi-AZ deployment.+diMultiAZ :: Lens' DBInstance (Maybe Bool)+diMultiAZ = lens _diMultiAZ (\ s a -> s{_diMultiAZ = a});++-- | Provides the list of option group memberships for this DB instance.+diOptionGroupMemberships :: Lens' DBInstance [OptionGroupMembership]+diOptionGroupMemberships = lens _diOptionGroupMemberships (\ s a -> s{_diOptionGroupMemberships = a}) . _Default . _Coerce;++-- | The Amazon Resource Name (ARN) of the Amazon CloudWatch Logs log stream that receives the Enhanced Monitoring metrics data for the DB instance.+diEnhancedMonitoringResourceARN :: Lens' DBInstance (Maybe Text)+diEnhancedMonitoringResourceARN = lens _diEnhancedMonitoringResourceARN (\ s a -> s{_diEnhancedMonitoringResourceARN = a});++-- | If present, specifies the name of the secondary Availability Zone for a DB instance with multi-AZ support.+diSecondaryAvailabilityZone :: Lens' DBInstance (Maybe Text)+diSecondaryAvailabilityZone = lens _diSecondaryAvailabilityZone (\ s a -> s{_diSecondaryAvailabilityZone = a});++-- | True if Performance Insights is enabled for the DB instance; otherwise false.+diPerformanceInsightsEnabled :: Lens' DBInstance (Maybe Bool)+diPerformanceInsightsEnabled = lens _diPerformanceInsightsEnabled (\ s a -> s{_diPerformanceInsightsEnabled = a});++-- | Specifies the allocated storage size specified in gigabytes.+diAllocatedStorage :: Lens' DBInstance (Maybe Int)+diAllocatedStorage = lens _diAllocatedStorage (\ s a -> s{_diAllocatedStorage = a});++-- | The region-unique, immutable identifier for the DB instance. This identifier is found in AWS CloudTrail log entries whenever the KMS key for the DB instance is accessed.+diDBiResourceId :: Lens' DBInstance (Maybe Text)+diDBiResourceId = lens _diDBiResourceId (\ s a -> s{_diDBiResourceId = a});++-- | Provides the list of DB parameter groups applied to this DB instance.+diDBParameterGroups :: Lens' DBInstance [DBParameterGroupStatus]+diDBParameterGroups = lens _diDBParameterGroups (\ s a -> s{_diDBParameterGroups = a}) . _Default . _Coerce;++-- | Specifies whether tags are copied from the DB instance to snapshots of the DB instance.+diCopyTagsToSnapshot :: Lens' DBInstance (Maybe Bool)+diCopyTagsToSnapshot = lens _diCopyTagsToSnapshot (\ s a -> s{_diCopyTagsToSnapshot = a});++-- | The time zone of the DB instance. In most cases, the @Timezone@ element is empty. @Timezone@ content appears only for Microsoft SQL Server DB instances that were created with a time zone specified.+diTimezone :: Lens' DBInstance (Maybe Text)+diTimezone = lens _diTimezone (\ s a -> s{_diTimezone = a});++-- | The ARN from the key store with which the instance is associated for TDE encryption.+diTDECredentialARN :: Lens' DBInstance (Maybe Text)+diTDECredentialARN = lens _diTDECredentialARN (\ s a -> s{_diTDECredentialARN = a});++-- | Specifies the connection endpoint.+diEndpoint :: Lens' DBInstance (Maybe Endpoint)+diEndpoint = lens _diEndpoint (\ s a -> s{_diEndpoint = a});++-- | Specifies the current state of this database.+diDBInstanceStatus :: Lens' DBInstance (Maybe Text)+diDBInstanceStatus = lens _diDBInstanceStatus (\ s a -> s{_diDBInstanceStatus = a});++-- | Specifies the port that the DB instance listens on. If the DB instance is part of a DB cluster, this can be a different port than the DB cluster port.+diDBInstancePort :: Lens' DBInstance (Maybe Int)+diDBInstancePort = lens _diDBInstancePort (\ s a -> s{_diDBInstancePort = a});++-- | Specifies that changes to the DB instance are pending. This element is only included when changes are pending. Specific changes are identified by subelements.+diPendingModifiedValues :: Lens' DBInstance (Maybe PendingModifiedValues)+diPendingModifiedValues = lens _diPendingModifiedValues (\ s a -> s{_diPendingModifiedValues = a});++-- | Contains one or more identifiers of Aurora DB clusters that are Read Replicas of this DB instance.+diReadReplicaDBClusterIdentifiers :: Lens' DBInstance [Text]+diReadReplicaDBClusterIdentifiers = lens _diReadReplicaDBClusterIdentifiers (\ s a -> s{_diReadReplicaDBClusterIdentifiers = a}) . _Default . _Coerce;++-- | Specifies the storage type associated with DB instance.+diStorageType :: Lens' DBInstance (Maybe Text)+diStorageType = lens _diStorageType (\ s a -> s{_diStorageType = a});++-- | The status of a Read Replica. If the instance is not a Read Replica, this is blank.+diStatusInfos :: Lens' DBInstance [DBInstanceStatusInfo]+diStatusInfos = lens _diStatusInfos (\ s a -> s{_diStatusInfos = a}) . _Default . _Coerce;++-- | The Active Directory Domain membership records associated with the DB instance.+diDomainMemberships :: Lens' DBInstance [DomainMembership]+diDomainMemberships = lens _diDomainMemberships (\ s a -> s{_diDomainMemberships = a}) . _Default . _Coerce;++-- | The meaning of this parameter differs according to the database engine you use. For example, this value returns MySQL, MariaDB, or PostgreSQL information when returning values from CreateDBInstanceReadReplica since Read Replicas are only supported for these engines. __MySQL, MariaDB, SQL Server, PostgreSQL__  Contains the name of the initial database of this instance that was provided at create time, if one was specified when the DB instance was created. This same name is returned for the life of the DB instance. Type: String __Oracle__  Contains the Oracle System ID (SID) of the created DB instance. Not shown when the returned parameters do not apply to an Oracle DB instance.+diDBName :: Lens' DBInstance (Maybe Text)+diDBName = lens _diDBName (\ s a -> s{_diDBName = a});++instance FromXML DBInstance where+        parseXML x+          = DBInstance' <$>+              (x .@? "EngineVersion") <*>+                (x .@? "DBSecurityGroups" .!@ mempty >>=+                   may (parseXMLList "DBSecurityGroup"))+                <*> (x .@? "StorageEncrypted")+                <*> (x .@? "DBClusterIdentifier")+                <*> (x .@? "PubliclyAccessible")+                <*> (x .@? "AutoMinorVersionUpgrade")+                <*> (x .@? "DBInstanceArn")+                <*> (x .@? "MasterUsername")+                <*>+                (x .@? "ReadReplicaDBInstanceIdentifiers" .!@ mempty+                   >>=+                   may (parseXMLList "ReadReplicaDBInstanceIdentifier"))+                <*> (x .@? "IAMDatabaseAuthenticationEnabled")+                <*> (x .@? "MonitoringRoleArn")+                <*> (x .@? "Iops")+                <*> (x .@? "InstanceCreateTime")+                <*> (x .@? "ReadReplicaSourceDBInstanceIdentifier")+                <*> (x .@? "MonitoringInterval")+                <*> (x .@? "Engine")+                <*> (x .@? "LatestRestorableTime")+                <*> (x .@? "DBInstanceClass")+                <*> (x .@? "PromotionTier")+                <*> (x .@? "LicenseModel")+                <*> (x .@? "PreferredMaintenanceWindow")+                <*> (x .@? "CACertificateIdentifier")+                <*> (x .@? "DBInstanceIdentifier")+                <*> (x .@? "CharacterSetName")+                <*> (x .@? "KmsKeyId")+                <*> (x .@? "PreferredBackupWindow")+                <*> (x .@? "AvailabilityZone")+                <*>+                (x .@? "VpcSecurityGroups" .!@ mempty >>=+                   may (parseXMLList "VpcSecurityGroupMembership"))+                <*> (x .@? "BackupRetentionPeriod")+                <*> (x .@? "PerformanceInsightsKMSKeyId")+                <*> (x .@? "DBSubnetGroup")+                <*> (x .@? "MultiAZ")+                <*>+                (x .@? "OptionGroupMemberships" .!@ mempty >>=+                   may (parseXMLList "OptionGroupMembership"))+                <*> (x .@? "EnhancedMonitoringResourceArn")+                <*> (x .@? "SecondaryAvailabilityZone")+                <*> (x .@? "PerformanceInsightsEnabled")+                <*> (x .@? "AllocatedStorage")+                <*> (x .@? "DbiResourceId")+                <*>+                (x .@? "DBParameterGroups" .!@ mempty >>=+                   may (parseXMLList "DBParameterGroup"))+                <*> (x .@? "CopyTagsToSnapshot")+                <*> (x .@? "Timezone")+                <*> (x .@? "TdeCredentialArn")+                <*> (x .@? "Endpoint")+                <*> (x .@? "DBInstanceStatus")+                <*> (x .@? "DbInstancePort")+                <*> (x .@? "PendingModifiedValues")+                <*>+                (x .@? "ReadReplicaDBClusterIdentifiers" .!@ mempty+                   >>=+                   may (parseXMLList "ReadReplicaDBClusterIdentifier"))+                <*> (x .@? "StorageType")+                <*>+                (x .@? "StatusInfos" .!@ mempty >>=+                   may (parseXMLList "DBInstanceStatusInfo"))+                <*>+                (x .@? "DomainMemberships" .!@ mempty >>=+                   may (parseXMLList "DomainMembership"))+                <*> (x .@? "DBName")++instance Hashable DBInstance where++instance NFData DBInstance where++-- | Provides a list of status information for a DB instance.+--+--+--+-- /See:/ 'dbInstanceStatusInfo' smart constructor.+data DBInstanceStatusInfo = DBInstanceStatusInfo'+  { _disiStatus     :: !(Maybe Text)+  , _disiNormal     :: !(Maybe Bool)+  , _disiStatusType :: !(Maybe Text)+  , _disiMessage    :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBInstanceStatusInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'disiStatus' - Status of the DB instance. For a StatusType of read replica, the values can be replicating, error, stopped, or terminated.+--+-- * 'disiNormal' - Boolean value that is true if the instance is operating normally, or false if the instance is in an error state.+--+-- * 'disiStatusType' - This value is currently "read replication."+--+-- * 'disiMessage' - Details of the error if there is an error for the instance. If the instance is not in an error state, this value is blank.+dbInstanceStatusInfo+    :: DBInstanceStatusInfo+dbInstanceStatusInfo =+  DBInstanceStatusInfo'+  { _disiStatus = Nothing+  , _disiNormal = Nothing+  , _disiStatusType = Nothing+  , _disiMessage = Nothing+  }+++-- | Status of the DB instance. For a StatusType of read replica, the values can be replicating, error, stopped, or terminated.+disiStatus :: Lens' DBInstanceStatusInfo (Maybe Text)+disiStatus = lens _disiStatus (\ s a -> s{_disiStatus = a});++-- | Boolean value that is true if the instance is operating normally, or false if the instance is in an error state.+disiNormal :: Lens' DBInstanceStatusInfo (Maybe Bool)+disiNormal = lens _disiNormal (\ s a -> s{_disiNormal = a});++-- | This value is currently "read replication."+disiStatusType :: Lens' DBInstanceStatusInfo (Maybe Text)+disiStatusType = lens _disiStatusType (\ s a -> s{_disiStatusType = a});++-- | Details of the error if there is an error for the instance. If the instance is not in an error state, this value is blank.+disiMessage :: Lens' DBInstanceStatusInfo (Maybe Text)+disiMessage = lens _disiMessage (\ s a -> s{_disiMessage = a});++instance FromXML DBInstanceStatusInfo where+        parseXML x+          = DBInstanceStatusInfo' <$>+              (x .@? "Status") <*> (x .@? "Normal") <*>+                (x .@? "StatusType")+                <*> (x .@? "Message")++instance Hashable DBInstanceStatusInfo where++instance NFData DBInstanceStatusInfo where++-- | Contains the result of a successful invocation of the 'CreateDBParameterGroup' action.+--+--+-- This data type is used as a request parameter in the 'DeleteDBParameterGroup' action, and as a response element in the 'DescribeDBParameterGroups' action.+--+--+-- /See:/ 'dbParameterGroup' smart constructor.+data DBParameterGroup = DBParameterGroup'+  { _dpgDBParameterGroupARN    :: !(Maybe Text)+  , _dpgDBParameterGroupFamily :: !(Maybe Text)+  , _dpgDBParameterGroupName   :: !(Maybe Text)+  , _dpgDescription            :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBParameterGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpgDBParameterGroupARN' - The Amazon Resource Name (ARN) for the DB parameter group.+--+-- * 'dpgDBParameterGroupFamily' - Provides the name of the DB parameter group family that this DB parameter group is compatible with.+--+-- * 'dpgDBParameterGroupName' - Provides the name of the DB parameter group.+--+-- * 'dpgDescription' - Provides the customer-specified description for this DB parameter group.+dbParameterGroup+    :: DBParameterGroup+dbParameterGroup =+  DBParameterGroup'+  { _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});++-- | Provides the name of the DB parameter group.+dpgDBParameterGroupName :: Lens' DBParameterGroup (Maybe Text)+dpgDBParameterGroupName = lens _dpgDBParameterGroupName (\ s a -> s{_dpgDBParameterGroupName = a});++-- | Provides the customer-specified description for this DB parameter group.+dpgDescription :: Lens' DBParameterGroup (Maybe Text)+dpgDescription = lens _dpgDescription (\ s a -> s{_dpgDescription = a});++instance FromXML DBParameterGroup where+        parseXML x+          = DBParameterGroup' <$>+              (x .@? "DBParameterGroupArn") <*>+                (x .@? "DBParameterGroupFamily")+                <*> (x .@? "DBParameterGroupName")+                <*> (x .@? "Description")++instance Hashable DBParameterGroup where++instance NFData DBParameterGroup where++-- | Contains the result of a successful invocation of the 'ModifyDBParameterGroup' or 'ResetDBParameterGroup' action.+--+--+--+-- /See:/ 'dbParameterGroupNameMessage' smart constructor.+newtype DBParameterGroupNameMessage = DBParameterGroupNameMessage'+  { _dpgnmDBParameterGroupName :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBParameterGroupNameMessage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpgnmDBParameterGroupName' - Provides the name of the DB parameter group.+dbParameterGroupNameMessage+    :: DBParameterGroupNameMessage+dbParameterGroupNameMessage =+  DBParameterGroupNameMessage' {_dpgnmDBParameterGroupName = Nothing}+++-- | Provides the name of the DB parameter group.+dpgnmDBParameterGroupName :: Lens' DBParameterGroupNameMessage (Maybe Text)+dpgnmDBParameterGroupName = lens _dpgnmDBParameterGroupName (\ s a -> s{_dpgnmDBParameterGroupName = a});++instance FromXML DBParameterGroupNameMessage where+        parseXML x+          = DBParameterGroupNameMessage' <$>+              (x .@? "DBParameterGroupName")++instance Hashable DBParameterGroupNameMessage where++instance NFData DBParameterGroupNameMessage where++-- | The status of the DB parameter group.+--+--+-- This data type is used as a response element in the following actions:+--+--     * 'CreateDBInstance'+--+--     * 'CreateDBInstanceReadReplica'+--+--     * 'DeleteDBInstance'+--+--     * 'ModifyDBInstance'+--+--     * 'RebootDBInstance'+--+--     * 'RestoreDBInstanceFromDBSnapshot'+--+--+--+--+-- /See:/ 'dbParameterGroupStatus' smart constructor.+data DBParameterGroupStatus = DBParameterGroupStatus'+  { _dpgsDBParameterGroupName :: !(Maybe Text)+  , _dpgsParameterApplyStatus :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBParameterGroupStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dpgsDBParameterGroupName' - The name of the DP parameter group.+--+-- * 'dpgsParameterApplyStatus' - The status of parameter updates.+dbParameterGroupStatus+    :: DBParameterGroupStatus+dbParameterGroupStatus =+  DBParameterGroupStatus'+  {_dpgsDBParameterGroupName = Nothing, _dpgsParameterApplyStatus = Nothing}+++-- | The name of the DP parameter group.+dpgsDBParameterGroupName :: Lens' DBParameterGroupStatus (Maybe Text)+dpgsDBParameterGroupName = lens _dpgsDBParameterGroupName (\ s a -> s{_dpgsDBParameterGroupName = a});++-- | The status of parameter updates.+dpgsParameterApplyStatus :: Lens' DBParameterGroupStatus (Maybe Text)+dpgsParameterApplyStatus = lens _dpgsParameterApplyStatus (\ s a -> s{_dpgsParameterApplyStatus = a});++instance FromXML DBParameterGroupStatus where+        parseXML x+          = DBParameterGroupStatus' <$>+              (x .@? "DBParameterGroupName") <*>+                (x .@? "ParameterApplyStatus")++instance Hashable DBParameterGroupStatus where++instance NFData DBParameterGroupStatus where++-- | 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.+--+--+-- /See:/ 'dbSecurityGroup' smart constructor.+data DBSecurityGroup = DBSecurityGroup'+  { _dbsgVPCId                      :: !(Maybe Text)+  , _dbsgOwnerId                    :: !(Maybe Text)+  , _dbsgDBSecurityGroupARN         :: !(Maybe Text)+  , _dbsgIPRanges                   :: !(Maybe [IPRange])+  , _dbsgDBSecurityGroupName        :: !(Maybe Text)+  , _dbsgEC2SecurityGroups          :: !(Maybe [EC2SecurityGroup])+  , _dbsgDBSecurityGroupDescription :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBSecurityGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dbsgVPCId' - Provides the VpcId of the DB security group.+--+-- * 'dbsgOwnerId' - Provides the AWS ID of the owner of a specific DB security group.+--+-- * 'dbsgDBSecurityGroupARN' - The Amazon Resource Name (ARN) for the DB security group.+--+-- * 'dbsgIPRanges' - Contains a list of 'IPRange' elements.+--+-- * 'dbsgDBSecurityGroupName' - Specifies the name of the DB security group.+--+-- * 'dbsgEC2SecurityGroups' - Contains a list of 'EC2SecurityGroup' elements.+--+-- * 'dbsgDBSecurityGroupDescription' - Provides the description of the DB security group.+dbSecurityGroup+    :: DBSecurityGroup+dbSecurityGroup =+  DBSecurityGroup'+  { _dbsgVPCId = Nothing+  , _dbsgOwnerId = Nothing+  , _dbsgDBSecurityGroupARN = Nothing+  , _dbsgIPRanges = Nothing+  , _dbsgDBSecurityGroupName = Nothing+  , _dbsgEC2SecurityGroups = Nothing+  , _dbsgDBSecurityGroupDescription = Nothing+  }+++-- | Provides the VpcId of the DB security group.+dbsgVPCId :: Lens' DBSecurityGroup (Maybe Text)+dbsgVPCId = lens _dbsgVPCId (\ s a -> s{_dbsgVPCId = a});++-- | Provides the AWS ID of the owner of a specific DB security group.+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;++-- | Specifies the name of the DB security group.+dbsgDBSecurityGroupName :: Lens' DBSecurityGroup (Maybe Text)+dbsgDBSecurityGroupName = lens _dbsgDBSecurityGroupName (\ s a -> s{_dbsgDBSecurityGroupName = a});++-- | Contains a list of 'EC2SecurityGroup' elements.+dbsgEC2SecurityGroups :: Lens' DBSecurityGroup [EC2SecurityGroup]+dbsgEC2SecurityGroups = lens _dbsgEC2SecurityGroups (\ s a -> s{_dbsgEC2SecurityGroups = a}) . _Default . _Coerce;++-- | Provides the description of the DB security group.+dbsgDBSecurityGroupDescription :: Lens' DBSecurityGroup (Maybe Text)+dbsgDBSecurityGroupDescription = lens _dbsgDBSecurityGroupDescription (\ s a -> s{_dbsgDBSecurityGroupDescription = a});++instance FromXML DBSecurityGroup where+        parseXML x+          = DBSecurityGroup' <$>+              (x .@? "VpcId") <*> (x .@? "OwnerId") <*>+                (x .@? "DBSecurityGroupArn")+                <*>+                (x .@? "IPRanges" .!@ mempty >>=+                   may (parseXMLList "IPRange"))+                <*> (x .@? "DBSecurityGroupName")+                <*>+                (x .@? "EC2SecurityGroups" .!@ mempty >>=+                   may (parseXMLList "EC2SecurityGroup"))+                <*> (x .@? "DBSecurityGroupDescription")++instance Hashable DBSecurityGroup where++instance NFData DBSecurityGroup where++-- | 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)+  , _dsgmDBSecurityGroupName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBSecurityGroupMembership' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsgmStatus' - The status of the DB security group.+--+-- * 'dsgmDBSecurityGroupName' - The name of the DB security group.+dbSecurityGroupMembership+    :: DBSecurityGroupMembership+dbSecurityGroupMembership =+  DBSecurityGroupMembership'+  {_dsgmStatus = Nothing, _dsgmDBSecurityGroupName = Nothing}+++-- | The status of the DB security group.+dsgmStatus :: Lens' DBSecurityGroupMembership (Maybe Text)+dsgmStatus = lens _dsgmStatus (\ s a -> s{_dsgmStatus = a});++-- | The name of the DB security group.+dsgmDBSecurityGroupName :: Lens' DBSecurityGroupMembership (Maybe Text)+dsgmDBSecurityGroupName = lens _dsgmDBSecurityGroupName (\ s a -> s{_dsgmDBSecurityGroupName = a});++instance FromXML DBSecurityGroupMembership where+        parseXML x+          = DBSecurityGroupMembership' <$>+              (x .@? "Status") <*> (x .@? "DBSecurityGroupName")++instance Hashable DBSecurityGroupMembership where++instance NFData DBSecurityGroupMembership where++-- | 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.+--+--+-- /See:/ 'dbSnapshot' smart constructor.+data DBSnapshot = DBSnapshot'+  { _dsEngineVersion                    :: !(Maybe Text)+  , _dsStatus                           :: !(Maybe Text)+  , _dsDBSnapshotARN                    :: !(Maybe Text)+  , _dsMasterUsername                   :: !(Maybe Text)+  , _dsSourceRegion                     :: !(Maybe Text)+  , _dsIAMDatabaseAuthenticationEnabled :: !(Maybe Bool)+  , _dsIOPS                             :: !(Maybe Int)+  , _dsVPCId                            :: !(Maybe Text)+  , _dsInstanceCreateTime               :: !(Maybe ISO8601)+  , _dsEngine                           :: !(Maybe Text)+  , _dsEncrypted                        :: !(Maybe Bool)+  , _dsDBSnapshotIdentifier             :: !(Maybe Text)+  , _dsLicenseModel                     :: !(Maybe Text)+  , _dsSourceDBSnapshotIdentifier       :: !(Maybe Text)+  , _dsSnapshotType                     :: !(Maybe Text)+  , _dsDBInstanceIdentifier             :: !(Maybe Text)+  , _dsKMSKeyId                         :: !(Maybe Text)+  , _dsAvailabilityZone                 :: !(Maybe Text)+  , _dsSnapshotCreateTime               :: !(Maybe ISO8601)+  , _dsAllocatedStorage                 :: !(Maybe Int)+  , _dsOptionGroupName                  :: !(Maybe Text)+  , _dsTimezone                         :: !(Maybe Text)+  , _dsTDECredentialARN                 :: !(Maybe Text)+  , _dsPercentProgress                  :: !(Maybe Int)+  , _dsPort                             :: !(Maybe Int)+  , _dsStorageType                      :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBSnapshot' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsEngineVersion' - Specifies the version of the database engine.+--+-- * 'dsStatus' - Specifies the status of this DB snapshot.+--+-- * 'dsDBSnapshotARN' - The Amazon Resource Name (ARN) for the DB snapshot.+--+-- * 'dsMasterUsername' - Provides the master username for the DB snapshot.+--+-- * 'dsSourceRegion' - The AWS Region that the DB snapshot was created in or copied from.+--+-- * 'dsIAMDatabaseAuthenticationEnabled' - True if mapping of AWS Identity and Access Management (IAM) accounts to database accounts is enabled; otherwise false.+--+-- * 'dsIOPS' - Specifies the Provisioned IOPS (I/O operations per second) value of the DB instance at the time of the snapshot.+--+-- * 'dsVPCId' - Provides the VPC ID associated with the DB snapshot.+--+-- * 'dsInstanceCreateTime' - Specifies the time when the snapshot was taken, in Universal Coordinated Time (UTC).+--+-- * 'dsEngine' - Specifies the name of the database engine.+--+-- * 'dsEncrypted' - Specifies whether the DB snapshot is encrypted.+--+-- * 'dsDBSnapshotIdentifier' - Specifies the identifier for the DB snapshot.+--+-- * 'dsLicenseModel' - License model information for the restored DB instance.+--+-- * 'dsSourceDBSnapshotIdentifier' - The DB snapshot Amazon Resource Name (ARN) that the DB snapshot was copied from. It only has value in case of cross-customer or cross-region copy.+--+-- * 'dsSnapshotType' - Provides the type of the DB snapshot.+--+-- * 'dsDBInstanceIdentifier' - Specifies the DB instance identifier of the DB instance this DB snapshot was created from.+--+-- * 'dsKMSKeyId' - If @Encrypted@ is true, the KMS key identifier for the encrypted DB snapshot.+--+-- * 'dsAvailabilityZone' - Specifies the name of the Availability Zone the DB instance was located in at the time of the DB snapshot.+--+-- * 'dsSnapshotCreateTime' - Provides the time when the snapshot was taken, in Universal Coordinated Time (UTC).+--+-- * 'dsAllocatedStorage' - Specifies the allocated storage size in gigabytes (GB).+--+-- * 'dsOptionGroupName' - Provides the option group name for the DB snapshot.+--+-- * 'dsTimezone' - The time zone of the DB snapshot. In most cases, the @Timezone@ element is empty. @Timezone@ content appears only for snapshots taken from Microsoft SQL Server DB instances that were created with a time zone specified.+--+-- * 'dsTDECredentialARN' - The ARN from the key store with which to associate the instance for TDE encryption.+--+-- * 'dsPercentProgress' - The percentage of the estimated data that has been transferred.+--+-- * 'dsPort' - Specifies the port that the database engine was listening on at the time of the snapshot.+--+-- * 'dsStorageType' - Specifies the storage type associated with DB snapshot.+dbSnapshot+    :: DBSnapshot+dbSnapshot =+  DBSnapshot'+  { _dsEngineVersion = Nothing+  , _dsStatus = Nothing+  , _dsDBSnapshotARN = Nothing+  , _dsMasterUsername = Nothing+  , _dsSourceRegion = Nothing+  , _dsIAMDatabaseAuthenticationEnabled = Nothing+  , _dsIOPS = Nothing+  , _dsVPCId = Nothing+  , _dsInstanceCreateTime = Nothing+  , _dsEngine = Nothing+  , _dsEncrypted = Nothing+  , _dsDBSnapshotIdentifier = Nothing+  , _dsLicenseModel = Nothing+  , _dsSourceDBSnapshotIdentifier = Nothing+  , _dsSnapshotType = Nothing+  , _dsDBInstanceIdentifier = Nothing+  , _dsKMSKeyId = Nothing+  , _dsAvailabilityZone = Nothing+  , _dsSnapshotCreateTime = Nothing+  , _dsAllocatedStorage = Nothing+  , _dsOptionGroupName = Nothing+  , _dsTimezone = Nothing+  , _dsTDECredentialARN = Nothing+  , _dsPercentProgress = Nothing+  , _dsPort = Nothing+  , _dsStorageType = Nothing+  }+++-- | Specifies the version of the database engine.+dsEngineVersion :: Lens' DBSnapshot (Maybe Text)+dsEngineVersion = lens _dsEngineVersion (\ s a -> s{_dsEngineVersion = a});++-- | Specifies the status of this DB snapshot.+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});++-- | The AWS Region that the DB snapshot was created in or copied from.+dsSourceRegion :: Lens' DBSnapshot (Maybe Text)+dsSourceRegion = lens _dsSourceRegion (\ s a -> s{_dsSourceRegion = a});++-- | True if mapping of AWS Identity and Access Management (IAM) accounts to database accounts is enabled; otherwise false.+dsIAMDatabaseAuthenticationEnabled :: Lens' DBSnapshot (Maybe Bool)+dsIAMDatabaseAuthenticationEnabled = lens _dsIAMDatabaseAuthenticationEnabled (\ s a -> s{_dsIAMDatabaseAuthenticationEnabled = a});++-- | Specifies the Provisioned IOPS (I/O operations per second) value of the DB instance at the time of the snapshot.+dsIOPS :: Lens' DBSnapshot (Maybe Int)+dsIOPS = lens _dsIOPS (\ s a -> s{_dsIOPS = a});++-- | Provides the VPC ID associated with the DB snapshot.+dsVPCId :: Lens' DBSnapshot (Maybe Text)+dsVPCId = lens _dsVPCId (\ s a -> s{_dsVPCId = a});++-- | Specifies the time when the snapshot was taken, in Universal Coordinated Time (UTC).+dsInstanceCreateTime :: Lens' DBSnapshot (Maybe UTCTime)+dsInstanceCreateTime = lens _dsInstanceCreateTime (\ s a -> s{_dsInstanceCreateTime = a}) . mapping _Time;++-- | Specifies the name of the database engine.+dsEngine :: Lens' DBSnapshot (Maybe Text)+dsEngine = lens _dsEngine (\ s a -> s{_dsEngine = a});++-- | Specifies whether the DB snapshot is encrypted.+dsEncrypted :: Lens' DBSnapshot (Maybe Bool)+dsEncrypted = lens _dsEncrypted (\ s a -> s{_dsEncrypted = a});++-- | Specifies the identifier for the DB snapshot.+dsDBSnapshotIdentifier :: Lens' DBSnapshot (Maybe Text)+dsDBSnapshotIdentifier = lens _dsDBSnapshotIdentifier (\ s a -> s{_dsDBSnapshotIdentifier = a});++-- | License model information for the restored DB instance.+dsLicenseModel :: Lens' DBSnapshot (Maybe Text)+dsLicenseModel = lens _dsLicenseModel (\ s a -> s{_dsLicenseModel = a});++-- | The DB snapshot Amazon Resource Name (ARN) that the DB snapshot was copied from. It only has value in case of cross-customer or cross-region copy.+dsSourceDBSnapshotIdentifier :: Lens' DBSnapshot (Maybe Text)+dsSourceDBSnapshotIdentifier = lens _dsSourceDBSnapshotIdentifier (\ s a -> s{_dsSourceDBSnapshotIdentifier = a});++-- | Provides the type of the DB snapshot.+dsSnapshotType :: Lens' DBSnapshot (Maybe Text)+dsSnapshotType = lens _dsSnapshotType (\ s a -> s{_dsSnapshotType = a});++-- | Specifies the DB instance identifier of the DB instance this DB snapshot was created from.+dsDBInstanceIdentifier :: Lens' DBSnapshot (Maybe Text)+dsDBInstanceIdentifier = lens _dsDBInstanceIdentifier (\ s a -> s{_dsDBInstanceIdentifier = a});++-- | If @Encrypted@ is true, the KMS key identifier for the encrypted DB snapshot.+dsKMSKeyId :: Lens' DBSnapshot (Maybe Text)+dsKMSKeyId = lens _dsKMSKeyId (\ s a -> s{_dsKMSKeyId = a});++-- | Specifies the name of the Availability Zone the DB instance was located in at the time of the DB snapshot.+dsAvailabilityZone :: Lens' DBSnapshot (Maybe Text)+dsAvailabilityZone = lens _dsAvailabilityZone (\ s a -> s{_dsAvailabilityZone = a});++-- | Provides the time when the snapshot was taken, in Universal Coordinated Time (UTC).+dsSnapshotCreateTime :: Lens' DBSnapshot (Maybe UTCTime)+dsSnapshotCreateTime = lens _dsSnapshotCreateTime (\ s a -> s{_dsSnapshotCreateTime = a}) . mapping _Time;++-- | Specifies the allocated storage size in gigabytes (GB).+dsAllocatedStorage :: Lens' DBSnapshot (Maybe Int)+dsAllocatedStorage = lens _dsAllocatedStorage (\ s a -> s{_dsAllocatedStorage = a});++-- | Provides the option group name for the DB snapshot.+dsOptionGroupName :: Lens' DBSnapshot (Maybe Text)+dsOptionGroupName = lens _dsOptionGroupName (\ s a -> s{_dsOptionGroupName = a});++-- | The time zone of the DB snapshot. In most cases, the @Timezone@ element is empty. @Timezone@ content appears only for snapshots taken from Microsoft SQL Server DB instances that were created with a time zone specified.+dsTimezone :: Lens' DBSnapshot (Maybe Text)+dsTimezone = lens _dsTimezone (\ s a -> s{_dsTimezone = a});++-- | The ARN from the key store with which to associate the instance for TDE encryption.+dsTDECredentialARN :: Lens' DBSnapshot (Maybe Text)+dsTDECredentialARN = lens _dsTDECredentialARN (\ s a -> s{_dsTDECredentialARN = a});++-- | The percentage of the estimated data that has been transferred.+dsPercentProgress :: Lens' DBSnapshot (Maybe Int)+dsPercentProgress = lens _dsPercentProgress (\ s a -> s{_dsPercentProgress = a});++-- | Specifies the port that the database engine was listening on at the time of the snapshot.+dsPort :: Lens' DBSnapshot (Maybe Int)+dsPort = lens _dsPort (\ s a -> s{_dsPort = a});++-- | Specifies the storage type associated with DB snapshot.+dsStorageType :: Lens' DBSnapshot (Maybe Text)+dsStorageType = lens _dsStorageType (\ s a -> s{_dsStorageType = a});++instance FromXML DBSnapshot where+        parseXML x+          = DBSnapshot' <$>+              (x .@? "EngineVersion") <*> (x .@? "Status") <*>+                (x .@? "DBSnapshotArn")+                <*> (x .@? "MasterUsername")+                <*> (x .@? "SourceRegion")+                <*> (x .@? "IAMDatabaseAuthenticationEnabled")+                <*> (x .@? "Iops")+                <*> (x .@? "VpcId")+                <*> (x .@? "InstanceCreateTime")+                <*> (x .@? "Engine")+                <*> (x .@? "Encrypted")+                <*> (x .@? "DBSnapshotIdentifier")+                <*> (x .@? "LicenseModel")+                <*> (x .@? "SourceDBSnapshotIdentifier")+                <*> (x .@? "SnapshotType")+                <*> (x .@? "DBInstanceIdentifier")+                <*> (x .@? "KmsKeyId")+                <*> (x .@? "AvailabilityZone")+                <*> (x .@? "SnapshotCreateTime")+                <*> (x .@? "AllocatedStorage")+                <*> (x .@? "OptionGroupName")+                <*> (x .@? "Timezone")+                <*> (x .@? "TdeCredentialArn")+                <*> (x .@? "PercentProgress")+                <*> (x .@? "Port")+                <*> (x .@? "StorageType")++instance Hashable DBSnapshot where++instance NFData DBSnapshot where++-- | Contains the name and values of a manual DB snapshot attribute+--+--+-- Manual DB snapshot attributes are used to authorize other AWS accounts to restore a manual DB snapshot. For more information, see the 'ModifyDBSnapshotAttribute' API.+--+--+-- /See:/ 'dbSnapshotAttribute' smart constructor.+data DBSnapshotAttribute = DBSnapshotAttribute'+  { _dsaAttributeValues :: !(Maybe [Text])+  , _dsaAttributeName   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBSnapshotAttribute' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsaAttributeValues' - The value or values for the manual DB 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 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.+--+-- * 'dsaAttributeName' - The name of the manual DB 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 'ModifyDBSnapshotAttribute' API action.+dbSnapshotAttribute+    :: DBSnapshotAttribute+dbSnapshotAttribute =+  DBSnapshotAttribute'+  {_dsaAttributeValues = Nothing, _dsaAttributeName = Nothing}+++-- | The value or values for the manual DB 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 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. 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});++instance FromXML DBSnapshotAttribute where+        parseXML x+          = DBSnapshotAttribute' <$>+              (x .@? "AttributeValues" .!@ mempty >>=+                 may (parseXMLList "AttributeValue"))+                <*> (x .@? "AttributeName")++instance Hashable DBSnapshotAttribute where++instance NFData DBSnapshotAttribute where++-- | 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 action.+--+--+-- /See:/ 'dbSnapshotAttributesResult' smart constructor.+data DBSnapshotAttributesResult = DBSnapshotAttributesResult'+  { _dsarDBSnapshotIdentifier :: !(Maybe Text)+  , _dsarDBSnapshotAttributes :: !(Maybe [DBSnapshotAttribute])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBSnapshotAttributesResult' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsarDBSnapshotIdentifier' - The identifier of the manual DB snapshot that the attributes apply to.+--+-- * 'dsarDBSnapshotAttributes' - The list of attributes and values for the manual DB snapshot.+dbSnapshotAttributesResult+    :: DBSnapshotAttributesResult+dbSnapshotAttributesResult =+  DBSnapshotAttributesResult'+  {_dsarDBSnapshotIdentifier = Nothing, _dsarDBSnapshotAttributes = Nothing}+++-- | The identifier of the manual DB snapshot that the attributes apply to.+dsarDBSnapshotIdentifier :: Lens' DBSnapshotAttributesResult (Maybe Text)+dsarDBSnapshotIdentifier = lens _dsarDBSnapshotIdentifier (\ s a -> s{_dsarDBSnapshotIdentifier = a});++-- | The list of attributes and values for the manual DB snapshot.+dsarDBSnapshotAttributes :: Lens' DBSnapshotAttributesResult [DBSnapshotAttribute]+dsarDBSnapshotAttributes = lens _dsarDBSnapshotAttributes (\ s a -> s{_dsarDBSnapshotAttributes = a}) . _Default . _Coerce;++instance FromXML DBSnapshotAttributesResult where+        parseXML x+          = DBSnapshotAttributesResult' <$>+              (x .@? "DBSnapshotIdentifier") <*>+                (x .@? "DBSnapshotAttributes" .!@ mempty >>=+                   may (parseXMLList "DBSnapshotAttribute"))++instance Hashable DBSnapshotAttributesResult where++instance NFData DBSnapshotAttributesResult where++-- | 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.+--+--+-- /See:/ 'dbSubnetGroup' smart constructor.+data DBSubnetGroup = DBSubnetGroup'+  { _dsgDBSubnetGroupName        :: !(Maybe Text)+  , _dsgVPCId                    :: !(Maybe Text)+  , _dsgSubnets                  :: !(Maybe [Subnet])+  , _dsgDBSubnetGroupDescription :: !(Maybe Text)+  , _dsgDBSubnetGroupARN         :: !(Maybe Text)+  , _dsgSubnetGroupStatus        :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DBSubnetGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsgDBSubnetGroupName' - The name of the DB subnet group.+--+-- * 'dsgVPCId' - Provides the VpcId of the DB subnet group.+--+-- * 'dsgSubnets' - Contains a list of 'Subnet' elements.+--+-- * 'dsgDBSubnetGroupDescription' - Provides the description of the DB subnet group.+--+-- * 'dsgDBSubnetGroupARN' - The Amazon Resource Name (ARN) for the DB subnet group.+--+-- * 'dsgSubnetGroupStatus' - Provides the status of the DB subnet group.+dbSubnetGroup+    :: DBSubnetGroup+dbSubnetGroup =+  DBSubnetGroup'+  { _dsgDBSubnetGroupName = Nothing+  , _dsgVPCId = Nothing+  , _dsgSubnets = Nothing+  , _dsgDBSubnetGroupDescription = Nothing+  , _dsgDBSubnetGroupARN = Nothing+  , _dsgSubnetGroupStatus = Nothing+  }+++-- | The name of the DB subnet group.+dsgDBSubnetGroupName :: Lens' DBSubnetGroup (Maybe Text)+dsgDBSubnetGroupName = lens _dsgDBSubnetGroupName (\ s a -> s{_dsgDBSubnetGroupName = a});++-- | Provides the VpcId of the DB subnet group.+dsgVPCId :: Lens' DBSubnetGroup (Maybe Text)+dsgVPCId = lens _dsgVPCId (\ s a -> s{_dsgVPCId = a});++-- | Contains a list of 'Subnet' elements.+dsgSubnets :: Lens' DBSubnetGroup [Subnet]+dsgSubnets = lens _dsgSubnets (\ s a -> s{_dsgSubnets = a}) . _Default . _Coerce;++-- | Provides the description of the DB subnet group.+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});++instance FromXML DBSubnetGroup where+        parseXML x+          = DBSubnetGroup' <$>+              (x .@? "DBSubnetGroupName") <*> (x .@? "VpcId") <*>+                (x .@? "Subnets" .!@ mempty >>=+                   may (parseXMLList "Subnet"))+                <*> (x .@? "DBSubnetGroupDescription")+                <*> (x .@? "DBSubnetGroupArn")+                <*> (x .@? "SubnetGroupStatus")++instance Hashable DBSubnetGroup where++instance NFData DBSubnetGroup where++-- | This data type is used as a response element to 'DescribeDBLogFiles' .+--+--+--+-- /See:/ 'describeDBLogFilesDetails' smart constructor.+data DescribeDBLogFilesDetails = DescribeDBLogFilesDetails'+  { _ddlfdLastWritten :: !(Maybe Integer)+  , _ddlfdSize        :: !(Maybe Integer)+  , _ddlfdLogFileName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeDBLogFilesDetails' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddlfdLastWritten' - A POSIX timestamp when the last log entry was written.+--+-- * 'ddlfdSize' - The size, in bytes, of the log file for the specified DB instance.+--+-- * 'ddlfdLogFileName' - The name of the log file for the specified DB instance.+describeDBLogFilesDetails+    :: DescribeDBLogFilesDetails+describeDBLogFilesDetails =+  DescribeDBLogFilesDetails'+  { _ddlfdLastWritten = Nothing+  , _ddlfdSize = Nothing+  , _ddlfdLogFileName = Nothing+  }+++-- | A POSIX timestamp when the last log entry was written.+ddlfdLastWritten :: Lens' DescribeDBLogFilesDetails (Maybe Integer)+ddlfdLastWritten = lens _ddlfdLastWritten (\ s a -> s{_ddlfdLastWritten = a});++-- | The size, in bytes, of the log file for the specified DB instance.+ddlfdSize :: Lens' DescribeDBLogFilesDetails (Maybe Integer)+ddlfdSize = lens _ddlfdSize (\ s a -> s{_ddlfdSize = a});++-- | The name of the log file for the specified DB instance.+ddlfdLogFileName :: Lens' DescribeDBLogFilesDetails (Maybe Text)+ddlfdLogFileName = lens _ddlfdLogFileName (\ s a -> s{_ddlfdLogFileName = a});++instance FromXML DescribeDBLogFilesDetails where+        parseXML x+          = DescribeDBLogFilesDetails' <$>+              (x .@? "LastWritten") <*> (x .@? "Size") <*>+                (x .@? "LogFileName")++instance Hashable DescribeDBLogFilesDetails where++instance NFData DescribeDBLogFilesDetails where++-- | An Active Directory Domain membership record associated with the DB instance.+--+--+--+-- /See:/ 'domainMembership' smart constructor.+data DomainMembership = DomainMembership'+  { _dmStatus      :: !(Maybe Text)+  , _dmFQDN        :: !(Maybe Text)+  , _dmDomain      :: !(Maybe Text)+  , _dmIAMRoleName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DomainMembership' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dmStatus' - The status of the DB instance's Active Directory Domain membership, such as joined, pending-join, failed etc).+--+-- * 'dmFQDN' - The fully qualified domain name of the Active Directory Domain.+--+-- * 'dmDomain' - The identifier of the Active Directory Domain.+--+-- * 'dmIAMRoleName' - The name of the IAM role to be used when making API calls to the Directory Service.+domainMembership+    :: DomainMembership+domainMembership =+  DomainMembership'+  { _dmStatus = Nothing+  , _dmFQDN = Nothing+  , _dmDomain = Nothing+  , _dmIAMRoleName = Nothing+  }+++-- | The status of the DB instance's Active Directory Domain membership, such as joined, pending-join, failed etc).+dmStatus :: Lens' DomainMembership (Maybe Text)+dmStatus = lens _dmStatus (\ s a -> s{_dmStatus = a});++-- | The fully qualified domain name of the Active Directory Domain.+dmFQDN :: Lens' DomainMembership (Maybe Text)+dmFQDN = lens _dmFQDN (\ s a -> s{_dmFQDN = a});++-- | The identifier of the Active Directory Domain.+dmDomain :: Lens' DomainMembership (Maybe Text)+dmDomain = lens _dmDomain (\ s a -> s{_dmDomain = a});++-- | The name of the IAM role to be used when making API calls to the Directory Service.+dmIAMRoleName :: Lens' DomainMembership (Maybe Text)+dmIAMRoleName = lens _dmIAMRoleName (\ s a -> s{_dmIAMRoleName = a});++instance FromXML DomainMembership where+        parseXML x+          = DomainMembership' <$>+              (x .@? "Status") <*> (x .@? "FQDN") <*>+                (x .@? "Domain")+                <*> (x .@? "IAMRoleName")++instance Hashable DomainMembership where++instance NFData DomainMembership where++-- | A range of double values.+--+--+--+-- /See:/ 'doubleRange' smart constructor.+data DoubleRange = DoubleRange'+  { _drTo   :: !(Maybe Double)+  , _drFrom :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DoubleRange' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drTo' - The maximum value in the range.+--+-- * 'drFrom' - The minimum value in the range.+doubleRange+    :: DoubleRange+doubleRange = DoubleRange' {_drTo = Nothing, _drFrom = Nothing}+++-- | The maximum value in the range.+drTo :: Lens' DoubleRange (Maybe Double)+drTo = lens _drTo (\ s a -> s{_drTo = a});++-- | The minimum value in the range.+drFrom :: Lens' DoubleRange (Maybe Double)+drFrom = lens _drFrom (\ s a -> s{_drFrom = a});++instance FromXML DoubleRange where+        parseXML x+          = DoubleRange' <$> (x .@? "To") <*> (x .@? "From")++instance Hashable DoubleRange where++instance NFData DoubleRange where++-- | 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)+  , _esgEC2SecurityGroupOwnerId :: !(Maybe Text)+  , _esgEC2SecurityGroupName    :: !(Maybe Text)+  , _esgEC2SecurityGroupId      :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EC2SecurityGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'esgStatus' - Provides the status of the EC2 security group. Status can be "authorizing", "authorized", "revoking", and "revoked".+--+-- * 'esgEC2SecurityGroupOwnerId' - Specifies the AWS ID of the owner of the EC2 security group specified in the @EC2SecurityGroupName@ field.+--+-- * 'esgEC2SecurityGroupName' - Specifies the name of the EC2 security group.+--+-- * 'esgEC2SecurityGroupId' - Specifies the id of the EC2 security group.+ec2SecurityGroup+    :: EC2SecurityGroup+ec2SecurityGroup =+  EC2SecurityGroup'+  { _esgStatus = Nothing+  , _esgEC2SecurityGroupOwnerId = Nothing+  , _esgEC2SecurityGroupName = Nothing+  , _esgEC2SecurityGroupId = Nothing+  }+++-- | Provides the status of the EC2 security group. Status can be "authorizing", "authorized", "revoking", and "revoked".+esgStatus :: Lens' EC2SecurityGroup (Maybe Text)+esgStatus = lens _esgStatus (\ s a -> s{_esgStatus = a});++-- | Specifies the AWS ID of the owner of the EC2 security group specified in the @EC2SecurityGroupName@ field.+esgEC2SecurityGroupOwnerId :: Lens' EC2SecurityGroup (Maybe Text)+esgEC2SecurityGroupOwnerId = lens _esgEC2SecurityGroupOwnerId (\ s a -> s{_esgEC2SecurityGroupOwnerId = a});++-- | Specifies the name of the EC2 security group.+esgEC2SecurityGroupName :: Lens' EC2SecurityGroup (Maybe Text)+esgEC2SecurityGroupName = lens _esgEC2SecurityGroupName (\ s a -> s{_esgEC2SecurityGroupName = a});++-- | Specifies the id of the EC2 security group.+esgEC2SecurityGroupId :: Lens' EC2SecurityGroup (Maybe Text)+esgEC2SecurityGroupId = lens _esgEC2SecurityGroupId (\ s a -> s{_esgEC2SecurityGroupId = a});++instance FromXML EC2SecurityGroup where+        parseXML x+          = EC2SecurityGroup' <$>+              (x .@? "Status") <*>+                (x .@? "EC2SecurityGroupOwnerId")+                <*> (x .@? "EC2SecurityGroupName")+                <*> (x .@? "EC2SecurityGroupId")++instance Hashable EC2SecurityGroup where++instance NFData EC2SecurityGroup where++-- | 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)+  , _eAddress      :: !(Maybe Text)+  , _ePort         :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Endpoint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eHostedZoneId' - Specifies the ID that Amazon Route 53 assigns when you create a hosted zone.+--+-- * 'eAddress' - Specifies the DNS address of the DB instance.+--+-- * 'ePort' - Specifies the port that the database engine is listening on.+endpoint+    :: Endpoint+endpoint =+  Endpoint' {_eHostedZoneId = Nothing, _eAddress = Nothing, _ePort = Nothing}+++-- | Specifies the ID that Amazon Route 53 assigns when you create a hosted zone.+eHostedZoneId :: Lens' Endpoint (Maybe Text)+eHostedZoneId = lens _eHostedZoneId (\ s a -> s{_eHostedZoneId = a});++-- | Specifies the DNS address of the DB instance.+eAddress :: Lens' Endpoint (Maybe Text)+eAddress = lens _eAddress (\ s a -> s{_eAddress = a});++-- | Specifies the port that the database engine is listening on.+ePort :: Lens' Endpoint (Maybe Int)+ePort = lens _ePort (\ s a -> s{_ePort = a});++instance FromXML Endpoint where+        parseXML x+          = Endpoint' <$>+              (x .@? "HostedZoneId") <*> (x .@? "Address") <*>+                (x .@? "Port")++instance Hashable Endpoint where++instance NFData Endpoint where++-- | Contains the result of a successful invocation of the 'DescribeEngineDefaultParameters' action.+--+--+--+-- /See:/ 'engineDefaults' smart constructor.+data EngineDefaults = EngineDefaults'+  { _edDBParameterGroupFamily :: !(Maybe Text)+  , _edMarker                 :: !(Maybe Text)+  , _edParameters             :: !(Maybe [Parameter])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EngineDefaults' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'edDBParameterGroupFamily' - Specifies the name of the DB parameter group family that the engine default parameters apply to.+--+-- * 'edMarker' - An optional pagination token provided by a previous EngineDefaults request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ .+--+-- * 'edParameters' - Contains a list of engine default parameters.+engineDefaults+    :: EngineDefaults+engineDefaults =+  EngineDefaults'+  { _edDBParameterGroupFamily = Nothing+  , _edMarker = Nothing+  , _edParameters = Nothing+  }+++-- | Specifies the name of the DB parameter group family that the engine default parameters apply to.+edDBParameterGroupFamily :: Lens' EngineDefaults (Maybe Text)+edDBParameterGroupFamily = lens _edDBParameterGroupFamily (\ s a -> s{_edDBParameterGroupFamily = a});++-- | An optional pagination token provided by a previous EngineDefaults request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ .+edMarker :: Lens' EngineDefaults (Maybe Text)+edMarker = lens _edMarker (\ s a -> s{_edMarker = a});++-- | Contains a list of engine default parameters.+edParameters :: Lens' EngineDefaults [Parameter]+edParameters = lens _edParameters (\ s a -> s{_edParameters = a}) . _Default . _Coerce;++instance FromXML EngineDefaults where+        parseXML x+          = EngineDefaults' <$>+              (x .@? "DBParameterGroupFamily") <*> (x .@? "Marker")+                <*>+                (x .@? "Parameters" .!@ mempty >>=+                   may (parseXMLList "Parameter"))++instance Hashable EngineDefaults where++instance NFData EngineDefaults where++-- | This data type is used as a response element in the 'DescribeEvents' action.+--+--+--+-- /See:/ 'event' smart constructor.+data Event = Event'+  { _eSourceType       :: !(Maybe SourceType)+  , _eSourceARN        :: !(Maybe Text)+  , _eSourceIdentifier :: !(Maybe Text)+  , _eDate             :: !(Maybe ISO8601)+  , _eEventCategories  :: !(Maybe [Text])+  , _eMessage          :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Event' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eSourceType' - Specifies the source type for this event.+--+-- * 'eSourceARN' - The Amazon Resource Name (ARN) for the event.+--+-- * 'eSourceIdentifier' - Provides the identifier for the source of the event.+--+-- * 'eDate' - Specifies the date and time of the event.+--+-- * 'eEventCategories' - Specifies the category for the event.+--+-- * 'eMessage' - Provides the text of this event.+event+    :: Event+event =+  Event'+  { _eSourceType = Nothing+  , _eSourceARN = Nothing+  , _eSourceIdentifier = Nothing+  , _eDate = Nothing+  , _eEventCategories = Nothing+  , _eMessage = Nothing+  }+++-- | Specifies the source type for this event.+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});++-- | Specifies the date and time of the event.+eDate :: Lens' Event (Maybe UTCTime)+eDate = lens _eDate (\ s a -> s{_eDate = a}) . mapping _Time;++-- | Specifies the category for the event.+eEventCategories :: Lens' Event [Text]+eEventCategories = lens _eEventCategories (\ s a -> s{_eEventCategories = a}) . _Default . _Coerce;++-- | Provides the text of this event.+eMessage :: Lens' Event (Maybe Text)+eMessage = lens _eMessage (\ s a -> s{_eMessage = a});++instance FromXML Event where+        parseXML x+          = Event' <$>+              (x .@? "SourceType") <*> (x .@? "SourceArn") <*>+                (x .@? "SourceIdentifier")+                <*> (x .@? "Date")+                <*>+                (x .@? "EventCategories" .!@ mempty >>=+                   may (parseXMLList "EventCategory"))+                <*> (x .@? "Message")++instance Hashable Event where++instance NFData Event where++-- | Contains the results of a successful invocation of the 'DescribeEventCategories' action.+--+--+--+-- /See:/ 'eventCategoriesMap' smart constructor.+data EventCategoriesMap = EventCategoriesMap'+  { _ecmSourceType      :: !(Maybe Text)+  , _ecmEventCategories :: !(Maybe [Text])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EventCategoriesMap' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ecmSourceType' - The source type that the returned categories belong to+--+-- * 'ecmEventCategories' - The event categories for the specified source type+eventCategoriesMap+    :: EventCategoriesMap+eventCategoriesMap =+  EventCategoriesMap' {_ecmSourceType = Nothing, _ecmEventCategories = Nothing}+++-- | The source type that the returned categories belong to+ecmSourceType :: Lens' EventCategoriesMap (Maybe Text)+ecmSourceType = lens _ecmSourceType (\ s a -> s{_ecmSourceType = a});++-- | The event categories for the specified source type+ecmEventCategories :: Lens' EventCategoriesMap [Text]+ecmEventCategories = lens _ecmEventCategories (\ s a -> s{_ecmEventCategories = a}) . _Default . _Coerce;++instance FromXML EventCategoriesMap where+        parseXML x+          = EventCategoriesMap' <$>+              (x .@? "SourceType") <*>+                (x .@? "EventCategories" .!@ mempty >>=+                   may (parseXMLList "EventCategory"))++instance Hashable EventCategoriesMap where++instance NFData EventCategoriesMap where++-- | Contains the results of a successful invocation of the 'DescribeEventSubscriptions' action.+--+--+--+-- /See:/ 'eventSubscription' smart constructor.+data EventSubscription = EventSubscription'+  { _esStatus                   :: !(Maybe Text)+  , _esCustomerAWSId            :: !(Maybe Text)+  , _esCustSubscriptionId       :: !(Maybe Text)+  , _esSNSTopicARN              :: !(Maybe Text)+  , _esEventSubscriptionARN     :: !(Maybe Text)+  , _esEnabled                  :: !(Maybe Bool)+  , _esSourceType               :: !(Maybe Text)+  , _esSubscriptionCreationTime :: !(Maybe Text)+  , _esEventCategoriesList      :: !(Maybe [Text])+  , _esSourceIdsList            :: !(Maybe [Text])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EventSubscription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'esStatus' - The status of the RDS event notification subscription. Constraints: Can be one of the following: creating | modifying | deleting | active | no-permission | topic-not-exist The status "no-permission" indicates that RDS no longer has permission to post to the SNS topic. The status "topic-not-exist" indicates that the topic was deleted after the subscription was created.+--+-- * 'esCustomerAWSId' - The AWS customer account associated with the RDS event notification subscription.+--+-- * 'esCustSubscriptionId' - The RDS event notification subscription Id.+--+-- * 'esSNSTopicARN' - The topic ARN of the RDS event notification subscription.+--+-- * 'esEventSubscriptionARN' - The Amazon Resource Name (ARN) for the event subscription.+--+-- * 'esEnabled' - A Boolean value indicating if the subscription is enabled. True indicates the subscription is enabled.+--+-- * 'esSourceType' - The source type for the RDS event notification subscription.+--+-- * 'esSubscriptionCreationTime' - The time the RDS event notification subscription was created.+--+-- * 'esEventCategoriesList' - A list of event categories for the RDS event notification subscription.+--+-- * 'esSourceIdsList' - A list of source IDs for the RDS event notification subscription.+eventSubscription+    :: EventSubscription+eventSubscription =+  EventSubscription'+  { _esStatus = Nothing+  , _esCustomerAWSId = Nothing+  , _esCustSubscriptionId = Nothing+  , _esSNSTopicARN = Nothing+  , _esEventSubscriptionARN = Nothing+  , _esEnabled = Nothing+  , _esSourceType = Nothing+  , _esSubscriptionCreationTime = Nothing+  , _esEventCategoriesList = Nothing+  , _esSourceIdsList = Nothing+  }+++-- | The status of the RDS event notification subscription. Constraints: Can be one of the following: creating | modifying | deleting | active | no-permission | topic-not-exist The status "no-permission" indicates that RDS no longer has permission to post to the SNS topic. The status "topic-not-exist" indicates that the topic was deleted after the subscription was created.+esStatus :: Lens' EventSubscription (Maybe Text)+esStatus = lens _esStatus (\ s a -> s{_esStatus = a});++-- | The AWS customer account associated with the RDS event notification subscription.+esCustomerAWSId :: Lens' EventSubscription (Maybe Text)+esCustomerAWSId = lens _esCustomerAWSId (\ s a -> s{_esCustomerAWSId = a});++-- | The RDS event notification subscription Id.+esCustSubscriptionId :: Lens' EventSubscription (Maybe Text)+esCustSubscriptionId = lens _esCustSubscriptionId (\ s a -> s{_esCustSubscriptionId = a});++-- | The topic ARN of the RDS event notification subscription.+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});++-- | The source type for the RDS event notification subscription.+esSourceType :: Lens' EventSubscription (Maybe Text)+esSourceType = lens _esSourceType (\ s a -> s{_esSourceType = a});++-- | The time the RDS event notification subscription was created.+esSubscriptionCreationTime :: Lens' EventSubscription (Maybe Text)+esSubscriptionCreationTime = lens _esSubscriptionCreationTime (\ s a -> s{_esSubscriptionCreationTime = a});++-- | A list of event categories for the RDS event notification subscription.+esEventCategoriesList :: Lens' EventSubscription [Text]+esEventCategoriesList = lens _esEventCategoriesList (\ s a -> s{_esEventCategoriesList = a}) . _Default . _Coerce;++-- | A list of source IDs for the RDS event notification subscription.+esSourceIdsList :: Lens' EventSubscription [Text]+esSourceIdsList = lens _esSourceIdsList (\ s a -> s{_esSourceIdsList = a}) . _Default . _Coerce;++instance FromXML EventSubscription where+        parseXML x+          = EventSubscription' <$>+              (x .@? "Status") <*> (x .@? "CustomerAwsId") <*>+                (x .@? "CustSubscriptionId")+                <*> (x .@? "SnsTopicArn")+                <*> (x .@? "EventSubscriptionArn")+                <*> (x .@? "Enabled")+                <*> (x .@? "SourceType")+                <*> (x .@? "SubscriptionCreationTime")+                <*>+                (x .@? "EventCategoriesList" .!@ mempty >>=+                   may (parseXMLList "EventCategory"))+                <*>+                (x .@? "SourceIdsList" .!@ mempty >>=+                   may (parseXMLList "SourceId"))++instance Hashable EventSubscription where++instance NFData EventSubscription where++-- | This type is not currently supported.+--+--+--+-- /See:/ 'filter'' smart constructor.+data Filter = Filter'+  { _fName   :: !Text+  , _fValues :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Filter' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fName' - This parameter is not currently supported.+--+-- * 'fValues' - This parameter is not currently supported.+filter'+    :: Text -- ^ 'fName'+    -> Filter+filter' pName_ = Filter' {_fName = pName_, _fValues = mempty}+++-- | This parameter is not currently supported.+fName :: Lens' Filter Text+fName = lens _fName (\ s a -> s{_fName = a});++-- | This parameter is not currently supported.+fValues :: Lens' Filter [Text]+fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Coerce;++instance Hashable Filter where++instance NFData Filter where++instance ToQuery Filter where+        toQuery Filter'{..}+          = mconcat+              ["Name" =: _fName,+               "Values" =: toQueryList "Value" _fValues]++-- | This data type is used as a response element in the 'DescribeDBSecurityGroups' action.+--+--+--+-- /See:/ 'ipRange' smart constructor.+data IPRange = IPRange'+  { _irStatus :: !(Maybe Text)+  , _irCIdRIP :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'IPRange' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'irStatus' - Specifies the status of the IP range. Status can be "authorizing", "authorized", "revoking", and "revoked".+--+-- * 'irCIdRIP' - Specifies the IP range.+ipRange+    :: IPRange+ipRange = IPRange' {_irStatus = Nothing, _irCIdRIP = Nothing}+++-- | Specifies the status of the IP range. Status can be "authorizing", "authorized", "revoking", and "revoked".+irStatus :: Lens' IPRange (Maybe Text)+irStatus = lens _irStatus (\ s a -> s{_irStatus = a});++-- | Specifies the IP range.+irCIdRIP :: Lens' IPRange (Maybe Text)+irCIdRIP = lens _irCIdRIP (\ s a -> s{_irCIdRIP = a});++instance FromXML IPRange where+        parseXML x+          = IPRange' <$> (x .@? "Status") <*> (x .@? "CIDRIP")++instance Hashable IPRange where++instance NFData IPRange where++-- | Option details.+--+--+--+-- /See:/ 'option' smart constructor.+data Option = Option'+  { _oOptionName                  :: !(Maybe Text)+  , _oPermanent                   :: !(Maybe Bool)+  , _oPersistent                  :: !(Maybe Bool)+  , _oOptionDescription           :: !(Maybe Text)+  , _oOptionSettings              :: !(Maybe [OptionSetting])+  , _oVPCSecurityGroupMemberships :: !(Maybe [VPCSecurityGroupMembership])+  , _oDBSecurityGroupMemberships  :: !(Maybe [DBSecurityGroupMembership])+  , _oOptionVersion               :: !(Maybe Text)+  , _oPort                        :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Option' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'oOptionName' - The name of the option.+--+-- * 'oPermanent' - Indicate if this option is permanent.+--+-- * 'oPersistent' - Indicate if this option is persistent.+--+-- * 'oOptionDescription' - The description of the option.+--+-- * 'oOptionSettings' - The option settings for this option.+--+-- * 'oVPCSecurityGroupMemberships' - If the option requires access to a port, then this VPC security group allows access to the port.+--+-- * 'oDBSecurityGroupMemberships' - If the option requires access to a port, then this DB security group allows access to the port.+--+-- * 'oOptionVersion' - The version of the option.+--+-- * 'oPort' - If required, the port configured for this option to use.+option+    :: Option+option =+  Option'+  { _oOptionName = Nothing+  , _oPermanent = Nothing+  , _oPersistent = Nothing+  , _oOptionDescription = Nothing+  , _oOptionSettings = Nothing+  , _oVPCSecurityGroupMemberships = Nothing+  , _oDBSecurityGroupMemberships = Nothing+  , _oOptionVersion = Nothing+  , _oPort = Nothing+  }+++-- | The name of the option.+oOptionName :: Lens' Option (Maybe Text)+oOptionName = lens _oOptionName (\ s a -> s{_oOptionName = a});++-- | Indicate if this option is permanent.+oPermanent :: Lens' Option (Maybe Bool)+oPermanent = lens _oPermanent (\ s a -> s{_oPermanent = a});++-- | Indicate if this option is persistent.+oPersistent :: Lens' Option (Maybe Bool)+oPersistent = lens _oPersistent (\ s a -> s{_oPersistent = a});++-- | The description of the option.+oOptionDescription :: Lens' Option (Maybe Text)+oOptionDescription = lens _oOptionDescription (\ s a -> s{_oOptionDescription = a});++-- | The option settings for this option.+oOptionSettings :: Lens' Option [OptionSetting]+oOptionSettings = lens _oOptionSettings (\ s a -> s{_oOptionSettings = a}) . _Default . _Coerce;++-- | If the option requires access to a port, then this VPC security group allows access to the port.+oVPCSecurityGroupMemberships :: Lens' Option [VPCSecurityGroupMembership]+oVPCSecurityGroupMemberships = lens _oVPCSecurityGroupMemberships (\ s a -> s{_oVPCSecurityGroupMemberships = a}) . _Default . _Coerce;++-- | If the option requires access to a port, then this DB security group allows access to the port.+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});++instance FromXML Option where+        parseXML x+          = Option' <$>+              (x .@? "OptionName") <*> (x .@? "Permanent") <*>+                (x .@? "Persistent")+                <*> (x .@? "OptionDescription")+                <*>+                (x .@? "OptionSettings" .!@ mempty >>=+                   may (parseXMLList "OptionSetting"))+                <*>+                (x .@? "VpcSecurityGroupMemberships" .!@ mempty >>=+                   may (parseXMLList "VpcSecurityGroupMembership"))+                <*>+                (x .@? "DBSecurityGroupMemberships" .!@ mempty >>=+                   may (parseXMLList "DBSecurityGroup"))+                <*> (x .@? "OptionVersion")+                <*> (x .@? "Port")++instance Hashable Option where++instance NFData Option where++-- | A list of all available options+--+--+--+-- /See:/ 'optionConfiguration' smart constructor.+data OptionConfiguration = OptionConfiguration'+  { _ocOptionSettings              :: !(Maybe [OptionSetting])+  , _ocVPCSecurityGroupMemberships :: !(Maybe [Text])+  , _ocDBSecurityGroupMemberships  :: !(Maybe [Text])+  , _ocOptionVersion               :: !(Maybe Text)+  , _ocPort                        :: !(Maybe Int)+  , _ocOptionName                  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OptionConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ocOptionSettings' - The option settings to include in an option group.+--+-- * 'ocVPCSecurityGroupMemberships' - A list of VpcSecurityGroupMemebrship name strings used for this option.+--+-- * 'ocDBSecurityGroupMemberships' - A list of DBSecurityGroupMemebrship name strings used for this option.+--+-- * 'ocOptionVersion' - The version for the option.+--+-- * 'ocPort' - The optional port for the option.+--+-- * 'ocOptionName' - The configuration of options to include in a group.+optionConfiguration+    :: Text -- ^ 'ocOptionName'+    -> OptionConfiguration+optionConfiguration pOptionName_ =+  OptionConfiguration'+  { _ocOptionSettings = Nothing+  , _ocVPCSecurityGroupMemberships = Nothing+  , _ocDBSecurityGroupMemberships = Nothing+  , _ocOptionVersion = Nothing+  , _ocPort = Nothing+  , _ocOptionName = pOptionName_+  }+++-- | The option settings to include in an option group.+ocOptionSettings :: Lens' OptionConfiguration [OptionSetting]+ocOptionSettings = lens _ocOptionSettings (\ s a -> s{_ocOptionSettings = a}) . _Default . _Coerce;++-- | A list of VpcSecurityGroupMemebrship name strings used for this option.+ocVPCSecurityGroupMemberships :: Lens' OptionConfiguration [Text]+ocVPCSecurityGroupMemberships = lens _ocVPCSecurityGroupMemberships (\ s a -> s{_ocVPCSecurityGroupMemberships = a}) . _Default . _Coerce;++-- | A list of DBSecurityGroupMemebrship name strings used for this option.+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});++-- | The configuration of options to include in a group.+ocOptionName :: Lens' OptionConfiguration Text+ocOptionName = lens _ocOptionName (\ s a -> s{_ocOptionName = a});++instance Hashable OptionConfiguration where++instance NFData OptionConfiguration where++instance ToQuery OptionConfiguration where+        toQuery OptionConfiguration'{..}+          = mconcat+              ["OptionSettings" =:+                 toQuery+                   (toQueryList "OptionSetting" <$> _ocOptionSettings),+               "VpcSecurityGroupMemberships" =:+                 toQuery+                   (toQueryList "VpcSecurityGroupId" <$>+                      _ocVPCSecurityGroupMemberships),+               "DBSecurityGroupMemberships" =:+                 toQuery+                   (toQueryList "DBSecurityGroupName" <$>+                      _ocDBSecurityGroupMemberships),+               "OptionVersion" =: _ocOptionVersion,+               "Port" =: _ocPort, "OptionName" =: _ocOptionName]++-- |+--+--+--+-- /See:/ 'optionGroup' smart constructor.+data OptionGroup = OptionGroup'+  { _ogOptionGroupDescription                :: !(Maybe Text)+  , _ogVPCId                                 :: !(Maybe Text)+  , _ogAllowsVPCAndNonVPCInstanceMemberships :: !(Maybe Bool)+  , _ogEngineName                            :: !(Maybe Text)+  , _ogOptionGroupARN                        :: !(Maybe Text)+  , _ogMajorEngineVersion                    :: !(Maybe Text)+  , _ogOptions                               :: !(Maybe [Option])+  , _ogOptionGroupName                       :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OptionGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ogOptionGroupDescription' - Provides a description of the option group.+--+-- * 'ogVPCId' - If __AllowsVpcAndNonVpcInstanceMemberships__ is @false@ , this field is blank. If __AllowsVpcAndNonVpcInstanceMemberships__ is @true@ and this field is blank, then this option group can be applied to both VPC and non-VPC instances. If this field contains a value, then this option group can only be applied to instances that are in the VPC indicated by this field.+--+-- * 'ogAllowsVPCAndNonVPCInstanceMemberships' - Indicates whether this option group can be applied to both VPC and non-VPC instances. The value @true@ indicates the option group can be applied to both VPC and non-VPC instances.+--+-- * 'ogEngineName' - Indicates the name of the engine that this option group can be applied to.+--+-- * 'ogOptionGroupARN' - The Amazon Resource Name (ARN) for the option group.+--+-- * 'ogMajorEngineVersion' - Indicates the major engine version associated with this option group.+--+-- * 'ogOptions' - Indicates what options are available in the option group.+--+-- * 'ogOptionGroupName' - Specifies the name of the option group.+optionGroup+    :: OptionGroup+optionGroup =+  OptionGroup'+  { _ogOptionGroupDescription = Nothing+  , _ogVPCId = Nothing+  , _ogAllowsVPCAndNonVPCInstanceMemberships = Nothing+  , _ogEngineName = Nothing+  , _ogOptionGroupARN = Nothing+  , _ogMajorEngineVersion = Nothing+  , _ogOptions = Nothing+  , _ogOptionGroupName = Nothing+  }+++-- | Provides a description of the option group.+ogOptionGroupDescription :: Lens' OptionGroup (Maybe Text)+ogOptionGroupDescription = lens _ogOptionGroupDescription (\ s a -> s{_ogOptionGroupDescription = a});++-- | If __AllowsVpcAndNonVpcInstanceMemberships__ is @false@ , this field is blank. If __AllowsVpcAndNonVpcInstanceMemberships__ is @true@ and this field is blank, then this option group can be applied to both VPC and non-VPC instances. If this field contains a value, then this option group can only be applied to instances that are in the VPC indicated by this field.+ogVPCId :: Lens' OptionGroup (Maybe Text)+ogVPCId = lens _ogVPCId (\ s a -> s{_ogVPCId = a});++-- | Indicates whether this option group can be applied to both VPC and non-VPC instances. The value @true@ indicates the option group can be applied to both VPC and non-VPC instances.+ogAllowsVPCAndNonVPCInstanceMemberships :: Lens' OptionGroup (Maybe Bool)+ogAllowsVPCAndNonVPCInstanceMemberships = lens _ogAllowsVPCAndNonVPCInstanceMemberships (\ s a -> s{_ogAllowsVPCAndNonVPCInstanceMemberships = a});++-- | Indicates the name of the engine that this option group can be applied to.+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});++-- | Indicates what options are available in the option group.+ogOptions :: Lens' OptionGroup [Option]+ogOptions = lens _ogOptions (\ s a -> s{_ogOptions = a}) . _Default . _Coerce;++-- | Specifies the name of the option group.+ogOptionGroupName :: Lens' OptionGroup (Maybe Text)+ogOptionGroupName = lens _ogOptionGroupName (\ s a -> s{_ogOptionGroupName = a});++instance FromXML OptionGroup where+        parseXML x+          = OptionGroup' <$>+              (x .@? "OptionGroupDescription") <*> (x .@? "VpcId")+                <*> (x .@? "AllowsVpcAndNonVpcInstanceMemberships")+                <*> (x .@? "EngineName")+                <*> (x .@? "OptionGroupArn")+                <*> (x .@? "MajorEngineVersion")+                <*>+                (x .@? "Options" .!@ mempty >>=+                   may (parseXMLList "Option"))+                <*> (x .@? "OptionGroupName")++instance Hashable OptionGroup where++instance NFData OptionGroup where++-- | Provides information on the option groups the DB instance is a member of.+--+--+--+-- /See:/ 'optionGroupMembership' smart constructor.+data OptionGroupMembership = OptionGroupMembership'+  { _ogmStatus          :: !(Maybe Text)+  , _ogmOptionGroupName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OptionGroupMembership' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ogmStatus' - The status of the DB instance's option group membership. Valid values are: @in-sync@ , @pending-apply@ , @pending-removal@ , @pending-maintenance-apply@ , @pending-maintenance-removal@ , @applying@ , @removing@ , and @failed@ .+--+-- * 'ogmOptionGroupName' - The name of the option group that the instance belongs to.+optionGroupMembership+    :: OptionGroupMembership+optionGroupMembership =+  OptionGroupMembership' {_ogmStatus = Nothing, _ogmOptionGroupName = Nothing}+++-- | The status of the DB instance's option group membership. Valid values are: @in-sync@ , @pending-apply@ , @pending-removal@ , @pending-maintenance-apply@ , @pending-maintenance-removal@ , @applying@ , @removing@ , and @failed@ .+ogmStatus :: Lens' OptionGroupMembership (Maybe Text)+ogmStatus = lens _ogmStatus (\ s a -> s{_ogmStatus = a});++-- | The name of the option group that the instance belongs to.+ogmOptionGroupName :: Lens' OptionGroupMembership (Maybe Text)+ogmOptionGroupName = lens _ogmOptionGroupName (\ s a -> s{_ogmOptionGroupName = a});++instance FromXML OptionGroupMembership where+        parseXML x+          = OptionGroupMembership' <$>+              (x .@? "Status") <*> (x .@? "OptionGroupName")++instance Hashable OptionGroupMembership where++instance NFData OptionGroupMembership where++-- | Available option.+--+--+--+-- /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)+  , _ogoSupportsOptionVersionDowngrade :: !(Maybe Bool)+  , _ogoDefaultPort :: !(Maybe Int)+  , _ogoOptionGroupOptionSettings :: !(Maybe [OptionGroupOptionSetting])+  , _ogoRequiresAutoMinorEngineVersionUpgrade :: !(Maybe Bool)+  , _ogoPortRequired :: !(Maybe Bool)+  , _ogoDescription :: !(Maybe Text)+  , _ogoOptionsDependedOn :: !(Maybe [Text])+  , _ogoVPCOnly :: !(Maybe Bool)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OptionGroupOption' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ogoMinimumRequiredMinorEngineVersion' - The minimum required engine version for the option to be applied.+--+-- * 'ogoOptionsConflictsWith' - The options that conflict with this option.+--+-- * 'ogoPermanent' - 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.+--+-- * 'ogoPersistent' - 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.+--+-- * 'ogoOptionGroupOptionVersions' - The versions that are available for the option.+--+-- * 'ogoEngineName' - The name of the engine that this option can be applied to.+--+-- * 'ogoMajorEngineVersion' - Indicates the major engine version that the option is available for.+--+-- * 'ogoName' - The name of the option.+--+-- * 'ogoSupportsOptionVersionDowngrade' - If true, you can change the option to an earlier version of the option. This only applies to options that have different versions available.+--+-- * 'ogoDefaultPort' - If the option requires a port, specifies the default port for the option.+--+-- * 'ogoOptionGroupOptionSettings' - The option settings that are available (and the default value) for each option in an option group.+--+-- * 'ogoRequiresAutoMinorEngineVersionUpgrade' - If true, you must enable the Auto Minor Version Upgrade setting for your DB instance before you can use this option. You can enable Auto Minor Version Upgrade when you first create your DB instance, or by modifying your DB instance later.+--+-- * 'ogoPortRequired' - Specifies whether the option requires a port.+--+-- * 'ogoDescription' - The description of the option.+--+-- * 'ogoOptionsDependedOn' - The options that are prerequisites for this option.+--+-- * 'ogoVPCOnly' - If true, you can only use this option with a DB instance that is in a VPC.+optionGroupOption+    :: OptionGroupOption+optionGroupOption =+  OptionGroupOption'+  { _ogoMinimumRequiredMinorEngineVersion = Nothing+  , _ogoOptionsConflictsWith = Nothing+  , _ogoPermanent = Nothing+  , _ogoPersistent = Nothing+  , _ogoOptionGroupOptionVersions = Nothing+  , _ogoEngineName = Nothing+  , _ogoMajorEngineVersion = Nothing+  , _ogoName = Nothing+  , _ogoSupportsOptionVersionDowngrade = Nothing+  , _ogoDefaultPort = Nothing+  , _ogoOptionGroupOptionSettings = Nothing+  , _ogoRequiresAutoMinorEngineVersionUpgrade = Nothing+  , _ogoPortRequired = Nothing+  , _ogoDescription = Nothing+  , _ogoOptionsDependedOn = Nothing+  , _ogoVPCOnly = Nothing+  }+++-- | The minimum required engine version for the option to be applied.+ogoMinimumRequiredMinorEngineVersion :: Lens' OptionGroupOption (Maybe Text)+ogoMinimumRequiredMinorEngineVersion = lens _ogoMinimumRequiredMinorEngineVersion (\ s a -> s{_ogoMinimumRequiredMinorEngineVersion = a});++-- | 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});++-- | 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});++-- | Indicates the major engine version that the option is available for.+ogoMajorEngineVersion :: Lens' OptionGroupOption (Maybe Text)+ogoMajorEngineVersion = lens _ogoMajorEngineVersion (\ s a -> s{_ogoMajorEngineVersion = a});++-- | The name of the option.+ogoName :: Lens' OptionGroupOption (Maybe Text)+ogoName = lens _ogoName (\ s a -> s{_ogoName = a});++-- | If true, you can change the option to an earlier version of the option. This only applies to options that have different versions available.+ogoSupportsOptionVersionDowngrade :: Lens' OptionGroupOption (Maybe Bool)+ogoSupportsOptionVersionDowngrade = lens _ogoSupportsOptionVersionDowngrade (\ s a -> s{_ogoSupportsOptionVersionDowngrade = a});++-- | If the option requires a port, specifies the default port for the option.+ogoDefaultPort :: Lens' OptionGroupOption (Maybe Int)+ogoDefaultPort = lens _ogoDefaultPort (\ s a -> s{_ogoDefaultPort = a});++-- | 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;++-- | If true, you must enable the Auto Minor Version Upgrade setting for your DB instance before you can use this option. You can enable Auto Minor Version Upgrade when you first create your DB instance, or by modifying your DB instance later.+ogoRequiresAutoMinorEngineVersionUpgrade :: Lens' OptionGroupOption (Maybe Bool)+ogoRequiresAutoMinorEngineVersionUpgrade = lens _ogoRequiresAutoMinorEngineVersionUpgrade (\ s a -> s{_ogoRequiresAutoMinorEngineVersionUpgrade = a});++-- | Specifies whether the option requires a port.+ogoPortRequired :: Lens' OptionGroupOption (Maybe Bool)+ogoPortRequired = lens _ogoPortRequired (\ s a -> s{_ogoPortRequired = a});++-- | The description of the option.+ogoDescription :: Lens' OptionGroupOption (Maybe Text)+ogoDescription = lens _ogoDescription (\ s a -> s{_ogoDescription = a});++-- | The options that are prerequisites for this option.+ogoOptionsDependedOn :: Lens' OptionGroupOption [Text]+ogoOptionsDependedOn = lens _ogoOptionsDependedOn (\ s a -> s{_ogoOptionsDependedOn = a}) . _Default . _Coerce;++-- | If true, you can only use this option with a DB instance that is in a VPC.+ogoVPCOnly :: Lens' OptionGroupOption (Maybe Bool)+ogoVPCOnly = lens _ogoVPCOnly (\ s a -> s{_ogoVPCOnly = a});++instance FromXML OptionGroupOption where+        parseXML x+          = OptionGroupOption' <$>+              (x .@? "MinimumRequiredMinorEngineVersion") <*>+                (x .@? "OptionsConflictsWith" .!@ mempty >>=+                   may (parseXMLList "OptionConflictName"))+                <*> (x .@? "Permanent")+                <*> (x .@? "Persistent")+                <*>+                (x .@? "OptionGroupOptionVersions" .!@ mempty >>=+                   may (parseXMLList "OptionVersion"))+                <*> (x .@? "EngineName")+                <*> (x .@? "MajorEngineVersion")+                <*> (x .@? "Name")+                <*> (x .@? "SupportsOptionVersionDowngrade")+                <*> (x .@? "DefaultPort")+                <*>+                (x .@? "OptionGroupOptionSettings" .!@ mempty >>=+                   may (parseXMLList "OptionGroupOptionSetting"))+                <*> (x .@? "RequiresAutoMinorEngineVersionUpgrade")+                <*> (x .@? "PortRequired")+                <*> (x .@? "Description")+                <*>+                (x .@? "OptionsDependedOn" .!@ mempty >>=+                   may (parseXMLList "OptionName"))+                <*> (x .@? "VpcOnly")++instance Hashable OptionGroupOption where++instance NFData OptionGroupOption where++-- | Option group option settings are used to display settings available for each option with their default values and other information. These values are used with the DescribeOptionGroupOptions action.+--+--+--+-- /See:/ 'optionGroupOptionSetting' smart constructor.+data OptionGroupOptionSetting = OptionGroupOptionSetting'+  { _ogosApplyType          :: !(Maybe Text)+  , _ogosSettingName        :: !(Maybe Text)+  , _ogosDefaultValue       :: !(Maybe Text)+  , _ogosIsModifiable       :: !(Maybe Bool)+  , _ogosSettingDescription :: !(Maybe Text)+  , _ogosAllowedValues      :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OptionGroupOptionSetting' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ogosApplyType' - The DB engine specific parameter type for the option group option.+--+-- * 'ogosSettingName' - The name of the option group option.+--+-- * 'ogosDefaultValue' - The default value for the option group option.+--+-- * 'ogosIsModifiable' - Boolean value where true indicates that this option group option can be changed from the default value.+--+-- * 'ogosSettingDescription' - The description of the option group option.+--+-- * 'ogosAllowedValues' - Indicates the acceptable values for the option group option.+optionGroupOptionSetting+    :: OptionGroupOptionSetting+optionGroupOptionSetting =+  OptionGroupOptionSetting'+  { _ogosApplyType = Nothing+  , _ogosSettingName = Nothing+  , _ogosDefaultValue = Nothing+  , _ogosIsModifiable = Nothing+  , _ogosSettingDescription = Nothing+  , _ogosAllowedValues = Nothing+  }+++-- | The DB engine specific parameter type for the option group option.+ogosApplyType :: Lens' OptionGroupOptionSetting (Maybe Text)+ogosApplyType = lens _ogosApplyType (\ s a -> s{_ogosApplyType = a});++-- | The name of the option group option.+ogosSettingName :: Lens' OptionGroupOptionSetting (Maybe Text)+ogosSettingName = lens _ogosSettingName (\ s a -> s{_ogosSettingName = a});++-- | The default value for the option group option.+ogosDefaultValue :: Lens' OptionGroupOptionSetting (Maybe Text)+ogosDefaultValue = lens _ogosDefaultValue (\ s a -> s{_ogosDefaultValue = a});++-- | Boolean value where true indicates that this option group option can be changed from the default value.+ogosIsModifiable :: Lens' OptionGroupOptionSetting (Maybe Bool)+ogosIsModifiable = lens _ogosIsModifiable (\ s a -> s{_ogosIsModifiable = a});++-- | The description of the option group option.+ogosSettingDescription :: Lens' OptionGroupOptionSetting (Maybe Text)+ogosSettingDescription = lens _ogosSettingDescription (\ s a -> s{_ogosSettingDescription = a});++-- | Indicates the acceptable values for the option group option.+ogosAllowedValues :: Lens' OptionGroupOptionSetting (Maybe Text)+ogosAllowedValues = lens _ogosAllowedValues (\ s a -> s{_ogosAllowedValues = a});++instance FromXML OptionGroupOptionSetting where+        parseXML x+          = OptionGroupOptionSetting' <$>+              (x .@? "ApplyType") <*> (x .@? "SettingName") <*>+                (x .@? "DefaultValue")+                <*> (x .@? "IsModifiable")+                <*> (x .@? "SettingDescription")+                <*> (x .@? "AllowedValues")++instance Hashable OptionGroupOptionSetting where++instance NFData OptionGroupOptionSetting where++-- | Option settings are the actual settings being applied or configured for that option. It is used when you modify an option group or describe option groups. For example, the NATIVE_NETWORK_ENCRYPTION option has a setting called SQLNET.ENCRYPTION_SERVER that can have several different values.+--+--+--+-- /See:/ 'optionSetting' smart constructor.+data OptionSetting = OptionSetting'+  { _osIsCollection  :: !(Maybe Bool)+  , _osApplyType     :: !(Maybe Text)+  , _osValue         :: !(Maybe Text)+  , _osName          :: !(Maybe Text)+  , _osDefaultValue  :: !(Maybe Text)+  , _osIsModifiable  :: !(Maybe Bool)+  , _osDataType      :: !(Maybe Text)+  , _osAllowedValues :: !(Maybe Text)+  , _osDescription   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OptionSetting' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'osIsCollection' - Indicates if the option setting is part of a collection.+--+-- * 'osApplyType' - The DB engine specific parameter type.+--+-- * 'osValue' - The current value of the option setting.+--+-- * 'osName' - The name of the option that has settings that you can set.+--+-- * 'osDefaultValue' - The default value of the option setting.+--+-- * 'osIsModifiable' - A Boolean value that, when true, indicates the option setting can be modified from the default.+--+-- * 'osDataType' - The data type of the option setting.+--+-- * 'osAllowedValues' - The allowed values of the option setting.+--+-- * 'osDescription' - The description of the option setting.+optionSetting+    :: OptionSetting+optionSetting =+  OptionSetting'+  { _osIsCollection = Nothing+  , _osApplyType = Nothing+  , _osValue = Nothing+  , _osName = Nothing+  , _osDefaultValue = Nothing+  , _osIsModifiable = Nothing+  , _osDataType = Nothing+  , _osAllowedValues = Nothing+  , _osDescription = Nothing+  }+++-- | Indicates if the option setting is part of a collection.+osIsCollection :: Lens' OptionSetting (Maybe Bool)+osIsCollection = lens _osIsCollection (\ s a -> s{_osIsCollection = a});++-- | The DB engine specific parameter type.+osApplyType :: Lens' OptionSetting (Maybe Text)+osApplyType = lens _osApplyType (\ s a -> s{_osApplyType = a});++-- | The current value of the option setting.+osValue :: Lens' OptionSetting (Maybe Text)+osValue = lens _osValue (\ s a -> s{_osValue = a});++-- | The name of the option that has settings that you can set.+osName :: Lens' OptionSetting (Maybe Text)+osName = lens _osName (\ s a -> s{_osName = a});++-- | The default value of the option setting.+osDefaultValue :: Lens' OptionSetting (Maybe Text)+osDefaultValue = lens _osDefaultValue (\ s a -> s{_osDefaultValue = a});++-- | A Boolean value that, when true, indicates the option setting can be modified from the default.+osIsModifiable :: Lens' OptionSetting (Maybe Bool)+osIsModifiable = lens _osIsModifiable (\ s a -> s{_osIsModifiable = a});++-- | The data type of the option setting.+osDataType :: Lens' OptionSetting (Maybe Text)+osDataType = lens _osDataType (\ s a -> s{_osDataType = a});++-- | The allowed values of the option setting.+osAllowedValues :: Lens' OptionSetting (Maybe Text)+osAllowedValues = lens _osAllowedValues (\ s a -> s{_osAllowedValues = a});++-- | The description of the option setting.+osDescription :: Lens' OptionSetting (Maybe Text)+osDescription = lens _osDescription (\ s a -> s{_osDescription = a});++instance FromXML OptionSetting where+        parseXML x+          = OptionSetting' <$>+              (x .@? "IsCollection") <*> (x .@? "ApplyType") <*>+                (x .@? "Value")+                <*> (x .@? "Name")+                <*> (x .@? "DefaultValue")+                <*> (x .@? "IsModifiable")+                <*> (x .@? "DataType")+                <*> (x .@? "AllowedValues")+                <*> (x .@? "Description")++instance Hashable OptionSetting where++instance NFData OptionSetting where++instance ToQuery OptionSetting where+        toQuery OptionSetting'{..}+          = mconcat+              ["IsCollection" =: _osIsCollection,+               "ApplyType" =: _osApplyType, "Value" =: _osValue,+               "Name" =: _osName, "DefaultValue" =: _osDefaultValue,+               "IsModifiable" =: _osIsModifiable,+               "DataType" =: _osDataType,+               "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' - The version of the option.+--+-- * 'ovIsDefault' - True if the version is the default version of the option; otherwise, false.+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 where++instance NFData OptionVersion where++-- | Contains a list of available options for a DB instance.+--+--+-- This data type is used as a response element in the 'DescribeOrderableDBInstanceOptions' action.+--+--+-- /See:/ 'orderableDBInstanceOption' smart constructor.+data OrderableDBInstanceOption = OrderableDBInstanceOption'+  { _odioEngineVersion                     :: !(Maybe Text)+  , _odioMinIOPSPerGib                     :: !(Maybe Double)+  , _odioSupportsIAMDatabaseAuthentication :: !(Maybe Bool)+  , _odioMinIOPSPerDBInstance              :: !(Maybe Int)+  , _odioMultiAZCapable                    :: !(Maybe Bool)+  , _odioMaxStorageSize                    :: !(Maybe Int)+  , _odioEngine                            :: !(Maybe Text)+  , _odioMinStorageSize                    :: !(Maybe Int)+  , _odioSupportsIOPS                      :: !(Maybe Bool)+  , _odioSupportsPerformanceInsights       :: !(Maybe Bool)+  , _odioDBInstanceClass                   :: !(Maybe Text)+  , _odioLicenseModel                      :: !(Maybe Text)+  , _odioAvailabilityZones                 :: !(Maybe [AvailabilityZone])+  , _odioSupportsStorageEncryption         :: !(Maybe Bool)+  , _odioReadReplicaCapable                :: !(Maybe Bool)+  , _odioMaxIOPSPerGib                     :: !(Maybe Double)+  , _odioVPC                               :: !(Maybe Bool)+  , _odioSupportsEnhancedMonitoring        :: !(Maybe Bool)+  , _odioMaxIOPSPerDBInstance              :: !(Maybe Int)+  , _odioStorageType                       :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'OrderableDBInstanceOption' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'odioEngineVersion' - The engine version of a DB instance.+--+-- * 'odioMinIOPSPerGib' - Minimum provisioned IOPS per GiB for a DB instance.+--+-- * 'odioSupportsIAMDatabaseAuthentication' - Indicates whether a DB instance supports IAM database authentication.+--+-- * 'odioMinIOPSPerDBInstance' - Minimum total provisioned IOPS for a DB instance.+--+-- * 'odioMultiAZCapable' - Indicates whether a DB instance is Multi-AZ capable.+--+-- * 'odioMaxStorageSize' - Maximum storage size for a DB instance.+--+-- * 'odioEngine' - The engine type of a DB instance.+--+-- * 'odioMinStorageSize' - Minimum storage size for a DB instance.+--+-- * 'odioSupportsIOPS' - Indicates whether a DB instance supports provisioned IOPS.+--+-- * 'odioSupportsPerformanceInsights' - True if a DB instance supports Performance Insights, otherwise false.+--+-- * 'odioDBInstanceClass' - The DB instance class for a DB instance.+--+-- * 'odioLicenseModel' - The license model for a DB instance.+--+-- * 'odioAvailabilityZones' - A list of Availability Zones for a DB instance.+--+-- * 'odioSupportsStorageEncryption' - Indicates whether a DB instance supports encrypted storage.+--+-- * 'odioReadReplicaCapable' - Indicates whether a DB instance can have a Read Replica.+--+-- * 'odioMaxIOPSPerGib' - Maximum provisioned IOPS per GiB for a DB instance.+--+-- * 'odioVPC' - Indicates whether a DB instance is in a VPC.+--+-- * 'odioSupportsEnhancedMonitoring' - Indicates whether a DB instance supports Enhanced Monitoring at intervals from 1 to 60 seconds.+--+-- * 'odioMaxIOPSPerDBInstance' - Maximum total provisioned IOPS for a DB instance.+--+-- * 'odioStorageType' - Indicates the storage type for a DB instance.+orderableDBInstanceOption+    :: OrderableDBInstanceOption+orderableDBInstanceOption =+  OrderableDBInstanceOption'+  { _odioEngineVersion = Nothing+  , _odioMinIOPSPerGib = Nothing+  , _odioSupportsIAMDatabaseAuthentication = Nothing+  , _odioMinIOPSPerDBInstance = Nothing+  , _odioMultiAZCapable = Nothing+  , _odioMaxStorageSize = Nothing+  , _odioEngine = Nothing+  , _odioMinStorageSize = Nothing+  , _odioSupportsIOPS = Nothing+  , _odioSupportsPerformanceInsights = Nothing+  , _odioDBInstanceClass = Nothing+  , _odioLicenseModel = Nothing+  , _odioAvailabilityZones = Nothing+  , _odioSupportsStorageEncryption = Nothing+  , _odioReadReplicaCapable = Nothing+  , _odioMaxIOPSPerGib = Nothing+  , _odioVPC = Nothing+  , _odioSupportsEnhancedMonitoring = Nothing+  , _odioMaxIOPSPerDBInstance = Nothing+  , _odioStorageType = Nothing+  }+++-- | The engine version of a DB instance.+odioEngineVersion :: Lens' OrderableDBInstanceOption (Maybe Text)+odioEngineVersion = lens _odioEngineVersion (\ s a -> s{_odioEngineVersion = a});++-- | Minimum provisioned IOPS per GiB for a DB instance.+odioMinIOPSPerGib :: Lens' OrderableDBInstanceOption (Maybe Double)+odioMinIOPSPerGib = lens _odioMinIOPSPerGib (\ s a -> s{_odioMinIOPSPerGib = a});++-- | Indicates whether a DB instance supports IAM database authentication.+odioSupportsIAMDatabaseAuthentication :: Lens' OrderableDBInstanceOption (Maybe Bool)+odioSupportsIAMDatabaseAuthentication = lens _odioSupportsIAMDatabaseAuthentication (\ s a -> s{_odioSupportsIAMDatabaseAuthentication = a});++-- | Minimum total provisioned IOPS for a DB instance.+odioMinIOPSPerDBInstance :: Lens' OrderableDBInstanceOption (Maybe Int)+odioMinIOPSPerDBInstance = lens _odioMinIOPSPerDBInstance (\ s a -> s{_odioMinIOPSPerDBInstance = a});++-- | Indicates whether a DB instance is Multi-AZ capable.+odioMultiAZCapable :: Lens' OrderableDBInstanceOption (Maybe Bool)+odioMultiAZCapable = lens _odioMultiAZCapable (\ s a -> s{_odioMultiAZCapable = a});++-- | Maximum storage size for a DB instance.+odioMaxStorageSize :: Lens' OrderableDBInstanceOption (Maybe Int)+odioMaxStorageSize = lens _odioMaxStorageSize (\ s a -> s{_odioMaxStorageSize = a});++-- | The engine type of a DB instance.+odioEngine :: Lens' OrderableDBInstanceOption (Maybe Text)+odioEngine = lens _odioEngine (\ s a -> s{_odioEngine = a});++-- | Minimum storage size for a DB instance.+odioMinStorageSize :: Lens' OrderableDBInstanceOption (Maybe Int)+odioMinStorageSize = lens _odioMinStorageSize (\ s a -> s{_odioMinStorageSize = a});++-- | Indicates whether a DB instance supports provisioned IOPS.+odioSupportsIOPS :: Lens' OrderableDBInstanceOption (Maybe Bool)+odioSupportsIOPS = lens _odioSupportsIOPS (\ s a -> s{_odioSupportsIOPS = a});++-- | True if a DB instance supports Performance Insights, otherwise false.+odioSupportsPerformanceInsights :: Lens' OrderableDBInstanceOption (Maybe Bool)+odioSupportsPerformanceInsights = lens _odioSupportsPerformanceInsights (\ s a -> s{_odioSupportsPerformanceInsights = a});++-- | The DB instance class for a DB instance.+odioDBInstanceClass :: Lens' OrderableDBInstanceOption (Maybe Text)+odioDBInstanceClass = lens _odioDBInstanceClass (\ s a -> s{_odioDBInstanceClass = a});++-- | The license model for a DB instance.+odioLicenseModel :: Lens' OrderableDBInstanceOption (Maybe Text)+odioLicenseModel = lens _odioLicenseModel (\ s a -> s{_odioLicenseModel = a});++-- | A list of Availability Zones for a DB instance.+odioAvailabilityZones :: Lens' OrderableDBInstanceOption [AvailabilityZone]+odioAvailabilityZones = lens _odioAvailabilityZones (\ s a -> s{_odioAvailabilityZones = a}) . _Default . _Coerce;++-- | Indicates whether a DB instance supports encrypted storage.+odioSupportsStorageEncryption :: Lens' OrderableDBInstanceOption (Maybe Bool)+odioSupportsStorageEncryption = lens _odioSupportsStorageEncryption (\ s a -> s{_odioSupportsStorageEncryption = a});++-- | Indicates whether a DB instance can have a Read Replica.+odioReadReplicaCapable :: Lens' OrderableDBInstanceOption (Maybe Bool)+odioReadReplicaCapable = lens _odioReadReplicaCapable (\ s a -> s{_odioReadReplicaCapable = a});++-- | Maximum provisioned IOPS per GiB for a DB instance.+odioMaxIOPSPerGib :: Lens' OrderableDBInstanceOption (Maybe Double)+odioMaxIOPSPerGib = lens _odioMaxIOPSPerGib (\ s a -> s{_odioMaxIOPSPerGib = a});++-- | Indicates whether a DB instance is in a VPC.+odioVPC :: Lens' OrderableDBInstanceOption (Maybe Bool)+odioVPC = lens _odioVPC (\ s a -> s{_odioVPC = a});++-- | Indicates whether a DB instance supports Enhanced Monitoring at intervals from 1 to 60 seconds.+odioSupportsEnhancedMonitoring :: Lens' OrderableDBInstanceOption (Maybe Bool)+odioSupportsEnhancedMonitoring = lens _odioSupportsEnhancedMonitoring (\ s a -> s{_odioSupportsEnhancedMonitoring = a});++-- | Maximum total provisioned IOPS for a DB instance.+odioMaxIOPSPerDBInstance :: Lens' OrderableDBInstanceOption (Maybe Int)+odioMaxIOPSPerDBInstance = lens _odioMaxIOPSPerDBInstance (\ s a -> s{_odioMaxIOPSPerDBInstance = a});++-- | Indicates the storage type for a DB instance.+odioStorageType :: Lens' OrderableDBInstanceOption (Maybe Text)+odioStorageType = lens _odioStorageType (\ s a -> s{_odioStorageType = a});++instance FromXML OrderableDBInstanceOption where+        parseXML x+          = OrderableDBInstanceOption' <$>+              (x .@? "EngineVersion") <*> (x .@? "MinIopsPerGib")+                <*> (x .@? "SupportsIAMDatabaseAuthentication")+                <*> (x .@? "MinIopsPerDbInstance")+                <*> (x .@? "MultiAZCapable")+                <*> (x .@? "MaxStorageSize")+                <*> (x .@? "Engine")+                <*> (x .@? "MinStorageSize")+                <*> (x .@? "SupportsIops")+                <*> (x .@? "SupportsPerformanceInsights")+                <*> (x .@? "DBInstanceClass")+                <*> (x .@? "LicenseModel")+                <*>+                (x .@? "AvailabilityZones" .!@ mempty >>=+                   may (parseXMLList "AvailabilityZone"))+                <*> (x .@? "SupportsStorageEncryption")+                <*> (x .@? "ReadReplicaCapable")+                <*> (x .@? "MaxIopsPerGib")+                <*> (x .@? "Vpc")+                <*> (x .@? "SupportsEnhancedMonitoring")+                <*> (x .@? "MaxIopsPerDbInstance")+                <*> (x .@? "StorageType")++instance Hashable OrderableDBInstanceOption where++instance NFData OrderableDBInstanceOption where++-- | This data type is used as a request parameter in the 'ModifyDBParameterGroup' and 'ResetDBParameterGroup' actions.+--+--+-- This data type is used as a response element in the 'DescribeEngineDefaultParameters' and 'DescribeDBParameters' actions.+--+--+-- /See:/ 'parameter' smart constructor.+data Parameter = Parameter'+  { _pApplyType            :: !(Maybe Text)+  , _pParameterValue       :: !(Maybe Text)+  , _pApplyMethod          :: !(Maybe ApplyMethod)+  , _pMinimumEngineVersion :: !(Maybe Text)+  , _pSource               :: !(Maybe Text)+  , _pIsModifiable         :: !(Maybe Bool)+  , _pDataType             :: !(Maybe Text)+  , _pAllowedValues        :: !(Maybe Text)+  , _pParameterName        :: !(Maybe Text)+  , _pDescription          :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Parameter' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pApplyType' - Specifies the engine specific parameters type.+--+-- * 'pParameterValue' - Specifies the value of the parameter.+--+-- * 'pApplyMethod' - Indicates when to apply parameter updates.+--+-- * 'pMinimumEngineVersion' - The earliest engine version to which the parameter can apply.+--+-- * 'pSource' - Indicates the source of the parameter value.+--+-- * 'pIsModifiable' - Indicates whether (@true@ ) or not (@false@ ) the parameter can be modified. Some parameters have security or operational implications that prevent them from being changed.+--+-- * 'pDataType' - Specifies the valid data type for the parameter.+--+-- * 'pAllowedValues' - Specifies the valid range of values for the parameter.+--+-- * 'pParameterName' - Specifies the name of the parameter.+--+-- * 'pDescription' - Provides a description of the parameter.+parameter+    :: Parameter+parameter =+  Parameter'+  { _pApplyType = Nothing+  , _pParameterValue = Nothing+  , _pApplyMethod = Nothing+  , _pMinimumEngineVersion = Nothing+  , _pSource = Nothing+  , _pIsModifiable = Nothing+  , _pDataType = Nothing+  , _pAllowedValues = Nothing+  , _pParameterName = Nothing+  , _pDescription = Nothing+  }+++-- | Specifies the engine specific parameters type.+pApplyType :: Lens' Parameter (Maybe Text)+pApplyType = lens _pApplyType (\ s a -> s{_pApplyType = a});++-- | Specifies the value of the parameter.+pParameterValue :: Lens' Parameter (Maybe Text)+pParameterValue = lens _pParameterValue (\ s a -> s{_pParameterValue = a});++-- | Indicates when to apply parameter updates.+pApplyMethod :: Lens' Parameter (Maybe ApplyMethod)+pApplyMethod = lens _pApplyMethod (\ s a -> s{_pApplyMethod = a});++-- | The earliest engine version to which the parameter can apply.+pMinimumEngineVersion :: Lens' Parameter (Maybe Text)+pMinimumEngineVersion = lens _pMinimumEngineVersion (\ s a -> s{_pMinimumEngineVersion = a});++-- | Indicates the source of the parameter value.+pSource :: Lens' Parameter (Maybe Text)+pSource = lens _pSource (\ s a -> s{_pSource = a});++-- | Indicates whether (@true@ ) or not (@false@ ) the parameter can be modified. Some parameters have security or operational implications that prevent them from being changed.+pIsModifiable :: Lens' Parameter (Maybe Bool)+pIsModifiable = lens _pIsModifiable (\ s a -> s{_pIsModifiable = a});++-- | Specifies the valid data type for the parameter.+pDataType :: Lens' Parameter (Maybe Text)+pDataType = lens _pDataType (\ s a -> s{_pDataType = a});++-- | Specifies the valid range of values for the parameter.+pAllowedValues :: Lens' Parameter (Maybe Text)+pAllowedValues = lens _pAllowedValues (\ s a -> s{_pAllowedValues = a});++-- | Specifies the name of the parameter.+pParameterName :: Lens' Parameter (Maybe Text)+pParameterName = lens _pParameterName (\ s a -> s{_pParameterName = a});++-- | Provides a description of the parameter.+pDescription :: Lens' Parameter (Maybe Text)+pDescription = lens _pDescription (\ s a -> s{_pDescription = a});++instance FromXML Parameter where+        parseXML x+          = Parameter' <$>+              (x .@? "ApplyType") <*> (x .@? "ParameterValue") <*>+                (x .@? "ApplyMethod")+                <*> (x .@? "MinimumEngineVersion")+                <*> (x .@? "Source")+                <*> (x .@? "IsModifiable")+                <*> (x .@? "DataType")+                <*> (x .@? "AllowedValues")+                <*> (x .@? "ParameterName")+                <*> (x .@? "Description")++instance Hashable Parameter where++instance NFData Parameter where++instance ToQuery Parameter where+        toQuery Parameter'{..}+          = mconcat+              ["ApplyType" =: _pApplyType,+               "ParameterValue" =: _pParameterValue,+               "ApplyMethod" =: _pApplyMethod,+               "MinimumEngineVersion" =: _pMinimumEngineVersion,+               "Source" =: _pSource,+               "IsModifiable" =: _pIsModifiable,+               "DataType" =: _pDataType,+               "AllowedValues" =: _pAllowedValues,+               "ParameterName" =: _pParameterName,+               "Description" =: _pDescription]++-- | Provides information about a pending maintenance action for a resource.+--+--+--+-- /See:/ 'pendingMaintenanceAction' smart constructor.+data PendingMaintenanceAction = PendingMaintenanceAction'+  { _pmaAutoAppliedAfterDate :: !(Maybe ISO8601)+  , _pmaAction               :: !(Maybe Text)+  , _pmaOptInStatus          :: !(Maybe Text)+  , _pmaDescription          :: !(Maybe Text)+  , _pmaForcedApplyDate      :: !(Maybe ISO8601)+  , _pmaCurrentApplyDate     :: !(Maybe ISO8601)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PendingMaintenanceAction' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pmaAutoAppliedAfterDate' - The date of the maintenance window when the action is applied. The maintenance action is applied to the resource during its first maintenance window after this date. If this date is specified, any @next-maintenance@ opt-in requests are ignored.+--+-- * 'pmaAction' - The type of pending maintenance action that is available for the resource.+--+-- * 'pmaOptInStatus' - Indicates the type of opt-in request that has been received for the resource.+--+-- * 'pmaDescription' - A description providing more detail about the maintenance action.+--+-- * 'pmaForcedApplyDate' - The date when the maintenance action is automatically applied. The maintenance action is applied to the resource on this date regardless of the maintenance window for the resource. If this date is specified, any @immediate@ opt-in requests are ignored.+--+-- * 'pmaCurrentApplyDate' - The effective date when the pending maintenance action is applied to the resource. This date takes into account opt-in requests received from the 'ApplyPendingMaintenanceAction' API, the @AutoAppliedAfterDate@ , and the @ForcedApplyDate@ . This value is blank if an opt-in request has not been received and nothing has been specified as @AutoAppliedAfterDate@ or @ForcedApplyDate@ .+pendingMaintenanceAction+    :: PendingMaintenanceAction+pendingMaintenanceAction =+  PendingMaintenanceAction'+  { _pmaAutoAppliedAfterDate = Nothing+  , _pmaAction = Nothing+  , _pmaOptInStatus = Nothing+  , _pmaDescription = Nothing+  , _pmaForcedApplyDate = Nothing+  , _pmaCurrentApplyDate = Nothing+  }+++-- | The date of the maintenance window when the action is applied. The maintenance action is applied to the resource during its first maintenance window after this date. If this date is specified, any @next-maintenance@ opt-in requests are ignored.+pmaAutoAppliedAfterDate :: Lens' PendingMaintenanceAction (Maybe UTCTime)+pmaAutoAppliedAfterDate = lens _pmaAutoAppliedAfterDate (\ s a -> s{_pmaAutoAppliedAfterDate = a}) . mapping _Time;++-- | The type of pending maintenance action that is available for the resource.+pmaAction :: Lens' PendingMaintenanceAction (Maybe Text)+pmaAction = lens _pmaAction (\ s a -> s{_pmaAction = a});++-- | Indicates the type of opt-in request that has been received for the resource.+pmaOptInStatus :: Lens' PendingMaintenanceAction (Maybe Text)+pmaOptInStatus = lens _pmaOptInStatus (\ s a -> s{_pmaOptInStatus = a});++-- | A description providing more detail about the maintenance action.+pmaDescription :: Lens' PendingMaintenanceAction (Maybe Text)+pmaDescription = lens _pmaDescription (\ s a -> s{_pmaDescription = a});++-- | The date when the maintenance action is automatically applied. The maintenance action is applied to the resource on this date regardless of the maintenance window for the resource. If this date is specified, any @immediate@ opt-in requests are ignored.+pmaForcedApplyDate :: Lens' PendingMaintenanceAction (Maybe UTCTime)+pmaForcedApplyDate = lens _pmaForcedApplyDate (\ s a -> s{_pmaForcedApplyDate = a}) . mapping _Time;++-- | The effective date when the pending maintenance action is applied to the resource. This date takes into account opt-in requests received from the 'ApplyPendingMaintenanceAction' API, the @AutoAppliedAfterDate@ , and the @ForcedApplyDate@ . This value is blank if an opt-in request has not been received and nothing has been specified as @AutoAppliedAfterDate@ or @ForcedApplyDate@ .+pmaCurrentApplyDate :: Lens' PendingMaintenanceAction (Maybe UTCTime)+pmaCurrentApplyDate = lens _pmaCurrentApplyDate (\ s a -> s{_pmaCurrentApplyDate = a}) . mapping _Time;++instance FromXML PendingMaintenanceAction where+        parseXML x+          = PendingMaintenanceAction' <$>+              (x .@? "AutoAppliedAfterDate") <*> (x .@? "Action")+                <*> (x .@? "OptInStatus")+                <*> (x .@? "Description")+                <*> (x .@? "ForcedApplyDate")+                <*> (x .@? "CurrentApplyDate")++instance Hashable PendingMaintenanceAction where++instance NFData PendingMaintenanceAction where++-- | This data type is used as a response element in the 'ModifyDBInstance' action.+--+--+--+-- /See:/ 'pendingModifiedValues' smart constructor.+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)+  , _pmvMultiAZ                 :: !(Maybe Bool)+  , _pmvAllocatedStorage        :: !(Maybe Int)+  , _pmvPort                    :: !(Maybe Int)+  , _pmvStorageType             :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PendingModifiedValues' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pmvEngineVersion' - Indicates the database engine version.+--+-- * 'pmvMasterUserPassword' - Contains the pending or currently-in-progress change of the master credentials for the DB instance.+--+-- * 'pmvDBSubnetGroupName' - The new DB subnet group for the DB instance.+--+-- * 'pmvIOPS' - Specifies the new Provisioned IOPS value for the DB instance that will be applied or is currently being applied.+--+-- * 'pmvDBInstanceClass' - Contains the new @DBInstanceClass@ for the DB instance that will be applied or is currently being applied.+--+-- * 'pmvLicenseModel' - The license model for the DB instance. Valid values: @license-included@ | @bring-your-own-license@ | @general-public-license@+--+-- * 'pmvCACertificateIdentifier' - Specifies the identifier of the CA certificate for the DB instance.+--+-- * 'pmvDBInstanceIdentifier' - Contains the new @DBInstanceIdentifier@ for the DB instance that will be applied or is currently being applied.+--+-- * 'pmvBackupRetentionPeriod' - Specifies the pending number of days for which automated backups are retained.+--+-- * 'pmvMultiAZ' - Indicates that the Single-AZ DB instance is to change to a Multi-AZ deployment.+--+-- * 'pmvAllocatedStorage' - Contains the new @AllocatedStorage@ size for the DB instance that will be applied or is currently being applied.+--+-- * 'pmvPort' - Specifies the pending port for the DB instance.+--+-- * 'pmvStorageType' - Specifies the storage type to be associated with the DB instance.+pendingModifiedValues+    :: PendingModifiedValues+pendingModifiedValues =+  PendingModifiedValues'+  { _pmvEngineVersion = Nothing+  , _pmvMasterUserPassword = Nothing+  , _pmvDBSubnetGroupName = Nothing+  , _pmvIOPS = Nothing+  , _pmvDBInstanceClass = Nothing+  , _pmvLicenseModel = Nothing+  , _pmvCACertificateIdentifier = Nothing+  , _pmvDBInstanceIdentifier = Nothing+  , _pmvBackupRetentionPeriod = Nothing+  , _pmvMultiAZ = Nothing+  , _pmvAllocatedStorage = Nothing+  , _pmvPort = Nothing+  , _pmvStorageType = Nothing+  }+++-- | Indicates the database engine version.+pmvEngineVersion :: Lens' PendingModifiedValues (Maybe Text)+pmvEngineVersion = lens _pmvEngineVersion (\ s a -> s{_pmvEngineVersion = a});++-- | Contains the pending or currently-in-progress change of the master credentials for the DB instance.+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 currently being applied.+pmvIOPS :: Lens' PendingModifiedValues (Maybe Int)+pmvIOPS = lens _pmvIOPS (\ s a -> s{_pmvIOPS = a});++-- | Contains the new @DBInstanceClass@ for the DB instance that will be applied or is currently being applied.+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});++-- | Contains the new @DBInstanceIdentifier@ for the DB instance that will be applied or is currently being applied.+pmvDBInstanceIdentifier :: Lens' PendingModifiedValues (Maybe Text)+pmvDBInstanceIdentifier = lens _pmvDBInstanceIdentifier (\ s a -> s{_pmvDBInstanceIdentifier = a});++-- | Specifies the pending number of days for which automated backups are retained.+pmvBackupRetentionPeriod :: Lens' PendingModifiedValues (Maybe Int)+pmvBackupRetentionPeriod = lens _pmvBackupRetentionPeriod (\ s a -> s{_pmvBackupRetentionPeriod = a});++-- | Indicates that the Single-AZ DB instance is to change to a Multi-AZ deployment.+pmvMultiAZ :: Lens' PendingModifiedValues (Maybe Bool)+pmvMultiAZ = lens _pmvMultiAZ (\ s a -> s{_pmvMultiAZ = a});++-- | Contains the new @AllocatedStorage@ size for the DB instance that will be applied or is currently being applied.+pmvAllocatedStorage :: Lens' PendingModifiedValues (Maybe Int)+pmvAllocatedStorage = lens _pmvAllocatedStorage (\ s a -> s{_pmvAllocatedStorage = a});++-- | Specifies the pending port for the DB instance.+pmvPort :: Lens' PendingModifiedValues (Maybe Int)+pmvPort = lens _pmvPort (\ s a -> s{_pmvPort = a});++-- | Specifies the storage type to be associated with the DB instance.+pmvStorageType :: Lens' PendingModifiedValues (Maybe Text)+pmvStorageType = lens _pmvStorageType (\ s a -> s{_pmvStorageType = a});++instance FromXML PendingModifiedValues where+        parseXML x+          = PendingModifiedValues' <$>+              (x .@? "EngineVersion") <*>+                (x .@? "MasterUserPassword")+                <*> (x .@? "DBSubnetGroupName")+                <*> (x .@? "Iops")+                <*> (x .@? "DBInstanceClass")+                <*> (x .@? "LicenseModel")+                <*> (x .@? "CACertificateIdentifier")+                <*> (x .@? "DBInstanceIdentifier")+                <*> (x .@? "BackupRetentionPeriod")+                <*> (x .@? "MultiAZ")+                <*> (x .@? "AllocatedStorage")+                <*> (x .@? "Port")+                <*> (x .@? "StorageType")++instance Hashable PendingModifiedValues where++instance NFData PendingModifiedValues where++-- | A range of integer values.+--+--+--+-- /See:/ 'range' smart constructor.+data Range = Range'+  { _rTo   :: !(Maybe Int)+  , _rFrom :: !(Maybe Int)+  , _rStep :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Range' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rTo' - The maximum value in the range.+--+-- * 'rFrom' - The minimum value in the range.+--+-- * 'rStep' - The step value for the range. For example, if you have a range of 5,000 to 10,000, with a step value of 1,000, the valid values start at 5,000 and step up by 1,000. Even though 7,500 is within the range, it isn't a valid value for the range. The valid values are 5,000, 6,000, 7,000, 8,000...+range+    :: Range+range = Range' {_rTo = Nothing, _rFrom = Nothing, _rStep = Nothing}+++-- | The maximum value in the range.+rTo :: Lens' Range (Maybe Int)+rTo = lens _rTo (\ s a -> s{_rTo = a});++-- | The minimum value in the range.+rFrom :: Lens' Range (Maybe Int)+rFrom = lens _rFrom (\ s a -> s{_rFrom = a});++-- | The step value for the range. For example, if you have a range of 5,000 to 10,000, with a step value of 1,000, the valid values start at 5,000 and step up by 1,000. Even though 7,500 is within the range, it isn't a valid value for the range. The valid values are 5,000, 6,000, 7,000, 8,000...+rStep :: Lens' Range (Maybe Int)+rStep = lens _rStep (\ s a -> s{_rStep = a});++instance FromXML Range where+        parseXML x+          = Range' <$>+              (x .@? "To") <*> (x .@? "From") <*> (x .@? "Step")++instance Hashable Range where++instance NFData Range where++-- | This data type is used as a response element in the 'DescribeReservedDBInstances' and 'DescribeReservedDBInstancesOfferings' actions.+--+--+--+-- /See:/ 'recurringCharge' smart constructor.+data RecurringCharge = RecurringCharge'+  { _rcRecurringChargeFrequency :: !(Maybe Text)+  , _rcRecurringChargeAmount    :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RecurringCharge' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rcRecurringChargeFrequency' - The frequency of the recurring charge.+--+-- * 'rcRecurringChargeAmount' - The amount of the recurring charge.+recurringCharge+    :: RecurringCharge+recurringCharge =+  RecurringCharge'+  {_rcRecurringChargeFrequency = Nothing, _rcRecurringChargeAmount = Nothing}+++-- | The frequency of the recurring charge.+rcRecurringChargeFrequency :: Lens' RecurringCharge (Maybe Text)+rcRecurringChargeFrequency = lens _rcRecurringChargeFrequency (\ s a -> s{_rcRecurringChargeFrequency = a});++-- | The amount of the recurring charge.+rcRecurringChargeAmount :: Lens' RecurringCharge (Maybe Double)+rcRecurringChargeAmount = lens _rcRecurringChargeAmount (\ s a -> s{_rcRecurringChargeAmount = a});++instance FromXML RecurringCharge where+        parseXML x+          = RecurringCharge' <$>+              (x .@? "RecurringChargeFrequency") <*>+                (x .@? "RecurringChargeAmount")++instance Hashable RecurringCharge where++instance NFData RecurringCharge where++-- | This data type is used as a response element in the 'DescribeReservedDBInstances' and 'PurchaseReservedDBInstancesOffering' actions.+--+--+--+-- /See:/ 'reservedDBInstance' smart constructor.+data ReservedDBInstance = ReservedDBInstance'+  { _rdiDBInstanceCount               :: !(Maybe Int)+  , _rdiState                         :: !(Maybe Text)+  , _rdiCurrencyCode                  :: !(Maybe Text)+  , _rdiStartTime                     :: !(Maybe ISO8601)+  , _rdiProductDescription            :: !(Maybe Text)+  , _rdiReservedDBInstanceId          :: !(Maybe Text)+  , _rdiReservedDBInstanceARN         :: !(Maybe Text)+  , _rdiDBInstanceClass               :: !(Maybe Text)+  , _rdiMultiAZ                       :: !(Maybe Bool)+  , _rdiReservedDBInstancesOfferingId :: !(Maybe Text)+  , _rdiRecurringCharges              :: !(Maybe [RecurringCharge])+  , _rdiOfferingType                  :: !(Maybe Text)+  , _rdiUsagePrice                    :: !(Maybe Double)+  , _rdiFixedPrice                    :: !(Maybe Double)+  , _rdiDuration                      :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ReservedDBInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rdiDBInstanceCount' - The number of reserved DB instances.+--+-- * 'rdiState' - The state of the reserved DB instance.+--+-- * 'rdiCurrencyCode' - The currency code for the reserved DB instance.+--+-- * 'rdiStartTime' - The time the reservation started.+--+-- * 'rdiProductDescription' - The description of the reserved DB instance.+--+-- * 'rdiReservedDBInstanceId' - The unique identifier for the reservation.+--+-- * 'rdiReservedDBInstanceARN' - The Amazon Resource Name (ARN) for the reserved DB instance.+--+-- * 'rdiDBInstanceClass' - The DB instance class for the reserved DB instance.+--+-- * 'rdiMultiAZ' - Indicates if the reservation applies to Multi-AZ deployments.+--+-- * 'rdiReservedDBInstancesOfferingId' - The offering identifier.+--+-- * 'rdiRecurringCharges' - The recurring price charged to run this reserved DB instance.+--+-- * 'rdiOfferingType' - The offering type of this reserved DB instance.+--+-- * 'rdiUsagePrice' - The hourly price charged for this reserved DB instance.+--+-- * 'rdiFixedPrice' - The fixed price charged for this reserved DB instance.+--+-- * 'rdiDuration' - The duration of the reservation in seconds.+reservedDBInstance+    :: ReservedDBInstance+reservedDBInstance =+  ReservedDBInstance'+  { _rdiDBInstanceCount = Nothing+  , _rdiState = Nothing+  , _rdiCurrencyCode = Nothing+  , _rdiStartTime = Nothing+  , _rdiProductDescription = Nothing+  , _rdiReservedDBInstanceId = Nothing+  , _rdiReservedDBInstanceARN = Nothing+  , _rdiDBInstanceClass = Nothing+  , _rdiMultiAZ = Nothing+  , _rdiReservedDBInstancesOfferingId = Nothing+  , _rdiRecurringCharges = Nothing+  , _rdiOfferingType = Nothing+  , _rdiUsagePrice = Nothing+  , _rdiFixedPrice = Nothing+  , _rdiDuration = Nothing+  }+++-- | The number of reserved DB instances.+rdiDBInstanceCount :: Lens' ReservedDBInstance (Maybe Int)+rdiDBInstanceCount = lens _rdiDBInstanceCount (\ s a -> s{_rdiDBInstanceCount = a});++-- | The state of the reserved DB instance.+rdiState :: Lens' ReservedDBInstance (Maybe Text)+rdiState = lens _rdiState (\ s a -> s{_rdiState = a});++-- | The currency code for the reserved DB instance.+rdiCurrencyCode :: Lens' ReservedDBInstance (Maybe Text)+rdiCurrencyCode = lens _rdiCurrencyCode (\ s a -> s{_rdiCurrencyCode = a});++-- | The time the reservation started.+rdiStartTime :: Lens' ReservedDBInstance (Maybe UTCTime)+rdiStartTime = lens _rdiStartTime (\ s a -> s{_rdiStartTime = a}) . mapping _Time;++-- | The description of the reserved DB instance.+rdiProductDescription :: Lens' ReservedDBInstance (Maybe Text)+rdiProductDescription = lens _rdiProductDescription (\ s a -> s{_rdiProductDescription = a});++-- | The unique identifier for the reservation.+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});++-- | Indicates if the reservation applies to Multi-AZ deployments.+rdiMultiAZ :: Lens' ReservedDBInstance (Maybe Bool)+rdiMultiAZ = lens _rdiMultiAZ (\ s a -> s{_rdiMultiAZ = a});++-- | The offering identifier.+rdiReservedDBInstancesOfferingId :: Lens' ReservedDBInstance (Maybe Text)+rdiReservedDBInstancesOfferingId = lens _rdiReservedDBInstancesOfferingId (\ s a -> s{_rdiReservedDBInstancesOfferingId = a});++-- | The recurring price charged to run this reserved DB instance.+rdiRecurringCharges :: Lens' ReservedDBInstance [RecurringCharge]+rdiRecurringCharges = lens _rdiRecurringCharges (\ s a -> s{_rdiRecurringCharges = a}) . _Default . _Coerce;++-- | The offering type of this reserved DB instance.+rdiOfferingType :: Lens' ReservedDBInstance (Maybe Text)+rdiOfferingType = lens _rdiOfferingType (\ s a -> s{_rdiOfferingType = a});++-- | The hourly price charged for this reserved DB instance.+rdiUsagePrice :: Lens' ReservedDBInstance (Maybe Double)+rdiUsagePrice = lens _rdiUsagePrice (\ s a -> s{_rdiUsagePrice = a});++-- | The fixed price charged for this reserved DB instance.+rdiFixedPrice :: Lens' ReservedDBInstance (Maybe Double)+rdiFixedPrice = lens _rdiFixedPrice (\ s a -> s{_rdiFixedPrice = a});++-- | The duration of the reservation in seconds.+rdiDuration :: Lens' ReservedDBInstance (Maybe Int)+rdiDuration = lens _rdiDuration (\ s a -> s{_rdiDuration = a});++instance FromXML ReservedDBInstance where+        parseXML x+          = ReservedDBInstance' <$>+              (x .@? "DBInstanceCount") <*> (x .@? "State") <*>+                (x .@? "CurrencyCode")+                <*> (x .@? "StartTime")+                <*> (x .@? "ProductDescription")+                <*> (x .@? "ReservedDBInstanceId")+                <*> (x .@? "ReservedDBInstanceArn")+                <*> (x .@? "DBInstanceClass")+                <*> (x .@? "MultiAZ")+                <*> (x .@? "ReservedDBInstancesOfferingId")+                <*>+                (x .@? "RecurringCharges" .!@ mempty >>=+                   may (parseXMLList "RecurringCharge"))+                <*> (x .@? "OfferingType")+                <*> (x .@? "UsagePrice")+                <*> (x .@? "FixedPrice")+                <*> (x .@? "Duration")++instance Hashable ReservedDBInstance where++instance NFData ReservedDBInstance where++-- | This data type is used as a response element in the 'DescribeReservedDBInstancesOfferings' action.+--+--+--+-- /See:/ 'reservedDBInstancesOffering' smart constructor.+data ReservedDBInstancesOffering = ReservedDBInstancesOffering'+  { _rdioCurrencyCode                  :: !(Maybe Text)+  , _rdioProductDescription            :: !(Maybe Text)+  , _rdioDBInstanceClass               :: !(Maybe Text)+  , _rdioMultiAZ                       :: !(Maybe Bool)+  , _rdioReservedDBInstancesOfferingId :: !(Maybe Text)+  , _rdioRecurringCharges              :: !(Maybe [RecurringCharge])+  , _rdioOfferingType                  :: !(Maybe Text)+  , _rdioUsagePrice                    :: !(Maybe Double)+  , _rdioFixedPrice                    :: !(Maybe Double)+  , _rdioDuration                      :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ReservedDBInstancesOffering' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rdioCurrencyCode' - The currency code for the reserved DB instance offering.+--+-- * 'rdioProductDescription' - The database engine used by the offering.+--+-- * 'rdioDBInstanceClass' - The DB instance class for the reserved DB instance.+--+-- * 'rdioMultiAZ' - Indicates if the offering applies to Multi-AZ deployments.+--+-- * 'rdioReservedDBInstancesOfferingId' - The offering identifier.+--+-- * 'rdioRecurringCharges' - The recurring price charged to run this reserved DB instance.+--+-- * 'rdioOfferingType' - The offering type.+--+-- * 'rdioUsagePrice' - The hourly price charged for this offering.+--+-- * 'rdioFixedPrice' - The fixed price charged for this offering.+--+-- * 'rdioDuration' - The duration of the offering in seconds.+reservedDBInstancesOffering+    :: ReservedDBInstancesOffering+reservedDBInstancesOffering =+  ReservedDBInstancesOffering'+  { _rdioCurrencyCode = Nothing+  , _rdioProductDescription = Nothing+  , _rdioDBInstanceClass = Nothing+  , _rdioMultiAZ = Nothing+  , _rdioReservedDBInstancesOfferingId = Nothing+  , _rdioRecurringCharges = Nothing+  , _rdioOfferingType = Nothing+  , _rdioUsagePrice = Nothing+  , _rdioFixedPrice = Nothing+  , _rdioDuration = Nothing+  }+++-- | The currency code for the reserved DB instance offering.+rdioCurrencyCode :: Lens' ReservedDBInstancesOffering (Maybe Text)+rdioCurrencyCode = lens _rdioCurrencyCode (\ s a -> s{_rdioCurrencyCode = a});++-- | The database engine used by the offering.+rdioProductDescription :: Lens' ReservedDBInstancesOffering (Maybe Text)+rdioProductDescription = lens _rdioProductDescription (\ s a -> s{_rdioProductDescription = a});++-- | The DB instance class for the reserved DB instance.+rdioDBInstanceClass :: Lens' ReservedDBInstancesOffering (Maybe Text)+rdioDBInstanceClass = lens _rdioDBInstanceClass (\ s a -> s{_rdioDBInstanceClass = a});++-- | Indicates if the offering applies to Multi-AZ deployments.+rdioMultiAZ :: Lens' ReservedDBInstancesOffering (Maybe Bool)+rdioMultiAZ = lens _rdioMultiAZ (\ s a -> s{_rdioMultiAZ = a});++-- | The offering identifier.+rdioReservedDBInstancesOfferingId :: Lens' ReservedDBInstancesOffering (Maybe Text)+rdioReservedDBInstancesOfferingId = lens _rdioReservedDBInstancesOfferingId (\ s a -> s{_rdioReservedDBInstancesOfferingId = a});++-- | The recurring price charged to run this reserved DB instance.+rdioRecurringCharges :: Lens' ReservedDBInstancesOffering [RecurringCharge]+rdioRecurringCharges = lens _rdioRecurringCharges (\ s a -> s{_rdioRecurringCharges = a}) . _Default . _Coerce;++-- | The offering type.+rdioOfferingType :: Lens' ReservedDBInstancesOffering (Maybe Text)+rdioOfferingType = lens _rdioOfferingType (\ s a -> s{_rdioOfferingType = a});++-- | The hourly price charged for this offering.+rdioUsagePrice :: Lens' ReservedDBInstancesOffering (Maybe Double)+rdioUsagePrice = lens _rdioUsagePrice (\ s a -> s{_rdioUsagePrice = a});++-- | The fixed price charged for this offering.+rdioFixedPrice :: Lens' ReservedDBInstancesOffering (Maybe Double)+rdioFixedPrice = lens _rdioFixedPrice (\ s a -> s{_rdioFixedPrice = a});++-- | The duration of the offering in seconds.+rdioDuration :: Lens' ReservedDBInstancesOffering (Maybe Int)+rdioDuration = lens _rdioDuration (\ s a -> s{_rdioDuration = a});++instance FromXML ReservedDBInstancesOffering where+        parseXML x+          = ReservedDBInstancesOffering' <$>+              (x .@? "CurrencyCode") <*>+                (x .@? "ProductDescription")+                <*> (x .@? "DBInstanceClass")+                <*> (x .@? "MultiAZ")+                <*> (x .@? "ReservedDBInstancesOfferingId")+                <*>+                (x .@? "RecurringCharges" .!@ mempty >>=+                   may (parseXMLList "RecurringCharge"))+                <*> (x .@? "OfferingType")+                <*> (x .@? "UsagePrice")+                <*> (x .@? "FixedPrice")+                <*> (x .@? "Duration")++instance Hashable ReservedDBInstancesOffering where++instance NFData ReservedDBInstancesOffering where++-- | Describes the pending maintenance actions for a resource.+--+--+--+-- /See:/ 'resourcePendingMaintenanceActions' smart constructor.+data ResourcePendingMaintenanceActions = ResourcePendingMaintenanceActions'+  { _rpmaPendingMaintenanceActionDetails :: !(Maybe [PendingMaintenanceAction])+  , _rpmaResourceIdentifier              :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ResourcePendingMaintenanceActions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rpmaPendingMaintenanceActionDetails' - A list that provides details about the pending maintenance actions for the resource.+--+-- * 'rpmaResourceIdentifier' - The ARN of the resource that has pending maintenance actions.+resourcePendingMaintenanceActions+    :: ResourcePendingMaintenanceActions+resourcePendingMaintenanceActions =+  ResourcePendingMaintenanceActions'+  { _rpmaPendingMaintenanceActionDetails = Nothing+  , _rpmaResourceIdentifier = Nothing+  }+++-- | A list that provides details about the pending maintenance actions for the resource.+rpmaPendingMaintenanceActionDetails :: Lens' ResourcePendingMaintenanceActions [PendingMaintenanceAction]+rpmaPendingMaintenanceActionDetails = lens _rpmaPendingMaintenanceActionDetails (\ s a -> s{_rpmaPendingMaintenanceActionDetails = a}) . _Default . _Coerce;++-- | The ARN of the resource that has pending maintenance actions.+rpmaResourceIdentifier :: Lens' ResourcePendingMaintenanceActions (Maybe Text)+rpmaResourceIdentifier = lens _rpmaResourceIdentifier (\ s a -> s{_rpmaResourceIdentifier = a});++instance FromXML ResourcePendingMaintenanceActions+         where+        parseXML x+          = ResourcePendingMaintenanceActions' <$>+              (x .@? "PendingMaintenanceActionDetails" .!@ mempty+                 >>= may (parseXMLList "PendingMaintenanceAction"))+                <*> (x .@? "ResourceIdentifier")++instance Hashable ResourcePendingMaintenanceActions+         where++instance NFData ResourcePendingMaintenanceActions+         where++-- | 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' - The status of the source AWS Region.+--+-- * 'srRegionName' - The name of the source AWS Region.+--+-- * 'srEndpoint' - The endpoint for the source AWS Region endpoint.+sourceRegion+    :: SourceRegion+sourceRegion =+  SourceRegion'+  {_srStatus = Nothing, _srRegionName = Nothing, _srEndpoint = Nothing}+++-- | The status of the source AWS Region.+srStatus :: Lens' SourceRegion (Maybe Text)+srStatus = lens _srStatus (\ s a -> s{_srStatus = a});++-- | The name of the source AWS Region.+srRegionName :: Lens' SourceRegion (Maybe Text)+srRegionName = lens _srRegionName (\ s a -> s{_srRegionName = a});++-- | The endpoint for the source AWS 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 where++instance NFData SourceRegion where++-- | This data type is used as a response element in the 'DescribeDBSubnetGroups' action.+--+--+--+-- /See:/ 'subnet' smart constructor.+data Subnet = Subnet'+  { _sSubnetStatus           :: !(Maybe Text)+  , _sSubnetIdentifier       :: !(Maybe Text)+  , _sSubnetAvailabilityZone :: !(Maybe AvailabilityZone)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Subnet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sSubnetStatus' - Specifies the status of the subnet.+--+-- * 'sSubnetIdentifier' - Specifies the identifier of the subnet.+--+-- * 'sSubnetAvailabilityZone' - Undocumented member.+subnet+    :: Subnet+subnet =+  Subnet'+  { _sSubnetStatus = Nothing+  , _sSubnetIdentifier = Nothing+  , _sSubnetAvailabilityZone = Nothing+  }+++-- | Specifies the status of the subnet.+sSubnetStatus :: Lens' Subnet (Maybe Text)+sSubnetStatus = lens _sSubnetStatus (\ s a -> s{_sSubnetStatus = a});++-- | Specifies the identifier of the subnet.+sSubnetIdentifier :: Lens' Subnet (Maybe Text)+sSubnetIdentifier = lens _sSubnetIdentifier (\ s a -> s{_sSubnetIdentifier = a});++-- | Undocumented member.+sSubnetAvailabilityZone :: Lens' Subnet (Maybe AvailabilityZone)+sSubnetAvailabilityZone = lens _sSubnetAvailabilityZone (\ s a -> s{_sSubnetAvailabilityZone = a});++instance FromXML Subnet where+        parseXML x+          = Subnet' <$>+              (x .@? "SubnetStatus") <*> (x .@? "SubnetIdentifier")+                <*> (x .@? "SubnetAvailabilityZone")++instance Hashable Subnet where++instance NFData Subnet where++-- | Metadata assigned to an Amazon RDS resource consisting of a key-value pair.+--+--+--+-- /See:/ 'tag' smart constructor.+data Tag = Tag'+  { _tagValue :: !(Maybe Text)+  , _tagKey   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Tag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tagValue' - A value is the optional value of the tag. The string value can be from 1 to 256 Unicode characters in length and cannot be prefixed with "aws:" or "rds:". The string can only contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").+--+-- * 'tagKey' - A key is the required name of the tag. The string value can be from 1 to 128 Unicode characters in length and cannot be prefixed with "aws:" or "rds:". The string can only contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").+tag+    :: Tag+tag = Tag' {_tagValue = Nothing, _tagKey = Nothing}+++-- | A value is the optional value of the tag. The string value can be from 1 to 256 Unicode characters in length and cannot be prefixed with "aws:" or "rds:". The string can only contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").+tagValue :: Lens' Tag (Maybe Text)+tagValue = lens _tagValue (\ s a -> s{_tagValue = a});++-- | A key is the required name of the tag. The string value can be from 1 to 128 Unicode characters in length and cannot be prefixed with "aws:" or "rds:". The string can only contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").+tagKey :: Lens' Tag (Maybe Text)+tagKey = lens _tagKey (\ s a -> s{_tagKey = a});++instance FromXML Tag where+        parseXML x+          = Tag' <$> (x .@? "Value") <*> (x .@? "Key")++instance Hashable Tag where++instance NFData Tag where++instance ToQuery Tag where+        toQuery Tag'{..}+          = mconcat ["Value" =: _tagValue, "Key" =: _tagKey]++-- | A time zone associated with a 'DBInstance' or a 'DBSnapshot' . This data type is an element in the response to the 'DescribeDBInstances' , the 'DescribeDBSnapshots' , and the 'DescribeDBEngineVersions' actions.+--+--+--+-- /See:/ 'timezone' smart constructor.+newtype Timezone = Timezone'+  { _tTimezoneName :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Timezone' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tTimezoneName' - The name of the time zone.+timezone+    :: Timezone+timezone = Timezone' {_tTimezoneName = Nothing}+++-- | The name of the time zone.+tTimezoneName :: Lens' Timezone (Maybe Text)+tTimezoneName = lens _tTimezoneName (\ s a -> s{_tTimezoneName = a});++instance FromXML Timezone where+        parseXML x = Timezone' <$> (x .@? "TimezoneName")++instance Hashable Timezone where++instance NFData Timezone where++-- | The version of the database engine that a DB instance can be upgraded to.+--+--+--+-- /See:/ 'upgradeTarget' smart constructor.+data UpgradeTarget = UpgradeTarget'+  { _utEngineVersion         :: !(Maybe Text)+  , _utIsMajorVersionUpgrade :: !(Maybe Bool)+  , _utEngine                :: !(Maybe Text)+  , _utAutoUpgrade           :: !(Maybe Bool)+  , _utDescription           :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UpgradeTarget' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'utEngineVersion' - The version number of the upgrade target database engine.+--+-- * 'utIsMajorVersionUpgrade' - A value that indicates whether a database engine is upgraded to a major version.+--+-- * 'utEngine' - The name of the upgrade target database engine.+--+-- * 'utAutoUpgrade' - A value that indicates whether the target version is applied to any source DB instances that have AutoMinorVersionUpgrade set to true.+--+-- * 'utDescription' - The version of the database engine that a DB instance can be upgraded to.+upgradeTarget+    :: UpgradeTarget+upgradeTarget =+  UpgradeTarget'+  { _utEngineVersion = Nothing+  , _utIsMajorVersionUpgrade = Nothing+  , _utEngine = Nothing+  , _utAutoUpgrade = Nothing+  , _utDescription = Nothing+  }+++-- | The version number of the upgrade target database engine.+utEngineVersion :: Lens' UpgradeTarget (Maybe Text)+utEngineVersion = lens _utEngineVersion (\ s a -> s{_utEngineVersion = a});++-- | A value that indicates whether a database engine is upgraded to a major version.+utIsMajorVersionUpgrade :: Lens' UpgradeTarget (Maybe Bool)+utIsMajorVersionUpgrade = lens _utIsMajorVersionUpgrade (\ s a -> s{_utIsMajorVersionUpgrade = a});++-- | The name of the upgrade target database engine.+utEngine :: Lens' UpgradeTarget (Maybe Text)+utEngine = lens _utEngine (\ s a -> s{_utEngine = a});++-- | A value that indicates whether the target version is applied to any source DB instances that have AutoMinorVersionUpgrade set to true.+utAutoUpgrade :: Lens' UpgradeTarget (Maybe Bool)+utAutoUpgrade = lens _utAutoUpgrade (\ s a -> s{_utAutoUpgrade = a});++-- | The version of the database engine that a DB instance can be upgraded to.+utDescription :: Lens' UpgradeTarget (Maybe Text)+utDescription = lens _utDescription (\ s a -> s{_utDescription = a});++instance FromXML UpgradeTarget where+        parseXML x+          = UpgradeTarget' <$>+              (x .@? "EngineVersion") <*>+                (x .@? "IsMajorVersionUpgrade")+                <*> (x .@? "Engine")+                <*> (x .@? "AutoUpgrade")+                <*> (x .@? "Description")++instance Hashable UpgradeTarget where++instance NFData UpgradeTarget where++-- | This data type is used as a response element for queries on VPC security group membership.+--+--+--+-- /See:/ 'vpcSecurityGroupMembership' smart constructor.+data VPCSecurityGroupMembership = VPCSecurityGroupMembership'+  { _vsgmStatus             :: !(Maybe Text)+  , _vsgmVPCSecurityGroupId :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'VPCSecurityGroupMembership' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vsgmStatus' - The status of the VPC security group.+--+-- * 'vsgmVPCSecurityGroupId' - The name of the VPC security group.+vpcSecurityGroupMembership+    :: VPCSecurityGroupMembership+vpcSecurityGroupMembership =+  VPCSecurityGroupMembership'+  {_vsgmStatus = Nothing, _vsgmVPCSecurityGroupId = Nothing}+++-- | The status of the VPC security group.+vsgmStatus :: Lens' VPCSecurityGroupMembership (Maybe Text)+vsgmStatus = lens _vsgmStatus (\ s a -> s{_vsgmStatus = a});++-- | The name of the VPC security group.+vsgmVPCSecurityGroupId :: Lens' VPCSecurityGroupMembership (Maybe Text)+vsgmVPCSecurityGroupId = lens _vsgmVPCSecurityGroupId (\ s a -> s{_vsgmVPCSecurityGroupId = a});++instance FromXML VPCSecurityGroupMembership where+        parseXML x+          = VPCSecurityGroupMembership' <$>+              (x .@? "Status") <*> (x .@? "VpcSecurityGroupId")++instance Hashable VPCSecurityGroupMembership where++instance NFData VPCSecurityGroupMembership where++-- | Information about valid modifications that you can make to your DB instance. Contains the result of a successful call to the 'DescribeValidDBInstanceModifications' action. You can use this information when you call 'ModifyDBInstance' .+--+--+--+-- /See:/ 'validDBInstanceModificationsMessage' smart constructor.+newtype ValidDBInstanceModificationsMessage = ValidDBInstanceModificationsMessage'+  { _vdimmStorage :: Maybe [ValidStorageOptions]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ValidDBInstanceModificationsMessage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vdimmStorage' - Valid storage options for your DB instance.+validDBInstanceModificationsMessage+    :: ValidDBInstanceModificationsMessage+validDBInstanceModificationsMessage =+  ValidDBInstanceModificationsMessage' {_vdimmStorage = Nothing}+++-- | Valid storage options for your DB instance.+vdimmStorage :: Lens' ValidDBInstanceModificationsMessage [ValidStorageOptions]+vdimmStorage = lens _vdimmStorage (\ s a -> s{_vdimmStorage = a}) . _Default . _Coerce;++instance FromXML ValidDBInstanceModificationsMessage+         where+        parseXML x+          = ValidDBInstanceModificationsMessage' <$>+              (x .@? "Storage" .!@ mempty >>=+                 may (parseXMLList "ValidStorageOptions"))++instance Hashable ValidDBInstanceModificationsMessage+         where++instance NFData ValidDBInstanceModificationsMessage+         where++-- | Information about valid modifications that you can make to your DB instance. Contains the result of a successful call to the 'DescribeValidDBInstanceModifications' action.+--+--+--+-- /See:/ 'validStorageOptions' smart constructor.+data ValidStorageOptions = ValidStorageOptions'+  { _vsoStorageSize        :: !(Maybe [Range])+  , _vsoProvisionedIOPS    :: !(Maybe [Range])+  , _vsoIOPSToStorageRatio :: !(Maybe [DoubleRange])+  , _vsoStorageType        :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ValidStorageOptions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vsoStorageSize' - The valid range of storage in gigabytes. For example, 100 to 6144.+--+-- * 'vsoProvisionedIOPS' - The valid range of provisioned IOPS. For example, 1000-20000.+--+-- * 'vsoIOPSToStorageRatio' - The valid range of Provisioned IOPS to gigabytes of storage multiplier. For example, 3-10, which means that provisioned IOPS can be between 3 and 10 times storage.+--+-- * 'vsoStorageType' - The valid storage types for your DB instance. For example, gp2, io1.+validStorageOptions+    :: ValidStorageOptions+validStorageOptions =+  ValidStorageOptions'+  { _vsoStorageSize = Nothing+  , _vsoProvisionedIOPS = Nothing+  , _vsoIOPSToStorageRatio = Nothing+  , _vsoStorageType = Nothing+  }+++-- | The valid range of storage in gigabytes. For example, 100 to 6144.+vsoStorageSize :: Lens' ValidStorageOptions [Range]+vsoStorageSize = lens _vsoStorageSize (\ s a -> s{_vsoStorageSize = a}) . _Default . _Coerce;++-- | The valid range of provisioned IOPS. For example, 1000-20000.+vsoProvisionedIOPS :: Lens' ValidStorageOptions [Range]+vsoProvisionedIOPS = lens _vsoProvisionedIOPS (\ s a -> s{_vsoProvisionedIOPS = a}) . _Default . _Coerce;++-- | The valid range of Provisioned IOPS to gigabytes of storage multiplier. For example, 3-10, which means that provisioned IOPS can be between 3 and 10 times storage.+vsoIOPSToStorageRatio :: Lens' ValidStorageOptions [DoubleRange]+vsoIOPSToStorageRatio = lens _vsoIOPSToStorageRatio (\ s a -> s{_vsoIOPSToStorageRatio = a}) . _Default . _Coerce;++-- | The valid storage types for your DB instance. For example, gp2, io1.+vsoStorageType :: Lens' ValidStorageOptions (Maybe Text)+vsoStorageType = lens _vsoStorageType (\ s a -> s{_vsoStorageType = a});++instance FromXML ValidStorageOptions where+        parseXML x+          = ValidStorageOptions' <$>+              (x .@? "StorageSize" .!@ mempty >>=+                 may (parseXMLList "Range"))+                <*>+                (x .@? "ProvisionedIops" .!@ mempty >>=+                   may (parseXMLList "Range"))+                <*>+                (x .@? "IopsToStorageRatio" .!@ mempty >>=+                   may (parseXMLList "DoubleRange"))+                <*> (x .@? "StorageType")++instance Hashable ValidStorageOptions where++instance NFData ValidStorageOptions where
gen/Network/AWS/RDS/Types/Sum.hs view
@@ -9,21 +9,22 @@  -- | -- Module      : Network.AWS.RDS.Types.Sum--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.RDS.Types.Sum where -import           Network.AWS.Prelude+import Network.AWS.Prelude  data ApplyMethod-    = Immediate-    | PendingReboot-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Immediate+  | PendingReboot+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ApplyMethod where     parser = takeLowerText >>= \case         "immediate" -> pure Immediate@@ -46,13 +47,14 @@     parseXML = parseXMLText "ApplyMethod"  data SourceType-    = DBCluster-    | DBClusterSnapshot-    | DBInstance-    | DBParameterGroup-    | DBSecurityGroup-    | DBSnapshot-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = DBCluster+  | DBClusterSnapshot+  | DBInstance+  | DBParameterGroup+  | DBSecurityGroup+  | DBSnapshot+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+  instance FromText SourceType where     parser = takeLowerText >>= \case
gen/Network/AWS/RDS/Waiters.hs view
@@ -7,117 +7,125 @@  -- | -- Module      : Network.AWS.RDS.Waiters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.RDS.Waiters where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.RDS.DescribeDBInstances-import           Network.AWS.RDS.DescribeDBInstances-import           Network.AWS.RDS.DescribeDBSnapshots-import           Network.AWS.RDS.Types-import           Network.AWS.Waiter+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.RDS.DescribeDBInstances+import Network.AWS.RDS.DescribeDBInstances+import Network.AWS.RDS.DescribeDBSnapshots+import Network.AWS.RDS.Types+import Network.AWS.Waiter  -- | Polls 'Network.AWS.RDS.DescribeDBInstances' every 30 seconds until a successful state is reached. An error is returned after 60 failed checks. dbInstanceAvailable :: Wait DescribeDBInstances dbInstanceAvailable =-    Wait-    { _waitName = "DBInstanceAvailable"-    , _waitAttempts = 60-    , _waitDelay = 30-    , _waitAcceptors = [ matchAll-                             "available"-                             AcceptSuccess-                             (folding (concatOf ddbirsDBInstances) .-                              diDBInstanceStatus . _Just . to toTextCI)-                       , matchAny-                             "deleted"-                             AcceptFailure-                             (folding (concatOf ddbirsDBInstances) .-                              diDBInstanceStatus . _Just . to toTextCI)-                       , matchAny-                             "deleting"-                             AcceptFailure-                             (folding (concatOf ddbirsDBInstances) .-                              diDBInstanceStatus . _Just . to toTextCI)-                       , matchAny-                             "failed"-                             AcceptFailure-                             (folding (concatOf ddbirsDBInstances) .-                              diDBInstanceStatus . _Just . to toTextCI)-                       , matchAny-                             "incompatible-restore"-                             AcceptFailure-                             (folding (concatOf ddbirsDBInstances) .-                              diDBInstanceStatus . _Just . to toTextCI)-                       , matchAny-                             "incompatible-parameters"-                             AcceptFailure-                             (folding (concatOf ddbirsDBInstances) .-                              diDBInstanceStatus . _Just . to toTextCI)-                       , matchAny-                             "incompatible-parameters"-                             AcceptFailure-                             (folding (concatOf ddbirsDBInstances) .-                              diDBInstanceStatus . _Just . to toTextCI)-                       , matchAny-                             "incompatible-restore"-                             AcceptFailure-                             (folding (concatOf ddbirsDBInstances) .-                              diDBInstanceStatus . _Just . to toTextCI)]-    }+  Wait+  { _waitName = "DBInstanceAvailable"+  , _waitAttempts = 60+  , _waitDelay = 30+  , _waitAcceptors =+      [ matchAll+          "available"+          AcceptSuccess+          (folding (concatOf ddbirsDBInstances) .+           diDBInstanceStatus . _Just . to toTextCI)+      , matchAny+          "deleted"+          AcceptFailure+          (folding (concatOf ddbirsDBInstances) .+           diDBInstanceStatus . _Just . to toTextCI)+      , matchAny+          "deleting"+          AcceptFailure+          (folding (concatOf ddbirsDBInstances) .+           diDBInstanceStatus . _Just . to toTextCI)+      , matchAny+          "failed"+          AcceptFailure+          (folding (concatOf ddbirsDBInstances) .+           diDBInstanceStatus . _Just . to toTextCI)+      , matchAny+          "incompatible-restore"+          AcceptFailure+          (folding (concatOf ddbirsDBInstances) .+           diDBInstanceStatus . _Just . to toTextCI)+      , matchAny+          "incompatible-parameters"+          AcceptFailure+          (folding (concatOf ddbirsDBInstances) .+           diDBInstanceStatus . _Just . to toTextCI)+      , matchAny+          "incompatible-parameters"+          AcceptFailure+          (folding (concatOf ddbirsDBInstances) .+           diDBInstanceStatus . _Just . to toTextCI)+      , matchAny+          "incompatible-restore"+          AcceptFailure+          (folding (concatOf ddbirsDBInstances) .+           diDBInstanceStatus . _Just . to toTextCI)+      ]+  } + -- | Polls 'Network.AWS.RDS.DescribeDBSnapshots' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. dbSnapshotCompleted :: Wait DescribeDBSnapshots dbSnapshotCompleted =-    Wait-    { _waitName = "DBSnapshotCompleted"-    , _waitAttempts = 40-    , _waitDelay = 15-    , _waitAcceptors = [ matchError "DBSnapshotNotFound" AcceptSuccess-                       , matchAll-                             "available"-                             AcceptSuccess-                             (folding (concatOf ddsrsDBSnapshots) .-                              dsStatus . _Just . to toTextCI)]-    }+  Wait+  { _waitName = "DBSnapshotCompleted"+  , _waitAttempts = 40+  , _waitDelay = 15+  , _waitAcceptors =+      [ matchError "DBSnapshotNotFound" AcceptSuccess+      , matchAll+          "available"+          AcceptSuccess+          (folding (concatOf ddsrsDBSnapshots) . dsStatus . _Just . to toTextCI)+      ]+  } + -- | Polls 'Network.AWS.RDS.DescribeDBInstances' every 30 seconds until a successful state is reached. An error is returned after 60 failed checks. dbInstanceDeleted :: Wait DescribeDBInstances dbInstanceDeleted =-    Wait-    { _waitName = "DBInstanceDeleted"-    , _waitAttempts = 60-    , _waitDelay = 30-    , _waitAcceptors = [ matchError "DBInstanceNotFound" AcceptSuccess-                       , matchAll-                             "deleted"-                             AcceptSuccess-                             (folding (concatOf ddbirsDBInstances) .-                              diDBInstanceStatus . _Just . to toTextCI)-                       , matchAny-                             "creating"-                             AcceptFailure-                             (folding (concatOf ddbirsDBInstances) .-                              diDBInstanceStatus . _Just . to toTextCI)-                       , matchAny-                             "modifying"-                             AcceptFailure-                             (folding (concatOf ddbirsDBInstances) .-                              diDBInstanceStatus . _Just . to toTextCI)-                       , matchAny-                             "rebooting"-                             AcceptFailure-                             (folding (concatOf ddbirsDBInstances) .-                              diDBInstanceStatus . _Just . to toTextCI)-                       , matchAny-                             "resetting-master-credentials"-                             AcceptFailure-                             (folding (concatOf ddbirsDBInstances) .-                              diDBInstanceStatus . _Just . to toTextCI)]-    }+  Wait+  { _waitName = "DBInstanceDeleted"+  , _waitAttempts = 60+  , _waitDelay = 30+  , _waitAcceptors =+      [ matchError "DBInstanceNotFound" AcceptSuccess+      , matchAll+          "deleted"+          AcceptSuccess+          (folding (concatOf ddbirsDBInstances) .+           diDBInstanceStatus . _Just . to toTextCI)+      , matchAny+          "creating"+          AcceptFailure+          (folding (concatOf ddbirsDBInstances) .+           diDBInstanceStatus . _Just . to toTextCI)+      , matchAny+          "modifying"+          AcceptFailure+          (folding (concatOf ddbirsDBInstances) .+           diDBInstanceStatus . _Just . to toTextCI)+      , matchAny+          "rebooting"+          AcceptFailure+          (folding (concatOf ddbirsDBInstances) .+           diDBInstanceStatus . _Just . to toTextCI)+      , matchAny+          "resetting-master-credentials"+          AcceptFailure+          (folding (concatOf ddbirsDBInstances) .+           diDBInstanceStatus . _Just . to toTextCI)+      ]+  }+
test/Main.hs view
@@ -2,9 +2,9 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --
test/Test/AWS/Gen/RDS.hs view
@@ -5,20 +5,20 @@  -- | -- Module      : Test.AWS.Gen.RDS--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.RDS where  import Data.Proxy+import Network.AWS.RDS import Test.AWS.Fixture import Test.AWS.Prelude-import Test.Tasty-import Network.AWS.RDS import Test.AWS.RDS.Internal+import Test.Tasty  -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.@@ -37,6 +37,9 @@ --         , requestDescribeDBEngineVersions $ --             describeDBEngineVersions --+--         , requestStopDBInstance $+--             stopDBInstance+-- --         , requestCopyDBSnapshot $ --             copyDBSnapshot --@@ -151,6 +154,9 @@ --         , requestDeleteDBClusterSnapshot $ --             deleteDBClusterSnapshot --+--         , requestDescribeValidDBInstanceModifications $+--             describeValidDBInstanceModifications+-- --         , requestDescribeOptionGroupOptions $ --             describeOptionGroupOptions --@@ -190,6 +196,9 @@ --         , requestDescribeEventCategories $ --             describeEventCategories --+--         , requestStartDBInstance $+--             startDBInstance+-- --         , requestModifyDBClusterParameterGroup $ --             modifyDBClusterParameterGroup --@@ -199,6 +208,9 @@ --         , requestDescribeDBClusterSnapshotAttributes $ --             describeDBClusterSnapshotAttributes --+--         , requestModifyDBSnapshot $+--             modifyDBSnapshot+-- --         , requestDescribePendingMaintenanceActions $ --             describePendingMaintenanceActions --@@ -298,6 +310,9 @@ --         , responseDescribeDBEngineVersions $ --             describeDBEngineVersionsResponse --+--         , responseStopDBInstance $+--             stopDBInstanceResponse+-- --         , responseCopyDBSnapshot $ --             copyDBSnapshotResponse --@@ -412,6 +427,9 @@ --         , responseDeleteDBClusterSnapshot $ --             deleteDBClusterSnapshotResponse --+--         , responseDescribeValidDBInstanceModifications $+--             describeValidDBInstanceModificationsResponse+-- --         , responseDescribeOptionGroupOptions $ --             describeOptionGroupOptionsResponse --@@ -451,6 +469,9 @@ --         , responseDescribeEventCategories $ --             describeEventCategoriesResponse --+--         , responseStartDBInstance $+--             startDBInstanceResponse+-- --         , responseModifyDBClusterParameterGroup $ --             dbClusterParameterGroupNameMessage --@@ -460,6 +481,9 @@ --         , responseDescribeDBClusterSnapshotAttributes $ --             describeDBClusterSnapshotAttributesResponse --+--         , responseModifyDBSnapshot $+--             modifyDBSnapshotResponse+-- --         , responseDescribePendingMaintenanceActions $ --             describePendingMaintenanceActionsResponse --@@ -567,6 +591,11 @@     "DescribeDBEngineVersions"     "fixture/DescribeDBEngineVersions.yaml" +requestStopDBInstance :: StopDBInstance -> TestTree+requestStopDBInstance = req+    "StopDBInstance"+    "fixture/StopDBInstance.yaml"+ requestCopyDBSnapshot :: CopyDBSnapshot -> TestTree requestCopyDBSnapshot = req     "CopyDBSnapshot"@@ -757,6 +786,11 @@     "DeleteDBClusterSnapshot"     "fixture/DeleteDBClusterSnapshot.yaml" +requestDescribeValidDBInstanceModifications :: DescribeValidDBInstanceModifications -> TestTree+requestDescribeValidDBInstanceModifications = req+    "DescribeValidDBInstanceModifications"+    "fixture/DescribeValidDBInstanceModifications.yaml"+ requestDescribeOptionGroupOptions :: DescribeOptionGroupOptions -> TestTree requestDescribeOptionGroupOptions = req     "DescribeOptionGroupOptions"@@ -822,6 +856,11 @@     "DescribeEventCategories"     "fixture/DescribeEventCategories.yaml" +requestStartDBInstance :: StartDBInstance -> TestTree+requestStartDBInstance = req+    "StartDBInstance"+    "fixture/StartDBInstance.yaml"+ requestModifyDBClusterParameterGroup :: ModifyDBClusterParameterGroup -> TestTree requestModifyDBClusterParameterGroup = req     "ModifyDBClusterParameterGroup"@@ -837,6 +876,11 @@     "DescribeDBClusterSnapshotAttributes"     "fixture/DescribeDBClusterSnapshotAttributes.yaml" +requestModifyDBSnapshot :: ModifyDBSnapshot -> TestTree+requestModifyDBSnapshot = req+    "ModifyDBSnapshot"+    "fixture/ModifyDBSnapshot.yaml"+ requestDescribePendingMaintenanceActions :: DescribePendingMaintenanceActions -> TestTree requestDescribePendingMaintenanceActions = req     "DescribePendingMaintenanceActions"@@ -1005,6 +1049,13 @@     rds     (Proxy :: Proxy DescribeDBEngineVersions) +responseStopDBInstance :: StopDBInstanceResponse -> TestTree+responseStopDBInstance = res+    "StopDBInstanceResponse"+    "fixture/StopDBInstanceResponse.proto"+    rds+    (Proxy :: Proxy StopDBInstance)+ responseCopyDBSnapshot :: CopyDBSnapshotResponse -> TestTree responseCopyDBSnapshot = res     "CopyDBSnapshotResponse"@@ -1271,6 +1322,13 @@     rds     (Proxy :: Proxy DeleteDBClusterSnapshot) +responseDescribeValidDBInstanceModifications :: DescribeValidDBInstanceModificationsResponse -> TestTree+responseDescribeValidDBInstanceModifications = res+    "DescribeValidDBInstanceModificationsResponse"+    "fixture/DescribeValidDBInstanceModificationsResponse.proto"+    rds+    (Proxy :: Proxy DescribeValidDBInstanceModifications)+ responseDescribeOptionGroupOptions :: DescribeOptionGroupOptionsResponse -> TestTree responseDescribeOptionGroupOptions = res     "DescribeOptionGroupOptionsResponse"@@ -1362,6 +1420,13 @@     rds     (Proxy :: Proxy DescribeEventCategories) +responseStartDBInstance :: StartDBInstanceResponse -> TestTree+responseStartDBInstance = res+    "StartDBInstanceResponse"+    "fixture/StartDBInstanceResponse.proto"+    rds+    (Proxy :: Proxy StartDBInstance)+ responseModifyDBClusterParameterGroup :: DBClusterParameterGroupNameMessage -> TestTree responseModifyDBClusterParameterGroup = res     "ModifyDBClusterParameterGroupResponse"@@ -1382,6 +1447,13 @@     "fixture/DescribeDBClusterSnapshotAttributesResponse.proto"     rds     (Proxy :: Proxy DescribeDBClusterSnapshotAttributes)++responseModifyDBSnapshot :: ModifyDBSnapshotResponse -> TestTree+responseModifyDBSnapshot = res+    "ModifyDBSnapshotResponse"+    "fixture/ModifyDBSnapshotResponse.proto"+    rds+    (Proxy :: Proxy ModifyDBSnapshot)  responseDescribePendingMaintenanceActions :: DescribePendingMaintenanceActionsResponse -> TestTree responseDescribePendingMaintenanceActions = res