packages feed

amazonka-dms (empty) → 1.4.0

raw patch · 100 files changed

+8136/−0 lines, 100 filesdep +amazonka-coredep +amazonka-dmsdep +amazonka-testsetup-changed

Dependencies added: amazonka-core, amazonka-dms, amazonka-test, base, bytestring, tasty, tasty-hunit, text, time, unordered-containers

Files

+ LICENSE view
@@ -0,0 +1,367 @@+Mozilla Public License Version 2.0+==================================++1. Definitions+--------------++1.1. "Contributor"+    means each individual or legal entity that creates, contributes to+    the creation of, or owns Covered Software.++1.2. "Contributor Version"+    means the combination of the Contributions of others (if any) used+    by a Contributor and that particular Contributor's Contribution.++1.3. "Contribution"+    means Covered Software of a particular Contributor.++1.4. "Covered Software"+    means Source Code Form to which the initial Contributor has attached+    the notice in Exhibit A, the Executable Form of such Source Code+    Form, and Modifications of such Source Code Form, in each case+    including portions thereof.++1.5. "Incompatible With Secondary Licenses"+    means++    (a) that the initial Contributor has attached the notice described+        in Exhibit B to the Covered Software; or++    (b) that the Covered Software was made available under the terms of+        version 1.1 or earlier of the License, but not also under the+        terms of a Secondary License.++1.6. "Executable Form"+    means any form of the work other than Source Code Form.++1.7. "Larger Work"+    means a work that combines Covered Software with other material, in+    a separate file or files, that is not Covered Software.++1.8. "License"+    means this document.++1.9. "Licensable"+    means having the right to grant, to the maximum extent possible,+    whether at the time of the initial grant or subsequently, any and+    all of the rights conveyed by this License.++1.10. "Modifications"+    means any of the following:++    (a) any file in Source Code Form that results from an addition to,+        deletion from, or modification of the contents of Covered+        Software; or++    (b) any new file in Source Code Form that contains any Covered+        Software.++1.11. "Patent Claims" of a Contributor+    means any patent claim(s), including without limitation, method,+    process, and apparatus claims, in any patent Licensable by such+    Contributor that would be infringed, but for the grant of the+    License, by the making, using, selling, offering for sale, having+    made, import, or transfer of either its Contributions or its+    Contributor Version.++1.12. "Secondary License"+    means either the GNU General Public License, Version 2.0, the GNU+    Lesser General Public License, Version 2.1, the GNU Affero General+    Public License, Version 3.0, or any later versions of those+    licenses.++1.13. "Source Code Form"+    means the form of the work preferred for making modifications.++1.14. "You" (or "Your")+    means an individual or a legal entity exercising rights under this+    License. For legal entities, "You" includes any entity that+    controls, is controlled by, or is under common control with You. For+    purposes of this definition, "control" means (a) the power, direct+    or indirect, to cause the direction or management of such entity,+    whether by contract or otherwise, or (b) ownership of more than+    fifty percent (50%) of the outstanding shares or beneficial+    ownership of such entity.++2. License Grants and Conditions+--------------------------------++2.1. Grants++Each Contributor hereby grants You a world-wide, royalty-free,+non-exclusive license:++(a) under intellectual property rights (other than patent or trademark)+    Licensable by such Contributor to use, reproduce, make available,+    modify, display, perform, distribute, and otherwise exploit its+    Contributions, either on an unmodified basis, with Modifications, or+    as part of a Larger Work; and++(b) under Patent Claims of such Contributor to make, use, sell, offer+    for sale, have made, import, and otherwise transfer either its+    Contributions or its Contributor Version.++2.2. Effective Date++The licenses granted in Section 2.1 with respect to any Contribution+become effective for each Contribution on the date the Contributor first+distributes such Contribution.++2.3. Limitations on Grant Scope++The licenses granted in this Section 2 are the only rights granted under+this License. No additional rights or licenses will be implied from the+distribution or licensing of Covered Software under this License.+Notwithstanding Section 2.1(b) above, no patent license is granted by a+Contributor:++(a) for any code that a Contributor has removed from Covered Software;+    or++(b) for infringements caused by: (i) Your and any other third party's+    modifications of Covered Software, or (ii) the combination of its+    Contributions with other software (except as part of its Contributor+    Version); or++(c) under Patent Claims infringed by Covered Software in the absence of+    its Contributions.++This License does not grant any rights in the trademarks, service marks,+or logos of any Contributor (except as may be necessary to comply with+the notice requirements in Section 3.4).++2.4. Subsequent Licenses++No Contributor makes additional grants as a result of Your choice to+distribute the Covered Software under a subsequent version of this+License (see Section 10.2) or under the terms of a Secondary License (if+permitted under the terms of Section 3.3).++2.5. Representation++Each Contributor represents that the Contributor believes its+Contributions are its original creation(s) or it has sufficient rights+to grant the rights to its Contributions conveyed by this License.++2.6. Fair Use++This License is not intended to limit any rights You have under+applicable copyright doctrines of fair use, fair dealing, or other+equivalents.++2.7. Conditions++Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted+in Section 2.1.++3. Responsibilities+-------------------++3.1. Distribution of Source Form++All distribution of Covered Software in Source Code Form, including any+Modifications that You create or to which You contribute, must be under+the terms of this License. You must inform recipients that the Source+Code Form of the Covered Software is governed by the terms of this+License, and how they can obtain a copy of this License. You may not+attempt to alter or restrict the recipients' rights in the Source Code+Form.++3.2. Distribution of Executable Form++If You distribute Covered Software in Executable Form then:++(a) such Covered Software must also be made available in Source Code+    Form, as described in Section 3.1, and You must inform recipients of+    the Executable Form how they can obtain a copy of such Source Code+    Form by reasonable means in a timely manner, at a charge no more+    than the cost of distribution to the recipient; and++(b) You may distribute such Executable Form under the terms of this+    License, or sublicense it under different terms, provided that the+    license for the Executable Form does not attempt to limit or alter+    the recipients' rights in the Source Code Form under this License.++3.3. Distribution of a Larger Work++You may create and distribute a Larger Work under terms of Your choice,+provided that You also comply with the requirements of this License for+the Covered Software. If the Larger Work is a combination of Covered+Software with a work governed by one or more Secondary Licenses, and the+Covered Software is not Incompatible With Secondary Licenses, this+License permits You to additionally distribute such Covered Software+under the terms of such Secondary License(s), so that the recipient of+the Larger Work may, at their option, further distribute the Covered+Software under the terms of either this License or such Secondary+License(s).++3.4. Notices++You may not remove or alter the substance of any license notices+(including copyright notices, patent notices, disclaimers of warranty,+or limitations of liability) contained within the Source Code Form of+the Covered Software, except that You may alter any license notices to+the extent required to remedy known factual inaccuracies.++3.5. Application of Additional Terms++You may choose to offer, and to charge a fee for, warranty, support,+indemnity or liability obligations to one or more recipients of Covered+Software. However, You may do so only on Your own behalf, and not on+behalf of any Contributor. You must make it absolutely clear that any+such warranty, support, indemnity, or liability obligation is offered by+You alone, and You hereby agree to indemnify every Contributor for any+liability incurred by such Contributor as a result of warranty, support,+indemnity or liability terms You offer. You may include additional+disclaimers of warranty and limitations of liability specific to any+jurisdiction.++4. Inability to Comply Due to Statute or Regulation+---------------------------------------------------++If it is impossible for You to comply with any of the terms of this+License with respect to some or all of the Covered Software due to+statute, judicial order, or regulation then You must: (a) comply with+the terms of this License to the maximum extent possible; and (b)+describe the limitations and the code they affect. Such description must+be placed in a text file included with all distributions of the Covered+Software under this License. Except to the extent prohibited by statute+or regulation, such description must be sufficiently detailed for a+recipient of ordinary skill to be able to understand it.++5. Termination+--------------++5.1. The rights granted under this License will terminate automatically+if You fail to comply with any of its terms. However, if You become+compliant, then the rights granted under this License from a particular+Contributor are reinstated (a) provisionally, unless and until such+Contributor explicitly and finally terminates Your grants, and (b) on an+ongoing basis, if such Contributor fails to notify You of the+non-compliance by some reasonable means prior to 60 days after You have+come back into compliance. Moreover, Your grants from a particular+Contributor are reinstated on an ongoing basis if such Contributor+notifies You of the non-compliance by some reasonable means, this is the+first time You have received notice of non-compliance with this License+from such Contributor, and You become compliant prior to 30 days after+Your receipt of the notice.++5.2. If You initiate litigation against any entity by asserting a patent+infringement claim (excluding declaratory judgment actions,+counter-claims, and cross-claims) alleging that a Contributor Version+directly or indirectly infringes any patent, then the rights granted to+You by any and all Contributors for the Covered Software under Section+2.1 of this License shall terminate.++5.3. In the event of termination under Sections 5.1 or 5.2 above, all+end user license agreements (excluding distributors and resellers) which+have been validly granted by You or Your distributors under this License+prior to termination shall survive termination.++************************************************************************+*                                                                      *+*  6. Disclaimer of Warranty                                           *+*  -------------------------                                           *+*                                                                      *+*  Covered Software is provided under this License on an "as is"       *+*  basis, without warranty of any kind, either expressed, implied, or  *+*  statutory, including, without limitation, warranties that the       *+*  Covered Software is free of defects, merchantable, fit for a        *+*  particular purpose or non-infringing. The entire risk as to the     *+*  quality and performance of the Covered Software is with You.        *+*  Should any Covered Software prove defective in any respect, You     *+*  (not any Contributor) assume the cost of any necessary servicing,   *+*  repair, or correction. This disclaimer of warranty constitutes an   *+*  essential part of this License. No use of any Covered Software is   *+*  authorized under this License except under this disclaimer.         *+*                                                                      *+************************************************************************++************************************************************************+*                                                                      *+*  7. Limitation of Liability                                          *+*  --------------------------                                          *+*                                                                      *+*  Under no circumstances and under no legal theory, whether tort      *+*  (including negligence), contract, or otherwise, shall any           *+*  Contributor, or anyone who distributes Covered Software as          *+*  permitted above, be liable to You for any direct, indirect,         *+*  special, incidental, or consequential damages of any character      *+*  including, without limitation, damages for lost profits, loss of    *+*  goodwill, work stoppage, computer failure or malfunction, or any    *+*  and all other commercial damages or losses, even if such party      *+*  shall have been informed of the possibility of such damages. This   *+*  limitation of liability shall not apply to liability for death or   *+*  personal injury resulting from such party's negligence to the       *+*  extent applicable law prohibits such limitation. Some               *+*  jurisdictions do not allow the exclusion or limitation of           *+*  incidental or consequential damages, so this exclusion and          *+*  limitation may not apply to You.                                    *+*                                                                      *+************************************************************************++8. Litigation+-------------++Any litigation relating to this License may be brought only in the+courts of a jurisdiction where the defendant maintains its principal+place of business and such litigation shall be governed by laws of that+jurisdiction, without reference to its conflict-of-law provisions.+Nothing in this Section shall prevent a party's ability to bring+cross-claims or counter-claims.++9. Miscellaneous+----------------++This License represents the complete agreement concerning the subject+matter hereof. If any provision of this License is held to be+unenforceable, such provision shall be reformed only to the extent+necessary to make it enforceable. Any law or regulation which provides+that the language of a contract shall be construed against the drafter+shall not be used to construe this License against a Contributor.++10. Versions of the License+---------------------------++10.1. New Versions++Mozilla Foundation is the license steward. Except as provided in Section+10.3, no one other than the license steward has the right to modify or+publish new versions of this License. Each version will be given a+distinguishing version number.++10.2. Effect of New Versions++You may distribute the Covered Software under the terms of the version+of the License under which You originally received the Covered Software,+or under the terms of any subsequent version published by the license+steward.++10.3. Modified Versions++If you create software not governed by this License, and you want to+create a new license for such software, you may create and use a+modified version of this License if you rename the license and remove+any references to the name of the license steward (except to note that+such modified license differs from this License).++10.4. Distributing Source Code Form that is Incompatible With Secondary+Licenses++If You choose to distribute Source Code Form that is Incompatible With+Secondary Licenses under the terms of this version of the License, the+notice described in Exhibit B of this License must be attached.++Exhibit A - Source Code Form License Notice+-------------------------------------------++  This Source Code Form is subject to the terms of the Mozilla Public+  License, v. 2.0. If a copy of the MPL was not distributed with this+  file, You can obtain one at http://mozilla.org/MPL/2.0/.++If it is not possible or desirable to put the notice in a particular+file, then You may include the notice in a location (such as a LICENSE+file in a relevant directory) where a recipient would be likely to look+for such a notice.++You may add additional accurate notices of copyright ownership.
+ README.md view
@@ -0,0 +1,49 @@+# Amazon Database Migration Service SDK++* [Version](#version)+* [Description](#description)+* [Contribute](#contribute)+* [Licence](#licence)+++## Version++`1.4.0`+++## Description++AWS Database Migration Service++AWS Database Migration Service (AWS DMS) can migrate your data to and+from the most widely used commercial and open-source databases such as+Oracle, PostgreSQL, Microsoft SQL Server, MariaDB, Amazon Aurora, and+MySQL. The service supports homogeneous migrations such as Oracle to+Oracle, as well as heterogeneous migrations between different database+platforms, such as Oracle to MySQL or SQL Server to PostgreSQL.++Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-dms)+and the [AWS API Reference](https://aws.amazon.com/documentation/).++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++For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues).++> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information.+++## Licence++`amazonka-dms` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).++Parts of the code are derived from AWS service descriptions, licensed under Apache 2.0.+Source files subject to this contain an additional licensing clause in their header.
+ Setup.hs view
@@ -0,0 +1,2 @@+import           Distribution.Simple+main = defaultMain
+ amazonka-dms.cabal view
@@ -0,0 +1,117 @@+name:                  amazonka-dms+version:               1.4.0+synopsis:              Amazon Database Migration Service SDK.+homepage:              https://github.com/brendanhay/amazonka+bug-reports:           https://github.com/brendanhay/amazonka/issues+license:               OtherLicense+license-file:          LICENSE+author:                Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay@gmail.com>+copyright:             Copyright (c) 2013-2016 Brendan Hay+category:              Network, AWS, Cloud, Distributed Computing+build-type:            Simple+cabal-version:         >= 1.10+extra-source-files:    README.md fixture/*.yaml fixture/*.proto+description:+    AWS Database Migration Service++    AWS Database Migration Service (AWS DMS) can migrate your data to and+    from the most widely used commercial and open-source databases such as+    Oracle, PostgreSQL, Microsoft SQL Server, MariaDB, Amazon Aurora, and+    MySQL. The service supports homogeneous migrations such as Oracle to+    Oracle, as well as heterogeneous migrations between different database+    platforms, such as Oracle to MySQL or SQL Server to PostgreSQL.+    .+    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.+    .+    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.DMS" or <https://aws.amazon.com/documentation/ the AWS Documentation>+    to get started.++source-repository head+    type:     git+    location: git://github.com/brendanhay/amazonka.git++library+    default-language:  Haskell2010+    hs-source-dirs:    src gen++    ghc-options:       -Wall++    exposed-modules:+          Network.AWS.DMS+        , Network.AWS.DMS.AddTagsToResource+        , Network.AWS.DMS.CreateEndpoint+        , Network.AWS.DMS.CreateReplicationInstance+        , Network.AWS.DMS.CreateReplicationSubnetGroup+        , Network.AWS.DMS.CreateReplicationTask+        , Network.AWS.DMS.DeleteEndpoint+        , Network.AWS.DMS.DeleteReplicationInstance+        , Network.AWS.DMS.DeleteReplicationSubnetGroup+        , Network.AWS.DMS.DeleteReplicationTask+        , Network.AWS.DMS.DescribeAccountAttributes+        , Network.AWS.DMS.DescribeConnections+        , Network.AWS.DMS.DescribeEndpointTypes+        , Network.AWS.DMS.DescribeEndpoints+        , Network.AWS.DMS.DescribeOrderableReplicationInstances+        , Network.AWS.DMS.DescribeRefreshSchemasStatus+        , Network.AWS.DMS.DescribeReplicationInstances+        , Network.AWS.DMS.DescribeReplicationSubnetGroups+        , Network.AWS.DMS.DescribeReplicationTasks+        , Network.AWS.DMS.DescribeSchemas+        , Network.AWS.DMS.DescribeTableStatistics+        , Network.AWS.DMS.ListTagsForResource+        , Network.AWS.DMS.ModifyEndpoint+        , Network.AWS.DMS.ModifyReplicationInstance+        , Network.AWS.DMS.ModifyReplicationSubnetGroup+        , Network.AWS.DMS.RefreshSchemas+        , Network.AWS.DMS.RemoveTagsFromResource+        , Network.AWS.DMS.StartReplicationTask+        , Network.AWS.DMS.StopReplicationTask+        , Network.AWS.DMS.TestConnection+        , Network.AWS.DMS.Types+        , Network.AWS.DMS.Waiters++    other-modules:+          Network.AWS.DMS.Types.Product+        , Network.AWS.DMS.Types.Sum++    build-depends:+          amazonka-core == 1.4.0.*+        , base          >= 4.7     && < 5++test-suite amazonka-dms-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This section is encoded by the template and any modules added by+    -- hand outside these namespaces will not correctly be added to the+    -- distribution package.+    other-modules:+          Test.AWS.DMS+        , Test.AWS.Gen.DMS+        , Test.AWS.DMS.Internal++    build-depends:+          amazonka-core == 1.4.0.*+        , amazonka-test == 1.4.0.*+        , amazonka-dms == 1.4.0.*+        , base+        , bytestring+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers
+ fixture/AddTagsToResource.yaml view
+ fixture/AddTagsToResourceResponse.proto view
+ fixture/CreateEndpoint.yaml view
+ fixture/CreateEndpointResponse.proto view
+ fixture/CreateReplicationInstance.yaml view
+ fixture/CreateReplicationInstanceResponse.proto view
+ fixture/CreateReplicationSubnetGroup.yaml view
+ fixture/CreateReplicationSubnetGroupResponse.proto view
+ fixture/CreateReplicationTask.yaml view
+ fixture/CreateReplicationTaskResponse.proto view
+ fixture/DeleteEndpoint.yaml view
+ fixture/DeleteEndpointResponse.proto view
+ fixture/DeleteReplicationInstance.yaml view
+ fixture/DeleteReplicationInstanceResponse.proto view
+ fixture/DeleteReplicationSubnetGroup.yaml view
+ fixture/DeleteReplicationSubnetGroupResponse.proto view
+ fixture/DeleteReplicationTask.yaml view
+ fixture/DeleteReplicationTaskResponse.proto view
+ fixture/DescribeAccountAttributes.yaml view
+ fixture/DescribeAccountAttributesResponse.proto view
+ fixture/DescribeConnections.yaml view
+ fixture/DescribeConnectionsResponse.proto view
+ fixture/DescribeEndpointTypes.yaml view
+ fixture/DescribeEndpointTypesResponse.proto view
+ fixture/DescribeEndpoints.yaml view
+ fixture/DescribeEndpointsResponse.proto view
+ fixture/DescribeOrderableReplicationInstances.yaml view
+ fixture/DescribeOrderableReplicationInstancesResponse.proto view
+ fixture/DescribeRefreshSchemasStatus.yaml view
+ fixture/DescribeRefreshSchemasStatusResponse.proto view
+ fixture/DescribeReplicationInstances.yaml view
+ fixture/DescribeReplicationInstancesResponse.proto view
+ fixture/DescribeReplicationSubnetGroups.yaml view
+ fixture/DescribeReplicationSubnetGroupsResponse.proto view
+ fixture/DescribeReplicationTasks.yaml view
+ fixture/DescribeReplicationTasksResponse.proto view
+ fixture/DescribeSchemas.yaml view
+ fixture/DescribeSchemasResponse.proto view
+ fixture/DescribeTableStatistics.yaml view
+ fixture/DescribeTableStatisticsResponse.proto view
+ fixture/ListTagsForResource.yaml view
+ fixture/ListTagsForResourceResponse.proto view
+ fixture/ModifyEndpoint.yaml view
+ fixture/ModifyEndpointResponse.proto view
+ fixture/ModifyReplicationInstance.yaml view
+ fixture/ModifyReplicationInstanceResponse.proto view
+ fixture/ModifyReplicationSubnetGroup.yaml view
+ fixture/ModifyReplicationSubnetGroupResponse.proto view
+ fixture/RefreshSchemas.yaml view
+ fixture/RefreshSchemasResponse.proto view
+ fixture/RemoveTagsFromResource.yaml view
+ fixture/RemoveTagsFromResourceResponse.proto view
+ fixture/StartReplicationTask.yaml view
+ fixture/StartReplicationTaskResponse.proto view
+ fixture/StopReplicationTask.yaml view
+ fixture/StopReplicationTaskResponse.proto view
+ fixture/TestConnection.yaml view
+ fixture/TestConnectionResponse.proto view
+ gen/Network/AWS/DMS.hs view
@@ -0,0 +1,393 @@+{-# 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.DMS+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- AWS Database Migration Service+--+-- AWS Database Migration Service (AWS DMS) can migrate your data to and+-- from the most widely used commercial and open-source databases such as+-- Oracle, PostgreSQL, Microsoft SQL Server, MariaDB, Amazon Aurora, and+-- MySQL. The service supports homogeneous migrations such as Oracle to+-- Oracle, as well as heterogeneous migrations between different database+-- platforms, such as Oracle to MySQL or SQL Server to PostgreSQL.+module Network.AWS.DMS+    (+    -- * Service Configuration+      dms++    -- * Errors+    -- $errors++    -- ** InvalidSubnet+    , _InvalidSubnet++    -- ** KMSKeyNotAccessibleFault+    , _KMSKeyNotAccessibleFault++    -- ** ReplicationSubnetGroupDoesNotCoverEnoughAZs+    , _ReplicationSubnetGroupDoesNotCoverEnoughAZs++    -- ** InvalidResourceStateFault+    , _InvalidResourceStateFault++    -- ** ResourceAlreadyExistsFault+    , _ResourceAlreadyExistsFault++    -- ** InsufficientResourceCapacityFault+    , _InsufficientResourceCapacityFault++    -- ** ResourceQuotaExceededFault+    , _ResourceQuotaExceededFault++    -- ** UpgradeDependencyFailureFault+    , _UpgradeDependencyFailureFault++    -- ** ResourceNotFoundFault+    , _ResourceNotFoundFault++    -- ** StorageQuotaExceededFault+    , _StorageQuotaExceededFault++    -- ** AccessDeniedFault+    , _AccessDeniedFault++    -- ** SubnetAlreadyInUse+    , _SubnetAlreadyInUse++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** DeleteReplicationInstance+    , module Network.AWS.DMS.DeleteReplicationInstance++    -- ** CreateEndpoint+    , module Network.AWS.DMS.CreateEndpoint++    -- ** DescribeSchemas+    , module Network.AWS.DMS.DescribeSchemas++    -- ** DeleteEndpoint+    , module Network.AWS.DMS.DeleteEndpoint++    -- ** ListTagsForResource+    , module Network.AWS.DMS.ListTagsForResource++    -- ** DescribeEndpointTypes+    , module Network.AWS.DMS.DescribeEndpointTypes++    -- ** DeleteReplicationTask+    , module Network.AWS.DMS.DeleteReplicationTask++    -- ** TestConnection+    , module Network.AWS.DMS.TestConnection++    -- ** DescribeConnections+    , module Network.AWS.DMS.DescribeConnections++    -- ** RemoveTagsFromResource+    , module Network.AWS.DMS.RemoveTagsFromResource++    -- ** ModifyEndpoint+    , module Network.AWS.DMS.ModifyEndpoint++    -- ** DescribeTableStatistics+    , module Network.AWS.DMS.DescribeTableStatistics++    -- ** DescribeReplicationSubnetGroups+    , module Network.AWS.DMS.DescribeReplicationSubnetGroups++    -- ** StartReplicationTask+    , module Network.AWS.DMS.StartReplicationTask++    -- ** AddTagsToResource+    , module Network.AWS.DMS.AddTagsToResource++    -- ** CreateReplicationSubnetGroup+    , module Network.AWS.DMS.CreateReplicationSubnetGroup++    -- ** RefreshSchemas+    , module Network.AWS.DMS.RefreshSchemas++    -- ** DescribeReplicationTasks+    , module Network.AWS.DMS.DescribeReplicationTasks++    -- ** DescribeOrderableReplicationInstances+    , module Network.AWS.DMS.DescribeOrderableReplicationInstances++    -- ** CreateReplicationTask+    , module Network.AWS.DMS.CreateReplicationTask++    -- ** DescribeEndpoints+    , module Network.AWS.DMS.DescribeEndpoints++    -- ** ModifyReplicationInstance+    , module Network.AWS.DMS.ModifyReplicationInstance++    -- ** ModifyReplicationSubnetGroup+    , module Network.AWS.DMS.ModifyReplicationSubnetGroup++    -- ** DescribeAccountAttributes+    , module Network.AWS.DMS.DescribeAccountAttributes++    -- ** DescribeReplicationInstances+    , module Network.AWS.DMS.DescribeReplicationInstances++    -- ** DescribeRefreshSchemasStatus+    , module Network.AWS.DMS.DescribeRefreshSchemasStatus++    -- ** StopReplicationTask+    , module Network.AWS.DMS.StopReplicationTask++    -- ** CreateReplicationInstance+    , module Network.AWS.DMS.CreateReplicationInstance++    -- ** DeleteReplicationSubnetGroup+    , module Network.AWS.DMS.DeleteReplicationSubnetGroup++    -- * Types++    -- ** MigrationTypeValue+    , MigrationTypeValue (..)++    -- ** RefreshSchemasStatusTypeValue+    , RefreshSchemasStatusTypeValue (..)++    -- ** ReplicationEndpointTypeValue+    , ReplicationEndpointTypeValue (..)++    -- ** StartReplicationTaskTypeValue+    , StartReplicationTaskTypeValue (..)++    -- ** AccountQuota+    , AccountQuota+    , accountQuota+    , aqMax+    , aqUsed+    , aqAccountQuotaName++    -- ** AvailabilityZone+    , AvailabilityZone+    , availabilityZone+    , azName++    -- ** Connection+    , Connection+    , connection+    , cStatus+    , cReplicationInstanceARN+    , cEndpointIdentifier+    , cReplicationInstanceIdentifier+    , cEndpointARN+    , cLastFailureMessage++    -- ** Endpoint+    , Endpoint+    , endpoint+    , eStatus+    , eServerName+    , eExtraConnectionAttributes+    , eEndpointType+    , eUsername+    , eEngineName+    , eKMSKeyId+    , eDatabaseName+    , eEndpointIdentifier+    , eEndpointARN+    , ePort++    -- ** Filter+    , Filter+    , filter'+    , fName+    , fValues++    -- ** OrderableReplicationInstance+    , OrderableReplicationInstance+    , orderableReplicationInstance+    , oriEngineVersion+    , oriMinAllocatedStorage+    , oriIncludedAllocatedStorage+    , oriMaxAllocatedStorage+    , oriReplicationInstanceClass+    , oriDefaultAllocatedStorage+    , oriStorageType++    -- ** RefreshSchemasStatus+    , RefreshSchemasStatus+    , refreshSchemasStatus+    , rssStatus+    , rssLastRefreshDate+    , rssReplicationInstanceARN+    , rssEndpointARN+    , rssLastFailureMessage++    -- ** ReplicationInstance+    , ReplicationInstance+    , replicationInstance+    , riEngineVersion+    , riPubliclyAccessible+    , riAutoMinorVersionUpgrade+    , riReplicationSubnetGroup+    , riInstanceCreateTime+    , riReplicationInstanceStatus+    , riPreferredMaintenanceWindow+    , riReplicationInstancePrivateIPAddress+    , riKMSKeyId+    , riAvailabilityZone+    , riReplicationInstanceARN+    , riAllocatedStorage+    , riReplicationInstancePublicIPAddress+    , riReplicationInstanceClass+    , riReplicationInstanceIdentifier+    , riPendingModifiedValues++    -- ** ReplicationPendingModifiedValues+    , ReplicationPendingModifiedValues+    , replicationPendingModifiedValues+    , rpmvEngineVersion+    , rpmvAllocatedStorage+    , rpmvReplicationInstanceClass++    -- ** ReplicationSubnetGroup+    , ReplicationSubnetGroup+    , replicationSubnetGroup+    , rsgVPCId+    , rsgSubnets+    , rsgReplicationSubnetGroupIdentifier+    , rsgSubnetGroupStatus+    , rsgReplicationSubnetGroupDescription++    -- ** ReplicationTask+    , ReplicationTask+    , replicationTask+    , rtReplicationTaskSettings+    , rtStatus+    , rtTargetEndpointARN+    , rtReplicationTaskIdentifier+    , rtReplicationTaskStartDate+    , rtSourceEndpointARN+    , rtTableMappings+    , rtReplicationTaskCreationDate+    , rtMigrationType+    , rtReplicationTaskARN+    , rtReplicationTaskStats+    , rtReplicationInstanceARN+    , rtLastFailureMessage++    -- ** ReplicationTaskStats+    , ReplicationTaskStats+    , replicationTaskStats+    , rtsFullLoadProgressPercent+    , rtsElapsedTimeMillis+    , rtsTablesErrored+    , rtsTablesLoaded+    , rtsTablesQueued+    , rtsTablesLoading++    -- ** Subnet+    , Subnet+    , subnet+    , sSubnetStatus+    , sSubnetIdentifier+    , sSubnetAvailabilityZone++    -- ** SupportedEndpointType+    , SupportedEndpointType+    , supportedEndpointType+    , setEndpointType+    , setEngineName+    , setSupportsCDC++    -- ** TableStatistics+    , TableStatistics+    , tableStatistics+    , tsFullLoadRows+    , tsInserts+    , tsSchemaName+    , tsTableState+    , tsDdls+    , tsDeletes+    , tsUpdates+    , tsLastUpdateTime+    , tsTableName++    -- ** Tag+    , Tag+    , tag+    , tagValue+    , tagKey+    ) where++import           Network.AWS.DMS.AddTagsToResource+import           Network.AWS.DMS.CreateEndpoint+import           Network.AWS.DMS.CreateReplicationInstance+import           Network.AWS.DMS.CreateReplicationSubnetGroup+import           Network.AWS.DMS.CreateReplicationTask+import           Network.AWS.DMS.DeleteEndpoint+import           Network.AWS.DMS.DeleteReplicationInstance+import           Network.AWS.DMS.DeleteReplicationSubnetGroup+import           Network.AWS.DMS.DeleteReplicationTask+import           Network.AWS.DMS.DescribeAccountAttributes+import           Network.AWS.DMS.DescribeConnections+import           Network.AWS.DMS.DescribeEndpoints+import           Network.AWS.DMS.DescribeEndpointTypes+import           Network.AWS.DMS.DescribeOrderableReplicationInstances+import           Network.AWS.DMS.DescribeRefreshSchemasStatus+import           Network.AWS.DMS.DescribeReplicationInstances+import           Network.AWS.DMS.DescribeReplicationSubnetGroups+import           Network.AWS.DMS.DescribeReplicationTasks+import           Network.AWS.DMS.DescribeSchemas+import           Network.AWS.DMS.DescribeTableStatistics+import           Network.AWS.DMS.ListTagsForResource+import           Network.AWS.DMS.ModifyEndpoint+import           Network.AWS.DMS.ModifyReplicationInstance+import           Network.AWS.DMS.ModifyReplicationSubnetGroup+import           Network.AWS.DMS.RefreshSchemas+import           Network.AWS.DMS.RemoveTagsFromResource+import           Network.AWS.DMS.StartReplicationTask+import           Network.AWS.DMS.StopReplicationTask+import           Network.AWS.DMS.TestConnection+import           Network.AWS.DMS.Types+import           Network.AWS.DMS.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 'DMS'.+-}++{- $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.+-}
+ gen/Network/AWS/DMS/AddTagsToResource.hs view
@@ -0,0 +1,131 @@+{-# 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.DMS.AddTagsToResource+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- For internal use only+--+module Network.AWS.DMS.AddTagsToResource+    (+    -- * Creating a Request+      addTagsToResource+    , AddTagsToResource+    -- * Request Lenses+    , attrResourceARN+    , attrTags++    -- * Destructuring the Response+    , addTagsToResourceResponse+    , AddTagsToResourceResponse+    -- * Response Lenses+    , attrrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'addTagsToResource' smart constructor.+data AddTagsToResource = AddTagsToResource'+    { _attrResourceARN :: !Text+    , _attrTags        :: ![Tag]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AddTagsToResource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'attrResourceARN'+--+-- * 'attrTags'+addTagsToResource+    :: Text -- ^ 'attrResourceARN'+    -> AddTagsToResource+addTagsToResource pResourceARN_ =+    AddTagsToResource'+    { _attrResourceARN = pResourceARN_+    , _attrTags = mempty+    }++-- | The Amazon Resource Name (ARN) of the AWS DMS resource the tag is to be+-- added to. AWS DMS resources include a replication instance, endpoint,+-- and a replication task.+attrResourceARN :: Lens' AddTagsToResource Text+attrResourceARN = lens _attrResourceARN (\ s a -> s{_attrResourceARN = a});++-- | The tag to be assigned to the DMS resource.+attrTags :: Lens' AddTagsToResource [Tag]+attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce;++instance AWSRequest AddTagsToResource where+        type Rs AddTagsToResource = AddTagsToResourceResponse+        request = postJSON dms+        response+          = receiveEmpty+              (\ s h x ->+                 AddTagsToResourceResponse' <$> (pure (fromEnum s)))++instance Hashable AddTagsToResource++instance ToHeaders AddTagsToResource where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.AddTagsToResource" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AddTagsToResource where+        toJSON AddTagsToResource'{..}+          = object+              (catMaybes+                 [Just ("ResourceArn" .= _attrResourceARN),+                  Just ("Tags" .= _attrTags)])++instance ToPath AddTagsToResource where+        toPath = const "/"++instance ToQuery AddTagsToResource where+        toQuery = const mempty++-- | /See:/ 'addTagsToResourceResponse' smart constructor.+newtype AddTagsToResourceResponse = AddTagsToResourceResponse'+    { _attrrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AddTagsToResourceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'attrrsResponseStatus'+addTagsToResourceResponse+    :: Int -- ^ 'attrrsResponseStatus'+    -> AddTagsToResourceResponse+addTagsToResourceResponse pResponseStatus_ =+    AddTagsToResourceResponse'+    { _attrrsResponseStatus = pResponseStatus_+    }++-- | The response status code.+attrrsResponseStatus :: Lens' AddTagsToResourceResponse Int+attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a});
+ gen/Network/AWS/DMS/CreateEndpoint.hs view
@@ -0,0 +1,242 @@+{-# 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.DMS.CreateEndpoint+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an endpoint using the provided settings.+--+module Network.AWS.DMS.CreateEndpoint+    (+    -- * Creating a Request+      createEndpoint+    , CreateEndpoint+    -- * Request Lenses+    , ceExtraConnectionAttributes+    , ceKMSKeyId+    , ceDatabaseName+    , ceTags+    , ceEndpointIdentifier+    , ceEndpointType+    , ceEngineName+    , ceUsername+    , cePassword+    , ceServerName+    , cePort++    -- * Destructuring the Response+    , createEndpointResponse+    , CreateEndpointResponse+    -- * Response Lenses+    , cersEndpoint+    , cersResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'createEndpoint' smart constructor.+data CreateEndpoint = CreateEndpoint'+    { _ceExtraConnectionAttributes :: !(Maybe Text)+    , _ceKMSKeyId                  :: !(Maybe Text)+    , _ceDatabaseName              :: !(Maybe Text)+    , _ceTags                      :: !(Maybe [Tag])+    , _ceEndpointIdentifier        :: !Text+    , _ceEndpointType              :: !ReplicationEndpointTypeValue+    , _ceEngineName                :: !Text+    , _ceUsername                  :: !Text+    , _cePassword                  :: !(Sensitive Text)+    , _ceServerName                :: !Text+    , _cePort                      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateEndpoint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ceExtraConnectionAttributes'+--+-- * 'ceKMSKeyId'+--+-- * 'ceDatabaseName'+--+-- * 'ceTags'+--+-- * 'ceEndpointIdentifier'+--+-- * 'ceEndpointType'+--+-- * 'ceEngineName'+--+-- * 'ceUsername'+--+-- * 'cePassword'+--+-- * 'ceServerName'+--+-- * 'cePort'+createEndpoint+    :: Text -- ^ 'ceEndpointIdentifier'+    -> ReplicationEndpointTypeValue -- ^ 'ceEndpointType'+    -> Text -- ^ 'ceEngineName'+    -> Text -- ^ 'ceUsername'+    -> Text -- ^ 'cePassword'+    -> Text -- ^ 'ceServerName'+    -> Int -- ^ 'cePort'+    -> CreateEndpoint+createEndpoint pEndpointIdentifier_ pEndpointType_ pEngineName_ pUsername_ pPassword_ pServerName_ pPort_ =+    CreateEndpoint'+    { _ceExtraConnectionAttributes = Nothing+    , _ceKMSKeyId = Nothing+    , _ceDatabaseName = Nothing+    , _ceTags = Nothing+    , _ceEndpointIdentifier = pEndpointIdentifier_+    , _ceEndpointType = pEndpointType_+    , _ceEngineName = pEngineName_+    , _ceUsername = pUsername_+    , _cePassword = _Sensitive # pPassword_+    , _ceServerName = pServerName_+    , _cePort = pPort_+    }++-- | Additional attributes associated with the connection.+ceExtraConnectionAttributes :: Lens' CreateEndpoint (Maybe Text)+ceExtraConnectionAttributes = lens _ceExtraConnectionAttributes (\ s a -> s{_ceExtraConnectionAttributes = a});++-- | The KMS key identifier that will be used to encrypt the connection+-- parameters. If you do not specify a value for the KmsKeyId parameter,+-- then AWS DMS will use your default encryption key. AWS KMS creates the+-- default encryption key for your AWS account. Your AWS account has a+-- different default encryption key for each AWS region.+ceKMSKeyId :: Lens' CreateEndpoint (Maybe Text)+ceKMSKeyId = lens _ceKMSKeyId (\ s a -> s{_ceKMSKeyId = a});++-- | The name of the endpoint database.+ceDatabaseName :: Lens' CreateEndpoint (Maybe Text)+ceDatabaseName = lens _ceDatabaseName (\ s a -> s{_ceDatabaseName = a});++-- | Tags to be added to the endpoint.+ceTags :: Lens' CreateEndpoint [Tag]+ceTags = lens _ceTags (\ s a -> s{_ceTags = a}) . _Default . _Coerce;++-- | The database endpoint identifier. Identifiers must begin with a letter;+-- must contain only ASCII letters, digits, and hyphens; and must not end+-- with a hyphen or contain two consecutive hyphens.+ceEndpointIdentifier :: Lens' CreateEndpoint Text+ceEndpointIdentifier = lens _ceEndpointIdentifier (\ s a -> s{_ceEndpointIdentifier = a});++-- | The type of endpoint.+ceEndpointType :: Lens' CreateEndpoint ReplicationEndpointTypeValue+ceEndpointType = lens _ceEndpointType (\ s a -> s{_ceEndpointType = a});++-- | The type of engine for the endpoint. Valid values include MYSQL, ORACLE,+-- POSTGRES, MARIADB, AURORA, SQLSERVER.+ceEngineName :: Lens' CreateEndpoint Text+ceEngineName = lens _ceEngineName (\ s a -> s{_ceEngineName = a});++-- | The user name to be used to login to the endpoint database.+ceUsername :: Lens' CreateEndpoint Text+ceUsername = lens _ceUsername (\ s a -> s{_ceUsername = a});++-- | The password to be used to login to the endpoint database.+cePassword :: Lens' CreateEndpoint Text+cePassword = lens _cePassword (\ s a -> s{_cePassword = a}) . _Sensitive;++-- | The name of the server where the endpoint database resides.+ceServerName :: Lens' CreateEndpoint Text+ceServerName = lens _ceServerName (\ s a -> s{_ceServerName = a});++-- | The port used by the endpoint database.+cePort :: Lens' CreateEndpoint Int+cePort = lens _cePort (\ s a -> s{_cePort = a});++instance AWSRequest CreateEndpoint where+        type Rs CreateEndpoint = CreateEndpointResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 CreateEndpointResponse' <$>+                   (x .?> "Endpoint") <*> (pure (fromEnum s)))++instance Hashable CreateEndpoint++instance ToHeaders CreateEndpoint where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.CreateEndpoint" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateEndpoint where+        toJSON CreateEndpoint'{..}+          = object+              (catMaybes+                 [("ExtraConnectionAttributes" .=) <$>+                    _ceExtraConnectionAttributes,+                  ("KmsKeyId" .=) <$> _ceKMSKeyId,+                  ("DatabaseName" .=) <$> _ceDatabaseName,+                  ("Tags" .=) <$> _ceTags,+                  Just ("EndpointIdentifier" .= _ceEndpointIdentifier),+                  Just ("EndpointType" .= _ceEndpointType),+                  Just ("EngineName" .= _ceEngineName),+                  Just ("Username" .= _ceUsername),+                  Just ("Password" .= _cePassword),+                  Just ("ServerName" .= _ceServerName),+                  Just ("Port" .= _cePort)])++instance ToPath CreateEndpoint where+        toPath = const "/"++instance ToQuery CreateEndpoint where+        toQuery = const mempty++-- | /See:/ 'createEndpointResponse' smart constructor.+data CreateEndpointResponse = CreateEndpointResponse'+    { _cersEndpoint       :: !(Maybe Endpoint)+    , _cersResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateEndpointResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cersEndpoint'+--+-- * 'cersResponseStatus'+createEndpointResponse+    :: Int -- ^ 'cersResponseStatus'+    -> CreateEndpointResponse+createEndpointResponse pResponseStatus_ =+    CreateEndpointResponse'+    { _cersEndpoint = Nothing+    , _cersResponseStatus = pResponseStatus_+    }++-- | The endpoint that was created.+cersEndpoint :: Lens' CreateEndpointResponse (Maybe Endpoint)+cersEndpoint = lens _cersEndpoint (\ s a -> s{_cersEndpoint = a});++-- | The response status code.+cersResponseStatus :: Lens' CreateEndpointResponse Int+cersResponseStatus = lens _cersResponseStatus (\ s a -> s{_cersResponseStatus = a});
+ gen/Network/AWS/DMS/CreateReplicationInstance.hs view
@@ -0,0 +1,281 @@+{-# 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.DMS.CreateReplicationInstance+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates the replication instance using the specified parameters.+--+module Network.AWS.DMS.CreateReplicationInstance+    (+    -- * Creating a Request+      createReplicationInstance+    , CreateReplicationInstance+    -- * Request Lenses+    , criEngineVersion+    , criPubliclyAccessible+    , criAutoMinorVersionUpgrade+    , criReplicationSubnetGroupIdentifier+    , criPreferredMaintenanceWindow+    , criKMSKeyId+    , criAvailabilityZone+    , criAllocatedStorage+    , criTags+    , criReplicationInstanceIdentifier+    , criReplicationInstanceClass++    -- * Destructuring the Response+    , createReplicationInstanceResponse+    , CreateReplicationInstanceResponse+    -- * Response Lenses+    , crirsReplicationInstance+    , crirsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- |+--+-- /See:/ 'createReplicationInstance' smart constructor.+data CreateReplicationInstance = CreateReplicationInstance'+    { _criEngineVersion                    :: !(Maybe Text)+    , _criPubliclyAccessible               :: !(Maybe Bool)+    , _criAutoMinorVersionUpgrade          :: !(Maybe Bool)+    , _criReplicationSubnetGroupIdentifier :: !(Maybe Text)+    , _criPreferredMaintenanceWindow       :: !(Maybe Text)+    , _criKMSKeyId                         :: !(Maybe Text)+    , _criAvailabilityZone                 :: !(Maybe Text)+    , _criAllocatedStorage                 :: !(Maybe Int)+    , _criTags                             :: !(Maybe [Tag])+    , _criReplicationInstanceIdentifier    :: !Text+    , _criReplicationInstanceClass         :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateReplicationInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'criEngineVersion'+--+-- * 'criPubliclyAccessible'+--+-- * 'criAutoMinorVersionUpgrade'+--+-- * 'criReplicationSubnetGroupIdentifier'+--+-- * 'criPreferredMaintenanceWindow'+--+-- * 'criKMSKeyId'+--+-- * 'criAvailabilityZone'+--+-- * 'criAllocatedStorage'+--+-- * 'criTags'+--+-- * 'criReplicationInstanceIdentifier'+--+-- * 'criReplicationInstanceClass'+createReplicationInstance+    :: Text -- ^ 'criReplicationInstanceIdentifier'+    -> Text -- ^ 'criReplicationInstanceClass'+    -> CreateReplicationInstance+createReplicationInstance pReplicationInstanceIdentifier_ pReplicationInstanceClass_ =+    CreateReplicationInstance'+    { _criEngineVersion = Nothing+    , _criPubliclyAccessible = Nothing+    , _criAutoMinorVersionUpgrade = Nothing+    , _criReplicationSubnetGroupIdentifier = Nothing+    , _criPreferredMaintenanceWindow = Nothing+    , _criKMSKeyId = Nothing+    , _criAvailabilityZone = Nothing+    , _criAllocatedStorage = Nothing+    , _criTags = Nothing+    , _criReplicationInstanceIdentifier = pReplicationInstanceIdentifier_+    , _criReplicationInstanceClass = pReplicationInstanceClass_+    }++-- | The engine version number of the replication instance.+criEngineVersion :: Lens' CreateReplicationInstance (Maybe Text)+criEngineVersion = lens _criEngineVersion (\ s a -> s{_criEngineVersion = a});++-- | Specifies the accessibility options for the replication instance. A+-- value of 'true' represents an instance with a public IP address. A value+-- of 'false' represents an instance with a private IP address. The default+-- value is 'true'.+criPubliclyAccessible :: Lens' CreateReplicationInstance (Maybe Bool)+criPubliclyAccessible = lens _criPubliclyAccessible (\ s a -> s{_criPubliclyAccessible = a});++-- | Indicates that minor engine upgrades will be applied automatically to+-- the replication instance during the maintenance window.+--+-- Default: 'true'+criAutoMinorVersionUpgrade :: Lens' CreateReplicationInstance (Maybe Bool)+criAutoMinorVersionUpgrade = lens _criAutoMinorVersionUpgrade (\ s a -> s{_criAutoMinorVersionUpgrade = a});++-- | A subnet group to associate with the replication instance.+criReplicationSubnetGroupIdentifier :: Lens' CreateReplicationInstance (Maybe Text)+criReplicationSubnetGroupIdentifier = lens _criReplicationSubnetGroupIdentifier (\ s a -> s{_criReplicationSubnetGroupIdentifier = 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.+--+-- Valid Days: Mon, Tue, Wed, Thu, Fri, Sat, Sun+--+-- Constraints: Minimum 30-minute window.+criPreferredMaintenanceWindow :: Lens' CreateReplicationInstance (Maybe Text)+criPreferredMaintenanceWindow = lens _criPreferredMaintenanceWindow (\ s a -> s{_criPreferredMaintenanceWindow = a});++-- | The KMS key identifier that will be used to encrypt the content on the+-- replication instance. If you do not specify a value for the KmsKeyId+-- parameter, then AWS DMS will use your default encryption key. AWS KMS+-- creates the default encryption key for your AWS account. Your AWS+-- account has a different default encryption key for each AWS region.+criKMSKeyId :: Lens' CreateReplicationInstance (Maybe Text)+criKMSKeyId = lens _criKMSKeyId (\ s a -> s{_criKMSKeyId = a});++-- | The EC2 Availability Zone that the replication instance will be created+-- in.+--+-- Default: A random, system-chosen Availability Zone in the endpoint\'s+-- region.+--+-- Example: 'us-east-1d'+criAvailabilityZone :: Lens' CreateReplicationInstance (Maybe Text)+criAvailabilityZone = lens _criAvailabilityZone (\ s a -> s{_criAvailabilityZone = a});++-- | The amount of storage (in gigabytes) to be initially allocated for the+-- replication instance.+criAllocatedStorage :: Lens' CreateReplicationInstance (Maybe Int)+criAllocatedStorage = lens _criAllocatedStorage (\ s a -> s{_criAllocatedStorage = a});++-- | Tags to be associated with the replication instance.+criTags :: Lens' CreateReplicationInstance [Tag]+criTags = lens _criTags (\ s a -> s{_criTags = a}) . _Default . _Coerce;++-- | The replication instance identifier. This parameter is stored as a+-- lowercase string.+--+-- Constraints:+--+-- -   Must contain from 1 to 63 alphanumeric characters or hyphens.+-- -   First character must be a letter.+-- -   Cannot end with a hyphen or contain two consecutive hyphens.+--+-- Example: 'myrepinstance'+criReplicationInstanceIdentifier :: Lens' CreateReplicationInstance Text+criReplicationInstanceIdentifier = lens _criReplicationInstanceIdentifier (\ s a -> s{_criReplicationInstanceIdentifier = a});++-- | The compute and memory capacity of the replication instance as specified+-- by the replication instance class.+--+-- Valid Values:+-- 'dms.t2.micro | dms.t2.small | dms.t2.medium | dms.t2.large | dms.c4.large | dms.c4.xlarge | dms.c4.2xlarge | dms.c4.4xlarge '+criReplicationInstanceClass :: Lens' CreateReplicationInstance Text+criReplicationInstanceClass = lens _criReplicationInstanceClass (\ s a -> s{_criReplicationInstanceClass = a});++instance AWSRequest CreateReplicationInstance where+        type Rs CreateReplicationInstance =+             CreateReplicationInstanceResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 CreateReplicationInstanceResponse' <$>+                   (x .?> "ReplicationInstance") <*>+                     (pure (fromEnum s)))++instance Hashable CreateReplicationInstance++instance ToHeaders CreateReplicationInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.CreateReplicationInstance" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateReplicationInstance where+        toJSON CreateReplicationInstance'{..}+          = object+              (catMaybes+                 [("EngineVersion" .=) <$> _criEngineVersion,+                  ("PubliclyAccessible" .=) <$> _criPubliclyAccessible,+                  ("AutoMinorVersionUpgrade" .=) <$>+                    _criAutoMinorVersionUpgrade,+                  ("ReplicationSubnetGroupIdentifier" .=) <$>+                    _criReplicationSubnetGroupIdentifier,+                  ("PreferredMaintenanceWindow" .=) <$>+                    _criPreferredMaintenanceWindow,+                  ("KmsKeyId" .=) <$> _criKMSKeyId,+                  ("AvailabilityZone" .=) <$> _criAvailabilityZone,+                  ("AllocatedStorage" .=) <$> _criAllocatedStorage,+                  ("Tags" .=) <$> _criTags,+                  Just+                    ("ReplicationInstanceIdentifier" .=+                       _criReplicationInstanceIdentifier),+                  Just+                    ("ReplicationInstanceClass" .=+                       _criReplicationInstanceClass)])++instance ToPath CreateReplicationInstance where+        toPath = const "/"++instance ToQuery CreateReplicationInstance where+        toQuery = const mempty++-- | /See:/ 'createReplicationInstanceResponse' smart constructor.+data CreateReplicationInstanceResponse = CreateReplicationInstanceResponse'+    { _crirsReplicationInstance :: !(Maybe ReplicationInstance)+    , _crirsResponseStatus      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateReplicationInstanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crirsReplicationInstance'+--+-- * 'crirsResponseStatus'+createReplicationInstanceResponse+    :: Int -- ^ 'crirsResponseStatus'+    -> CreateReplicationInstanceResponse+createReplicationInstanceResponse pResponseStatus_ =+    CreateReplicationInstanceResponse'+    { _crirsReplicationInstance = Nothing+    , _crirsResponseStatus = pResponseStatus_+    }++-- | The replication instance that was created.+crirsReplicationInstance :: Lens' CreateReplicationInstanceResponse (Maybe ReplicationInstance)+crirsReplicationInstance = lens _crirsReplicationInstance (\ s a -> s{_crirsReplicationInstance = a});++-- | The response status code.+crirsResponseStatus :: Lens' CreateReplicationInstanceResponse Int+crirsResponseStatus = lens _crirsResponseStatus (\ s a -> s{_crirsResponseStatus = a});
+ gen/Network/AWS/DMS/CreateReplicationSubnetGroup.hs view
@@ -0,0 +1,174 @@+{-# 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.DMS.CreateReplicationSubnetGroup+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a replication subnet group given a list of the subnet IDs in a+-- VPC.+--+module Network.AWS.DMS.CreateReplicationSubnetGroup+    (+    -- * Creating a Request+      createReplicationSubnetGroup+    , CreateReplicationSubnetGroup+    -- * Request Lenses+    , crsgTags+    , crsgReplicationSubnetGroupIdentifier+    , crsgReplicationSubnetGroupDescription+    , crsgSubnetIds++    -- * Destructuring the Response+    , createReplicationSubnetGroupResponse+    , CreateReplicationSubnetGroupResponse+    -- * Response Lenses+    , crsgrsReplicationSubnetGroup+    , crsgrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'createReplicationSubnetGroup' smart constructor.+data CreateReplicationSubnetGroup = CreateReplicationSubnetGroup'+    { _crsgTags                              :: !(Maybe [Tag])+    , _crsgReplicationSubnetGroupIdentifier  :: !Text+    , _crsgReplicationSubnetGroupDescription :: !Text+    , _crsgSubnetIds                         :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateReplicationSubnetGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crsgTags'+--+-- * 'crsgReplicationSubnetGroupIdentifier'+--+-- * 'crsgReplicationSubnetGroupDescription'+--+-- * 'crsgSubnetIds'+createReplicationSubnetGroup+    :: Text -- ^ 'crsgReplicationSubnetGroupIdentifier'+    -> Text -- ^ 'crsgReplicationSubnetGroupDescription'+    -> CreateReplicationSubnetGroup+createReplicationSubnetGroup pReplicationSubnetGroupIdentifier_ pReplicationSubnetGroupDescription_ =+    CreateReplicationSubnetGroup'+    { _crsgTags = Nothing+    , _crsgReplicationSubnetGroupIdentifier = pReplicationSubnetGroupIdentifier_+    , _crsgReplicationSubnetGroupDescription = pReplicationSubnetGroupDescription_+    , _crsgSubnetIds = mempty+    }++-- | The tag to be assigned to the subnet group.+crsgTags :: Lens' CreateReplicationSubnetGroup [Tag]+crsgTags = lens _crsgTags (\ s a -> s{_crsgTags = a}) . _Default . _Coerce;++-- | The name for the replication subnet group. This value is stored as a+-- lowercase string.+--+-- Constraints: Must contain no more than 255 alphanumeric characters,+-- periods, spaces, underscores, or hyphens. Must not be \"default\".+--+-- Example: 'mySubnetgroup'+crsgReplicationSubnetGroupIdentifier :: Lens' CreateReplicationSubnetGroup Text+crsgReplicationSubnetGroupIdentifier = lens _crsgReplicationSubnetGroupIdentifier (\ s a -> s{_crsgReplicationSubnetGroupIdentifier = a});++-- | The description for the subnet group.+crsgReplicationSubnetGroupDescription :: Lens' CreateReplicationSubnetGroup Text+crsgReplicationSubnetGroupDescription = lens _crsgReplicationSubnetGroupDescription (\ s a -> s{_crsgReplicationSubnetGroupDescription = a});++-- | The EC2 subnet IDs for the subnet group.+crsgSubnetIds :: Lens' CreateReplicationSubnetGroup [Text]+crsgSubnetIds = lens _crsgSubnetIds (\ s a -> s{_crsgSubnetIds = a}) . _Coerce;++instance AWSRequest CreateReplicationSubnetGroup+         where+        type Rs CreateReplicationSubnetGroup =+             CreateReplicationSubnetGroupResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 CreateReplicationSubnetGroupResponse' <$>+                   (x .?> "ReplicationSubnetGroup") <*>+                     (pure (fromEnum s)))++instance Hashable CreateReplicationSubnetGroup++instance ToHeaders CreateReplicationSubnetGroup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.CreateReplicationSubnetGroup" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateReplicationSubnetGroup where+        toJSON CreateReplicationSubnetGroup'{..}+          = object+              (catMaybes+                 [("Tags" .=) <$> _crsgTags,+                  Just+                    ("ReplicationSubnetGroupIdentifier" .=+                       _crsgReplicationSubnetGroupIdentifier),+                  Just+                    ("ReplicationSubnetGroupDescription" .=+                       _crsgReplicationSubnetGroupDescription),+                  Just ("SubnetIds" .= _crsgSubnetIds)])++instance ToPath CreateReplicationSubnetGroup where+        toPath = const "/"++instance ToQuery CreateReplicationSubnetGroup where+        toQuery = const mempty++-- | /See:/ 'createReplicationSubnetGroupResponse' smart constructor.+data CreateReplicationSubnetGroupResponse = CreateReplicationSubnetGroupResponse'+    { _crsgrsReplicationSubnetGroup :: !(Maybe ReplicationSubnetGroup)+    , _crsgrsResponseStatus         :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateReplicationSubnetGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crsgrsReplicationSubnetGroup'+--+-- * 'crsgrsResponseStatus'+createReplicationSubnetGroupResponse+    :: Int -- ^ 'crsgrsResponseStatus'+    -> CreateReplicationSubnetGroupResponse+createReplicationSubnetGroupResponse pResponseStatus_ =+    CreateReplicationSubnetGroupResponse'+    { _crsgrsReplicationSubnetGroup = Nothing+    , _crsgrsResponseStatus = pResponseStatus_+    }++-- | The replication subnet group that was created.+crsgrsReplicationSubnetGroup :: Lens' CreateReplicationSubnetGroupResponse (Maybe ReplicationSubnetGroup)+crsgrsReplicationSubnetGroup = lens _crsgrsReplicationSubnetGroup (\ s a -> s{_crsgrsReplicationSubnetGroup = a});++-- | The response status code.+crsgrsResponseStatus :: Lens' CreateReplicationSubnetGroupResponse Int+crsgrsResponseStatus = lens _crsgrsResponseStatus (\ s a -> s{_crsgrsResponseStatus = a});
+ gen/Network/AWS/DMS/CreateReplicationTask.hs view
@@ -0,0 +1,228 @@+{-# 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.DMS.CreateReplicationTask+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a replication task using the specified parameters.+--+module Network.AWS.DMS.CreateReplicationTask+    (+    -- * Creating a Request+      createReplicationTask+    , CreateReplicationTask+    -- * Request Lenses+    , crtReplicationTaskSettings+    , crtTags+    , crtCdcStartTime+    , crtReplicationTaskIdentifier+    , crtSourceEndpointARN+    , crtTargetEndpointARN+    , crtReplicationInstanceARN+    , crtMigrationType+    , crtTableMappings++    -- * Destructuring the Response+    , createReplicationTaskResponse+    , CreateReplicationTaskResponse+    -- * Response Lenses+    , crtrsReplicationTask+    , crtrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'createReplicationTask' smart constructor.+data CreateReplicationTask = CreateReplicationTask'+    { _crtReplicationTaskSettings   :: !(Maybe Text)+    , _crtTags                      :: !(Maybe [Tag])+    , _crtCdcStartTime              :: !(Maybe POSIX)+    , _crtReplicationTaskIdentifier :: !Text+    , _crtSourceEndpointARN         :: !Text+    , _crtTargetEndpointARN         :: !Text+    , _crtReplicationInstanceARN    :: !Text+    , _crtMigrationType             :: !MigrationTypeValue+    , _crtTableMappings             :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateReplicationTask' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crtReplicationTaskSettings'+--+-- * 'crtTags'+--+-- * 'crtCdcStartTime'+--+-- * 'crtReplicationTaskIdentifier'+--+-- * 'crtSourceEndpointARN'+--+-- * 'crtTargetEndpointARN'+--+-- * 'crtReplicationInstanceARN'+--+-- * 'crtMigrationType'+--+-- * 'crtTableMappings'+createReplicationTask+    :: Text -- ^ 'crtReplicationTaskIdentifier'+    -> Text -- ^ 'crtSourceEndpointARN'+    -> Text -- ^ 'crtTargetEndpointARN'+    -> Text -- ^ 'crtReplicationInstanceARN'+    -> MigrationTypeValue -- ^ 'crtMigrationType'+    -> Text -- ^ 'crtTableMappings'+    -> CreateReplicationTask+createReplicationTask pReplicationTaskIdentifier_ pSourceEndpointARN_ pTargetEndpointARN_ pReplicationInstanceARN_ pMigrationType_ pTableMappings_ =+    CreateReplicationTask'+    { _crtReplicationTaskSettings = Nothing+    , _crtTags = Nothing+    , _crtCdcStartTime = Nothing+    , _crtReplicationTaskIdentifier = pReplicationTaskIdentifier_+    , _crtSourceEndpointARN = pSourceEndpointARN_+    , _crtTargetEndpointARN = pTargetEndpointARN_+    , _crtReplicationInstanceARN = pReplicationInstanceARN_+    , _crtMigrationType = pMigrationType_+    , _crtTableMappings = pTableMappings_+    }++-- | Settings for the task, such as target metadata settings.+crtReplicationTaskSettings :: Lens' CreateReplicationTask (Maybe Text)+crtReplicationTaskSettings = lens _crtReplicationTaskSettings (\ s a -> s{_crtReplicationTaskSettings = a});++-- | Tags to be added to the replication instance.+crtTags :: Lens' CreateReplicationTask [Tag]+crtTags = lens _crtTags (\ s a -> s{_crtTags = a}) . _Default . _Coerce;++-- | The start time for the Change Data Capture (CDC) operation.+crtCdcStartTime :: Lens' CreateReplicationTask (Maybe UTCTime)+crtCdcStartTime = lens _crtCdcStartTime (\ s a -> s{_crtCdcStartTime = a}) . mapping _Time;++-- | The replication task identifier.+--+-- 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.+crtReplicationTaskIdentifier :: Lens' CreateReplicationTask Text+crtReplicationTaskIdentifier = lens _crtReplicationTaskIdentifier (\ s a -> s{_crtReplicationTaskIdentifier = a});++-- | The Amazon Resource Name (ARN) string that uniquely identifies the+-- endpoint.+crtSourceEndpointARN :: Lens' CreateReplicationTask Text+crtSourceEndpointARN = lens _crtSourceEndpointARN (\ s a -> s{_crtSourceEndpointARN = a});++-- | The Amazon Resource Name (ARN) string that uniquely identifies the+-- endpoint.+crtTargetEndpointARN :: Lens' CreateReplicationTask Text+crtTargetEndpointARN = lens _crtTargetEndpointARN (\ s a -> s{_crtTargetEndpointARN = a});++-- | The Amazon Resource Name (ARN) of the replication instance.+crtReplicationInstanceARN :: Lens' CreateReplicationTask Text+crtReplicationInstanceARN = lens _crtReplicationInstanceARN (\ s a -> s{_crtReplicationInstanceARN = a});++-- | The migration type.+crtMigrationType :: Lens' CreateReplicationTask MigrationTypeValue+crtMigrationType = lens _crtMigrationType (\ s a -> s{_crtMigrationType = a});++-- | The path of the JSON file that contains the table mappings.+crtTableMappings :: Lens' CreateReplicationTask Text+crtTableMappings = lens _crtTableMappings (\ s a -> s{_crtTableMappings = a});++instance AWSRequest CreateReplicationTask where+        type Rs CreateReplicationTask =+             CreateReplicationTaskResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 CreateReplicationTaskResponse' <$>+                   (x .?> "ReplicationTask") <*> (pure (fromEnum s)))++instance Hashable CreateReplicationTask++instance ToHeaders CreateReplicationTask where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.CreateReplicationTask" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateReplicationTask where+        toJSON CreateReplicationTask'{..}+          = object+              (catMaybes+                 [("ReplicationTaskSettings" .=) <$>+                    _crtReplicationTaskSettings,+                  ("Tags" .=) <$> _crtTags,+                  ("CdcStartTime" .=) <$> _crtCdcStartTime,+                  Just+                    ("ReplicationTaskIdentifier" .=+                       _crtReplicationTaskIdentifier),+                  Just ("SourceEndpointArn" .= _crtSourceEndpointARN),+                  Just ("TargetEndpointArn" .= _crtTargetEndpointARN),+                  Just+                    ("ReplicationInstanceArn" .=+                       _crtReplicationInstanceARN),+                  Just ("MigrationType" .= _crtMigrationType),+                  Just ("TableMappings" .= _crtTableMappings)])++instance ToPath CreateReplicationTask where+        toPath = const "/"++instance ToQuery CreateReplicationTask where+        toQuery = const mempty++-- | /See:/ 'createReplicationTaskResponse' smart constructor.+data CreateReplicationTaskResponse = CreateReplicationTaskResponse'+    { _crtrsReplicationTask :: !(Maybe ReplicationTask)+    , _crtrsResponseStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateReplicationTaskResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crtrsReplicationTask'+--+-- * 'crtrsResponseStatus'+createReplicationTaskResponse+    :: Int -- ^ 'crtrsResponseStatus'+    -> CreateReplicationTaskResponse+createReplicationTaskResponse pResponseStatus_ =+    CreateReplicationTaskResponse'+    { _crtrsReplicationTask = Nothing+    , _crtrsResponseStatus = pResponseStatus_+    }++-- | The replication task that was created.+crtrsReplicationTask :: Lens' CreateReplicationTaskResponse (Maybe ReplicationTask)+crtrsReplicationTask = lens _crtrsReplicationTask (\ s a -> s{_crtrsReplicationTask = a});++-- | The response status code.+crtrsResponseStatus :: Lens' CreateReplicationTaskResponse Int+crtrsResponseStatus = lens _crtrsResponseStatus (\ s a -> s{_crtrsResponseStatus = a});
+ gen/Network/AWS/DMS/DeleteEndpoint.hs view
@@ -0,0 +1,131 @@+{-# 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.DMS.DeleteEndpoint+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified endpoint.+--+-- All tasks associated with the endpoint must be deleted before you can+-- delete the endpoint.+--+module Network.AWS.DMS.DeleteEndpoint+    (+    -- * Creating a Request+      deleteEndpoint+    , DeleteEndpoint+    -- * Request Lenses+    , deEndpointARN++    -- * Destructuring the Response+    , deleteEndpointResponse+    , DeleteEndpointResponse+    -- * Response Lenses+    , drsEndpoint+    , drsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'deleteEndpoint' smart constructor.+newtype DeleteEndpoint = DeleteEndpoint'+    { _deEndpointARN :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteEndpoint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'deEndpointARN'+deleteEndpoint+    :: Text -- ^ 'deEndpointARN'+    -> DeleteEndpoint+deleteEndpoint pEndpointARN_ =+    DeleteEndpoint'+    { _deEndpointARN = pEndpointARN_+    }++-- | The Amazon Resource Name (ARN) string that uniquely identifies the+-- endpoint.+deEndpointARN :: Lens' DeleteEndpoint Text+deEndpointARN = lens _deEndpointARN (\ s a -> s{_deEndpointARN = a});++instance AWSRequest DeleteEndpoint where+        type Rs DeleteEndpoint = DeleteEndpointResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DeleteEndpointResponse' <$>+                   (x .?> "Endpoint") <*> (pure (fromEnum s)))++instance Hashable DeleteEndpoint++instance ToHeaders DeleteEndpoint where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DeleteEndpoint" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteEndpoint where+        toJSON DeleteEndpoint'{..}+          = object+              (catMaybes [Just ("EndpointArn" .= _deEndpointARN)])++instance ToPath DeleteEndpoint where+        toPath = const "/"++instance ToQuery DeleteEndpoint where+        toQuery = const mempty++-- | /See:/ 'deleteEndpointResponse' smart constructor.+data DeleteEndpointResponse = DeleteEndpointResponse'+    { _drsEndpoint       :: !(Maybe Endpoint)+    , _drsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteEndpointResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsEndpoint'+--+-- * 'drsResponseStatus'+deleteEndpointResponse+    :: Int -- ^ 'drsResponseStatus'+    -> DeleteEndpointResponse+deleteEndpointResponse pResponseStatus_ =+    DeleteEndpointResponse'+    { _drsEndpoint = Nothing+    , _drsResponseStatus = pResponseStatus_+    }++-- | The endpoint that was deleted.+drsEndpoint :: Lens' DeleteEndpointResponse (Maybe Endpoint)+drsEndpoint = lens _drsEndpoint (\ s a -> s{_drsEndpoint = a});++-- | The response status code.+drsResponseStatus :: Lens' DeleteEndpointResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
+ gen/Network/AWS/DMS/DeleteReplicationInstance.hs view
@@ -0,0 +1,137 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DMS.DeleteReplicationInstance+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified replication instance.+--+-- You must delete any migration tasks that are associated with the+-- replication instance before you can delete it.+--+module Network.AWS.DMS.DeleteReplicationInstance+    (+    -- * Creating a Request+      deleteReplicationInstance+    , DeleteReplicationInstance+    -- * Request Lenses+    , driReplicationInstanceARN++    -- * Destructuring the Response+    , deleteReplicationInstanceResponse+    , DeleteReplicationInstanceResponse+    -- * Response Lenses+    , drirsReplicationInstance+    , drirsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'deleteReplicationInstance' smart constructor.+newtype DeleteReplicationInstance = DeleteReplicationInstance'+    { _driReplicationInstanceARN :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteReplicationInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'driReplicationInstanceARN'+deleteReplicationInstance+    :: Text -- ^ 'driReplicationInstanceARN'+    -> DeleteReplicationInstance+deleteReplicationInstance pReplicationInstanceARN_ =+    DeleteReplicationInstance'+    { _driReplicationInstanceARN = pReplicationInstanceARN_+    }++-- | The Amazon Resource Name (ARN) of the replication instance to be+-- deleted.+driReplicationInstanceARN :: Lens' DeleteReplicationInstance Text+driReplicationInstanceARN = lens _driReplicationInstanceARN (\ s a -> s{_driReplicationInstanceARN = a});++instance AWSRequest DeleteReplicationInstance where+        type Rs DeleteReplicationInstance =+             DeleteReplicationInstanceResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DeleteReplicationInstanceResponse' <$>+                   (x .?> "ReplicationInstance") <*>+                     (pure (fromEnum s)))++instance Hashable DeleteReplicationInstance++instance ToHeaders DeleteReplicationInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DeleteReplicationInstance" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteReplicationInstance where+        toJSON DeleteReplicationInstance'{..}+          = object+              (catMaybes+                 [Just+                    ("ReplicationInstanceArn" .=+                       _driReplicationInstanceARN)])++instance ToPath DeleteReplicationInstance where+        toPath = const "/"++instance ToQuery DeleteReplicationInstance where+        toQuery = const mempty++-- | /See:/ 'deleteReplicationInstanceResponse' smart constructor.+data DeleteReplicationInstanceResponse = DeleteReplicationInstanceResponse'+    { _drirsReplicationInstance :: !(Maybe ReplicationInstance)+    , _drirsResponseStatus      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteReplicationInstanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drirsReplicationInstance'+--+-- * 'drirsResponseStatus'+deleteReplicationInstanceResponse+    :: Int -- ^ 'drirsResponseStatus'+    -> DeleteReplicationInstanceResponse+deleteReplicationInstanceResponse pResponseStatus_ =+    DeleteReplicationInstanceResponse'+    { _drirsReplicationInstance = Nothing+    , _drirsResponseStatus = pResponseStatus_+    }++-- | The replication instance that was deleted.+drirsReplicationInstance :: Lens' DeleteReplicationInstanceResponse (Maybe ReplicationInstance)+drirsReplicationInstance = lens _drirsReplicationInstance (\ s a -> s{_drirsReplicationInstance = a});++-- | The response status code.+drirsResponseStatus :: Lens' DeleteReplicationInstanceResponse Int+drirsResponseStatus = lens _drirsResponseStatus (\ s a -> s{_drirsResponseStatus = a});
+ gen/Network/AWS/DMS/DeleteReplicationSubnetGroup.hs view
@@ -0,0 +1,124 @@+{-# 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.DMS.DeleteReplicationSubnetGroup+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a subnet group.+--+module Network.AWS.DMS.DeleteReplicationSubnetGroup+    (+    -- * Creating a Request+      deleteReplicationSubnetGroup+    , DeleteReplicationSubnetGroup+    -- * Request Lenses+    , drsgReplicationSubnetGroupIdentifier++    -- * Destructuring the Response+    , deleteReplicationSubnetGroupResponse+    , DeleteReplicationSubnetGroupResponse+    -- * Response Lenses+    , drsgrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'deleteReplicationSubnetGroup' smart constructor.+newtype DeleteReplicationSubnetGroup = DeleteReplicationSubnetGroup'+    { _drsgReplicationSubnetGroupIdentifier :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteReplicationSubnetGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsgReplicationSubnetGroupIdentifier'+deleteReplicationSubnetGroup+    :: Text -- ^ 'drsgReplicationSubnetGroupIdentifier'+    -> DeleteReplicationSubnetGroup+deleteReplicationSubnetGroup pReplicationSubnetGroupIdentifier_ =+    DeleteReplicationSubnetGroup'+    { _drsgReplicationSubnetGroupIdentifier = pReplicationSubnetGroupIdentifier_+    }++-- | The subnet group name of the replication instance.+drsgReplicationSubnetGroupIdentifier :: Lens' DeleteReplicationSubnetGroup Text+drsgReplicationSubnetGroupIdentifier = lens _drsgReplicationSubnetGroupIdentifier (\ s a -> s{_drsgReplicationSubnetGroupIdentifier = a});++instance AWSRequest DeleteReplicationSubnetGroup+         where+        type Rs DeleteReplicationSubnetGroup =+             DeleteReplicationSubnetGroupResponse+        request = postJSON dms+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteReplicationSubnetGroupResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeleteReplicationSubnetGroup++instance ToHeaders DeleteReplicationSubnetGroup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DeleteReplicationSubnetGroup" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteReplicationSubnetGroup where+        toJSON DeleteReplicationSubnetGroup'{..}+          = object+              (catMaybes+                 [Just+                    ("ReplicationSubnetGroupIdentifier" .=+                       _drsgReplicationSubnetGroupIdentifier)])++instance ToPath DeleteReplicationSubnetGroup where+        toPath = const "/"++instance ToQuery DeleteReplicationSubnetGroup where+        toQuery = const mempty++-- | /See:/ 'deleteReplicationSubnetGroupResponse' smart constructor.+newtype DeleteReplicationSubnetGroupResponse = DeleteReplicationSubnetGroupResponse'+    { _drsgrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteReplicationSubnetGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsgrsResponseStatus'+deleteReplicationSubnetGroupResponse+    :: Int -- ^ 'drsgrsResponseStatus'+    -> DeleteReplicationSubnetGroupResponse+deleteReplicationSubnetGroupResponse pResponseStatus_ =+    DeleteReplicationSubnetGroupResponse'+    { _drsgrsResponseStatus = pResponseStatus_+    }++-- | The response status code.+drsgrsResponseStatus :: Lens' DeleteReplicationSubnetGroupResponse Int+drsgrsResponseStatus = lens _drsgrsResponseStatus (\ s a -> s{_drsgrsResponseStatus = a});
+ gen/Network/AWS/DMS/DeleteReplicationTask.hs view
@@ -0,0 +1,131 @@+{-# 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.DMS.DeleteReplicationTask+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified replication task.+--+module Network.AWS.DMS.DeleteReplicationTask+    (+    -- * Creating a Request+      deleteReplicationTask+    , DeleteReplicationTask+    -- * Request Lenses+    , drtReplicationTaskARN++    -- * Destructuring the Response+    , deleteReplicationTaskResponse+    , DeleteReplicationTaskResponse+    -- * Response Lenses+    , drtrsReplicationTask+    , drtrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'deleteReplicationTask' smart constructor.+newtype DeleteReplicationTask = DeleteReplicationTask'+    { _drtReplicationTaskARN :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteReplicationTask' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drtReplicationTaskARN'+deleteReplicationTask+    :: Text -- ^ 'drtReplicationTaskARN'+    -> DeleteReplicationTask+deleteReplicationTask pReplicationTaskARN_ =+    DeleteReplicationTask'+    { _drtReplicationTaskARN = pReplicationTaskARN_+    }++-- | The Amazon Resource Name (ARN) of the replication task to be deleted.+drtReplicationTaskARN :: Lens' DeleteReplicationTask Text+drtReplicationTaskARN = lens _drtReplicationTaskARN (\ s a -> s{_drtReplicationTaskARN = a});++instance AWSRequest DeleteReplicationTask where+        type Rs DeleteReplicationTask =+             DeleteReplicationTaskResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DeleteReplicationTaskResponse' <$>+                   (x .?> "ReplicationTask") <*> (pure (fromEnum s)))++instance Hashable DeleteReplicationTask++instance ToHeaders DeleteReplicationTask where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DeleteReplicationTask" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteReplicationTask where+        toJSON DeleteReplicationTask'{..}+          = object+              (catMaybes+                 [Just+                    ("ReplicationTaskArn" .= _drtReplicationTaskARN)])++instance ToPath DeleteReplicationTask where+        toPath = const "/"++instance ToQuery DeleteReplicationTask where+        toQuery = const mempty++-- | /See:/ 'deleteReplicationTaskResponse' smart constructor.+data DeleteReplicationTaskResponse = DeleteReplicationTaskResponse'+    { _drtrsReplicationTask :: !(Maybe ReplicationTask)+    , _drtrsResponseStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteReplicationTaskResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drtrsReplicationTask'+--+-- * 'drtrsResponseStatus'+deleteReplicationTaskResponse+    :: Int -- ^ 'drtrsResponseStatus'+    -> DeleteReplicationTaskResponse+deleteReplicationTaskResponse pResponseStatus_ =+    DeleteReplicationTaskResponse'+    { _drtrsReplicationTask = Nothing+    , _drtrsResponseStatus = pResponseStatus_+    }++-- | The deleted replication task.+drtrsReplicationTask :: Lens' DeleteReplicationTaskResponse (Maybe ReplicationTask)+drtrsReplicationTask = lens _drtrsReplicationTask (\ s a -> s{_drtrsReplicationTask = a});++-- | The response status code.+drtrsResponseStatus :: Lens' DeleteReplicationTaskResponse Int+drtrsResponseStatus = lens _drtrsResponseStatus (\ s a -> s{_drtrsResponseStatus = a});
+ gen/Network/AWS/DMS/DescribeAccountAttributes.hs view
@@ -0,0 +1,121 @@+{-# 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.DMS.DescribeAccountAttributes+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all of the AWS DMS attributes for a customer account. The+-- attributes include AWS DMS quotas for the account, such as the number of+-- replication instances allowed. The description for a quota includes the+-- quota name, current usage toward that quota, and the quota\'s maximum+-- value.+--+-- This command does not take any parameters.+--+module Network.AWS.DMS.DescribeAccountAttributes+    (+    -- * Creating a Request+      describeAccountAttributes+    , DescribeAccountAttributes++    -- * Destructuring the Response+    , describeAccountAttributesResponse+    , DescribeAccountAttributesResponse+    -- * Response Lenses+    , daarsAccountQuotas+    , daarsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeAccountAttributes' smart constructor.+data DescribeAccountAttributes =+    DescribeAccountAttributes'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAccountAttributes' with the minimum fields required to make a request.+--+describeAccountAttributes+    :: DescribeAccountAttributes+describeAccountAttributes = DescribeAccountAttributes'++instance AWSRequest DescribeAccountAttributes where+        type Rs DescribeAccountAttributes =+             DescribeAccountAttributesResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeAccountAttributesResponse' <$>+                   (x .?> "AccountQuotas" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable DescribeAccountAttributes++instance ToHeaders DescribeAccountAttributes where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeAccountAttributes" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeAccountAttributes where+        toJSON = const (Object mempty)++instance ToPath DescribeAccountAttributes where+        toPath = const "/"++instance ToQuery DescribeAccountAttributes where+        toQuery = const mempty++-- | /See:/ 'describeAccountAttributesResponse' smart constructor.+data DescribeAccountAttributesResponse = DescribeAccountAttributesResponse'+    { _daarsAccountQuotas  :: !(Maybe [AccountQuota])+    , _daarsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAccountAttributesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'daarsAccountQuotas'+--+-- * 'daarsResponseStatus'+describeAccountAttributesResponse+    :: Int -- ^ 'daarsResponseStatus'+    -> DescribeAccountAttributesResponse+describeAccountAttributesResponse pResponseStatus_ =+    DescribeAccountAttributesResponse'+    { _daarsAccountQuotas = Nothing+    , _daarsResponseStatus = pResponseStatus_+    }++-- | Account quota information.+daarsAccountQuotas :: Lens' DescribeAccountAttributesResponse [AccountQuota]+daarsAccountQuotas = lens _daarsAccountQuotas (\ s a -> s{_daarsAccountQuotas = a}) . _Default . _Coerce;++-- | The response status code.+daarsResponseStatus :: Lens' DescribeAccountAttributesResponse Int+daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a});
+ gen/Network/AWS/DMS/DescribeConnections.hs view
@@ -0,0 +1,174 @@+{-# 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.DMS.DescribeConnections+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the status of the connections that have been made between the+-- replication instance and an endpoint. Connections are created when you+-- test an endpoint.+--+module Network.AWS.DMS.DescribeConnections+    (+    -- * Creating a Request+      describeConnections+    , DescribeConnections+    -- * Request Lenses+    , dcFilters+    , dcMarker+    , dcMaxRecords++    -- * Destructuring the Response+    , describeConnectionsResponse+    , DescribeConnectionsResponse+    -- * Response Lenses+    , dcrsConnections+    , dcrsMarker+    , dcrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeConnections' smart constructor.+data DescribeConnections = DescribeConnections'+    { _dcFilters    :: !(Maybe [Filter])+    , _dcMarker     :: !(Maybe Text)+    , _dcMaxRecords :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeConnections' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcFilters'+--+-- * 'dcMarker'+--+-- * 'dcMaxRecords'+describeConnections+    :: DescribeConnections+describeConnections =+    DescribeConnections'+    { _dcFilters = Nothing+    , _dcMarker = Nothing+    , _dcMaxRecords = Nothing+    }++-- | The filters applied to the connection.+--+-- Valid filter names: endpoint-arn | replication-instance-arn+dcFilters :: Lens' DescribeConnections [Filter]+dcFilters = lens _dcFilters (\ s a -> s{_dcFilters = a}) . _Default . _Coerce;++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+dcMarker :: Lens' DescribeConnections (Maybe Text)+dcMarker = lens _dcMarker (\ s a -> s{_dcMarker = a});++-- | The maximum number of records to include in the response. If more+-- records exist than the specified 'MaxRecords' value, a pagination token+-- called a marker is included in the response so that the remaining+-- results can be retrieved.+--+-- Default: 100+--+-- Constraints: Minimum 20, maximum 100.+dcMaxRecords :: Lens' DescribeConnections (Maybe Int)+dcMaxRecords = lens _dcMaxRecords (\ s a -> s{_dcMaxRecords = a});++instance AWSRequest DescribeConnections where+        type Rs DescribeConnections =+             DescribeConnectionsResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeConnectionsResponse' <$>+                   (x .?> "Connections" .!@ mempty) <*> (x .?> "Marker")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeConnections++instance ToHeaders DescribeConnections where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeConnections" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeConnections where+        toJSON DescribeConnections'{..}+          = object+              (catMaybes+                 [("Filters" .=) <$> _dcFilters,+                  ("Marker" .=) <$> _dcMarker,+                  ("MaxRecords" .=) <$> _dcMaxRecords])++instance ToPath DescribeConnections where+        toPath = const "/"++instance ToQuery DescribeConnections where+        toQuery = const mempty++-- | /See:/ 'describeConnectionsResponse' smart constructor.+data DescribeConnectionsResponse = DescribeConnectionsResponse'+    { _dcrsConnections    :: !(Maybe [Connection])+    , _dcrsMarker         :: !(Maybe Text)+    , _dcrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeConnectionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcrsConnections'+--+-- * 'dcrsMarker'+--+-- * 'dcrsResponseStatus'+describeConnectionsResponse+    :: Int -- ^ 'dcrsResponseStatus'+    -> DescribeConnectionsResponse+describeConnectionsResponse pResponseStatus_ =+    DescribeConnectionsResponse'+    { _dcrsConnections = Nothing+    , _dcrsMarker = Nothing+    , _dcrsResponseStatus = pResponseStatus_+    }++-- | A description of the connections.+dcrsConnections :: Lens' DescribeConnectionsResponse [Connection]+dcrsConnections = lens _dcrsConnections (\ s a -> s{_dcrsConnections = a}) . _Default . _Coerce;++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+dcrsMarker :: Lens' DescribeConnectionsResponse (Maybe Text)+dcrsMarker = lens _dcrsMarker (\ s a -> s{_dcrsMarker = a});++-- | The response status code.+dcrsResponseStatus :: Lens' DescribeConnectionsResponse Int+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});
+ gen/Network/AWS/DMS/DescribeEndpointTypes.hs view
@@ -0,0 +1,173 @@+{-# 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.DMS.DescribeEndpointTypes+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the type of endpoints available.+--+module Network.AWS.DMS.DescribeEndpointTypes+    (+    -- * Creating a Request+      describeEndpointTypes+    , DescribeEndpointTypes+    -- * Request Lenses+    , detFilters+    , detMarker+    , detMaxRecords++    -- * Destructuring the Response+    , describeEndpointTypesResponse+    , DescribeEndpointTypesResponse+    -- * Response Lenses+    , detrsSupportedEndpointTypes+    , detrsMarker+    , detrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeEndpointTypes' smart constructor.+data DescribeEndpointTypes = DescribeEndpointTypes'+    { _detFilters    :: !(Maybe [Filter])+    , _detMarker     :: !(Maybe Text)+    , _detMaxRecords :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeEndpointTypes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'detFilters'+--+-- * 'detMarker'+--+-- * 'detMaxRecords'+describeEndpointTypes+    :: DescribeEndpointTypes+describeEndpointTypes =+    DescribeEndpointTypes'+    { _detFilters = Nothing+    , _detMarker = Nothing+    , _detMaxRecords = Nothing+    }++-- | Filters applied to the describe action.+--+-- Valid filter names: engine-name | endpoint-type+detFilters :: Lens' DescribeEndpointTypes [Filter]+detFilters = lens _detFilters (\ s a -> s{_detFilters = a}) . _Default . _Coerce;++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+detMarker :: Lens' DescribeEndpointTypes (Maybe Text)+detMarker = lens _detMarker (\ s a -> s{_detMarker = a});++-- | The maximum number of records to include in the response. If more+-- records exist than the specified 'MaxRecords' value, a pagination token+-- called a marker is included in the response so that the remaining+-- results can be retrieved.+--+-- Default: 100+--+-- Constraints: Minimum 20, maximum 100.+detMaxRecords :: Lens' DescribeEndpointTypes (Maybe Int)+detMaxRecords = lens _detMaxRecords (\ s a -> s{_detMaxRecords = a});++instance AWSRequest DescribeEndpointTypes where+        type Rs DescribeEndpointTypes =+             DescribeEndpointTypesResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeEndpointTypesResponse' <$>+                   (x .?> "SupportedEndpointTypes" .!@ mempty) <*>+                     (x .?> "Marker")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeEndpointTypes++instance ToHeaders DescribeEndpointTypes where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeEndpointTypes" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeEndpointTypes where+        toJSON DescribeEndpointTypes'{..}+          = object+              (catMaybes+                 [("Filters" .=) <$> _detFilters,+                  ("Marker" .=) <$> _detMarker,+                  ("MaxRecords" .=) <$> _detMaxRecords])++instance ToPath DescribeEndpointTypes where+        toPath = const "/"++instance ToQuery DescribeEndpointTypes where+        toQuery = const mempty++-- | /See:/ 'describeEndpointTypesResponse' smart constructor.+data DescribeEndpointTypesResponse = DescribeEndpointTypesResponse'+    { _detrsSupportedEndpointTypes :: !(Maybe [SupportedEndpointType])+    , _detrsMarker                 :: !(Maybe Text)+    , _detrsResponseStatus         :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeEndpointTypesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'detrsSupportedEndpointTypes'+--+-- * 'detrsMarker'+--+-- * 'detrsResponseStatus'+describeEndpointTypesResponse+    :: Int -- ^ 'detrsResponseStatus'+    -> DescribeEndpointTypesResponse+describeEndpointTypesResponse pResponseStatus_ =+    DescribeEndpointTypesResponse'+    { _detrsSupportedEndpointTypes = Nothing+    , _detrsMarker = Nothing+    , _detrsResponseStatus = pResponseStatus_+    }++-- | The type of endpoints that are supported.+detrsSupportedEndpointTypes :: Lens' DescribeEndpointTypesResponse [SupportedEndpointType]+detrsSupportedEndpointTypes = lens _detrsSupportedEndpointTypes (\ s a -> s{_detrsSupportedEndpointTypes = a}) . _Default . _Coerce;++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+detrsMarker :: Lens' DescribeEndpointTypesResponse (Maybe Text)+detrsMarker = lens _detrsMarker (\ s a -> s{_detrsMarker = a});++-- | The response status code.+detrsResponseStatus :: Lens' DescribeEndpointTypesResponse Int+detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a});
+ gen/Network/AWS/DMS/DescribeEndpoints.hs view
@@ -0,0 +1,173 @@+{-# 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.DMS.DescribeEndpoints+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the endpoints for your account in the current+-- region.+--+module Network.AWS.DMS.DescribeEndpoints+    (+    -- * Creating a Request+      describeEndpoints+    , DescribeEndpoints+    -- * Request Lenses+    , deFilters+    , deMarker+    , deMaxRecords++    -- * Destructuring the Response+    , describeEndpointsResponse+    , DescribeEndpointsResponse+    -- * Response Lenses+    , dersMarker+    , dersEndpoints+    , dersResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeEndpoints' smart constructor.+data DescribeEndpoints = DescribeEndpoints'+    { _deFilters    :: !(Maybe [Filter])+    , _deMarker     :: !(Maybe Text)+    , _deMaxRecords :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeEndpoints' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'deFilters'+--+-- * 'deMarker'+--+-- * 'deMaxRecords'+describeEndpoints+    :: DescribeEndpoints+describeEndpoints =+    DescribeEndpoints'+    { _deFilters = Nothing+    , _deMarker = Nothing+    , _deMaxRecords = Nothing+    }++-- | Filters applied to the describe action.+--+-- Valid filter names: endpoint-arn | endpoint-type | endpoint-id |+-- engine-name+deFilters :: Lens' DescribeEndpoints [Filter]+deFilters = lens _deFilters (\ s a -> s{_deFilters = a}) . _Default . _Coerce;++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+deMarker :: Lens' DescribeEndpoints (Maybe Text)+deMarker = lens _deMarker (\ s a -> s{_deMarker = a});++-- | The maximum number of records to include in the response. If more+-- records exist than the specified 'MaxRecords' value, a pagination token+-- called a marker is included in the response so that the remaining+-- results can be retrieved.+--+-- Default: 100+--+-- Constraints: Minimum 20, maximum 100.+deMaxRecords :: Lens' DescribeEndpoints (Maybe Int)+deMaxRecords = lens _deMaxRecords (\ s a -> s{_deMaxRecords = a});++instance AWSRequest DescribeEndpoints where+        type Rs DescribeEndpoints = DescribeEndpointsResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeEndpointsResponse' <$>+                   (x .?> "Marker") <*> (x .?> "Endpoints" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable DescribeEndpoints++instance ToHeaders DescribeEndpoints where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeEndpoints" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeEndpoints where+        toJSON DescribeEndpoints'{..}+          = object+              (catMaybes+                 [("Filters" .=) <$> _deFilters,+                  ("Marker" .=) <$> _deMarker,+                  ("MaxRecords" .=) <$> _deMaxRecords])++instance ToPath DescribeEndpoints where+        toPath = const "/"++instance ToQuery DescribeEndpoints where+        toQuery = const mempty++-- | /See:/ 'describeEndpointsResponse' smart constructor.+data DescribeEndpointsResponse = DescribeEndpointsResponse'+    { _dersMarker         :: !(Maybe Text)+    , _dersEndpoints      :: !(Maybe [Endpoint])+    , _dersResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeEndpointsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dersMarker'+--+-- * 'dersEndpoints'+--+-- * 'dersResponseStatus'+describeEndpointsResponse+    :: Int -- ^ 'dersResponseStatus'+    -> DescribeEndpointsResponse+describeEndpointsResponse pResponseStatus_ =+    DescribeEndpointsResponse'+    { _dersMarker = Nothing+    , _dersEndpoints = Nothing+    , _dersResponseStatus = pResponseStatus_+    }++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+dersMarker :: Lens' DescribeEndpointsResponse (Maybe Text)+dersMarker = lens _dersMarker (\ s a -> s{_dersMarker = a});++-- | Endpoint description.+dersEndpoints :: Lens' DescribeEndpointsResponse [Endpoint]+dersEndpoints = lens _dersEndpoints (\ s a -> s{_dersEndpoints = a}) . _Default . _Coerce;++-- | The response status code.+dersResponseStatus :: Lens' DescribeEndpointsResponse Int+dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a});
+ gen/Network/AWS/DMS/DescribeOrderableReplicationInstances.hs view
@@ -0,0 +1,168 @@+{-# 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.DMS.DescribeOrderableReplicationInstances+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the replication instance types that can be+-- created in the specified region.+--+module Network.AWS.DMS.DescribeOrderableReplicationInstances+    (+    -- * Creating a Request+      describeOrderableReplicationInstances+    , DescribeOrderableReplicationInstances+    -- * Request Lenses+    , doriMarker+    , doriMaxRecords++    -- * Destructuring the Response+    , describeOrderableReplicationInstancesResponse+    , DescribeOrderableReplicationInstancesResponse+    -- * Response Lenses+    , dorirsMarker+    , dorirsOrderableReplicationInstances+    , dorirsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeOrderableReplicationInstances' smart constructor.+data DescribeOrderableReplicationInstances = DescribeOrderableReplicationInstances'+    { _doriMarker     :: !(Maybe Text)+    , _doriMaxRecords :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeOrderableReplicationInstances' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'doriMarker'+--+-- * 'doriMaxRecords'+describeOrderableReplicationInstances+    :: DescribeOrderableReplicationInstances+describeOrderableReplicationInstances =+    DescribeOrderableReplicationInstances'+    { _doriMarker = Nothing+    , _doriMaxRecords = Nothing+    }++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+doriMarker :: Lens' DescribeOrderableReplicationInstances (Maybe Text)+doriMarker = lens _doriMarker (\ s a -> s{_doriMarker = a});++-- | The maximum number of records to include in the response. If more+-- records exist than the specified 'MaxRecords' value, a pagination token+-- called a marker is included in the response so that the remaining+-- results can be retrieved.+--+-- Default: 100+--+-- Constraints: Minimum 20, maximum 100.+doriMaxRecords :: Lens' DescribeOrderableReplicationInstances (Maybe Int)+doriMaxRecords = lens _doriMaxRecords (\ s a -> s{_doriMaxRecords = a});++instance AWSRequest+         DescribeOrderableReplicationInstances where+        type Rs DescribeOrderableReplicationInstances =+             DescribeOrderableReplicationInstancesResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeOrderableReplicationInstancesResponse' <$>+                   (x .?> "Marker") <*>+                     (x .?> "OrderableReplicationInstances" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable+         DescribeOrderableReplicationInstances++instance ToHeaders+         DescribeOrderableReplicationInstances where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeOrderableReplicationInstances"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeOrderableReplicationInstances+         where+        toJSON DescribeOrderableReplicationInstances'{..}+          = object+              (catMaybes+                 [("Marker" .=) <$> _doriMarker,+                  ("MaxRecords" .=) <$> _doriMaxRecords])++instance ToPath DescribeOrderableReplicationInstances+         where+        toPath = const "/"++instance ToQuery+         DescribeOrderableReplicationInstances where+        toQuery = const mempty++-- | /See:/ 'describeOrderableReplicationInstancesResponse' smart constructor.+data DescribeOrderableReplicationInstancesResponse = DescribeOrderableReplicationInstancesResponse'+    { _dorirsMarker                        :: !(Maybe Text)+    , _dorirsOrderableReplicationInstances :: !(Maybe [OrderableReplicationInstance])+    , _dorirsResponseStatus                :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeOrderableReplicationInstancesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dorirsMarker'+--+-- * 'dorirsOrderableReplicationInstances'+--+-- * 'dorirsResponseStatus'+describeOrderableReplicationInstancesResponse+    :: Int -- ^ 'dorirsResponseStatus'+    -> DescribeOrderableReplicationInstancesResponse+describeOrderableReplicationInstancesResponse pResponseStatus_ =+    DescribeOrderableReplicationInstancesResponse'+    { _dorirsMarker = Nothing+    , _dorirsOrderableReplicationInstances = Nothing+    , _dorirsResponseStatus = pResponseStatus_+    }++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+dorirsMarker :: Lens' DescribeOrderableReplicationInstancesResponse (Maybe Text)+dorirsMarker = lens _dorirsMarker (\ s a -> s{_dorirsMarker = a});++-- | The order-able replication instances available.+dorirsOrderableReplicationInstances :: Lens' DescribeOrderableReplicationInstancesResponse [OrderableReplicationInstance]+dorirsOrderableReplicationInstances = lens _dorirsOrderableReplicationInstances (\ s a -> s{_dorirsOrderableReplicationInstances = a}) . _Default . _Coerce;++-- | The response status code.+dorirsResponseStatus :: Lens' DescribeOrderableReplicationInstancesResponse Int+dorirsResponseStatus = lens _dorirsResponseStatus (\ s a -> s{_dorirsResponseStatus = a});
+ gen/Network/AWS/DMS/DescribeRefreshSchemasStatus.hs view
@@ -0,0 +1,133 @@+{-# 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.DMS.DescribeRefreshSchemasStatus+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the status of the RefreshSchemas operation.+--+module Network.AWS.DMS.DescribeRefreshSchemasStatus+    (+    -- * Creating a Request+      describeRefreshSchemasStatus+    , DescribeRefreshSchemasStatus+    -- * Request Lenses+    , drssEndpointARN++    -- * Destructuring the Response+    , describeRefreshSchemasStatusResponse+    , DescribeRefreshSchemasStatusResponse+    -- * Response Lenses+    , drssrsRefreshSchemasStatus+    , drssrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeRefreshSchemasStatus' smart constructor.+newtype DescribeRefreshSchemasStatus = DescribeRefreshSchemasStatus'+    { _drssEndpointARN :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeRefreshSchemasStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drssEndpointARN'+describeRefreshSchemasStatus+    :: Text -- ^ 'drssEndpointARN'+    -> DescribeRefreshSchemasStatus+describeRefreshSchemasStatus pEndpointARN_ =+    DescribeRefreshSchemasStatus'+    { _drssEndpointARN = pEndpointARN_+    }++-- | The Amazon Resource Name (ARN) string that uniquely identifies the+-- endpoint.+drssEndpointARN :: Lens' DescribeRefreshSchemasStatus Text+drssEndpointARN = lens _drssEndpointARN (\ s a -> s{_drssEndpointARN = a});++instance AWSRequest DescribeRefreshSchemasStatus+         where+        type Rs DescribeRefreshSchemasStatus =+             DescribeRefreshSchemasStatusResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeRefreshSchemasStatusResponse' <$>+                   (x .?> "RefreshSchemasStatus") <*>+                     (pure (fromEnum s)))++instance Hashable DescribeRefreshSchemasStatus++instance ToHeaders DescribeRefreshSchemasStatus where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeRefreshSchemasStatus" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeRefreshSchemasStatus where+        toJSON DescribeRefreshSchemasStatus'{..}+          = object+              (catMaybes+                 [Just ("EndpointArn" .= _drssEndpointARN)])++instance ToPath DescribeRefreshSchemasStatus where+        toPath = const "/"++instance ToQuery DescribeRefreshSchemasStatus where+        toQuery = const mempty++-- | /See:/ 'describeRefreshSchemasStatusResponse' smart constructor.+data DescribeRefreshSchemasStatusResponse = DescribeRefreshSchemasStatusResponse'+    { _drssrsRefreshSchemasStatus :: !(Maybe RefreshSchemasStatus)+    , _drssrsResponseStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeRefreshSchemasStatusResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drssrsRefreshSchemasStatus'+--+-- * 'drssrsResponseStatus'+describeRefreshSchemasStatusResponse+    :: Int -- ^ 'drssrsResponseStatus'+    -> DescribeRefreshSchemasStatusResponse+describeRefreshSchemasStatusResponse pResponseStatus_ =+    DescribeRefreshSchemasStatusResponse'+    { _drssrsRefreshSchemasStatus = Nothing+    , _drssrsResponseStatus = pResponseStatus_+    }++-- | The status of the schema.+drssrsRefreshSchemasStatus :: Lens' DescribeRefreshSchemasStatusResponse (Maybe RefreshSchemasStatus)+drssrsRefreshSchemasStatus = lens _drssrsRefreshSchemasStatus (\ s a -> s{_drssrsRefreshSchemasStatus = a});++-- | The response status code.+drssrsResponseStatus :: Lens' DescribeRefreshSchemasStatusResponse Int+drssrsResponseStatus = lens _drssrsResponseStatus (\ s a -> s{_drssrsResponseStatus = a});
+ gen/Network/AWS/DMS/DescribeReplicationInstances.hs view
@@ -0,0 +1,176 @@+{-# 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.DMS.DescribeReplicationInstances+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about replication instances for your account in the+-- current region.+--+module Network.AWS.DMS.DescribeReplicationInstances+    (+    -- * Creating a Request+      describeReplicationInstances+    , DescribeReplicationInstances+    -- * Request Lenses+    , driFilters+    , driMarker+    , driMaxRecords++    -- * Destructuring the Response+    , describeReplicationInstancesResponse+    , DescribeReplicationInstancesResponse+    -- * Response Lenses+    , drisrsMarker+    , drisrsReplicationInstances+    , drisrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeReplicationInstances' smart constructor.+data DescribeReplicationInstances = DescribeReplicationInstances'+    { _driFilters    :: !(Maybe [Filter])+    , _driMarker     :: !(Maybe Text)+    , _driMaxRecords :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeReplicationInstances' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'driFilters'+--+-- * 'driMarker'+--+-- * 'driMaxRecords'+describeReplicationInstances+    :: DescribeReplicationInstances+describeReplicationInstances =+    DescribeReplicationInstances'+    { _driFilters = Nothing+    , _driMarker = Nothing+    , _driMaxRecords = Nothing+    }++-- | Filters applied to the describe action.+--+-- Valid filter names: replication-instance-arn | replication-instance-id |+-- replication-instance-class | engine-version+driFilters :: Lens' DescribeReplicationInstances [Filter]+driFilters = lens _driFilters (\ s a -> s{_driFilters = a}) . _Default . _Coerce;++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+driMarker :: Lens' DescribeReplicationInstances (Maybe Text)+driMarker = lens _driMarker (\ s a -> s{_driMarker = a});++-- | The maximum number of records to include in the response. If more+-- records exist than the specified 'MaxRecords' value, a pagination token+-- called a marker is included in the response so that the remaining+-- results can be retrieved.+--+-- Default: 100+--+-- Constraints: Minimum 20, maximum 100.+driMaxRecords :: Lens' DescribeReplicationInstances (Maybe Int)+driMaxRecords = lens _driMaxRecords (\ s a -> s{_driMaxRecords = a});++instance AWSRequest DescribeReplicationInstances+         where+        type Rs DescribeReplicationInstances =+             DescribeReplicationInstancesResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeReplicationInstancesResponse' <$>+                   (x .?> "Marker") <*>+                     (x .?> "ReplicationInstances" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable DescribeReplicationInstances++instance ToHeaders DescribeReplicationInstances where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeReplicationInstances" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeReplicationInstances where+        toJSON DescribeReplicationInstances'{..}+          = object+              (catMaybes+                 [("Filters" .=) <$> _driFilters,+                  ("Marker" .=) <$> _driMarker,+                  ("MaxRecords" .=) <$> _driMaxRecords])++instance ToPath DescribeReplicationInstances where+        toPath = const "/"++instance ToQuery DescribeReplicationInstances where+        toQuery = const mempty++-- | /See:/ 'describeReplicationInstancesResponse' smart constructor.+data DescribeReplicationInstancesResponse = DescribeReplicationInstancesResponse'+    { _drisrsMarker               :: !(Maybe Text)+    , _drisrsReplicationInstances :: !(Maybe [ReplicationInstance])+    , _drisrsResponseStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeReplicationInstancesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drisrsMarker'+--+-- * 'drisrsReplicationInstances'+--+-- * 'drisrsResponseStatus'+describeReplicationInstancesResponse+    :: Int -- ^ 'drisrsResponseStatus'+    -> DescribeReplicationInstancesResponse+describeReplicationInstancesResponse pResponseStatus_ =+    DescribeReplicationInstancesResponse'+    { _drisrsMarker = Nothing+    , _drisrsReplicationInstances = Nothing+    , _drisrsResponseStatus = pResponseStatus_+    }++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+drisrsMarker :: Lens' DescribeReplicationInstancesResponse (Maybe Text)+drisrsMarker = lens _drisrsMarker (\ s a -> s{_drisrsMarker = a});++-- | The replication instances described.+drisrsReplicationInstances :: Lens' DescribeReplicationInstancesResponse [ReplicationInstance]+drisrsReplicationInstances = lens _drisrsReplicationInstances (\ s a -> s{_drisrsReplicationInstances = a}) . _Default . _Coerce;++-- | The response status code.+drisrsResponseStatus :: Lens' DescribeReplicationInstancesResponse Int+drisrsResponseStatus = lens _drisrsResponseStatus (\ s a -> s{_drisrsResponseStatus = a});
+ gen/Network/AWS/DMS/DescribeReplicationSubnetGroups.hs view
@@ -0,0 +1,174 @@+{-# 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.DMS.DescribeReplicationSubnetGroups+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the replication subnet groups.+--+module Network.AWS.DMS.DescribeReplicationSubnetGroups+    (+    -- * Creating a Request+      describeReplicationSubnetGroups+    , DescribeReplicationSubnetGroups+    -- * Request Lenses+    , drsgFilters+    , drsgMarker+    , drsgMaxRecords++    -- * Destructuring the Response+    , describeReplicationSubnetGroupsResponse+    , DescribeReplicationSubnetGroupsResponse+    -- * Response Lenses+    , drsgsrsMarker+    , drsgsrsReplicationSubnetGroups+    , drsgsrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeReplicationSubnetGroups' smart constructor.+data DescribeReplicationSubnetGroups = DescribeReplicationSubnetGroups'+    { _drsgFilters    :: !(Maybe [Filter])+    , _drsgMarker     :: !(Maybe Text)+    , _drsgMaxRecords :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeReplicationSubnetGroups' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsgFilters'+--+-- * 'drsgMarker'+--+-- * 'drsgMaxRecords'+describeReplicationSubnetGroups+    :: DescribeReplicationSubnetGroups+describeReplicationSubnetGroups =+    DescribeReplicationSubnetGroups'+    { _drsgFilters = Nothing+    , _drsgMarker = Nothing+    , _drsgMaxRecords = Nothing+    }++-- | Filters applied to the describe action.+drsgFilters :: Lens' DescribeReplicationSubnetGroups [Filter]+drsgFilters = lens _drsgFilters (\ s a -> s{_drsgFilters = a}) . _Default . _Coerce;++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+drsgMarker :: Lens' DescribeReplicationSubnetGroups (Maybe Text)+drsgMarker = lens _drsgMarker (\ s a -> s{_drsgMarker = a});++-- | The maximum number of records to include in the response. If more+-- records exist than the specified 'MaxRecords' value, a pagination token+-- called a marker is included in the response so that the remaining+-- results can be retrieved.+--+-- Default: 100+--+-- Constraints: Minimum 20, maximum 100.+drsgMaxRecords :: Lens' DescribeReplicationSubnetGroups (Maybe Int)+drsgMaxRecords = lens _drsgMaxRecords (\ s a -> s{_drsgMaxRecords = a});++instance AWSRequest DescribeReplicationSubnetGroups+         where+        type Rs DescribeReplicationSubnetGroups =+             DescribeReplicationSubnetGroupsResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeReplicationSubnetGroupsResponse' <$>+                   (x .?> "Marker") <*>+                     (x .?> "ReplicationSubnetGroups" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable DescribeReplicationSubnetGroups++instance ToHeaders DescribeReplicationSubnetGroups+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeReplicationSubnetGroups"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeReplicationSubnetGroups where+        toJSON DescribeReplicationSubnetGroups'{..}+          = object+              (catMaybes+                 [("Filters" .=) <$> _drsgFilters,+                  ("Marker" .=) <$> _drsgMarker,+                  ("MaxRecords" .=) <$> _drsgMaxRecords])++instance ToPath DescribeReplicationSubnetGroups where+        toPath = const "/"++instance ToQuery DescribeReplicationSubnetGroups+         where+        toQuery = const mempty++-- | /See:/ 'describeReplicationSubnetGroupsResponse' smart constructor.+data DescribeReplicationSubnetGroupsResponse = DescribeReplicationSubnetGroupsResponse'+    { _drsgsrsMarker                  :: !(Maybe Text)+    , _drsgsrsReplicationSubnetGroups :: !(Maybe [ReplicationSubnetGroup])+    , _drsgsrsResponseStatus          :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeReplicationSubnetGroupsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsgsrsMarker'+--+-- * 'drsgsrsReplicationSubnetGroups'+--+-- * 'drsgsrsResponseStatus'+describeReplicationSubnetGroupsResponse+    :: Int -- ^ 'drsgsrsResponseStatus'+    -> DescribeReplicationSubnetGroupsResponse+describeReplicationSubnetGroupsResponse pResponseStatus_ =+    DescribeReplicationSubnetGroupsResponse'+    { _drsgsrsMarker = Nothing+    , _drsgsrsReplicationSubnetGroups = Nothing+    , _drsgsrsResponseStatus = pResponseStatus_+    }++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+drsgsrsMarker :: Lens' DescribeReplicationSubnetGroupsResponse (Maybe Text)+drsgsrsMarker = lens _drsgsrsMarker (\ s a -> s{_drsgsrsMarker = a});++-- | A description of the replication subnet groups.+drsgsrsReplicationSubnetGroups :: Lens' DescribeReplicationSubnetGroupsResponse [ReplicationSubnetGroup]+drsgsrsReplicationSubnetGroups = lens _drsgsrsReplicationSubnetGroups (\ s a -> s{_drsgsrsReplicationSubnetGroups = a}) . _Default . _Coerce;++-- | The response status code.+drsgsrsResponseStatus :: Lens' DescribeReplicationSubnetGroupsResponse Int+drsgsrsResponseStatus = lens _drsgsrsResponseStatus (\ s a -> s{_drsgsrsResponseStatus = a});
+ gen/Network/AWS/DMS/DescribeReplicationTasks.hs view
@@ -0,0 +1,175 @@+{-# 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.DMS.DescribeReplicationTasks+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about replication tasks for your account in the+-- current region.+--+module Network.AWS.DMS.DescribeReplicationTasks+    (+    -- * Creating a Request+      describeReplicationTasks+    , DescribeReplicationTasks+    -- * Request Lenses+    , drtFilters+    , drtMarker+    , drtMaxRecords++    -- * Destructuring the Response+    , describeReplicationTasksResponse+    , DescribeReplicationTasksResponse+    -- * Response Lenses+    , drtsrsReplicationTasks+    , drtsrsMarker+    , drtsrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeReplicationTasks' smart constructor.+data DescribeReplicationTasks = DescribeReplicationTasks'+    { _drtFilters    :: !(Maybe [Filter])+    , _drtMarker     :: !(Maybe Text)+    , _drtMaxRecords :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeReplicationTasks' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drtFilters'+--+-- * 'drtMarker'+--+-- * 'drtMaxRecords'+describeReplicationTasks+    :: DescribeReplicationTasks+describeReplicationTasks =+    DescribeReplicationTasks'+    { _drtFilters = Nothing+    , _drtMarker = Nothing+    , _drtMaxRecords = Nothing+    }++-- | Filters applied to the describe action.+--+-- Valid filter names: replication-task-arn | replication-task-id |+-- migration-type | endpoint-arn | replication-instance-arn+drtFilters :: Lens' DescribeReplicationTasks [Filter]+drtFilters = lens _drtFilters (\ s a -> s{_drtFilters = a}) . _Default . _Coerce;++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+drtMarker :: Lens' DescribeReplicationTasks (Maybe Text)+drtMarker = lens _drtMarker (\ s a -> s{_drtMarker = a});++-- | The maximum number of records to include in the response. If more+-- records exist than the specified 'MaxRecords' value, a pagination token+-- called a marker is included in the response so that the remaining+-- results can be retrieved.+--+-- Default: 100+--+-- Constraints: Minimum 20, maximum 100.+drtMaxRecords :: Lens' DescribeReplicationTasks (Maybe Int)+drtMaxRecords = lens _drtMaxRecords (\ s a -> s{_drtMaxRecords = a});++instance AWSRequest DescribeReplicationTasks where+        type Rs DescribeReplicationTasks =+             DescribeReplicationTasksResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeReplicationTasksResponse' <$>+                   (x .?> "ReplicationTasks" .!@ mempty) <*>+                     (x .?> "Marker")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeReplicationTasks++instance ToHeaders DescribeReplicationTasks where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeReplicationTasks" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeReplicationTasks where+        toJSON DescribeReplicationTasks'{..}+          = object+              (catMaybes+                 [("Filters" .=) <$> _drtFilters,+                  ("Marker" .=) <$> _drtMarker,+                  ("MaxRecords" .=) <$> _drtMaxRecords])++instance ToPath DescribeReplicationTasks where+        toPath = const "/"++instance ToQuery DescribeReplicationTasks where+        toQuery = const mempty++-- | /See:/ 'describeReplicationTasksResponse' smart constructor.+data DescribeReplicationTasksResponse = DescribeReplicationTasksResponse'+    { _drtsrsReplicationTasks :: !(Maybe [ReplicationTask])+    , _drtsrsMarker           :: !(Maybe Text)+    , _drtsrsResponseStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeReplicationTasksResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drtsrsReplicationTasks'+--+-- * 'drtsrsMarker'+--+-- * 'drtsrsResponseStatus'+describeReplicationTasksResponse+    :: Int -- ^ 'drtsrsResponseStatus'+    -> DescribeReplicationTasksResponse+describeReplicationTasksResponse pResponseStatus_ =+    DescribeReplicationTasksResponse'+    { _drtsrsReplicationTasks = Nothing+    , _drtsrsMarker = Nothing+    , _drtsrsResponseStatus = pResponseStatus_+    }++-- | A description of the replication tasks.+drtsrsReplicationTasks :: Lens' DescribeReplicationTasksResponse [ReplicationTask]+drtsrsReplicationTasks = lens _drtsrsReplicationTasks (\ s a -> s{_drtsrsReplicationTasks = a}) . _Default . _Coerce;++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+drtsrsMarker :: Lens' DescribeReplicationTasksResponse (Maybe Text)+drtsrsMarker = lens _drtsrsMarker (\ s a -> s{_drtsrsMarker = a});++-- | The response status code.+drtsrsResponseStatus :: Lens' DescribeReplicationTasksResponse Int+drtsrsResponseStatus = lens _drtsrsResponseStatus (\ s a -> s{_drtsrsResponseStatus = a});
+ gen/Network/AWS/DMS/DescribeSchemas.hs view
@@ -0,0 +1,170 @@+{-# 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.DMS.DescribeSchemas+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about the schema for the specified endpoint.+--+module Network.AWS.DMS.DescribeSchemas+    (+    -- * Creating a Request+      describeSchemas+    , DescribeSchemas+    -- * Request Lenses+    , dsMarker+    , dsMaxRecords+    , dsEndpointARN++    -- * Destructuring the Response+    , describeSchemasResponse+    , DescribeSchemasResponse+    -- * Response Lenses+    , dsrsSchemas+    , dsrsMarker+    , dsrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeSchemas' smart constructor.+data DescribeSchemas = DescribeSchemas'+    { _dsMarker      :: !(Maybe Text)+    , _dsMaxRecords  :: !(Maybe Int)+    , _dsEndpointARN :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeSchemas' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsMarker'+--+-- * 'dsMaxRecords'+--+-- * 'dsEndpointARN'+describeSchemas+    :: Text -- ^ 'dsEndpointARN'+    -> DescribeSchemas+describeSchemas pEndpointARN_ =+    DescribeSchemas'+    { _dsMarker = Nothing+    , _dsMaxRecords = Nothing+    , _dsEndpointARN = pEndpointARN_+    }++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+dsMarker :: Lens' DescribeSchemas (Maybe Text)+dsMarker = lens _dsMarker (\ s a -> s{_dsMarker = a});++-- | The maximum number of records to include in the response. If more+-- records exist than the specified 'MaxRecords' value, a pagination token+-- called a marker is included in the response so that the remaining+-- results can be retrieved.+--+-- Default: 100+--+-- Constraints: Minimum 20, maximum 100.+dsMaxRecords :: Lens' DescribeSchemas (Maybe Int)+dsMaxRecords = lens _dsMaxRecords (\ s a -> s{_dsMaxRecords = a});++-- | The Amazon Resource Name (ARN) string that uniquely identifies the+-- endpoint.+dsEndpointARN :: Lens' DescribeSchemas Text+dsEndpointARN = lens _dsEndpointARN (\ s a -> s{_dsEndpointARN = a});++instance AWSRequest DescribeSchemas where+        type Rs DescribeSchemas = DescribeSchemasResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeSchemasResponse' <$>+                   (x .?> "Schemas" .!@ mempty) <*> (x .?> "Marker") <*>+                     (pure (fromEnum s)))++instance Hashable DescribeSchemas++instance ToHeaders DescribeSchemas where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeSchemas" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeSchemas where+        toJSON DescribeSchemas'{..}+          = object+              (catMaybes+                 [("Marker" .=) <$> _dsMarker,+                  ("MaxRecords" .=) <$> _dsMaxRecords,+                  Just ("EndpointArn" .= _dsEndpointARN)])++instance ToPath DescribeSchemas where+        toPath = const "/"++instance ToQuery DescribeSchemas where+        toQuery = const mempty++-- | /See:/ 'describeSchemasResponse' smart constructor.+data DescribeSchemasResponse = DescribeSchemasResponse'+    { _dsrsSchemas        :: !(Maybe [Text])+    , _dsrsMarker         :: !(Maybe Text)+    , _dsrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeSchemasResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsrsSchemas'+--+-- * 'dsrsMarker'+--+-- * 'dsrsResponseStatus'+describeSchemasResponse+    :: Int -- ^ 'dsrsResponseStatus'+    -> DescribeSchemasResponse+describeSchemasResponse pResponseStatus_ =+    DescribeSchemasResponse'+    { _dsrsSchemas = Nothing+    , _dsrsMarker = Nothing+    , _dsrsResponseStatus = pResponseStatus_+    }++-- | The described schema.+dsrsSchemas :: Lens' DescribeSchemasResponse [Text]+dsrsSchemas = lens _dsrsSchemas (\ s a -> s{_dsrsSchemas = a}) . _Default . _Coerce;++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+dsrsMarker :: Lens' DescribeSchemasResponse (Maybe Text)+dsrsMarker = lens _dsrsMarker (\ s a -> s{_dsrsMarker = a});++-- | The response status code.+dsrsResponseStatus :: Lens' DescribeSchemasResponse Int+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});
+ gen/Network/AWS/DMS/DescribeTableStatistics.hs view
@@ -0,0 +1,183 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DMS.DescribeTableStatistics+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns table statistics on the database migration task, including table+-- name, rows inserted, rows updated, and rows deleted.+--+module Network.AWS.DMS.DescribeTableStatistics+    (+    -- * Creating a Request+      describeTableStatistics+    , DescribeTableStatistics+    -- * Request Lenses+    , dtsMarker+    , dtsMaxRecords+    , dtsReplicationTaskARN++    -- * Destructuring the Response+    , describeTableStatisticsResponse+    , DescribeTableStatisticsResponse+    -- * Response Lenses+    , dtsrsReplicationTaskARN+    , dtsrsMarker+    , dtsrsTableStatistics+    , dtsrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeTableStatistics' smart constructor.+data DescribeTableStatistics = DescribeTableStatistics'+    { _dtsMarker             :: !(Maybe Text)+    , _dtsMaxRecords         :: !(Maybe Int)+    , _dtsReplicationTaskARN :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeTableStatistics' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtsMarker'+--+-- * 'dtsMaxRecords'+--+-- * 'dtsReplicationTaskARN'+describeTableStatistics+    :: Text -- ^ 'dtsReplicationTaskARN'+    -> DescribeTableStatistics+describeTableStatistics pReplicationTaskARN_ =+    DescribeTableStatistics'+    { _dtsMarker = Nothing+    , _dtsMaxRecords = Nothing+    , _dtsReplicationTaskARN = pReplicationTaskARN_+    }++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+dtsMarker :: Lens' DescribeTableStatistics (Maybe Text)+dtsMarker = lens _dtsMarker (\ s a -> s{_dtsMarker = a});++-- | The maximum number of records to include in the response. If more+-- records exist than the specified 'MaxRecords' value, a pagination token+-- called a marker is included in the response so that the remaining+-- results can be retrieved.+--+-- Default: 100+--+-- Constraints: Minimum 20, maximum 100.+dtsMaxRecords :: Lens' DescribeTableStatistics (Maybe Int)+dtsMaxRecords = lens _dtsMaxRecords (\ s a -> s{_dtsMaxRecords = a});++-- | The Amazon Resource Name (ARN) of the replication task.+dtsReplicationTaskARN :: Lens' DescribeTableStatistics Text+dtsReplicationTaskARN = lens _dtsReplicationTaskARN (\ s a -> s{_dtsReplicationTaskARN = a});++instance AWSRequest DescribeTableStatistics where+        type Rs DescribeTableStatistics =+             DescribeTableStatisticsResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeTableStatisticsResponse' <$>+                   (x .?> "ReplicationTaskArn") <*> (x .?> "Marker") <*>+                     (x .?> "TableStatistics" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable DescribeTableStatistics++instance ToHeaders DescribeTableStatistics where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeTableStatistics" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeTableStatistics where+        toJSON DescribeTableStatistics'{..}+          = object+              (catMaybes+                 [("Marker" .=) <$> _dtsMarker,+                  ("MaxRecords" .=) <$> _dtsMaxRecords,+                  Just+                    ("ReplicationTaskArn" .= _dtsReplicationTaskARN)])++instance ToPath DescribeTableStatistics where+        toPath = const "/"++instance ToQuery DescribeTableStatistics where+        toQuery = const mempty++-- | /See:/ 'describeTableStatisticsResponse' smart constructor.+data DescribeTableStatisticsResponse = DescribeTableStatisticsResponse'+    { _dtsrsReplicationTaskARN :: !(Maybe Text)+    , _dtsrsMarker             :: !(Maybe Text)+    , _dtsrsTableStatistics    :: !(Maybe [TableStatistics])+    , _dtsrsResponseStatus     :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeTableStatisticsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtsrsReplicationTaskARN'+--+-- * 'dtsrsMarker'+--+-- * 'dtsrsTableStatistics'+--+-- * 'dtsrsResponseStatus'+describeTableStatisticsResponse+    :: Int -- ^ 'dtsrsResponseStatus'+    -> DescribeTableStatisticsResponse+describeTableStatisticsResponse pResponseStatus_ =+    DescribeTableStatisticsResponse'+    { _dtsrsReplicationTaskARN = Nothing+    , _dtsrsMarker = Nothing+    , _dtsrsTableStatistics = Nothing+    , _dtsrsResponseStatus = pResponseStatus_+    }++-- | The Amazon Resource Name (ARN) of the replication task.+dtsrsReplicationTaskARN :: Lens' DescribeTableStatisticsResponse (Maybe Text)+dtsrsReplicationTaskARN = lens _dtsrsReplicationTaskARN (\ s a -> s{_dtsrsReplicationTaskARN = a});++-- | An optional pagination token provided by a previous request. If this+-- parameter is specified, the response includes only records beyond the+-- marker, up to the value specified by 'MaxRecords'.+dtsrsMarker :: Lens' DescribeTableStatisticsResponse (Maybe Text)+dtsrsMarker = lens _dtsrsMarker (\ s a -> s{_dtsrsMarker = a});++-- | The table statistics.+dtsrsTableStatistics :: Lens' DescribeTableStatisticsResponse [TableStatistics]+dtsrsTableStatistics = lens _dtsrsTableStatistics (\ s a -> s{_dtsrsTableStatistics = a}) . _Default . _Coerce;++-- | The response status code.+dtsrsResponseStatus :: Lens' DescribeTableStatisticsResponse Int+dtsrsResponseStatus = lens _dtsrsResponseStatus (\ s a -> s{_dtsrsResponseStatus = a});
+ gen/Network/AWS/DMS/ListTagsForResource.hs view
@@ -0,0 +1,131 @@+{-# 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.DMS.ListTagsForResource+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- For internal use only+--+module Network.AWS.DMS.ListTagsForResource+    (+    -- * Creating a Request+      listTagsForResource+    , ListTagsForResource+    -- * Request Lenses+    , ltfrResourceARN++    -- * Destructuring the Response+    , listTagsForResourceResponse+    , ListTagsForResourceResponse+    -- * Response Lenses+    , ltfrrsTagList+    , ltfrrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'listTagsForResource' smart constructor.+newtype ListTagsForResource = ListTagsForResource'+    { _ltfrResourceARN :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListTagsForResource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltfrResourceARN'+listTagsForResource+    :: Text -- ^ 'ltfrResourceARN'+    -> ListTagsForResource+listTagsForResource pResourceARN_ =+    ListTagsForResource'+    { _ltfrResourceARN = pResourceARN_+    }++-- | The Amazon Resource Name (ARN) string that uniquely identifies the AWS+-- DMS resource.+ltfrResourceARN :: Lens' ListTagsForResource Text+ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a});++instance AWSRequest ListTagsForResource where+        type Rs ListTagsForResource =+             ListTagsForResourceResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 ListTagsForResourceResponse' <$>+                   (x .?> "TagList" .!@ mempty) <*> (pure (fromEnum s)))++instance Hashable ListTagsForResource++instance ToHeaders ListTagsForResource where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.ListTagsForResource" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListTagsForResource where+        toJSON ListTagsForResource'{..}+          = object+              (catMaybes+                 [Just ("ResourceArn" .= _ltfrResourceARN)])++instance ToPath ListTagsForResource where+        toPath = const "/"++instance ToQuery ListTagsForResource where+        toQuery = const mempty++-- | /See:/ 'listTagsForResourceResponse' smart constructor.+data ListTagsForResourceResponse = ListTagsForResourceResponse'+    { _ltfrrsTagList        :: !(Maybe [Tag])+    , _ltfrrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListTagsForResourceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltfrrsTagList'+--+-- * 'ltfrrsResponseStatus'+listTagsForResourceResponse+    :: Int -- ^ 'ltfrrsResponseStatus'+    -> ListTagsForResourceResponse+listTagsForResourceResponse pResponseStatus_ =+    ListTagsForResourceResponse'+    { _ltfrrsTagList = Nothing+    , _ltfrrsResponseStatus = pResponseStatus_+    }++-- | A list of tags for the resource.+ltfrrsTagList :: Lens' ListTagsForResourceResponse [Tag]+ltfrrsTagList = lens _ltfrrsTagList (\ s a -> s{_ltfrrsTagList = a}) . _Default . _Coerce;++-- | The response status code.+ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int+ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a});
+ gen/Network/AWS/DMS/ModifyEndpoint.hs view
@@ -0,0 +1,223 @@+{-# 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.DMS.ModifyEndpoint+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the specified endpoint.+--+module Network.AWS.DMS.ModifyEndpoint+    (+    -- * Creating a Request+      modifyEndpoint+    , ModifyEndpoint+    -- * Request Lenses+    , meServerName+    , meExtraConnectionAttributes+    , meEndpointType+    , meUsername+    , meEngineName+    , mePassword+    , meDatabaseName+    , meEndpointIdentifier+    , mePort+    , meEndpointARN++    -- * Destructuring the Response+    , modifyEndpointResponse+    , ModifyEndpointResponse+    -- * Response Lenses+    , mersEndpoint+    , mersResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'modifyEndpoint' smart constructor.+data ModifyEndpoint = ModifyEndpoint'+    { _meServerName                :: !(Maybe Text)+    , _meExtraConnectionAttributes :: !(Maybe Text)+    , _meEndpointType              :: !(Maybe ReplicationEndpointTypeValue)+    , _meUsername                  :: !(Maybe Text)+    , _meEngineName                :: !(Maybe Text)+    , _mePassword                  :: !(Maybe (Sensitive Text))+    , _meDatabaseName              :: !(Maybe Text)+    , _meEndpointIdentifier        :: !(Maybe Text)+    , _mePort                      :: !(Maybe Int)+    , _meEndpointARN               :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ModifyEndpoint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'meServerName'+--+-- * 'meExtraConnectionAttributes'+--+-- * 'meEndpointType'+--+-- * 'meUsername'+--+-- * 'meEngineName'+--+-- * 'mePassword'+--+-- * 'meDatabaseName'+--+-- * 'meEndpointIdentifier'+--+-- * 'mePort'+--+-- * 'meEndpointARN'+modifyEndpoint+    :: Text -- ^ 'meEndpointARN'+    -> ModifyEndpoint+modifyEndpoint pEndpointARN_ =+    ModifyEndpoint'+    { _meServerName = Nothing+    , _meExtraConnectionAttributes = Nothing+    , _meEndpointType = Nothing+    , _meUsername = Nothing+    , _meEngineName = Nothing+    , _mePassword = Nothing+    , _meDatabaseName = Nothing+    , _meEndpointIdentifier = Nothing+    , _mePort = Nothing+    , _meEndpointARN = pEndpointARN_+    }++-- | The name of the server where the endpoint database resides.+meServerName :: Lens' ModifyEndpoint (Maybe Text)+meServerName = lens _meServerName (\ s a -> s{_meServerName = a});++-- | Additional attributes associated with the connection.+meExtraConnectionAttributes :: Lens' ModifyEndpoint (Maybe Text)+meExtraConnectionAttributes = lens _meExtraConnectionAttributes (\ s a -> s{_meExtraConnectionAttributes = a});++-- | The type of endpoint.+meEndpointType :: Lens' ModifyEndpoint (Maybe ReplicationEndpointTypeValue)+meEndpointType = lens _meEndpointType (\ s a -> s{_meEndpointType = a});++-- | The user name to be used to login to the endpoint database.+meUsername :: Lens' ModifyEndpoint (Maybe Text)+meUsername = lens _meUsername (\ s a -> s{_meUsername = a});++-- | The type of engine for the endpoint. Valid values include MYSQL, ORACLE,+-- POSTGRES.+meEngineName :: Lens' ModifyEndpoint (Maybe Text)+meEngineName = lens _meEngineName (\ s a -> s{_meEngineName = a});++-- | The password to be used to login to the endpoint database.+mePassword :: Lens' ModifyEndpoint (Maybe Text)+mePassword = lens _mePassword (\ s a -> s{_mePassword = a}) . mapping _Sensitive;++-- | The name of the endpoint database.+meDatabaseName :: Lens' ModifyEndpoint (Maybe Text)+meDatabaseName = lens _meDatabaseName (\ s a -> s{_meDatabaseName = a});++-- | The database endpoint identifier. Identifiers must begin with a letter;+-- must contain only ASCII letters, digits, and hyphens; and must not end+-- with a hyphen or contain two consecutive hyphens.+meEndpointIdentifier :: Lens' ModifyEndpoint (Maybe Text)+meEndpointIdentifier = lens _meEndpointIdentifier (\ s a -> s{_meEndpointIdentifier = a});++-- | The port used by the endpoint database.+mePort :: Lens' ModifyEndpoint (Maybe Int)+mePort = lens _mePort (\ s a -> s{_mePort = a});++-- | The Amazon Resource Name (ARN) string that uniquely identifies the+-- endpoint.+meEndpointARN :: Lens' ModifyEndpoint Text+meEndpointARN = lens _meEndpointARN (\ s a -> s{_meEndpointARN = a});++instance AWSRequest ModifyEndpoint where+        type Rs ModifyEndpoint = ModifyEndpointResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 ModifyEndpointResponse' <$>+                   (x .?> "Endpoint") <*> (pure (fromEnum s)))++instance Hashable ModifyEndpoint++instance ToHeaders ModifyEndpoint where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.ModifyEndpoint" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ModifyEndpoint where+        toJSON ModifyEndpoint'{..}+          = object+              (catMaybes+                 [("ServerName" .=) <$> _meServerName,+                  ("ExtraConnectionAttributes" .=) <$>+                    _meExtraConnectionAttributes,+                  ("EndpointType" .=) <$> _meEndpointType,+                  ("Username" .=) <$> _meUsername,+                  ("EngineName" .=) <$> _meEngineName,+                  ("Password" .=) <$> _mePassword,+                  ("DatabaseName" .=) <$> _meDatabaseName,+                  ("EndpointIdentifier" .=) <$> _meEndpointIdentifier,+                  ("Port" .=) <$> _mePort,+                  Just ("EndpointArn" .= _meEndpointARN)])++instance ToPath ModifyEndpoint where+        toPath = const "/"++instance ToQuery ModifyEndpoint where+        toQuery = const mempty++-- | /See:/ 'modifyEndpointResponse' smart constructor.+data ModifyEndpointResponse = ModifyEndpointResponse'+    { _mersEndpoint       :: !(Maybe Endpoint)+    , _mersResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ModifyEndpointResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mersEndpoint'+--+-- * 'mersResponseStatus'+modifyEndpointResponse+    :: Int -- ^ 'mersResponseStatus'+    -> ModifyEndpointResponse+modifyEndpointResponse pResponseStatus_ =+    ModifyEndpointResponse'+    { _mersEndpoint = Nothing+    , _mersResponseStatus = pResponseStatus_+    }++-- | The modified endpoint.+mersEndpoint :: Lens' ModifyEndpointResponse (Maybe Endpoint)+mersEndpoint = lens _mersEndpoint (\ s a -> s{_mersEndpoint = a});++-- | The response status code.+mersResponseStatus :: Lens' ModifyEndpointResponse Int+mersResponseStatus = lens _mersResponseStatus (\ s a -> s{_mersResponseStatus = a});
+ gen/Network/AWS/DMS/ModifyReplicationInstance.hs view
@@ -0,0 +1,253 @@+{-# 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.DMS.ModifyReplicationInstance+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the replication instance to apply new settings. You can change+-- one or more parameters by specifying these parameters and the new values+-- in the request.+--+-- Some settings are applied during the maintenance window.+--+module Network.AWS.DMS.ModifyReplicationInstance+    (+    -- * Creating a Request+      modifyReplicationInstance+    , ModifyReplicationInstance+    -- * Request Lenses+    , mriEngineVersion+    , mriAutoMinorVersionUpgrade+    , mriAllowMajorVersionUpgrade+    , mriPreferredMaintenanceWindow+    , mriAllocatedStorage+    , mriApplyImmediately+    , mriReplicationInstanceClass+    , mriReplicationInstanceIdentifier+    , mriReplicationInstanceARN++    -- * Destructuring the Response+    , modifyReplicationInstanceResponse+    , ModifyReplicationInstanceResponse+    -- * Response Lenses+    , mrirsReplicationInstance+    , mrirsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'modifyReplicationInstance' smart constructor.+data ModifyReplicationInstance = ModifyReplicationInstance'+    { _mriEngineVersion                 :: !(Maybe Text)+    , _mriAutoMinorVersionUpgrade       :: !(Maybe Bool)+    , _mriAllowMajorVersionUpgrade      :: !(Maybe Bool)+    , _mriPreferredMaintenanceWindow    :: !(Maybe Text)+    , _mriAllocatedStorage              :: !(Maybe Int)+    , _mriApplyImmediately              :: !(Maybe Bool)+    , _mriReplicationInstanceClass      :: !(Maybe Text)+    , _mriReplicationInstanceIdentifier :: !(Maybe Text)+    , _mriReplicationInstanceARN        :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ModifyReplicationInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mriEngineVersion'+--+-- * 'mriAutoMinorVersionUpgrade'+--+-- * 'mriAllowMajorVersionUpgrade'+--+-- * 'mriPreferredMaintenanceWindow'+--+-- * 'mriAllocatedStorage'+--+-- * 'mriApplyImmediately'+--+-- * 'mriReplicationInstanceClass'+--+-- * 'mriReplicationInstanceIdentifier'+--+-- * 'mriReplicationInstanceARN'+modifyReplicationInstance+    :: Text -- ^ 'mriReplicationInstanceARN'+    -> ModifyReplicationInstance+modifyReplicationInstance pReplicationInstanceARN_ =+    ModifyReplicationInstance'+    { _mriEngineVersion = Nothing+    , _mriAutoMinorVersionUpgrade = Nothing+    , _mriAllowMajorVersionUpgrade = Nothing+    , _mriPreferredMaintenanceWindow = Nothing+    , _mriAllocatedStorage = Nothing+    , _mriApplyImmediately = Nothing+    , _mriReplicationInstanceClass = Nothing+    , _mriReplicationInstanceIdentifier = Nothing+    , _mriReplicationInstanceARN = pReplicationInstanceARN_+    }++-- | The engine version number of the replication instance.+mriEngineVersion :: Lens' ModifyReplicationInstance (Maybe Text)+mriEngineVersion = lens _mriEngineVersion (\ s a -> s{_mriEngineVersion = a});++-- | Indicates that minor version upgrades will be applied automatically to+-- the replication instance during the maintenance window. Changing this+-- parameter does not result in an outage except in the following case and+-- the change is asynchronously applied as soon as possible. An outage will+-- result if this parameter is set to 'true' during the maintenance window,+-- and a newer minor version is available, and AWS DMS has enabled auto+-- patching for that engine version.+mriAutoMinorVersionUpgrade :: Lens' ModifyReplicationInstance (Maybe Bool)+mriAutoMinorVersionUpgrade = lens _mriAutoMinorVersionUpgrade (\ s a -> s{_mriAutoMinorVersionUpgrade = a});++-- | Indicates that major version upgrades are allowed. Changing this+-- parameter does not result in an outage and the change is asynchronously+-- applied as soon as possible.+--+-- Constraints: This parameter must be set to true when specifying a value+-- for the 'EngineVersion' parameter that is a different major version than+-- the replication instance\'s current version.+mriAllowMajorVersionUpgrade :: Lens' ModifyReplicationInstance (Maybe Bool)+mriAllowMajorVersionUpgrade = lens _mriAllowMajorVersionUpgrade (\ s a -> s{_mriAllowMajorVersionUpgrade = a});++-- | The weekly time range (in UTC) during which system maintenance can+-- occur, which might result in an outage. Changing this parameter does not+-- result in an outage, except in the following situation, and the change+-- is asynchronously applied as soon as possible. If moving this window to+-- the current time, there must be at least 30 minutes between the current+-- time and end of the window to ensure pending changes are applied.+--+-- Default: Uses existing setting+--+-- Format: ddd:hh24:mi-ddd:hh24:mi+--+-- Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun+--+-- Constraints: Must be at least 30 minutes+mriPreferredMaintenanceWindow :: Lens' ModifyReplicationInstance (Maybe Text)+mriPreferredMaintenanceWindow = lens _mriPreferredMaintenanceWindow (\ s a -> s{_mriPreferredMaintenanceWindow = a});++-- | The amount of storage (in gigabytes) to be allocated for the replication+-- instance.+mriAllocatedStorage :: Lens' ModifyReplicationInstance (Maybe Int)+mriAllocatedStorage = lens _mriAllocatedStorage (\ s a -> s{_mriAllocatedStorage = a});++-- | Indicates whether the changes should be applied immediately or during+-- the next maintenance window.+mriApplyImmediately :: Lens' ModifyReplicationInstance (Maybe Bool)+mriApplyImmediately = lens _mriApplyImmediately (\ s a -> s{_mriApplyImmediately = a});++-- | The compute and memory capacity of the replication instance.+--+-- Valid Values:+-- 'dms.t2.micro | dms.t2.small | dms.t2.medium | dms.t2.large | dms.c4.large | dms.c4.xlarge | dms.c4.2xlarge | dms.c4.4xlarge '+mriReplicationInstanceClass :: Lens' ModifyReplicationInstance (Maybe Text)+mriReplicationInstanceClass = lens _mriReplicationInstanceClass (\ s a -> s{_mriReplicationInstanceClass = a});++-- | The replication instance identifier. This parameter is stored as a+-- lowercase string.+mriReplicationInstanceIdentifier :: Lens' ModifyReplicationInstance (Maybe Text)+mriReplicationInstanceIdentifier = lens _mriReplicationInstanceIdentifier (\ s a -> s{_mriReplicationInstanceIdentifier = a});++-- | The Amazon Resource Name (ARN) of the replication instance.+mriReplicationInstanceARN :: Lens' ModifyReplicationInstance Text+mriReplicationInstanceARN = lens _mriReplicationInstanceARN (\ s a -> s{_mriReplicationInstanceARN = a});++instance AWSRequest ModifyReplicationInstance where+        type Rs ModifyReplicationInstance =+             ModifyReplicationInstanceResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 ModifyReplicationInstanceResponse' <$>+                   (x .?> "ReplicationInstance") <*>+                     (pure (fromEnum s)))++instance Hashable ModifyReplicationInstance++instance ToHeaders ModifyReplicationInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.ModifyReplicationInstance" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ModifyReplicationInstance where+        toJSON ModifyReplicationInstance'{..}+          = object+              (catMaybes+                 [("EngineVersion" .=) <$> _mriEngineVersion,+                  ("AutoMinorVersionUpgrade" .=) <$>+                    _mriAutoMinorVersionUpgrade,+                  ("AllowMajorVersionUpgrade" .=) <$>+                    _mriAllowMajorVersionUpgrade,+                  ("PreferredMaintenanceWindow" .=) <$>+                    _mriPreferredMaintenanceWindow,+                  ("AllocatedStorage" .=) <$> _mriAllocatedStorage,+                  ("ApplyImmediately" .=) <$> _mriApplyImmediately,+                  ("ReplicationInstanceClass" .=) <$>+                    _mriReplicationInstanceClass,+                  ("ReplicationInstanceIdentifier" .=) <$>+                    _mriReplicationInstanceIdentifier,+                  Just+                    ("ReplicationInstanceArn" .=+                       _mriReplicationInstanceARN)])++instance ToPath ModifyReplicationInstance where+        toPath = const "/"++instance ToQuery ModifyReplicationInstance where+        toQuery = const mempty++-- | /See:/ 'modifyReplicationInstanceResponse' smart constructor.+data ModifyReplicationInstanceResponse = ModifyReplicationInstanceResponse'+    { _mrirsReplicationInstance :: !(Maybe ReplicationInstance)+    , _mrirsResponseStatus      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ModifyReplicationInstanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mrirsReplicationInstance'+--+-- * 'mrirsResponseStatus'+modifyReplicationInstanceResponse+    :: Int -- ^ 'mrirsResponseStatus'+    -> ModifyReplicationInstanceResponse+modifyReplicationInstanceResponse pResponseStatus_ =+    ModifyReplicationInstanceResponse'+    { _mrirsReplicationInstance = Nothing+    , _mrirsResponseStatus = pResponseStatus_+    }++-- | The modified replication instance.+mrirsReplicationInstance :: Lens' ModifyReplicationInstanceResponse (Maybe ReplicationInstance)+mrirsReplicationInstance = lens _mrirsReplicationInstance (\ s a -> s{_mrirsReplicationInstance = a});++-- | The response status code.+mrirsResponseStatus :: Lens' ModifyReplicationInstanceResponse Int+mrirsResponseStatus = lens _mrirsResponseStatus (\ s a -> s{_mrirsResponseStatus = a});
+ gen/Network/AWS/DMS/ModifyReplicationSubnetGroup.hs view
@@ -0,0 +1,155 @@+{-# 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.DMS.ModifyReplicationSubnetGroup+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the settings for the specified replication subnet group.+--+module Network.AWS.DMS.ModifyReplicationSubnetGroup+    (+    -- * Creating a Request+      modifyReplicationSubnetGroup+    , ModifyReplicationSubnetGroup+    -- * Request Lenses+    , mrsgReplicationSubnetGroupDescription+    , mrsgReplicationSubnetGroupIdentifier+    , mrsgSubnetIds++    -- * Destructuring the Response+    , modifyReplicationSubnetGroupResponse+    , ModifyReplicationSubnetGroupResponse+    -- * Response Lenses+    , mrsgrsReplicationSubnetGroup+    , mrsgrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'modifyReplicationSubnetGroup' smart constructor.+data ModifyReplicationSubnetGroup = ModifyReplicationSubnetGroup'+    { _mrsgReplicationSubnetGroupDescription :: !(Maybe Text)+    , _mrsgReplicationSubnetGroupIdentifier  :: !Text+    , _mrsgSubnetIds                         :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ModifyReplicationSubnetGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mrsgReplicationSubnetGroupDescription'+--+-- * 'mrsgReplicationSubnetGroupIdentifier'+--+-- * 'mrsgSubnetIds'+modifyReplicationSubnetGroup+    :: Text -- ^ 'mrsgReplicationSubnetGroupIdentifier'+    -> ModifyReplicationSubnetGroup+modifyReplicationSubnetGroup pReplicationSubnetGroupIdentifier_ =+    ModifyReplicationSubnetGroup'+    { _mrsgReplicationSubnetGroupDescription = Nothing+    , _mrsgReplicationSubnetGroupIdentifier = pReplicationSubnetGroupIdentifier_+    , _mrsgSubnetIds = mempty+    }++-- | The description of the replication instance subnet group.+mrsgReplicationSubnetGroupDescription :: Lens' ModifyReplicationSubnetGroup (Maybe Text)+mrsgReplicationSubnetGroupDescription = lens _mrsgReplicationSubnetGroupDescription (\ s a -> s{_mrsgReplicationSubnetGroupDescription = a});++-- | The name of the replication instance subnet group.+mrsgReplicationSubnetGroupIdentifier :: Lens' ModifyReplicationSubnetGroup Text+mrsgReplicationSubnetGroupIdentifier = lens _mrsgReplicationSubnetGroupIdentifier (\ s a -> s{_mrsgReplicationSubnetGroupIdentifier = a});++-- | A list of subnet IDs.+mrsgSubnetIds :: Lens' ModifyReplicationSubnetGroup [Text]+mrsgSubnetIds = lens _mrsgSubnetIds (\ s a -> s{_mrsgSubnetIds = a}) . _Coerce;++instance AWSRequest ModifyReplicationSubnetGroup+         where+        type Rs ModifyReplicationSubnetGroup =+             ModifyReplicationSubnetGroupResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 ModifyReplicationSubnetGroupResponse' <$>+                   (x .?> "ReplicationSubnetGroup") <*>+                     (pure (fromEnum s)))++instance Hashable ModifyReplicationSubnetGroup++instance ToHeaders ModifyReplicationSubnetGroup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.ModifyReplicationSubnetGroup" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ModifyReplicationSubnetGroup where+        toJSON ModifyReplicationSubnetGroup'{..}+          = object+              (catMaybes+                 [("ReplicationSubnetGroupDescription" .=) <$>+                    _mrsgReplicationSubnetGroupDescription,+                  Just+                    ("ReplicationSubnetGroupIdentifier" .=+                       _mrsgReplicationSubnetGroupIdentifier),+                  Just ("SubnetIds" .= _mrsgSubnetIds)])++instance ToPath ModifyReplicationSubnetGroup where+        toPath = const "/"++instance ToQuery ModifyReplicationSubnetGroup where+        toQuery = const mempty++-- | /See:/ 'modifyReplicationSubnetGroupResponse' smart constructor.+data ModifyReplicationSubnetGroupResponse = ModifyReplicationSubnetGroupResponse'+    { _mrsgrsReplicationSubnetGroup :: !(Maybe ReplicationSubnetGroup)+    , _mrsgrsResponseStatus         :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ModifyReplicationSubnetGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mrsgrsReplicationSubnetGroup'+--+-- * 'mrsgrsResponseStatus'+modifyReplicationSubnetGroupResponse+    :: Int -- ^ 'mrsgrsResponseStatus'+    -> ModifyReplicationSubnetGroupResponse+modifyReplicationSubnetGroupResponse pResponseStatus_ =+    ModifyReplicationSubnetGroupResponse'+    { _mrsgrsReplicationSubnetGroup = Nothing+    , _mrsgrsResponseStatus = pResponseStatus_+    }++-- | The modified replication subnet group.+mrsgrsReplicationSubnetGroup :: Lens' ModifyReplicationSubnetGroupResponse (Maybe ReplicationSubnetGroup)+mrsgrsReplicationSubnetGroup = lens _mrsgrsReplicationSubnetGroup (\ s a -> s{_mrsgrsReplicationSubnetGroup = a});++-- | The response status code.+mrsgrsResponseStatus :: Lens' ModifyReplicationSubnetGroupResponse Int+mrsgrsResponseStatus = lens _mrsgrsResponseStatus (\ s a -> s{_mrsgrsResponseStatus = a});
+ gen/Network/AWS/DMS/RefreshSchemas.hs view
@@ -0,0 +1,145 @@+{-# 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.DMS.RefreshSchemas+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Populates the schema for the specified endpoint. This is an asynchronous+-- operation and can take several minutes. You can check the status of this+-- operation by calling the DescribeRefreshSchemasStatus operation.+--+module Network.AWS.DMS.RefreshSchemas+    (+    -- * Creating a Request+      refreshSchemas+    , RefreshSchemas+    -- * Request Lenses+    , rsEndpointARN+    , rsReplicationInstanceARN++    -- * Destructuring the Response+    , refreshSchemasResponse+    , RefreshSchemasResponse+    -- * Response Lenses+    , rsrsRefreshSchemasStatus+    , rsrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'refreshSchemas' smart constructor.+data RefreshSchemas = RefreshSchemas'+    { _rsEndpointARN            :: !Text+    , _rsReplicationInstanceARN :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RefreshSchemas' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rsEndpointARN'+--+-- * 'rsReplicationInstanceARN'+refreshSchemas+    :: Text -- ^ 'rsEndpointARN'+    -> Text -- ^ 'rsReplicationInstanceARN'+    -> RefreshSchemas+refreshSchemas pEndpointARN_ pReplicationInstanceARN_ =+    RefreshSchemas'+    { _rsEndpointARN = pEndpointARN_+    , _rsReplicationInstanceARN = pReplicationInstanceARN_+    }++-- | The Amazon Resource Name (ARN) string that uniquely identifies the+-- endpoint.+rsEndpointARN :: Lens' RefreshSchemas Text+rsEndpointARN = lens _rsEndpointARN (\ s a -> s{_rsEndpointARN = a});++-- | The Amazon Resource Name (ARN) of the replication instance.+rsReplicationInstanceARN :: Lens' RefreshSchemas Text+rsReplicationInstanceARN = lens _rsReplicationInstanceARN (\ s a -> s{_rsReplicationInstanceARN = a});++instance AWSRequest RefreshSchemas where+        type Rs RefreshSchemas = RefreshSchemasResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 RefreshSchemasResponse' <$>+                   (x .?> "RefreshSchemasStatus") <*>+                     (pure (fromEnum s)))++instance Hashable RefreshSchemas++instance ToHeaders RefreshSchemas where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.RefreshSchemas" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON RefreshSchemas where+        toJSON RefreshSchemas'{..}+          = object+              (catMaybes+                 [Just ("EndpointArn" .= _rsEndpointARN),+                  Just+                    ("ReplicationInstanceArn" .=+                       _rsReplicationInstanceARN)])++instance ToPath RefreshSchemas where+        toPath = const "/"++instance ToQuery RefreshSchemas where+        toQuery = const mempty++-- | /See:/ 'refreshSchemasResponse' smart constructor.+data RefreshSchemasResponse = RefreshSchemasResponse'+    { _rsrsRefreshSchemasStatus :: !(Maybe RefreshSchemasStatus)+    , _rsrsResponseStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RefreshSchemasResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rsrsRefreshSchemasStatus'+--+-- * 'rsrsResponseStatus'+refreshSchemasResponse+    :: Int -- ^ 'rsrsResponseStatus'+    -> RefreshSchemasResponse+refreshSchemasResponse pResponseStatus_ =+    RefreshSchemasResponse'+    { _rsrsRefreshSchemasStatus = Nothing+    , _rsrsResponseStatus = pResponseStatus_+    }++-- | The status of the refreshed schema.+rsrsRefreshSchemasStatus :: Lens' RefreshSchemasResponse (Maybe RefreshSchemasStatus)+rsrsRefreshSchemasStatus = lens _rsrsRefreshSchemasStatus (\ s a -> s{_rsrsRefreshSchemasStatus = a});++-- | The response status code.+rsrsResponseStatus :: Lens' RefreshSchemasResponse Int+rsrsResponseStatus = lens _rsrsResponseStatus (\ s a -> s{_rsrsResponseStatus = a});
+ gen/Network/AWS/DMS/RemoveTagsFromResource.hs view
@@ -0,0 +1,132 @@+{-# 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.DMS.RemoveTagsFromResource+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- For internal use only+--+module Network.AWS.DMS.RemoveTagsFromResource+    (+    -- * Creating a Request+      removeTagsFromResource+    , RemoveTagsFromResource+    -- * Request Lenses+    , rtfrResourceARN+    , rtfrTagKeys++    -- * Destructuring the Response+    , removeTagsFromResourceResponse+    , RemoveTagsFromResourceResponse+    -- * Response Lenses+    , rtfrrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'removeTagsFromResource' smart constructor.+data RemoveTagsFromResource = RemoveTagsFromResource'+    { _rtfrResourceARN :: !Text+    , _rtfrTagKeys     :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RemoveTagsFromResource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtfrResourceARN'+--+-- * 'rtfrTagKeys'+removeTagsFromResource+    :: Text -- ^ 'rtfrResourceARN'+    -> RemoveTagsFromResource+removeTagsFromResource pResourceARN_ =+    RemoveTagsFromResource'+    { _rtfrResourceARN = pResourceARN_+    , _rtfrTagKeys = mempty+    }++-- | >The Amazon Resource Name (ARN) of the AWS DMS resource the tag is to be+-- removed from.+rtfrResourceARN :: Lens' RemoveTagsFromResource Text+rtfrResourceARN = lens _rtfrResourceARN (\ s a -> s{_rtfrResourceARN = a});++-- | The tag key (name) of the tag to be removed.+rtfrTagKeys :: Lens' RemoveTagsFromResource [Text]+rtfrTagKeys = lens _rtfrTagKeys (\ s a -> s{_rtfrTagKeys = a}) . _Coerce;++instance AWSRequest RemoveTagsFromResource where+        type Rs RemoveTagsFromResource =+             RemoveTagsFromResourceResponse+        request = postJSON dms+        response+          = receiveEmpty+              (\ s h x ->+                 RemoveTagsFromResourceResponse' <$>+                   (pure (fromEnum s)))++instance Hashable RemoveTagsFromResource++instance ToHeaders RemoveTagsFromResource where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.RemoveTagsFromResource" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON RemoveTagsFromResource where+        toJSON RemoveTagsFromResource'{..}+          = object+              (catMaybes+                 [Just ("ResourceArn" .= _rtfrResourceARN),+                  Just ("TagKeys" .= _rtfrTagKeys)])++instance ToPath RemoveTagsFromResource where+        toPath = const "/"++instance ToQuery RemoveTagsFromResource where+        toQuery = const mempty++-- | /See:/ 'removeTagsFromResourceResponse' smart constructor.+newtype RemoveTagsFromResourceResponse = RemoveTagsFromResourceResponse'+    { _rtfrrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RemoveTagsFromResourceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtfrrsResponseStatus'+removeTagsFromResourceResponse+    :: Int -- ^ 'rtfrrsResponseStatus'+    -> RemoveTagsFromResourceResponse+removeTagsFromResourceResponse pResponseStatus_ =+    RemoveTagsFromResourceResponse'+    { _rtfrrsResponseStatus = pResponseStatus_+    }++-- | The response status code.+rtfrrsResponseStatus :: Lens' RemoveTagsFromResourceResponse Int+rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a});
+ gen/Network/AWS/DMS/StartReplicationTask.hs view
@@ -0,0 +1,154 @@+{-# 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.DMS.StartReplicationTask+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts the replication task.+--+module Network.AWS.DMS.StartReplicationTask+    (+    -- * Creating a Request+      startReplicationTask+    , StartReplicationTask+    -- * Request Lenses+    , srtCdcStartTime+    , srtReplicationTaskARN+    , srtStartReplicationTaskType++    -- * Destructuring the Response+    , startReplicationTaskResponse+    , StartReplicationTaskResponse+    -- * Response Lenses+    , srtrsReplicationTask+    , srtrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'startReplicationTask' smart constructor.+data StartReplicationTask = StartReplicationTask'+    { _srtCdcStartTime             :: !(Maybe POSIX)+    , _srtReplicationTaskARN       :: !Text+    , _srtStartReplicationTaskType :: !StartReplicationTaskTypeValue+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StartReplicationTask' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'srtCdcStartTime'+--+-- * 'srtReplicationTaskARN'+--+-- * 'srtStartReplicationTaskType'+startReplicationTask+    :: Text -- ^ 'srtReplicationTaskARN'+    -> StartReplicationTaskTypeValue -- ^ 'srtStartReplicationTaskType'+    -> StartReplicationTask+startReplicationTask pReplicationTaskARN_ pStartReplicationTaskType_ =+    StartReplicationTask'+    { _srtCdcStartTime = Nothing+    , _srtReplicationTaskARN = pReplicationTaskARN_+    , _srtStartReplicationTaskType = pStartReplicationTaskType_+    }++-- | The start time for the Change Data Capture (CDC) operation.+srtCdcStartTime :: Lens' StartReplicationTask (Maybe UTCTime)+srtCdcStartTime = lens _srtCdcStartTime (\ s a -> s{_srtCdcStartTime = a}) . mapping _Time;++-- | The Amazon Resource Number (ARN) of the replication task to be started.+srtReplicationTaskARN :: Lens' StartReplicationTask Text+srtReplicationTaskARN = lens _srtReplicationTaskARN (\ s a -> s{_srtReplicationTaskARN = a});++-- | The type of replication task.+srtStartReplicationTaskType :: Lens' StartReplicationTask StartReplicationTaskTypeValue+srtStartReplicationTaskType = lens _srtStartReplicationTaskType (\ s a -> s{_srtStartReplicationTaskType = a});++instance AWSRequest StartReplicationTask where+        type Rs StartReplicationTask =+             StartReplicationTaskResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 StartReplicationTaskResponse' <$>+                   (x .?> "ReplicationTask") <*> (pure (fromEnum s)))++instance Hashable StartReplicationTask++instance ToHeaders StartReplicationTask where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.StartReplicationTask" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StartReplicationTask where+        toJSON StartReplicationTask'{..}+          = object+              (catMaybes+                 [("CdcStartTime" .=) <$> _srtCdcStartTime,+                  Just+                    ("ReplicationTaskArn" .= _srtReplicationTaskARN),+                  Just+                    ("StartReplicationTaskType" .=+                       _srtStartReplicationTaskType)])++instance ToPath StartReplicationTask where+        toPath = const "/"++instance ToQuery StartReplicationTask where+        toQuery = const mempty++-- | /See:/ 'startReplicationTaskResponse' smart constructor.+data StartReplicationTaskResponse = StartReplicationTaskResponse'+    { _srtrsReplicationTask :: !(Maybe ReplicationTask)+    , _srtrsResponseStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StartReplicationTaskResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'srtrsReplicationTask'+--+-- * 'srtrsResponseStatus'+startReplicationTaskResponse+    :: Int -- ^ 'srtrsResponseStatus'+    -> StartReplicationTaskResponse+startReplicationTaskResponse pResponseStatus_ =+    StartReplicationTaskResponse'+    { _srtrsReplicationTask = Nothing+    , _srtrsResponseStatus = pResponseStatus_+    }++-- | The replication task started.+srtrsReplicationTask :: Lens' StartReplicationTaskResponse (Maybe ReplicationTask)+srtrsReplicationTask = lens _srtrsReplicationTask (\ s a -> s{_srtrsReplicationTask = a});++-- | The response status code.+srtrsResponseStatus :: Lens' StartReplicationTaskResponse Int+srtrsResponseStatus = lens _srtrsResponseStatus (\ s a -> s{_srtrsResponseStatus = a});
+ gen/Network/AWS/DMS/StopReplicationTask.hs view
@@ -0,0 +1,131 @@+{-# 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.DMS.StopReplicationTask+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Stops the replication task.+--+module Network.AWS.DMS.StopReplicationTask+    (+    -- * Creating a Request+      stopReplicationTask+    , StopReplicationTask+    -- * Request Lenses+    , sReplicationTaskARN++    -- * Destructuring the Response+    , stopReplicationTaskResponse+    , StopReplicationTaskResponse+    -- * Response Lenses+    , srsReplicationTask+    , srsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'stopReplicationTask' smart constructor.+newtype StopReplicationTask = StopReplicationTask'+    { _sReplicationTaskARN :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StopReplicationTask' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sReplicationTaskARN'+stopReplicationTask+    :: Text -- ^ 'sReplicationTaskARN'+    -> StopReplicationTask+stopReplicationTask pReplicationTaskARN_ =+    StopReplicationTask'+    { _sReplicationTaskARN = pReplicationTaskARN_+    }++-- | The Amazon Resource Number(ARN) of the replication task to be stopped.+sReplicationTaskARN :: Lens' StopReplicationTask Text+sReplicationTaskARN = lens _sReplicationTaskARN (\ s a -> s{_sReplicationTaskARN = a});++instance AWSRequest StopReplicationTask where+        type Rs StopReplicationTask =+             StopReplicationTaskResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 StopReplicationTaskResponse' <$>+                   (x .?> "ReplicationTask") <*> (pure (fromEnum s)))++instance Hashable StopReplicationTask++instance ToHeaders StopReplicationTask where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.StopReplicationTask" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StopReplicationTask where+        toJSON StopReplicationTask'{..}+          = object+              (catMaybes+                 [Just+                    ("ReplicationTaskArn" .= _sReplicationTaskARN)])++instance ToPath StopReplicationTask where+        toPath = const "/"++instance ToQuery StopReplicationTask where+        toQuery = const mempty++-- | /See:/ 'stopReplicationTaskResponse' smart constructor.+data StopReplicationTaskResponse = StopReplicationTaskResponse'+    { _srsReplicationTask :: !(Maybe ReplicationTask)+    , _srsResponseStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StopReplicationTaskResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'srsReplicationTask'+--+-- * 'srsResponseStatus'+stopReplicationTaskResponse+    :: Int -- ^ 'srsResponseStatus'+    -> StopReplicationTaskResponse+stopReplicationTaskResponse pResponseStatus_ =+    StopReplicationTaskResponse'+    { _srsReplicationTask = Nothing+    , _srsResponseStatus = pResponseStatus_+    }++-- | The replication task stopped.+srsReplicationTask :: Lens' StopReplicationTaskResponse (Maybe ReplicationTask)+srsReplicationTask = lens _srsReplicationTask (\ s a -> s{_srsReplicationTask = a});++-- | The response status code.+srsResponseStatus :: Lens' StopReplicationTaskResponse Int+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});
+ gen/Network/AWS/DMS/TestConnection.hs view
@@ -0,0 +1,142 @@+{-# 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.DMS.TestConnection+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Tests the connection between the replication instance and the endpoint.+--+module Network.AWS.DMS.TestConnection+    (+    -- * Creating a Request+      testConnection+    , TestConnection+    -- * Request Lenses+    , tcReplicationInstanceARN+    , tcEndpointARN++    -- * Destructuring the Response+    , testConnectionResponse+    , TestConnectionResponse+    -- * Response Lenses+    , tcrsConnection+    , tcrsResponseStatus+    ) where++import           Network.AWS.DMS.Types+import           Network.AWS.DMS.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'testConnection' smart constructor.+data TestConnection = TestConnection'+    { _tcReplicationInstanceARN :: !Text+    , _tcEndpointARN            :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'TestConnection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tcReplicationInstanceARN'+--+-- * 'tcEndpointARN'+testConnection+    :: Text -- ^ 'tcReplicationInstanceARN'+    -> Text -- ^ 'tcEndpointARN'+    -> TestConnection+testConnection pReplicationInstanceARN_ pEndpointARN_ =+    TestConnection'+    { _tcReplicationInstanceARN = pReplicationInstanceARN_+    , _tcEndpointARN = pEndpointARN_+    }++-- | The Amazon Resource Number (ARN) of the replication instance.+tcReplicationInstanceARN :: Lens' TestConnection Text+tcReplicationInstanceARN = lens _tcReplicationInstanceARN (\ s a -> s{_tcReplicationInstanceARN = a});++-- | The Amazon Resource Name (ARN) string that uniquely identifies the+-- endpoint.+tcEndpointARN :: Lens' TestConnection Text+tcEndpointARN = lens _tcEndpointARN (\ s a -> s{_tcEndpointARN = a});++instance AWSRequest TestConnection where+        type Rs TestConnection = TestConnectionResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 TestConnectionResponse' <$>+                   (x .?> "Connection") <*> (pure (fromEnum s)))++instance Hashable TestConnection++instance ToHeaders TestConnection where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.TestConnection" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON TestConnection where+        toJSON TestConnection'{..}+          = object+              (catMaybes+                 [Just+                    ("ReplicationInstanceArn" .=+                       _tcReplicationInstanceARN),+                  Just ("EndpointArn" .= _tcEndpointARN)])++instance ToPath TestConnection where+        toPath = const "/"++instance ToQuery TestConnection where+        toQuery = const mempty++-- | /See:/ 'testConnectionResponse' smart constructor.+data TestConnectionResponse = TestConnectionResponse'+    { _tcrsConnection     :: !(Maybe Connection)+    , _tcrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'TestConnectionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tcrsConnection'+--+-- * 'tcrsResponseStatus'+testConnectionResponse+    :: Int -- ^ 'tcrsResponseStatus'+    -> TestConnectionResponse+testConnectionResponse pResponseStatus_ =+    TestConnectionResponse'+    { _tcrsConnection = Nothing+    , _tcrsResponseStatus = pResponseStatus_+    }++-- | The connection tested.+tcrsConnection :: Lens' TestConnectionResponse (Maybe Connection)+tcrsConnection = lens _tcrsConnection (\ s a -> s{_tcrsConnection = a});++-- | The response status code.+tcrsResponseStatus :: Lens' TestConnectionResponse Int+tcrsResponseStatus = lens _tcrsResponseStatus (\ s a -> s{_tcrsResponseStatus = a});
+ gen/Network/AWS/DMS/Types.hs view
@@ -0,0 +1,295 @@+{-# LANGUAGE OverloadedStrings #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DMS.Types+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.DMS.Types+    (+    -- * Service Configuration+      dms++    -- * Errors+    , _InvalidSubnet+    , _KMSKeyNotAccessibleFault+    , _ReplicationSubnetGroupDoesNotCoverEnoughAZs+    , _InvalidResourceStateFault+    , _ResourceAlreadyExistsFault+    , _InsufficientResourceCapacityFault+    , _ResourceQuotaExceededFault+    , _UpgradeDependencyFailureFault+    , _ResourceNotFoundFault+    , _StorageQuotaExceededFault+    , _AccessDeniedFault+    , _SubnetAlreadyInUse++    -- * MigrationTypeValue+    , MigrationTypeValue (..)++    -- * RefreshSchemasStatusTypeValue+    , RefreshSchemasStatusTypeValue (..)++    -- * ReplicationEndpointTypeValue+    , ReplicationEndpointTypeValue (..)++    -- * StartReplicationTaskTypeValue+    , StartReplicationTaskTypeValue (..)++    -- * AccountQuota+    , AccountQuota+    , accountQuota+    , aqMax+    , aqUsed+    , aqAccountQuotaName++    -- * AvailabilityZone+    , AvailabilityZone+    , availabilityZone+    , azName++    -- * Connection+    , Connection+    , connection+    , cStatus+    , cReplicationInstanceARN+    , cEndpointIdentifier+    , cReplicationInstanceIdentifier+    , cEndpointARN+    , cLastFailureMessage++    -- * Endpoint+    , Endpoint+    , endpoint+    , eStatus+    , eServerName+    , eExtraConnectionAttributes+    , eEndpointType+    , eUsername+    , eEngineName+    , eKMSKeyId+    , eDatabaseName+    , eEndpointIdentifier+    , eEndpointARN+    , ePort++    -- * Filter+    , Filter+    , filter'+    , fName+    , fValues++    -- * OrderableReplicationInstance+    , OrderableReplicationInstance+    , orderableReplicationInstance+    , oriEngineVersion+    , oriMinAllocatedStorage+    , oriIncludedAllocatedStorage+    , oriMaxAllocatedStorage+    , oriReplicationInstanceClass+    , oriDefaultAllocatedStorage+    , oriStorageType++    -- * RefreshSchemasStatus+    , RefreshSchemasStatus+    , refreshSchemasStatus+    , rssStatus+    , rssLastRefreshDate+    , rssReplicationInstanceARN+    , rssEndpointARN+    , rssLastFailureMessage++    -- * ReplicationInstance+    , ReplicationInstance+    , replicationInstance+    , riEngineVersion+    , riPubliclyAccessible+    , riAutoMinorVersionUpgrade+    , riReplicationSubnetGroup+    , riInstanceCreateTime+    , riReplicationInstanceStatus+    , riPreferredMaintenanceWindow+    , riReplicationInstancePrivateIPAddress+    , riKMSKeyId+    , riAvailabilityZone+    , riReplicationInstanceARN+    , riAllocatedStorage+    , riReplicationInstancePublicIPAddress+    , riReplicationInstanceClass+    , riReplicationInstanceIdentifier+    , riPendingModifiedValues++    -- * ReplicationPendingModifiedValues+    , ReplicationPendingModifiedValues+    , replicationPendingModifiedValues+    , rpmvEngineVersion+    , rpmvAllocatedStorage+    , rpmvReplicationInstanceClass++    -- * ReplicationSubnetGroup+    , ReplicationSubnetGroup+    , replicationSubnetGroup+    , rsgVPCId+    , rsgSubnets+    , rsgReplicationSubnetGroupIdentifier+    , rsgSubnetGroupStatus+    , rsgReplicationSubnetGroupDescription++    -- * ReplicationTask+    , ReplicationTask+    , replicationTask+    , rtReplicationTaskSettings+    , rtStatus+    , rtTargetEndpointARN+    , rtReplicationTaskIdentifier+    , rtReplicationTaskStartDate+    , rtSourceEndpointARN+    , rtTableMappings+    , rtReplicationTaskCreationDate+    , rtMigrationType+    , rtReplicationTaskARN+    , rtReplicationTaskStats+    , rtReplicationInstanceARN+    , rtLastFailureMessage++    -- * ReplicationTaskStats+    , ReplicationTaskStats+    , replicationTaskStats+    , rtsFullLoadProgressPercent+    , rtsElapsedTimeMillis+    , rtsTablesErrored+    , rtsTablesLoaded+    , rtsTablesQueued+    , rtsTablesLoading++    -- * Subnet+    , Subnet+    , subnet+    , sSubnetStatus+    , sSubnetIdentifier+    , sSubnetAvailabilityZone++    -- * SupportedEndpointType+    , SupportedEndpointType+    , supportedEndpointType+    , setEndpointType+    , setEngineName+    , setSupportsCDC++    -- * TableStatistics+    , TableStatistics+    , tableStatistics+    , tsFullLoadRows+    , tsInserts+    , tsSchemaName+    , tsTableState+    , tsDdls+    , tsDeletes+    , tsUpdates+    , tsLastUpdateTime+    , tsTableName++    -- * Tag+    , Tag+    , tag+    , tagValue+    , tagKey+    ) where++import           Network.AWS.DMS.Types.Product+import           Network.AWS.DMS.Types.Sum+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Sign.V4++-- | API version '2016-01-01' of the Amazon Database Migration Service SDK configuration.+dms :: Service+dms =+    Service+    { _svcAbbrev = "DMS"+    , _svcSigner = v4+    , _svcPrefix = "dms"+    , _svcVersion = "2016-01-01"+    , _svcEndpoint = defaultEndpoint dms+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError+    , _svcRetry = retry+    }+  where+    retry =+        Exponential+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }+    check e+      | has (hasStatus 429) e = Just "too_many_requests"+      | has (hasCode "ThrottlingException" . hasStatus 400) e =+          Just "throttling_exception"+      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 503) e = Just "service_unavailable"+      | has (hasStatus 500) e = Just "general_server_error"+      | has (hasStatus 509) e = Just "limit_exceeded"+      | otherwise = Nothing++-- | Prism for InvalidSubnet' errors.+_InvalidSubnet :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidSubnet = _ServiceError . hasCode "InvalidSubnet"++-- | Prism for KMSKeyNotAccessibleFault' errors.+_KMSKeyNotAccessibleFault :: AsError a => Getting (First ServiceError) a ServiceError+_KMSKeyNotAccessibleFault = _ServiceError . hasCode "KMSKeyNotAccessibleFault"++-- | Prism for ReplicationSubnetGroupDoesNotCoverEnoughAZs' errors.+_ReplicationSubnetGroupDoesNotCoverEnoughAZs :: AsError a => Getting (First ServiceError) a ServiceError+_ReplicationSubnetGroupDoesNotCoverEnoughAZs =+    _ServiceError . hasCode "ReplicationSubnetGroupDoesNotCoverEnoughAZs"++-- | Prism for InvalidResourceStateFault' errors.+_InvalidResourceStateFault :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidResourceStateFault =+    _ServiceError . hasCode "InvalidResourceStateFault"++-- | Prism for ResourceAlreadyExistsFault' errors.+_ResourceAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError+_ResourceAlreadyExistsFault =+    _ServiceError . hasCode "ResourceAlreadyExistsFault"++-- | Prism for InsufficientResourceCapacityFault' errors.+_InsufficientResourceCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError+_InsufficientResourceCapacityFault =+    _ServiceError . hasCode "InsufficientResourceCapacityFault"++-- | Prism for ResourceQuotaExceededFault' errors.+_ResourceQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError+_ResourceQuotaExceededFault =+    _ServiceError . hasCode "ResourceQuotaExceededFault"++-- | Prism for UpgradeDependencyFailureFault' errors.+_UpgradeDependencyFailureFault :: AsError a => Getting (First ServiceError) a ServiceError+_UpgradeDependencyFailureFault =+    _ServiceError . hasCode "UpgradeDependencyFailureFault"++-- | Prism for ResourceNotFoundFault' errors.+_ResourceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError+_ResourceNotFoundFault = _ServiceError . hasCode "ResourceNotFoundFault"++-- | Prism for StorageQuotaExceededFault' errors.+_StorageQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError+_StorageQuotaExceededFault =+    _ServiceError . hasCode "StorageQuotaExceededFault"++-- | Prism for AccessDeniedFault' errors.+_AccessDeniedFault :: AsError a => Getting (First ServiceError) a ServiceError+_AccessDeniedFault = _ServiceError . hasCode "AccessDeniedFault"++-- | Prism for SubnetAlreadyInUse' errors.+_SubnetAlreadyInUse :: AsError a => Getting (First ServiceError) a ServiceError+_SubnetAlreadyInUse = _ServiceError . hasCode "SubnetAlreadyInUse"
+ gen/Network/AWS/DMS/Types/Product.hs view
@@ -0,0 +1,1272 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DMS.Types.Product+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.DMS.Types.Product where++import           Network.AWS.DMS.Types.Sum+import           Network.AWS.Lens+import           Network.AWS.Prelude++-- | Describes a quota for an AWS account, for example, the number of+-- replication instances allowed.+--+-- /See:/ 'accountQuota' smart constructor.+data AccountQuota = AccountQuota'+    { _aqMax              :: !(Maybe Integer)+    , _aqUsed             :: !(Maybe Integer)+    , _aqAccountQuotaName :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AccountQuota' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aqMax'+--+-- * 'aqUsed'+--+-- * 'aqAccountQuotaName'+accountQuota+    :: AccountQuota+accountQuota =+    AccountQuota'+    { _aqMax = Nothing+    , _aqUsed = Nothing+    , _aqAccountQuotaName = Nothing+    }++-- | The maximum allowed value for the quota.+aqMax :: Lens' AccountQuota (Maybe Integer)+aqMax = lens _aqMax (\ s a -> s{_aqMax = a});++-- | The amount currently used toward the quota maximum.+aqUsed :: Lens' AccountQuota (Maybe Integer)+aqUsed = lens _aqUsed (\ s a -> s{_aqUsed = a});++-- | The name of the AWS DMS quota for this AWS account.+aqAccountQuotaName :: Lens' AccountQuota (Maybe Text)+aqAccountQuotaName = lens _aqAccountQuotaName (\ s a -> s{_aqAccountQuotaName = a});++instance FromJSON AccountQuota where+        parseJSON+          = withObject "AccountQuota"+              (\ x ->+                 AccountQuota' <$>+                   (x .:? "Max") <*> (x .:? "Used") <*>+                     (x .:? "AccountQuotaName"))++instance Hashable AccountQuota++-- | /See:/ 'availabilityZone' smart constructor.+newtype AvailabilityZone = AvailabilityZone'+    { _azName :: Maybe Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AvailabilityZone' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'azName'+availabilityZone+    :: AvailabilityZone+availabilityZone =+    AvailabilityZone'+    { _azName = Nothing+    }++-- | The name of the availability zone.+azName :: Lens' AvailabilityZone (Maybe Text)+azName = lens _azName (\ s a -> s{_azName = a});++instance FromJSON AvailabilityZone where+        parseJSON+          = withObject "AvailabilityZone"+              (\ x -> AvailabilityZone' <$> (x .:? "Name"))++instance Hashable AvailabilityZone++-- | /See:/ 'connection' smart constructor.+data Connection = Connection'+    { _cStatus                        :: !(Maybe Text)+    , _cReplicationInstanceARN        :: !(Maybe Text)+    , _cEndpointIdentifier            :: !(Maybe Text)+    , _cReplicationInstanceIdentifier :: !(Maybe Text)+    , _cEndpointARN                   :: !(Maybe Text)+    , _cLastFailureMessage            :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Connection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cStatus'+--+-- * 'cReplicationInstanceARN'+--+-- * 'cEndpointIdentifier'+--+-- * 'cReplicationInstanceIdentifier'+--+-- * 'cEndpointARN'+--+-- * 'cLastFailureMessage'+connection+    :: Connection+connection =+    Connection'+    { _cStatus = Nothing+    , _cReplicationInstanceARN = Nothing+    , _cEndpointIdentifier = Nothing+    , _cReplicationInstanceIdentifier = Nothing+    , _cEndpointARN = Nothing+    , _cLastFailureMessage = Nothing+    }++-- | The connection status.+cStatus :: Lens' Connection (Maybe Text)+cStatus = lens _cStatus (\ s a -> s{_cStatus = a});++-- | The Amazon Resource Name (ARN) of the replication instance.+cReplicationInstanceARN :: Lens' Connection (Maybe Text)+cReplicationInstanceARN = lens _cReplicationInstanceARN (\ s a -> s{_cReplicationInstanceARN = a});++-- | The identifier of the endpoint. Identifiers must begin with a letter;+-- must contain only ASCII letters, digits, and hyphens; and must not end+-- with a hyphen or contain two consecutive hyphens.+cEndpointIdentifier :: Lens' Connection (Maybe Text)+cEndpointIdentifier = lens _cEndpointIdentifier (\ s a -> s{_cEndpointIdentifier = a});++-- | The replication instance identifier. This parameter is stored as a+-- lowercase string.+cReplicationInstanceIdentifier :: Lens' Connection (Maybe Text)+cReplicationInstanceIdentifier = lens _cReplicationInstanceIdentifier (\ s a -> s{_cReplicationInstanceIdentifier = a});++-- | The Amazon Resource Name (ARN) string that uniquely identifies the+-- endpoint.+cEndpointARN :: Lens' Connection (Maybe Text)+cEndpointARN = lens _cEndpointARN (\ s a -> s{_cEndpointARN = a});++-- | The error message when the connection last failed.+cLastFailureMessage :: Lens' Connection (Maybe Text)+cLastFailureMessage = lens _cLastFailureMessage (\ s a -> s{_cLastFailureMessage = a});++instance FromJSON Connection where+        parseJSON+          = withObject "Connection"+              (\ x ->+                 Connection' <$>+                   (x .:? "Status") <*> (x .:? "ReplicationInstanceArn")+                     <*> (x .:? "EndpointIdentifier")+                     <*> (x .:? "ReplicationInstanceIdentifier")+                     <*> (x .:? "EndpointArn")+                     <*> (x .:? "LastFailureMessage"))++instance Hashable Connection++-- | /See:/ 'endpoint' smart constructor.+data Endpoint = Endpoint'+    { _eStatus                    :: !(Maybe Text)+    , _eServerName                :: !(Maybe Text)+    , _eExtraConnectionAttributes :: !(Maybe Text)+    , _eEndpointType              :: !(Maybe ReplicationEndpointTypeValue)+    , _eUsername                  :: !(Maybe Text)+    , _eEngineName                :: !(Maybe Text)+    , _eKMSKeyId                  :: !(Maybe Text)+    , _eDatabaseName              :: !(Maybe Text)+    , _eEndpointIdentifier        :: !(Maybe Text)+    , _eEndpointARN               :: !(Maybe Text)+    , _ePort                      :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Endpoint' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eStatus'+--+-- * 'eServerName'+--+-- * 'eExtraConnectionAttributes'+--+-- * 'eEndpointType'+--+-- * 'eUsername'+--+-- * 'eEngineName'+--+-- * 'eKMSKeyId'+--+-- * 'eDatabaseName'+--+-- * 'eEndpointIdentifier'+--+-- * 'eEndpointARN'+--+-- * 'ePort'+endpoint+    :: Endpoint+endpoint =+    Endpoint'+    { _eStatus = Nothing+    , _eServerName = Nothing+    , _eExtraConnectionAttributes = Nothing+    , _eEndpointType = Nothing+    , _eUsername = Nothing+    , _eEngineName = Nothing+    , _eKMSKeyId = Nothing+    , _eDatabaseName = Nothing+    , _eEndpointIdentifier = Nothing+    , _eEndpointARN = Nothing+    , _ePort = Nothing+    }++-- | The status of the endpoint.+eStatus :: Lens' Endpoint (Maybe Text)+eStatus = lens _eStatus (\ s a -> s{_eStatus = a});++-- | The name of the server at the endpoint.+eServerName :: Lens' Endpoint (Maybe Text)+eServerName = lens _eServerName (\ s a -> s{_eServerName = a});++-- | Additional connection attributes used to connect to the endpoint.+eExtraConnectionAttributes :: Lens' Endpoint (Maybe Text)+eExtraConnectionAttributes = lens _eExtraConnectionAttributes (\ s a -> s{_eExtraConnectionAttributes = a});++-- | The type of endpoint.+eEndpointType :: Lens' Endpoint (Maybe ReplicationEndpointTypeValue)+eEndpointType = lens _eEndpointType (\ s a -> s{_eEndpointType = a});++-- | The user name used to connect to the endpoint.+eUsername :: Lens' Endpoint (Maybe Text)+eUsername = lens _eUsername (\ s a -> s{_eUsername = a});++-- | The database engine name.+eEngineName :: Lens' Endpoint (Maybe Text)+eEngineName = lens _eEngineName (\ s a -> s{_eEngineName = a});++-- | The KMS key identifier that will be used to encrypt the connection+-- parameters. If you do not specify a value for the KmsKeyId parameter,+-- then AWS DMS will use your default encryption key. AWS KMS creates the+-- default encryption key for your AWS account. Your AWS account has a+-- different default encryption key for each AWS region.+eKMSKeyId :: Lens' Endpoint (Maybe Text)+eKMSKeyId = lens _eKMSKeyId (\ s a -> s{_eKMSKeyId = a});++-- | The name of the database at the endpoint.+eDatabaseName :: Lens' Endpoint (Maybe Text)+eDatabaseName = lens _eDatabaseName (\ s a -> s{_eDatabaseName = a});++-- | The database endpoint identifier. Identifiers must begin with a letter;+-- must contain only ASCII letters, digits, and hyphens; and must not end+-- with a hyphen or contain two consecutive hyphens.+eEndpointIdentifier :: Lens' Endpoint (Maybe Text)+eEndpointIdentifier = lens _eEndpointIdentifier (\ s a -> s{_eEndpointIdentifier = a});++-- | The Amazon Resource Name (ARN) string that uniquely identifies the+-- endpoint.+eEndpointARN :: Lens' Endpoint (Maybe Text)+eEndpointARN = lens _eEndpointARN (\ s a -> s{_eEndpointARN = a});++-- | The port value used to access the endpoint.+ePort :: Lens' Endpoint (Maybe Int)+ePort = lens _ePort (\ s a -> s{_ePort = a});++instance FromJSON Endpoint where+        parseJSON+          = withObject "Endpoint"+              (\ x ->+                 Endpoint' <$>+                   (x .:? "Status") <*> (x .:? "ServerName") <*>+                     (x .:? "ExtraConnectionAttributes")+                     <*> (x .:? "EndpointType")+                     <*> (x .:? "Username")+                     <*> (x .:? "EngineName")+                     <*> (x .:? "KmsKeyId")+                     <*> (x .:? "DatabaseName")+                     <*> (x .:? "EndpointIdentifier")+                     <*> (x .:? "EndpointArn")+                     <*> (x .:? "Port"))++instance Hashable Endpoint++-- | /See:/ 'filter'' smart constructor.+data Filter = Filter'+    { _fName   :: !Text+    , _fValues :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Filter' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fName'+--+-- * 'fValues'+filter'+    :: Text -- ^ 'fName'+    -> Filter+filter' pName_ =+    Filter'+    { _fName = pName_+    , _fValues = mempty+    }++-- | The name of the filter.+fName :: Lens' Filter Text+fName = lens _fName (\ s a -> s{_fName = a});++-- | The filter value.+fValues :: Lens' Filter [Text]+fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Coerce;++instance Hashable Filter++instance ToJSON Filter where+        toJSON Filter'{..}+          = object+              (catMaybes+                 [Just ("Name" .= _fName),+                  Just ("Values" .= _fValues)])++-- | /See:/ 'orderableReplicationInstance' smart constructor.+data OrderableReplicationInstance = OrderableReplicationInstance'+    { _oriEngineVersion            :: !(Maybe Text)+    , _oriMinAllocatedStorage      :: !(Maybe Int)+    , _oriIncludedAllocatedStorage :: !(Maybe Int)+    , _oriMaxAllocatedStorage      :: !(Maybe Int)+    , _oriReplicationInstanceClass :: !(Maybe Text)+    , _oriDefaultAllocatedStorage  :: !(Maybe Int)+    , _oriStorageType              :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'OrderableReplicationInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'oriEngineVersion'+--+-- * 'oriMinAllocatedStorage'+--+-- * 'oriIncludedAllocatedStorage'+--+-- * 'oriMaxAllocatedStorage'+--+-- * 'oriReplicationInstanceClass'+--+-- * 'oriDefaultAllocatedStorage'+--+-- * 'oriStorageType'+orderableReplicationInstance+    :: OrderableReplicationInstance+orderableReplicationInstance =+    OrderableReplicationInstance'+    { _oriEngineVersion = Nothing+    , _oriMinAllocatedStorage = Nothing+    , _oriIncludedAllocatedStorage = Nothing+    , _oriMaxAllocatedStorage = Nothing+    , _oriReplicationInstanceClass = Nothing+    , _oriDefaultAllocatedStorage = Nothing+    , _oriStorageType = Nothing+    }++-- | The version of the replication engine.+oriEngineVersion :: Lens' OrderableReplicationInstance (Maybe Text)+oriEngineVersion = lens _oriEngineVersion (\ s a -> s{_oriEngineVersion = a});++-- | The minimum amount of storage (in gigabytes) that can be allocated for+-- the replication instance.+oriMinAllocatedStorage :: Lens' OrderableReplicationInstance (Maybe Int)+oriMinAllocatedStorage = lens _oriMinAllocatedStorage (\ s a -> s{_oriMinAllocatedStorage = a});++-- | The amount of storage (in gigabytes) that is allocated for the+-- replication instance.+oriIncludedAllocatedStorage :: Lens' OrderableReplicationInstance (Maybe Int)+oriIncludedAllocatedStorage = lens _oriIncludedAllocatedStorage (\ s a -> s{_oriIncludedAllocatedStorage = a});++-- | The minimum amount of storage (in gigabytes) that can be allocated for+-- the replication instance.+oriMaxAllocatedStorage :: Lens' OrderableReplicationInstance (Maybe Int)+oriMaxAllocatedStorage = lens _oriMaxAllocatedStorage (\ s a -> s{_oriMaxAllocatedStorage = a});++-- | The compute and memory capacity of the replication instance.+--+-- Valid Values:+-- 'dms.t2.micro | dms.t2.small | dms.t2.medium | dms.t2.large | dms.c4.large | dms.c4.xlarge | dms.c4.2xlarge | dms.c4.4xlarge '+oriReplicationInstanceClass :: Lens' OrderableReplicationInstance (Maybe Text)+oriReplicationInstanceClass = lens _oriReplicationInstanceClass (\ s a -> s{_oriReplicationInstanceClass = a});++-- | The default amount of storage (in gigabytes) that is allocated for the+-- replication instance.+oriDefaultAllocatedStorage :: Lens' OrderableReplicationInstance (Maybe Int)+oriDefaultAllocatedStorage = lens _oriDefaultAllocatedStorage (\ s a -> s{_oriDefaultAllocatedStorage = a});++-- | The type of storage used by the replication instance.+oriStorageType :: Lens' OrderableReplicationInstance (Maybe Text)+oriStorageType = lens _oriStorageType (\ s a -> s{_oriStorageType = a});++instance FromJSON OrderableReplicationInstance where+        parseJSON+          = withObject "OrderableReplicationInstance"+              (\ x ->+                 OrderableReplicationInstance' <$>+                   (x .:? "EngineVersion") <*>+                     (x .:? "MinAllocatedStorage")+                     <*> (x .:? "IncludedAllocatedStorage")+                     <*> (x .:? "MaxAllocatedStorage")+                     <*> (x .:? "ReplicationInstanceClass")+                     <*> (x .:? "DefaultAllocatedStorage")+                     <*> (x .:? "StorageType"))++instance Hashable OrderableReplicationInstance++-- | /See:/ 'refreshSchemasStatus' smart constructor.+data RefreshSchemasStatus = RefreshSchemasStatus'+    { _rssStatus                 :: !(Maybe RefreshSchemasStatusTypeValue)+    , _rssLastRefreshDate        :: !(Maybe POSIX)+    , _rssReplicationInstanceARN :: !(Maybe Text)+    , _rssEndpointARN            :: !(Maybe Text)+    , _rssLastFailureMessage     :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RefreshSchemasStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rssStatus'+--+-- * 'rssLastRefreshDate'+--+-- * 'rssReplicationInstanceARN'+--+-- * 'rssEndpointARN'+--+-- * 'rssLastFailureMessage'+refreshSchemasStatus+    :: RefreshSchemasStatus+refreshSchemasStatus =+    RefreshSchemasStatus'+    { _rssStatus = Nothing+    , _rssLastRefreshDate = Nothing+    , _rssReplicationInstanceARN = Nothing+    , _rssEndpointARN = Nothing+    , _rssLastFailureMessage = Nothing+    }++-- | The status of the schema.+rssStatus :: Lens' RefreshSchemasStatus (Maybe RefreshSchemasStatusTypeValue)+rssStatus = lens _rssStatus (\ s a -> s{_rssStatus = a});++-- | The date the schema was last refreshed.+rssLastRefreshDate :: Lens' RefreshSchemasStatus (Maybe UTCTime)+rssLastRefreshDate = lens _rssLastRefreshDate (\ s a -> s{_rssLastRefreshDate = a}) . mapping _Time;++-- | The Amazon Resource Name (ARN) of the replication instance.+rssReplicationInstanceARN :: Lens' RefreshSchemasStatus (Maybe Text)+rssReplicationInstanceARN = lens _rssReplicationInstanceARN (\ s a -> s{_rssReplicationInstanceARN = a});++-- | The Amazon Resource Name (ARN) string that uniquely identifies the+-- endpoint.+rssEndpointARN :: Lens' RefreshSchemasStatus (Maybe Text)+rssEndpointARN = lens _rssEndpointARN (\ s a -> s{_rssEndpointARN = a});++-- | The last failure message for the schema.+rssLastFailureMessage :: Lens' RefreshSchemasStatus (Maybe Text)+rssLastFailureMessage = lens _rssLastFailureMessage (\ s a -> s{_rssLastFailureMessage = a});++instance FromJSON RefreshSchemasStatus where+        parseJSON+          = withObject "RefreshSchemasStatus"+              (\ x ->+                 RefreshSchemasStatus' <$>+                   (x .:? "Status") <*> (x .:? "LastRefreshDate") <*>+                     (x .:? "ReplicationInstanceArn")+                     <*> (x .:? "EndpointArn")+                     <*> (x .:? "LastFailureMessage"))++instance Hashable RefreshSchemasStatus++-- | /See:/ 'replicationInstance' smart constructor.+data ReplicationInstance = ReplicationInstance'+    { _riEngineVersion                       :: !(Maybe Text)+    , _riPubliclyAccessible                  :: !(Maybe Bool)+    , _riAutoMinorVersionUpgrade             :: !(Maybe Bool)+    , _riReplicationSubnetGroup              :: !(Maybe ReplicationSubnetGroup)+    , _riInstanceCreateTime                  :: !(Maybe POSIX)+    , _riReplicationInstanceStatus           :: !(Maybe Text)+    , _riPreferredMaintenanceWindow          :: !(Maybe Text)+    , _riReplicationInstancePrivateIPAddress :: !(Maybe Text)+    , _riKMSKeyId                            :: !(Maybe Text)+    , _riAvailabilityZone                    :: !(Maybe Text)+    , _riReplicationInstanceARN              :: !(Maybe Text)+    , _riAllocatedStorage                    :: !(Maybe Int)+    , _riReplicationInstancePublicIPAddress  :: !(Maybe Text)+    , _riReplicationInstanceClass            :: !(Maybe Text)+    , _riReplicationInstanceIdentifier       :: !(Maybe Text)+    , _riPendingModifiedValues               :: !(Maybe ReplicationPendingModifiedValues)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ReplicationInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'riEngineVersion'+--+-- * 'riPubliclyAccessible'+--+-- * 'riAutoMinorVersionUpgrade'+--+-- * 'riReplicationSubnetGroup'+--+-- * 'riInstanceCreateTime'+--+-- * 'riReplicationInstanceStatus'+--+-- * 'riPreferredMaintenanceWindow'+--+-- * 'riReplicationInstancePrivateIPAddress'+--+-- * 'riKMSKeyId'+--+-- * 'riAvailabilityZone'+--+-- * 'riReplicationInstanceARN'+--+-- * 'riAllocatedStorage'+--+-- * 'riReplicationInstancePublicIPAddress'+--+-- * 'riReplicationInstanceClass'+--+-- * 'riReplicationInstanceIdentifier'+--+-- * 'riPendingModifiedValues'+replicationInstance+    :: ReplicationInstance+replicationInstance =+    ReplicationInstance'+    { _riEngineVersion = Nothing+    , _riPubliclyAccessible = Nothing+    , _riAutoMinorVersionUpgrade = Nothing+    , _riReplicationSubnetGroup = Nothing+    , _riInstanceCreateTime = Nothing+    , _riReplicationInstanceStatus = Nothing+    , _riPreferredMaintenanceWindow = Nothing+    , _riReplicationInstancePrivateIPAddress = Nothing+    , _riKMSKeyId = Nothing+    , _riAvailabilityZone = Nothing+    , _riReplicationInstanceARN = Nothing+    , _riAllocatedStorage = Nothing+    , _riReplicationInstancePublicIPAddress = Nothing+    , _riReplicationInstanceClass = Nothing+    , _riReplicationInstanceIdentifier = Nothing+    , _riPendingModifiedValues = Nothing+    }++-- | The engine version number of the replication instance.+riEngineVersion :: Lens' ReplicationInstance (Maybe Text)+riEngineVersion = lens _riEngineVersion (\ s a -> s{_riEngineVersion = a});++-- | Specifies the accessibility options for the replication instance. A+-- value of 'true' represents an instance with a public IP address. A value+-- of 'false' represents an instance with a private IP address. The default+-- value is 'true'.+riPubliclyAccessible :: Lens' ReplicationInstance (Maybe Bool)+riPubliclyAccessible = lens _riPubliclyAccessible (\ s a -> s{_riPubliclyAccessible = a});++-- | Boolean value indicating if minor version upgrades will be automatically+-- applied to the instance.+riAutoMinorVersionUpgrade :: Lens' ReplicationInstance (Maybe Bool)+riAutoMinorVersionUpgrade = lens _riAutoMinorVersionUpgrade (\ s a -> s{_riAutoMinorVersionUpgrade = a});++-- | The subnet group for the replication instance.+riReplicationSubnetGroup :: Lens' ReplicationInstance (Maybe ReplicationSubnetGroup)+riReplicationSubnetGroup = lens _riReplicationSubnetGroup (\ s a -> s{_riReplicationSubnetGroup = a});++-- | The time the replication instance was created.+riInstanceCreateTime :: Lens' ReplicationInstance (Maybe UTCTime)+riInstanceCreateTime = lens _riInstanceCreateTime (\ s a -> s{_riInstanceCreateTime = a}) . mapping _Time;++-- | The status of the replication instance.+riReplicationInstanceStatus :: Lens' ReplicationInstance (Maybe Text)+riReplicationInstanceStatus = lens _riReplicationInstanceStatus (\ s a -> s{_riReplicationInstanceStatus = a});++-- | The maintenance window times for the replication instance.+riPreferredMaintenanceWindow :: Lens' ReplicationInstance (Maybe Text)+riPreferredMaintenanceWindow = lens _riPreferredMaintenanceWindow (\ s a -> s{_riPreferredMaintenanceWindow = a});++-- | The private IP address of the replication instance.+riReplicationInstancePrivateIPAddress :: Lens' ReplicationInstance (Maybe Text)+riReplicationInstancePrivateIPAddress = lens _riReplicationInstancePrivateIPAddress (\ s a -> s{_riReplicationInstancePrivateIPAddress = a});++-- | The KMS key identifier that is used to encrypt the content on the+-- replication instance. If you do not specify a value for the KmsKeyId+-- parameter, then AWS DMS will use your default encryption key. AWS KMS+-- creates the default encryption key for your AWS account. Your AWS+-- account has a different default encryption key for each AWS region.+riKMSKeyId :: Lens' ReplicationInstance (Maybe Text)+riKMSKeyId = lens _riKMSKeyId (\ s a -> s{_riKMSKeyId = a});++-- | The Availability Zone for the instance.+riAvailabilityZone :: Lens' ReplicationInstance (Maybe Text)+riAvailabilityZone = lens _riAvailabilityZone (\ s a -> s{_riAvailabilityZone = a});++-- | The Amazon Resource Name (ARN) of the replication instance.+riReplicationInstanceARN :: Lens' ReplicationInstance (Maybe Text)+riReplicationInstanceARN = lens _riReplicationInstanceARN (\ s a -> s{_riReplicationInstanceARN = a});++-- | The amount of storage (in gigabytes) that is allocated for the+-- replication instance.+riAllocatedStorage :: Lens' ReplicationInstance (Maybe Int)+riAllocatedStorage = lens _riAllocatedStorage (\ s a -> s{_riAllocatedStorage = a});++-- | The public IP address of the replication instance.+riReplicationInstancePublicIPAddress :: Lens' ReplicationInstance (Maybe Text)+riReplicationInstancePublicIPAddress = lens _riReplicationInstancePublicIPAddress (\ s a -> s{_riReplicationInstancePublicIPAddress = a});++-- | The compute and memory capacity of the replication instance.+--+-- Valid Values:+-- 'dms.t2.micro | dms.t2.small | dms.t2.medium | dms.t2.large | dms.c4.large | dms.c4.xlarge | dms.c4.2xlarge | dms.c4.4xlarge '+riReplicationInstanceClass :: Lens' ReplicationInstance (Maybe Text)+riReplicationInstanceClass = lens _riReplicationInstanceClass (\ s a -> s{_riReplicationInstanceClass = a});++-- | The replication instance identifier. This parameter is stored as a+-- lowercase string.+--+-- Constraints:+--+-- -   Must contain from 1 to 63 alphanumeric characters or hyphens.+-- -   First character must be a letter.+-- -   Cannot end with a hyphen or contain two consecutive hyphens.+--+-- Example: 'myrepinstance'+riReplicationInstanceIdentifier :: Lens' ReplicationInstance (Maybe Text)+riReplicationInstanceIdentifier = lens _riReplicationInstanceIdentifier (\ s a -> s{_riReplicationInstanceIdentifier = a});++-- | The pending modification values.+riPendingModifiedValues :: Lens' ReplicationInstance (Maybe ReplicationPendingModifiedValues)+riPendingModifiedValues = lens _riPendingModifiedValues (\ s a -> s{_riPendingModifiedValues = a});++instance FromJSON ReplicationInstance where+        parseJSON+          = withObject "ReplicationInstance"+              (\ x ->+                 ReplicationInstance' <$>+                   (x .:? "EngineVersion") <*>+                     (x .:? "PubliclyAccessible")+                     <*> (x .:? "AutoMinorVersionUpgrade")+                     <*> (x .:? "ReplicationSubnetGroup")+                     <*> (x .:? "InstanceCreateTime")+                     <*> (x .:? "ReplicationInstanceStatus")+                     <*> (x .:? "PreferredMaintenanceWindow")+                     <*> (x .:? "ReplicationInstancePrivateIpAddress")+                     <*> (x .:? "KmsKeyId")+                     <*> (x .:? "AvailabilityZone")+                     <*> (x .:? "ReplicationInstanceArn")+                     <*> (x .:? "AllocatedStorage")+                     <*> (x .:? "ReplicationInstancePublicIpAddress")+                     <*> (x .:? "ReplicationInstanceClass")+                     <*> (x .:? "ReplicationInstanceIdentifier")+                     <*> (x .:? "PendingModifiedValues"))++instance Hashable ReplicationInstance++-- | /See:/ 'replicationPendingModifiedValues' smart constructor.+data ReplicationPendingModifiedValues = ReplicationPendingModifiedValues'+    { _rpmvEngineVersion            :: !(Maybe Text)+    , _rpmvAllocatedStorage         :: !(Maybe Int)+    , _rpmvReplicationInstanceClass :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ReplicationPendingModifiedValues' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rpmvEngineVersion'+--+-- * 'rpmvAllocatedStorage'+--+-- * 'rpmvReplicationInstanceClass'+replicationPendingModifiedValues+    :: ReplicationPendingModifiedValues+replicationPendingModifiedValues =+    ReplicationPendingModifiedValues'+    { _rpmvEngineVersion = Nothing+    , _rpmvAllocatedStorage = Nothing+    , _rpmvReplicationInstanceClass = Nothing+    }++-- | The engine version number of the replication instance.+rpmvEngineVersion :: Lens' ReplicationPendingModifiedValues (Maybe Text)+rpmvEngineVersion = lens _rpmvEngineVersion (\ s a -> s{_rpmvEngineVersion = a});++-- | The amount of storage (in gigabytes) that is allocated for the+-- replication instance.+rpmvAllocatedStorage :: Lens' ReplicationPendingModifiedValues (Maybe Int)+rpmvAllocatedStorage = lens _rpmvAllocatedStorage (\ s a -> s{_rpmvAllocatedStorage = a});++-- | The compute and memory capacity of the replication instance.+--+-- Valid Values:+-- 'dms.t2.micro | dms.t2.small | dms.t2.medium | dms.t2.large | dms.c4.large | dms.c4.xlarge | dms.c4.2xlarge | dms.c4.4xlarge '+rpmvReplicationInstanceClass :: Lens' ReplicationPendingModifiedValues (Maybe Text)+rpmvReplicationInstanceClass = lens _rpmvReplicationInstanceClass (\ s a -> s{_rpmvReplicationInstanceClass = a});++instance FromJSON ReplicationPendingModifiedValues+         where+        parseJSON+          = withObject "ReplicationPendingModifiedValues"+              (\ x ->+                 ReplicationPendingModifiedValues' <$>+                   (x .:? "EngineVersion") <*>+                     (x .:? "AllocatedStorage")+                     <*> (x .:? "ReplicationInstanceClass"))++instance Hashable ReplicationPendingModifiedValues++-- | /See:/ 'replicationSubnetGroup' smart constructor.+data ReplicationSubnetGroup = ReplicationSubnetGroup'+    { _rsgVPCId                             :: !(Maybe Text)+    , _rsgSubnets                           :: !(Maybe [Subnet])+    , _rsgReplicationSubnetGroupIdentifier  :: !(Maybe Text)+    , _rsgSubnetGroupStatus                 :: !(Maybe Text)+    , _rsgReplicationSubnetGroupDescription :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ReplicationSubnetGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rsgVPCId'+--+-- * 'rsgSubnets'+--+-- * 'rsgReplicationSubnetGroupIdentifier'+--+-- * 'rsgSubnetGroupStatus'+--+-- * 'rsgReplicationSubnetGroupDescription'+replicationSubnetGroup+    :: ReplicationSubnetGroup+replicationSubnetGroup =+    ReplicationSubnetGroup'+    { _rsgVPCId = Nothing+    , _rsgSubnets = Nothing+    , _rsgReplicationSubnetGroupIdentifier = Nothing+    , _rsgSubnetGroupStatus = Nothing+    , _rsgReplicationSubnetGroupDescription = Nothing+    }++-- | The ID of the VPC.+rsgVPCId :: Lens' ReplicationSubnetGroup (Maybe Text)+rsgVPCId = lens _rsgVPCId (\ s a -> s{_rsgVPCId = a});++-- | The subnets that are in the subnet group.+rsgSubnets :: Lens' ReplicationSubnetGroup [Subnet]+rsgSubnets = lens _rsgSubnets (\ s a -> s{_rsgSubnets = a}) . _Default . _Coerce;++-- | The identifier of the replication instance subnet group.+rsgReplicationSubnetGroupIdentifier :: Lens' ReplicationSubnetGroup (Maybe Text)+rsgReplicationSubnetGroupIdentifier = lens _rsgReplicationSubnetGroupIdentifier (\ s a -> s{_rsgReplicationSubnetGroupIdentifier = a});++-- | The status of the subnet group.+rsgSubnetGroupStatus :: Lens' ReplicationSubnetGroup (Maybe Text)+rsgSubnetGroupStatus = lens _rsgSubnetGroupStatus (\ s a -> s{_rsgSubnetGroupStatus = a});++-- | The description of the replication subnet group.+rsgReplicationSubnetGroupDescription :: Lens' ReplicationSubnetGroup (Maybe Text)+rsgReplicationSubnetGroupDescription = lens _rsgReplicationSubnetGroupDescription (\ s a -> s{_rsgReplicationSubnetGroupDescription = a});++instance FromJSON ReplicationSubnetGroup where+        parseJSON+          = withObject "ReplicationSubnetGroup"+              (\ x ->+                 ReplicationSubnetGroup' <$>+                   (x .:? "VpcId") <*> (x .:? "Subnets" .!= mempty) <*>+                     (x .:? "ReplicationSubnetGroupIdentifier")+                     <*> (x .:? "SubnetGroupStatus")+                     <*> (x .:? "ReplicationSubnetGroupDescription"))++instance Hashable ReplicationSubnetGroup++-- | /See:/ 'replicationTask' smart constructor.+data ReplicationTask = ReplicationTask'+    { _rtReplicationTaskSettings     :: !(Maybe Text)+    , _rtStatus                      :: !(Maybe Text)+    , _rtTargetEndpointARN           :: !(Maybe Text)+    , _rtReplicationTaskIdentifier   :: !(Maybe Text)+    , _rtReplicationTaskStartDate    :: !(Maybe POSIX)+    , _rtSourceEndpointARN           :: !(Maybe Text)+    , _rtTableMappings               :: !(Maybe Text)+    , _rtReplicationTaskCreationDate :: !(Maybe POSIX)+    , _rtMigrationType               :: !(Maybe MigrationTypeValue)+    , _rtReplicationTaskARN          :: !(Maybe Text)+    , _rtReplicationTaskStats        :: !(Maybe ReplicationTaskStats)+    , _rtReplicationInstanceARN      :: !(Maybe Text)+    , _rtLastFailureMessage          :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ReplicationTask' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtReplicationTaskSettings'+--+-- * 'rtStatus'+--+-- * 'rtTargetEndpointARN'+--+-- * 'rtReplicationTaskIdentifier'+--+-- * 'rtReplicationTaskStartDate'+--+-- * 'rtSourceEndpointARN'+--+-- * 'rtTableMappings'+--+-- * 'rtReplicationTaskCreationDate'+--+-- * 'rtMigrationType'+--+-- * 'rtReplicationTaskARN'+--+-- * 'rtReplicationTaskStats'+--+-- * 'rtReplicationInstanceARN'+--+-- * 'rtLastFailureMessage'+replicationTask+    :: ReplicationTask+replicationTask =+    ReplicationTask'+    { _rtReplicationTaskSettings = Nothing+    , _rtStatus = Nothing+    , _rtTargetEndpointARN = Nothing+    , _rtReplicationTaskIdentifier = Nothing+    , _rtReplicationTaskStartDate = Nothing+    , _rtSourceEndpointARN = Nothing+    , _rtTableMappings = Nothing+    , _rtReplicationTaskCreationDate = Nothing+    , _rtMigrationType = Nothing+    , _rtReplicationTaskARN = Nothing+    , _rtReplicationTaskStats = Nothing+    , _rtReplicationInstanceARN = Nothing+    , _rtLastFailureMessage = Nothing+    }++-- | The settings for the replication task.+rtReplicationTaskSettings :: Lens' ReplicationTask (Maybe Text)+rtReplicationTaskSettings = lens _rtReplicationTaskSettings (\ s a -> s{_rtReplicationTaskSettings = a});++-- | The status of the replication task.+rtStatus :: Lens' ReplicationTask (Maybe Text)+rtStatus = lens _rtStatus (\ s a -> s{_rtStatus = a});++-- | The Amazon Resource Name (ARN) string that uniquely identifies the+-- endpoint.+rtTargetEndpointARN :: Lens' ReplicationTask (Maybe Text)+rtTargetEndpointARN = lens _rtTargetEndpointARN (\ s a -> s{_rtTargetEndpointARN = a});++-- | The replication task identifier.+--+-- 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.+rtReplicationTaskIdentifier :: Lens' ReplicationTask (Maybe Text)+rtReplicationTaskIdentifier = lens _rtReplicationTaskIdentifier (\ s a -> s{_rtReplicationTaskIdentifier = a});++-- | The date the replication task is scheduled to start.+rtReplicationTaskStartDate :: Lens' ReplicationTask (Maybe UTCTime)+rtReplicationTaskStartDate = lens _rtReplicationTaskStartDate (\ s a -> s{_rtReplicationTaskStartDate = a}) . mapping _Time;++-- | The Amazon Resource Name (ARN) string that uniquely identifies the+-- endpoint.+rtSourceEndpointARN :: Lens' ReplicationTask (Maybe Text)+rtSourceEndpointARN = lens _rtSourceEndpointARN (\ s a -> s{_rtSourceEndpointARN = a});++-- | Table mappings specified in the task.+rtTableMappings :: Lens' ReplicationTask (Maybe Text)+rtTableMappings = lens _rtTableMappings (\ s a -> s{_rtTableMappings = a});++-- | The date the replication task was created.+rtReplicationTaskCreationDate :: Lens' ReplicationTask (Maybe UTCTime)+rtReplicationTaskCreationDate = lens _rtReplicationTaskCreationDate (\ s a -> s{_rtReplicationTaskCreationDate = a}) . mapping _Time;++-- | The type of migration.+rtMigrationType :: Lens' ReplicationTask (Maybe MigrationTypeValue)+rtMigrationType = lens _rtMigrationType (\ s a -> s{_rtMigrationType = a});++-- | The Amazon Resource Name (ARN) of the replication task.+rtReplicationTaskARN :: Lens' ReplicationTask (Maybe Text)+rtReplicationTaskARN = lens _rtReplicationTaskARN (\ s a -> s{_rtReplicationTaskARN = a});++-- | The statistics for the task, including elapsed time, tables loaded, and+-- table errors.+rtReplicationTaskStats :: Lens' ReplicationTask (Maybe ReplicationTaskStats)+rtReplicationTaskStats = lens _rtReplicationTaskStats (\ s a -> s{_rtReplicationTaskStats = a});++-- | The Amazon Resource Name (ARN) of the replication instance.+rtReplicationInstanceARN :: Lens' ReplicationTask (Maybe Text)+rtReplicationInstanceARN = lens _rtReplicationInstanceARN (\ s a -> s{_rtReplicationInstanceARN = a});++-- | The last error (failure) message generated for the replication instance.+rtLastFailureMessage :: Lens' ReplicationTask (Maybe Text)+rtLastFailureMessage = lens _rtLastFailureMessage (\ s a -> s{_rtLastFailureMessage = a});++instance FromJSON ReplicationTask where+        parseJSON+          = withObject "ReplicationTask"+              (\ x ->+                 ReplicationTask' <$>+                   (x .:? "ReplicationTaskSettings") <*>+                     (x .:? "Status")+                     <*> (x .:? "TargetEndpointArn")+                     <*> (x .:? "ReplicationTaskIdentifier")+                     <*> (x .:? "ReplicationTaskStartDate")+                     <*> (x .:? "SourceEndpointArn")+                     <*> (x .:? "TableMappings")+                     <*> (x .:? "ReplicationTaskCreationDate")+                     <*> (x .:? "MigrationType")+                     <*> (x .:? "ReplicationTaskArn")+                     <*> (x .:? "ReplicationTaskStats")+                     <*> (x .:? "ReplicationInstanceArn")+                     <*> (x .:? "LastFailureMessage"))++instance Hashable ReplicationTask++-- | /See:/ 'replicationTaskStats' smart constructor.+data ReplicationTaskStats = ReplicationTaskStats'+    { _rtsFullLoadProgressPercent :: !(Maybe Int)+    , _rtsElapsedTimeMillis       :: !(Maybe Integer)+    , _rtsTablesErrored           :: !(Maybe Int)+    , _rtsTablesLoaded            :: !(Maybe Int)+    , _rtsTablesQueued            :: !(Maybe Int)+    , _rtsTablesLoading           :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ReplicationTaskStats' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtsFullLoadProgressPercent'+--+-- * 'rtsElapsedTimeMillis'+--+-- * 'rtsTablesErrored'+--+-- * 'rtsTablesLoaded'+--+-- * 'rtsTablesQueued'+--+-- * 'rtsTablesLoading'+replicationTaskStats+    :: ReplicationTaskStats+replicationTaskStats =+    ReplicationTaskStats'+    { _rtsFullLoadProgressPercent = Nothing+    , _rtsElapsedTimeMillis = Nothing+    , _rtsTablesErrored = Nothing+    , _rtsTablesLoaded = Nothing+    , _rtsTablesQueued = Nothing+    , _rtsTablesLoading = Nothing+    }++-- | The percent complete for the full load migration task.+rtsFullLoadProgressPercent :: Lens' ReplicationTaskStats (Maybe Int)+rtsFullLoadProgressPercent = lens _rtsFullLoadProgressPercent (\ s a -> s{_rtsFullLoadProgressPercent = a});++-- | The elapsed time of the task, in milliseconds.+rtsElapsedTimeMillis :: Lens' ReplicationTaskStats (Maybe Integer)+rtsElapsedTimeMillis = lens _rtsElapsedTimeMillis (\ s a -> s{_rtsElapsedTimeMillis = a});++-- | The number of errors that have occurred during this task.+rtsTablesErrored :: Lens' ReplicationTaskStats (Maybe Int)+rtsTablesErrored = lens _rtsTablesErrored (\ s a -> s{_rtsTablesErrored = a});++-- | The number of tables loaded for this task.+rtsTablesLoaded :: Lens' ReplicationTaskStats (Maybe Int)+rtsTablesLoaded = lens _rtsTablesLoaded (\ s a -> s{_rtsTablesLoaded = a});++-- | The number of tables queued for this task.+rtsTablesQueued :: Lens' ReplicationTaskStats (Maybe Int)+rtsTablesQueued = lens _rtsTablesQueued (\ s a -> s{_rtsTablesQueued = a});++-- | The number of tables currently loading for this task.+rtsTablesLoading :: Lens' ReplicationTaskStats (Maybe Int)+rtsTablesLoading = lens _rtsTablesLoading (\ s a -> s{_rtsTablesLoading = a});++instance FromJSON ReplicationTaskStats where+        parseJSON+          = withObject "ReplicationTaskStats"+              (\ x ->+                 ReplicationTaskStats' <$>+                   (x .:? "FullLoadProgressPercent") <*>+                     (x .:? "ElapsedTimeMillis")+                     <*> (x .:? "TablesErrored")+                     <*> (x .:? "TablesLoaded")+                     <*> (x .:? "TablesQueued")+                     <*> (x .:? "TablesLoading"))++instance Hashable ReplicationTaskStats++-- | /See:/ 'subnet' smart constructor.+data Subnet = Subnet'+    { _sSubnetStatus           :: !(Maybe Text)+    , _sSubnetIdentifier       :: !(Maybe Text)+    , _sSubnetAvailabilityZone :: !(Maybe AvailabilityZone)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Subnet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sSubnetStatus'+--+-- * 'sSubnetIdentifier'+--+-- * 'sSubnetAvailabilityZone'+subnet+    :: Subnet+subnet =+    Subnet'+    { _sSubnetStatus = Nothing+    , _sSubnetIdentifier = Nothing+    , _sSubnetAvailabilityZone = Nothing+    }++-- | The status of the subnet.+sSubnetStatus :: Lens' Subnet (Maybe Text)+sSubnetStatus = lens _sSubnetStatus (\ s a -> s{_sSubnetStatus = a});++-- | The subnet identifier.+sSubnetIdentifier :: Lens' Subnet (Maybe Text)+sSubnetIdentifier = lens _sSubnetIdentifier (\ s a -> s{_sSubnetIdentifier = a});++-- | The Availability Zone of the subnet.+sSubnetAvailabilityZone :: Lens' Subnet (Maybe AvailabilityZone)+sSubnetAvailabilityZone = lens _sSubnetAvailabilityZone (\ s a -> s{_sSubnetAvailabilityZone = a});++instance FromJSON Subnet where+        parseJSON+          = withObject "Subnet"+              (\ x ->+                 Subnet' <$>+                   (x .:? "SubnetStatus") <*> (x .:? "SubnetIdentifier")+                     <*> (x .:? "SubnetAvailabilityZone"))++instance Hashable Subnet++-- | /See:/ 'supportedEndpointType' smart constructor.+data SupportedEndpointType = SupportedEndpointType'+    { _setEndpointType :: !(Maybe ReplicationEndpointTypeValue)+    , _setEngineName   :: !(Maybe Text)+    , _setSupportsCDC  :: !(Maybe Bool)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'SupportedEndpointType' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'setEndpointType'+--+-- * 'setEngineName'+--+-- * 'setSupportsCDC'+supportedEndpointType+    :: SupportedEndpointType+supportedEndpointType =+    SupportedEndpointType'+    { _setEndpointType = Nothing+    , _setEngineName = Nothing+    , _setSupportsCDC = Nothing+    }++-- | The type of endpoint.+setEndpointType :: Lens' SupportedEndpointType (Maybe ReplicationEndpointTypeValue)+setEndpointType = lens _setEndpointType (\ s a -> s{_setEndpointType = a});++-- | The database engine name.+setEngineName :: Lens' SupportedEndpointType (Maybe Text)+setEngineName = lens _setEngineName (\ s a -> s{_setEngineName = a});++-- | Indicates if Change Data Capture (CDC) is supported.+setSupportsCDC :: Lens' SupportedEndpointType (Maybe Bool)+setSupportsCDC = lens _setSupportsCDC (\ s a -> s{_setSupportsCDC = a});++instance FromJSON SupportedEndpointType where+        parseJSON+          = withObject "SupportedEndpointType"+              (\ x ->+                 SupportedEndpointType' <$>+                   (x .:? "EndpointType") <*> (x .:? "EngineName") <*>+                     (x .:? "SupportsCDC"))++instance Hashable SupportedEndpointType++-- | /See:/ 'tableStatistics' smart constructor.+data TableStatistics = TableStatistics'+    { _tsFullLoadRows   :: !(Maybe Integer)+    , _tsInserts        :: !(Maybe Integer)+    , _tsSchemaName     :: !(Maybe Text)+    , _tsTableState     :: !(Maybe Text)+    , _tsDdls           :: !(Maybe Integer)+    , _tsDeletes        :: !(Maybe Integer)+    , _tsUpdates        :: !(Maybe Integer)+    , _tsLastUpdateTime :: !(Maybe POSIX)+    , _tsTableName      :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'TableStatistics' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tsFullLoadRows'+--+-- * 'tsInserts'+--+-- * 'tsSchemaName'+--+-- * 'tsTableState'+--+-- * 'tsDdls'+--+-- * 'tsDeletes'+--+-- * 'tsUpdates'+--+-- * 'tsLastUpdateTime'+--+-- * 'tsTableName'+tableStatistics+    :: TableStatistics+tableStatistics =+    TableStatistics'+    { _tsFullLoadRows = Nothing+    , _tsInserts = Nothing+    , _tsSchemaName = Nothing+    , _tsTableState = Nothing+    , _tsDdls = Nothing+    , _tsDeletes = Nothing+    , _tsUpdates = Nothing+    , _tsLastUpdateTime = Nothing+    , _tsTableName = Nothing+    }++-- | The number of rows added during the Full Load operation.+tsFullLoadRows :: Lens' TableStatistics (Maybe Integer)+tsFullLoadRows = lens _tsFullLoadRows (\ s a -> s{_tsFullLoadRows = a});++-- | The number of insert actions performed on a table.+tsInserts :: Lens' TableStatistics (Maybe Integer)+tsInserts = lens _tsInserts (\ s a -> s{_tsInserts = a});++-- | The schema name.+tsSchemaName :: Lens' TableStatistics (Maybe Text)+tsSchemaName = lens _tsSchemaName (\ s a -> s{_tsSchemaName = a});++-- | The state of the table.+tsTableState :: Lens' TableStatistics (Maybe Text)+tsTableState = lens _tsTableState (\ s a -> s{_tsTableState = a});++-- | The Data Definition Language (DDL) used to build and modify the+-- structure of your tables.+tsDdls :: Lens' TableStatistics (Maybe Integer)+tsDdls = lens _tsDdls (\ s a -> s{_tsDdls = a});++-- | The number of delete actions performed on a table.+tsDeletes :: Lens' TableStatistics (Maybe Integer)+tsDeletes = lens _tsDeletes (\ s a -> s{_tsDeletes = a});++-- | The number of update actions performed on a table.+tsUpdates :: Lens' TableStatistics (Maybe Integer)+tsUpdates = lens _tsUpdates (\ s a -> s{_tsUpdates = a});++-- | The last time the table was updated.+tsLastUpdateTime :: Lens' TableStatistics (Maybe UTCTime)+tsLastUpdateTime = lens _tsLastUpdateTime (\ s a -> s{_tsLastUpdateTime = a}) . mapping _Time;++-- | The name of the table.+tsTableName :: Lens' TableStatistics (Maybe Text)+tsTableName = lens _tsTableName (\ s a -> s{_tsTableName = a});++instance FromJSON TableStatistics where+        parseJSON+          = withObject "TableStatistics"+              (\ x ->+                 TableStatistics' <$>+                   (x .:? "FullLoadRows") <*> (x .:? "Inserts") <*>+                     (x .:? "SchemaName")+                     <*> (x .:? "TableState")+                     <*> (x .:? "Ddls")+                     <*> (x .:? "Deletes")+                     <*> (x .:? "Updates")+                     <*> (x .:? "LastUpdateTime")+                     <*> (x .:? "TableName"))++instance Hashable TableStatistics++-- | /See:/ 'tag' smart constructor.+data Tag = Tag'+    { _tagValue :: !(Maybe Text)+    , _tagKey   :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Tag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tagValue'+--+-- * 'tagKey'+tag+    :: Tag+tag =+    Tag'+    { _tagValue = Nothing+    , _tagKey = Nothing+    }++-- | A value is the optional value of the tag. The string value can be from 1+-- to 256 Unicode characters in length and cannot be prefixed with \"aws:\"+-- or \"dms:\". The string can only contain only the set of Unicode+-- letters, digits, white-space, \'_\', \'.\', \'\/\', \'=\', \'+\', \'-\'+-- (Java regex: \"^([\\\\p{L}\\\\p{Z}\\\\p{N}_.:\/=+\\\\-]*)$\").+tagValue :: Lens' Tag (Maybe Text)+tagValue = lens _tagValue (\ s a -> s{_tagValue = a});++-- | A key is the required name of the tag. The string value can be from 1 to+-- 128 Unicode characters in length and cannot be prefixed with \"aws:\" or+-- \"dms:\". The string can only contain only the set of Unicode letters,+-- digits, white-space, \'_\', \'.\', \'\/\', \'=\', \'+\', \'-\' (Java+-- regex: \"^([\\\\p{L}\\\\p{Z}\\\\p{N}_.:\/=+\\\\-]*)$\").+tagKey :: Lens' Tag (Maybe Text)+tagKey = lens _tagKey (\ s a -> s{_tagKey = a});++instance FromJSON Tag where+        parseJSON+          = withObject "Tag"+              (\ x -> Tag' <$> (x .:? "Value") <*> (x .:? "Key"))++instance Hashable Tag++instance ToJSON Tag where+        toJSON Tag'{..}+          = object+              (catMaybes+                 [("Value" .=) <$> _tagValue, ("Key" .=) <$> _tagKey])
+ gen/Network/AWS/DMS/Types/Sum.hs view
@@ -0,0 +1,135 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE LambdaCase         #-}+{-# LANGUAGE OverloadedStrings  #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DMS.Types.Sum+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.DMS.Types.Sum where++import           Network.AWS.Prelude++data MigrationTypeValue+    = Cdc+    | FullLoad+    | FullLoadAndCdc+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText MigrationTypeValue where+    parser = takeLowerText >>= \case+        "cdc" -> pure Cdc+        "full-load" -> pure FullLoad+        "full-load-and-cdc" -> pure FullLoadAndCdc+        e -> fromTextError $ "Failure parsing MigrationTypeValue from value: '" <> e+           <> "'. Accepted values: cdc, full-load, full-load-and-cdc"++instance ToText MigrationTypeValue where+    toText = \case+        Cdc -> "cdc"+        FullLoad -> "full-load"+        FullLoadAndCdc -> "full-load-and-cdc"++instance Hashable     MigrationTypeValue+instance ToByteString MigrationTypeValue+instance ToQuery      MigrationTypeValue+instance ToHeader     MigrationTypeValue++instance ToJSON MigrationTypeValue where+    toJSON = toJSONText++instance FromJSON MigrationTypeValue where+    parseJSON = parseJSONText "MigrationTypeValue"++data RefreshSchemasStatusTypeValue+    = Failed+    | Refreshing+    | Successful+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText RefreshSchemasStatusTypeValue where+    parser = takeLowerText >>= \case+        "failed" -> pure Failed+        "refreshing" -> pure Refreshing+        "successful" -> pure Successful+        e -> fromTextError $ "Failure parsing RefreshSchemasStatusTypeValue from value: '" <> e+           <> "'. Accepted values: failed, refreshing, successful"++instance ToText RefreshSchemasStatusTypeValue where+    toText = \case+        Failed -> "failed"+        Refreshing -> "refreshing"+        Successful -> "successful"++instance Hashable     RefreshSchemasStatusTypeValue+instance ToByteString RefreshSchemasStatusTypeValue+instance ToQuery      RefreshSchemasStatusTypeValue+instance ToHeader     RefreshSchemasStatusTypeValue++instance FromJSON RefreshSchemasStatusTypeValue where+    parseJSON = parseJSONText "RefreshSchemasStatusTypeValue"++data ReplicationEndpointTypeValue+    = Source+    | Target+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText ReplicationEndpointTypeValue where+    parser = takeLowerText >>= \case+        "source" -> pure Source+        "target" -> pure Target+        e -> fromTextError $ "Failure parsing ReplicationEndpointTypeValue from value: '" <> e+           <> "'. Accepted values: source, target"++instance ToText ReplicationEndpointTypeValue where+    toText = \case+        Source -> "source"+        Target -> "target"++instance Hashable     ReplicationEndpointTypeValue+instance ToByteString ReplicationEndpointTypeValue+instance ToQuery      ReplicationEndpointTypeValue+instance ToHeader     ReplicationEndpointTypeValue++instance ToJSON ReplicationEndpointTypeValue where+    toJSON = toJSONText++instance FromJSON ReplicationEndpointTypeValue where+    parseJSON = parseJSONText "ReplicationEndpointTypeValue"++data StartReplicationTaskTypeValue+    = ReloadTarget+    | ResumeProcessing+    | StartReplication+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText StartReplicationTaskTypeValue where+    parser = takeLowerText >>= \case+        "reload-target" -> pure ReloadTarget+        "resume-processing" -> pure ResumeProcessing+        "start-replication" -> pure StartReplication+        e -> fromTextError $ "Failure parsing StartReplicationTaskTypeValue from value: '" <> e+           <> "'. Accepted values: reload-target, resume-processing, start-replication"++instance ToText StartReplicationTaskTypeValue where+    toText = \case+        ReloadTarget -> "reload-target"+        ResumeProcessing -> "resume-processing"+        StartReplication -> "start-replication"++instance Hashable     StartReplicationTaskTypeValue+instance ToByteString StartReplicationTaskTypeValue+instance ToQuery      StartReplicationTaskTypeValue+instance ToHeader     StartReplicationTaskTypeValue++instance ToJSON StartReplicationTaskTypeValue where+    toJSON = toJSONText
+ gen/Network/AWS/DMS/Waiters.hs view
@@ -0,0 +1,21 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE TypeFamilies      #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DMS.Waiters+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.DMS.Waiters where++import           Network.AWS.DMS.Types+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Waiter
+ test/Main.hs view
@@ -0,0 +1,21 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Main+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Main (main) where++import Test.Tasty+import Test.AWS.DMS+import Test.AWS.DMS.Internal++main :: IO ()+main = defaultMain $ testGroup "DMS"+    [ testGroup "tests"    tests+    , testGroup "fixtures" fixtures+    ]
+ test/Test/AWS/DMS.hs view
@@ -0,0 +1,23 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE TemplateHaskell   #-}++-- |+-- Module      : Test.AWS.DMS+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+module Test.AWS.DMS+    ( tests+    , fixtures+    ) where++import           Test.AWS.Prelude++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []
+ test/Test/AWS/DMS/Internal.hs view
@@ -0,0 +1,15 @@+{-# LANGUAGE OverloadedStrings #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Test.AWS.DMS.Internal+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--++module Test.AWS.DMS.Internal where++import           Test.AWS.Prelude
+ test/Test/AWS/Gen/DMS.hs view
@@ -0,0 +1,561 @@+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-orphans        #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Test.AWS.Gen.DMS+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Test.AWS.Gen.DMS where++import Data.Proxy+import Test.AWS.Fixture+import Test.AWS.Prelude+import Test.Tasty+import Network.AWS.DMS+import Test.AWS.DMS.Internal++-- Auto-generated: the actual test selection needs to be manually placed into+-- the top-level so that real test data can be incrementally added.+--+-- This commented snippet is what the entire set should look like:++-- fixtures :: TestTree+-- fixtures =+--     [ testGroup "request"+--         [ testDeleteReplicationInstance $+--             deleteReplicationInstance+--+--         , testCreateEndpoint $+--             createEndpoint+--+--         , testDescribeSchemas $+--             describeSchemas+--+--         , testDeleteEndpoint $+--             deleteEndpoint+--+--         , testListTagsForResource $+--             listTagsForResource+--+--         , testDescribeEndpointTypes $+--             describeEndpointTypes+--+--         , testDeleteReplicationTask $+--             deleteReplicationTask+--+--         , testTestConnection $+--             testConnection+--+--         , testDescribeConnections $+--             describeConnections+--+--         , testRemoveTagsFromResource $+--             removeTagsFromResource+--+--         , testModifyEndpoint $+--             modifyEndpoint+--+--         , testDescribeTableStatistics $+--             describeTableStatistics+--+--         , testDescribeReplicationSubnetGroups $+--             describeReplicationSubnetGroups+--+--         , testStartReplicationTask $+--             startReplicationTask+--+--         , testAddTagsToResource $+--             addTagsToResource+--+--         , testCreateReplicationSubnetGroup $+--             createReplicationSubnetGroup+--+--         , testRefreshSchemas $+--             refreshSchemas+--+--         , testDescribeReplicationTasks $+--             describeReplicationTasks+--+--         , testDescribeOrderableReplicationInstances $+--             describeOrderableReplicationInstances+--+--         , testCreateReplicationTask $+--             createReplicationTask+--+--         , testDescribeEndpoints $+--             describeEndpoints+--+--         , testModifyReplicationInstance $+--             modifyReplicationInstance+--+--         , testModifyReplicationSubnetGroup $+--             modifyReplicationSubnetGroup+--+--         , testDescribeAccountAttributes $+--             describeAccountAttributes+--+--         , testDescribeReplicationInstances $+--             describeReplicationInstances+--+--         , testDescribeRefreshSchemasStatus $+--             describeRefreshSchemasStatus+--+--         , testStopReplicationTask $+--             stopReplicationTask+--+--         , testCreateReplicationInstance $+--             createReplicationInstance+--+--         , testDeleteReplicationSubnetGroup $+--             deleteReplicationSubnetGroup+--+--           ]++--     , testGroup "response"+--         [ testDeleteReplicationInstanceResponse $+--             deleteReplicationInstanceResponse+--+--         , testCreateEndpointResponse $+--             createEndpointResponse+--+--         , testDescribeSchemasResponse $+--             describeSchemasResponse+--+--         , testDeleteEndpointResponse $+--             deleteEndpointResponse+--+--         , testListTagsForResourceResponse $+--             listTagsForResourceResponse+--+--         , testDescribeEndpointTypesResponse $+--             describeEndpointTypesResponse+--+--         , testDeleteReplicationTaskResponse $+--             deleteReplicationTaskResponse+--+--         , testTestConnectionResponse $+--             testConnectionResponse+--+--         , testDescribeConnectionsResponse $+--             describeConnectionsResponse+--+--         , testRemoveTagsFromResourceResponse $+--             removeTagsFromResourceResponse+--+--         , testModifyEndpointResponse $+--             modifyEndpointResponse+--+--         , testDescribeTableStatisticsResponse $+--             describeTableStatisticsResponse+--+--         , testDescribeReplicationSubnetGroupsResponse $+--             describeReplicationSubnetGroupsResponse+--+--         , testStartReplicationTaskResponse $+--             startReplicationTaskResponse+--+--         , testAddTagsToResourceResponse $+--             addTagsToResourceResponse+--+--         , testCreateReplicationSubnetGroupResponse $+--             createReplicationSubnetGroupResponse+--+--         , testRefreshSchemasResponse $+--             refreshSchemasResponse+--+--         , testDescribeReplicationTasksResponse $+--             describeReplicationTasksResponse+--+--         , testDescribeOrderableReplicationInstancesResponse $+--             describeOrderableReplicationInstancesResponse+--+--         , testCreateReplicationTaskResponse $+--             createReplicationTaskResponse+--+--         , testDescribeEndpointsResponse $+--             describeEndpointsResponse+--+--         , testModifyReplicationInstanceResponse $+--             modifyReplicationInstanceResponse+--+--         , testModifyReplicationSubnetGroupResponse $+--             modifyReplicationSubnetGroupResponse+--+--         , testDescribeAccountAttributesResponse $+--             describeAccountAttributesResponse+--+--         , testDescribeReplicationInstancesResponse $+--             describeReplicationInstancesResponse+--+--         , testDescribeRefreshSchemasStatusResponse $+--             describeRefreshSchemasStatusResponse+--+--         , testStopReplicationTaskResponse $+--             stopReplicationTaskResponse+--+--         , testCreateReplicationInstanceResponse $+--             createReplicationInstanceResponse+--+--         , testDeleteReplicationSubnetGroupResponse $+--             deleteReplicationSubnetGroupResponse+--+--           ]+--     ]++-- Requests++testDeleteReplicationInstance :: DeleteReplicationInstance -> TestTree+testDeleteReplicationInstance = req+    "DeleteReplicationInstance"+    "fixture/DeleteReplicationInstance.yaml"++testCreateEndpoint :: CreateEndpoint -> TestTree+testCreateEndpoint = req+    "CreateEndpoint"+    "fixture/CreateEndpoint.yaml"++testDescribeSchemas :: DescribeSchemas -> TestTree+testDescribeSchemas = req+    "DescribeSchemas"+    "fixture/DescribeSchemas.yaml"++testDeleteEndpoint :: DeleteEndpoint -> TestTree+testDeleteEndpoint = req+    "DeleteEndpoint"+    "fixture/DeleteEndpoint.yaml"++testListTagsForResource :: ListTagsForResource -> TestTree+testListTagsForResource = req+    "ListTagsForResource"+    "fixture/ListTagsForResource.yaml"++testDescribeEndpointTypes :: DescribeEndpointTypes -> TestTree+testDescribeEndpointTypes = req+    "DescribeEndpointTypes"+    "fixture/DescribeEndpointTypes.yaml"++testDeleteReplicationTask :: DeleteReplicationTask -> TestTree+testDeleteReplicationTask = req+    "DeleteReplicationTask"+    "fixture/DeleteReplicationTask.yaml"++testTestConnection :: TestConnection -> TestTree+testTestConnection = req+    "TestConnection"+    "fixture/TestConnection.yaml"++testDescribeConnections :: DescribeConnections -> TestTree+testDescribeConnections = req+    "DescribeConnections"+    "fixture/DescribeConnections.yaml"++testRemoveTagsFromResource :: RemoveTagsFromResource -> TestTree+testRemoveTagsFromResource = req+    "RemoveTagsFromResource"+    "fixture/RemoveTagsFromResource.yaml"++testModifyEndpoint :: ModifyEndpoint -> TestTree+testModifyEndpoint = req+    "ModifyEndpoint"+    "fixture/ModifyEndpoint.yaml"++testDescribeTableStatistics :: DescribeTableStatistics -> TestTree+testDescribeTableStatistics = req+    "DescribeTableStatistics"+    "fixture/DescribeTableStatistics.yaml"++testDescribeReplicationSubnetGroups :: DescribeReplicationSubnetGroups -> TestTree+testDescribeReplicationSubnetGroups = req+    "DescribeReplicationSubnetGroups"+    "fixture/DescribeReplicationSubnetGroups.yaml"++testStartReplicationTask :: StartReplicationTask -> TestTree+testStartReplicationTask = req+    "StartReplicationTask"+    "fixture/StartReplicationTask.yaml"++testAddTagsToResource :: AddTagsToResource -> TestTree+testAddTagsToResource = req+    "AddTagsToResource"+    "fixture/AddTagsToResource.yaml"++testCreateReplicationSubnetGroup :: CreateReplicationSubnetGroup -> TestTree+testCreateReplicationSubnetGroup = req+    "CreateReplicationSubnetGroup"+    "fixture/CreateReplicationSubnetGroup.yaml"++testRefreshSchemas :: RefreshSchemas -> TestTree+testRefreshSchemas = req+    "RefreshSchemas"+    "fixture/RefreshSchemas.yaml"++testDescribeReplicationTasks :: DescribeReplicationTasks -> TestTree+testDescribeReplicationTasks = req+    "DescribeReplicationTasks"+    "fixture/DescribeReplicationTasks.yaml"++testDescribeOrderableReplicationInstances :: DescribeOrderableReplicationInstances -> TestTree+testDescribeOrderableReplicationInstances = req+    "DescribeOrderableReplicationInstances"+    "fixture/DescribeOrderableReplicationInstances.yaml"++testCreateReplicationTask :: CreateReplicationTask -> TestTree+testCreateReplicationTask = req+    "CreateReplicationTask"+    "fixture/CreateReplicationTask.yaml"++testDescribeEndpoints :: DescribeEndpoints -> TestTree+testDescribeEndpoints = req+    "DescribeEndpoints"+    "fixture/DescribeEndpoints.yaml"++testModifyReplicationInstance :: ModifyReplicationInstance -> TestTree+testModifyReplicationInstance = req+    "ModifyReplicationInstance"+    "fixture/ModifyReplicationInstance.yaml"++testModifyReplicationSubnetGroup :: ModifyReplicationSubnetGroup -> TestTree+testModifyReplicationSubnetGroup = req+    "ModifyReplicationSubnetGroup"+    "fixture/ModifyReplicationSubnetGroup.yaml"++testDescribeAccountAttributes :: DescribeAccountAttributes -> TestTree+testDescribeAccountAttributes = req+    "DescribeAccountAttributes"+    "fixture/DescribeAccountAttributes.yaml"++testDescribeReplicationInstances :: DescribeReplicationInstances -> TestTree+testDescribeReplicationInstances = req+    "DescribeReplicationInstances"+    "fixture/DescribeReplicationInstances.yaml"++testDescribeRefreshSchemasStatus :: DescribeRefreshSchemasStatus -> TestTree+testDescribeRefreshSchemasStatus = req+    "DescribeRefreshSchemasStatus"+    "fixture/DescribeRefreshSchemasStatus.yaml"++testStopReplicationTask :: StopReplicationTask -> TestTree+testStopReplicationTask = req+    "StopReplicationTask"+    "fixture/StopReplicationTask.yaml"++testCreateReplicationInstance :: CreateReplicationInstance -> TestTree+testCreateReplicationInstance = req+    "CreateReplicationInstance"+    "fixture/CreateReplicationInstance.yaml"++testDeleteReplicationSubnetGroup :: DeleteReplicationSubnetGroup -> TestTree+testDeleteReplicationSubnetGroup = req+    "DeleteReplicationSubnetGroup"+    "fixture/DeleteReplicationSubnetGroup.yaml"++-- Responses++testDeleteReplicationInstanceResponse :: DeleteReplicationInstanceResponse -> TestTree+testDeleteReplicationInstanceResponse = res+    "DeleteReplicationInstanceResponse"+    "fixture/DeleteReplicationInstanceResponse.proto"+    dms+    (Proxy :: Proxy DeleteReplicationInstance)++testCreateEndpointResponse :: CreateEndpointResponse -> TestTree+testCreateEndpointResponse = res+    "CreateEndpointResponse"+    "fixture/CreateEndpointResponse.proto"+    dms+    (Proxy :: Proxy CreateEndpoint)++testDescribeSchemasResponse :: DescribeSchemasResponse -> TestTree+testDescribeSchemasResponse = res+    "DescribeSchemasResponse"+    "fixture/DescribeSchemasResponse.proto"+    dms+    (Proxy :: Proxy DescribeSchemas)++testDeleteEndpointResponse :: DeleteEndpointResponse -> TestTree+testDeleteEndpointResponse = res+    "DeleteEndpointResponse"+    "fixture/DeleteEndpointResponse.proto"+    dms+    (Proxy :: Proxy DeleteEndpoint)++testListTagsForResourceResponse :: ListTagsForResourceResponse -> TestTree+testListTagsForResourceResponse = res+    "ListTagsForResourceResponse"+    "fixture/ListTagsForResourceResponse.proto"+    dms+    (Proxy :: Proxy ListTagsForResource)++testDescribeEndpointTypesResponse :: DescribeEndpointTypesResponse -> TestTree+testDescribeEndpointTypesResponse = res+    "DescribeEndpointTypesResponse"+    "fixture/DescribeEndpointTypesResponse.proto"+    dms+    (Proxy :: Proxy DescribeEndpointTypes)++testDeleteReplicationTaskResponse :: DeleteReplicationTaskResponse -> TestTree+testDeleteReplicationTaskResponse = res+    "DeleteReplicationTaskResponse"+    "fixture/DeleteReplicationTaskResponse.proto"+    dms+    (Proxy :: Proxy DeleteReplicationTask)++testTestConnectionResponse :: TestConnectionResponse -> TestTree+testTestConnectionResponse = res+    "TestConnectionResponse"+    "fixture/TestConnectionResponse.proto"+    dms+    (Proxy :: Proxy TestConnection)++testDescribeConnectionsResponse :: DescribeConnectionsResponse -> TestTree+testDescribeConnectionsResponse = res+    "DescribeConnectionsResponse"+    "fixture/DescribeConnectionsResponse.proto"+    dms+    (Proxy :: Proxy DescribeConnections)++testRemoveTagsFromResourceResponse :: RemoveTagsFromResourceResponse -> TestTree+testRemoveTagsFromResourceResponse = res+    "RemoveTagsFromResourceResponse"+    "fixture/RemoveTagsFromResourceResponse.proto"+    dms+    (Proxy :: Proxy RemoveTagsFromResource)++testModifyEndpointResponse :: ModifyEndpointResponse -> TestTree+testModifyEndpointResponse = res+    "ModifyEndpointResponse"+    "fixture/ModifyEndpointResponse.proto"+    dms+    (Proxy :: Proxy ModifyEndpoint)++testDescribeTableStatisticsResponse :: DescribeTableStatisticsResponse -> TestTree+testDescribeTableStatisticsResponse = res+    "DescribeTableStatisticsResponse"+    "fixture/DescribeTableStatisticsResponse.proto"+    dms+    (Proxy :: Proxy DescribeTableStatistics)++testDescribeReplicationSubnetGroupsResponse :: DescribeReplicationSubnetGroupsResponse -> TestTree+testDescribeReplicationSubnetGroupsResponse = res+    "DescribeReplicationSubnetGroupsResponse"+    "fixture/DescribeReplicationSubnetGroupsResponse.proto"+    dms+    (Proxy :: Proxy DescribeReplicationSubnetGroups)++testStartReplicationTaskResponse :: StartReplicationTaskResponse -> TestTree+testStartReplicationTaskResponse = res+    "StartReplicationTaskResponse"+    "fixture/StartReplicationTaskResponse.proto"+    dms+    (Proxy :: Proxy StartReplicationTask)++testAddTagsToResourceResponse :: AddTagsToResourceResponse -> TestTree+testAddTagsToResourceResponse = res+    "AddTagsToResourceResponse"+    "fixture/AddTagsToResourceResponse.proto"+    dms+    (Proxy :: Proxy AddTagsToResource)++testCreateReplicationSubnetGroupResponse :: CreateReplicationSubnetGroupResponse -> TestTree+testCreateReplicationSubnetGroupResponse = res+    "CreateReplicationSubnetGroupResponse"+    "fixture/CreateReplicationSubnetGroupResponse.proto"+    dms+    (Proxy :: Proxy CreateReplicationSubnetGroup)++testRefreshSchemasResponse :: RefreshSchemasResponse -> TestTree+testRefreshSchemasResponse = res+    "RefreshSchemasResponse"+    "fixture/RefreshSchemasResponse.proto"+    dms+    (Proxy :: Proxy RefreshSchemas)++testDescribeReplicationTasksResponse :: DescribeReplicationTasksResponse -> TestTree+testDescribeReplicationTasksResponse = res+    "DescribeReplicationTasksResponse"+    "fixture/DescribeReplicationTasksResponse.proto"+    dms+    (Proxy :: Proxy DescribeReplicationTasks)++testDescribeOrderableReplicationInstancesResponse :: DescribeOrderableReplicationInstancesResponse -> TestTree+testDescribeOrderableReplicationInstancesResponse = res+    "DescribeOrderableReplicationInstancesResponse"+    "fixture/DescribeOrderableReplicationInstancesResponse.proto"+    dms+    (Proxy :: Proxy DescribeOrderableReplicationInstances)++testCreateReplicationTaskResponse :: CreateReplicationTaskResponse -> TestTree+testCreateReplicationTaskResponse = res+    "CreateReplicationTaskResponse"+    "fixture/CreateReplicationTaskResponse.proto"+    dms+    (Proxy :: Proxy CreateReplicationTask)++testDescribeEndpointsResponse :: DescribeEndpointsResponse -> TestTree+testDescribeEndpointsResponse = res+    "DescribeEndpointsResponse"+    "fixture/DescribeEndpointsResponse.proto"+    dms+    (Proxy :: Proxy DescribeEndpoints)++testModifyReplicationInstanceResponse :: ModifyReplicationInstanceResponse -> TestTree+testModifyReplicationInstanceResponse = res+    "ModifyReplicationInstanceResponse"+    "fixture/ModifyReplicationInstanceResponse.proto"+    dms+    (Proxy :: Proxy ModifyReplicationInstance)++testModifyReplicationSubnetGroupResponse :: ModifyReplicationSubnetGroupResponse -> TestTree+testModifyReplicationSubnetGroupResponse = res+    "ModifyReplicationSubnetGroupResponse"+    "fixture/ModifyReplicationSubnetGroupResponse.proto"+    dms+    (Proxy :: Proxy ModifyReplicationSubnetGroup)++testDescribeAccountAttributesResponse :: DescribeAccountAttributesResponse -> TestTree+testDescribeAccountAttributesResponse = res+    "DescribeAccountAttributesResponse"+    "fixture/DescribeAccountAttributesResponse.proto"+    dms+    (Proxy :: Proxy DescribeAccountAttributes)++testDescribeReplicationInstancesResponse :: DescribeReplicationInstancesResponse -> TestTree+testDescribeReplicationInstancesResponse = res+    "DescribeReplicationInstancesResponse"+    "fixture/DescribeReplicationInstancesResponse.proto"+    dms+    (Proxy :: Proxy DescribeReplicationInstances)++testDescribeRefreshSchemasStatusResponse :: DescribeRefreshSchemasStatusResponse -> TestTree+testDescribeRefreshSchemasStatusResponse = res+    "DescribeRefreshSchemasStatusResponse"+    "fixture/DescribeRefreshSchemasStatusResponse.proto"+    dms+    (Proxy :: Proxy DescribeRefreshSchemasStatus)++testStopReplicationTaskResponse :: StopReplicationTaskResponse -> TestTree+testStopReplicationTaskResponse = res+    "StopReplicationTaskResponse"+    "fixture/StopReplicationTaskResponse.proto"+    dms+    (Proxy :: Proxy StopReplicationTask)++testCreateReplicationInstanceResponse :: CreateReplicationInstanceResponse -> TestTree+testCreateReplicationInstanceResponse = res+    "CreateReplicationInstanceResponse"+    "fixture/CreateReplicationInstanceResponse.proto"+    dms+    (Proxy :: Proxy CreateReplicationInstance)++testDeleteReplicationSubnetGroupResponse :: DeleteReplicationSubnetGroupResponse -> TestTree+testDeleteReplicationSubnetGroupResponse = res+    "DeleteReplicationSubnetGroupResponse"+    "fixture/DeleteReplicationSubnetGroupResponse.proto"+    dms+    (Proxy :: Proxy DeleteReplicationSubnetGroup)