amazonka-rds 0.3.6 → 1.0.0

raw patch · 87 files changed

+21067/−12548 lines, 87 filesdep +amazonka-rdsdep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: amazonka-rds, amazonka-test, bytestring, lens, tasty, tasty-hunit, text, time, unordered-containers

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +43/−7
• amazonka-rds.cabal +90/−11
• gen/Network/AWS/RDS.hs +1126/−140
• gen/Network/AWS/RDS/AddSourceIdentifierToSubscription.hs +118/−95
• gen/Network/AWS/RDS/AddTagsToResource.hs +77/−69
• gen/Network/AWS/RDS/ApplyPendingMaintenanceAction.hs +118/−97
• gen/Network/AWS/RDS/AuthorizeDBSecurityGroupIngress.hs +150/−129
• gen/Network/AWS/RDS/CopyDBClusterSnapshot.hs +166/−0
• gen/Network/AWS/RDS/CopyDBParameterGroup.hs +136/−117
• gen/Network/AWS/RDS/CopyDBSnapshot.hs +135/−104
• gen/Network/AWS/RDS/CopyOptionGroup.hs +135/−114
• gen/Network/AWS/RDS/CreateDBCluster.hs +371/−0
• gen/Network/AWS/RDS/CreateDBClusterParameterGroup.hs +203/−0
• gen/Network/AWS/RDS/CreateDBClusterSnapshot.hs +166/−0
• gen/Network/AWS/RDS/CreateDBInstance.hs +961/−763
• gen/Network/AWS/RDS/CreateDBInstanceReadReplica.hs +257/−226
• gen/Network/AWS/RDS/CreateDBParameterGroup.hs +147/−129
• gen/Network/AWS/RDS/CreateDBSecurityGroup.hs +117/−100
• gen/Network/AWS/RDS/CreateDBSnapshot.hs +120/−105
• gen/Network/AWS/RDS/CreateDBSubnetGroup.hs +120/−106
• gen/Network/AWS/RDS/CreateEventSubscription.hs +180/−156
• gen/Network/AWS/RDS/CreateOptionGroup.hs +130/−116
• gen/Network/AWS/RDS/DeleteDBCluster.hs +174/−0
• gen/Network/AWS/RDS/DeleteDBClusterParameterGroup.hs +112/−0
• gen/Network/AWS/RDS/DeleteDBClusterSnapshot.hs +134/−0
• gen/Network/AWS/RDS/DeleteDBInstance.hs +145/−118
• gen/Network/AWS/RDS/DeleteDBParameterGroup.hs +72/−65
• gen/Network/AWS/RDS/DeleteDBSecurityGroup.hs +77/−67
• gen/Network/AWS/RDS/DeleteDBSnapshot.hs +93/−81
• gen/Network/AWS/RDS/DeleteDBSubnetGroup.hs +72/−64
• gen/Network/AWS/RDS/DeleteEventSubscription.hs +89/−75
• gen/Network/AWS/RDS/DeleteOptionGroup.hs +66/−62
• gen/Network/AWS/RDS/DescribeAccountAttributes.hs +93/−77
• gen/Network/AWS/RDS/DescribeCertificates.hs +139/−121
• gen/Network/AWS/RDS/DescribeDBClusterParameterGroups.hs +199/−0
• gen/Network/AWS/RDS/DescribeDBClusterParameters.hs +206/−0
• gen/Network/AWS/RDS/DescribeDBClusterSnapshots.hs +229/−0
• gen/Network/AWS/RDS/DescribeDBClusters.hs +190/−0
• gen/Network/AWS/RDS/DescribeDBEngineVersions.hs +188/−167
• gen/Network/AWS/RDS/DescribeDBInstances.hs +153/−129
• gen/Network/AWS/RDS/DescribeDBLogFiles.hs +176/−158
• gen/Network/AWS/RDS/DescribeDBParameterGroups.hs +154/−130
• gen/Network/AWS/RDS/DescribeDBParameters.hs +158/−136
• gen/Network/AWS/RDS/DescribeDBSecurityGroups.hs +151/−128
• gen/Network/AWS/RDS/DescribeDBSnapshots.hs +180/−155
• gen/Network/AWS/RDS/DescribeDBSubnetGroups.hs +149/−124
• gen/Network/AWS/RDS/DescribeEngineDefaultClusterParameters.hs +177/−0
• gen/Network/AWS/RDS/DescribeEngineDefaultParameters.hs +144/−112
• gen/Network/AWS/RDS/DescribeEventCategories.hs +105/−92
• gen/Network/AWS/RDS/DescribeEventSubscriptions.hs +150/−128
• gen/Network/AWS/RDS/DescribeEvents.hs +208/−180
• gen/Network/AWS/RDS/DescribeOptionGroupOptions.hs +152/−128
• gen/Network/AWS/RDS/DescribeOptionGroups.hs +158/−138
• gen/Network/AWS/RDS/DescribeOrderableDBInstanceOptions.hs +194/−167
• gen/Network/AWS/RDS/DescribePendingMaintenanceActions.hs +146/−118
• gen/Network/AWS/RDS/DescribeReservedDBInstances.hs +205/−187
• gen/Network/AWS/RDS/DescribeReservedDBInstancesOfferings.hs +206/−179
• gen/Network/AWS/RDS/DownloadDBLogFilePortion.hs +177/−155
• gen/Network/AWS/RDS/FailoverDBCluster.hs +142/−0
• gen/Network/AWS/RDS/ListTagsForResource.hs +102/−87
• gen/Network/AWS/RDS/ModifyDBCluster.hs +309/−0
• gen/Network/AWS/RDS/ModifyDBClusterParameterGroup.hs +129/−0
• gen/Network/AWS/RDS/ModifyDBInstance.hs +510/−464
• gen/Network/AWS/RDS/ModifyDBParameterGroup.hs +100/−116
• gen/Network/AWS/RDS/ModifyDBSubnetGroup.hs +109/−96
• gen/Network/AWS/RDS/ModifyEventSubscription.hs +139/−119
• gen/Network/AWS/RDS/ModifyOptionGroup.hs +123/−107
• gen/Network/AWS/RDS/PromoteReadReplica.hs +130/−115
• gen/Network/AWS/RDS/PurchaseReservedDBInstancesOffering.hs +123/−106
• gen/Network/AWS/RDS/RebootDBInstance.hs +120/−107
• gen/Network/AWS/RDS/RemoveSourceIdentifierFromSubscription.hs +109/−89
• gen/Network/AWS/RDS/RemoveTagsFromResource.hs +76/−66
• gen/Network/AWS/RDS/ResetDBClusterParameterGroup.hs +134/−0
• gen/Network/AWS/RDS/ResetDBParameterGroup.hs +104/−120
• gen/Network/AWS/RDS/RestoreDBClusterFromSnapshot.hs +264/−0
• gen/Network/AWS/RDS/RestoreDBClusterToPointInTime.hs +255/−0
• gen/Network/AWS/RDS/RestoreDBInstanceFromDBSnapshot.hs +367/−293
• gen/Network/AWS/RDS/RestoreDBInstanceToPointInTime.hs +381/−310
• gen/Network/AWS/RDS/RevokeDBSecurityGroupIngress.hs +143/−131
• gen/Network/AWS/RDS/Types.hs +1029/−4135
• gen/Network/AWS/RDS/Types/Product.hs +4054/−0
• gen/Network/AWS/RDS/Types/Sum.hs +76/−0
• gen/Network/AWS/RDS/Waiters.hs +109/−62
• test/Main.hs +21/−0
• test/Test/AWS/Gen/RDS.hs +1331/−0
• test/Test/AWS/RDS.hs +75/−0
• test/Test/AWS/RDS/Internal.hs +16/−0

@@ -1,22 +1,58 @@ # Amazon Relational Database Service SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## Description -Amazon Relational Database Service (Amazon RDS) is a web service that makes-it easy to set up, operate, and scale a relational database in the cloud. It-provides cost-efficient and resizable capacity while managing time-consuming-database administration tasks, freeing you up to focus on your applications-and business.+Amazon Relational Database Service +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 RDS gives you access to the capabilities of a MySQL, PostgreSQL,+Microsoft SQL Server, Oracle, or Aurora database server. This means 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.++This is an interface reference for Amazon RDS. It contains documentation+for a programming or command line interface you can use to manage Amazon+RDS. Note that Amazon RDS is asynchronous, which means that some+interfaces might require techniques such as polling or callback+functions to determine when a command has been applied. In this+reference, the parameter descriptions indicate whether a command is+applied immediately, on the next instance reboot, or during the+maintenance window. For a summary of the Amazon RDS interfaces, go to+<http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Welcome.html#Welcome.Interfaces Available RDS Interfaces>.+ Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-rds) and the [AWS API Reference](http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/Welcome.html). +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),+which provides mechanisms for specifying AuthN/AuthZ information and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount of nesting of AWS types and transparency regarding+de/serialisation into more palatable Haskell values.+The provided lenses should be compatible with any of the major lens libraries+[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).  ## Contribute 

@@ -1,29 +1,60 @@ name:                  amazonka-rds-version:               0.3.6+version:               1.0.0 synopsis:              Amazon Relational Database Service SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2014 Brendan Hay+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md cabal-version:         >= 1.10  description:-    Amazon Relational Database Service (Amazon RDS) is a web service that makes-    it easy to set up, operate, and scale a relational database in the cloud. It-    provides cost-efficient and resizable capacity while managing time-consuming-    database administration tasks, freeing you up to focus on your applications-    and business.+    Amazon Relational Database Service +    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 RDS gives you access to the capabilities of a MySQL, PostgreSQL,+    Microsoft SQL Server, Oracle, or Aurora database server. This means 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.++    This is an interface reference for Amazon RDS. It contains documentation+    for a programming or command line interface you can use to manage Amazon+    RDS. Note that Amazon RDS is asynchronous, which means that some+    interfaces might require techniques such as polling or callback+    functions to determine when a command has been applied. In this+    reference, the parameter descriptions indicate whether a command is+    applied immediately, on the next instance reboot, or during the+    maintenance window. For a summary of the Amazon RDS interfaces, go to+    <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Welcome.html#Welcome.Interfaces Available RDS Interfaces>.     .-    /See:/ <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/Welcome.html AWS API Reference>+    The types from this library are intended to be used with+    <http://hackage.haskell.org/package/amazonka amazonka>, which provides+    mechanisms for specifying AuthN/AuthZ information and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount of nesting of AWS types and transparency regarding+    de/serialisation into more palatable Haskell values.+    The provided lenses should be compatible with any of the major lens libraries+    such as <http://hackage.haskell.org/package/lens lens> or+    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+    .+    See "Network.AWS.RDS" and the <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/Welcome.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -41,9 +72,13 @@         , Network.AWS.RDS.AddTagsToResource         , Network.AWS.RDS.ApplyPendingMaintenanceAction         , Network.AWS.RDS.AuthorizeDBSecurityGroupIngress+        , Network.AWS.RDS.CopyDBClusterSnapshot         , Network.AWS.RDS.CopyDBParameterGroup         , Network.AWS.RDS.CopyDBSnapshot         , Network.AWS.RDS.CopyOptionGroup+        , Network.AWS.RDS.CreateDBCluster+        , Network.AWS.RDS.CreateDBClusterParameterGroup+        , Network.AWS.RDS.CreateDBClusterSnapshot         , Network.AWS.RDS.CreateDBInstance         , Network.AWS.RDS.CreateDBInstanceReadReplica         , Network.AWS.RDS.CreateDBParameterGroup@@ -52,6 +87,9 @@         , Network.AWS.RDS.CreateDBSubnetGroup         , Network.AWS.RDS.CreateEventSubscription         , Network.AWS.RDS.CreateOptionGroup+        , Network.AWS.RDS.DeleteDBCluster+        , Network.AWS.RDS.DeleteDBClusterParameterGroup+        , Network.AWS.RDS.DeleteDBClusterSnapshot         , Network.AWS.RDS.DeleteDBInstance         , Network.AWS.RDS.DeleteDBParameterGroup         , Network.AWS.RDS.DeleteDBSecurityGroup@@ -61,6 +99,10 @@         , Network.AWS.RDS.DeleteOptionGroup         , Network.AWS.RDS.DescribeAccountAttributes         , Network.AWS.RDS.DescribeCertificates+        , Network.AWS.RDS.DescribeDBClusterParameterGroups+        , Network.AWS.RDS.DescribeDBClusterParameters+        , Network.AWS.RDS.DescribeDBClusterSnapshots+        , Network.AWS.RDS.DescribeDBClusters         , Network.AWS.RDS.DescribeDBEngineVersions         , Network.AWS.RDS.DescribeDBInstances         , Network.AWS.RDS.DescribeDBLogFiles@@ -69,6 +111,7 @@         , Network.AWS.RDS.DescribeDBSecurityGroups         , Network.AWS.RDS.DescribeDBSnapshots         , Network.AWS.RDS.DescribeDBSubnetGroups+        , Network.AWS.RDS.DescribeEngineDefaultClusterParameters         , Network.AWS.RDS.DescribeEngineDefaultParameters         , Network.AWS.RDS.DescribeEventCategories         , Network.AWS.RDS.DescribeEventSubscriptions@@ -80,7 +123,10 @@         , Network.AWS.RDS.DescribeReservedDBInstances         , Network.AWS.RDS.DescribeReservedDBInstancesOfferings         , Network.AWS.RDS.DownloadDBLogFilePortion+        , Network.AWS.RDS.FailoverDBCluster         , Network.AWS.RDS.ListTagsForResource+        , Network.AWS.RDS.ModifyDBCluster+        , Network.AWS.RDS.ModifyDBClusterParameterGroup         , Network.AWS.RDS.ModifyDBInstance         , Network.AWS.RDS.ModifyDBParameterGroup         , Network.AWS.RDS.ModifyDBSubnetGroup@@ -91,7 +137,10 @@         , Network.AWS.RDS.RebootDBInstance         , Network.AWS.RDS.RemoveSourceIdentifierFromSubscription         , Network.AWS.RDS.RemoveTagsFromResource+        , Network.AWS.RDS.ResetDBClusterParameterGroup         , Network.AWS.RDS.ResetDBParameterGroup+        , Network.AWS.RDS.RestoreDBClusterFromSnapshot+        , Network.AWS.RDS.RestoreDBClusterToPointInTime         , Network.AWS.RDS.RestoreDBInstanceFromDBSnapshot         , Network.AWS.RDS.RestoreDBInstanceToPointInTime         , Network.AWS.RDS.RevokeDBSecurityGroupIngress@@ -99,7 +148,37 @@         , Network.AWS.RDS.Waiters      other-modules:+          Network.AWS.RDS.Types.Product+        , Network.AWS.RDS.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 5++test-suite amazonka-rds-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.RDS+        , Test.AWS.Gen.RDS+        , Test.AWS.RDS.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-rds == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,140 +1,1126 @@--- Module      : Network.AWS.RDS--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)------ Derived from AWS service descriptions, licensed under Apache 2.0.---- | Amazon Relational Database Service (Amazon RDS) is a web service that makes--- it easy to set up, operate, and scale a relational database in the cloud. It--- provides cost-efficient and resizable capacity while managing time-consuming--- database administration tasks, freeing you up to focus on your applications--- and business.-module Network.AWS.RDS-    ( module Network.AWS.RDS.AddSourceIdentifierToSubscription-    , module Network.AWS.RDS.AddTagsToResource-    , module Network.AWS.RDS.ApplyPendingMaintenanceAction-    , module Network.AWS.RDS.AuthorizeDBSecurityGroupIngress-    , module Network.AWS.RDS.CopyDBParameterGroup-    , module Network.AWS.RDS.CopyDBSnapshot-    , module Network.AWS.RDS.CopyOptionGroup-    , module Network.AWS.RDS.CreateDBInstance-    , module Network.AWS.RDS.CreateDBInstanceReadReplica-    , module Network.AWS.RDS.CreateDBParameterGroup-    , module Network.AWS.RDS.CreateDBSecurityGroup-    , module Network.AWS.RDS.CreateDBSnapshot-    , module Network.AWS.RDS.CreateDBSubnetGroup-    , module Network.AWS.RDS.CreateEventSubscription-    , module Network.AWS.RDS.CreateOptionGroup-    , module Network.AWS.RDS.DeleteDBInstance-    , module Network.AWS.RDS.DeleteDBParameterGroup-    , module Network.AWS.RDS.DeleteDBSecurityGroup-    , module Network.AWS.RDS.DeleteDBSnapshot-    , module Network.AWS.RDS.DeleteDBSubnetGroup-    , module Network.AWS.RDS.DeleteEventSubscription-    , module Network.AWS.RDS.DeleteOptionGroup-    , module Network.AWS.RDS.DescribeAccountAttributes-    , module Network.AWS.RDS.DescribeCertificates-    , module Network.AWS.RDS.DescribeDBEngineVersions-    , module Network.AWS.RDS.DescribeDBInstances-    , module Network.AWS.RDS.DescribeDBLogFiles-    , module Network.AWS.RDS.DescribeDBParameterGroups-    , module Network.AWS.RDS.DescribeDBParameters-    , module Network.AWS.RDS.DescribeDBSecurityGroups-    , module Network.AWS.RDS.DescribeDBSnapshots-    , module Network.AWS.RDS.DescribeDBSubnetGroups-    , module Network.AWS.RDS.DescribeEngineDefaultParameters-    , module Network.AWS.RDS.DescribeEventCategories-    , module Network.AWS.RDS.DescribeEventSubscriptions-    , module Network.AWS.RDS.DescribeEvents-    , module Network.AWS.RDS.DescribeOptionGroupOptions-    , module Network.AWS.RDS.DescribeOptionGroups-    , module Network.AWS.RDS.DescribeOrderableDBInstanceOptions-    , module Network.AWS.RDS.DescribePendingMaintenanceActions-    , module Network.AWS.RDS.DescribeReservedDBInstances-    , module Network.AWS.RDS.DescribeReservedDBInstancesOfferings-    , module Network.AWS.RDS.DownloadDBLogFilePortion-    , module Network.AWS.RDS.ListTagsForResource-    , module Network.AWS.RDS.ModifyDBInstance-    , module Network.AWS.RDS.ModifyDBParameterGroup-    , module Network.AWS.RDS.ModifyDBSubnetGroup-    , module Network.AWS.RDS.ModifyEventSubscription-    , module Network.AWS.RDS.ModifyOptionGroup-    , module Network.AWS.RDS.PromoteReadReplica-    , module Network.AWS.RDS.PurchaseReservedDBInstancesOffering-    , module Network.AWS.RDS.RebootDBInstance-    , module Network.AWS.RDS.RemoveSourceIdentifierFromSubscription-    , module Network.AWS.RDS.RemoveTagsFromResource-    , module Network.AWS.RDS.ResetDBParameterGroup-    , module Network.AWS.RDS.RestoreDBInstanceFromDBSnapshot-    , module Network.AWS.RDS.RestoreDBInstanceToPointInTime-    , module Network.AWS.RDS.RevokeDBSecurityGroupIngress-    , module Network.AWS.RDS.Types-    , module Network.AWS.RDS.Waiters-    ) where--import Network.AWS.RDS.AddSourceIdentifierToSubscription-import Network.AWS.RDS.AddTagsToResource-import Network.AWS.RDS.ApplyPendingMaintenanceAction-import Network.AWS.RDS.AuthorizeDBSecurityGroupIngress-import Network.AWS.RDS.CopyDBParameterGroup-import Network.AWS.RDS.CopyDBSnapshot-import Network.AWS.RDS.CopyOptionGroup-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.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.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.DescribeDBSnapshots-import Network.AWS.RDS.DescribeDBSubnetGroups-import Network.AWS.RDS.DescribeEngineDefaultParameters-import Network.AWS.RDS.DescribeEventCategories-import Network.AWS.RDS.DescribeEventSubscriptions-import Network.AWS.RDS.DescribeEvents-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.DownloadDBLogFilePortion-import Network.AWS.RDS.ListTagsForResource-import Network.AWS.RDS.ModifyDBInstance-import Network.AWS.RDS.ModifyDBParameterGroup-import Network.AWS.RDS.ModifyDBSubnetGroup-import Network.AWS.RDS.ModifyEventSubscription-import Network.AWS.RDS.ModifyOptionGroup-import Network.AWS.RDS.PromoteReadReplica-import Network.AWS.RDS.PurchaseReservedDBInstancesOffering-import Network.AWS.RDS.RebootDBInstance-import Network.AWS.RDS.RemoveSourceIdentifierFromSubscription-import Network.AWS.RDS.RemoveTagsFromResource-import Network.AWS.RDS.ResetDBParameterGroup-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+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.RDS+-- Copyright   : (c) 2013-2015 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)+--+-- Amazon Relational Database Service+--+-- 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 RDS gives you access to the capabilities of a MySQL, PostgreSQL,+-- Microsoft SQL Server, Oracle, or Aurora database server. This means 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.+--+-- This is an interface reference for Amazon RDS. It contains documentation+-- for a programming or command line interface you can use to manage Amazon+-- RDS. Note that Amazon RDS is asynchronous, which means that some+-- interfaces might require techniques such as polling or callback+-- functions to determine when a command has been applied. In this+-- reference, the parameter descriptions indicate whether a command is+-- applied immediately, on the next instance reboot, or during the+-- maintenance window. For a summary of the Amazon RDS interfaces, go to+-- <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Welcome.html#Welcome.Interfaces Available RDS Interfaces>.+--+-- /See:/ <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/Welcome.html AWS API Reference>+module Network.AWS.RDS+    (+    -- * Service+      RDS++    -- * Errors+    -- $errors++    -- ** CertificateNotFoundFault+    , _CertificateNotFoundFault++    -- ** ReservedDBInstanceQuotaExceededFault+    , _ReservedDBInstanceQuotaExceededFault++    -- ** DBClusterSnapshotAlreadyExistsFault+    , _DBClusterSnapshotAlreadyExistsFault++    -- ** AuthorizationQuotaExceededFault+    , _AuthorizationQuotaExceededFault++    -- ** SourceNotFoundFault+    , _SourceNotFoundFault++    -- ** InvalidDBParameterGroupStateFault+    , _InvalidDBParameterGroupStateFault++    -- ** DBParameterGroupAlreadyExistsFault+    , _DBParameterGroupAlreadyExistsFault++    -- ** PointInTimeRestoreNotEnabledFault+    , _PointInTimeRestoreNotEnabledFault++    -- ** DBParameterGroupQuotaExceededFault+    , _DBParameterGroupQuotaExceededFault++    -- ** ProvisionedIOPSNotAvailableInAZFault+    , _ProvisionedIOPSNotAvailableInAZFault++    -- ** AuthorizationAlreadyExistsFault+    , _AuthorizationAlreadyExistsFault++    -- ** InsufficientDBClusterCapacityFault+    , _InsufficientDBClusterCapacityFault++    -- ** ReservedDBInstanceAlreadyExistsFault+    , _ReservedDBInstanceAlreadyExistsFault++    -- ** SubscriptionCategoryNotFoundFault+    , _SubscriptionCategoryNotFoundFault++    -- ** DBSubnetQuotaExceededFault+    , _DBSubnetQuotaExceededFault++    -- ** SubscriptionNotFoundFault+    , _SubscriptionNotFoundFault++    -- ** InvalidSubnet+    , _InvalidSubnet++    -- ** DBClusterNotFoundFault+    , _DBClusterNotFoundFault++    -- ** OptionGroupNotFoundFault+    , _OptionGroupNotFoundFault++    -- ** DBLogFileNotFoundFault+    , _DBLogFileNotFoundFault++    -- ** OptionGroupAlreadyExistsFault+    , _OptionGroupAlreadyExistsFault++    -- ** DBClusterAlreadyExistsFault+    , _DBClusterAlreadyExistsFault++    -- ** StorageTypeNotSupportedFault+    , _StorageTypeNotSupportedFault++    -- ** DBSecurityGroupQuotaExceededFault+    , _DBSecurityGroupQuotaExceededFault++    -- ** DBSnapshotNotFoundFault+    , _DBSnapshotNotFoundFault++    -- ** InvalidEventSubscriptionStateFault+    , _InvalidEventSubscriptionStateFault++    -- ** KMSKeyNotAccessibleFault+    , _KMSKeyNotAccessibleFault++    -- ** OptionGroupQuotaExceededFault+    , _OptionGroupQuotaExceededFault++    -- ** DBSecurityGroupAlreadyExistsFault+    , _DBSecurityGroupAlreadyExistsFault++    -- ** SnapshotQuotaExceededFault+    , _SnapshotQuotaExceededFault++    -- ** SNSTopicARNNotFoundFault+    , _SNSTopicARNNotFoundFault++    -- ** DBClusterQuotaExceededFault+    , _DBClusterQuotaExceededFault++    -- ** DBClusterParameterGroupNotFoundFault+    , _DBClusterParameterGroupNotFoundFault++    -- ** DBSubnetGroupAlreadyExistsFault+    , _DBSubnetGroupAlreadyExistsFault++    -- ** InstanceQuotaExceededFault+    , _InstanceQuotaExceededFault++    -- ** SNSNoAuthorizationFault+    , _SNSNoAuthorizationFault++    -- ** DBSecurityGroupNotFoundFault+    , _DBSecurityGroupNotFoundFault++    -- ** DBSecurityGroupNotSupportedFault+    , _DBSecurityGroupNotSupportedFault++    -- ** DomainNotFoundFault+    , _DomainNotFoundFault++    -- ** DBClusterSnapshotNotFoundFault+    , _DBClusterSnapshotNotFoundFault++    -- ** ReservedDBInstancesOfferingNotFoundFault+    , _ReservedDBInstancesOfferingNotFoundFault++    -- ** InvalidDBSubnetGroupFault+    , _InvalidDBSubnetGroupFault++    -- ** InvalidDBSubnetStateFault+    , _InvalidDBSubnetStateFault++    -- ** DBParameterGroupNotFoundFault+    , _DBParameterGroupNotFoundFault++    -- ** SNSInvalidTopicFault+    , _SNSInvalidTopicFault++    -- ** SubscriptionAlreadyExistFault+    , _SubscriptionAlreadyExistFault++    -- ** InvalidDBClusterSnapshotStateFault+    , _InvalidDBClusterSnapshotStateFault++    -- ** InsufficientDBInstanceCapacityFault+    , _InsufficientDBInstanceCapacityFault++    -- ** InvalidVPCNetworkStateFault+    , _InvalidVPCNetworkStateFault++    -- ** AuthorizationNotFoundFault+    , _AuthorizationNotFoundFault++    -- ** ReservedDBInstanceNotFoundFault+    , _ReservedDBInstanceNotFoundFault++    -- ** DBSubnetGroupQuotaExceededFault+    , _DBSubnetGroupQuotaExceededFault++    -- ** DBSubnetGroupNotAllowedFault+    , _DBSubnetGroupNotAllowedFault++    -- ** EventSubscriptionQuotaExceededFault+    , _EventSubscriptionQuotaExceededFault++    -- ** InvalidOptionGroupStateFault+    , _InvalidOptionGroupStateFault++    -- ** InvalidDBClusterStateFault+    , _InvalidDBClusterStateFault++    -- ** InsufficientStorageClusterCapacityFault+    , _InsufficientStorageClusterCapacityFault++    -- ** DBInstanceAlreadyExistsFault+    , _DBInstanceAlreadyExistsFault++    -- ** ResourceNotFoundFault+    , _ResourceNotFoundFault++    -- ** DBUpgradeDependencyFailureFault+    , _DBUpgradeDependencyFailureFault++    -- ** InvalidDBSecurityGroupStateFault+    , _InvalidDBSecurityGroupStateFault++    -- ** InsufficientDomainCapacityFault+    , _InsufficientDomainCapacityFault++    -- ** DBSubnetGroupNotFoundFault+    , _DBSubnetGroupNotFoundFault++    -- ** InvalidRestoreFault+    , _InvalidRestoreFault++    -- ** InvalidDBInstanceStateFault+    , _InvalidDBInstanceStateFault++    -- ** InvalidDBSnapshotStateFault+    , _InvalidDBSnapshotStateFault++    -- ** InvalidDBSubnetGroupStateFault+    , _InvalidDBSubnetGroupStateFault++    -- ** StorageQuotaExceededFault+    , _StorageQuotaExceededFault++    -- ** DBSnapshotAlreadyExistsFault+    , _DBSnapshotAlreadyExistsFault++    -- ** DBInstanceNotFoundFault+    , _DBInstanceNotFoundFault++    -- ** SubnetAlreadyInUse+    , _SubnetAlreadyInUse++    -- ** DBSubnetGroupDoesNotCoverEnoughAZs+    , _DBSubnetGroupDoesNotCoverEnoughAZs++    -- * Waiters+    -- $waiters++    -- ** DBInstanceAvailable+    , dbInstanceAvailable++    -- ** DBSnapshotCompleted+    , dbSnapshotCompleted++    -- ** DBInstanceDeleted+    , dbInstanceDeleted++    -- * Operations+    -- $operations++    -- ** DescribeDBEngineVersions (Paginated)+    , module Network.AWS.RDS.DescribeDBEngineVersions++    -- ** DescribeDBClusterParameterGroups+    , module Network.AWS.RDS.DescribeDBClusterParameterGroups++    -- ** PromoteReadReplica+    , module Network.AWS.RDS.PromoteReadReplica++    -- ** ModifyEventSubscription+    , module Network.AWS.RDS.ModifyEventSubscription++    -- ** CopyDBSnapshot+    , module Network.AWS.RDS.CopyDBSnapshot++    -- ** AddSourceIdentifierToSubscription+    , module Network.AWS.RDS.AddSourceIdentifierToSubscription++    -- ** ModifyDBInstance+    , module Network.AWS.RDS.ModifyDBInstance++    -- ** ResetDBClusterParameterGroup+    , module Network.AWS.RDS.ResetDBClusterParameterGroup++    -- ** DescribeEvents (Paginated)+    , module Network.AWS.RDS.DescribeEvents++    -- ** DescribeEngineDefaultParameters (Paginated)+    , module Network.AWS.RDS.DescribeEngineDefaultParameters++    -- ** DescribeDBClusters+    , module Network.AWS.RDS.DescribeDBClusters++    -- ** ModifyDBSubnetGroup+    , module Network.AWS.RDS.ModifyDBSubnetGroup++    -- ** DescribeDBLogFiles (Paginated)+    , module Network.AWS.RDS.DescribeDBLogFiles++    -- ** ListTagsForResource+    , module Network.AWS.RDS.ListTagsForResource++    -- ** DescribeOptionGroups (Paginated)+    , module Network.AWS.RDS.DescribeOptionGroups++    -- ** DeleteDBCluster+    , module Network.AWS.RDS.DeleteDBCluster++    -- ** RemoveSourceIdentifierFromSubscription+    , module Network.AWS.RDS.RemoveSourceIdentifierFromSubscription++    -- ** CopyDBParameterGroup+    , module Network.AWS.RDS.CopyDBParameterGroup++    -- ** DescribeReservedDBInstances (Paginated)+    , module Network.AWS.RDS.DescribeReservedDBInstances++    -- ** DeleteOptionGroup+    , module Network.AWS.RDS.DeleteOptionGroup++    -- ** DescribeEngineDefaultClusterParameters+    , module Network.AWS.RDS.DescribeEngineDefaultClusterParameters++    -- ** CreateEventSubscription+    , module Network.AWS.RDS.CreateEventSubscription++    -- ** RemoveTagsFromResource+    , module Network.AWS.RDS.RemoveTagsFromResource++    -- ** CreateDBInstance+    , module Network.AWS.RDS.CreateDBInstance++    -- ** RestoreDBInstanceFromDBSnapshot+    , module Network.AWS.RDS.RestoreDBInstanceFromDBSnapshot++    -- ** AuthorizeDBSecurityGroupIngress+    , module Network.AWS.RDS.AuthorizeDBSecurityGroupIngress++    -- ** DeleteDBClusterParameterGroup+    , module Network.AWS.RDS.DeleteDBClusterParameterGroup++    -- ** PurchaseReservedDBInstancesOffering+    , module Network.AWS.RDS.PurchaseReservedDBInstancesOffering++    -- ** DescribeCertificates+    , module Network.AWS.RDS.DescribeCertificates++    -- ** RestoreDBClusterFromSnapshot+    , module Network.AWS.RDS.RestoreDBClusterFromSnapshot++    -- ** CreateDBSnapshot+    , module Network.AWS.RDS.CreateDBSnapshot++    -- ** DeleteEventSubscription+    , module Network.AWS.RDS.DeleteEventSubscription++    -- ** DescribeDBParameterGroups (Paginated)+    , module Network.AWS.RDS.DescribeDBParameterGroups++    -- ** DescribeOrderableDBInstanceOptions (Paginated)+    , module Network.AWS.RDS.DescribeOrderableDBInstanceOptions++    -- ** CreateDBClusterParameterGroup+    , module Network.AWS.RDS.CreateDBClusterParameterGroup++    -- ** DescribeEventSubscriptions (Paginated)+    , module Network.AWS.RDS.DescribeEventSubscriptions++    -- ** AddTagsToResource+    , module Network.AWS.RDS.AddTagsToResource++    -- ** DescribeOptionGroupOptions (Paginated)+    , module Network.AWS.RDS.DescribeOptionGroupOptions++    -- ** DescribeDBParameters (Paginated)+    , module Network.AWS.RDS.DescribeDBParameters++    -- ** DeleteDBClusterSnapshot+    , module Network.AWS.RDS.DeleteDBClusterSnapshot++    -- ** DescribeDBSnapshots (Paginated)+    , module Network.AWS.RDS.DescribeDBSnapshots++    -- ** DescribeDBSubnetGroups (Paginated)+    , module Network.AWS.RDS.DescribeDBSubnetGroups++    -- ** CreateDBParameterGroup+    , module Network.AWS.RDS.CreateDBParameterGroup++    -- ** CreateDBClusterSnapshot+    , module Network.AWS.RDS.CreateDBClusterSnapshot++    -- ** ModifyOptionGroup+    , module Network.AWS.RDS.ModifyOptionGroup++    -- ** ModifyDBCluster+    , module Network.AWS.RDS.ModifyDBCluster++    -- ** DescribeEventCategories+    , module Network.AWS.RDS.DescribeEventCategories++    -- ** ModifyDBClusterParameterGroup+    , module Network.AWS.RDS.ModifyDBClusterParameterGroup++    -- ** DescribePendingMaintenanceActions+    , module Network.AWS.RDS.DescribePendingMaintenanceActions++    -- ** RestoreDBInstanceToPointInTime+    , module Network.AWS.RDS.RestoreDBInstanceToPointInTime++    -- ** ResetDBParameterGroup+    , module Network.AWS.RDS.ResetDBParameterGroup++    -- ** CopyDBClusterSnapshot+    , module Network.AWS.RDS.CopyDBClusterSnapshot++    -- ** ModifyDBParameterGroup+    , module Network.AWS.RDS.ModifyDBParameterGroup++    -- ** FailoverDBCluster+    , module Network.AWS.RDS.FailoverDBCluster++    -- ** CreateDBCluster+    , module Network.AWS.RDS.CreateDBCluster++    -- ** CreateOptionGroup+    , module Network.AWS.RDS.CreateOptionGroup++    -- ** ApplyPendingMaintenanceAction+    , module Network.AWS.RDS.ApplyPendingMaintenanceAction++    -- ** RevokeDBSecurityGroupIngress+    , module Network.AWS.RDS.RevokeDBSecurityGroupIngress++    -- ** DeleteDBSnapshot+    , module Network.AWS.RDS.DeleteDBSnapshot++    -- ** DescribeDBClusterParameters+    , module Network.AWS.RDS.DescribeDBClusterParameters++    -- ** CreateDBSecurityGroup+    , module Network.AWS.RDS.CreateDBSecurityGroup++    -- ** DeleteDBSubnetGroup+    , module Network.AWS.RDS.DeleteDBSubnetGroup++    -- ** DescribeAccountAttributes+    , module Network.AWS.RDS.DescribeAccountAttributes++    -- ** DeleteDBSecurityGroup+    , module Network.AWS.RDS.DeleteDBSecurityGroup++    -- ** RebootDBInstance+    , module Network.AWS.RDS.RebootDBInstance++    -- ** DescribeDBClusterSnapshots+    , module Network.AWS.RDS.DescribeDBClusterSnapshots++    -- ** CreateDBSubnetGroup+    , module Network.AWS.RDS.CreateDBSubnetGroup++    -- ** DescribeReservedDBInstancesOfferings (Paginated)+    , module Network.AWS.RDS.DescribeReservedDBInstancesOfferings++    -- ** DeleteDBInstance+    , module Network.AWS.RDS.DeleteDBInstance++    -- ** DescribeDBInstances (Paginated)+    , module Network.AWS.RDS.DescribeDBInstances++    -- ** CopyOptionGroup+    , module Network.AWS.RDS.CopyOptionGroup++    -- ** DownloadDBLogFilePortion (Paginated)+    , module Network.AWS.RDS.DownloadDBLogFilePortion++    -- ** CreateDBInstanceReadReplica+    , module Network.AWS.RDS.CreateDBInstanceReadReplica++    -- ** RestoreDBClusterToPointInTime+    , module Network.AWS.RDS.RestoreDBClusterToPointInTime++    -- ** DeleteDBParameterGroup+    , module Network.AWS.RDS.DeleteDBParameterGroup++    -- ** DescribeDBSecurityGroups (Paginated)+    , module Network.AWS.RDS.DescribeDBSecurityGroups++    -- * Types++    -- ** ApplyMethod+    , ApplyMethod (..)++    -- ** SourceType+    , SourceType (..)++    -- ** AccountQuota+    , AccountQuota+    , accountQuota+    , aqMax+    , aqUsed+    , aqAccountQuotaName++    -- ** AvailabilityZone+    , AvailabilityZone+    , availabilityZone+    , azName++    -- ** Certificate+    , Certificate+    , certificate+    , cCertificateType+    , cValidTill+    , cCertificateIdentifier+    , cThumbprint+    , cValidFrom++    -- ** CharacterSet+    , CharacterSet+    , characterSet+    , csCharacterSetName+    , csCharacterSetDescription++    -- ** DBCluster+    , DBCluster+    , dbCluster+    , dcEngineVersion+    , dcStatus+    , dcDBClusterIdentifier+    , dcDBClusterMembers+    , dcDBClusterParameterGroup+    , dcMasterUsername+    , dcEarliestRestorableTime+    , dcEngine+    , dcLatestRestorableTime+    , dcPreferredMaintenanceWindow+    , dcCharacterSetName+    , dcAvailabilityZones+    , dcPreferredBackupWindow+    , dcVPCSecurityGroups+    , dcBackupRetentionPeriod+    , dcDatabaseName+    , dcDBSubnetGroup+    , dcAllocatedStorage+    , dcEndpoint+    , dcPercentProgress+    , dcPort+    , dcDBClusterOptionGroupMemberships++    -- ** DBClusterMember+    , DBClusterMember+    , dbClusterMember+    , dcmDBInstanceIdentifier+    , dcmIsClusterWriter+    , dcmDBClusterParameterGroupStatus++    -- ** DBClusterOptionGroupStatus+    , DBClusterOptionGroupStatus+    , dbClusterOptionGroupStatus+    , dcogsStatus+    , dcogsDBClusterOptionGroupName++    -- ** DBClusterParameterGroup+    , DBClusterParameterGroup+    , dbClusterParameterGroup+    , dcpgDBParameterGroupFamily+    , dcpgDBClusterParameterGroupName+    , dcpgDescription++    -- ** DBClusterParameterGroupNameMessage+    , DBClusterParameterGroupNameMessage+    , dbClusterParameterGroupNameMessage+    , dcpgnmDBClusterParameterGroupName++    -- ** DBClusterSnapshot+    , DBClusterSnapshot+    , dbClusterSnapshot+    , dcsEngineVersion+    , dcsStatus+    , dcsDBClusterIdentifier+    , dcsMasterUsername+    , dcsVPCId+    , dcsDBClusterSnapshotIdentifier+    , dcsEngine+    , dcsLicenseModel+    , dcsSnapshotType+    , dcsAvailabilityZones+    , dcsSnapshotCreateTime+    , dcsAllocatedStorage+    , dcsClusterCreateTime+    , dcsPercentProgress+    , dcsPort++    -- ** DBEngineVersion+    , DBEngineVersion+    , dbEngineVersion+    , devDBEngineVersionDescription+    , devEngineVersion+    , devDefaultCharacterSet+    , devSupportedCharacterSets+    , devEngine+    , devDBParameterGroupFamily+    , devDBEngineDescription++    -- ** DBInstance+    , DBInstance+    , dbInstance+    , diDBSecurityGroups+    , diEngineVersion+    , diStorageEncrypted+    , diDBClusterIdentifier+    , diAutoMinorVersionUpgrade+    , diMasterUsername+    , diPubliclyAccessible+    , diReadReplicaDBInstanceIdentifiers+    , diIOPS+    , diInstanceCreateTime+    , diReadReplicaSourceDBInstanceIdentifier+    , diEngine+    , diLatestRestorableTime+    , diDBInstanceClass+    , diLicenseModel+    , diPreferredMaintenanceWindow+    , diCharacterSetName+    , diDBInstanceIdentifier+    , diCACertificateIdentifier+    , diPreferredBackupWindow+    , diAvailabilityZone+    , diVPCSecurityGroups+    , diBackupRetentionPeriod+    , diKMSKeyId+    , diDBSubnetGroup+    , diMultiAZ+    , diSecondaryAvailabilityZone+    , diOptionGroupMemberships+    , diDBiResourceId+    , diAllocatedStorage+    , diEndpoint+    , diDBParameterGroups+    , diTDECredentialARN+    , diCopyTagsToSnapshot+    , diDBInstanceStatus+    , diDBInstancePort+    , diPendingModifiedValues+    , diStatusInfos+    , diDBName+    , diDomainMemberships+    , diStorageType++    -- ** DBInstanceStatusInfo+    , DBInstanceStatusInfo+    , dbInstanceStatusInfo+    , disiStatus+    , disiNormal+    , disiStatusType+    , disiMessage++    -- ** DBParameterGroup+    , DBParameterGroup+    , dbParameterGroup+    , dpgDBParameterGroupFamily+    , dpgDBParameterGroupName+    , dpgDescription++    -- ** DBParameterGroupNameMessage+    , DBParameterGroupNameMessage+    , dbParameterGroupNameMessage+    , dpgnmDBParameterGroupName++    -- ** DBParameterGroupStatus+    , DBParameterGroupStatus+    , dbParameterGroupStatus+    , dpgsDBParameterGroupName+    , dpgsParameterApplyStatus++    -- ** DBSecurityGroup+    , DBSecurityGroup+    , dbSecurityGroup+    , dsgVPCId+    , dsgOwnerId+    , dsgIPRanges+    , dsgDBSecurityGroupName+    , dsgEC2SecurityGroups+    , dsgDBSecurityGroupDescription++    -- ** DBSecurityGroupMembership+    , DBSecurityGroupMembership+    , dbSecurityGroupMembership+    , dsgmStatus+    , dsgmDBSecurityGroupName++    -- ** DBSnapshot+    , DBSnapshot+    , dbSnapshot+    , dsEngineVersion+    , dsStatus+    , dsMasterUsername+    , dsSourceRegion+    , dsIOPS+    , dsInstanceCreateTime+    , dsVPCId+    , dsEngine+    , dsEncrypted+    , dsDBSnapshotIdentifier+    , dsLicenseModel+    , dsSnapshotType+    , dsDBInstanceIdentifier+    , dsSourceDBSnapshotIdentifier+    , dsAvailabilityZone+    , dsKMSKeyId+    , dsSnapshotCreateTime+    , dsAllocatedStorage+    , dsTDECredentialARN+    , dsOptionGroupName+    , dsPercentProgress+    , dsPort+    , dsStorageType++    -- ** DBSubnetGroup+    , DBSubnetGroup+    , dbSubnetGroup+    , dbsgDBSubnetGroupName+    , dbsgVPCId+    , dbsgSubnets+    , dbsgDBSubnetGroupDescription+    , dbsgSubnetGroupStatus++    -- ** DescribeDBLogFilesDetails+    , DescribeDBLogFilesDetails+    , describeDBLogFilesDetails+    , ddlfdLastWritten+    , ddlfdSize+    , ddlfdLogFileName++    -- ** DomainMembership+    , DomainMembership+    , domainMembership+    , dmStatus+    , dmDomain+    , dmConnectivity++    -- ** EC2SecurityGroup+    , EC2SecurityGroup+    , ec2SecurityGroup+    , esgStatus+    , esgEC2SecurityGroupOwnerId+    , esgEC2SecurityGroupName+    , esgEC2SecurityGroupId++    -- ** Endpoint+    , Endpoint+    , endpoint+    , eAddress+    , ePort++    -- ** EngineDefaults+    , EngineDefaults+    , engineDefaults+    , edDBParameterGroupFamily+    , edParameters+    , edMarker++    -- ** Event+    , Event+    , event+    , eSourceType+    , eSourceIdentifier+    , eDate+    , eEventCategories+    , eMessage++    -- ** EventCategoriesMap+    , EventCategoriesMap+    , eventCategoriesMap+    , ecmSourceType+    , ecmEventCategories++    -- ** EventSubscription+    , EventSubscription+    , eventSubscription+    , esCustomerAWSId+    , esStatus+    , esCustSubscriptionId+    , esSNSTopicARN+    , esEnabled+    , esSourceType+    , esSubscriptionCreationTime+    , esEventCategoriesList+    , esSourceIdsList++    -- ** Filter+    , Filter+    , filter'+    , fName+    , fValues++    -- ** IPRange+    , IPRange+    , ipRange+    , irStatus+    , irCIdRIP++    -- ** Option+    , Option+    , option+    , oOptionName+    , oPermanent+    , oPersistent+    , oOptionDescription+    , oOptionSettings+    , oVPCSecurityGroupMemberships+    , oDBSecurityGroupMemberships+    , oPort++    -- ** OptionConfiguration+    , OptionConfiguration+    , optionConfiguration+    , ocOptionSettings+    , ocVPCSecurityGroupMemberships+    , ocDBSecurityGroupMemberships+    , ocPort+    , ocOptionName++    -- ** OptionGroup+    , OptionGroup+    , optionGroup+    , ogOptionGroupDescription+    , ogVPCId+    , ogAllowsVPCAndNonVPCInstanceMemberships+    , ogEngineName+    , ogMajorEngineVersion+    , ogOptions+    , ogOptionGroupName++    -- ** OptionGroupMembership+    , OptionGroupMembership+    , optionGroupMembership+    , ogmStatus+    , ogmOptionGroupName++    -- ** OptionGroupOption+    , OptionGroupOption+    , optionGroupOption+    , ogoMinimumRequiredMinorEngineVersion+    , ogoPermanent+    , ogoPersistent+    , ogoEngineName+    , ogoName+    , ogoMajorEngineVersion+    , ogoDefaultPort+    , ogoOptionGroupOptionSettings+    , ogoPortRequired+    , ogoOptionsDependedOn+    , ogoDescription++    -- ** OptionGroupOptionSetting+    , OptionGroupOptionSetting+    , optionGroupOptionSetting+    , ogosApplyType+    , ogosSettingName+    , ogosDefaultValue+    , ogosIsModifiable+    , ogosAllowedValues+    , ogosSettingDescription++    -- ** OptionSetting+    , OptionSetting+    , optionSetting+    , osIsCollection+    , osApplyType+    , osValue+    , osName+    , osDefaultValue+    , osIsModifiable+    , osAllowedValues+    , osDataType+    , osDescription++    -- ** OrderableDBInstanceOption+    , OrderableDBInstanceOption+    , orderableDBInstanceOption+    , odioEngineVersion+    , odioMultiAZCapable+    , odioEngine+    , odioSupportsIOPS+    , odioDBInstanceClass+    , odioLicenseModel+    , odioAvailabilityZones+    , odioReadReplicaCapable+    , odioSupportsStorageEncryption+    , odioVPC+    , odioStorageType++    -- ** Parameter+    , Parameter+    , parameter+    , pApplyType+    , pParameterValue+    , pApplyMethod+    , pMinimumEngineVersion+    , pSource+    , pIsModifiable+    , pAllowedValues+    , pDataType+    , pParameterName+    , pDescription++    -- ** PendingMaintenanceAction+    , PendingMaintenanceAction+    , pendingMaintenanceAction+    , pmaAutoAppliedAfterDate+    , pmaAction+    , pmaOptInStatus+    , pmaDescription+    , pmaCurrentApplyDate+    , pmaForcedApplyDate++    -- ** PendingModifiedValues+    , PendingModifiedValues+    , pendingModifiedValues+    , pmvEngineVersion+    , pmvMasterUserPassword+    , pmvIOPS+    , pmvDBInstanceClass+    , pmvDBInstanceIdentifier+    , pmvCACertificateIdentifier+    , pmvBackupRetentionPeriod+    , pmvMultiAZ+    , pmvAllocatedStorage+    , pmvPort+    , pmvStorageType++    -- ** RecurringCharge+    , RecurringCharge+    , recurringCharge+    , rcRecurringChargeFrequency+    , rcRecurringChargeAmount++    -- ** ReservedDBInstance+    , ReservedDBInstance+    , reservedDBInstance+    , rdiDBInstanceCount+    , rdiState+    , rdiCurrencyCode+    , rdiProductDescription+    , rdiStartTime+    , rdiReservedDBInstanceId+    , rdiDBInstanceClass+    , rdiMultiAZ+    , rdiReservedDBInstancesOfferingId+    , rdiOfferingType+    , rdiUsagePrice+    , rdiRecurringCharges+    , rdiFixedPrice+    , rdiDuration++    -- ** ReservedDBInstancesOffering+    , ReservedDBInstancesOffering+    , reservedDBInstancesOffering+    , rdioCurrencyCode+    , rdioProductDescription+    , rdioDBInstanceClass+    , rdioMultiAZ+    , rdioReservedDBInstancesOfferingId+    , rdioOfferingType+    , rdioUsagePrice+    , rdioRecurringCharges+    , rdioFixedPrice+    , rdioDuration++    -- ** ResourcePendingMaintenanceActions+    , ResourcePendingMaintenanceActions+    , resourcePendingMaintenanceActions+    , rpmaPendingMaintenanceActionDetails+    , rpmaResourceIdentifier++    -- ** Subnet+    , Subnet+    , subnet+    , sSubnetStatus+    , sSubnetIdentifier+    , sSubnetAvailabilityZone++    -- ** Tag+    , Tag+    , tag+    , tagValue+    , tagKey++    -- ** VPCSecurityGroupMembership+    , VPCSecurityGroupMembership+    , vpcSecurityGroupMembership+    , vsgmStatus+    , vsgmVPCSecurityGroupId+    ) where++import           Network.AWS.RDS.AddSourceIdentifierToSubscription+import           Network.AWS.RDS.AddTagsToResource+import           Network.AWS.RDS.ApplyPendingMaintenanceAction+import           Network.AWS.RDS.AuthorizeDBSecurityGroupIngress+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.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.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.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.ModifyDBInstance+import           Network.AWS.RDS.ModifyDBParameterGroup+import           Network.AWS.RDS.ModifyDBSubnetGroup+import           Network.AWS.RDS.ModifyEventSubscription+import           Network.AWS.RDS.ModifyOptionGroup+import           Network.AWS.RDS.PromoteReadReplica+import           Network.AWS.RDS.PurchaseReservedDBInstancesOffering+import           Network.AWS.RDS.RebootDBInstance+import           Network.AWS.RDS.RemoveSourceIdentifierFromSubscription+import           Network.AWS.RDS.RemoveTagsFromResource+import           Network.AWS.RDS.ResetDBClusterParameterGroup+import           Network.AWS.RDS.ResetDBParameterGroup+import           Network.AWS.RDS.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++{- $errors+Error matchers are designed for use with the functions provided by+<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+This allows catching (and rethrowing) service specific errors returned+by 'RDS'.+-}++{- $operations+Some AWS operations return results that are incomplete and require subsequent+requests in order to obtain the entire result set. The process of sending+subsequent requests to continue where a previous request left off is called+pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+1000 objects at a time, and you must send subsequent requests with the+appropriate Marker in order to retrieve the next page of results.++Operations that have an 'AWSPager' instance can transparently perform subsequent+requests, correctly setting Markers and other request facets to iterate through+the entire result set of a truncated API operation. Operations which support+this have an additional note in the documentation.++Many operations have the ability to filter results on the server side. See the+individual operation parameters for details.+-}++{- $waiters+Waiters poll by repeatedly sending a request until some remote success condition+configured by the 'Wait' specification is fulfilled. The 'Wait' specification+determines how many attempts should be made, in addition to delay and retry strategies.+-}

@@ -1,131 +1,154 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.AddSourceIdentifierToSubscription--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Adds a source identifier to an existing RDS event notification subscription.+-- Adds a source identifier to an existing RDS event notification+-- subscription. ----- <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_AddSourceIdentifierToSubscription.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_AddSourceIdentifierToSubscription.html AWS API Reference> for AddSourceIdentifierToSubscription. module Network.AWS.RDS.AddSourceIdentifierToSubscription     (-    -- * Request-      AddSourceIdentifierToSubscription-    -- ** Request constructor-    , addSourceIdentifierToSubscription-    -- ** Request lenses-    , asitsSourceIdentifier+    -- * Creating a Request+      addSourceIdentifierToSubscription+    , AddSourceIdentifierToSubscription+    -- * Request Lenses     , asitsSubscriptionName+    , asitsSourceIdentifier -    -- * Response-    , AddSourceIdentifierToSubscriptionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , addSourceIdentifierToSubscriptionResponse-    -- ** Response lenses-    , asitsrEventSubscription+    , AddSourceIdentifierToSubscriptionResponse+    -- * Response Lenses+    , asitsrsEventSubscription+    , asitsrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.RDS.Types-import qualified GHC.Exts--data AddSourceIdentifierToSubscription = AddSourceIdentifierToSubscription-    { _asitsSourceIdentifier :: Text-    , _asitsSubscriptionName :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'AddSourceIdentifierToSubscription' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /See:/ 'addSourceIdentifierToSubscription' smart constructor.+data AddSourceIdentifierToSubscription = AddSourceIdentifierToSubscription'+    { _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. ----- * 'asitsSourceIdentifier' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'asitsSubscriptionName' @::@ 'Text'+-- * 'asitsSubscriptionName' ---addSourceIdentifierToSubscription :: Text -- ^ 'asitsSubscriptionName'-                                  -> Text -- ^ 'asitsSourceIdentifier'-                                  -> AddSourceIdentifierToSubscription-addSourceIdentifierToSubscription p1 p2 = AddSourceIdentifierToSubscription-    { _asitsSubscriptionName = p1-    , _asitsSourceIdentifier = p2+-- * 'asitsSourceIdentifier'+addSourceIdentifierToSubscription+    :: Text -- ^ 'asitsSubscriptionName'+    -> Text -- ^ 'asitsSourceIdentifier'+    -> AddSourceIdentifierToSubscription+addSourceIdentifierToSubscription pSubscriptionName_ 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.+-- 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.+-- -   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 })+asitsSourceIdentifier = lens _asitsSourceIdentifier (\ s a -> s{_asitsSourceIdentifier = a}); --- | 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 })+instance AWSRequest AddSourceIdentifierToSubscription+         where+        type Sv AddSourceIdentifierToSubscription = RDS+        type Rs AddSourceIdentifierToSubscription =+             AddSourceIdentifierToSubscriptionResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "AddSourceIdentifierToSubscriptionResult"+              (\ s h x ->+                 AddSourceIdentifierToSubscriptionResponse' <$>+                   (x .@? "EventSubscription") <*> (pure (fromEnum s))) -newtype AddSourceIdentifierToSubscriptionResponse = AddSourceIdentifierToSubscriptionResponse-    { _asitsrEventSubscription :: Maybe EventSubscription-    } deriving (Eq, Read, Show)+instance ToHeaders AddSourceIdentifierToSubscription+         where+        toHeaders = const mempty --- | 'AddSourceIdentifierToSubscriptionResponse' constructor.+instance ToPath AddSourceIdentifierToSubscription+         where+        toPath = const "/"++instance ToQuery AddSourceIdentifierToSubscription+         where+        toQuery AddSourceIdentifierToSubscription'{..}+          = mconcat+              ["Action" =:+                 ("AddSourceIdentifierToSubscription" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "SubscriptionName" =: _asitsSubscriptionName,+               "SourceIdentifier" =: _asitsSourceIdentifier]++-- | /See:/ 'addSourceIdentifierToSubscriptionResponse' smart constructor.+data AddSourceIdentifierToSubscriptionResponse = AddSourceIdentifierToSubscriptionResponse'+    { _asitsrsEventSubscription :: !(Maybe EventSubscription)+    , _asitsrsStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AddSourceIdentifierToSubscriptionResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'asitsrEventSubscription' @::@ 'Maybe' 'EventSubscription'+-- * 'asitsrsEventSubscription' ---addSourceIdentifierToSubscriptionResponse :: AddSourceIdentifierToSubscriptionResponse-addSourceIdentifierToSubscriptionResponse = AddSourceIdentifierToSubscriptionResponse-    { _asitsrEventSubscription = Nothing+-- * 'asitsrsStatus'+addSourceIdentifierToSubscriptionResponse+    :: Int -- ^ 'asitsrsStatus'+    -> AddSourceIdentifierToSubscriptionResponse+addSourceIdentifierToSubscriptionResponse pStatus_ =+    AddSourceIdentifierToSubscriptionResponse'+    { _asitsrsEventSubscription = Nothing+    , _asitsrsStatus = pStatus_     } -asitsrEventSubscription :: Lens' AddSourceIdentifierToSubscriptionResponse (Maybe EventSubscription)-asitsrEventSubscription =-    lens _asitsrEventSubscription (\s a -> s { _asitsrEventSubscription = a })--instance ToPath AddSourceIdentifierToSubscription where-    toPath = const "/"--instance ToQuery AddSourceIdentifierToSubscription where-    toQuery AddSourceIdentifierToSubscription{..} = mconcat-        [ "SourceIdentifier" =? _asitsSourceIdentifier-        , "SubscriptionName" =? _asitsSubscriptionName-        ]--instance ToHeaders AddSourceIdentifierToSubscription--instance AWSRequest AddSourceIdentifierToSubscription where-    type Sv AddSourceIdentifierToSubscription = RDS-    type Rs AddSourceIdentifierToSubscription = AddSourceIdentifierToSubscriptionResponse--    request  = post "AddSourceIdentifierToSubscription"-    response = xmlResponse+-- | Undocumented member.+asitsrsEventSubscription :: Lens' AddSourceIdentifierToSubscriptionResponse (Maybe EventSubscription)+asitsrsEventSubscription = lens _asitsrsEventSubscription (\ s a -> s{_asitsrsEventSubscription = a}); -instance FromXML AddSourceIdentifierToSubscriptionResponse where-    parseXML = withElement "AddSourceIdentifierToSubscriptionResult" $ \x -> AddSourceIdentifierToSubscriptionResponse-        <$> x .@? "EventSubscription"+-- | The response status code.+asitsrsStatus :: Lens' AddSourceIdentifierToSubscriptionResponse Int+asitsrsStatus = lens _asitsrsStatus (\ s a -> s{_asitsrsStatus = a});

@@ -1,105 +1,113 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.AddTagsToResource--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Adds metadata tags to an Amazon RDS resource. These tags can also be used--- with cost allocation reporting to track cost associated with Amazon RDS--- resources, or used in Condition statement in IAM policy for Amazon RDS.+-- Adds metadata tags to an Amazon RDS resource. These tags can also be+-- used with cost allocation reporting to track cost associated with Amazon+-- RDS resources, or used in a Condition statement in an IAM policy for+-- Amazon RDS. ----- For an overview on tagging Amazon RDS resources, see <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Overview.Tagging.html Tagging Amazon RDSResources>.+-- For an overview on tagging Amazon RDS resources, see+-- <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/Overview.Tagging.html Tagging Amazon RDS Resources>. ----- <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_AddTagsToResource.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_AddTagsToResource.html AWS API Reference> for AddTagsToResource. module Network.AWS.RDS.AddTagsToResource     (-    -- * Request-      AddTagsToResource-    -- ** Request constructor-    , addTagsToResource-    -- ** Request lenses+    -- * Creating a Request+      addTagsToResource+    , AddTagsToResource+    -- * Request Lenses     , attrResourceName     , attrTags -    -- * Response-    , AddTagsToResourceResponse-    -- ** Response constructor+    -- * Destructuring the Response     , addTagsToResourceResponse+    , AddTagsToResourceResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.RDS.Types-import qualified GHC.Exts--data AddTagsToResource = AddTagsToResource-    { _attrResourceName :: Text-    , _attrTags         :: List "member" Tag-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'AddTagsToResource' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /See:/ 'addTagsToResource' smart constructor.+data AddTagsToResource = AddTagsToResource'+    { _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. ----- * 'attrResourceName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'attrTags' @::@ ['Tag']+-- * 'attrResourceName' ---addTagsToResource :: Text -- ^ 'attrResourceName'-                  -> AddTagsToResource-addTagsToResource p1 = AddTagsToResource-    { _attrResourceName = p1-    , _attrTags         = mempty+-- * 'attrTags'+addTagsToResource+    :: Text -- ^ 'attrResourceName'+    -> AddTagsToResource+addTagsToResource pResourceName_ =+    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.html#USER_Tagging.ARN  Constructingan RDS Amazon Resource Name (ARN)>.+-- | The Amazon RDS resource the tags will be added to. This value is an+-- Amazon Resource Name (ARN). For information about creating an ARN, see+-- <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.html#USER_Tagging.ARN Constructing an RDS Amazon Resource Name (ARN)>. attrResourceName :: Lens' AddTagsToResource Text-attrResourceName = lens _attrResourceName (\s a -> s { _attrResourceName = a })+attrResourceName = lens _attrResourceName (\ s a -> s{_attrResourceName = a});  -- | The tags to be assigned to the Amazon RDS resource. attrTags :: Lens' AddTagsToResource [Tag]-attrTags = lens _attrTags (\s a -> s { _attrTags = a }) . _List+attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce; -data AddTagsToResourceResponse = AddTagsToResourceResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest AddTagsToResource where+        type Sv AddTagsToResource = RDS+        type Rs AddTagsToResource = AddTagsToResourceResponse+        request = postQuery+        response = receiveNull AddTagsToResourceResponse' --- | 'AddTagsToResourceResponse' constructor.-addTagsToResourceResponse :: AddTagsToResourceResponse-addTagsToResourceResponse = AddTagsToResourceResponse+instance ToHeaders AddTagsToResource where+        toHeaders = const mempty  instance ToPath AddTagsToResource where-    toPath = const "/"+        toPath = const "/"  instance ToQuery AddTagsToResource where-    toQuery AddTagsToResource{..} = mconcat-        [ "ResourceName" =? _attrResourceName-        , "Tags"         =? _attrTags-        ]--instance ToHeaders AddTagsToResource+        toQuery AddTagsToResource'{..}+          = mconcat+              ["Action" =: ("AddTagsToResource" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "ResourceName" =: _attrResourceName,+               "Tags" =: toQueryList "Tag" _attrTags] -instance AWSRequest AddTagsToResource where-    type Sv AddTagsToResource = RDS-    type Rs AddTagsToResource = AddTagsToResourceResponse+-- | /See:/ 'addTagsToResourceResponse' smart constructor.+data AddTagsToResourceResponse =+    AddTagsToResourceResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "AddTagsToResource"-    response = nullResponse AddTagsToResourceResponse+-- | Creates a value of 'AddTagsToResourceResponse' with the minimum fields required to make a request.+--+addTagsToResourceResponse+    :: AddTagsToResourceResponse+addTagsToResourceResponse = AddTagsToResourceResponse'

@@ -1,141 +1,162 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.ApplyPendingMaintenanceAction--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Applies a pending maintenance action to a resource (for example, a DB+-- Applies a pending maintenance action to a resource (for example, to a DB -- instance). ----- <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_ApplyPendingMaintenanceAction.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_ApplyPendingMaintenanceAction.html AWS API Reference> for ApplyPendingMaintenanceAction. module Network.AWS.RDS.ApplyPendingMaintenanceAction     (-    -- * Request-      ApplyPendingMaintenanceAction-    -- ** Request constructor-    , applyPendingMaintenanceAction-    -- ** Request lenses+    -- * Creating a Request+      applyPendingMaintenanceAction+    , ApplyPendingMaintenanceAction+    -- * Request Lenses+    , apmaResourceIdentifier     , apmaApplyAction     , apmaOptInType-    , apmaResourceIdentifier -    -- * Response-    , ApplyPendingMaintenanceActionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , applyPendingMaintenanceActionResponse-    -- ** Response lenses-    , apmarResourcePendingMaintenanceActions+    , ApplyPendingMaintenanceActionResponse+    -- * Response Lenses+    , apmarsResourcePendingMaintenanceActions+    , apmarsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.RDS.Types-import qualified GHC.Exts--data ApplyPendingMaintenanceAction = ApplyPendingMaintenanceAction-    { _apmaApplyAction        :: Text-    , _apmaOptInType          :: Text-    , _apmaResourceIdentifier :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'ApplyPendingMaintenanceAction' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /See:/ 'applyPendingMaintenanceAction' smart constructor.+data ApplyPendingMaintenanceAction = ApplyPendingMaintenanceAction'+    { _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. ----- * 'apmaApplyAction' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'apmaOptInType' @::@ 'Text'+-- * 'apmaResourceIdentifier' ----- * 'apmaResourceIdentifier' @::@ 'Text'+-- * 'apmaApplyAction' ---applyPendingMaintenanceAction :: Text -- ^ 'apmaResourceIdentifier'-                              -> Text -- ^ 'apmaApplyAction'-                              -> Text -- ^ 'apmaOptInType'-                              -> ApplyPendingMaintenanceAction-applyPendingMaintenanceAction p1 p2 p3 = ApplyPendingMaintenanceAction-    { _apmaResourceIdentifier = p1-    , _apmaApplyAction        = p2-    , _apmaOptInType          = p3+-- * 'apmaOptInType'+applyPendingMaintenanceAction+    :: Text -- ^ 'apmaResourceIdentifier'+    -> Text -- ^ 'apmaApplyAction'+    -> Text -- ^ 'apmaOptInType'+    -> ApplyPendingMaintenanceAction+applyPendingMaintenanceAction pResourceIdentifier_ pApplyAction_ 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.html#USER_Tagging.ARN Constructing an RDS Amazon Resource Name (ARN)>.+apmaResourceIdentifier :: Lens' ApplyPendingMaintenanceAction Text+apmaResourceIdentifier = lens _apmaResourceIdentifier (\ s a -> s{_apmaResourceIdentifier = a});+ -- | The pending maintenance action to apply to this resource. apmaApplyAction :: Lens' ApplyPendingMaintenanceAction Text-apmaApplyAction = lens _apmaApplyAction (\s a -> s { _apmaApplyAction = a })+apmaApplyAction = lens _apmaApplyAction (\ s a -> s{_apmaApplyAction = a});  -- | A value that specifies the type of opt-in request, or undoes an opt-in -- request. An opt-in request of type 'immediate' cannot be undone. -- -- Valid values: ----- 'immediate' - Apply the maintenance action immediately.  'next-maintenance' ---- Apply the maintenance action during the next maintenance window for the--- resource.  'undo-opt-in' - Cancel any existing 'next-maintenance' opt-in requests.---+-- -   'immediate' - Apply the maintenance action immediately.+-- -   'next-maintenance' - Apply the maintenance action during the next+--     maintenance window for the resource.+-- -   'undo-opt-in' - Cancel any existing 'next-maintenance' opt-in+--     requests. apmaOptInType :: Lens' ApplyPendingMaintenanceAction Text-apmaOptInType = lens _apmaOptInType (\s a -> s { _apmaOptInType = a })---- | The ARN of the resource that the pending maintenance action applies to.-apmaResourceIdentifier :: Lens' ApplyPendingMaintenanceAction Text-apmaResourceIdentifier =-    lens _apmaResourceIdentifier (\s a -> s { _apmaResourceIdentifier = a })--newtype ApplyPendingMaintenanceActionResponse = ApplyPendingMaintenanceActionResponse-    { _apmarResourcePendingMaintenanceActions :: Maybe ResourcePendingMaintenanceActions-    } deriving (Eq, Read, Show)+apmaOptInType = lens _apmaOptInType (\ s a -> s{_apmaOptInType = a}); --- | 'ApplyPendingMaintenanceActionResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'apmarResourcePendingMaintenanceActions' @::@ 'Maybe' 'ResourcePendingMaintenanceActions'----applyPendingMaintenanceActionResponse :: ApplyPendingMaintenanceActionResponse-applyPendingMaintenanceActionResponse = ApplyPendingMaintenanceActionResponse-    { _apmarResourcePendingMaintenanceActions = Nothing-    }+instance AWSRequest ApplyPendingMaintenanceAction+         where+        type Sv ApplyPendingMaintenanceAction = RDS+        type Rs ApplyPendingMaintenanceAction =+             ApplyPendingMaintenanceActionResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "ApplyPendingMaintenanceActionResult"+              (\ s h x ->+                 ApplyPendingMaintenanceActionResponse' <$>+                   (x .@? "ResourcePendingMaintenanceActions") <*>+                     (pure (fromEnum s))) -apmarResourcePendingMaintenanceActions :: Lens' ApplyPendingMaintenanceActionResponse (Maybe ResourcePendingMaintenanceActions)-apmarResourcePendingMaintenanceActions =-    lens _apmarResourcePendingMaintenanceActions-        (\s a -> s { _apmarResourcePendingMaintenanceActions = a })+instance ToHeaders ApplyPendingMaintenanceAction+         where+        toHeaders = const mempty  instance ToPath ApplyPendingMaintenanceAction where-    toPath = const "/"+        toPath = const "/"  instance ToQuery ApplyPendingMaintenanceAction where-    toQuery ApplyPendingMaintenanceAction{..} = mconcat-        [ "ApplyAction"        =? _apmaApplyAction-        , "OptInType"          =? _apmaOptInType-        , "ResourceIdentifier" =? _apmaResourceIdentifier-        ]+        toQuery ApplyPendingMaintenanceAction'{..}+          = mconcat+              ["Action" =:+                 ("ApplyPendingMaintenanceAction" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "ResourceIdentifier" =: _apmaResourceIdentifier,+               "ApplyAction" =: _apmaApplyAction,+               "OptInType" =: _apmaOptInType] -instance ToHeaders ApplyPendingMaintenanceAction+-- | /See:/ 'applyPendingMaintenanceActionResponse' smart constructor.+data ApplyPendingMaintenanceActionResponse = ApplyPendingMaintenanceActionResponse'+    { _apmarsResourcePendingMaintenanceActions :: !(Maybe ResourcePendingMaintenanceActions)+    , _apmarsStatus                            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest ApplyPendingMaintenanceAction where-    type Sv ApplyPendingMaintenanceAction = RDS-    type Rs ApplyPendingMaintenanceAction = ApplyPendingMaintenanceActionResponse+-- | 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:+--+-- * 'apmarsResourcePendingMaintenanceActions'+--+-- * 'apmarsStatus'+applyPendingMaintenanceActionResponse+    :: Int -- ^ 'apmarsStatus'+    -> ApplyPendingMaintenanceActionResponse+applyPendingMaintenanceActionResponse pStatus_ =+    ApplyPendingMaintenanceActionResponse'+    { _apmarsResourcePendingMaintenanceActions = Nothing+    , _apmarsStatus = pStatus_+    } -    request  = post "ApplyPendingMaintenanceAction"-    response = xmlResponse+-- | Undocumented member.+apmarsResourcePendingMaintenanceActions :: Lens' ApplyPendingMaintenanceActionResponse (Maybe ResourcePendingMaintenanceActions)+apmarsResourcePendingMaintenanceActions = lens _apmarsResourcePendingMaintenanceActions (\ s a -> s{_apmarsResourcePendingMaintenanceActions = a}); -instance FromXML ApplyPendingMaintenanceActionResponse where-    parseXML = withElement "ApplyPendingMaintenanceActionResult" $ \x -> ApplyPendingMaintenanceActionResponse-        <$> x .@? "ResourcePendingMaintenanceActions"+-- | The response status code.+apmarsStatus :: Lens' ApplyPendingMaintenanceActionResponse Int+apmarsStatus = lens _apmarsStatus (\ s a -> s{_apmarsStatus = a});

@@ -1,171 +1,192 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.AuthorizeDBSecurityGroupIngress--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Enables ingress to a DBSecurityGroup using one of two forms of+-- Enables ingress to a DBSecurityGroup using one of two forms of -- authorization. First, EC2 or VPC security groups can be added to the--- DBSecurityGroup if the application using the database is running on EC2 or--- VPC instances. Second, IP ranges are available if the application accessing--- your database is running on the Internet. Required parameters for this API--- are one of CIDR range, EC2SecurityGroupId for VPC, or+-- DBSecurityGroup if the application using the database is running on EC2+-- or VPC instances. Second, IP ranges are available if the application+-- accessing your database is running on the Internet. Required parameters+-- for this API are one of CIDR range, EC2SecurityGroupId for VPC, or -- (EC2SecurityGroupOwnerId and either EC2SecurityGroupName or -- EC2SecurityGroupId for non-VPC). ----- You cannot authorize ingress from an EC2 security group in one Region to an--- Amazon RDS DB instance in another. You cannot authorize ingress from a VPC--- security group in one VPC to an Amazon RDS DB instance in another.  For an--- overview of CIDR ranges, go to the <http://en.wikipedia.org/wiki/Classless_Inter-Domain_Routing Wikipedia Tutorial>.+-- You cannot authorize ingress from an EC2 security group in one region to+-- an Amazon RDS DB instance in another. You cannot authorize ingress from+-- a VPC security group in one VPC to an Amazon RDS DB instance in another. ----- <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_AuthorizeDBSecurityGroupIngress.html>+-- For an overview of CIDR ranges, go to the+-- <http://en.wikipedia.org/wiki/Classless_Inter-Domain_Routing Wikipedia Tutorial>.+--+-- /See:/ <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_AuthorizeDBSecurityGroupIngress.html AWS API Reference> for AuthorizeDBSecurityGroupIngress. module Network.AWS.RDS.AuthorizeDBSecurityGroupIngress     (-    -- * Request-      AuthorizeDBSecurityGroupIngress-    -- ** Request constructor-    , authorizeDBSecurityGroupIngress-    -- ** Request lenses-    , adbsgiCIDRIP-    , adbsgiDBSecurityGroupName-    , adbsgiEC2SecurityGroupId-    , adbsgiEC2SecurityGroupName-    , adbsgiEC2SecurityGroupOwnerId+    -- * Creating a Request+      authorizeDBSecurityGroupIngress+    , AuthorizeDBSecurityGroupIngress+    -- * Request Lenses+    , adsgiEC2SecurityGroupOwnerId+    , adsgiEC2SecurityGroupName+    , adsgiCIdRIP+    , adsgiEC2SecurityGroupId+    , adsgiDBSecurityGroupName -    -- * Response-    , AuthorizeDBSecurityGroupIngressResponse-    -- ** Response constructor+    -- * Destructuring the Response     , authorizeDBSecurityGroupIngressResponse-    -- ** Response lenses-    , adbsgirDBSecurityGroup+    , AuthorizeDBSecurityGroupIngressResponse+    -- * Response Lenses+    , adsgirsDBSecurityGroup+    , adsgirsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.RDS.Types-import qualified GHC.Exts--data AuthorizeDBSecurityGroupIngress = AuthorizeDBSecurityGroupIngress-    { _adbsgiCIDRIP                  :: Maybe Text-    , _adbsgiDBSecurityGroupName     :: Text-    , _adbsgiEC2SecurityGroupId      :: Maybe Text-    , _adbsgiEC2SecurityGroupName    :: Maybe Text-    , _adbsgiEC2SecurityGroupOwnerId :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'AuthorizeDBSecurityGroupIngress' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /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)++-- | Creates a value of 'AuthorizeDBSecurityGroupIngress' with the minimum fields required to make a request. ----- * 'adbsgiCIDRIP' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'adbsgiDBSecurityGroupName' @::@ 'Text'+-- * 'adsgiEC2SecurityGroupOwnerId' ----- * 'adbsgiEC2SecurityGroupId' @::@ 'Maybe' 'Text'+-- * 'adsgiEC2SecurityGroupName' ----- * 'adbsgiEC2SecurityGroupName' @::@ 'Maybe' 'Text'+-- * 'adsgiCIdRIP' ----- * 'adbsgiEC2SecurityGroupOwnerId' @::@ 'Maybe' 'Text'+-- * 'adsgiEC2SecurityGroupId' ---authorizeDBSecurityGroupIngress :: Text -- ^ 'adbsgiDBSecurityGroupName'-                                -> AuthorizeDBSecurityGroupIngress-authorizeDBSecurityGroupIngress p1 = AuthorizeDBSecurityGroupIngress-    { _adbsgiDBSecurityGroupName     = p1-    , _adbsgiCIDRIP                  = Nothing-    , _adbsgiEC2SecurityGroupName    = Nothing-    , _adbsgiEC2SecurityGroupId      = Nothing-    , _adbsgiEC2SecurityGroupOwnerId = Nothing+-- * 'adsgiDBSecurityGroupName'+authorizeDBSecurityGroupIngress+    :: Text -- ^ 'adsgiDBSecurityGroupName'+    -> AuthorizeDBSecurityGroupIngress+authorizeDBSecurityGroupIngress 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});++-- | Name of the EC2 security group to authorize. For VPC DB security groups,+-- 'EC2SecurityGroupId' must be provided. Otherwise,+-- 'EC2SecurityGroupOwnerId' and either 'EC2SecurityGroupName' or+-- 'EC2SecurityGroupId' must be provided.+adsgiEC2SecurityGroupName :: Lens' AuthorizeDBSecurityGroupIngress (Maybe Text)+adsgiEC2SecurityGroupName = lens _adsgiEC2SecurityGroupName (\ s a -> s{_adsgiEC2SecurityGroupName = a});+ -- | The IP range to authorize.-adbsgiCIDRIP :: Lens' AuthorizeDBSecurityGroupIngress (Maybe Text)-adbsgiCIDRIP = lens _adbsgiCIDRIP (\s a -> s { _adbsgiCIDRIP = a })+adsgiCIdRIP :: Lens' AuthorizeDBSecurityGroupIngress (Maybe Text)+adsgiCIdRIP = lens _adsgiCIdRIP (\ s a -> s{_adsgiCIdRIP = a}); +-- | Id of the EC2 security group to authorize. For VPC DB security groups,+-- 'EC2SecurityGroupId' must be provided. Otherwise,+-- 'EC2SecurityGroupOwnerId' and either 'EC2SecurityGroupName' or+-- 'EC2SecurityGroupId' must be provided.+adsgiEC2SecurityGroupId :: Lens' AuthorizeDBSecurityGroupIngress (Maybe Text)+adsgiEC2SecurityGroupId = lens _adsgiEC2SecurityGroupId (\ s a -> s{_adsgiEC2SecurityGroupId = a});+ -- | The name of the DB security group to add authorization to.-adbsgiDBSecurityGroupName :: Lens' AuthorizeDBSecurityGroupIngress Text-adbsgiDBSecurityGroupName =-    lens _adbsgiDBSecurityGroupName-        (\s a -> s { _adbsgiDBSecurityGroupName = a })+adsgiDBSecurityGroupName :: Lens' AuthorizeDBSecurityGroupIngress Text+adsgiDBSecurityGroupName = lens _adsgiDBSecurityGroupName (\ s a -> s{_adsgiDBSecurityGroupName = a}); --- | Id of the EC2 security group to authorize. For VPC DB security groups, 'EC2SecurityGroupId' must be provided. Otherwise, EC2SecurityGroupOwnerId and either 'EC2SecurityGroupName' or 'EC2SecurityGroupId' must be provided.-adbsgiEC2SecurityGroupId :: Lens' AuthorizeDBSecurityGroupIngress (Maybe Text)-adbsgiEC2SecurityGroupId =-    lens _adbsgiEC2SecurityGroupId-        (\s a -> s { _adbsgiEC2SecurityGroupId = a })+instance AWSRequest AuthorizeDBSecurityGroupIngress+         where+        type Sv AuthorizeDBSecurityGroupIngress = RDS+        type Rs AuthorizeDBSecurityGroupIngress =+             AuthorizeDBSecurityGroupIngressResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "AuthorizeDBSecurityGroupIngressResult"+              (\ s h x ->+                 AuthorizeDBSecurityGroupIngressResponse' <$>+                   (x .@? "DBSecurityGroup") <*> (pure (fromEnum s))) --- | Name of the EC2 security group to authorize. For VPC DB security groups, 'EC2SecurityGroupId' must be provided. Otherwise, EC2SecurityGroupOwnerId and either 'EC2SecurityGroupName' or 'EC2SecurityGroupId' must be provided.-adbsgiEC2SecurityGroupName :: Lens' AuthorizeDBSecurityGroupIngress (Maybe Text)-adbsgiEC2SecurityGroupName =-    lens _adbsgiEC2SecurityGroupName-        (\s a -> s { _adbsgiEC2SecurityGroupName = a })+instance ToHeaders AuthorizeDBSecurityGroupIngress+         where+        toHeaders = const mempty --- | 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.-adbsgiEC2SecurityGroupOwnerId :: Lens' AuthorizeDBSecurityGroupIngress (Maybe Text)-adbsgiEC2SecurityGroupOwnerId =-    lens _adbsgiEC2SecurityGroupOwnerId-        (\s a -> s { _adbsgiEC2SecurityGroupOwnerId = a })+instance ToPath AuthorizeDBSecurityGroupIngress where+        toPath = const "/" -newtype AuthorizeDBSecurityGroupIngressResponse = AuthorizeDBSecurityGroupIngressResponse-    { _adbsgirDBSecurityGroup :: Maybe DBSecurityGroup-    } deriving (Eq, Read, Show)+instance ToQuery AuthorizeDBSecurityGroupIngress+         where+        toQuery AuthorizeDBSecurityGroupIngress'{..}+          = mconcat+              ["Action" =:+                 ("AuthorizeDBSecurityGroupIngress" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "EC2SecurityGroupOwnerId" =:+                 _adsgiEC2SecurityGroupOwnerId,+               "EC2SecurityGroupName" =: _adsgiEC2SecurityGroupName,+               "CIDRIP" =: _adsgiCIdRIP,+               "EC2SecurityGroupId" =: _adsgiEC2SecurityGroupId,+               "DBSecurityGroupName" =: _adsgiDBSecurityGroupName] --- | 'AuthorizeDBSecurityGroupIngressResponse' constructor.+-- | /See:/ 'authorizeDBSecurityGroupIngressResponse' smart constructor.+data AuthorizeDBSecurityGroupIngressResponse = AuthorizeDBSecurityGroupIngressResponse'+    { _adsgirsDBSecurityGroup :: !(Maybe DBSecurityGroup)+    , _adsgirsStatus          :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AuthorizeDBSecurityGroupIngressResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'adbsgirDBSecurityGroup' @::@ 'Maybe' 'DBSecurityGroup'+-- * 'adsgirsDBSecurityGroup' ---authorizeDBSecurityGroupIngressResponse :: AuthorizeDBSecurityGroupIngressResponse-authorizeDBSecurityGroupIngressResponse = AuthorizeDBSecurityGroupIngressResponse-    { _adbsgirDBSecurityGroup = Nothing+-- * 'adsgirsStatus'+authorizeDBSecurityGroupIngressResponse+    :: Int -- ^ 'adsgirsStatus'+    -> AuthorizeDBSecurityGroupIngressResponse+authorizeDBSecurityGroupIngressResponse pStatus_ =+    AuthorizeDBSecurityGroupIngressResponse'+    { _adsgirsDBSecurityGroup = Nothing+    , _adsgirsStatus = pStatus_     } -adbsgirDBSecurityGroup :: Lens' AuthorizeDBSecurityGroupIngressResponse (Maybe DBSecurityGroup)-adbsgirDBSecurityGroup =-    lens _adbsgirDBSecurityGroup (\s a -> s { _adbsgirDBSecurityGroup = a })--instance ToPath AuthorizeDBSecurityGroupIngress where-    toPath = const "/"--instance ToQuery AuthorizeDBSecurityGroupIngress where-    toQuery AuthorizeDBSecurityGroupIngress{..} = mconcat-        [ "CIDRIP"                  =? _adbsgiCIDRIP-        , "DBSecurityGroupName"     =? _adbsgiDBSecurityGroupName-        , "EC2SecurityGroupId"      =? _adbsgiEC2SecurityGroupId-        , "EC2SecurityGroupName"    =? _adbsgiEC2SecurityGroupName-        , "EC2SecurityGroupOwnerId" =? _adbsgiEC2SecurityGroupOwnerId-        ]--instance ToHeaders AuthorizeDBSecurityGroupIngress--instance AWSRequest AuthorizeDBSecurityGroupIngress where-    type Sv AuthorizeDBSecurityGroupIngress = RDS-    type Rs AuthorizeDBSecurityGroupIngress = AuthorizeDBSecurityGroupIngressResponse--    request  = post "AuthorizeDBSecurityGroupIngress"-    response = xmlResponse+-- | Undocumented member.+adsgirsDBSecurityGroup :: Lens' AuthorizeDBSecurityGroupIngressResponse (Maybe DBSecurityGroup)+adsgirsDBSecurityGroup = lens _adsgirsDBSecurityGroup (\ s a -> s{_adsgirsDBSecurityGroup = a}); -instance FromXML AuthorizeDBSecurityGroupIngressResponse where-    parseXML = withElement "AuthorizeDBSecurityGroupIngressResult" $ \x -> AuthorizeDBSecurityGroupIngressResponse-        <$> x .@? "DBSecurityGroup"+-- | The response status code.+adsgirsStatus :: Lens' AuthorizeDBSecurityGroupIngressResponse Int+adsgirsStatus = lens _adsgirsStatus (\ s a -> s{_adsgirsStatus = a});

@@ -0,0 +1,166 @@+{-# 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.CopyDBClusterSnapshot+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates 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./+--+-- /See:/ <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_CopyDBClusterSnapshot.html AWS API Reference> for CopyDBClusterSnapshot.+module Network.AWS.RDS.CopyDBClusterSnapshot+    (+    -- * Creating a Request+      copyDBClusterSnapshot+    , CopyDBClusterSnapshot+    -- * Request Lenses+    , cdbcsTags+    , cdbcsSourceDBClusterSnapshotIdentifier+    , cdbcsTargetDBClusterSnapshotIdentifier++    -- * Destructuring the Response+    , copyDBClusterSnapshotResponse+    , CopyDBClusterSnapshotResponse+    -- * Response Lenses+    , cdcsrsDBClusterSnapshot+    , cdcsrsStatus+    ) where++import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response++-- |+--+-- /See:/ 'copyDBClusterSnapshot' smart constructor.+data CopyDBClusterSnapshot = CopyDBClusterSnapshot'+    { _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:+--+-- * 'cdbcsTags'+--+-- * 'cdbcsSourceDBClusterSnapshotIdentifier'+--+-- * 'cdbcsTargetDBClusterSnapshotIdentifier'+copyDBClusterSnapshot+    :: Text -- ^ 'cdbcsSourceDBClusterSnapshotIdentifier'+    -> Text -- ^ 'cdbcsTargetDBClusterSnapshotIdentifier'+    -> CopyDBClusterSnapshot+copyDBClusterSnapshot pSourceDBClusterSnapshotIdentifier_ pTargetDBClusterSnapshotIdentifier_ =+    CopyDBClusterSnapshot'+    { _cdbcsTags = Nothing+    , _cdbcsSourceDBClusterSnapshotIdentifier = pSourceDBClusterSnapshotIdentifier_+    , _cdbcsTargetDBClusterSnapshotIdentifier = pTargetDBClusterSnapshotIdentifier_+    }++-- | 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'+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'+cdbcsTargetDBClusterSnapshotIdentifier :: Lens' CopyDBClusterSnapshot Text+cdbcsTargetDBClusterSnapshotIdentifier = lens _cdbcsTargetDBClusterSnapshotIdentifier (\ s a -> s{_cdbcsTargetDBClusterSnapshotIdentifier = a});++instance AWSRequest CopyDBClusterSnapshot where+        type Sv CopyDBClusterSnapshot = RDS+        type Rs CopyDBClusterSnapshot =+             CopyDBClusterSnapshotResponse+        request = postQuery+        response+          = receiveXMLWrapper "CopyDBClusterSnapshotResult"+              (\ s h x ->+                 CopyDBClusterSnapshotResponse' <$>+                   (x .@? "DBClusterSnapshot") <*> (pure (fromEnum s)))++instance ToHeaders CopyDBClusterSnapshot where+        toHeaders = const mempty++instance ToPath CopyDBClusterSnapshot where+        toPath = const "/"++instance ToQuery CopyDBClusterSnapshot where+        toQuery CopyDBClusterSnapshot'{..}+          = mconcat+              ["Action" =: ("CopyDBClusterSnapshot" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "Tags" =: toQuery (toQueryList "Tag" <$> _cdbcsTags),+               "SourceDBClusterSnapshotIdentifier" =:+                 _cdbcsSourceDBClusterSnapshotIdentifier,+               "TargetDBClusterSnapshotIdentifier" =:+                 _cdbcsTargetDBClusterSnapshotIdentifier]++-- | /See:/ 'copyDBClusterSnapshotResponse' smart constructor.+data CopyDBClusterSnapshotResponse = CopyDBClusterSnapshotResponse'+    { _cdcsrsDBClusterSnapshot :: !(Maybe DBClusterSnapshot)+    , _cdcsrsStatus            :: !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:+--+-- * 'cdcsrsDBClusterSnapshot'+--+-- * 'cdcsrsStatus'+copyDBClusterSnapshotResponse+    :: Int -- ^ 'cdcsrsStatus'+    -> CopyDBClusterSnapshotResponse+copyDBClusterSnapshotResponse pStatus_ =+    CopyDBClusterSnapshotResponse'+    { _cdcsrsDBClusterSnapshot = Nothing+    , _cdcsrsStatus = pStatus_+    }++-- | Undocumented member.+cdcsrsDBClusterSnapshot :: Lens' CopyDBClusterSnapshotResponse (Maybe DBClusterSnapshot)+cdcsrsDBClusterSnapshot = lens _cdcsrsDBClusterSnapshot (\ s a -> s{_cdcsrsDBClusterSnapshot = a});++-- | The response status code.+cdcsrsStatus :: Lens' CopyDBClusterSnapshotResponse Int+cdcsrsStatus = lens _cdcsrsStatus (\ s a -> s{_cdcsrsStatus = a});

@@ -1,159 +1,178 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CopyDBParameterGroup--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Copies the specified DB parameter group.+-- Copies the specified DB parameter group. ----- <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_CopyDBParameterGroup.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_CopyDBParameterGroup.html AWS API Reference> for CopyDBParameterGroup. module Network.AWS.RDS.CopyDBParameterGroup     (-    -- * Request-      CopyDBParameterGroup-    -- ** Request constructor-    , copyDBParameterGroup-    -- ** Request lenses-    , cdbpgSourceDBParameterGroupIdentifier-    , cdbpgTags-    , cdbpgTargetDBParameterGroupDescription-    , cdbpgTargetDBParameterGroupIdentifier+    -- * Creating a Request+      copyDBParameterGroup+    , CopyDBParameterGroup+    -- * Request Lenses+    , cdpgTags+    , cdpgSourceDBParameterGroupIdentifier+    , cdpgTargetDBParameterGroupIdentifier+    , cdpgTargetDBParameterGroupDescription -    -- * Response-    , CopyDBParameterGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , copyDBParameterGroupResponse-    -- ** Response lenses-    , cdbpgr1DBParameterGroup+    , CopyDBParameterGroupResponse+    -- * Response Lenses+    , cdbpgrsDBParameterGroup+    , cdbpgrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.RDS.Types-import qualified GHC.Exts--data CopyDBParameterGroup = CopyDBParameterGroup-    { _cdbpgSourceDBParameterGroupIdentifier  :: Text-    , _cdbpgTags                              :: List "member" Tag-    , _cdbpgTargetDBParameterGroupDescription :: Text-    , _cdbpgTargetDBParameterGroupIdentifier  :: Text-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CopyDBParameterGroup' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /See:/ 'copyDBParameterGroup' smart constructor.+data CopyDBParameterGroup = CopyDBParameterGroup'+    { _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. ----- * 'cdbpgSourceDBParameterGroupIdentifier' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cdbpgTags' @::@ ['Tag']+-- * 'cdpgTags' ----- * 'cdbpgTargetDBParameterGroupDescription' @::@ 'Text'+-- * 'cdpgSourceDBParameterGroupIdentifier' ----- * 'cdbpgTargetDBParameterGroupIdentifier' @::@ 'Text'+-- * 'cdpgTargetDBParameterGroupIdentifier' ---copyDBParameterGroup :: Text -- ^ 'cdbpgSourceDBParameterGroupIdentifier'-                     -> Text -- ^ 'cdbpgTargetDBParameterGroupIdentifier'-                     -> Text -- ^ 'cdbpgTargetDBParameterGroupDescription'-                     -> CopyDBParameterGroup-copyDBParameterGroup p1 p2 p3 = CopyDBParameterGroup-    { _cdbpgSourceDBParameterGroupIdentifier  = p1-    , _cdbpgTargetDBParameterGroupIdentifier  = p2-    , _cdbpgTargetDBParameterGroupDescription = p3-    , _cdbpgTags                              = mempty+-- * 'cdpgTargetDBParameterGroupDescription'+copyDBParameterGroup+    :: Text -- ^ 'cdpgSourceDBParameterGroupIdentifier'+    -> Text -- ^ 'cdpgTargetDBParameterGroupIdentifier'+    -> Text -- ^ 'cdpgTargetDBParameterGroupDescription'+    -> CopyDBParameterGroup+copyDBParameterGroup pSourceDBParameterGroupIdentifier_ pTargetDBParameterGroupIdentifier_ pTargetDBParameterGroupDescription_ =+    CopyDBParameterGroup'+    { _cdpgTags = Nothing+    , _cdpgSourceDBParameterGroupIdentifier = pSourceDBParameterGroupIdentifier_+    , _cdpgTargetDBParameterGroupIdentifier = pTargetDBParameterGroupIdentifier_+    , _cdpgTargetDBParameterGroupDescription = pTargetDBParameterGroupDescription_     } --- | The identifier or ARN for the source DB parameter group.+-- | Undocumented member.+cdpgTags :: Lens' CopyDBParameterGroup [Tag]+cdpgTags = lens _cdpgTags (\ s a -> s{_cdpgTags = a}) . _Default . _Coerce;++-- | The identifier or ARN for the source DB parameter group. For information+-- about creating an ARN, see+-- <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/USER_Tagging.html#USER_Tagging.ARN Constructing an RDS Amazon Resource Name (ARN)>. -- -- Constraints: ----- Must specify a valid DB parameter group. If the source DB parameter group--- is in the same region as the copy, specify a valid DB parameter group--- identifier, for example 'my-db-param-group', or a valid ARN. If the source DB--- parameter group is in a different region than the copy, specify a valid DB--- parameter group ARN, for example 'arn:aws:rds:us-west-2:123456789012:pg:special-parameters'.-cdbpgSourceDBParameterGroupIdentifier :: Lens' CopyDBParameterGroup Text-cdbpgSourceDBParameterGroupIdentifier =-    lens _cdbpgSourceDBParameterGroupIdentifier-        (\s a -> s { _cdbpgSourceDBParameterGroupIdentifier = a })--cdbpgTags :: Lens' CopyDBParameterGroup [Tag]-cdbpgTags = lens _cdbpgTags (\s a -> s { _cdbpgTags = a }) . _List---- | A description for the copied DB parameter group.-cdbpgTargetDBParameterGroupDescription :: Lens' CopyDBParameterGroup Text-cdbpgTargetDBParameterGroupDescription =-    lens _cdbpgTargetDBParameterGroupDescription-        (\s a -> s { _cdbpgTargetDBParameterGroupDescription = a })+-- -   Must specify a valid DB parameter group.+-- -   If the source DB parameter group is in the same region as the copy,+--     specify a valid DB parameter group identifier, for example+--     'my-db-param-group', or a valid ARN.+-- -   If the source DB parameter group is in a different region than the+--     copy, specify a valid DB parameter group ARN, for example+--     'arn:aws:rds:us-west-2:123456789012:pg:special-parameters'.+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'-cdbpgTargetDBParameterGroupIdentifier :: Lens' CopyDBParameterGroup Text-cdbpgTargetDBParameterGroupIdentifier =-    lens _cdbpgTargetDBParameterGroupIdentifier-        (\s a -> s { _cdbpgTargetDBParameterGroupIdentifier = a })+-- -   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 :: Lens' CopyDBParameterGroup Text+cdpgTargetDBParameterGroupIdentifier = lens _cdpgTargetDBParameterGroupIdentifier (\ s a -> s{_cdpgTargetDBParameterGroupIdentifier = a}); -newtype CopyDBParameterGroupResponse = CopyDBParameterGroupResponse-    { _cdbpgr1DBParameterGroup :: Maybe DBParameterGroup-    } deriving (Eq, Read, Show)+-- | A description for the copied DB parameter group.+cdpgTargetDBParameterGroupDescription :: Lens' CopyDBParameterGroup Text+cdpgTargetDBParameterGroupDescription = lens _cdpgTargetDBParameterGroupDescription (\ s a -> s{_cdpgTargetDBParameterGroupDescription = a}); --- | 'CopyDBParameterGroupResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cdbpgr1DBParameterGroup' @::@ 'Maybe' 'DBParameterGroup'----copyDBParameterGroupResponse :: CopyDBParameterGroupResponse-copyDBParameterGroupResponse = CopyDBParameterGroupResponse-    { _cdbpgr1DBParameterGroup = Nothing-    }+instance AWSRequest CopyDBParameterGroup where+        type Sv CopyDBParameterGroup = RDS+        type Rs CopyDBParameterGroup =+             CopyDBParameterGroupResponse+        request = postQuery+        response+          = receiveXMLWrapper "CopyDBParameterGroupResult"+              (\ s h x ->+                 CopyDBParameterGroupResponse' <$>+                   (x .@? "DBParameterGroup") <*> (pure (fromEnum s))) -cdbpgr1DBParameterGroup :: Lens' CopyDBParameterGroupResponse (Maybe DBParameterGroup)-cdbpgr1DBParameterGroup =-    lens _cdbpgr1DBParameterGroup (\s a -> s { _cdbpgr1DBParameterGroup = a })+instance ToHeaders CopyDBParameterGroup where+        toHeaders = const mempty  instance ToPath CopyDBParameterGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CopyDBParameterGroup where-    toQuery CopyDBParameterGroup{..} = mconcat-        [ "SourceDBParameterGroupIdentifier"  =? _cdbpgSourceDBParameterGroupIdentifier-        , "Tags"                              =? _cdbpgTags-        , "TargetDBParameterGroupDescription" =? _cdbpgTargetDBParameterGroupDescription-        , "TargetDBParameterGroupIdentifier"  =? _cdbpgTargetDBParameterGroupIdentifier-        ]+        toQuery CopyDBParameterGroup'{..}+          = mconcat+              ["Action" =: ("CopyDBParameterGroup" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "Tags" =: toQuery (toQueryList "Tag" <$> _cdpgTags),+               "SourceDBParameterGroupIdentifier" =:+                 _cdpgSourceDBParameterGroupIdentifier,+               "TargetDBParameterGroupIdentifier" =:+                 _cdpgTargetDBParameterGroupIdentifier,+               "TargetDBParameterGroupDescription" =:+                 _cdpgTargetDBParameterGroupDescription] -instance ToHeaders CopyDBParameterGroup+-- | /See:/ 'copyDBParameterGroupResponse' smart constructor.+data CopyDBParameterGroupResponse = CopyDBParameterGroupResponse'+    { _cdbpgrsDBParameterGroup :: !(Maybe DBParameterGroup)+    , _cdbpgrsStatus           :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CopyDBParameterGroup where-    type Sv CopyDBParameterGroup = RDS-    type Rs CopyDBParameterGroup = CopyDBParameterGroupResponse+-- | 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:+--+-- * 'cdbpgrsDBParameterGroup'+--+-- * 'cdbpgrsStatus'+copyDBParameterGroupResponse+    :: Int -- ^ 'cdbpgrsStatus'+    -> CopyDBParameterGroupResponse+copyDBParameterGroupResponse pStatus_ =+    CopyDBParameterGroupResponse'+    { _cdbpgrsDBParameterGroup = Nothing+    , _cdbpgrsStatus = pStatus_+    } -    request  = post "CopyDBParameterGroup"-    response = xmlResponse+-- | Undocumented member.+cdbpgrsDBParameterGroup :: Lens' CopyDBParameterGroupResponse (Maybe DBParameterGroup)+cdbpgrsDBParameterGroup = lens _cdbpgrsDBParameterGroup (\ s a -> s{_cdbpgrsDBParameterGroup = a}); -instance FromXML CopyDBParameterGroupResponse where-    parseXML = withElement "CopyDBParameterGroupResult" $ \x -> CopyDBParameterGroupResponse-        <$> x .@? "DBParameterGroup"+-- | The response status code.+cdbpgrsStatus :: Lens' CopyDBParameterGroupResponse Int+cdbpgrsStatus = lens _cdbpgrsStatus (\ s a -> s{_cdbpgrsStatus = a});

@@ -1,147 +1,178 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CopyDBSnapshot--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Copies the specified DBSnapshot. The source DBSnapshot must be in the--- "available" state.+-- Copies the specified DBSnapshot. The source DBSnapshot must be in the+-- \"available\" state. ----- <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_CopyDBSnapshot.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_CopyDBSnapshot.html AWS API Reference> for CopyDBSnapshot. module Network.AWS.RDS.CopyDBSnapshot     (-    -- * Request-      CopyDBSnapshot-    -- ** Request constructor-    , copyDBSnapshot-    -- ** Request lenses-    , cdbsSourceDBSnapshotIdentifier-    , cdbsTags-    , cdbsTargetDBSnapshotIdentifier+    -- * Creating a Request+      copyDBSnapshot+    , CopyDBSnapshot+    -- * Request Lenses+    , cdsCopyTags+    , cdsTags+    , cdsSourceDBSnapshotIdentifier+    , cdsTargetDBSnapshotIdentifier -    -- * Response-    , CopyDBSnapshotResponse-    -- ** Response constructor+    -- * Destructuring the Response     , copyDBSnapshotResponse-    -- ** Response lenses-    , cdbsrDBSnapshot+    , CopyDBSnapshotResponse+    -- * Response Lenses+    , cdsrsDBSnapshot+    , cdsrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.RDS.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response -data CopyDBSnapshot = CopyDBSnapshot-    { _cdbsSourceDBSnapshotIdentifier :: Text-    , _cdbsTags                       :: List "member" Tag-    , _cdbsTargetDBSnapshotIdentifier :: Text-    } deriving (Eq, Read, Show)+-- |+--+-- /See:/ 'copyDBSnapshot' smart constructor.+data CopyDBSnapshot = CopyDBSnapshot'+    { _cdsCopyTags                   :: !(Maybe Bool)+    , _cdsTags                       :: !(Maybe [Tag])+    , _cdsSourceDBSnapshotIdentifier :: !Text+    , _cdsTargetDBSnapshotIdentifier :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CopyDBSnapshot' constructor.+-- | Creates a value of 'CopyDBSnapshot' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'cdbsSourceDBSnapshotIdentifier' @::@ 'Text'+-- * 'cdsCopyTags' ----- * 'cdbsTags' @::@ ['Tag']+-- * 'cdsTags' ----- * 'cdbsTargetDBSnapshotIdentifier' @::@ 'Text'+-- * 'cdsSourceDBSnapshotIdentifier' ---copyDBSnapshot :: Text -- ^ 'cdbsSourceDBSnapshotIdentifier'-               -> Text -- ^ 'cdbsTargetDBSnapshotIdentifier'-               -> CopyDBSnapshot-copyDBSnapshot p1 p2 = CopyDBSnapshot-    { _cdbsSourceDBSnapshotIdentifier = p1-    , _cdbsTargetDBSnapshotIdentifier = p2-    , _cdbsTags                       = mempty+-- * 'cdsTargetDBSnapshotIdentifier'+copyDBSnapshot+    :: Text -- ^ 'cdsSourceDBSnapshotIdentifier'+    -> Text -- ^ 'cdsTargetDBSnapshotIdentifier'+    -> CopyDBSnapshot+copyDBSnapshot pSourceDBSnapshotIdentifier_ pTargetDBSnapshotIdentifier_ =+    CopyDBSnapshot'+    { _cdsCopyTags = Nothing+    , _cdsTags = Nothing+    , _cdsSourceDBSnapshotIdentifier = pSourceDBSnapshotIdentifier_+    , _cdsTargetDBSnapshotIdentifier = pTargetDBSnapshotIdentifier_     } +-- | This property is not currently implemented.+cdsCopyTags :: Lens' CopyDBSnapshot (Maybe Bool)+cdsCopyTags = lens _cdsCopyTags (\ s a -> s{_cdsCopyTags = a});++-- | Undocumented member.+cdsTags :: Lens' CopyDBSnapshot [Tag]+cdsTags = lens _cdsTags (\ s a -> s{_cdsTags = a}) . _Default . _Coerce;+ -- | The identifier for the source 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 aDB Snapshot>.  Example: 'rds:mydb-2012-04-02-00-01'+-- -   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: 'arn:aws:rds:rr-regn-1:123456789012:snapshot:mysql-instance1-snapshot-20130805'-cdbsSourceDBSnapshotIdentifier :: Lens' CopyDBSnapshot Text-cdbsSourceDBSnapshotIdentifier =-    lens _cdbsSourceDBSnapshotIdentifier-        (\s a -> s { _cdbsSourceDBSnapshotIdentifier = a })--cdbsTags :: Lens' CopyDBSnapshot [Tag]-cdbsTags = lens _cdbsTags (\s a -> s { _cdbsTags = a }) . _List+-- Example: 'rds:mydb-2012-04-02-00-01'+--+-- Example:+-- 'arn:aws:rds:rr-regn-1: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'-cdbsTargetDBSnapshotIdentifier :: Lens' CopyDBSnapshot Text-cdbsTargetDBSnapshotIdentifier =-    lens _cdbsTargetDBSnapshotIdentifier-        (\s a -> s { _cdbsTargetDBSnapshotIdentifier = a })--newtype CopyDBSnapshotResponse = CopyDBSnapshotResponse-    { _cdbsrDBSnapshot :: Maybe DBSnapshot-    } deriving (Eq, Read, Show)---- | 'CopyDBSnapshotResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cdbsrDBSnapshot' @::@ 'Maybe' 'DBSnapshot'+-- -   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 ---copyDBSnapshotResponse :: CopyDBSnapshotResponse-copyDBSnapshotResponse = CopyDBSnapshotResponse-    { _cdbsrDBSnapshot = Nothing-    }+-- Example: 'my-db-snapshot'+cdsTargetDBSnapshotIdentifier :: Lens' CopyDBSnapshot Text+cdsTargetDBSnapshotIdentifier = lens _cdsTargetDBSnapshotIdentifier (\ s a -> s{_cdsTargetDBSnapshotIdentifier = a}); -cdbsrDBSnapshot :: Lens' CopyDBSnapshotResponse (Maybe DBSnapshot)-cdbsrDBSnapshot = lens _cdbsrDBSnapshot (\s a -> s { _cdbsrDBSnapshot = a })+instance AWSRequest CopyDBSnapshot where+        type Sv CopyDBSnapshot = RDS+        type Rs CopyDBSnapshot = CopyDBSnapshotResponse+        request = postQuery+        response+          = receiveXMLWrapper "CopyDBSnapshotResult"+              (\ s h x ->+                 CopyDBSnapshotResponse' <$>+                   (x .@? "DBSnapshot") <*> (pure (fromEnum s))) +instance ToHeaders CopyDBSnapshot where+        toHeaders = const mempty+ instance ToPath CopyDBSnapshot where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CopyDBSnapshot where-    toQuery CopyDBSnapshot{..} = mconcat-        [ "SourceDBSnapshotIdentifier" =? _cdbsSourceDBSnapshotIdentifier-        , "Tags"                       =? _cdbsTags-        , "TargetDBSnapshotIdentifier" =? _cdbsTargetDBSnapshotIdentifier-        ]+        toQuery CopyDBSnapshot'{..}+          = mconcat+              ["Action" =: ("CopyDBSnapshot" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "CopyTags" =: _cdsCopyTags,+               "Tags" =: toQuery (toQueryList "Tag" <$> _cdsTags),+               "SourceDBSnapshotIdentifier" =:+                 _cdsSourceDBSnapshotIdentifier,+               "TargetDBSnapshotIdentifier" =:+                 _cdsTargetDBSnapshotIdentifier] -instance ToHeaders CopyDBSnapshot+-- | /See:/ 'copyDBSnapshotResponse' smart constructor.+data CopyDBSnapshotResponse = CopyDBSnapshotResponse'+    { _cdsrsDBSnapshot :: !(Maybe DBSnapshot)+    , _cdsrsStatus     :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CopyDBSnapshot where-    type Sv CopyDBSnapshot = RDS-    type Rs CopyDBSnapshot = CopyDBSnapshotResponse+-- | 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:+--+-- * 'cdsrsDBSnapshot'+--+-- * 'cdsrsStatus'+copyDBSnapshotResponse+    :: Int -- ^ 'cdsrsStatus'+    -> CopyDBSnapshotResponse+copyDBSnapshotResponse pStatus_ =+    CopyDBSnapshotResponse'+    { _cdsrsDBSnapshot = Nothing+    , _cdsrsStatus = pStatus_+    } -    request  = post "CopyDBSnapshot"-    response = xmlResponse+-- | Undocumented member.+cdsrsDBSnapshot :: Lens' CopyDBSnapshotResponse (Maybe DBSnapshot)+cdsrsDBSnapshot = lens _cdsrsDBSnapshot (\ s a -> s{_cdsrsDBSnapshot = a}); -instance FromXML CopyDBSnapshotResponse where-    parseXML = withElement "CopyDBSnapshotResult" $ \x -> CopyDBSnapshotResponse-        <$> x .@? "DBSnapshot"+-- | The response status code.+cdsrsStatus :: Lens' CopyDBSnapshotResponse Int+cdsrsStatus = lens _cdsrsStatus (\ s a -> s{_cdsrsStatus = a});

@@ -1,156 +1,177 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CopyOptionGroup--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Copies the specified option group.+-- Copies the specified option group. ----- <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_CopyOptionGroup.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_CopyOptionGroup.html AWS API Reference> for CopyOptionGroup. module Network.AWS.RDS.CopyOptionGroup     (-    -- * Request-      CopyOptionGroup-    -- ** Request constructor-    , copyOptionGroup-    -- ** Request lenses-    , cog1SourceOptionGroupIdentifier-    , cog1Tags-    , cog1TargetOptionGroupDescription-    , cog1TargetOptionGroupIdentifier+    -- * Creating a Request+      copyOptionGroup+    , CopyOptionGroup+    -- * Request Lenses+    , cTags+    , cSourceOptionGroupIdentifier+    , cTargetOptionGroupIdentifier+    , cTargetOptionGroupDescription -    -- * Response-    , CopyOptionGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , copyOptionGroupResponse-    -- ** Response lenses-    , cogrOptionGroup+    , CopyOptionGroupResponse+    -- * Response Lenses+    , cogrsOptionGroup+    , cogrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.RDS.Types-import qualified GHC.Exts--data CopyOptionGroup = CopyOptionGroup-    { _cog1SourceOptionGroupIdentifier  :: Text-    , _cog1Tags                         :: List "member" Tag-    , _cog1TargetOptionGroupDescription :: Text-    , _cog1TargetOptionGroupIdentifier  :: Text-    } deriving (Eq, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CopyOptionGroup' constructor.+-- | ----- The fields accessible through corresponding lenses are:+-- /See:/ 'copyOptionGroup' smart constructor.+data CopyOptionGroup = CopyOptionGroup'+    { _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. ----- * 'cog1SourceOptionGroupIdentifier' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cog1Tags' @::@ ['Tag']+-- * 'cTags' ----- * 'cog1TargetOptionGroupDescription' @::@ 'Text'+-- * 'cSourceOptionGroupIdentifier' ----- * 'cog1TargetOptionGroupIdentifier' @::@ 'Text'+-- * 'cTargetOptionGroupIdentifier' ---copyOptionGroup :: Text -- ^ 'cog1SourceOptionGroupIdentifier'-                -> Text -- ^ 'cog1TargetOptionGroupIdentifier'-                -> Text -- ^ 'cog1TargetOptionGroupDescription'-                -> CopyOptionGroup-copyOptionGroup p1 p2 p3 = CopyOptionGroup-    { _cog1SourceOptionGroupIdentifier  = p1-    , _cog1TargetOptionGroupIdentifier  = p2-    , _cog1TargetOptionGroupDescription = p3-    , _cog1Tags                         = mempty+-- * 'cTargetOptionGroupDescription'+copyOptionGroup+    :: Text -- ^ 'cSourceOptionGroupIdentifier'+    -> Text -- ^ 'cTargetOptionGroupIdentifier'+    -> Text -- ^ 'cTargetOptionGroupDescription'+    -> CopyOptionGroup+copyOptionGroup pSourceOptionGroupIdentifier_ pTargetOptionGroupIdentifier_ pTargetOptionGroupDescription_ =+    CopyOptionGroup'+    { _cTags = Nothing+    , _cSourceOptionGroupIdentifier = pSourceOptionGroupIdentifier_+    , _cTargetOptionGroupIdentifier = pTargetOptionGroupIdentifier_+    , _cTargetOptionGroupDescription = pTargetOptionGroupDescription_     } --- | The identifier or ARN for the source option group.+-- | 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.html#USER_Tagging.ARN 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'.-cog1SourceOptionGroupIdentifier :: Lens' CopyOptionGroup Text-cog1SourceOptionGroupIdentifier =-    lens _cog1SourceOptionGroupIdentifier-        (\s a -> s { _cog1SourceOptionGroupIdentifier = a })--cog1Tags :: Lens' CopyOptionGroup [Tag]-cog1Tags = lens _cog1Tags (\s a -> s { _cog1Tags = a }) . _List---- | The description for the copied option group.-cog1TargetOptionGroupDescription :: Lens' CopyOptionGroup Text-cog1TargetOptionGroupDescription =-    lens _cog1TargetOptionGroupDescription-        (\s a -> s { _cog1TargetOptionGroupDescription = a })+-- -   Must specify a valid option group.+-- -   If the source option group is in the same region as the copy,+--     specify a valid option group identifier, for example+--     'my-option-group', or a valid ARN.+-- -   If the source option group is in a different region than the copy,+--     specify a valid option group ARN, for example+--     'arn:aws:rds:us-west-2:123456789012:og:special-options'.+cSourceOptionGroupIdentifier :: Lens' CopyOptionGroup Text+cSourceOptionGroupIdentifier = lens _cSourceOptionGroupIdentifier (\ s a -> s{_cSourceOptionGroupIdentifier = a});  -- | 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'-cog1TargetOptionGroupIdentifier :: Lens' CopyOptionGroup Text-cog1TargetOptionGroupIdentifier =-    lens _cog1TargetOptionGroupIdentifier-        (\s a -> s { _cog1TargetOptionGroupIdentifier = a })+-- -   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 :: Lens' CopyOptionGroup Text+cTargetOptionGroupIdentifier = lens _cTargetOptionGroupIdentifier (\ s a -> s{_cTargetOptionGroupIdentifier = a}); -newtype CopyOptionGroupResponse = CopyOptionGroupResponse-    { _cogrOptionGroup :: Maybe OptionGroup-    } deriving (Eq, Read, Show)+-- | The description for the copied option group.+cTargetOptionGroupDescription :: Lens' CopyOptionGroup Text+cTargetOptionGroupDescription = lens _cTargetOptionGroupDescription (\ s a -> s{_cTargetOptionGroupDescription = a}); --- | 'CopyOptionGroupResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cogrOptionGroup' @::@ 'Maybe' 'OptionGroup'----copyOptionGroupResponse :: CopyOptionGroupResponse-copyOptionGroupResponse = CopyOptionGroupResponse-    { _cogrOptionGroup = Nothing-    }+instance AWSRequest CopyOptionGroup where+        type Sv CopyOptionGroup = RDS+        type Rs CopyOptionGroup = CopyOptionGroupResponse+        request = postQuery+        response+          = receiveXMLWrapper "CopyOptionGroupResult"+              (\ s h x ->+                 CopyOptionGroupResponse' <$>+                   (x .@? "OptionGroup") <*> (pure (fromEnum s))) -cogrOptionGroup :: Lens' CopyOptionGroupResponse (Maybe OptionGroup)-cogrOptionGroup = lens _cogrOptionGroup (\s a -> s { _cogrOptionGroup = a })+instance ToHeaders CopyOptionGroup where+        toHeaders = const mempty  instance ToPath CopyOptionGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CopyOptionGroup where-    toQuery CopyOptionGroup{..} = mconcat-        [ "SourceOptionGroupIdentifier"  =? _cog1SourceOptionGroupIdentifier-        , "Tags"                         =? _cog1Tags-        , "TargetOptionGroupDescription" =? _cog1TargetOptionGroupDescription-        , "TargetOptionGroupIdentifier"  =? _cog1TargetOptionGroupIdentifier-        ]+        toQuery CopyOptionGroup'{..}+          = mconcat+              ["Action" =: ("CopyOptionGroup" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "Tags" =: toQuery (toQueryList "Tag" <$> _cTags),+               "SourceOptionGroupIdentifier" =:+                 _cSourceOptionGroupIdentifier,+               "TargetOptionGroupIdentifier" =:+                 _cTargetOptionGroupIdentifier,+               "TargetOptionGroupDescription" =:+                 _cTargetOptionGroupDescription] -instance ToHeaders CopyOptionGroup+-- | /See:/ 'copyOptionGroupResponse' smart constructor.+data CopyOptionGroupResponse = CopyOptionGroupResponse'+    { _cogrsOptionGroup :: !(Maybe OptionGroup)+    , _cogrsStatus      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CopyOptionGroup where-    type Sv CopyOptionGroup = RDS-    type Rs CopyOptionGroup = CopyOptionGroupResponse+-- | 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:+--+-- * 'cogrsOptionGroup'+--+-- * 'cogrsStatus'+copyOptionGroupResponse+    :: Int -- ^ 'cogrsStatus'+    -> CopyOptionGroupResponse+copyOptionGroupResponse pStatus_ =+    CopyOptionGroupResponse'+    { _cogrsOptionGroup = Nothing+    , _cogrsStatus = pStatus_+    } -    request  = post "CopyOptionGroup"-    response = xmlResponse+-- | Undocumented member.+cogrsOptionGroup :: Lens' CopyOptionGroupResponse (Maybe OptionGroup)+cogrsOptionGroup = lens _cogrsOptionGroup (\ s a -> s{_cogrsOptionGroup = a}); -instance FromXML CopyOptionGroupResponse where-    parseXML = withElement "CopyOptionGroupResult" $ \x -> CopyOptionGroupResponse-        <$> x .@? "OptionGroup"+-- | The response status code.+cogrsStatus :: Lens' CopyOptionGroupResponse Int+cogrsStatus = lens _cogrsStatus (\ s a -> s{_cogrsStatus = a});

@@ -0,0 +1,371 @@+{-# 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.CreateDBCluster+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new Amazon Aurora DB cluster. For more information on Amazon+-- Aurora, see+-- <http://docs.aws.amazon.com/AmazonRDS/latest/UserGuide/CHAP_Aurora.html Aurora on Amazon RDS>+-- in the /Amazon RDS User Guide./+--+-- /See:/ <http://docs.aws.amazon.com/AmazonRDS/latest/APIReference/API_CreateDBCluster.html AWS API Reference> for CreateDBCluster.+module Network.AWS.RDS.CreateDBCluster+    (+    -- * Creating a Request+      createDBCluster+    , CreateDBCluster+    -- * Request Lenses+    , cdcEngineVersion+    , cdcDBClusterIdentifier+    , cdcMasterUserPassword+    , cdcMasterUsername+    , cdcDBSubnetGroupName+    , cdcEngine+    , cdcPreferredMaintenanceWindow+    , cdcCharacterSetName+    , cdcAvailabilityZones+    , cdcPreferredBackupWindow+    , cdcBackupRetentionPeriod+    , cdcDatabaseName+    , cdcVPCSecurityGroupIds+    , cdcDBClusterParameterGroupName+    , cdcOptionGroupName+    , cdcTags+    , cdcPort++    -- * Destructuring the Response+    , createDBClusterResponse+    , CreateDBClusterResponse+    -- * Response Lenses+    , cdcrsDBCluster+    , cdcrsStatus+    ) where++import           Network.AWS.Prelude+import           Network.AWS.RDS.Types+import           Network.AWS.RDS.Types.Product+import           Network.AWS.Request+import           Network.AWS.Response++-- |+--+-- /See:/ 'createDBCluster' smart constructor.+data CreateDBCluster = CreateDBCluster'+    { _cdcEngineVersion               :: !(Maybe Text)+    , _cdcDBClusterIdentifier         :: !(Maybe Text)+    , _cdcMasterUserPassword          :: !(Maybe Text)+    , _cdcMasterUsername              :: !(Maybe Text)+    , _cdcDBSubnetGroupName           :: !(Maybe Text)+    , _cdcEngine                      :: !(Maybe Text)+    , _cdcPreferredMaintenanceWindow  :: !(Maybe Text)+    , _cdcCharacterSetName            :: !(Maybe Text)+    , _cdcAvailabilityZones           :: !(Maybe [Text])+    , _cdcPreferredBackupWindow       :: !(Maybe Text)+    , _cdcBackupRetentionPeriod       :: !(Maybe Int)+    , _cdcDatabaseName                :: !(Maybe Text)+    , _cdcVPCSecurityGroupIds         :: !(Maybe [Text])+    , _cdcDBClusterParameterGroupName :: !(Maybe Text)+    , _cdcOptionGroupName             :: !(Maybe Text)+    , _cdcTags                        :: !(Maybe [Tag])+    , _cdcPort                        :: !(Maybe Int)+    } 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:+--+-- * 'cdcEngineVersion'+--+-- * 'cdcDBClusterIdentifier'+--+-- * 'cdcMasterUserPassword'+--+-- * 'cdcMasterUsername'+--+-- * 'cdcDBSubnetGroupName'+--+-- * 'cdcEngine'+--+-- * 'cdcPreferredMaintenanceWindow'+--+-- * 'cdcCharacterSetName'+--+-- * 'cdcAvailabilityZones'+--+-- * 'cdcPreferredBackupWindow'+--+-- * 'cdcBackupRetentionPeriod'+--+-- * 'cdcDatabaseName'+--+-- * 'cdcVPCSecurityGroupIds'+--+-- * 'cdcDBClusterParameterGroupName'+--+-- * 'cdcOptionGroupName'+--+-- * 'cdcTags'+--+-- * 'cdcPort'+createDBCluster+    :: CreateDBCluster+createDBCluster =+    CreateDBCluster'+    { _cdcEngineVersion = Nothing+    , _cdcDBClusterIdentifier = Nothing+    , _cdcMasterUserPassword = Nothing+    , _cdcMasterUsername = Nothing+    , _cdcDBSubnetGroupName = Nothing+    , _cdcEngine = Nothing+    , _cdcPreferredMaintenanceWindow = Nothing+    , _cdcCharacterSetName = Nothing+    , _cdcAvailabilityZones = Nothing+    , _cdcPreferredBackupWindow = Nothing+    , _cdcBackupRetentionPeriod = Nothing+    , _cdcDatabaseName = Nothing+    , _cdcVPCSecurityGroupIds = Nothing+    , _cdcDBClusterParameterGroupName = Nothing+    , _cdcOptionGroupName = Nothing+    , _cdcTags = Nothing+    , _cdcPort = Nothing+    }++-- | The version number of the database engine to use.+--+-- __Aurora__+--+-- Example: '5.6.0'+cdcEngineVersion :: Lens' CreateDBCluster (Maybe Text)+cdcEngineVersion = lens _cdcEngineVersion (\ s a -> s{_cdcEngineVersion = a});++-- | The DB cluster identifier. This parameter is stored as a lowercase+-- string.+--+-- Constraints:+--+-- -   Must contain from 1 to 63 alphanumeric characters or hyphens.+-- -   First character must be a letter.+-- -   Cannot end with a hyphen or contain two consecutive hyphens.+--+-- Example: 'my-cluster1'+cdcDBClusterIdentifier :: Lens' CreateDBCluster (Maybe Text)+cdcDBClusterIdentifier = lens _cdcDBClusterIdentifier (\ s a -> s{_cdcDBClusterIdentifier = a});++-- | The password for the master database user. This password can contain any+-- printable ASCII character except \"\/\", \"\"\", or \"\'\".+--+-- Constraints: Must contain from 8 to 41 characters.+cdcMasterUserPassword :: Lens' CreateDBCluster (Maybe Text)+cdcMasterUserPassword = lens _cdcMasterUserPassword (\ s a -> s{_cdcMasterUserPassword = a});++-- | The name of the master user for the client DB cluster.+--+-- Constraints:+--+-- -   Must be 1 to 16 alphanumeric characters.+-- -   First character must be a letter.+-- -   Cannot be a reserved word for the chosen database engine.+cdcMasterUsername :: Lens' CreateDBCluster (Maybe Text)+cdcMasterUsername = lens _cdcMasterUsername (\ s a -> s{_cdcMasterUsername = a});++-- | A DB subnet group to associate with this DB cluster.+cdcDBSubnetGroupName :: Lens' CreateDBCluster (Maybe Text)+cdcDBSubnetGroupName = lens _cdcDBSubnetGroupName (\ s a -> s{_cdcDBSubnetGroupName = a});++-- | The name of the database engine to be used for this DB cluster.+--+-- Valid Values: 'MySQL'+cdcEngine :: Lens' CreateDBCluster (Maybe Text)+cdcEngine = lens _cdcEngine (\ s a -> s{_cdcEngine = a});++-- | The weekly time range during which system maintenance can occur, in+-- Universal Coordinated Time (UTC).+--+-- 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.+cdcPreferredMaintenanceWindow :: Lens' CreateDBCluster (Maybe Text)+cdcPreferredMaintenanceWindow = lens _cdcPreferredMaintenanceWindow (\ s a -> s{_cdcPreferredMaintenanceWindow = a});++-- | A value that indicates that the DB cluster should be associated with the+-- specified CharacterSet.+cdcCharacterSetName :: Lens' CreateDBCluster (Maybe Text)+cdcCharacterSetName = lens _cdcCharacterSetName (\ s a -> s{_cdcCharacterSetName = a});++-- | 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>.+cdcAvailabilityZones :: Lens' CreateDBCluster [Text]+cdcAvailabilityZones = lens _cdcAvailabilityZones (\ s a -> s{_cdcAvailabilityZones = a}) . _Default . _Coerce;++-- | 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 :: Lens' CreateDBCluster (Maybe Text)+cdcPreferredBackupWindow = lens _cdcPreferredBackupWindow (\ s a -> s{_cdcPreferredBackupWindow = 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+cdcBackupRetentionPeriod :: Lens' CreateDBCluster (Maybe Int)+cdcBackupRetentionPeriod = lens _cdcBackupRetentionPeriod (\ s a -> s{_cdcBackupRetentionPeriod = a});++-- | 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 :: Lens' CreateDBCluster (Maybe Text)+cdcDatabaseName = lens _cdcDatabaseName (\ s a -> s{_cdcDatabaseName = a});++-- | A list of EC2 VPC security groups to associate with this DB cluster.+cdcVPCSecurityGroupIds :: Lens' CreateDBCluster [Text]+cdcVPCSecurityGroupIds = lens _cdcVPCSecurityGroupIds (\ s a -> s{_cdcVPCSecurityGroupIds = a}) . _Default . _Coerce;++-- | The name of the DB cluster parameter group to associate with this DB+-- cluster. If this argument is omitted, 'default.aurora5.6' for the+-- specified engine will be used.+--+-- Constraints:+--+-- -   Must be 1 to 255 alphanumeric characters+-- -   First character must be a letter+-- -   Cannot end with a hyphen or contain two consecutive hyphens+cdcDBClusterParameterGroupName :: Lens' CreateDBCluster (Maybe Text)+cdcDBClusterParameterGroupName = lens _cdcDBClusterParameterGroupName (\ s a -> s{_cdcDBClusterParameterGroupName = a});++-- | 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.+cdcOptionGroupName :: Lens' CreateDBCluster (Maybe Text)+cdcOptionGroupName = lens _cdcOptionGroupName (\ s a -> s{_cdcOptionGroupName = a});++-- | Undocumented member.+cdcTags :: Lens' CreateDBCluster [Tag]+cdcTags = lens _cdcTags (\ s a -> s{_cdcTags = a}) . _Default . _Coerce;++-- | The port number on which the instances in the DB cluster accept+-- connections.+--+-- Default: '3306'+cdcPort :: Lens' CreateDBCluster (Maybe Int)+cdcPort = lens _cdcPort (\ s a -> s{_cdcPort = a});++instance AWSRequest CreateDBCluster where+        type Sv CreateDBCluster = RDS+        type Rs CreateDBCluster = CreateDBClusterResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateDBClusterResult"+              (\ s h x ->+                 CreateDBClusterResponse' <$>+                   (x .@? "DBCluster") <*> (pure (fromEnum s)))++instance ToHeaders CreateDBCluster where+        toHeaders = const mempty++instance ToPath CreateDBCluster where+        toPath = const "/"++instance ToQuery CreateDBCluster where+        toQuery CreateDBCluster'{..}+          = mconcat+              ["Action" =: ("CreateDBCluster" :: ByteString),+               "Version" =: ("2014-10-31" :: ByteString),+               "EngineVersion" =: _cdcEngineVersion,+               "DBClusterIdentifier" =: _cdcDBClusterIdentifier,+               "MasterUserPassword" =: _cdcMasterUserPassword,+               "MasterUsername" =: _cdcMasterUsername,+               "DBSubnetGroupName" =: _cdcDBSubnetGroupName,+               "Engine" =: _cdcEngine,+               "PreferredMaintenanceWindow" =:+                 _cdcPreferredMaintenanceWindow,+               "CharacterSetName" =: _cdcCharacterSetName,+               "AvailabilityZones" =:+                 toQuery+                   (toQueryList "AvailabilityZone" <$>+                      _cdcAvailabilityZones),+               "PreferredBackupWindow" =: _cdcPreferredBackupWindow,+               "BackupRetentionPeriod" =: _cdcBackupRetentionPeriod,+               "DatabaseName" =: _cdcDatabaseName,+               "VpcSecurityGroupIds" =:+                 toQuery+                   (toQueryList "VpcSecurityGroupId" <$>+                      _cdcVPCSecurityGroupIds),+               "DBClusterParameterGroupName" =:+                 _cdcDBClusterParameterGroupName,+               "OptionGroupName" =: _cdcOptionGroupName,+               "Tags" =: toQuery (toQueryList "Tag" <$> _cdcTags),+               "Port" =: _cdcPort]++-- | /See:/ 'createDBClusterResponse' smart constructor.+data CreateDBClusterResponse = CreateDBClusterResponse'+    { _cdcrsDBCluster :: !(Maybe DBCluster)+    , _cdcrsStatus    :: !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:+--+-- * 'cdcrsDBCluster'+--+-- * 'cdcrsStatus'+createDBClusterResponse+    :: Int -- ^ 'cdcrsStatus'+    -> CreateDBClusterResponse+createDBClusterResponse pStatus_ =+    CreateDBClusterResponse'+    { _cdcrsDBCluster = Nothing+    , _cdcrsStatus = pStatus_+    }++-- | Undocumented member.+cdcrsDBCluster :: Lens' CreateDBClusterResponse (Maybe DBCluster)+cdcrsDBCluster = lens _cdcrsDBCluster (\ s a -> s{_cdcrsDBCluster = a});++-- | The response status code.+cdcrsStatus :: Lens' CreateDBClusterResponse Int+cdcrsStatus = lens _cdcrsStatus (\ s a -> s{_cdcrsStatus = a});