amazonka-dms 1.4.5 → 1.5.0

raw patch · 65 files changed

+5576/−2657 lines, 65 filesdep ~amazonka-coredep ~amazonka-dmsdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-dms.cabal +24/−11
• fixture/CreateEventSubscription.yaml +10/−0
• fixture/CreateEventSubscriptionResponse.proto +0/−0
• fixture/DeleteEventSubscription.yaml +10/−0
• fixture/DeleteEventSubscriptionResponse.proto +0/−0
• fixture/DescribeEventCategories.yaml +10/−0
• fixture/DescribeEventCategoriesResponse.proto +0/−0
• fixture/DescribeEventSubscriptions.yaml +10/−0
• fixture/DescribeEventSubscriptionsResponse.proto +0/−0
• fixture/DescribeEvents.yaml +10/−0
• fixture/DescribeEventsResponse.proto +0/−0
• fixture/ModifyEventSubscription.yaml +10/−0
• fixture/ModifyEventSubscriptionResponse.proto +0/−0
• fixture/ModifyReplicationTask.yaml +10/−0
• fixture/ModifyReplicationTaskResponse.proto +0/−0
• fixture/ReloadTables.yaml +10/−0
• fixture/ReloadTablesResponse.proto +0/−0
• gen/Network/AWS/DMS.hs +179/−50
• gen/Network/AWS/DMS/AddTagsToResource.hs +22/−23
• gen/Network/AWS/DMS/CreateEndpoint.hs +116/−89
• gen/Network/AWS/DMS/CreateEventSubscription.hs +210/−0
• gen/Network/AWS/DMS/CreateReplicationInstance.hs +49/−46
• gen/Network/AWS/DMS/CreateReplicationSubnetGroup.hs +33/−28
• gen/Network/AWS/DMS/CreateReplicationTask.hs +47/−45
• gen/Network/AWS/DMS/DeleteCertificate.hs +27/−27
• gen/Network/AWS/DMS/DeleteEndpoint.hs +23/−24
• gen/Network/AWS/DMS/DeleteEventSubscription.hs +143/−0
• gen/Network/AWS/DMS/DeleteReplicationInstance.hs +24/−22
• gen/Network/AWS/DMS/DeleteReplicationSubnetGroup.hs +23/−20
• gen/Network/AWS/DMS/DeleteReplicationTask.hs +23/−23
• gen/Network/AWS/DMS/DescribeAccountAttributes.hs +22/−19
• gen/Network/AWS/DMS/DescribeCertificates.hs +32/−31
• gen/Network/AWS/DMS/DescribeConnections.hs +30/−29
• gen/Network/AWS/DMS/DescribeEndpointTypes.hs +30/−29
• gen/Network/AWS/DMS/DescribeEndpoints.hs +45/−44
• gen/Network/AWS/DMS/DescribeEventCategories.hs +154/−0
• gen/Network/AWS/DMS/DescribeEventSubscriptions.hs +190/−0
• gen/Network/AWS/DMS/DescribeEvents.hs +234/−0
• gen/Network/AWS/DMS/DescribeOrderableReplicationInstances.hs +37/−29
• gen/Network/AWS/DMS/DescribeRefreshSchemasStatus.hs +25/−22
• gen/Network/AWS/DMS/DescribeReplicationInstances.hs +30/−28
• gen/Network/AWS/DMS/DescribeReplicationSubnetGroups.hs +31/−28
• gen/Network/AWS/DMS/DescribeReplicationTasks.hs +30/−28
• gen/Network/AWS/DMS/DescribeSchemas.hs +30/−29
• gen/Network/AWS/DMS/DescribeTableStatistics.hs +50/−34
• gen/Network/AWS/DMS/ImportCertificate.hs +51/−29
• gen/Network/AWS/DMS/ListTagsForResource.hs +23/−23
• gen/Network/AWS/DMS/ModifyEndpoint.hs +81/−49
• gen/Network/AWS/DMS/ModifyEventSubscription.hs +185/−0
• gen/Network/AWS/DMS/ModifyReplicationInstance.hs +45/−42
• gen/Network/AWS/DMS/ModifyReplicationSubnetGroup.hs +31/−26
• gen/Network/AWS/DMS/ModifyReplicationTask.hs +202/−0
• gen/Network/AWS/DMS/RefreshSchemas.hs +27/−25
• gen/Network/AWS/DMS/ReloadTables.hs +144/−0
• gen/Network/AWS/DMS/RemoveTagsFromResource.hs +23/−23
• gen/Network/AWS/DMS/StartReplicationTask.hs +31/−27
• gen/Network/AWS/DMS/StopReplicationTask.hs +23/−23
• gen/Network/AWS/DMS/TestConnection.hs +27/−25
• gen/Network/AWS/DMS/Types.hs +172/−53
• gen/Network/AWS/DMS/Types/Product.hs +2175/−1510
• gen/Network/AWS/DMS/Types/Sum.hs +186/−31
• gen/Network/AWS/DMS/Waiters.hs +6/−6
• test/Main.hs +2/−2
• test/Test/AWS/Gen/DMS.hs +148/−4

@@ -8,7 +8,7 @@  ## Version -`1.4.5`+`1.5.0`   ## Description

@@ -1,13 +1,13 @@ name:                  amazonka-dms-version:               1.4.5+version:               1.5.0 synopsis:              Amazon Database Migration Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,24 +29,31 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-dms  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.DMS         , Network.AWS.DMS.AddTagsToResource         , Network.AWS.DMS.CreateEndpoint+        , Network.AWS.DMS.CreateEventSubscription         , Network.AWS.DMS.CreateReplicationInstance         , Network.AWS.DMS.CreateReplicationSubnetGroup         , Network.AWS.DMS.CreateReplicationTask         , Network.AWS.DMS.DeleteCertificate         , Network.AWS.DMS.DeleteEndpoint+        , Network.AWS.DMS.DeleteEventSubscription         , Network.AWS.DMS.DeleteReplicationInstance         , Network.AWS.DMS.DeleteReplicationSubnetGroup         , Network.AWS.DMS.DeleteReplicationTask@@ -55,6 +62,9 @@         , Network.AWS.DMS.DescribeConnections         , Network.AWS.DMS.DescribeEndpointTypes         , Network.AWS.DMS.DescribeEndpoints+        , Network.AWS.DMS.DescribeEventCategories+        , Network.AWS.DMS.DescribeEventSubscriptions+        , Network.AWS.DMS.DescribeEvents         , Network.AWS.DMS.DescribeOrderableReplicationInstances         , Network.AWS.DMS.DescribeRefreshSchemasStatus         , Network.AWS.DMS.DescribeReplicationInstances@@ -65,9 +75,12 @@         , Network.AWS.DMS.ImportCertificate         , Network.AWS.DMS.ListTagsForResource         , Network.AWS.DMS.ModifyEndpoint+        , Network.AWS.DMS.ModifyEventSubscription         , Network.AWS.DMS.ModifyReplicationInstance         , Network.AWS.DMS.ModifyReplicationSubnetGroup+        , Network.AWS.DMS.ModifyReplicationTask         , Network.AWS.DMS.RefreshSchemas+        , Network.AWS.DMS.ReloadTables         , Network.AWS.DMS.RemoveTagsFromResource         , Network.AWS.DMS.StartReplicationTask         , Network.AWS.DMS.StopReplicationTask@@ -80,7 +93,7 @@         , Network.AWS.DMS.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-dms-test@@ -100,9 +113,9 @@         , Test.AWS.DMS.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-dms == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-dms         , base         , bytestring         , tasty

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/dms/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  dms.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/dms/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  dms.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/dms/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  dms.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/dms/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  dms.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/dms/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  dms.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/dms/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  dms.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/dms/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  dms.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/dms/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  dms.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,16 +5,18 @@  -- | -- Module      : Network.AWS.DMS--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- __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, Amazon Redshift, 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.+-- 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, Amazon Redshift, MariaDB, Amazon Aurora, MySQL, and SAP Adaptive Server Enterprise (ASE). 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. --+-- For more information about AWS DMS, see the AWS DMS user guide at <http://docs.aws.amazon.com/dms/latest/userguide/Welcome.html What Is AWS Database Migration Service? >+-- module Network.AWS.DMS     (     -- * Service Configuration@@ -38,12 +40,18 @@     -- ** InvalidCertificateFault     , _InvalidCertificateFault +    -- ** SNSNoAuthorizationFault+    , _SNSNoAuthorizationFault+     -- ** ResourceAlreadyExistsFault     , _ResourceAlreadyExistsFault      -- ** InsufficientResourceCapacityFault     , _InsufficientResourceCapacityFault +    -- ** SNSInvalidTopicFault+    , _SNSInvalidTopicFault+     -- ** ResourceQuotaExceededFault     , _ResourceQuotaExceededFault @@ -71,12 +79,21 @@     -- ** DeleteReplicationInstance     , module Network.AWS.DMS.DeleteReplicationInstance +    -- ** ReloadTables+    , module Network.AWS.DMS.ReloadTables+     -- ** CreateEndpoint     , module Network.AWS.DMS.CreateEndpoint      -- ** DescribeSchemas     , module Network.AWS.DMS.DescribeSchemas +    -- ** ModifyEventSubscription+    , module Network.AWS.DMS.ModifyEventSubscription++    -- ** DescribeEvents+    , module Network.AWS.DMS.DescribeEvents+     -- ** DeleteEndpoint     , module Network.AWS.DMS.DeleteEndpoint @@ -101,9 +118,15 @@     -- ** ModifyEndpoint     , module Network.AWS.DMS.ModifyEndpoint +    -- ** CreateEventSubscription+    , module Network.AWS.DMS.CreateEventSubscription+     -- ** DescribeCertificates     , module Network.AWS.DMS.DescribeCertificates +    -- ** DeleteEventSubscription+    , module Network.AWS.DMS.DeleteEventSubscription+     -- ** DescribeTableStatistics     , module Network.AWS.DMS.DescribeTableStatistics @@ -113,6 +136,9 @@     -- ** StartReplicationTask     , module Network.AWS.DMS.StartReplicationTask +    -- ** DescribeEventSubscriptions+    , module Network.AWS.DMS.DescribeEventSubscriptions+     -- ** AddTagsToResource     , module Network.AWS.DMS.AddTagsToResource @@ -128,6 +154,9 @@     -- ** DescribeReplicationTasks     , module Network.AWS.DMS.DescribeReplicationTasks +    -- ** DescribeEventCategories+    , module Network.AWS.DMS.DescribeEventCategories+     -- ** DescribeOrderableReplicationInstances     , module Network.AWS.DMS.DescribeOrderableReplicationInstances @@ -158,6 +187,9 @@     -- ** StopReplicationTask     , module Network.AWS.DMS.StopReplicationTask +    -- ** ModifyReplicationTask+    , module Network.AWS.DMS.ModifyReplicationTask+     -- ** CreateReplicationInstance     , module Network.AWS.DMS.CreateReplicationInstance @@ -166,18 +198,33 @@      -- * Types +    -- ** AuthMechanismValue+    , AuthMechanismValue (..)++    -- ** AuthTypeValue+    , AuthTypeValue (..)++    -- ** CompressionTypeValue+    , CompressionTypeValue (..)+     -- ** DmsSSLModeValue     , DmsSSLModeValue (..)      -- ** MigrationTypeValue     , MigrationTypeValue (..) +    -- ** NestingLevelValue+    , NestingLevelValue (..)+     -- ** RefreshSchemasStatusTypeValue     , RefreshSchemasStatusTypeValue (..)      -- ** ReplicationEndpointTypeValue     , ReplicationEndpointTypeValue (..) +    -- ** SourceType+    , SourceType (..)+     -- ** StartReplicationTaskTypeValue     , StartReplicationTaskTypeValue (..) @@ -203,6 +250,7 @@     , cCertificateARN     , cCertificateCreationDate     , cCertificateIdentifier+    , cCertificateWallet     , cKeyLength     , cValidToDate @@ -216,6 +264,11 @@     , cEndpointARN     , cLastFailureMessage +    -- ** DynamoDBSettings+    , DynamoDBSettings+    , dynamoDBSettings+    , ddsServiceAccessRoleARN+     -- ** Endpoint     , Endpoint     , endpoint@@ -227,18 +280,65 @@     , eUsername     , eEngineName     , eKMSKeyId+    , eMongoDBSettings     , eSSLMode     , eDatabaseName+    , eS3Settings     , eEndpointIdentifier+    , eExternalId+    , eDynamoDBSettings     , eEndpointARN     , ePort +    -- ** Event+    , Event+    , event+    , eSourceType+    , eSourceIdentifier+    , eDate+    , eEventCategories+    , eMessage++    -- ** EventCategoryGroup+    , EventCategoryGroup+    , eventCategoryGroup+    , ecgSourceType+    , ecgEventCategories++    -- ** EventSubscription+    , EventSubscription+    , eventSubscription+    , esStatus+    , esCustomerAWSId+    , esCustSubscriptionId+    , esSNSTopicARN+    , esEnabled+    , esSourceType+    , esSubscriptionCreationTime+    , esEventCategoriesList+    , esSourceIdsList+     -- ** Filter     , Filter     , filter'     , fName     , fValues +    -- ** MongoDBSettings+    , MongoDBSettings+    , mongoDBSettings+    , mdsServerName+    , mdsAuthMechanism+    , mdsUsername+    , mdsPassword+    , mdsNestingLevel+    , mdsDatabaseName+    , mdsDocsToInvestigate+    , mdsAuthSource+    , mdsExtractDocId+    , mdsAuthType+    , mdsPort+     -- ** OrderableReplicationInstance     , OrderableReplicationInstance     , orderableReplicationInstance@@ -276,6 +376,7 @@     , riAvailabilityZone     , riVPCSecurityGroups     , riMultiAZ+    , riSecondaryAvailabilityZone     , riReplicationInstanceARN     , riAllocatedStorage     , riReplicationInstancePublicIPAddress@@ -303,19 +404,20 @@     -- ** ReplicationTask     , ReplicationTask     , replicationTask-    , rtReplicationTaskSettings-    , rtStatus-    , rtTargetEndpointARN-    , rtReplicationTaskIdentifier-    , rtReplicationTaskStartDate-    , rtSourceEndpointARN-    , rtTableMappings-    , rtReplicationTaskCreationDate-    , rtMigrationType-    , rtReplicationTaskARN-    , rtReplicationTaskStats-    , rtReplicationInstanceARN-    , rtLastFailureMessage+    , rReplicationTaskSettings+    , rStatus+    , rStopReason+    , rTargetEndpointARN+    , rReplicationTaskIdentifier+    , rReplicationTaskStartDate+    , rSourceEndpointARN+    , rTableMappings+    , rReplicationTaskCreationDate+    , rMigrationType+    , rReplicationTaskARN+    , rReplicationTaskStats+    , rReplicationInstanceARN+    , rLastFailureMessage      -- ** ReplicationTaskStats     , ReplicationTaskStats@@ -327,6 +429,17 @@     , rtsTablesQueued     , rtsTablesLoading +    -- ** S3Settings+    , S3Settings+    , s3Settings+    , ssCSVDelimiter+    , ssServiceAccessRoleARN+    , ssBucketFolder+    , ssExternalTableDefinition+    , ssBucketName+    , ssCSVRowDelimiter+    , ssCompressionType+     -- ** Subnet     , Subnet     , subnet@@ -346,14 +459,22 @@     , tableStatistics     , tsFullLoadRows     , tsInserts+    , tsFullLoadCondtnlChkFailedRows     , tsSchemaName     , tsTableState+    , tsFullLoadErrorRows     , tsDdls     , tsDeletes     , tsUpdates     , tsLastUpdateTime     , tsTableName +    -- ** TableToReload+    , TableToReload+    , tableToReload+    , ttrSchemaName+    , ttrTableName+     -- ** Tag     , Tag     , tag@@ -367,40 +488,48 @@     , vsgmVPCSecurityGroupId     ) 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.DeleteCertificate-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.DescribeCertificates-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.ImportCertificate-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+import Network.AWS.DMS.AddTagsToResource+import Network.AWS.DMS.CreateEndpoint+import Network.AWS.DMS.CreateEventSubscription+import Network.AWS.DMS.CreateReplicationInstance+import Network.AWS.DMS.CreateReplicationSubnetGroup+import Network.AWS.DMS.CreateReplicationTask+import Network.AWS.DMS.DeleteCertificate+import Network.AWS.DMS.DeleteEndpoint+import Network.AWS.DMS.DeleteEventSubscription+import Network.AWS.DMS.DeleteReplicationInstance+import Network.AWS.DMS.DeleteReplicationSubnetGroup+import Network.AWS.DMS.DeleteReplicationTask+import Network.AWS.DMS.DescribeAccountAttributes+import Network.AWS.DMS.DescribeCertificates+import Network.AWS.DMS.DescribeConnections+import Network.AWS.DMS.DescribeEndpoints+import Network.AWS.DMS.DescribeEndpointTypes+import Network.AWS.DMS.DescribeEventCategories+import Network.AWS.DMS.DescribeEvents+import Network.AWS.DMS.DescribeEventSubscriptions+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.ImportCertificate+import Network.AWS.DMS.ListTagsForResource+import Network.AWS.DMS.ModifyEndpoint+import Network.AWS.DMS.ModifyEventSubscription+import Network.AWS.DMS.ModifyReplicationInstance+import Network.AWS.DMS.ModifyReplicationSubnetGroup+import Network.AWS.DMS.ModifyReplicationTask+import Network.AWS.DMS.RefreshSchemas+import Network.AWS.DMS.ReloadTables+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

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.AddTagsToResource--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , 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+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  -- | --@@ -50,10 +50,11 @@ -- -- /See:/ 'addTagsToResource' smart constructor. data AddTagsToResource = AddTagsToResource'-    { _attrResourceARN :: !Text-    , _attrTags        :: ![Tag]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -65,11 +66,9 @@     :: Text -- ^ 'attrResourceARN'     -> AddTagsToResource addTagsToResource pResourceARN_ =-    AddTagsToResource'-    { _attrResourceARN = pResourceARN_-    , _attrTags = mempty-    }+  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});@@ -86,9 +85,9 @@               (\ s h x ->                  AddTagsToResourceResponse' <$> (pure (fromEnum s))) -instance Hashable AddTagsToResource+instance Hashable AddTagsToResource where -instance NFData AddTagsToResource+instance NFData AddTagsToResource where  instance ToHeaders AddTagsToResource where         toHeaders@@ -119,9 +118,10 @@ -- -- /See:/ 'addTagsToResourceResponse' smart constructor. newtype AddTagsToResourceResponse = AddTagsToResourceResponse'-    { _attrrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -131,12 +131,11 @@     :: Int -- ^ 'attrrsResponseStatus'     -> AddTagsToResourceResponse addTagsToResourceResponse pResponseStatus_ =-    AddTagsToResourceResponse'-    { _attrrsResponseStatus = pResponseStatus_-    }+  AddTagsToResourceResponse' {_attrrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. attrrsResponseStatus :: Lens' AddTagsToResourceResponse Int attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a}); -instance NFData AddTagsToResourceResponse+instance NFData AddTagsToResourceResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.CreateEndpoint--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -27,19 +27,22 @@       createEndpoint     , CreateEndpoint     -- * Request Lenses+    , ceServerName     , ceCertificateARN     , ceExtraConnectionAttributes+    , ceUsername     , ceKMSKeyId+    , ceMongoDBSettings     , ceSSLMode+    , cePassword     , ceDatabaseName+    , ceS3Settings+    , ceDynamoDBSettings     , ceTags+    , cePort     , ceEndpointIdentifier     , ceEndpointType     , ceEngineName-    , ceUsername-    , cePassword-    , ceServerName-    , cePort      -- * Destructuring the Response     , createEndpointResponse@@ -49,12 +52,12 @@     , 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+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  -- | --@@ -62,76 +65,90 @@ -- -- /See:/ 'createEndpoint' smart constructor. data CreateEndpoint = CreateEndpoint'-    { _ceCertificateARN            :: !(Maybe Text)-    , _ceExtraConnectionAttributes :: !(Maybe Text)-    , _ceKMSKeyId                  :: !(Maybe Text)-    , _ceSSLMode                   :: !(Maybe DmsSSLModeValue)-    , _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)+  { _ceServerName                :: !(Maybe Text)+  , _ceCertificateARN            :: !(Maybe Text)+  , _ceExtraConnectionAttributes :: !(Maybe Text)+  , _ceUsername                  :: !(Maybe Text)+  , _ceKMSKeyId                  :: !(Maybe Text)+  , _ceMongoDBSettings           :: !(Maybe MongoDBSettings)+  , _ceSSLMode                   :: !(Maybe DmsSSLModeValue)+  , _cePassword                  :: !(Maybe (Sensitive Text))+  , _ceDatabaseName              :: !(Maybe Text)+  , _ceS3Settings                :: !(Maybe S3Settings)+  , _ceDynamoDBSettings          :: !(Maybe DynamoDBSettings)+  , _ceTags                      :: !(Maybe [Tag])+  , _cePort                      :: !(Maybe Int)+  , _ceEndpointIdentifier        :: !Text+  , _ceEndpointType              :: !ReplicationEndpointTypeValue+  , _ceEngineName                :: !Text+  } deriving (Eq, 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: --+-- * 'ceServerName' - The name of the server where the endpoint database resides.+-- -- * 'ceCertificateARN' - The Amazon Resource Number (ARN) for the certificate. -- -- * 'ceExtraConnectionAttributes' - Additional attributes associated with the connection. --+-- * 'ceUsername' - The user name to be used to login to the endpoint database.+-- -- * 'ceKMSKeyId' - 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. --+-- * 'ceMongoDBSettings' - Settings in JSON format for the source MongoDB endpoint. For more information about the available settings, see the __Configuration Properties When Using MongoDB as a Source for AWS Database Migration Service__ section at <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Source.MongoDB.html Using Amazon S3 as a Target for AWS Database Migration Service> .+-- -- * 'ceSSLMode' - The SSL mode to use for the SSL connection. SSL mode can be one of four values: none, require, verify-ca, verify-full.  The default value is none. ----- * 'ceDatabaseName' - The name of the endpoint database.+-- * 'cePassword' - The password to be used to login to the endpoint database. ----- * 'ceTags' - Tags to be added to the endpoint.+-- * 'ceDatabaseName' - The name of the endpoint database. ----- * 'ceEndpointIdentifier' - 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.+-- * 'ceS3Settings' - Settings in JSON format for the target S3 endpoint. For more information about the available settings, see the __Extra Connection Attributes__ section at <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Target.S3.html Using Amazon S3 as a Target for AWS Database Migration Service> . ----- * 'ceEndpointType' - The type of endpoint.+-- * 'ceDynamoDBSettings' - Settings in JSON format for the target Amazon DynamoDB endpoint. For more information about the available settings, see the __Using Object Mapping to Migrate Data to DynamoDB__ section at <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Target.DynamoDB.html Using an Amazon DynamoDB Database as a Target for AWS Database Migration Service> . ----- * 'ceEngineName' - The type of engine for the endpoint. Valid values include MYSQL, ORACLE, POSTGRES, MARIADB, AURORA, REDSHIFT, and SQLSERVER.+-- * 'ceTags' - Tags to be added to the endpoint. ----- * 'ceUsername' - The user name to be used to login to the endpoint database.+-- * 'cePort' - The port used by the endpoint database. ----- * 'cePassword' - The password to be used to login to the endpoint database.+-- * 'ceEndpointIdentifier' - 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. ----- * 'ceServerName' - The name of the server where the endpoint database resides.+-- * 'ceEndpointType' - The type of endpoint. ----- * 'cePort' - The port used by the endpoint database.+-- * 'ceEngineName' - The type of engine for the endpoint. Valid values, depending on the EndPointType, include MYSQL, ORACLE, POSTGRES, MARIADB, AURORA, REDSHIFT, S3, SYBASE, DYNAMODB, MONGODB, and SQLSERVER. 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'-    { _ceCertificateARN = Nothing-    , _ceExtraConnectionAttributes = Nothing-    , _ceKMSKeyId = Nothing-    , _ceSSLMode = Nothing-    , _ceDatabaseName = Nothing-    , _ceTags = Nothing-    , _ceEndpointIdentifier = pEndpointIdentifier_-    , _ceEndpointType = pEndpointType_-    , _ceEngineName = pEngineName_-    , _ceUsername = pUsername_-    , _cePassword = _Sensitive # pPassword_-    , _ceServerName = pServerName_-    , _cePort = pPort_-    }+createEndpoint pEndpointIdentifier_ pEndpointType_ pEngineName_ =+  CreateEndpoint'+  { _ceServerName = Nothing+  , _ceCertificateARN = Nothing+  , _ceExtraConnectionAttributes = Nothing+  , _ceUsername = Nothing+  , _ceKMSKeyId = Nothing+  , _ceMongoDBSettings = Nothing+  , _ceSSLMode = Nothing+  , _cePassword = Nothing+  , _ceDatabaseName = Nothing+  , _ceS3Settings = Nothing+  , _ceDynamoDBSettings = Nothing+  , _ceTags = Nothing+  , _cePort = Nothing+  , _ceEndpointIdentifier = pEndpointIdentifier_+  , _ceEndpointType = pEndpointType_+  , _ceEngineName = pEngineName_+  } ++-- | The name of the server where the endpoint database resides.+ceServerName :: Lens' CreateEndpoint (Maybe Text)+ceServerName = lens _ceServerName (\ s a -> s{_ceServerName = a});+ -- | The Amazon Resource Number (ARN) for the certificate. ceCertificateARN :: Lens' CreateEndpoint (Maybe Text) ceCertificateARN = lens _ceCertificateARN (\ s a -> s{_ceCertificateARN = a});@@ -140,22 +157,46 @@ ceExtraConnectionAttributes :: Lens' CreateEndpoint (Maybe Text) ceExtraConnectionAttributes = lens _ceExtraConnectionAttributes (\ s a -> s{_ceExtraConnectionAttributes = a}); +-- | The user name to be used to login to the endpoint database.+ceUsername :: Lens' CreateEndpoint (Maybe Text)+ceUsername = lens _ceUsername (\ s a -> s{_ceUsername = 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}); +-- | Settings in JSON format for the source MongoDB endpoint. For more information about the available settings, see the __Configuration Properties When Using MongoDB as a Source for AWS Database Migration Service__ section at <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Source.MongoDB.html Using Amazon S3 as a Target for AWS Database Migration Service> .+ceMongoDBSettings :: Lens' CreateEndpoint (Maybe MongoDBSettings)+ceMongoDBSettings = lens _ceMongoDBSettings (\ s a -> s{_ceMongoDBSettings = a});+ -- | The SSL mode to use for the SSL connection. SSL mode can be one of four values: none, require, verify-ca, verify-full.  The default value is none. ceSSLMode :: Lens' CreateEndpoint (Maybe DmsSSLModeValue) ceSSLMode = lens _ceSSLMode (\ s a -> s{_ceSSLMode = a}); +-- | The password to be used to login to the endpoint database.+cePassword :: Lens' CreateEndpoint (Maybe Text)+cePassword = lens _cePassword (\ s a -> s{_cePassword = a}) . mapping _Sensitive;+ -- | The name of the endpoint database. ceDatabaseName :: Lens' CreateEndpoint (Maybe Text) ceDatabaseName = lens _ceDatabaseName (\ s a -> s{_ceDatabaseName = a}); +-- | Settings in JSON format for the target S3 endpoint. For more information about the available settings, see the __Extra Connection Attributes__ section at <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Target.S3.html Using Amazon S3 as a Target for AWS Database Migration Service> .+ceS3Settings :: Lens' CreateEndpoint (Maybe S3Settings)+ceS3Settings = lens _ceS3Settings (\ s a -> s{_ceS3Settings = a});++-- | Settings in JSON format for the target Amazon DynamoDB endpoint. For more information about the available settings, see the __Using Object Mapping to Migrate Data to DynamoDB__ section at <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Target.DynamoDB.html Using an Amazon DynamoDB Database as a Target for AWS Database Migration Service> .+ceDynamoDBSettings :: Lens' CreateEndpoint (Maybe DynamoDBSettings)+ceDynamoDBSettings = lens _ceDynamoDBSettings (\ s a -> s{_ceDynamoDBSettings = a});+ -- | Tags to be added to the endpoint. ceTags :: Lens' CreateEndpoint [Tag] ceTags = lens _ceTags (\ s a -> s{_ceTags = a}) . _Default . _Coerce; +-- | The port used by the endpoint database.+cePort :: Lens' CreateEndpoint (Maybe Int)+cePort = lens _cePort (\ s a -> s{_cePort = 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. ceEndpointIdentifier :: Lens' CreateEndpoint Text ceEndpointIdentifier = lens _ceEndpointIdentifier (\ s a -> s{_ceEndpointIdentifier = a});@@ -164,26 +205,10 @@ 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, REDSHIFT, and SQLSERVER.+-- | The type of engine for the endpoint. Valid values, depending on the EndPointType, include MYSQL, ORACLE, POSTGRES, MARIADB, AURORA, REDSHIFT, S3, SYBASE, DYNAMODB, MONGODB, and 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@@ -193,9 +218,9 @@                  CreateEndpointResponse' <$>                    (x .?> "Endpoint") <*> (pure (fromEnum s))) -instance Hashable CreateEndpoint+instance Hashable CreateEndpoint where -instance NFData CreateEndpoint+instance NFData CreateEndpoint where  instance ToHeaders CreateEndpoint where         toHeaders@@ -210,20 +235,22 @@         toJSON CreateEndpoint'{..}           = object               (catMaybes-                 [("CertificateArn" .=) <$> _ceCertificateARN,+                 [("ServerName" .=) <$> _ceServerName,+                  ("CertificateArn" .=) <$> _ceCertificateARN,                   ("ExtraConnectionAttributes" .=) <$>                     _ceExtraConnectionAttributes,+                  ("Username" .=) <$> _ceUsername,                   ("KmsKeyId" .=) <$> _ceKMSKeyId,+                  ("MongoDbSettings" .=) <$> _ceMongoDBSettings,                   ("SslMode" .=) <$> _ceSSLMode,+                  ("Password" .=) <$> _cePassword,                   ("DatabaseName" .=) <$> _ceDatabaseName,-                  ("Tags" .=) <$> _ceTags,+                  ("S3Settings" .=) <$> _ceS3Settings,+                  ("DynamoDbSettings" .=) <$> _ceDynamoDBSettings,+                  ("Tags" .=) <$> _ceTags, ("Port" .=) <$> _cePort,                   Just ("EndpointIdentifier" .= _ceEndpointIdentifier),                   Just ("EndpointType" .= _ceEndpointType),-                  Just ("EngineName" .= _ceEngineName),-                  Just ("Username" .= _ceUsername),-                  Just ("Password" .= _cePassword),-                  Just ("ServerName" .= _ceServerName),-                  Just ("Port" .= _cePort)])+                  Just ("EngineName" .= _ceEngineName)])  instance ToPath CreateEndpoint where         toPath = const "/"@@ -237,10 +264,11 @@ -- -- /See:/ 'createEndpointResponse' smart constructor. data CreateEndpointResponse = CreateEndpointResponse'-    { _cersEndpoint       :: !(Maybe Endpoint)-    , _cersResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cersEndpoint       :: !(Maybe Endpoint)+  , _cersResponseStatus :: !Int+  } deriving (Eq, 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:@@ -252,11 +280,10 @@     :: Int -- ^ 'cersResponseStatus'     -> CreateEndpointResponse createEndpointResponse pResponseStatus_ =-    CreateEndpointResponse'-    { _cersEndpoint = Nothing-    , _cersResponseStatus = pResponseStatus_-    }+  CreateEndpointResponse'+  {_cersEndpoint = Nothing, _cersResponseStatus = pResponseStatus_} + -- | The endpoint that was created. cersEndpoint :: Lens' CreateEndpointResponse (Maybe Endpoint) cersEndpoint = lens _cersEndpoint (\ s a -> s{_cersEndpoint = a});@@ -265,4 +292,4 @@ cersResponseStatus :: Lens' CreateEndpointResponse Int cersResponseStatus = lens _cersResponseStatus (\ s a -> s{_cersResponseStatus = a}); -instance NFData CreateEndpointResponse+instance NFData CreateEndpointResponse where

@@ -0,0 +1,210 @@+{-# 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.CreateEventSubscription+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an AWS DMS event notification subscription.+--+--+-- You can specify the type of source (@SourceType@ ) you want to be notified of, provide a list of AWS DMS source IDs (@SourceIds@ ) that triggers the events, and provide a list of event categories (@EventCategories@ ) for events you want to be notified of. If you specify both the @SourceType@ and @SourceIds@ , such as @SourceType = replication-instance@ and @SourceIdentifier = my-replinstance@ , you will be notified of all the replication instance events for the specified source. If you specify a @SourceType@ but don't specify a @SourceIdentifier@ , you receive notice of the events for that source type for all your AWS DMS sources. If you don't specify either @SourceType@ nor @SourceIdentifier@ , you will be notified of events generated from all AWS DMS sources belonging to your customer account.+--+-- For more information about AWS DMS events, see <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Events.html Working with Events and Notifications > in the AWS Database MIgration Service User Guide.+--+module Network.AWS.DMS.CreateEventSubscription+    (+    -- * Creating a Request+      createEventSubscription+    , CreateEventSubscription+    -- * Request Lenses+    , cesEnabled+    , cesSourceType+    , cesEventCategories+    , cesSourceIds+    , cesTags+    , cesSubscriptionName+    , cesSNSTopicARN++    -- * Destructuring the Response+    , createEventSubscriptionResponse+    , CreateEventSubscriptionResponse+    -- * Response Lenses+    , cesrsEventSubscription+    , cesrsResponseStatus+    ) 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:/ 'createEventSubscription' smart constructor.+data CreateEventSubscription = CreateEventSubscription'+  { _cesEnabled          :: !(Maybe Bool)+  , _cesSourceType       :: !(Maybe Text)+  , _cesEventCategories  :: !(Maybe [Text])+  , _cesSourceIds        :: !(Maybe [Text])+  , _cesTags             :: !(Maybe [Tag])+  , _cesSubscriptionName :: !Text+  , _cesSNSTopicARN      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateEventSubscription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cesEnabled' - A Boolean value; set to __true__ to activate the subscription, or set to __false__ to create the subscription but not activate it.+--+-- * 'cesSourceType' - The type of AWS DMS resource that generates the events. For example, if you want to be notified of events generated by a replication instance, you set this parameter to @replication-instance@ . If this value is not specified, all events are returned.  Valid values: replication-instance | migration-task+--+-- * 'cesEventCategories' - A list of event categories for a source type that you want to subscribe to. You can see a list of the categories for a given source type by calling the __DescribeEventCategories__ action or in the topic <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Events.html Working with Events and Notifications> in the AWS Database Migration Service User Guide.+--+-- * 'cesSourceIds' - The list of identifiers of the event sources for which events will be returned. If not specified, then all sources are included in the response. An identifier must begin with a letter and must contain only ASCII letters, digits, and hyphens; it cannot end with a hyphen or contain two consecutive hyphens.+--+-- * 'cesTags' - A tag to be attached to the event subscription.+--+-- * 'cesSubscriptionName' - The name of the DMS event notification subscription.  Constraints: The name must be less than 255 characters.+--+-- * 'cesSNSTopicARN' - The Amazon Resource Name (ARN) of the Amazon SNS topic created for event notification. The ARN is created by Amazon SNS when you create a topic and subscribe to it.+createEventSubscription+    :: Text -- ^ 'cesSubscriptionName'+    -> Text -- ^ 'cesSNSTopicARN'+    -> CreateEventSubscription+createEventSubscription pSubscriptionName_ pSNSTopicARN_ =+  CreateEventSubscription'+  { _cesEnabled = Nothing+  , _cesSourceType = Nothing+  , _cesEventCategories = Nothing+  , _cesSourceIds = Nothing+  , _cesTags = Nothing+  , _cesSubscriptionName = pSubscriptionName_+  , _cesSNSTopicARN = pSNSTopicARN_+  }+++-- | A Boolean value; set to __true__ to activate the subscription, or set to __false__ to create the subscription but not activate it.+cesEnabled :: Lens' CreateEventSubscription (Maybe Bool)+cesEnabled = lens _cesEnabled (\ s a -> s{_cesEnabled = a});++-- | The type of AWS DMS resource that generates the events. For example, if you want to be notified of events generated by a replication instance, you set this parameter to @replication-instance@ . If this value is not specified, all events are returned.  Valid values: replication-instance | migration-task+cesSourceType :: Lens' CreateEventSubscription (Maybe Text)+cesSourceType = lens _cesSourceType (\ s a -> s{_cesSourceType = a});++-- | A list of event categories for a source type that you want to subscribe to. You can see a list of the categories for a given source type by calling the __DescribeEventCategories__ action or in the topic <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Events.html Working with Events and Notifications> in the AWS Database Migration Service User Guide.+cesEventCategories :: Lens' CreateEventSubscription [Text]+cesEventCategories = lens _cesEventCategories (\ s a -> s{_cesEventCategories = a}) . _Default . _Coerce;++-- | The list of identifiers of the event sources for which events will be returned. If not specified, then all sources are included in the response. An identifier must begin with a letter and must contain only ASCII letters, digits, and hyphens; it cannot end with a hyphen or contain two consecutive hyphens.+cesSourceIds :: Lens' CreateEventSubscription [Text]+cesSourceIds = lens _cesSourceIds (\ s a -> s{_cesSourceIds = a}) . _Default . _Coerce;++-- | A tag to be attached to the event subscription.+cesTags :: Lens' CreateEventSubscription [Tag]+cesTags = lens _cesTags (\ s a -> s{_cesTags = a}) . _Default . _Coerce;++-- | The name of the DMS event notification subscription.  Constraints: The name must be less than 255 characters.+cesSubscriptionName :: Lens' CreateEventSubscription Text+cesSubscriptionName = lens _cesSubscriptionName (\ s a -> s{_cesSubscriptionName = a});++-- | The Amazon Resource Name (ARN) of the Amazon SNS topic created for event notification. The ARN is created by Amazon SNS when you create a topic and subscribe to it.+cesSNSTopicARN :: Lens' CreateEventSubscription Text+cesSNSTopicARN = lens _cesSNSTopicARN (\ s a -> s{_cesSNSTopicARN = a});++instance AWSRequest CreateEventSubscription where+        type Rs CreateEventSubscription =+             CreateEventSubscriptionResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 CreateEventSubscriptionResponse' <$>+                   (x .?> "EventSubscription") <*> (pure (fromEnum s)))++instance Hashable CreateEventSubscription where++instance NFData CreateEventSubscription where++instance ToHeaders CreateEventSubscription where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.CreateEventSubscription" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateEventSubscription where+        toJSON CreateEventSubscription'{..}+          = object+              (catMaybes+                 [("Enabled" .=) <$> _cesEnabled,+                  ("SourceType" .=) <$> _cesSourceType,+                  ("EventCategories" .=) <$> _cesEventCategories,+                  ("SourceIds" .=) <$> _cesSourceIds,+                  ("Tags" .=) <$> _cesTags,+                  Just ("SubscriptionName" .= _cesSubscriptionName),+                  Just ("SnsTopicArn" .= _cesSNSTopicARN)])++instance ToPath CreateEventSubscription where+        toPath = const "/"++instance ToQuery CreateEventSubscription where+        toQuery = const mempty++-- |+--+--+--+-- /See:/ 'createEventSubscriptionResponse' smart constructor.+data CreateEventSubscriptionResponse = CreateEventSubscriptionResponse'+  { _cesrsEventSubscription :: !(Maybe EventSubscription)+  , _cesrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateEventSubscriptionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cesrsEventSubscription' - The event subscription that was created.+--+-- * 'cesrsResponseStatus' - -- | The response status code.+createEventSubscriptionResponse+    :: Int -- ^ 'cesrsResponseStatus'+    -> CreateEventSubscriptionResponse+createEventSubscriptionResponse pResponseStatus_ =+  CreateEventSubscriptionResponse'+  {_cesrsEventSubscription = Nothing, _cesrsResponseStatus = pResponseStatus_}+++-- | The event subscription that was created.+cesrsEventSubscription :: Lens' CreateEventSubscriptionResponse (Maybe EventSubscription)+cesrsEventSubscription = lens _cesrsEventSubscription (\ s a -> s{_cesrsEventSubscription = a});++-- | -- | The response status code.+cesrsResponseStatus :: Lens' CreateEventSubscriptionResponse Int+cesrsResponseStatus = lens _cesrsResponseStatus (\ s a -> s{_cesrsResponseStatus = a});++instance NFData CreateEventSubscriptionResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.CreateReplicationInstance--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -49,12 +49,12 @@     , 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+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  -- | --@@ -62,21 +62,22 @@ -- -- /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)-    , _criVPCSecurityGroupIds              :: !(Maybe [Text])-    , _criMultiAZ                          :: !(Maybe Bool)-    , _criAllocatedStorage                 :: !(Maybe Int)-    , _criTags                             :: !(Maybe [Tag])-    , _criReplicationInstanceIdentifier    :: !Text-    , _criReplicationInstanceClass         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _criEngineVersion                    :: !(Maybe Text)+  , _criPubliclyAccessible               :: !(Maybe Bool)+  , _criAutoMinorVersionUpgrade          :: !(Maybe Bool)+  , _criReplicationSubnetGroupIdentifier :: !(Maybe Text)+  , _criPreferredMaintenanceWindow       :: !(Maybe Text)+  , _criKMSKeyId                         :: !(Maybe Text)+  , _criAvailabilityZone                 :: !(Maybe Text)+  , _criVPCSecurityGroupIds              :: !(Maybe [Text])+  , _criMultiAZ                          :: !(Maybe Bool)+  , _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:@@ -111,22 +112,23 @@     -> Text -- ^ 'criReplicationInstanceClass'     -> CreateReplicationInstance createReplicationInstance pReplicationInstanceIdentifier_ pReplicationInstanceClass_ =-    CreateReplicationInstance'-    { _criEngineVersion = Nothing-    , _criPubliclyAccessible = Nothing-    , _criAutoMinorVersionUpgrade = Nothing-    , _criReplicationSubnetGroupIdentifier = Nothing-    , _criPreferredMaintenanceWindow = Nothing-    , _criKMSKeyId = Nothing-    , _criAvailabilityZone = Nothing-    , _criVPCSecurityGroupIds = Nothing-    , _criMultiAZ = Nothing-    , _criAllocatedStorage = Nothing-    , _criTags = Nothing-    , _criReplicationInstanceIdentifier = pReplicationInstanceIdentifier_-    , _criReplicationInstanceClass = pReplicationInstanceClass_-    }+  CreateReplicationInstance'+  { _criEngineVersion = Nothing+  , _criPubliclyAccessible = Nothing+  , _criAutoMinorVersionUpgrade = Nothing+  , _criReplicationSubnetGroupIdentifier = Nothing+  , _criPreferredMaintenanceWindow = Nothing+  , _criKMSKeyId = Nothing+  , _criAvailabilityZone = Nothing+  , _criVPCSecurityGroupIds = Nothing+  , _criMultiAZ = 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});@@ -190,9 +192,9 @@                    (x .?> "ReplicationInstance") <*>                      (pure (fromEnum s))) -instance Hashable CreateReplicationInstance+instance Hashable CreateReplicationInstance where -instance NFData CreateReplicationInstance+instance NFData CreateReplicationInstance where  instance ToHeaders CreateReplicationInstance where         toHeaders@@ -242,10 +244,11 @@ -- -- /See:/ 'createReplicationInstanceResponse' smart constructor. data CreateReplicationInstanceResponse = CreateReplicationInstanceResponse'-    { _crirsReplicationInstance :: !(Maybe ReplicationInstance)-    , _crirsResponseStatus      :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -257,11 +260,10 @@     :: Int -- ^ 'crirsResponseStatus'     -> CreateReplicationInstanceResponse createReplicationInstanceResponse pResponseStatus_ =-    CreateReplicationInstanceResponse'-    { _crirsReplicationInstance = Nothing-    , _crirsResponseStatus = 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});@@ -271,3 +273,4 @@ crirsResponseStatus = lens _crirsResponseStatus (\ s a -> s{_crirsResponseStatus = a});  instance NFData CreateReplicationInstanceResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.CreateReplicationSubnetGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@     , 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+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  -- | --@@ -53,12 +53,13 @@ -- -- /See:/ 'createReplicationSubnetGroup' smart constructor. data CreateReplicationSubnetGroup = CreateReplicationSubnetGroup'-    { _crsgTags                              :: !(Maybe [Tag])-    , _crsgReplicationSubnetGroupIdentifier  :: !Text-    , _crsgReplicationSubnetGroupDescription :: !Text-    , _crsgSubnetIds                         :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -75,13 +76,14 @@     -> Text -- ^ 'crsgReplicationSubnetGroupDescription'     -> CreateReplicationSubnetGroup createReplicationSubnetGroup pReplicationSubnetGroupIdentifier_ pReplicationSubnetGroupDescription_ =-    CreateReplicationSubnetGroup'-    { _crsgTags = Nothing-    , _crsgReplicationSubnetGroupIdentifier = pReplicationSubnetGroupIdentifier_-    , _crsgReplicationSubnetGroupDescription = pReplicationSubnetGroupDescription_-    , _crsgSubnetIds = mempty-    }+  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;@@ -110,9 +112,9 @@                    (x .?> "ReplicationSubnetGroup") <*>                      (pure (fromEnum s))) -instance Hashable CreateReplicationSubnetGroup+instance Hashable CreateReplicationSubnetGroup where -instance NFData CreateReplicationSubnetGroup+instance NFData CreateReplicationSubnetGroup where  instance ToHeaders CreateReplicationSubnetGroup where         toHeaders@@ -149,10 +151,11 @@ -- -- /See:/ 'createReplicationSubnetGroupResponse' smart constructor. data CreateReplicationSubnetGroupResponse = CreateReplicationSubnetGroupResponse'-    { _crsgrsReplicationSubnetGroup :: !(Maybe ReplicationSubnetGroup)-    , _crsgrsResponseStatus         :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -164,11 +167,12 @@     :: Int -- ^ 'crsgrsResponseStatus'     -> CreateReplicationSubnetGroupResponse createReplicationSubnetGroupResponse pResponseStatus_ =-    CreateReplicationSubnetGroupResponse'-    { _crsgrsReplicationSubnetGroup = Nothing-    , _crsgrsResponseStatus = 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});@@ -178,3 +182,4 @@ crsgrsResponseStatus = lens _crsgrsResponseStatus (\ s a -> s{_crsgrsResponseStatus = a});  instance NFData CreateReplicationSubnetGroupResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.CreateReplicationTask--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,12 +45,12 @@     , 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+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  -- | --@@ -58,28 +58,29 @@ -- -- /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)+  { _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' - Settings for the task, such as target metadata settings.+-- * 'crtReplicationTaskSettings' - Settings for the task, such as target metadata settings. For a complete list of task settings, see <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Tasks.CustomizingTasks.TaskSettings.html Task Settings for AWS Database Migration Service Tasks> . -- -- * 'crtTags' - Tags to be added to the replication instance. -- -- * 'crtCdcStartTime' - The start time for the Change Data Capture (CDC) operation. ----- * 'crtReplicationTaskIdentifier' - 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' - The replication task identifier. Constraints:     * Must contain from 1 to 255 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. -- -- * 'crtSourceEndpointARN' - The Amazon Resource Name (ARN) string that uniquely identifies the endpoint. --@@ -89,7 +90,7 @@ -- -- * 'crtMigrationType' - The migration type. ----- * 'crtTableMappings' - The path of the JSON file that contains the table mappings. Preceed the path with "file://". For example, --table-mappings file://mappingfile.json+-- * 'crtTableMappings' - When using the AWS CLI or boto3, provide the path of the JSON file that contains the table mappings. Precede the path with "file://". When working with the DMS API, provide the JSON as the parameter value. For example, --table-mappings file://mappingfile.json createReplicationTask     :: Text -- ^ 'crtReplicationTaskIdentifier'     -> Text -- ^ 'crtSourceEndpointARN'@@ -99,19 +100,20 @@     -> 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_-    }+  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.++-- | Settings for the task, such as target metadata settings. For a complete list of task settings, see <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Tasks.CustomizingTasks.TaskSettings.html Task Settings for AWS Database Migration Service Tasks> . crtReplicationTaskSettings :: Lens' CreateReplicationTask (Maybe Text) crtReplicationTaskSettings = lens _crtReplicationTaskSettings (\ s a -> s{_crtReplicationTaskSettings = a}); @@ -123,7 +125,7 @@ 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.+-- | The replication task identifier. Constraints:     * Must contain from 1 to 255 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. crtReplicationTaskIdentifier :: Lens' CreateReplicationTask Text crtReplicationTaskIdentifier = lens _crtReplicationTaskIdentifier (\ s a -> s{_crtReplicationTaskIdentifier = a}); @@ -143,7 +145,7 @@ crtMigrationType :: Lens' CreateReplicationTask MigrationTypeValue crtMigrationType = lens _crtMigrationType (\ s a -> s{_crtMigrationType = a}); --- | The path of the JSON file that contains the table mappings. Preceed the path with "file://". For example, --table-mappings file://mappingfile.json+-- | When using the AWS CLI or boto3, provide the path of the JSON file that contains the table mappings. Precede the path with "file://". When working with the DMS API, provide the JSON as the parameter value. For example, --table-mappings file://mappingfile.json crtTableMappings :: Lens' CreateReplicationTask Text crtTableMappings = lens _crtTableMappings (\ s a -> s{_crtTableMappings = a}); @@ -157,9 +159,9 @@                  CreateReplicationTaskResponse' <$>                    (x .?> "ReplicationTask") <*> (pure (fromEnum s))) -instance Hashable CreateReplicationTask+instance Hashable CreateReplicationTask where -instance NFData CreateReplicationTask+instance NFData CreateReplicationTask where  instance ToHeaders CreateReplicationTask where         toHeaders@@ -202,10 +204,11 @@ -- -- /See:/ 'createReplicationTaskResponse' smart constructor. data CreateReplicationTaskResponse = CreateReplicationTaskResponse'-    { _crtrsReplicationTask :: !(Maybe ReplicationTask)-    , _crtrsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -217,11 +220,10 @@     :: Int -- ^ 'crtrsResponseStatus'     -> CreateReplicationTaskResponse createReplicationTaskResponse pResponseStatus_ =-    CreateReplicationTaskResponse'-    { _crtrsReplicationTask = Nothing-    , _crtrsResponseStatus = 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});@@ -230,4 +232,4 @@ crtrsResponseStatus :: Lens' CreateReplicationTaskResponse Int crtrsResponseStatus = lens _crtrsResponseStatus (\ s a -> s{_crtrsResponseStatus = a}); -instance NFData CreateReplicationTaskResponse+instance NFData CreateReplicationTaskResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DeleteCertificate--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,32 +37,32 @@     , dccrsResponseStatus     ) 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+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:/ 'deleteCertificate' smart constructor. newtype DeleteCertificate = DeleteCertificate'-    { _dcCertificateARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcCertificateARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteCertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcCertificateARN' - the Amazon Resource Name (ARN) of the deleted certificate.+-- * 'dcCertificateARN' - The Amazon Resource Name (ARN) of the deleted certificate. deleteCertificate     :: Text -- ^ 'dcCertificateARN'     -> DeleteCertificate deleteCertificate pCertificateARN_ =-    DeleteCertificate'-    { _dcCertificateARN = pCertificateARN_-    }+  DeleteCertificate' {_dcCertificateARN = pCertificateARN_} --- | the Amazon Resource Name (ARN) of the deleted certificate.++-- | The Amazon Resource Name (ARN) of the deleted certificate. dcCertificateARN :: Lens' DeleteCertificate Text dcCertificateARN = lens _dcCertificateARN (\ s a -> s{_dcCertificateARN = a}); @@ -75,9 +75,9 @@                  DeleteCertificateResponse' <$>                    (x .?> "Certificate") <*> (pure (fromEnum s))) -instance Hashable DeleteCertificate+instance Hashable DeleteCertificate where -instance NFData DeleteCertificate+instance NFData DeleteCertificate where  instance ToHeaders DeleteCertificate where         toHeaders@@ -103,27 +103,27 @@  -- | /See:/ 'deleteCertificateResponse' smart constructor. data DeleteCertificateResponse = DeleteCertificateResponse'-    { _dccrsCertificate    :: !(Maybe Certificate)-    , _dccrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dccrsCertificate    :: !(Maybe Certificate)+  , _dccrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteCertificateResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dccrsCertificate' - The SSL certificate.+-- * 'dccrsCertificate' - The Secure Sockets Layer (SSL) certificate. -- -- * 'dccrsResponseStatus' - -- | The response status code. deleteCertificateResponse     :: Int -- ^ 'dccrsResponseStatus'     -> DeleteCertificateResponse deleteCertificateResponse pResponseStatus_ =-    DeleteCertificateResponse'-    { _dccrsCertificate = Nothing-    , _dccrsResponseStatus = pResponseStatus_-    }+  DeleteCertificateResponse'+  {_dccrsCertificate = Nothing, _dccrsResponseStatus = pResponseStatus_} --- | The SSL certificate.++-- | The Secure Sockets Layer (SSL) certificate. dccrsCertificate :: Lens' DeleteCertificateResponse (Maybe Certificate) dccrsCertificate = lens _dccrsCertificate (\ s a -> s{_dccrsCertificate = a}); @@ -131,4 +131,4 @@ dccrsResponseStatus :: Lens' DeleteCertificateResponse Int dccrsResponseStatus = lens _dccrsResponseStatus (\ s a -> s{_dccrsResponseStatus = a}); -instance NFData DeleteCertificateResponse+instance NFData DeleteCertificateResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DeleteEndpoint--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , delrsResponseStatus     ) 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+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  -- | --@@ -52,9 +52,10 @@ -- -- /See:/ 'deleteEndpoint' smart constructor. newtype DeleteEndpoint = DeleteEndpoint'-    { _deEndpointARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -63,11 +64,9 @@ deleteEndpoint     :: Text -- ^ 'deEndpointARN'     -> DeleteEndpoint-deleteEndpoint pEndpointARN_ =-    DeleteEndpoint'-    { _deEndpointARN = pEndpointARN_-    }+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});@@ -81,9 +80,9 @@                  DeleteEndpointResponse' <$>                    (x .?> "Endpoint") <*> (pure (fromEnum s))) -instance Hashable DeleteEndpoint+instance Hashable DeleteEndpoint where -instance NFData DeleteEndpoint+instance NFData DeleteEndpoint where  instance ToHeaders DeleteEndpoint where         toHeaders@@ -111,10 +110,11 @@ -- -- /See:/ 'deleteEndpointResponse' smart constructor. data DeleteEndpointResponse = DeleteEndpointResponse'-    { _delrsEndpoint       :: !(Maybe Endpoint)-    , _delrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _delrsEndpoint       :: !(Maybe Endpoint)+  , _delrsResponseStatus :: !Int+  } deriving (Eq, 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:@@ -126,11 +126,10 @@     :: Int -- ^ 'delrsResponseStatus'     -> DeleteEndpointResponse deleteEndpointResponse pResponseStatus_ =-    DeleteEndpointResponse'-    { _delrsEndpoint = Nothing-    , _delrsResponseStatus = pResponseStatus_-    }+  DeleteEndpointResponse'+  {_delrsEndpoint = Nothing, _delrsResponseStatus = pResponseStatus_} + -- | The endpoint that was deleted. delrsEndpoint :: Lens' DeleteEndpointResponse (Maybe Endpoint) delrsEndpoint = lens _delrsEndpoint (\ s a -> s{_delrsEndpoint = a});@@ -139,4 +138,4 @@ delrsResponseStatus :: Lens' DeleteEndpointResponse Int delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a}); -instance NFData DeleteEndpointResponse+instance NFData DeleteEndpointResponse where

@@ -0,0 +1,143 @@+{-# 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.DeleteEventSubscription+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an AWS DMS event subscription.+--+--+module Network.AWS.DMS.DeleteEventSubscription+    (+    -- * Creating a Request+      deleteEventSubscription+    , DeleteEventSubscription+    -- * Request Lenses+    , desSubscriptionName++    -- * Destructuring the Response+    , deleteEventSubscriptionResponse+    , DeleteEventSubscriptionResponse+    -- * Response Lenses+    , desersEventSubscription+    , desersResponseStatus+    ) 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:/ 'deleteEventSubscription' smart constructor.+newtype DeleteEventSubscription = DeleteEventSubscription'+  { _desSubscriptionName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteEventSubscription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'desSubscriptionName' - The name of the DMS event notification subscription to be deleted.+deleteEventSubscription+    :: Text -- ^ 'desSubscriptionName'+    -> DeleteEventSubscription+deleteEventSubscription pSubscriptionName_ =+  DeleteEventSubscription' {_desSubscriptionName = pSubscriptionName_}+++-- | The name of the DMS event notification subscription to be deleted.+desSubscriptionName :: Lens' DeleteEventSubscription Text+desSubscriptionName = lens _desSubscriptionName (\ s a -> s{_desSubscriptionName = a});++instance AWSRequest DeleteEventSubscription where+        type Rs DeleteEventSubscription =+             DeleteEventSubscriptionResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DeleteEventSubscriptionResponse' <$>+                   (x .?> "EventSubscription") <*> (pure (fromEnum s)))++instance Hashable DeleteEventSubscription where++instance NFData DeleteEventSubscription where++instance ToHeaders DeleteEventSubscription where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DeleteEventSubscription" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteEventSubscription where+        toJSON DeleteEventSubscription'{..}+          = object+              (catMaybes+                 [Just ("SubscriptionName" .= _desSubscriptionName)])++instance ToPath DeleteEventSubscription where+        toPath = const "/"++instance ToQuery DeleteEventSubscription where+        toQuery = const mempty++-- |+--+--+--+-- /See:/ 'deleteEventSubscriptionResponse' smart constructor.+data DeleteEventSubscriptionResponse = DeleteEventSubscriptionResponse'+  { _desersEventSubscription :: !(Maybe EventSubscription)+  , _desersResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteEventSubscriptionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'desersEventSubscription' - The event subscription that was deleted.+--+-- * 'desersResponseStatus' - -- | The response status code.+deleteEventSubscriptionResponse+    :: Int -- ^ 'desersResponseStatus'+    -> DeleteEventSubscriptionResponse+deleteEventSubscriptionResponse pResponseStatus_ =+  DeleteEventSubscriptionResponse'+  {_desersEventSubscription = Nothing, _desersResponseStatus = pResponseStatus_}+++-- | The event subscription that was deleted.+desersEventSubscription :: Lens' DeleteEventSubscriptionResponse (Maybe EventSubscription)+desersEventSubscription = lens _desersEventSubscription (\ s a -> s{_desersEventSubscription = a});++-- | -- | The response status code.+desersResponseStatus :: Lens' DeleteEventSubscriptionResponse Int+desersResponseStatus = lens _desersResponseStatus (\ s a -> s{_desersResponseStatus = a});++instance NFData DeleteEventSubscriptionResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DeleteReplicationInstance--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , 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+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  -- | --@@ -52,9 +52,10 @@ -- -- /See:/ 'deleteReplicationInstance' smart constructor. newtype DeleteReplicationInstance = DeleteReplicationInstance'-    { _driReplicationInstanceARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -64,10 +65,10 @@     :: Text -- ^ 'driReplicationInstanceARN'     -> DeleteReplicationInstance deleteReplicationInstance pReplicationInstanceARN_ =-    DeleteReplicationInstance'-    { _driReplicationInstanceARN = 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});@@ -83,9 +84,9 @@                    (x .?> "ReplicationInstance") <*>                      (pure (fromEnum s))) -instance Hashable DeleteReplicationInstance+instance Hashable DeleteReplicationInstance where -instance NFData DeleteReplicationInstance+instance NFData DeleteReplicationInstance where  instance ToHeaders DeleteReplicationInstance where         toHeaders@@ -117,10 +118,11 @@ -- -- /See:/ 'deleteReplicationInstanceResponse' smart constructor. data DeleteReplicationInstanceResponse = DeleteReplicationInstanceResponse'-    { _drirsReplicationInstance :: !(Maybe ReplicationInstance)-    , _drirsResponseStatus      :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -132,11 +134,10 @@     :: Int -- ^ 'drirsResponseStatus'     -> DeleteReplicationInstanceResponse deleteReplicationInstanceResponse pResponseStatus_ =-    DeleteReplicationInstanceResponse'-    { _drirsReplicationInstance = Nothing-    , _drirsResponseStatus = 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});@@ -146,3 +147,4 @@ drirsResponseStatus = lens _drirsResponseStatus (\ s a -> s{_drirsResponseStatus = a});  instance NFData DeleteReplicationInstanceResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DeleteReplicationSubnetGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,12 +36,12 @@     , 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+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  -- | --@@ -49,9 +49,10 @@ -- -- /See:/ 'deleteReplicationSubnetGroup' smart constructor. newtype DeleteReplicationSubnetGroup = DeleteReplicationSubnetGroup'-    { _drsgReplicationSubnetGroupIdentifier :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -61,10 +62,10 @@     :: Text -- ^ 'drsgReplicationSubnetGroupIdentifier'     -> DeleteReplicationSubnetGroup deleteReplicationSubnetGroup pReplicationSubnetGroupIdentifier_ =-    DeleteReplicationSubnetGroup'-    { _drsgReplicationSubnetGroupIdentifier = pReplicationSubnetGroupIdentifier_-    }+  DeleteReplicationSubnetGroup'+  {_drsgReplicationSubnetGroupIdentifier = pReplicationSubnetGroupIdentifier_} + -- | The subnet group name of the replication instance. drsgReplicationSubnetGroupIdentifier :: Lens' DeleteReplicationSubnetGroup Text drsgReplicationSubnetGroupIdentifier = lens _drsgReplicationSubnetGroupIdentifier (\ s a -> s{_drsgReplicationSubnetGroupIdentifier = a});@@ -80,9 +81,9 @@                  DeleteReplicationSubnetGroupResponse' <$>                    (pure (fromEnum s))) -instance Hashable DeleteReplicationSubnetGroup+instance Hashable DeleteReplicationSubnetGroup where -instance NFData DeleteReplicationSubnetGroup+instance NFData DeleteReplicationSubnetGroup where  instance ToHeaders DeleteReplicationSubnetGroup where         toHeaders@@ -114,9 +115,10 @@ -- -- /See:/ 'deleteReplicationSubnetGroupResponse' smart constructor. newtype DeleteReplicationSubnetGroupResponse = DeleteReplicationSubnetGroupResponse'-    { _drsgrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -126,12 +128,13 @@     :: Int -- ^ 'drsgrsResponseStatus'     -> DeleteReplicationSubnetGroupResponse deleteReplicationSubnetGroupResponse pResponseStatus_ =-    DeleteReplicationSubnetGroupResponse'-    { _drsgrsResponseStatus = pResponseStatus_-    }+  DeleteReplicationSubnetGroupResponse'+  {_drsgrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. drsgrsResponseStatus :: Lens' DeleteReplicationSubnetGroupResponse Int drsgrsResponseStatus = lens _drsgrsResponseStatus (\ s a -> s{_drsgrsResponseStatus = a});  instance NFData DeleteReplicationSubnetGroupResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DeleteReplicationTask--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , 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+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  -- | --@@ -50,9 +50,10 @@ -- -- /See:/ 'deleteReplicationTask' smart constructor. newtype DeleteReplicationTask = DeleteReplicationTask'-    { _drtReplicationTaskARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -62,10 +63,9 @@     :: Text -- ^ 'drtReplicationTaskARN'     -> DeleteReplicationTask deleteReplicationTask pReplicationTaskARN_ =-    DeleteReplicationTask'-    { _drtReplicationTaskARN = 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});@@ -80,9 +80,9 @@                  DeleteReplicationTaskResponse' <$>                    (x .?> "ReplicationTask") <*> (pure (fromEnum s))) -instance Hashable DeleteReplicationTask+instance Hashable DeleteReplicationTask where -instance NFData DeleteReplicationTask+instance NFData DeleteReplicationTask where  instance ToHeaders DeleteReplicationTask where         toHeaders@@ -113,10 +113,11 @@ -- -- /See:/ 'deleteReplicationTaskResponse' smart constructor. data DeleteReplicationTaskResponse = DeleteReplicationTaskResponse'-    { _drtrsReplicationTask :: !(Maybe ReplicationTask)-    , _drtrsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -128,11 +129,10 @@     :: Int -- ^ 'drtrsResponseStatus'     -> DeleteReplicationTaskResponse deleteReplicationTaskResponse pResponseStatus_ =-    DeleteReplicationTaskResponse'-    { _drtrsReplicationTask = Nothing-    , _drtrsResponseStatus = pResponseStatus_-    }+  DeleteReplicationTaskResponse'+  {_drtrsReplicationTask = Nothing, _drtrsResponseStatus = pResponseStatus_} + -- | The deleted replication task. drtrsReplicationTask :: Lens' DeleteReplicationTaskResponse (Maybe ReplicationTask) drtrsReplicationTask = lens _drtrsReplicationTask (\ s a -> s{_drtrsReplicationTask = a});@@ -141,4 +141,4 @@ drtrsResponseStatus :: Lens' DeleteReplicationTaskResponse Int drtrsResponseStatus = lens _drtrsResponseStatus (\ s a -> s{_drtrsResponseStatus = a}); -instance NFData DeleteReplicationTaskResponse+instance NFData DeleteReplicationTaskResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DescribeAccountAttributes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , daarsResponseStatus     ) where -import           Network.AWS.DMS.Types-import           Network.AWS.DMS.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+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  -- | --@@ -50,15 +50,17 @@ -- -- /See:/ 'describeAccountAttributes' smart constructor. data DescribeAccountAttributes =-    DescribeAccountAttributes'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DescribeAccountAttributes'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAccountAttributes' with the minimum fields required to make a request. -- describeAccountAttributes     :: DescribeAccountAttributes describeAccountAttributes = DescribeAccountAttributes' + instance AWSRequest DescribeAccountAttributes where         type Rs DescribeAccountAttributes =              DescribeAccountAttributesResponse@@ -70,9 +72,9 @@                    (x .?> "AccountQuotas" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable DescribeAccountAttributes+instance Hashable DescribeAccountAttributes where -instance NFData DescribeAccountAttributes+instance NFData DescribeAccountAttributes where  instance ToHeaders DescribeAccountAttributes where         toHeaders@@ -99,10 +101,11 @@ -- -- /See:/ 'describeAccountAttributesResponse' smart constructor. data DescribeAccountAttributesResponse = DescribeAccountAttributesResponse'-    { _daarsAccountQuotas  :: !(Maybe [AccountQuota])-    , _daarsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _daarsAccountQuotas  :: !(Maybe [AccountQuota])+  , _daarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAccountAttributesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -114,11 +117,10 @@     :: Int -- ^ 'daarsResponseStatus'     -> DescribeAccountAttributesResponse describeAccountAttributesResponse pResponseStatus_ =-    DescribeAccountAttributesResponse'-    { _daarsAccountQuotas = Nothing-    , _daarsResponseStatus = pResponseStatus_-    }+  DescribeAccountAttributesResponse'+  {_daarsAccountQuotas = Nothing, _daarsResponseStatus = pResponseStatus_} + -- | Account quota information. daarsAccountQuotas :: Lens' DescribeAccountAttributesResponse [AccountQuota] daarsAccountQuotas = lens _daarsAccountQuotas (\ s a -> s{_daarsAccountQuotas = a}) . _Default . _Coerce;@@ -128,3 +130,4 @@ daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a});  instance NFData DescribeAccountAttributesResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DescribeCertificates--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,20 +40,21 @@     , 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+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:/ 'describeCertificates' smart constructor. data DescribeCertificates = DescribeCertificates'-    { _dFilters    :: !(Maybe [Filter])-    , _dMarker     :: !(Maybe Text)-    , _dMaxRecords :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dFilters    :: !(Maybe [Filter])+  , _dMarker     :: !(Maybe Text)+  , _dMaxRecords :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCertificates' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,12 +67,10 @@ describeCertificates     :: DescribeCertificates describeCertificates =-    DescribeCertificates'-    { _dFilters = Nothing-    , _dMarker = Nothing-    , _dMaxRecords = Nothing-    }+  DescribeCertificates'+  {_dFilters = Nothing, _dMarker = Nothing, _dMaxRecords = Nothing} + -- | Filters applied to the certificate described in the form of key-value pairs. dFilters :: Lens' DescribeCertificates [Filter] dFilters = lens _dFilters (\ s a -> s{_dFilters = a}) . _Default . _Coerce;@@ -96,9 +95,9 @@                      (x .?> "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeCertificates+instance Hashable DescribeCertificates where -instance NFData DescribeCertificates+instance NFData DescribeCertificates where  instance ToHeaders DescribeCertificates where         toHeaders@@ -126,16 +125,17 @@  -- | /See:/ 'describeCertificatesResponse' smart constructor. data DescribeCertificatesResponse = DescribeCertificatesResponse'-    { _dcrsCertificates   :: !(Maybe [Certificate])-    , _dcrsMarker         :: !(Maybe Text)-    , _dcrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcrsCertificates   :: !(Maybe [Certificate])+  , _dcrsMarker         :: !(Maybe Text)+  , _dcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCertificatesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcrsCertificates' - The SSL certificates associated with the replication instance.+-- * 'dcrsCertificates' - The Secure Sockets Layer (SSL) certificates associated with the replication instance. -- -- * 'dcrsMarker' - The pagination token. --@@ -144,13 +144,14 @@     :: Int -- ^ 'dcrsResponseStatus'     -> DescribeCertificatesResponse describeCertificatesResponse pResponseStatus_ =-    DescribeCertificatesResponse'-    { _dcrsCertificates = Nothing-    , _dcrsMarker = Nothing-    , _dcrsResponseStatus = pResponseStatus_-    }+  DescribeCertificatesResponse'+  { _dcrsCertificates = Nothing+  , _dcrsMarker = Nothing+  , _dcrsResponseStatus = pResponseStatus_+  } --- | The SSL certificates associated with the replication instance.++-- | The Secure Sockets Layer (SSL) certificates associated with the replication instance. dcrsCertificates :: Lens' DescribeCertificatesResponse [Certificate] dcrsCertificates = lens _dcrsCertificates (\ s a -> s{_dcrsCertificates = a}) . _Default . _Coerce; @@ -162,4 +163,4 @@ dcrsResponseStatus :: Lens' DescribeCertificatesResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a}); -instance NFData DescribeCertificatesResponse+instance NFData DescribeCertificatesResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DescribeConnections--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@     , 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+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  -- | --@@ -53,11 +53,12 @@ -- -- /See:/ 'describeConnections' smart constructor. data DescribeConnections = DescribeConnections'-    { _dcFilters    :: !(Maybe [Filter])-    , _dcMarker     :: !(Maybe Text)-    , _dcMaxRecords :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -70,12 +71,10 @@ describeConnections     :: DescribeConnections describeConnections =-    DescribeConnections'-    { _dcFilters = Nothing-    , _dcMarker = Nothing-    , _dcMaxRecords = Nothing-    }+  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;@@ -99,9 +98,9 @@                    (x .?> "Connections" .!@ mempty) <*> (x .?> "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeConnections+instance Hashable DescribeConnections where -instance NFData DescribeConnections+instance NFData DescribeConnections where  instance ToHeaders DescribeConnections where         toHeaders@@ -133,11 +132,12 @@ -- -- /See:/ 'describeConnectionsResponse' smart constructor. data DescribeConnectionsResponse = DescribeConnectionsResponse'-    { _drsConnections    :: !(Maybe [Connection])-    , _drsMarker         :: !(Maybe Text)-    , _drsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drsConnections    :: !(Maybe [Connection])+  , _drsMarker         :: !(Maybe Text)+  , _drsResponseStatus :: !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:@@ -151,12 +151,13 @@     :: Int -- ^ 'drsResponseStatus'     -> DescribeConnectionsResponse describeConnectionsResponse pResponseStatus_ =-    DescribeConnectionsResponse'-    { _drsConnections = Nothing-    , _drsMarker = Nothing-    , _drsResponseStatus = pResponseStatus_-    }+  DescribeConnectionsResponse'+  { _drsConnections = Nothing+  , _drsMarker = Nothing+  , _drsResponseStatus = pResponseStatus_+  } + -- | A description of the connections. drsConnections :: Lens' DescribeConnectionsResponse [Connection] drsConnections = lens _drsConnections (\ s a -> s{_drsConnections = a}) . _Default . _Coerce;@@ -169,4 +170,4 @@ drsResponseStatus :: Lens' DescribeConnectionsResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DescribeConnectionsResponse+instance NFData DescribeConnectionsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DescribeEndpointTypes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@     , 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+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  -- | --@@ -53,11 +53,12 @@ -- -- /See:/ 'describeEndpointTypes' smart constructor. data DescribeEndpointTypes = DescribeEndpointTypes'-    { _detFilters    :: !(Maybe [Filter])-    , _detMarker     :: !(Maybe Text)-    , _detMaxRecords :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -70,12 +71,10 @@ describeEndpointTypes     :: DescribeEndpointTypes describeEndpointTypes =-    DescribeEndpointTypes'-    { _detFilters = Nothing-    , _detMarker = Nothing-    , _detMaxRecords = Nothing-    }+  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;@@ -100,9 +99,9 @@                      (x .?> "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeEndpointTypes+instance Hashable DescribeEndpointTypes where -instance NFData DescribeEndpointTypes+instance NFData DescribeEndpointTypes where  instance ToHeaders DescribeEndpointTypes where         toHeaders@@ -134,11 +133,12 @@ -- -- /See:/ 'describeEndpointTypesResponse' smart constructor. data DescribeEndpointTypesResponse = DescribeEndpointTypesResponse'-    { _detrsSupportedEndpointTypes :: !(Maybe [SupportedEndpointType])-    , _detrsMarker                 :: !(Maybe Text)-    , _detrsResponseStatus         :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -152,12 +152,13 @@     :: Int -- ^ 'detrsResponseStatus'     -> DescribeEndpointTypesResponse describeEndpointTypesResponse pResponseStatus_ =-    DescribeEndpointTypesResponse'-    { _detrsSupportedEndpointTypes = Nothing-    , _detrsMarker = Nothing-    , _detrsResponseStatus = 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;@@ -170,4 +171,4 @@ detrsResponseStatus :: Lens' DescribeEndpointTypesResponse Int detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a}); -instance NFData DescribeEndpointTypesResponse+instance NFData DescribeEndpointTypesResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DescribeEndpoints--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -27,9 +27,9 @@       describeEndpoints     , DescribeEndpoints     -- * Request Lenses-    , deFilters-    , deMarker-    , deMaxRecords+    , desFilters+    , desMarker+    , desMaxRecords      -- * Destructuring the Response     , describeEndpointsResponse@@ -40,12 +40,12 @@     , 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+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  -- | --@@ -53,40 +53,39 @@ -- -- /See:/ 'describeEndpoints' smart constructor. data DescribeEndpoints = DescribeEndpoints'-    { _deFilters    :: !(Maybe [Filter])-    , _deMarker     :: !(Maybe Text)-    , _deMaxRecords :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _desFilters    :: !(Maybe [Filter])+  , _desMarker     :: !(Maybe Text)+  , _desMaxRecords :: !(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' - Filters applied to the describe action. Valid filter names: endpoint-arn | endpoint-type | endpoint-id | engine-name+-- * 'desFilters' - Filters applied to the describe action. Valid filter names: endpoint-arn | endpoint-type | endpoint-id | engine-name ----- * 'deMarker' - 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@ .+-- * 'desMarker' - 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@ . ----- * 'deMaxRecords' - 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.+-- * 'desMaxRecords' - 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. describeEndpoints     :: DescribeEndpoints describeEndpoints =-    DescribeEndpoints'-    { _deFilters = Nothing-    , _deMarker = Nothing-    , _deMaxRecords = Nothing-    }+  DescribeEndpoints'+  {_desFilters = Nothing, _desMarker = Nothing, _desMaxRecords = 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;+desFilters :: Lens' DescribeEndpoints [Filter]+desFilters = lens _desFilters (\ s a -> s{_desFilters = 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});+desMarker :: Lens' DescribeEndpoints (Maybe Text)+desMarker = lens _desMarker (\ s a -> s{_desMarker = 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});+desMaxRecords :: Lens' DescribeEndpoints (Maybe Int)+desMaxRecords = lens _desMaxRecords (\ s a -> s{_desMaxRecords = a});  instance AWSRequest DescribeEndpoints where         type Rs DescribeEndpoints = DescribeEndpointsResponse@@ -98,9 +97,9 @@                    (x .?> "Marker") <*> (x .?> "Endpoints" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeEndpoints+instance Hashable DescribeEndpoints where -instance NFData DescribeEndpoints+instance NFData DescribeEndpoints where  instance ToHeaders DescribeEndpoints where         toHeaders@@ -116,9 +115,9 @@         toJSON DescribeEndpoints'{..}           = object               (catMaybes-                 [("Filters" .=) <$> _deFilters,-                  ("Marker" .=) <$> _deMarker,-                  ("MaxRecords" .=) <$> _deMaxRecords])+                 [("Filters" .=) <$> _desFilters,+                  ("Marker" .=) <$> _desMarker,+                  ("MaxRecords" .=) <$> _desMaxRecords])  instance ToPath DescribeEndpoints where         toPath = const "/"@@ -132,11 +131,12 @@ -- -- /See:/ 'describeEndpointsResponse' smart constructor. data DescribeEndpointsResponse = DescribeEndpointsResponse'-    { _dersMarker         :: !(Maybe Text)-    , _dersEndpoints      :: !(Maybe [Endpoint])-    , _dersResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dersMarker         :: !(Maybe Text)+  , _dersEndpoints      :: !(Maybe [Endpoint])+  , _dersResponseStatus :: !Int+  } deriving (Eq, 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:@@ -150,12 +150,13 @@     :: Int -- ^ 'dersResponseStatus'     -> DescribeEndpointsResponse describeEndpointsResponse pResponseStatus_ =-    DescribeEndpointsResponse'-    { _dersMarker = Nothing-    , _dersEndpoints = Nothing-    , _dersResponseStatus = 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});@@ -168,4 +169,4 @@ dersResponseStatus :: Lens' DescribeEndpointsResponse Int dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a}); -instance NFData DescribeEndpointsResponse+instance NFData DescribeEndpointsResponse where

@@ -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.DescribeEventCategories+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists categories for all event source types, or, if specified, for a specified source type. You can see a list of the event categories and source types in <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Events.html Working with Events and Notifications > in the AWS Database Migration Service User Guide.+--+--+module Network.AWS.DMS.DescribeEventCategories+    (+    -- * Creating a Request+      describeEventCategories+    , DescribeEventCategories+    -- * Request Lenses+    , decSourceType+    , decFilters++    -- * Destructuring the Response+    , describeEventCategoriesResponse+    , DescribeEventCategoriesResponse+    -- * Response Lenses+    , decrsEventCategoryGroupList+    , decrsResponseStatus+    ) 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:/ 'describeEventCategories' smart constructor.+data DescribeEventCategories = DescribeEventCategories'+  { _decSourceType :: !(Maybe Text)+  , _decFilters    :: !(Maybe [Filter])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeEventCategories' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'decSourceType' - The type of AWS DMS resource that generates events.  Valid values: replication-instance | migration-task+--+-- * 'decFilters' - Filters applied to the action.+describeEventCategories+    :: DescribeEventCategories+describeEventCategories =+  DescribeEventCategories' {_decSourceType = Nothing, _decFilters = Nothing}+++-- | The type of AWS DMS resource that generates events.  Valid values: replication-instance | migration-task+decSourceType :: Lens' DescribeEventCategories (Maybe Text)+decSourceType = lens _decSourceType (\ s a -> s{_decSourceType = a});++-- | Filters applied to the action.+decFilters :: Lens' DescribeEventCategories [Filter]+decFilters = lens _decFilters (\ s a -> s{_decFilters = a}) . _Default . _Coerce;++instance AWSRequest DescribeEventCategories where+        type Rs DescribeEventCategories =+             DescribeEventCategoriesResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeEventCategoriesResponse' <$>+                   (x .?> "EventCategoryGroupList" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable DescribeEventCategories where++instance NFData DescribeEventCategories where++instance ToHeaders DescribeEventCategories where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeEventCategories" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeEventCategories where+        toJSON DescribeEventCategories'{..}+          = object+              (catMaybes+                 [("SourceType" .=) <$> _decSourceType,+                  ("Filters" .=) <$> _decFilters])++instance ToPath DescribeEventCategories where+        toPath = const "/"++instance ToQuery DescribeEventCategories where+        toQuery = const mempty++-- |+--+--+--+-- /See:/ 'describeEventCategoriesResponse' smart constructor.+data DescribeEventCategoriesResponse = DescribeEventCategoriesResponse'+  { _decrsEventCategoryGroupList :: !(Maybe [EventCategoryGroup])+  , _decrsResponseStatus         :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeEventCategoriesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'decrsEventCategoryGroupList' - A list of event categories.+--+-- * 'decrsResponseStatus' - -- | The response status code.+describeEventCategoriesResponse+    :: Int -- ^ 'decrsResponseStatus'+    -> DescribeEventCategoriesResponse+describeEventCategoriesResponse pResponseStatus_ =+  DescribeEventCategoriesResponse'+  { _decrsEventCategoryGroupList = Nothing+  , _decrsResponseStatus = pResponseStatus_+  }+++-- | A list of event categories.+decrsEventCategoryGroupList :: Lens' DescribeEventCategoriesResponse [EventCategoryGroup]+decrsEventCategoryGroupList = lens _decrsEventCategoryGroupList (\ s a -> s{_decrsEventCategoryGroupList = a}) . _Default . _Coerce;++-- | -- | The response status code.+decrsResponseStatus :: Lens' DescribeEventCategoriesResponse Int+decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a});++instance NFData DescribeEventCategoriesResponse where

@@ -0,0 +1,190 @@+{-# 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.DescribeEventSubscriptions+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all the event subscriptions for a customer account. The description of a subscription includes @SubscriptionName@ , @SNSTopicARN@ , @CustomerID@ , @SourceType@ , @SourceID@ , @CreationTime@ , and @Status@ .+--+--+-- If you specify @SubscriptionName@ , this action lists the description for that subscription.+--+module Network.AWS.DMS.DescribeEventSubscriptions+    (+    -- * Creating a Request+      describeEventSubscriptions+    , DescribeEventSubscriptions+    -- * Request Lenses+    , dessSubscriptionName+    , dessFilters+    , dessMarker+    , dessMaxRecords++    -- * Destructuring the Response+    , describeEventSubscriptionsResponse+    , DescribeEventSubscriptionsResponse+    -- * Response Lenses+    , desrsEventSubscriptionsList+    , desrsMarker+    , desrsResponseStatus+    ) 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:/ 'describeEventSubscriptions' smart constructor.+data DescribeEventSubscriptions = DescribeEventSubscriptions'+  { _dessSubscriptionName :: !(Maybe Text)+  , _dessFilters          :: !(Maybe [Filter])+  , _dessMarker           :: !(Maybe Text)+  , _dessMaxRecords       :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeEventSubscriptions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dessSubscriptionName' - The name of the AWS DMS event subscription to be described.+--+-- * 'dessFilters' - Filters applied to the action.+--+-- * 'dessMarker' - 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@ .+--+-- * 'dessMaxRecords' - 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.+describeEventSubscriptions+    :: DescribeEventSubscriptions+describeEventSubscriptions =+  DescribeEventSubscriptions'+  { _dessSubscriptionName = Nothing+  , _dessFilters = Nothing+  , _dessMarker = Nothing+  , _dessMaxRecords = Nothing+  }+++-- | The name of the AWS DMS event subscription to be described.+dessSubscriptionName :: Lens' DescribeEventSubscriptions (Maybe Text)+dessSubscriptionName = lens _dessSubscriptionName (\ s a -> s{_dessSubscriptionName = a});++-- | Filters applied to the action.+dessFilters :: Lens' DescribeEventSubscriptions [Filter]+dessFilters = lens _dessFilters (\ s a -> s{_dessFilters = 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@ .+dessMarker :: Lens' DescribeEventSubscriptions (Maybe Text)+dessMarker = lens _dessMarker (\ s a -> s{_dessMarker = 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.+dessMaxRecords :: Lens' DescribeEventSubscriptions (Maybe Int)+dessMaxRecords = lens _dessMaxRecords (\ s a -> s{_dessMaxRecords = a});++instance AWSRequest DescribeEventSubscriptions where+        type Rs DescribeEventSubscriptions =+             DescribeEventSubscriptionsResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeEventSubscriptionsResponse' <$>+                   (x .?> "EventSubscriptionsList" .!@ mempty) <*>+                     (x .?> "Marker")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeEventSubscriptions where++instance NFData DescribeEventSubscriptions where++instance ToHeaders DescribeEventSubscriptions where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeEventSubscriptions" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeEventSubscriptions where+        toJSON DescribeEventSubscriptions'{..}+          = object+              (catMaybes+                 [("SubscriptionName" .=) <$> _dessSubscriptionName,+                  ("Filters" .=) <$> _dessFilters,+                  ("Marker" .=) <$> _dessMarker,+                  ("MaxRecords" .=) <$> _dessMaxRecords])++instance ToPath DescribeEventSubscriptions where+        toPath = const "/"++instance ToQuery DescribeEventSubscriptions where+        toQuery = const mempty++-- |+--+--+--+-- /See:/ 'describeEventSubscriptionsResponse' smart constructor.+data DescribeEventSubscriptionsResponse = DescribeEventSubscriptionsResponse'+  { _desrsEventSubscriptionsList :: !(Maybe [EventSubscription])+  , _desrsMarker                 :: !(Maybe Text)+  , _desrsResponseStatus         :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeEventSubscriptionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'desrsEventSubscriptionsList' - A list of event subscriptions.+--+-- * 'desrsMarker' - 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@ .+--+-- * 'desrsResponseStatus' - -- | The response status code.+describeEventSubscriptionsResponse+    :: Int -- ^ 'desrsResponseStatus'+    -> DescribeEventSubscriptionsResponse+describeEventSubscriptionsResponse pResponseStatus_ =+  DescribeEventSubscriptionsResponse'+  { _desrsEventSubscriptionsList = Nothing+  , _desrsMarker = Nothing+  , _desrsResponseStatus = pResponseStatus_+  }+++-- | A list of event subscriptions.+desrsEventSubscriptionsList :: Lens' DescribeEventSubscriptionsResponse [EventSubscription]+desrsEventSubscriptionsList = lens _desrsEventSubscriptionsList (\ s a -> s{_desrsEventSubscriptionsList = 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@ .+desrsMarker :: Lens' DescribeEventSubscriptionsResponse (Maybe Text)+desrsMarker = lens _desrsMarker (\ s a -> s{_desrsMarker = a});++-- | -- | The response status code.+desrsResponseStatus :: Lens' DescribeEventSubscriptionsResponse Int+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});++instance NFData DescribeEventSubscriptionsResponse+         where

@@ -0,0 +1,234 @@+{-# 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.DescribeEvents+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists events for a given source identifier and source type. You can also specify a start and end time. For more information on AWS DMS events, see <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Events.html Working with Events and Notifications > .+--+--+module Network.AWS.DMS.DescribeEvents+    (+    -- * Creating a Request+      describeEvents+    , DescribeEvents+    -- * Request Lenses+    , deStartTime+    , deSourceType+    , deFilters+    , deSourceIdentifier+    , deEventCategories+    , deMarker+    , deMaxRecords+    , deEndTime+    , deDuration++    -- * Destructuring the Response+    , describeEventsResponse+    , DescribeEventsResponse+    -- * Response Lenses+    , deersEvents+    , deersMarker+    , deersResponseStatus+    ) 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:/ 'describeEvents' smart constructor.+data DescribeEvents = DescribeEvents'+  { _deStartTime        :: !(Maybe POSIX)+  , _deSourceType       :: !(Maybe SourceType)+  , _deFilters          :: !(Maybe [Filter])+  , _deSourceIdentifier :: !(Maybe Text)+  , _deEventCategories  :: !(Maybe [Text])+  , _deMarker           :: !(Maybe Text)+  , _deMaxRecords       :: !(Maybe Int)+  , _deEndTime          :: !(Maybe POSIX)+  , _deDuration         :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeEvents' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'deStartTime' - The start time for the events to be listed.+--+-- * 'deSourceType' - The type of AWS DMS resource that generates events. Valid values: replication-instance | migration-task+--+-- * 'deFilters' - Filters applied to the action.+--+-- * 'deSourceIdentifier' - The identifier of the event source. An identifier must begin with a letter and must contain only ASCII letters, digits, and hyphens. It cannot end with a hyphen or contain two consecutive hyphens.+--+-- * 'deEventCategories' - A list of event categories for a source type that you want to subscribe to.+--+-- * 'deMarker' - 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@ .+--+-- * 'deMaxRecords' - 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.+--+-- * 'deEndTime' - The end time for the events to be listed.+--+-- * 'deDuration' - The duration of the events to be listed.+describeEvents+    :: DescribeEvents+describeEvents =+  DescribeEvents'+  { _deStartTime = Nothing+  , _deSourceType = Nothing+  , _deFilters = Nothing+  , _deSourceIdentifier = Nothing+  , _deEventCategories = Nothing+  , _deMarker = Nothing+  , _deMaxRecords = Nothing+  , _deEndTime = Nothing+  , _deDuration = Nothing+  }+++-- | The start time for the events to be listed.+deStartTime :: Lens' DescribeEvents (Maybe UTCTime)+deStartTime = lens _deStartTime (\ s a -> s{_deStartTime = a}) . mapping _Time;++-- | The type of AWS DMS resource that generates events. Valid values: replication-instance | migration-task+deSourceType :: Lens' DescribeEvents (Maybe SourceType)+deSourceType = lens _deSourceType (\ s a -> s{_deSourceType = a});++-- | Filters applied to the action.+deFilters :: Lens' DescribeEvents [Filter]+deFilters = lens _deFilters (\ s a -> s{_deFilters = a}) . _Default . _Coerce;++-- | The identifier of the event source. An identifier must begin with a letter and must contain only ASCII letters, digits, and hyphens. It cannot end with a hyphen or contain two consecutive hyphens.+deSourceIdentifier :: Lens' DescribeEvents (Maybe Text)+deSourceIdentifier = lens _deSourceIdentifier (\ s a -> s{_deSourceIdentifier = a});++-- | A list of event categories for a source type that you want to subscribe to.+deEventCategories :: Lens' DescribeEvents [Text]+deEventCategories = lens _deEventCategories (\ s a -> s{_deEventCategories = 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' DescribeEvents (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' DescribeEvents (Maybe Int)+deMaxRecords = lens _deMaxRecords (\ s a -> s{_deMaxRecords = a});++-- | The end time for the events to be listed.+deEndTime :: Lens' DescribeEvents (Maybe UTCTime)+deEndTime = lens _deEndTime (\ s a -> s{_deEndTime = a}) . mapping _Time;++-- | The duration of the events to be listed.+deDuration :: Lens' DescribeEvents (Maybe Int)+deDuration = lens _deDuration (\ s a -> s{_deDuration = a});++instance AWSRequest DescribeEvents where+        type Rs DescribeEvents = DescribeEventsResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeEventsResponse' <$>+                   (x .?> "Events" .!@ mempty) <*> (x .?> "Marker") <*>+                     (pure (fromEnum s)))++instance Hashable DescribeEvents where++instance NFData DescribeEvents where++instance ToHeaders DescribeEvents where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeEvents" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeEvents where+        toJSON DescribeEvents'{..}+          = object+              (catMaybes+                 [("StartTime" .=) <$> _deStartTime,+                  ("SourceType" .=) <$> _deSourceType,+                  ("Filters" .=) <$> _deFilters,+                  ("SourceIdentifier" .=) <$> _deSourceIdentifier,+                  ("EventCategories" .=) <$> _deEventCategories,+                  ("Marker" .=) <$> _deMarker,+                  ("MaxRecords" .=) <$> _deMaxRecords,+                  ("EndTime" .=) <$> _deEndTime,+                  ("Duration" .=) <$> _deDuration])++instance ToPath DescribeEvents where+        toPath = const "/"++instance ToQuery DescribeEvents where+        toQuery = const mempty++-- |+--+--+--+-- /See:/ 'describeEventsResponse' smart constructor.+data DescribeEventsResponse = DescribeEventsResponse'+  { _deersEvents         :: !(Maybe [Event])+  , _deersMarker         :: !(Maybe Text)+  , _deersResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeEventsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'deersEvents' - The events described.+--+-- * 'deersMarker' - 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@ .+--+-- * 'deersResponseStatus' - -- | The response status code.+describeEventsResponse+    :: Int -- ^ 'deersResponseStatus'+    -> DescribeEventsResponse+describeEventsResponse pResponseStatus_ =+  DescribeEventsResponse'+  { _deersEvents = Nothing+  , _deersMarker = Nothing+  , _deersResponseStatus = pResponseStatus_+  }+++-- | The events described.+deersEvents :: Lens' DescribeEventsResponse [Event]+deersEvents = lens _deersEvents (\ s a -> s{_deersEvents = 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@ .+deersMarker :: Lens' DescribeEventsResponse (Maybe Text)+deersMarker = lens _deersMarker (\ s a -> s{_deersMarker = a});++-- | -- | The response status code.+deersResponseStatus :: Lens' DescribeEventsResponse Int+deersResponseStatus = lens _deersResponseStatus (\ s a -> s{_deersResponseStatus = a});++instance NFData DescribeEventsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DescribeOrderableReplicationInstances--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , 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+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  -- | --@@ -52,10 +52,11 @@ -- -- /See:/ 'describeOrderableReplicationInstances' smart constructor. data DescribeOrderableReplicationInstances = DescribeOrderableReplicationInstances'-    { _doriMarker     :: !(Maybe Text)-    , _doriMaxRecords :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -66,11 +67,10 @@ describeOrderableReplicationInstances     :: DescribeOrderableReplicationInstances describeOrderableReplicationInstances =-    DescribeOrderableReplicationInstances'-    { _doriMarker = Nothing-    , _doriMaxRecords = Nothing-    }+  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});@@ -80,7 +80,8 @@ doriMaxRecords = lens _doriMaxRecords (\ s a -> s{_doriMaxRecords = a});  instance AWSRequest-         DescribeOrderableReplicationInstances where+           DescribeOrderableReplicationInstances+         where         type Rs DescribeOrderableReplicationInstances =              DescribeOrderableReplicationInstancesResponse         request = postJSON dms@@ -93,12 +94,15 @@                      <*> (pure (fromEnum s)))  instance Hashable-         DescribeOrderableReplicationInstances+           DescribeOrderableReplicationInstances+         where  instance NFData DescribeOrderableReplicationInstances+         where  instance ToHeaders-         DescribeOrderableReplicationInstances where+           DescribeOrderableReplicationInstances+         where         toHeaders           = const               (mconcat@@ -121,7 +125,8 @@         toPath = const "/"  instance ToQuery-         DescribeOrderableReplicationInstances where+           DescribeOrderableReplicationInstances+         where         toQuery = const mempty  -- |@@ -130,11 +135,12 @@ -- -- /See:/ 'describeOrderableReplicationInstancesResponse' smart constructor. data DescribeOrderableReplicationInstancesResponse = DescribeOrderableReplicationInstancesResponse'-    { _dorirsMarker                        :: !(Maybe Text)-    , _dorirsOrderableReplicationInstances :: !(Maybe [OrderableReplicationInstance])-    , _dorirsResponseStatus                :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -148,12 +154,13 @@     :: Int -- ^ 'dorirsResponseStatus'     -> DescribeOrderableReplicationInstancesResponse describeOrderableReplicationInstancesResponse pResponseStatus_ =-    DescribeOrderableReplicationInstancesResponse'-    { _dorirsMarker = Nothing-    , _dorirsOrderableReplicationInstances = Nothing-    , _dorirsResponseStatus = 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});@@ -167,4 +174,5 @@ dorirsResponseStatus = lens _dorirsResponseStatus (\ s a -> s{_dorirsResponseStatus = a});  instance NFData-         DescribeOrderableReplicationInstancesResponse+           DescribeOrderableReplicationInstancesResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DescribeRefreshSchemasStatus--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , 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+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  -- | --@@ -50,9 +50,10 @@ -- -- /See:/ 'describeRefreshSchemasStatus' smart constructor. newtype DescribeRefreshSchemasStatus = DescribeRefreshSchemasStatus'-    { _drssEndpointARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -62,10 +63,9 @@     :: Text -- ^ 'drssEndpointARN'     -> DescribeRefreshSchemasStatus describeRefreshSchemasStatus pEndpointARN_ =-    DescribeRefreshSchemasStatus'-    { _drssEndpointARN = 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});@@ -82,9 +82,9 @@                    (x .?> "RefreshSchemasStatus") <*>                      (pure (fromEnum s))) -instance Hashable DescribeRefreshSchemasStatus+instance Hashable DescribeRefreshSchemasStatus where -instance NFData DescribeRefreshSchemasStatus+instance NFData DescribeRefreshSchemasStatus where  instance ToHeaders DescribeRefreshSchemasStatus where         toHeaders@@ -114,10 +114,11 @@ -- -- /See:/ 'describeRefreshSchemasStatusResponse' smart constructor. data DescribeRefreshSchemasStatusResponse = DescribeRefreshSchemasStatusResponse'-    { _drssrsRefreshSchemasStatus :: !(Maybe RefreshSchemasStatus)-    , _drssrsResponseStatus       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -129,11 +130,12 @@     :: Int -- ^ 'drssrsResponseStatus'     -> DescribeRefreshSchemasStatusResponse describeRefreshSchemasStatusResponse pResponseStatus_ =-    DescribeRefreshSchemasStatusResponse'-    { _drssrsRefreshSchemasStatus = Nothing-    , _drssrsResponseStatus = pResponseStatus_-    }+  DescribeRefreshSchemasStatusResponse'+  { _drssrsRefreshSchemasStatus = Nothing+  , _drssrsResponseStatus = pResponseStatus_+  } + -- | The status of the schema. drssrsRefreshSchemasStatus :: Lens' DescribeRefreshSchemasStatusResponse (Maybe RefreshSchemasStatus) drssrsRefreshSchemasStatus = lens _drssrsRefreshSchemasStatus (\ s a -> s{_drssrsRefreshSchemasStatus = a});@@ -143,3 +145,4 @@ drssrsResponseStatus = lens _drssrsResponseStatus (\ s a -> s{_drssrsResponseStatus = a});  instance NFData DescribeRefreshSchemasStatusResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DescribeReplicationInstances--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@     , 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+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  -- | --@@ -53,11 +53,12 @@ -- -- /See:/ 'describeReplicationInstances' smart constructor. data DescribeReplicationInstances = DescribeReplicationInstances'-    { _driFilters    :: !(Maybe [Filter])-    , _driMarker     :: !(Maybe Text)-    , _driMaxRecords :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -70,12 +71,10 @@ describeReplicationInstances     :: DescribeReplicationInstances describeReplicationInstances =-    DescribeReplicationInstances'-    { _driFilters = Nothing-    , _driMarker = Nothing-    , _driMaxRecords = Nothing-    }+  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;@@ -101,9 +100,9 @@                      (x .?> "ReplicationInstances" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeReplicationInstances+instance Hashable DescribeReplicationInstances where -instance NFData DescribeReplicationInstances+instance NFData DescribeReplicationInstances where  instance ToHeaders DescribeReplicationInstances where         toHeaders@@ -135,11 +134,12 @@ -- -- /See:/ 'describeReplicationInstancesResponse' smart constructor. data DescribeReplicationInstancesResponse = DescribeReplicationInstancesResponse'-    { _drisrsMarker               :: !(Maybe Text)-    , _drisrsReplicationInstances :: !(Maybe [ReplicationInstance])-    , _drisrsResponseStatus       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -153,12 +153,13 @@     :: Int -- ^ 'drisrsResponseStatus'     -> DescribeReplicationInstancesResponse describeReplicationInstancesResponse pResponseStatus_ =-    DescribeReplicationInstancesResponse'-    { _drisrsMarker = Nothing-    , _drisrsReplicationInstances = Nothing-    , _drisrsResponseStatus = 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});@@ -172,3 +173,4 @@ drisrsResponseStatus = lens _drisrsResponseStatus (\ s a -> s{_drisrsResponseStatus = a});  instance NFData DescribeReplicationInstancesResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DescribeReplicationSubnetGroups--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@     , 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+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  -- | --@@ -53,11 +53,12 @@ -- -- /See:/ 'describeReplicationSubnetGroups' smart constructor. data DescribeReplicationSubnetGroups = DescribeReplicationSubnetGroups'-    { _drsgFilters    :: !(Maybe [Filter])-    , _drsgMarker     :: !(Maybe Text)-    , _drsgMaxRecords :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -70,12 +71,10 @@ describeReplicationSubnetGroups     :: DescribeReplicationSubnetGroups describeReplicationSubnetGroups =-    DescribeReplicationSubnetGroups'-    { _drsgFilters = Nothing-    , _drsgMarker = Nothing-    , _drsgMaxRecords = Nothing-    }+  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;@@ -102,8 +101,9 @@                      <*> (pure (fromEnum s)))  instance Hashable DescribeReplicationSubnetGroups+         where -instance NFData DescribeReplicationSubnetGroups+instance NFData DescribeReplicationSubnetGroups where  instance ToHeaders DescribeReplicationSubnetGroups          where@@ -137,11 +137,12 @@ -- -- /See:/ 'describeReplicationSubnetGroupsResponse' smart constructor. data DescribeReplicationSubnetGroupsResponse = DescribeReplicationSubnetGroupsResponse'-    { _drsgsrsMarker                  :: !(Maybe Text)-    , _drsgsrsReplicationSubnetGroups :: !(Maybe [ReplicationSubnetGroup])-    , _drsgsrsResponseStatus          :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -155,12 +156,13 @@     :: Int -- ^ 'drsgsrsResponseStatus'     -> DescribeReplicationSubnetGroupsResponse describeReplicationSubnetGroupsResponse pResponseStatus_ =-    DescribeReplicationSubnetGroupsResponse'-    { _drsgsrsMarker = Nothing-    , _drsgsrsReplicationSubnetGroups = Nothing-    , _drsgsrsResponseStatus = 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});@@ -174,4 +176,5 @@ drsgsrsResponseStatus = lens _drsgsrsResponseStatus (\ s a -> s{_drsgsrsResponseStatus = a});  instance NFData-         DescribeReplicationSubnetGroupsResponse+           DescribeReplicationSubnetGroupsResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DescribeReplicationTasks--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@     , 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+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  -- | --@@ -53,11 +53,12 @@ -- -- /See:/ 'describeReplicationTasks' smart constructor. data DescribeReplicationTasks = DescribeReplicationTasks'-    { _drtFilters    :: !(Maybe [Filter])-    , _drtMarker     :: !(Maybe Text)-    , _drtMaxRecords :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -70,12 +71,10 @@ describeReplicationTasks     :: DescribeReplicationTasks describeReplicationTasks =-    DescribeReplicationTasks'-    { _drtFilters = Nothing-    , _drtMarker = Nothing-    , _drtMaxRecords = Nothing-    }+  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;@@ -100,9 +99,9 @@                      (x .?> "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeReplicationTasks+instance Hashable DescribeReplicationTasks where -instance NFData DescribeReplicationTasks+instance NFData DescribeReplicationTasks where  instance ToHeaders DescribeReplicationTasks where         toHeaders@@ -134,11 +133,12 @@ -- -- /See:/ 'describeReplicationTasksResponse' smart constructor. data DescribeReplicationTasksResponse = DescribeReplicationTasksResponse'-    { _drtsrsReplicationTasks :: !(Maybe [ReplicationTask])-    , _drtsrsMarker           :: !(Maybe Text)-    , _drtsrsResponseStatus   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -152,12 +152,13 @@     :: Int -- ^ 'drtsrsResponseStatus'     -> DescribeReplicationTasksResponse describeReplicationTasksResponse pResponseStatus_ =-    DescribeReplicationTasksResponse'-    { _drtsrsReplicationTasks = Nothing-    , _drtsrsMarker = Nothing-    , _drtsrsResponseStatus = 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;@@ -171,3 +172,4 @@ drtsrsResponseStatus = lens _drtsrsResponseStatus (\ s a -> s{_drtsrsResponseStatus = a});  instance NFData DescribeReplicationTasksResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.DescribeSchemas--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,12 +42,12 @@     , 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+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  -- | --@@ -55,11 +55,12 @@ -- -- /See:/ 'describeSchemas' smart constructor. data DescribeSchemas = DescribeSchemas'-    { _dsMarker      :: !(Maybe Text)-    , _dsMaxRecords  :: !(Maybe Int)-    , _dsEndpointARN :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -73,12 +74,10 @@     :: Text -- ^ 'dsEndpointARN'     -> DescribeSchemas describeSchemas pEndpointARN_ =-    DescribeSchemas'-    { _dsMarker = Nothing-    , _dsMaxRecords = Nothing-    , _dsEndpointARN = 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});@@ -101,9 +100,9 @@                    (x .?> "Schemas" .!@ mempty) <*> (x .?> "Marker") <*>                      (pure (fromEnum s))) -instance Hashable DescribeSchemas+instance Hashable DescribeSchemas where -instance NFData DescribeSchemas+instance NFData DescribeSchemas where  instance ToHeaders DescribeSchemas where         toHeaders@@ -134,11 +133,12 @@ -- -- /See:/ 'describeSchemasResponse' smart constructor. data DescribeSchemasResponse = DescribeSchemasResponse'-    { _dsrsSchemas        :: !(Maybe [Text])-    , _dsrsMarker         :: !(Maybe Text)-    , _dsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -152,12 +152,13 @@     :: Int -- ^ 'dsrsResponseStatus'     -> DescribeSchemasResponse describeSchemasResponse pResponseStatus_ =-    DescribeSchemasResponse'-    { _dsrsSchemas = Nothing-    , _dsrsMarker = Nothing-    , _dsrsResponseStatus = 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;@@ -170,4 +171,4 @@ dsrsResponseStatus :: Lens' DescribeSchemasResponse Int dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}); -instance NFData DescribeSchemasResponse+instance NFData DescribeSchemasResponse where

@@ -12,21 +12,24 @@  -- | -- Module      : Network.AWS.DMS.DescribeTableStatistics--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Returns table statistics on the database migration task, including table name, rows inserted, rows updated, and rows deleted. -- --+-- Note that the "last updated" column the DMS console only indicates the time that AWS DMS last updated the table statistics record for a table. It does not indicate the time of the last update to the table.+-- module Network.AWS.DMS.DescribeTableStatistics     (     -- * Creating a Request       describeTableStatistics     , DescribeTableStatistics     -- * Request Lenses+    , dtsFilters     , dtsMarker     , dtsMaxRecords     , dtsReplicationTaskARN@@ -41,12 +44,12 @@     , 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+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  -- | --@@ -54,35 +57,45 @@ -- -- /See:/ 'describeTableStatistics' smart constructor. data DescribeTableStatistics = DescribeTableStatistics'-    { _dtsMarker             :: !(Maybe Text)-    , _dtsMaxRecords         :: !(Maybe Int)-    , _dtsReplicationTaskARN :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtsFilters            :: !(Maybe [Filter])+  , _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: --+-- * 'dtsFilters' - Filters applied to the describe table statistics action. Valid filter names: schema-name | table-name | table-state A combination of filters creates an AND condition where each record matches all specified filters.+-- -- * 'dtsMarker' - 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@ . ----- * 'dtsMaxRecords' - 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' - 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 500. -- -- * 'dtsReplicationTaskARN' - The Amazon Resource Name (ARN) of the replication task. describeTableStatistics     :: Text -- ^ 'dtsReplicationTaskARN'     -> DescribeTableStatistics describeTableStatistics pReplicationTaskARN_ =-    DescribeTableStatistics'-    { _dtsMarker = Nothing-    , _dtsMaxRecords = Nothing-    , _dtsReplicationTaskARN = pReplicationTaskARN_-    }+  DescribeTableStatistics'+  { _dtsFilters = Nothing+  , _dtsMarker = Nothing+  , _dtsMaxRecords = Nothing+  , _dtsReplicationTaskARN = pReplicationTaskARN_+  } ++-- | Filters applied to the describe table statistics action. Valid filter names: schema-name | table-name | table-state A combination of filters creates an AND condition where each record matches all specified filters.+dtsFilters :: Lens' DescribeTableStatistics [Filter]+dtsFilters = lens _dtsFilters (\ s a -> s{_dtsFilters = 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@ . 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.+-- | 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 500. dtsMaxRecords :: Lens' DescribeTableStatistics (Maybe Int) dtsMaxRecords = lens _dtsMaxRecords (\ s a -> s{_dtsMaxRecords = a}); @@ -102,9 +115,9 @@                      (x .?> "TableStatistics" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeTableStatistics+instance Hashable DescribeTableStatistics where -instance NFData DescribeTableStatistics+instance NFData DescribeTableStatistics where  instance ToHeaders DescribeTableStatistics where         toHeaders@@ -120,7 +133,8 @@         toJSON DescribeTableStatistics'{..}           = object               (catMaybes-                 [("Marker" .=) <$> _dtsMarker,+                 [("Filters" .=) <$> _dtsFilters,+                  ("Marker" .=) <$> _dtsMarker,                   ("MaxRecords" .=) <$> _dtsMaxRecords,                   Just                     ("ReplicationTaskArn" .= _dtsReplicationTaskARN)])@@ -137,12 +151,13 @@ -- -- /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)+  { _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:@@ -158,13 +173,14 @@     :: Int -- ^ 'dtsrsResponseStatus'     -> DescribeTableStatisticsResponse describeTableStatisticsResponse pResponseStatus_ =-    DescribeTableStatisticsResponse'-    { _dtsrsReplicationTaskARN = Nothing-    , _dtsrsMarker = Nothing-    , _dtsrsTableStatistics = Nothing-    , _dtsrsResponseStatus = 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});@@ -181,4 +197,4 @@ dtsrsResponseStatus :: Lens' DescribeTableStatisticsResponse Int dtsrsResponseStatus = lens _dtsrsResponseStatus (\ s a -> s{_dtsrsResponseStatus = a}); -instance NFData DescribeTableStatisticsResponse+instance NFData DescribeTableStatisticsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.ImportCertificate--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -28,6 +28,8 @@     , ImportCertificate     -- * Request Lenses     , icCertificatePem+    , icCertificateWallet+    , icTags     , icCertificateIdentifier      -- * Destructuring the Response@@ -38,40 +40,58 @@     , icrsResponseStatus     ) 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+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:/ 'importCertificate' smart constructor. data ImportCertificate = ImportCertificate'-    { _icCertificatePem        :: !(Maybe Text)-    , _icCertificateIdentifier :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _icCertificatePem        :: !(Maybe Text)+  , _icCertificateWallet     :: !(Maybe Base64)+  , _icTags                  :: !(Maybe [Tag])+  , _icCertificateIdentifier :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ImportCertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'icCertificatePem' - The contents of the .pem X.509 certificate file.+-- * 'icCertificatePem' - The contents of the .pem X.509 certificate file for the certificate. ----- * 'icCertificateIdentifier' - The customer-assigned name of the certificate. Valid characters are [A-z_0-9].+-- * 'icCertificateWallet' - The location of the imported Oracle Wallet certificate for use with SSL.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.+--+-- * 'icTags' - The tags associated with the certificate.+--+-- * 'icCertificateIdentifier' - The customer-assigned name of the certificate. Valid characters are A-z and 0-9. importCertificate     :: Text -- ^ 'icCertificateIdentifier'     -> ImportCertificate importCertificate pCertificateIdentifier_ =-    ImportCertificate'-    { _icCertificatePem = Nothing-    , _icCertificateIdentifier = pCertificateIdentifier_-    }+  ImportCertificate'+  { _icCertificatePem = Nothing+  , _icCertificateWallet = Nothing+  , _icTags = Nothing+  , _icCertificateIdentifier = pCertificateIdentifier_+  } --- | The contents of the .pem X.509 certificate file.++-- | The contents of the .pem X.509 certificate file for the certificate. icCertificatePem :: Lens' ImportCertificate (Maybe Text) icCertificatePem = lens _icCertificatePem (\ s a -> s{_icCertificatePem = a}); --- | The customer-assigned name of the certificate. Valid characters are [A-z_0-9].+-- | The location of the imported Oracle Wallet certificate for use with SSL.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.+icCertificateWallet :: Lens' ImportCertificate (Maybe ByteString)+icCertificateWallet = lens _icCertificateWallet (\ s a -> s{_icCertificateWallet = a}) . mapping _Base64;++-- | The tags associated with the certificate.+icTags :: Lens' ImportCertificate [Tag]+icTags = lens _icTags (\ s a -> s{_icTags = a}) . _Default . _Coerce;++-- | The customer-assigned name of the certificate. Valid characters are A-z and 0-9. icCertificateIdentifier :: Lens' ImportCertificate Text icCertificateIdentifier = lens _icCertificateIdentifier (\ s a -> s{_icCertificateIdentifier = a}); @@ -84,9 +104,9 @@                  ImportCertificateResponse' <$>                    (x .?> "Certificate") <*> (pure (fromEnum s))) -instance Hashable ImportCertificate+instance Hashable ImportCertificate where -instance NFData ImportCertificate+instance NFData ImportCertificate where  instance ToHeaders ImportCertificate where         toHeaders@@ -103,6 +123,8 @@           = object               (catMaybes                  [("CertificatePem" .=) <$> _icCertificatePem,+                  ("CertificateWallet" .=) <$> _icCertificateWallet,+                  ("Tags" .=) <$> _icTags,                   Just                     ("CertificateIdentifier" .=                        _icCertificateIdentifier)])@@ -115,10 +137,11 @@  -- | /See:/ 'importCertificateResponse' smart constructor. data ImportCertificateResponse = ImportCertificateResponse'-    { _icrsCertificate    :: !(Maybe Certificate)-    , _icrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _icrsCertificate    :: !(Maybe Certificate)+  , _icrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ImportCertificateResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,11 +153,10 @@     :: Int -- ^ 'icrsResponseStatus'     -> ImportCertificateResponse importCertificateResponse pResponseStatus_ =-    ImportCertificateResponse'-    { _icrsCertificate = Nothing-    , _icrsResponseStatus = pResponseStatus_-    }+  ImportCertificateResponse'+  {_icrsCertificate = Nothing, _icrsResponseStatus = pResponseStatus_} + -- | The certificate to be uploaded. icrsCertificate :: Lens' ImportCertificateResponse (Maybe Certificate) icrsCertificate = lens _icrsCertificate (\ s a -> s{_icrsCertificate = a});@@ -143,4 +165,4 @@ icrsResponseStatus :: Lens' ImportCertificateResponse Int icrsResponseStatus = lens _icrsResponseStatus (\ s a -> s{_icrsResponseStatus = a}); -instance NFData ImportCertificateResponse+instance NFData ImportCertificateResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.ListTagsForResource--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , 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+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  -- | --@@ -50,9 +50,10 @@ -- -- /See:/ 'listTagsForResource' smart constructor. newtype ListTagsForResource = ListTagsForResource'-    { _ltfrResourceARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -62,10 +63,9 @@     :: Text -- ^ 'ltfrResourceARN'     -> ListTagsForResource listTagsForResource pResourceARN_ =-    ListTagsForResource'-    { _ltfrResourceARN = 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});@@ -80,9 +80,9 @@                  ListTagsForResourceResponse' <$>                    (x .?> "TagList" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable ListTagsForResource+instance Hashable ListTagsForResource where -instance NFData ListTagsForResource+instance NFData ListTagsForResource where  instance ToHeaders ListTagsForResource where         toHeaders@@ -112,10 +112,11 @@ -- -- /See:/ 'listTagsForResourceResponse' smart constructor. data ListTagsForResourceResponse = ListTagsForResourceResponse'-    { _ltfrrsTagList        :: !(Maybe [Tag])-    , _ltfrrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltfrrsTagList        :: !(Maybe [Tag])+  , _ltfrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTagsForResourceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -127,11 +128,10 @@     :: Int -- ^ 'ltfrrsResponseStatus'     -> ListTagsForResourceResponse listTagsForResourceResponse pResponseStatus_ =-    ListTagsForResourceResponse'-    { _ltfrrsTagList = Nothing-    , _ltfrrsResponseStatus = 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;@@ -140,4 +140,4 @@ ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a}); -instance NFData ListTagsForResourceResponse+instance NFData ListTagsForResourceResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.ModifyEndpoint--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -33,10 +33,13 @@     , meEndpointType     , meUsername     , meEngineName+    , meMongoDBSettings     , meSSLMode     , mePassword     , meDatabaseName+    , meS3Settings     , meEndpointIdentifier+    , meDynamoDBSettings     , mePort     , meEndpointARN @@ -48,12 +51,12 @@     , 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+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  -- | --@@ -61,20 +64,24 @@ -- -- /See:/ 'modifyEndpoint' smart constructor. data ModifyEndpoint = ModifyEndpoint'-    { _meServerName                :: !(Maybe Text)-    , _meCertificateARN            :: !(Maybe Text)-    , _meExtraConnectionAttributes :: !(Maybe Text)-    , _meEndpointType              :: !(Maybe ReplicationEndpointTypeValue)-    , _meUsername                  :: !(Maybe Text)-    , _meEngineName                :: !(Maybe Text)-    , _meSSLMode                   :: !(Maybe DmsSSLModeValue)-    , _mePassword                  :: !(Maybe (Sensitive Text))-    , _meDatabaseName              :: !(Maybe Text)-    , _meEndpointIdentifier        :: !(Maybe Text)-    , _mePort                      :: !(Maybe Int)-    , _meEndpointARN               :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _meServerName                :: !(Maybe Text)+  , _meCertificateARN            :: !(Maybe Text)+  , _meExtraConnectionAttributes :: !(Maybe Text)+  , _meEndpointType              :: !(Maybe ReplicationEndpointTypeValue)+  , _meUsername                  :: !(Maybe Text)+  , _meEngineName                :: !(Maybe Text)+  , _meMongoDBSettings           :: !(Maybe MongoDBSettings)+  , _meSSLMode                   :: !(Maybe DmsSSLModeValue)+  , _mePassword                  :: !(Maybe (Sensitive Text))+  , _meDatabaseName              :: !(Maybe Text)+  , _meS3Settings                :: !(Maybe S3Settings)+  , _meEndpointIdentifier        :: !(Maybe Text)+  , _meDynamoDBSettings          :: !(Maybe DynamoDBSettings)+  , _mePort                      :: !(Maybe Int)+  , _meEndpointARN               :: !Text+  } deriving (Eq, 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:@@ -83,22 +90,28 @@ -- -- * 'meCertificateARN' - The Amazon Resource Name (ARN) of the certificate used for SSL connection. ----- * 'meExtraConnectionAttributes' - Additional attributes associated with the connection.+-- * 'meExtraConnectionAttributes' - Additional attributes associated with the connection. To reset this parameter, pass the empty string ("") as an argument. -- -- * 'meEndpointType' - The type of endpoint. -- -- * 'meUsername' - The user name to be used to login to the endpoint database. ----- * 'meEngineName' - The type of engine for the endpoint. Valid values include MYSQL, ORACLE, POSTGRES, MARIADB, AURORA, REDSHIFT, and SQLSERVER.+-- * 'meEngineName' - The type of engine for the endpoint. Valid values, depending on the EndPointType, include MYSQL, ORACLE, POSTGRES, MARIADB, AURORA, REDSHIFT, S3, DYNAMODB, MONGODB, SYBASE, and SQLSERVER. --+-- * 'meMongoDBSettings' - Settings in JSON format for the source MongoDB endpoint. For more information about the available settings, see the __Configuration Properties When Using MongoDB as a Source for AWS Database Migration Service__ section at <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Source.MongoDB.html Using Amazon S3 as a Target for AWS Database Migration Service> .+-- -- * 'meSSLMode' - The SSL mode to be used. SSL mode can be one of four values: none, require, verify-ca, verify-full.  The default value is none. -- -- * 'mePassword' - The password to be used to login to the endpoint database. -- -- * 'meDatabaseName' - The name of the endpoint database. --+-- * 'meS3Settings' - Settings in JSON format for the target S3 endpoint. For more information about the available settings, see the __Extra Connection Attributes__ section at <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Target.S3.html Using Amazon S3 as a Target for AWS Database Migration Service> .+-- -- * 'meEndpointIdentifier' - 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. --+-- * 'meDynamoDBSettings' - Settings in JSON format for the target Amazon DynamoDB endpoint. For more information about the available settings, see the __Using Object Mapping to Migrate Data to DynamoDB__ section at <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Target.DynamoDB.html Using an Amazon DynamoDB Database as a Target for AWS Database Migration Service> .+-- -- * 'mePort' - The port used by the endpoint database. -- -- * 'meEndpointARN' - The Amazon Resource Name (ARN) string that uniquely identifies the endpoint.@@ -106,21 +119,25 @@     :: Text -- ^ 'meEndpointARN'     -> ModifyEndpoint modifyEndpoint pEndpointARN_ =-    ModifyEndpoint'-    { _meServerName = Nothing-    , _meCertificateARN = Nothing-    , _meExtraConnectionAttributes = Nothing-    , _meEndpointType = Nothing-    , _meUsername = Nothing-    , _meEngineName = Nothing-    , _meSSLMode = Nothing-    , _mePassword = Nothing-    , _meDatabaseName = Nothing-    , _meEndpointIdentifier = Nothing-    , _mePort = Nothing-    , _meEndpointARN = pEndpointARN_-    }+  ModifyEndpoint'+  { _meServerName = Nothing+  , _meCertificateARN = Nothing+  , _meExtraConnectionAttributes = Nothing+  , _meEndpointType = Nothing+  , _meUsername = Nothing+  , _meEngineName = Nothing+  , _meMongoDBSettings = Nothing+  , _meSSLMode = Nothing+  , _mePassword = Nothing+  , _meDatabaseName = Nothing+  , _meS3Settings = Nothing+  , _meEndpointIdentifier = Nothing+  , _meDynamoDBSettings = 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});@@ -129,7 +146,7 @@ meCertificateARN :: Lens' ModifyEndpoint (Maybe Text) meCertificateARN = lens _meCertificateARN (\ s a -> s{_meCertificateARN = a}); --- | Additional attributes associated with the connection.+-- | Additional attributes associated with the connection. To reset this parameter, pass the empty string ("") as an argument. meExtraConnectionAttributes :: Lens' ModifyEndpoint (Maybe Text) meExtraConnectionAttributes = lens _meExtraConnectionAttributes (\ s a -> s{_meExtraConnectionAttributes = a}); @@ -141,10 +158,14 @@ 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, MARIADB, AURORA, REDSHIFT, and SQLSERVER.+-- | The type of engine for the endpoint. Valid values, depending on the EndPointType, include MYSQL, ORACLE, POSTGRES, MARIADB, AURORA, REDSHIFT, S3, DYNAMODB, MONGODB, SYBASE, and SQLSERVER. meEngineName :: Lens' ModifyEndpoint (Maybe Text) meEngineName = lens _meEngineName (\ s a -> s{_meEngineName = a}); +-- | Settings in JSON format for the source MongoDB endpoint. For more information about the available settings, see the __Configuration Properties When Using MongoDB as a Source for AWS Database Migration Service__ section at <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Source.MongoDB.html Using Amazon S3 as a Target for AWS Database Migration Service> .+meMongoDBSettings :: Lens' ModifyEndpoint (Maybe MongoDBSettings)+meMongoDBSettings = lens _meMongoDBSettings (\ s a -> s{_meMongoDBSettings = a});+ -- | The SSL mode to be used. SSL mode can be one of four values: none, require, verify-ca, verify-full.  The default value is none. meSSLMode :: Lens' ModifyEndpoint (Maybe DmsSSLModeValue) meSSLMode = lens _meSSLMode (\ s a -> s{_meSSLMode = a});@@ -157,10 +178,18 @@ meDatabaseName :: Lens' ModifyEndpoint (Maybe Text) meDatabaseName = lens _meDatabaseName (\ s a -> s{_meDatabaseName = a}); +-- | Settings in JSON format for the target S3 endpoint. For more information about the available settings, see the __Extra Connection Attributes__ section at <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Target.S3.html Using Amazon S3 as a Target for AWS Database Migration Service> .+meS3Settings :: Lens' ModifyEndpoint (Maybe S3Settings)+meS3Settings = lens _meS3Settings (\ s a -> s{_meS3Settings = 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}); +-- | Settings in JSON format for the target Amazon DynamoDB endpoint. For more information about the available settings, see the __Using Object Mapping to Migrate Data to DynamoDB__ section at <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Target.DynamoDB.html Using an Amazon DynamoDB Database as a Target for AWS Database Migration Service> .+meDynamoDBSettings :: Lens' ModifyEndpoint (Maybe DynamoDBSettings)+meDynamoDBSettings = lens _meDynamoDBSettings (\ s a -> s{_meDynamoDBSettings = a});+ -- | The port used by the endpoint database. mePort :: Lens' ModifyEndpoint (Maybe Int) mePort = lens _mePort (\ s a -> s{_mePort = a});@@ -178,9 +207,9 @@                  ModifyEndpointResponse' <$>                    (x .?> "Endpoint") <*> (pure (fromEnum s))) -instance Hashable ModifyEndpoint+instance Hashable ModifyEndpoint where -instance NFData ModifyEndpoint+instance NFData ModifyEndpoint where  instance ToHeaders ModifyEndpoint where         toHeaders@@ -202,10 +231,13 @@                   ("EndpointType" .=) <$> _meEndpointType,                   ("Username" .=) <$> _meUsername,                   ("EngineName" .=) <$> _meEngineName,+                  ("MongoDbSettings" .=) <$> _meMongoDBSettings,                   ("SslMode" .=) <$> _meSSLMode,                   ("Password" .=) <$> _mePassword,                   ("DatabaseName" .=) <$> _meDatabaseName,+                  ("S3Settings" .=) <$> _meS3Settings,                   ("EndpointIdentifier" .=) <$> _meEndpointIdentifier,+                  ("DynamoDbSettings" .=) <$> _meDynamoDBSettings,                   ("Port" .=) <$> _mePort,                   Just ("EndpointArn" .= _meEndpointARN)]) @@ -221,10 +253,11 @@ -- -- /See:/ 'modifyEndpointResponse' smart constructor. data ModifyEndpointResponse = ModifyEndpointResponse'-    { _mersEndpoint       :: !(Maybe Endpoint)-    , _mersResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mersEndpoint       :: !(Maybe Endpoint)+  , _mersResponseStatus :: !Int+  } deriving (Eq, 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:@@ -236,11 +269,10 @@     :: Int -- ^ 'mersResponseStatus'     -> ModifyEndpointResponse modifyEndpointResponse pResponseStatus_ =-    ModifyEndpointResponse'-    { _mersEndpoint = Nothing-    , _mersResponseStatus = pResponseStatus_-    }+  ModifyEndpointResponse'+  {_mersEndpoint = Nothing, _mersResponseStatus = pResponseStatus_} + -- | The modified endpoint. mersEndpoint :: Lens' ModifyEndpointResponse (Maybe Endpoint) mersEndpoint = lens _mersEndpoint (\ s a -> s{_mersEndpoint = a});@@ -249,4 +281,4 @@ mersResponseStatus :: Lens' ModifyEndpointResponse Int mersResponseStatus = lens _mersResponseStatus (\ s a -> s{_mersResponseStatus = a}); -instance NFData ModifyEndpointResponse+instance NFData ModifyEndpointResponse where

@@ -0,0 +1,185 @@+{-# 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.ModifyEventSubscription+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies an existing AWS DMS event notification subscription.+--+--+module Network.AWS.DMS.ModifyEventSubscription+    (+    -- * Creating a Request+      modifyEventSubscription+    , ModifyEventSubscription+    -- * Request Lenses+    , mesSNSTopicARN+    , mesEnabled+    , mesSourceType+    , mesEventCategories+    , mesSubscriptionName++    -- * Destructuring the Response+    , modifyEventSubscriptionResponse+    , ModifyEventSubscriptionResponse+    -- * Response Lenses+    , mesrsEventSubscription+    , mesrsResponseStatus+    ) 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:/ 'modifyEventSubscription' smart constructor.+data ModifyEventSubscription = ModifyEventSubscription'+  { _mesSNSTopicARN      :: !(Maybe Text)+  , _mesEnabled          :: !(Maybe Bool)+  , _mesSourceType       :: !(Maybe Text)+  , _mesEventCategories  :: !(Maybe [Text])+  , _mesSubscriptionName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ModifyEventSubscription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mesSNSTopicARN' - The Amazon Resource Name (ARN) of the Amazon SNS topic created for event notification. The ARN is created by Amazon SNS when you create a topic and subscribe to it.+--+-- * 'mesEnabled' - A Boolean value; set to __true__ to activate the subscription.+--+-- * 'mesSourceType' - The type of AWS DMS resource that generates the events you want to subscribe to.  Valid values: replication-instance | migration-task+--+-- * 'mesEventCategories' - A list of event categories for a source type that you want to subscribe to. Use the @DescribeEventCategories@ action to see a list of event categories.+--+-- * 'mesSubscriptionName' - The name of the AWS DMS event notification subscription to be modified.+modifyEventSubscription+    :: Text -- ^ 'mesSubscriptionName'+    -> ModifyEventSubscription+modifyEventSubscription pSubscriptionName_ =+  ModifyEventSubscription'+  { _mesSNSTopicARN = Nothing+  , _mesEnabled = Nothing+  , _mesSourceType = Nothing+  , _mesEventCategories = Nothing+  , _mesSubscriptionName = pSubscriptionName_+  }+++-- | The Amazon Resource Name (ARN) of the Amazon SNS topic created for event notification. The ARN is created by Amazon SNS when you create a topic and subscribe to it.+mesSNSTopicARN :: Lens' ModifyEventSubscription (Maybe Text)+mesSNSTopicARN = lens _mesSNSTopicARN (\ s a -> s{_mesSNSTopicARN = a});++-- | A Boolean value; set to __true__ to activate the subscription.+mesEnabled :: Lens' ModifyEventSubscription (Maybe Bool)+mesEnabled = lens _mesEnabled (\ s a -> s{_mesEnabled = a});++-- | The type of AWS DMS resource that generates the events you want to subscribe to.  Valid values: replication-instance | migration-task+mesSourceType :: Lens' ModifyEventSubscription (Maybe Text)+mesSourceType = lens _mesSourceType (\ s a -> s{_mesSourceType = a});++-- | A list of event categories for a source type that you want to subscribe to. Use the @DescribeEventCategories@ action to see a list of event categories.+mesEventCategories :: Lens' ModifyEventSubscription [Text]+mesEventCategories = lens _mesEventCategories (\ s a -> s{_mesEventCategories = a}) . _Default . _Coerce;++-- | The name of the AWS DMS event notification subscription to be modified.+mesSubscriptionName :: Lens' ModifyEventSubscription Text+mesSubscriptionName = lens _mesSubscriptionName (\ s a -> s{_mesSubscriptionName = a});++instance AWSRequest ModifyEventSubscription where+        type Rs ModifyEventSubscription =+             ModifyEventSubscriptionResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 ModifyEventSubscriptionResponse' <$>+                   (x .?> "EventSubscription") <*> (pure (fromEnum s)))++instance Hashable ModifyEventSubscription where++instance NFData ModifyEventSubscription where++instance ToHeaders ModifyEventSubscription where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.ModifyEventSubscription" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ModifyEventSubscription where+        toJSON ModifyEventSubscription'{..}+          = object+              (catMaybes+                 [("SnsTopicArn" .=) <$> _mesSNSTopicARN,+                  ("Enabled" .=) <$> _mesEnabled,+                  ("SourceType" .=) <$> _mesSourceType,+                  ("EventCategories" .=) <$> _mesEventCategories,+                  Just ("SubscriptionName" .= _mesSubscriptionName)])++instance ToPath ModifyEventSubscription where+        toPath = const "/"++instance ToQuery ModifyEventSubscription where+        toQuery = const mempty++-- |+--+--+--+-- /See:/ 'modifyEventSubscriptionResponse' smart constructor.+data ModifyEventSubscriptionResponse = ModifyEventSubscriptionResponse'+  { _mesrsEventSubscription :: !(Maybe EventSubscription)+  , _mesrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ModifyEventSubscriptionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mesrsEventSubscription' - The modified event subscription.+--+-- * 'mesrsResponseStatus' - -- | The response status code.+modifyEventSubscriptionResponse+    :: Int -- ^ 'mesrsResponseStatus'+    -> ModifyEventSubscriptionResponse+modifyEventSubscriptionResponse pResponseStatus_ =+  ModifyEventSubscriptionResponse'+  {_mesrsEventSubscription = Nothing, _mesrsResponseStatus = pResponseStatus_}+++-- | The modified event subscription.+mesrsEventSubscription :: Lens' ModifyEventSubscriptionResponse (Maybe EventSubscription)+mesrsEventSubscription = lens _mesrsEventSubscription (\ s a -> s{_mesrsEventSubscription = a});++-- | -- | The response status code.+mesrsResponseStatus :: Lens' ModifyEventSubscriptionResponse Int+mesrsResponseStatus = lens _mesrsResponseStatus (\ s a -> s{_mesrsResponseStatus = a});++instance NFData ModifyEventSubscriptionResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.ModifyReplicationInstance--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -51,12 +51,12 @@     , 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+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  -- | --@@ -64,19 +64,20 @@ -- -- /See:/ 'modifyReplicationInstance' smart constructor. data ModifyReplicationInstance = ModifyReplicationInstance'-    { _mriEngineVersion                 :: !(Maybe Text)-    , _mriAutoMinorVersionUpgrade       :: !(Maybe Bool)-    , _mriAllowMajorVersionUpgrade      :: !(Maybe Bool)-    , _mriPreferredMaintenanceWindow    :: !(Maybe Text)-    , _mriVPCSecurityGroupIds           :: !(Maybe [Text])-    , _mriMultiAZ                       :: !(Maybe Bool)-    , _mriAllocatedStorage              :: !(Maybe Int)-    , _mriApplyImmediately              :: !(Maybe Bool)-    , _mriReplicationInstanceClass      :: !(Maybe Text)-    , _mriReplicationInstanceIdentifier :: !(Maybe Text)-    , _mriReplicationInstanceARN        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mriEngineVersion                 :: !(Maybe Text)+  , _mriAutoMinorVersionUpgrade       :: !(Maybe Bool)+  , _mriAllowMajorVersionUpgrade      :: !(Maybe Bool)+  , _mriPreferredMaintenanceWindow    :: !(Maybe Text)+  , _mriVPCSecurityGroupIds           :: !(Maybe [Text])+  , _mriMultiAZ                       :: !(Maybe Bool)+  , _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:@@ -106,20 +107,21 @@     :: Text -- ^ 'mriReplicationInstanceARN'     -> ModifyReplicationInstance modifyReplicationInstance pReplicationInstanceARN_ =-    ModifyReplicationInstance'-    { _mriEngineVersion = Nothing-    , _mriAutoMinorVersionUpgrade = Nothing-    , _mriAllowMajorVersionUpgrade = Nothing-    , _mriPreferredMaintenanceWindow = Nothing-    , _mriVPCSecurityGroupIds = Nothing-    , _mriMultiAZ = Nothing-    , _mriAllocatedStorage = Nothing-    , _mriApplyImmediately = Nothing-    , _mriReplicationInstanceClass = Nothing-    , _mriReplicationInstanceIdentifier = Nothing-    , _mriReplicationInstanceARN = pReplicationInstanceARN_-    }+  ModifyReplicationInstance'+  { _mriEngineVersion = Nothing+  , _mriAutoMinorVersionUpgrade = Nothing+  , _mriAllowMajorVersionUpgrade = Nothing+  , _mriPreferredMaintenanceWindow = Nothing+  , _mriVPCSecurityGroupIds = Nothing+  , _mriMultiAZ = 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});@@ -175,9 +177,9 @@                    (x .?> "ReplicationInstance") <*>                      (pure (fromEnum s))) -instance Hashable ModifyReplicationInstance+instance Hashable ModifyReplicationInstance where -instance NFData ModifyReplicationInstance+instance NFData ModifyReplicationInstance where  instance ToHeaders ModifyReplicationInstance where         toHeaders@@ -225,10 +227,11 @@ -- -- /See:/ 'modifyReplicationInstanceResponse' smart constructor. data ModifyReplicationInstanceResponse = ModifyReplicationInstanceResponse'-    { _mrirsReplicationInstance :: !(Maybe ReplicationInstance)-    , _mrirsResponseStatus      :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -240,11 +243,10 @@     :: Int -- ^ 'mrirsResponseStatus'     -> ModifyReplicationInstanceResponse modifyReplicationInstanceResponse pResponseStatus_ =-    ModifyReplicationInstanceResponse'-    { _mrirsReplicationInstance = Nothing-    , _mrirsResponseStatus = pResponseStatus_-    }+  ModifyReplicationInstanceResponse'+  {_mrirsReplicationInstance = Nothing, _mrirsResponseStatus = pResponseStatus_} + -- | The modified replication instance. mrirsReplicationInstance :: Lens' ModifyReplicationInstanceResponse (Maybe ReplicationInstance) mrirsReplicationInstance = lens _mrirsReplicationInstance (\ s a -> s{_mrirsReplicationInstance = a});@@ -254,3 +256,4 @@ mrirsResponseStatus = lens _mrirsResponseStatus (\ s a -> s{_mrirsResponseStatus = a});  instance NFData ModifyReplicationInstanceResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.ModifyReplicationSubnetGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , 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+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  -- | --@@ -52,11 +52,12 @@ -- -- /See:/ 'modifyReplicationSubnetGroup' smart constructor. data ModifyReplicationSubnetGroup = ModifyReplicationSubnetGroup'-    { _mrsgReplicationSubnetGroupDescription :: !(Maybe Text)-    , _mrsgReplicationSubnetGroupIdentifier  :: !Text-    , _mrsgSubnetIds                         :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -70,12 +71,13 @@     :: Text -- ^ 'mrsgReplicationSubnetGroupIdentifier'     -> ModifyReplicationSubnetGroup modifyReplicationSubnetGroup pReplicationSubnetGroupIdentifier_ =-    ModifyReplicationSubnetGroup'-    { _mrsgReplicationSubnetGroupDescription = Nothing-    , _mrsgReplicationSubnetGroupIdentifier = pReplicationSubnetGroupIdentifier_-    , _mrsgSubnetIds = mempty-    }+  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});@@ -100,9 +102,9 @@                    (x .?> "ReplicationSubnetGroup") <*>                      (pure (fromEnum s))) -instance Hashable ModifyReplicationSubnetGroup+instance Hashable ModifyReplicationSubnetGroup where -instance NFData ModifyReplicationSubnetGroup+instance NFData ModifyReplicationSubnetGroup where  instance ToHeaders ModifyReplicationSubnetGroup where         toHeaders@@ -137,10 +139,11 @@ -- -- /See:/ 'modifyReplicationSubnetGroupResponse' smart constructor. data ModifyReplicationSubnetGroupResponse = ModifyReplicationSubnetGroupResponse'-    { _mrsgrsReplicationSubnetGroup :: !(Maybe ReplicationSubnetGroup)-    , _mrsgrsResponseStatus         :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -152,11 +155,12 @@     :: Int -- ^ 'mrsgrsResponseStatus'     -> ModifyReplicationSubnetGroupResponse modifyReplicationSubnetGroupResponse pResponseStatus_ =-    ModifyReplicationSubnetGroupResponse'-    { _mrsgrsReplicationSubnetGroup = Nothing-    , _mrsgrsResponseStatus = pResponseStatus_-    }+  ModifyReplicationSubnetGroupResponse'+  { _mrsgrsReplicationSubnetGroup = Nothing+  , _mrsgrsResponseStatus = pResponseStatus_+  } + -- | The modified replication subnet group. mrsgrsReplicationSubnetGroup :: Lens' ModifyReplicationSubnetGroupResponse (Maybe ReplicationSubnetGroup) mrsgrsReplicationSubnetGroup = lens _mrsgrsReplicationSubnetGroup (\ s a -> s{_mrsgrsReplicationSubnetGroup = a});@@ -166,3 +170,4 @@ mrsgrsResponseStatus = lens _mrsgrsResponseStatus (\ s a -> s{_mrsgrsResponseStatus = a});  instance NFData ModifyReplicationSubnetGroupResponse+         where

@@ -0,0 +1,202 @@+{-# 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.ModifyReplicationTask+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the specified replication task.+--+--+-- You can't modify the task endpoints. The task must be stopped before you can modify it.+--+-- For more information about AWS DMS tasks, see the AWS DMS user guide at <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Tasks.html Working with Migration Tasks >+--+module Network.AWS.DMS.ModifyReplicationTask+    (+    -- * Creating a Request+      modifyReplicationTask+    , ModifyReplicationTask+    -- * Request Lenses+    , mrtReplicationTaskSettings+    , mrtReplicationTaskIdentifier+    , mrtTableMappings+    , mrtMigrationType+    , mrtCdcStartTime+    , mrtReplicationTaskARN++    -- * Destructuring the Response+    , modifyReplicationTaskResponse+    , ModifyReplicationTaskResponse+    -- * Response Lenses+    , mrtrsReplicationTask+    , mrtrsResponseStatus+    ) 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:/ 'modifyReplicationTask' smart constructor.+data ModifyReplicationTask = ModifyReplicationTask'+  { _mrtReplicationTaskSettings   :: !(Maybe Text)+  , _mrtReplicationTaskIdentifier :: !(Maybe Text)+  , _mrtTableMappings             :: !(Maybe Text)+  , _mrtMigrationType             :: !(Maybe MigrationTypeValue)+  , _mrtCdcStartTime              :: !(Maybe POSIX)+  , _mrtReplicationTaskARN        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ModifyReplicationTask' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mrtReplicationTaskSettings' - JSON file that contains settings for the task, such as target metadata settings.+--+-- * 'mrtReplicationTaskIdentifier' - The replication task identifier. Constraints:     * Must contain from 1 to 255 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens.+--+-- * 'mrtTableMappings' - When using the AWS CLI or boto3, provide the path of the JSON file that contains the table mappings. Precede the path with "file://". When working with the DMS API, provide the JSON as the parameter value. For example, --table-mappings file://mappingfile.json+--+-- * 'mrtMigrationType' - The migration type. Valid values: full-load | cdc | full-load-and-cdc+--+-- * 'mrtCdcStartTime' - The start time for the Change Data Capture (CDC) operation.+--+-- * 'mrtReplicationTaskARN' - The Amazon Resource Name (ARN) of the replication task.+modifyReplicationTask+    :: Text -- ^ 'mrtReplicationTaskARN'+    -> ModifyReplicationTask+modifyReplicationTask pReplicationTaskARN_ =+  ModifyReplicationTask'+  { _mrtReplicationTaskSettings = Nothing+  , _mrtReplicationTaskIdentifier = Nothing+  , _mrtTableMappings = Nothing+  , _mrtMigrationType = Nothing+  , _mrtCdcStartTime = Nothing+  , _mrtReplicationTaskARN = pReplicationTaskARN_+  }+++-- | JSON file that contains settings for the task, such as target metadata settings.+mrtReplicationTaskSettings :: Lens' ModifyReplicationTask (Maybe Text)+mrtReplicationTaskSettings = lens _mrtReplicationTaskSettings (\ s a -> s{_mrtReplicationTaskSettings = a});++-- | The replication task identifier. Constraints:     * Must contain from 1 to 255 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens.+mrtReplicationTaskIdentifier :: Lens' ModifyReplicationTask (Maybe Text)+mrtReplicationTaskIdentifier = lens _mrtReplicationTaskIdentifier (\ s a -> s{_mrtReplicationTaskIdentifier = a});++-- | When using the AWS CLI or boto3, provide the path of the JSON file that contains the table mappings. Precede the path with "file://". When working with the DMS API, provide the JSON as the parameter value. For example, --table-mappings file://mappingfile.json+mrtTableMappings :: Lens' ModifyReplicationTask (Maybe Text)+mrtTableMappings = lens _mrtTableMappings (\ s a -> s{_mrtTableMappings = a});++-- | The migration type. Valid values: full-load | cdc | full-load-and-cdc+mrtMigrationType :: Lens' ModifyReplicationTask (Maybe MigrationTypeValue)+mrtMigrationType = lens _mrtMigrationType (\ s a -> s{_mrtMigrationType = a});++-- | The start time for the Change Data Capture (CDC) operation.+mrtCdcStartTime :: Lens' ModifyReplicationTask (Maybe UTCTime)+mrtCdcStartTime = lens _mrtCdcStartTime (\ s a -> s{_mrtCdcStartTime = a}) . mapping _Time;++-- | The Amazon Resource Name (ARN) of the replication task.+mrtReplicationTaskARN :: Lens' ModifyReplicationTask Text+mrtReplicationTaskARN = lens _mrtReplicationTaskARN (\ s a -> s{_mrtReplicationTaskARN = a});++instance AWSRequest ModifyReplicationTask where+        type Rs ModifyReplicationTask =+             ModifyReplicationTaskResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 ModifyReplicationTaskResponse' <$>+                   (x .?> "ReplicationTask") <*> (pure (fromEnum s)))++instance Hashable ModifyReplicationTask where++instance NFData ModifyReplicationTask where++instance ToHeaders ModifyReplicationTask where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.ModifyReplicationTask" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ModifyReplicationTask where+        toJSON ModifyReplicationTask'{..}+          = object+              (catMaybes+                 [("ReplicationTaskSettings" .=) <$>+                    _mrtReplicationTaskSettings,+                  ("ReplicationTaskIdentifier" .=) <$>+                    _mrtReplicationTaskIdentifier,+                  ("TableMappings" .=) <$> _mrtTableMappings,+                  ("MigrationType" .=) <$> _mrtMigrationType,+                  ("CdcStartTime" .=) <$> _mrtCdcStartTime,+                  Just+                    ("ReplicationTaskArn" .= _mrtReplicationTaskARN)])++instance ToPath ModifyReplicationTask where+        toPath = const "/"++instance ToQuery ModifyReplicationTask where+        toQuery = const mempty++-- |+--+--+--+-- /See:/ 'modifyReplicationTaskResponse' smart constructor.+data ModifyReplicationTaskResponse = ModifyReplicationTaskResponse'+  { _mrtrsReplicationTask :: !(Maybe ReplicationTask)+  , _mrtrsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ModifyReplicationTaskResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mrtrsReplicationTask' - The replication task that was modified.+--+-- * 'mrtrsResponseStatus' - -- | The response status code.+modifyReplicationTaskResponse+    :: Int -- ^ 'mrtrsResponseStatus'+    -> ModifyReplicationTaskResponse+modifyReplicationTaskResponse pResponseStatus_ =+  ModifyReplicationTaskResponse'+  {_mrtrsReplicationTask = Nothing, _mrtrsResponseStatus = pResponseStatus_}+++-- | The replication task that was modified.+mrtrsReplicationTask :: Lens' ModifyReplicationTaskResponse (Maybe ReplicationTask)+mrtrsReplicationTask = lens _mrtrsReplicationTask (\ s a -> s{_mrtrsReplicationTask = a});++-- | -- | The response status code.+mrtrsResponseStatus :: Lens' ModifyReplicationTaskResponse Int+mrtrsResponseStatus = lens _mrtrsResponseStatus (\ s a -> s{_mrtrsResponseStatus = a});++instance NFData ModifyReplicationTaskResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.RefreshSchemas--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , 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+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  -- | --@@ -51,10 +51,11 @@ -- -- /See:/ 'refreshSchemas' smart constructor. data RefreshSchemas = RefreshSchemas'-    { _rsEndpointARN            :: !Text-    , _rsReplicationInstanceARN :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -67,11 +68,12 @@     -> Text -- ^ 'rsReplicationInstanceARN'     -> RefreshSchemas refreshSchemas pEndpointARN_ pReplicationInstanceARN_ =-    RefreshSchemas'-    { _rsEndpointARN = pEndpointARN_-    , _rsReplicationInstanceARN = 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});@@ -90,9 +92,9 @@                    (x .?> "RefreshSchemasStatus") <*>                      (pure (fromEnum s))) -instance Hashable RefreshSchemas+instance Hashable RefreshSchemas where -instance NFData RefreshSchemas+instance NFData RefreshSchemas where  instance ToHeaders RefreshSchemas where         toHeaders@@ -124,10 +126,11 @@ -- -- /See:/ 'refreshSchemasResponse' smart constructor. data RefreshSchemasResponse = RefreshSchemasResponse'-    { _rsrsRefreshSchemasStatus :: !(Maybe RefreshSchemasStatus)-    , _rsrsResponseStatus       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -139,11 +142,10 @@     :: Int -- ^ 'rsrsResponseStatus'     -> RefreshSchemasResponse refreshSchemasResponse pResponseStatus_ =-    RefreshSchemasResponse'-    { _rsrsRefreshSchemasStatus = Nothing-    , _rsrsResponseStatus = 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});@@ -152,4 +154,4 @@ rsrsResponseStatus :: Lens' RefreshSchemasResponse Int rsrsResponseStatus = lens _rsrsResponseStatus (\ s a -> s{_rsrsResponseStatus = a}); -instance NFData RefreshSchemasResponse+instance NFData RefreshSchemasResponse where

@@ -0,0 +1,144 @@+{-# 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.ReloadTables+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Reloads the target database table with the source data.+--+--+module Network.AWS.DMS.ReloadTables+    (+    -- * Creating a Request+      reloadTables+    , ReloadTables+    -- * Request Lenses+    , rtReplicationTaskARN+    , rtTablesToReload++    -- * Destructuring the Response+    , reloadTablesResponse+    , ReloadTablesResponse+    -- * Response Lenses+    , rtrsReplicationTaskARN+    , rtrsResponseStatus+    ) 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:/ 'reloadTables' smart constructor.+data ReloadTables = ReloadTables'+  { _rtReplicationTaskARN :: !Text+  , _rtTablesToReload     :: ![TableToReload]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ReloadTables' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtReplicationTaskARN' - The Amazon Resource Name (ARN) of the replication instance.+--+-- * 'rtTablesToReload' - The name and schema of the table to be reloaded.+reloadTables+    :: Text -- ^ 'rtReplicationTaskARN'+    -> ReloadTables+reloadTables pReplicationTaskARN_ =+  ReloadTables'+  {_rtReplicationTaskARN = pReplicationTaskARN_, _rtTablesToReload = mempty}+++-- | The Amazon Resource Name (ARN) of the replication instance.+rtReplicationTaskARN :: Lens' ReloadTables Text+rtReplicationTaskARN = lens _rtReplicationTaskARN (\ s a -> s{_rtReplicationTaskARN = a});++-- | The name and schema of the table to be reloaded.+rtTablesToReload :: Lens' ReloadTables [TableToReload]+rtTablesToReload = lens _rtTablesToReload (\ s a -> s{_rtTablesToReload = a}) . _Coerce;++instance AWSRequest ReloadTables where+        type Rs ReloadTables = ReloadTablesResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 ReloadTablesResponse' <$>+                   (x .?> "ReplicationTaskArn") <*> (pure (fromEnum s)))++instance Hashable ReloadTables where++instance NFData ReloadTables where++instance ToHeaders ReloadTables where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.ReloadTables" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ReloadTables where+        toJSON ReloadTables'{..}+          = object+              (catMaybes+                 [Just+                    ("ReplicationTaskArn" .= _rtReplicationTaskARN),+                  Just ("TablesToReload" .= _rtTablesToReload)])++instance ToPath ReloadTables where+        toPath = const "/"++instance ToQuery ReloadTables where+        toQuery = const mempty++-- | /See:/ 'reloadTablesResponse' smart constructor.+data ReloadTablesResponse = ReloadTablesResponse'+  { _rtrsReplicationTaskARN :: !(Maybe Text)+  , _rtrsResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ReloadTablesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtrsReplicationTaskARN' - The Amazon Resource Name (ARN) of the replication task.+--+-- * 'rtrsResponseStatus' - -- | The response status code.+reloadTablesResponse+    :: Int -- ^ 'rtrsResponseStatus'+    -> ReloadTablesResponse+reloadTablesResponse pResponseStatus_ =+  ReloadTablesResponse'+  {_rtrsReplicationTaskARN = Nothing, _rtrsResponseStatus = pResponseStatus_}+++-- | The Amazon Resource Name (ARN) of the replication task.+rtrsReplicationTaskARN :: Lens' ReloadTablesResponse (Maybe Text)+rtrsReplicationTaskARN = lens _rtrsReplicationTaskARN (\ s a -> s{_rtrsReplicationTaskARN = a});++-- | -- | The response status code.+rtrsResponseStatus :: Lens' ReloadTablesResponse Int+rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a});++instance NFData ReloadTablesResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.RemoveTagsFromResource--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , 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+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  -- | --@@ -50,10 +50,11 @@ -- -- /See:/ 'removeTagsFromResource' smart constructor. data RemoveTagsFromResource = RemoveTagsFromResource'-    { _rtfrResourceARN :: !Text-    , _rtfrTagKeys     :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -65,11 +66,10 @@     :: Text -- ^ 'rtfrResourceARN'     -> RemoveTagsFromResource removeTagsFromResource pResourceARN_ =-    RemoveTagsFromResource'-    { _rtfrResourceARN = pResourceARN_-    , _rtfrTagKeys = mempty-    }+  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});@@ -88,9 +88,9 @@                  RemoveTagsFromResourceResponse' <$>                    (pure (fromEnum s))) -instance Hashable RemoveTagsFromResource+instance Hashable RemoveTagsFromResource where -instance NFData RemoveTagsFromResource+instance NFData RemoveTagsFromResource where  instance ToHeaders RemoveTagsFromResource where         toHeaders@@ -121,9 +121,10 @@ -- -- /See:/ 'removeTagsFromResourceResponse' smart constructor. newtype RemoveTagsFromResourceResponse = RemoveTagsFromResourceResponse'-    { _rtfrrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -133,12 +134,11 @@     :: Int -- ^ 'rtfrrsResponseStatus'     -> RemoveTagsFromResourceResponse removeTagsFromResourceResponse pResponseStatus_ =-    RemoveTagsFromResourceResponse'-    { _rtfrrsResponseStatus = pResponseStatus_-    }+  RemoveTagsFromResourceResponse' {_rtfrrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. rtfrrsResponseStatus :: Lens' RemoveTagsFromResourceResponse Int rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a}); -instance NFData RemoveTagsFromResourceResponse+instance NFData RemoveTagsFromResourceResponse where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.DMS.StartReplicationTask--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Starts the replication task. -- --+-- For more information about AWS DMS tasks, see the AWS DMS user guide at <http://docs.aws.amazon.com/dms/latest/userguide/CHAP_Tasks.html Working with Migration Tasks >+-- module Network.AWS.DMS.StartReplicationTask     (     -- * Creating a Request@@ -39,12 +41,12 @@     , 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+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  -- | --@@ -52,11 +54,12 @@ -- -- /See:/ 'startReplicationTask' smart constructor. data StartReplicationTask = StartReplicationTask'-    { _srtCdcStartTime             :: !(Maybe POSIX)-    , _srtReplicationTaskARN       :: !Text-    , _srtStartReplicationTaskType :: !StartReplicationTaskTypeValue-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -71,12 +74,13 @@     -> StartReplicationTaskTypeValue -- ^ 'srtStartReplicationTaskType'     -> StartReplicationTask startReplicationTask pReplicationTaskARN_ pStartReplicationTaskType_ =-    StartReplicationTask'-    { _srtCdcStartTime = Nothing-    , _srtReplicationTaskARN = pReplicationTaskARN_-    , _srtStartReplicationTaskType = 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;@@ -99,9 +103,9 @@                  StartReplicationTaskResponse' <$>                    (x .?> "ReplicationTask") <*> (pure (fromEnum s))) -instance Hashable StartReplicationTask+instance Hashable StartReplicationTask where -instance NFData StartReplicationTask+instance NFData StartReplicationTask where  instance ToHeaders StartReplicationTask where         toHeaders@@ -136,10 +140,11 @@ -- -- /See:/ 'startReplicationTaskResponse' smart constructor. data StartReplicationTaskResponse = StartReplicationTaskResponse'-    { _srtrsReplicationTask :: !(Maybe ReplicationTask)-    , _srtrsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -151,11 +156,10 @@     :: Int -- ^ 'srtrsResponseStatus'     -> StartReplicationTaskResponse startReplicationTaskResponse pResponseStatus_ =-    StartReplicationTaskResponse'-    { _srtrsReplicationTask = Nothing-    , _srtrsResponseStatus = pResponseStatus_-    }+  StartReplicationTaskResponse'+  {_srtrsReplicationTask = Nothing, _srtrsResponseStatus = pResponseStatus_} + -- | The replication task started. srtrsReplicationTask :: Lens' StartReplicationTaskResponse (Maybe ReplicationTask) srtrsReplicationTask = lens _srtrsReplicationTask (\ s a -> s{_srtrsReplicationTask = a});@@ -164,4 +168,4 @@ srtrsResponseStatus :: Lens' StartReplicationTaskResponse Int srtrsResponseStatus = lens _srtrsResponseStatus (\ s a -> s{_srtrsResponseStatus = a}); -instance NFData StartReplicationTaskResponse+instance NFData StartReplicationTaskResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.StopReplicationTask--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , 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+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  -- | --@@ -52,9 +52,10 @@ -- -- /See:/ 'stopReplicationTask' smart constructor. newtype StopReplicationTask = StopReplicationTask'-    { _sReplicationTaskARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -64,10 +65,9 @@     :: Text -- ^ 'sReplicationTaskARN'     -> StopReplicationTask stopReplicationTask pReplicationTaskARN_ =-    StopReplicationTask'-    { _sReplicationTaskARN = 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});@@ -82,9 +82,9 @@                  StopReplicationTaskResponse' <$>                    (x .?> "ReplicationTask") <*> (pure (fromEnum s))) -instance Hashable StopReplicationTask+instance Hashable StopReplicationTask where -instance NFData StopReplicationTask+instance NFData StopReplicationTask where  instance ToHeaders StopReplicationTask where         toHeaders@@ -115,10 +115,11 @@ -- -- /See:/ 'stopReplicationTaskResponse' smart constructor. data StopReplicationTaskResponse = StopReplicationTaskResponse'-    { _srsReplicationTask :: !(Maybe ReplicationTask)-    , _srsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -130,11 +131,10 @@     :: Int -- ^ 'srsResponseStatus'     -> StopReplicationTaskResponse stopReplicationTaskResponse pResponseStatus_ =-    StopReplicationTaskResponse'-    { _srsReplicationTask = Nothing-    , _srsResponseStatus = pResponseStatus_-    }+  StopReplicationTaskResponse'+  {_srsReplicationTask = Nothing, _srsResponseStatus = pResponseStatus_} + -- | The replication task stopped. srsReplicationTask :: Lens' StopReplicationTaskResponse (Maybe ReplicationTask) srsReplicationTask = lens _srsReplicationTask (\ s a -> s{_srsReplicationTask = a});@@ -143,4 +143,4 @@ srsResponseStatus :: Lens' StopReplicationTaskResponse Int srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}); -instance NFData StopReplicationTaskResponse+instance NFData StopReplicationTaskResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DMS.TestConnection--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , 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+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  -- | --@@ -51,10 +51,11 @@ -- -- /See:/ 'testConnection' smart constructor. data TestConnection = TestConnection'-    { _tcReplicationInstanceARN :: !Text-    , _tcEndpointARN            :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -67,11 +68,12 @@     -> Text -- ^ 'tcEndpointARN'     -> TestConnection testConnection pReplicationInstanceARN_ pEndpointARN_ =-    TestConnection'-    { _tcReplicationInstanceARN = pReplicationInstanceARN_-    , _tcEndpointARN = pEndpointARN_-    }+  TestConnection'+  { _tcReplicationInstanceARN = pReplicationInstanceARN_+  , _tcEndpointARN = pEndpointARN_+  } + -- | The Amazon Resource Name (ARN) of the replication instance. tcReplicationInstanceARN :: Lens' TestConnection Text tcReplicationInstanceARN = lens _tcReplicationInstanceARN (\ s a -> s{_tcReplicationInstanceARN = a});@@ -89,9 +91,9 @@                  TestConnectionResponse' <$>                    (x .?> "Connection") <*> (pure (fromEnum s))) -instance Hashable TestConnection+instance Hashable TestConnection where -instance NFData TestConnection+instance NFData TestConnection where  instance ToHeaders TestConnection where         toHeaders@@ -123,10 +125,11 @@ -- -- /See:/ 'testConnectionResponse' smart constructor. data TestConnectionResponse = TestConnectionResponse'-    { _tcrsConnection     :: !(Maybe Connection)-    , _tcrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _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:@@ -138,11 +141,10 @@     :: Int -- ^ 'tcrsResponseStatus'     -> TestConnectionResponse testConnectionResponse pResponseStatus_ =-    TestConnectionResponse'-    { _tcrsConnection = Nothing-    , _tcrsResponseStatus = pResponseStatus_-    }+  TestConnectionResponse'+  {_tcrsConnection = Nothing, _tcrsResponseStatus = pResponseStatus_} + -- | The connection tested. tcrsConnection :: Lens' TestConnectionResponse (Maybe Connection) tcrsConnection = lens _tcrsConnection (\ s a -> s{_tcrsConnection = a});@@ -151,4 +153,4 @@ tcrsResponseStatus :: Lens' TestConnectionResponse Int tcrsResponseStatus = lens _tcrsResponseStatus (\ s a -> s{_tcrsResponseStatus = a}); -instance NFData TestConnectionResponse+instance NFData TestConnectionResponse where

@@ -4,9 +4,9 @@  -- | -- Module      : Network.AWS.DMS.Types--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -21,8 +21,10 @@     , _ReplicationSubnetGroupDoesNotCoverEnoughAZs     , _InvalidResourceStateFault     , _InvalidCertificateFault+    , _SNSNoAuthorizationFault     , _ResourceAlreadyExistsFault     , _InsufficientResourceCapacityFault+    , _SNSInvalidTopicFault     , _ResourceQuotaExceededFault     , _UpgradeDependencyFailureFault     , _ResourceNotFoundFault@@ -30,18 +32,33 @@     , _AccessDeniedFault     , _SubnetAlreadyInUse +    -- * AuthMechanismValue+    , AuthMechanismValue (..)++    -- * AuthTypeValue+    , AuthTypeValue (..)++    -- * CompressionTypeValue+    , CompressionTypeValue (..)+     -- * DmsSSLModeValue     , DmsSSLModeValue (..)      -- * MigrationTypeValue     , MigrationTypeValue (..) +    -- * NestingLevelValue+    , NestingLevelValue (..)+     -- * RefreshSchemasStatusTypeValue     , RefreshSchemasStatusTypeValue (..)      -- * ReplicationEndpointTypeValue     , ReplicationEndpointTypeValue (..) +    -- * SourceType+    , SourceType (..)+     -- * StartReplicationTaskTypeValue     , StartReplicationTaskTypeValue (..) @@ -67,6 +84,7 @@     , cCertificateARN     , cCertificateCreationDate     , cCertificateIdentifier+    , cCertificateWallet     , cKeyLength     , cValidToDate @@ -80,6 +98,11 @@     , cEndpointARN     , cLastFailureMessage +    -- * DynamoDBSettings+    , DynamoDBSettings+    , dynamoDBSettings+    , ddsServiceAccessRoleARN+     -- * Endpoint     , Endpoint     , endpoint@@ -91,18 +114,65 @@     , eUsername     , eEngineName     , eKMSKeyId+    , eMongoDBSettings     , eSSLMode     , eDatabaseName+    , eS3Settings     , eEndpointIdentifier+    , eExternalId+    , eDynamoDBSettings     , eEndpointARN     , ePort +    -- * Event+    , Event+    , event+    , eSourceType+    , eSourceIdentifier+    , eDate+    , eEventCategories+    , eMessage++    -- * EventCategoryGroup+    , EventCategoryGroup+    , eventCategoryGroup+    , ecgSourceType+    , ecgEventCategories++    -- * EventSubscription+    , EventSubscription+    , eventSubscription+    , esStatus+    , esCustomerAWSId+    , esCustSubscriptionId+    , esSNSTopicARN+    , esEnabled+    , esSourceType+    , esSubscriptionCreationTime+    , esEventCategoriesList+    , esSourceIdsList+     -- * Filter     , Filter     , filter'     , fName     , fValues +    -- * MongoDBSettings+    , MongoDBSettings+    , mongoDBSettings+    , mdsServerName+    , mdsAuthMechanism+    , mdsUsername+    , mdsPassword+    , mdsNestingLevel+    , mdsDatabaseName+    , mdsDocsToInvestigate+    , mdsAuthSource+    , mdsExtractDocId+    , mdsAuthType+    , mdsPort+     -- * OrderableReplicationInstance     , OrderableReplicationInstance     , orderableReplicationInstance@@ -140,6 +210,7 @@     , riAvailabilityZone     , riVPCSecurityGroups     , riMultiAZ+    , riSecondaryAvailabilityZone     , riReplicationInstanceARN     , riAllocatedStorage     , riReplicationInstancePublicIPAddress@@ -167,19 +238,20 @@     -- * ReplicationTask     , ReplicationTask     , replicationTask-    , rtReplicationTaskSettings-    , rtStatus-    , rtTargetEndpointARN-    , rtReplicationTaskIdentifier-    , rtReplicationTaskStartDate-    , rtSourceEndpointARN-    , rtTableMappings-    , rtReplicationTaskCreationDate-    , rtMigrationType-    , rtReplicationTaskARN-    , rtReplicationTaskStats-    , rtReplicationInstanceARN-    , rtLastFailureMessage+    , rReplicationTaskSettings+    , rStatus+    , rStopReason+    , rTargetEndpointARN+    , rReplicationTaskIdentifier+    , rReplicationTaskStartDate+    , rSourceEndpointARN+    , rTableMappings+    , rReplicationTaskCreationDate+    , rMigrationType+    , rReplicationTaskARN+    , rReplicationTaskStats+    , rReplicationInstanceARN+    , rLastFailureMessage      -- * ReplicationTaskStats     , ReplicationTaskStats@@ -191,6 +263,17 @@     , rtsTablesQueued     , rtsTablesLoading +    -- * S3Settings+    , S3Settings+    , s3Settings+    , ssCSVDelimiter+    , ssServiceAccessRoleARN+    , ssBucketFolder+    , ssExternalTableDefinition+    , ssBucketName+    , ssCSVRowDelimiter+    , ssCompressionType+     -- * Subnet     , Subnet     , subnet@@ -210,14 +293,22 @@     , tableStatistics     , tsFullLoadRows     , tsInserts+    , tsFullLoadCondtnlChkFailedRows     , tsSchemaName     , tsTableState+    , tsFullLoadErrorRows     , tsDdls     , tsDeletes     , tsUpdates     , tsLastUpdateTime     , tsTableName +    -- * TableToReload+    , TableToReload+    , tableToReload+    , ttrSchemaName+    , ttrTableName+     -- * Tag     , Tag     , tag@@ -231,38 +322,40 @@     , vsgmVPCSecurityGroupId     ) 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+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 "DMS"-    , _svcRetry = retry-    }+  Service+  { _svcAbbrev = "DMS"+  , _svcSigner = v4+  , _svcPrefix = "dms"+  , _svcVersion = "2016-01-01"+  , _svcEndpoint = defaultEndpoint dms+  , _svcTimeout = Just 70+  , _svcCheck = statusSuccess+  , _svcError = parseJSONError "DMS"+  , _svcRetry = retry+  }   where     retry =-        Exponential-        { _retryBase = 5.0e-2-        , _retryGrowth = 2-        , _retryAttempts = 5-        , _retryCheck = check-        }+      Exponential+      { _retryBase = 5.0e-2+      , _retryGrowth = 2+      , _retryAttempts = 5+      , _retryCheck = check+      }     check e+      | has (hasCode "ThrottledException" . hasStatus 400) e =+        Just "throttled_exception"       | has (hasStatus 429) e = Just "too_many_requests"       | has (hasCode "ThrottlingException" . hasStatus 400) e =-          Just "throttling_exception"+        Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"       | has (hasStatus 502) e = Just "bad_gateway"@@ -271,87 +364,113 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing + -- | The subnet provided is invalid. -- -- _InvalidSubnet :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidSubnet = _ServiceError . hasCode "InvalidSubnet"+_InvalidSubnet = _MatchServiceError dms "InvalidSubnet" + -- | AWS DMS cannot access the KMS key. -- -- _KMSKeyNotAccessibleFault :: AsError a => Getting (First ServiceError) a ServiceError-_KMSKeyNotAccessibleFault = _ServiceError . hasCode "KMSKeyNotAccessibleFault"+_KMSKeyNotAccessibleFault = _MatchServiceError dms "KMSKeyNotAccessibleFault" + -- | The replication subnet group does not cover enough Availability Zones (AZs). Edit the replication subnet group and add more AZs. -- -- _ReplicationSubnetGroupDoesNotCoverEnoughAZs :: AsError a => Getting (First ServiceError) a ServiceError _ReplicationSubnetGroupDoesNotCoverEnoughAZs =-    _ServiceError . hasCode "ReplicationSubnetGroupDoesNotCoverEnoughAZs"+  _MatchServiceError dms "ReplicationSubnetGroupDoesNotCoverEnoughAZs" + -- | The resource is in a state that prevents it from being used for database migration. -- -- _InvalidResourceStateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidResourceStateFault =-    _ServiceError . hasCode "InvalidResourceStateFault"+_InvalidResourceStateFault = _MatchServiceError dms "InvalidResourceStateFault" + -- | The certificate was not valid. -- -- _InvalidCertificateFault :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidCertificateFault = _ServiceError . hasCode "InvalidCertificateFault"+_InvalidCertificateFault = _MatchServiceError dms "InvalidCertificateFault" ++-- | You are not authorized for the SNS subscription.+--+--+_SNSNoAuthorizationFault :: AsError a => Getting (First ServiceError) a ServiceError+_SNSNoAuthorizationFault = _MatchServiceError dms "SNSNoAuthorizationFault"++ -- | The resource you are attempting to create already exists. -- -- _ResourceAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError _ResourceAlreadyExistsFault =-    _ServiceError . hasCode "ResourceAlreadyExistsFault"+  _MatchServiceError dms "ResourceAlreadyExistsFault" + -- | There are not enough resources allocated to the database migration. -- -- _InsufficientResourceCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError _InsufficientResourceCapacityFault =-    _ServiceError . hasCode "InsufficientResourceCapacityFault"+  _MatchServiceError dms "InsufficientResourceCapacityFault" ++-- | The SNS topic is invalid.+--+--+_SNSInvalidTopicFault :: AsError a => Getting (First ServiceError) a ServiceError+_SNSInvalidTopicFault = _MatchServiceError dms "SNSInvalidTopicFault"++ -- | The quota for this resource quota has been exceeded. -- -- _ResourceQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _ResourceQuotaExceededFault =-    _ServiceError . hasCode "ResourceQuotaExceededFault"+  _MatchServiceError dms "ResourceQuotaExceededFault" + -- | An upgrade dependency is preventing the database migration. -- -- _UpgradeDependencyFailureFault :: AsError a => Getting (First ServiceError) a ServiceError _UpgradeDependencyFailureFault =-    _ServiceError . hasCode "UpgradeDependencyFailureFault"+  _MatchServiceError dms "UpgradeDependencyFailureFault" + -- | The resource could not be found. -- -- _ResourceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError-_ResourceNotFoundFault = _ServiceError . hasCode "ResourceNotFoundFault"+_ResourceNotFoundFault = _MatchServiceError dms "ResourceNotFoundFault" + -- | The storage quota has been exceeded. -- -- _StorageQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError-_StorageQuotaExceededFault =-    _ServiceError . hasCode "StorageQuotaExceededFault"+_StorageQuotaExceededFault = _MatchServiceError dms "StorageQuotaExceededFault" + -- | AWS DMS was denied access to the endpoint. -- -- _AccessDeniedFault :: AsError a => Getting (First ServiceError) a ServiceError-_AccessDeniedFault = _ServiceError . hasCode "AccessDeniedFault"+_AccessDeniedFault = _MatchServiceError dms "AccessDeniedFault" + -- | The specified subnet is already in use. -- -- _SubnetAlreadyInUse :: AsError a => Getting (First ServiceError) a ServiceError-_SubnetAlreadyInUse = _ServiceError . hasCode "SubnetAlreadyInUse"+_SubnetAlreadyInUse = _MatchServiceError dms "SubnetAlreadyInUse"+

@@ -9,1513 +9,2178 @@  -- | -- 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' - The maximum allowed value for the quota.------ * 'aqUsed' - The amount currently used toward the quota maximum.------ * 'aqAccountQuotaName' - The name of the AWS DMS quota for this AWS account.-accountQuota-    :: AccountQuota-accountQuota =-    AccountQuota'-    { _aqMax = Nothing-    , _aqUsed = Nothing-    , _aqAccountQuotaName = Nothing-    }---- | The maximum allowed value for the quota.-aqMax :: Lens' AccountQuota (Maybe Integer)-aqMax = lens _aqMax (\ s a -> s{_aqMax = a});---- | The amount currently used toward the quota maximum.-aqUsed :: Lens' AccountQuota (Maybe Integer)-aqUsed = lens _aqUsed (\ s a -> s{_aqUsed = a});---- | The name of the 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--instance NFData 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' - The name of the availability zone.-availabilityZone-    :: AvailabilityZone-availabilityZone =-    AvailabilityZone'-    { _azName = Nothing-    }---- | The name of the availability zone.-azName :: Lens' AvailabilityZone (Maybe Text)-azName = lens _azName (\ s a -> s{_azName = a});--instance FromJSON AvailabilityZone where-        parseJSON-          = withObject "AvailabilityZone"-              (\ x -> AvailabilityZone' <$> (x .:? "Name"))--instance Hashable AvailabilityZone--instance NFData AvailabilityZone---- | The SSL certificate that can be used to encrypt connections between the endpoints and the replication instance.------------ /See:/ 'certificate' smart constructor.-data Certificate = Certificate'-    { _cCertificateOwner        :: !(Maybe Text)-    , _cSigningAlgorithm        :: !(Maybe Text)-    , _cValidFromDate           :: !(Maybe POSIX)-    , _cCertificatePem          :: !(Maybe Text)-    , _cCertificateARN          :: !(Maybe Text)-    , _cCertificateCreationDate :: !(Maybe POSIX)-    , _cCertificateIdentifier   :: !(Maybe Text)-    , _cKeyLength               :: !(Maybe Int)-    , _cValidToDate             :: !(Maybe POSIX)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Certificate' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cCertificateOwner' - The owner of the certificate.------ * 'cSigningAlgorithm' - The signing algorithm for the certificate.------ * 'cValidFromDate' - The beginning date the certificate is valid.------ * 'cCertificatePem' - The contents of the .pem X.509 certificate file.------ * 'cCertificateARN' - The Amazon Resource Name (ARN) for the certificate.------ * 'cCertificateCreationDate' - the date the certificate was created.------ * 'cCertificateIdentifier' - The customer-assigned name of the certificate. Valid characters are [A-z_0-9].------ * 'cKeyLength' - The key length of the cryptographic algorithm being used.------ * 'cValidToDate' - the final date the certificate is valid.-certificate-    :: Certificate-certificate =-    Certificate'-    { _cCertificateOwner = Nothing-    , _cSigningAlgorithm = Nothing-    , _cValidFromDate = Nothing-    , _cCertificatePem = Nothing-    , _cCertificateARN = Nothing-    , _cCertificateCreationDate = Nothing-    , _cCertificateIdentifier = Nothing-    , _cKeyLength = Nothing-    , _cValidToDate = Nothing-    }---- | The owner of the certificate.-cCertificateOwner :: Lens' Certificate (Maybe Text)-cCertificateOwner = lens _cCertificateOwner (\ s a -> s{_cCertificateOwner = a});---- | The signing algorithm for the certificate.-cSigningAlgorithm :: Lens' Certificate (Maybe Text)-cSigningAlgorithm = lens _cSigningAlgorithm (\ s a -> s{_cSigningAlgorithm = a});---- | The beginning date the certificate is valid.-cValidFromDate :: Lens' Certificate (Maybe UTCTime)-cValidFromDate = lens _cValidFromDate (\ s a -> s{_cValidFromDate = a}) . mapping _Time;---- | The contents of the .pem X.509 certificate file.-cCertificatePem :: Lens' Certificate (Maybe Text)-cCertificatePem = lens _cCertificatePem (\ s a -> s{_cCertificatePem = a});---- | The Amazon Resource Name (ARN) for the certificate.-cCertificateARN :: Lens' Certificate (Maybe Text)-cCertificateARN = lens _cCertificateARN (\ s a -> s{_cCertificateARN = a});---- | the date the certificate was created.-cCertificateCreationDate :: Lens' Certificate (Maybe UTCTime)-cCertificateCreationDate = lens _cCertificateCreationDate (\ s a -> s{_cCertificateCreationDate = a}) . mapping _Time;---- | The customer-assigned name of the certificate. Valid characters are [A-z_0-9].-cCertificateIdentifier :: Lens' Certificate (Maybe Text)-cCertificateIdentifier = lens _cCertificateIdentifier (\ s a -> s{_cCertificateIdentifier = a});---- | The key length of the cryptographic algorithm being used.-cKeyLength :: Lens' Certificate (Maybe Int)-cKeyLength = lens _cKeyLength (\ s a -> s{_cKeyLength = a});---- | the final date the certificate is valid.-cValidToDate :: Lens' Certificate (Maybe UTCTime)-cValidToDate = lens _cValidToDate (\ s a -> s{_cValidToDate = a}) . mapping _Time;--instance FromJSON Certificate where-        parseJSON-          = withObject "Certificate"-              (\ x ->-                 Certificate' <$>-                   (x .:? "CertificateOwner") <*>-                     (x .:? "SigningAlgorithm")-                     <*> (x .:? "ValidFromDate")-                     <*> (x .:? "CertificatePem")-                     <*> (x .:? "CertificateArn")-                     <*> (x .:? "CertificateCreationDate")-                     <*> (x .:? "CertificateIdentifier")-                     <*> (x .:? "KeyLength")-                     <*> (x .:? "ValidToDate"))--instance Hashable Certificate--instance NFData Certificate---- |------------ /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' - The connection status.------ * 'cReplicationInstanceARN' - The Amazon Resource Name (ARN) of the replication instance.------ * 'cEndpointIdentifier' - 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.------ * 'cReplicationInstanceIdentifier' - The replication instance identifier. This parameter is stored as a lowercase string.------ * 'cEndpointARN' - The Amazon Resource Name (ARN) string that uniquely identifies the endpoint.------ * 'cLastFailureMessage' - The error message when the connection last failed.-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--instance NFData Connection---- |------------ /See:/ 'endpoint' smart constructor.-data Endpoint = Endpoint'-    { _eStatus                    :: !(Maybe Text)-    , _eServerName                :: !(Maybe Text)-    , _eCertificateARN            :: !(Maybe Text)-    , _eExtraConnectionAttributes :: !(Maybe Text)-    , _eEndpointType              :: !(Maybe ReplicationEndpointTypeValue)-    , _eUsername                  :: !(Maybe Text)-    , _eEngineName                :: !(Maybe Text)-    , _eKMSKeyId                  :: !(Maybe Text)-    , _eSSLMode                   :: !(Maybe DmsSSLModeValue)-    , _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' - The status of the endpoint.------ * 'eServerName' - The name of the server at the endpoint.------ * 'eCertificateARN' - The Amazon Resource Name (ARN) used for SSL connection to the endpoint.------ * 'eExtraConnectionAttributes' - Additional connection attributes used to connect to the endpoint.------ * 'eEndpointType' - The type of endpoint.------ * 'eUsername' - The user name used to connect to the endpoint.------ * 'eEngineName' - The database engine name.------ * 'eKMSKeyId' - 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.------ * 'eSSLMode' - The SSL mode used to connect to the endpoint. SSL mode can be one of four values: none, require, verify-ca, verify-full.  The default value is none.------ * 'eDatabaseName' - The name of the database at the endpoint.------ * 'eEndpointIdentifier' - 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.------ * 'eEndpointARN' - The Amazon Resource Name (ARN) string that uniquely identifies the endpoint.------ * 'ePort' - The port value used to access the endpoint.-endpoint-    :: Endpoint-endpoint =-    Endpoint'-    { _eStatus = Nothing-    , _eServerName = Nothing-    , _eCertificateARN = Nothing-    , _eExtraConnectionAttributes = Nothing-    , _eEndpointType = Nothing-    , _eUsername = Nothing-    , _eEngineName = Nothing-    , _eKMSKeyId = Nothing-    , _eSSLMode = 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});---- | The Amazon Resource Name (ARN) used for SSL connection to the endpoint.-eCertificateARN :: Lens' Endpoint (Maybe Text)-eCertificateARN = lens _eCertificateARN (\ s a -> s{_eCertificateARN = 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 SSL mode used to connect to the endpoint. SSL mode can be one of four values: none, require, verify-ca, verify-full.  The default value is none.-eSSLMode :: Lens' Endpoint (Maybe DmsSSLModeValue)-eSSLMode = lens _eSSLMode (\ s a -> s{_eSSLMode = 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 .:? "CertificateArn")-                     <*> (x .:? "ExtraConnectionAttributes")-                     <*> (x .:? "EndpointType")-                     <*> (x .:? "Username")-                     <*> (x .:? "EngineName")-                     <*> (x .:? "KmsKeyId")-                     <*> (x .:? "SslMode")-                     <*> (x .:? "DatabaseName")-                     <*> (x .:? "EndpointIdentifier")-                     <*> (x .:? "EndpointArn")-                     <*> (x .:? "Port"))--instance Hashable Endpoint--instance NFData 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' - The name of the filter.------ * 'fValues' - The filter value.-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 NFData 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' - The version of the replication engine.------ * 'oriMinAllocatedStorage' - The minimum amount of storage (in gigabytes) that can be allocated for the replication instance.------ * 'oriIncludedAllocatedStorage' - The amount of storage (in gigabytes) that is allocated for the replication instance.------ * 'oriMaxAllocatedStorage' - The minimum amount of storage (in gigabytes) that can be allocated for the replication instance.------ * 'oriReplicationInstanceClass' - 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 @------ * 'oriDefaultAllocatedStorage' - The default amount of storage (in gigabytes) that is allocated for the replication instance.------ * 'oriStorageType' - The type of storage used by the replication instance.-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--instance NFData 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' - The status of the schema.------ * 'rssLastRefreshDate' - The date the schema was last refreshed.------ * 'rssReplicationInstanceARN' - The Amazon Resource Name (ARN) of the replication instance.------ * 'rssEndpointARN' - The Amazon Resource Name (ARN) string that uniquely identifies the endpoint.------ * 'rssLastFailureMessage' - The last failure message for the schema.-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--instance NFData RefreshSchemasStatus---- |------------ /See:/ 'replicationInstance' smart constructor.-data ReplicationInstance = ReplicationInstance'-    { _riEngineVersion                         :: !(Maybe Text)-    , _riPubliclyAccessible                    :: !(Maybe Bool)-    , _riAutoMinorVersionUpgrade               :: !(Maybe Bool)-    , _riReplicationInstancePublicIPAddresses  :: !(Maybe [Text])-    , _riReplicationSubnetGroup                :: !(Maybe ReplicationSubnetGroup)-    , _riInstanceCreateTime                    :: !(Maybe POSIX)-    , _riReplicationInstanceStatus             :: !(Maybe Text)-    , _riReplicationInstancePrivateIPAddresses :: !(Maybe [Text])-    , _riPreferredMaintenanceWindow            :: !(Maybe Text)-    , _riReplicationInstancePrivateIPAddress   :: !(Maybe Text)-    , _riKMSKeyId                              :: !(Maybe Text)-    , _riAvailabilityZone                      :: !(Maybe Text)-    , _riVPCSecurityGroups                     :: !(Maybe [VPCSecurityGroupMembership])-    , _riMultiAZ                               :: !(Maybe Bool)-    , _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' - The engine version number of the replication instance.------ * 'riPubliclyAccessible' - 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@ .------ * 'riAutoMinorVersionUpgrade' - Boolean value indicating if minor version upgrades will be automatically applied to the instance.------ * 'riReplicationInstancePublicIPAddresses' - The public IP address of the replication instance.------ * 'riReplicationSubnetGroup' - The subnet group for the replication instance.------ * 'riInstanceCreateTime' - The time the replication instance was created.------ * 'riReplicationInstanceStatus' - The status of the replication instance.------ * 'riReplicationInstancePrivateIPAddresses' - The private IP address of the replication instance.------ * 'riPreferredMaintenanceWindow' - The maintenance window times for the replication instance.------ * 'riReplicationInstancePrivateIPAddress' - The private IP address of the replication instance.------ * 'riKMSKeyId' - 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.------ * 'riAvailabilityZone' - The Availability Zone for the instance.------ * 'riVPCSecurityGroups' - The VPC security group for the instance.------ * 'riMultiAZ' - Specifies if the replication instance is a Multi-AZ deployment. You cannot set the @AvailabilityZone@ parameter if the Multi-AZ parameter is set to @true@ .------ * 'riReplicationInstanceARN' - The Amazon Resource Name (ARN) of the replication instance.------ * 'riAllocatedStorage' - The amount of storage (in gigabytes) that is allocated for the replication instance.------ * 'riReplicationInstancePublicIPAddress' - The public IP address of the replication instance.------ * 'riReplicationInstanceClass' - 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 @------ * 'riReplicationInstanceIdentifier' - 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@------ * 'riPendingModifiedValues' - The pending modification values.-replicationInstance-    :: ReplicationInstance-replicationInstance =-    ReplicationInstance'-    { _riEngineVersion = Nothing-    , _riPubliclyAccessible = Nothing-    , _riAutoMinorVersionUpgrade = Nothing-    , _riReplicationInstancePublicIPAddresses = Nothing-    , _riReplicationSubnetGroup = Nothing-    , _riInstanceCreateTime = Nothing-    , _riReplicationInstanceStatus = Nothing-    , _riReplicationInstancePrivateIPAddresses = Nothing-    , _riPreferredMaintenanceWindow = Nothing-    , _riReplicationInstancePrivateIPAddress = Nothing-    , _riKMSKeyId = Nothing-    , _riAvailabilityZone = Nothing-    , _riVPCSecurityGroups = Nothing-    , _riMultiAZ = 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 public IP address of the replication instance.-riReplicationInstancePublicIPAddresses :: Lens' ReplicationInstance [Text]-riReplicationInstancePublicIPAddresses = lens _riReplicationInstancePublicIPAddresses (\ s a -> s{_riReplicationInstancePublicIPAddresses = a}) . _Default . _Coerce;---- | 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 private IP address of the replication instance.-riReplicationInstancePrivateIPAddresses :: Lens' ReplicationInstance [Text]-riReplicationInstancePrivateIPAddresses = lens _riReplicationInstancePrivateIPAddresses (\ s a -> s{_riReplicationInstancePrivateIPAddresses = a}) . _Default . _Coerce;---- | 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 VPC security group for the instance.-riVPCSecurityGroups :: Lens' ReplicationInstance [VPCSecurityGroupMembership]-riVPCSecurityGroups = lens _riVPCSecurityGroups (\ s a -> s{_riVPCSecurityGroups = a}) . _Default . _Coerce;---- | Specifies if the replication instance is a Multi-AZ deployment. You cannot set the @AvailabilityZone@ parameter if the Multi-AZ parameter is set to @true@ .-riMultiAZ :: Lens' ReplicationInstance (Maybe Bool)-riMultiAZ = lens _riMultiAZ (\ s a -> s{_riMultiAZ = 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 .:? "ReplicationInstancePublicIpAddresses" .!=-                        mempty)-                     <*> (x .:? "ReplicationSubnetGroup")-                     <*> (x .:? "InstanceCreateTime")-                     <*> (x .:? "ReplicationInstanceStatus")-                     <*>-                     (x .:? "ReplicationInstancePrivateIpAddresses" .!=-                        mempty)-                     <*> (x .:? "PreferredMaintenanceWindow")-                     <*> (x .:? "ReplicationInstancePrivateIpAddress")-                     <*> (x .:? "KmsKeyId")-                     <*> (x .:? "AvailabilityZone")-                     <*> (x .:? "VpcSecurityGroups" .!= mempty)-                     <*> (x .:? "MultiAZ")-                     <*> (x .:? "ReplicationInstanceArn")-                     <*> (x .:? "AllocatedStorage")-                     <*> (x .:? "ReplicationInstancePublicIpAddress")-                     <*> (x .:? "ReplicationInstanceClass")-                     <*> (x .:? "ReplicationInstanceIdentifier")-                     <*> (x .:? "PendingModifiedValues"))--instance Hashable ReplicationInstance--instance NFData ReplicationInstance---- |------------ /See:/ 'replicationPendingModifiedValues' smart constructor.-data ReplicationPendingModifiedValues = ReplicationPendingModifiedValues'-    { _rpmvEngineVersion            :: !(Maybe Text)-    , _rpmvMultiAZ                  :: !(Maybe Bool)-    , _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' - The engine version number of the replication instance.------ * 'rpmvMultiAZ' - Specifies if the replication instance is a Multi-AZ deployment. You cannot set the @AvailabilityZone@ parameter if the Multi-AZ parameter is set to @true@ .------ * 'rpmvAllocatedStorage' - The amount of storage (in gigabytes) that is allocated for the replication instance.------ * 'rpmvReplicationInstanceClass' - 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 @-replicationPendingModifiedValues-    :: ReplicationPendingModifiedValues-replicationPendingModifiedValues =-    ReplicationPendingModifiedValues'-    { _rpmvEngineVersion = Nothing-    , _rpmvMultiAZ = 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});---- | Specifies if the replication instance is a Multi-AZ deployment. You cannot set the @AvailabilityZone@ parameter if the Multi-AZ parameter is set to @true@ .-rpmvMultiAZ :: Lens' ReplicationPendingModifiedValues (Maybe Bool)-rpmvMultiAZ = lens _rpmvMultiAZ (\ s a -> s{_rpmvMultiAZ = 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 .:? "MultiAZ") <*>-                     (x .:? "AllocatedStorage")-                     <*> (x .:? "ReplicationInstanceClass"))--instance Hashable ReplicationPendingModifiedValues--instance NFData 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' - The ID of the VPC.------ * 'rsgSubnets' - The subnets that are in the subnet group.------ * 'rsgReplicationSubnetGroupIdentifier' - The identifier of the replication instance subnet group.------ * 'rsgSubnetGroupStatus' - The status of the subnet group.------ * 'rsgReplicationSubnetGroupDescription' - The description of the replication subnet group.-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--instance NFData 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' - The settings for the replication task.------ * 'rtStatus' - The status of the replication task.------ * 'rtTargetEndpointARN' - The Amazon Resource Name (ARN) string that uniquely identifies the endpoint.------ * 'rtReplicationTaskIdentifier' - 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.------ * 'rtReplicationTaskStartDate' - The date the replication task is scheduled to start.------ * 'rtSourceEndpointARN' - The Amazon Resource Name (ARN) string that uniquely identifies the endpoint.------ * 'rtTableMappings' - Table mappings specified in the task.------ * 'rtReplicationTaskCreationDate' - The date the replication task was created.------ * 'rtMigrationType' - The type of migration.------ * 'rtReplicationTaskARN' - The Amazon Resource Name (ARN) of the replication task.------ * 'rtReplicationTaskStats' - The statistics for the task, including elapsed time, tables loaded, and table errors.------ * 'rtReplicationInstanceARN' - The Amazon Resource Name (ARN) of the replication instance.------ * 'rtLastFailureMessage' - The last error (failure) message generated for the replication instance.-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--instance NFData 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' - The percent complete for the full load migration task.------ * 'rtsElapsedTimeMillis' - The elapsed time of the task, in milliseconds.------ * 'rtsTablesErrored' - The number of errors that have occurred during this task.------ * 'rtsTablesLoaded' - The number of tables loaded for this task.------ * 'rtsTablesQueued' - The number of tables queued for this task.------ * 'rtsTablesLoading' - The number of tables currently loading for this task.-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--instance NFData 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' - The status of the subnet.------ * 'sSubnetIdentifier' - The subnet identifier.------ * 'sSubnetAvailabilityZone' - The Availability Zone of the subnet.-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--instance NFData 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' - The type of endpoint.------ * 'setEngineName' - The database engine name.------ * 'setSupportsCDC' - Indicates if Change Data Capture (CDC) is supported.-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--instance NFData 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' - The number of rows added during the Full Load operation.------ * 'tsInserts' - The number of insert actions performed on a table.------ * 'tsSchemaName' - The schema name.------ * 'tsTableState' - The state of the table.------ * 'tsDdls' - The Data Definition Language (DDL) used to build and modify the structure of your tables.------ * 'tsDeletes' - The number of delete actions performed on a table.------ * 'tsUpdates' - The number of update actions performed on a table.------ * 'tsLastUpdateTime' - The last time the table was updated.------ * 'tsTableName' - The name of the table.-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--instance NFData 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' - 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}_.:/=+\\-]*)$").------ * 'tagKey' - A key is the required name of the tag. The string value can be from 1 to 128 Unicode characters in length and cannot be prefixed with "aws:" or "dms:". The string can only contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").-tag-    :: Tag-tag =-    Tag'-    { _tagValue = Nothing-    , _tagKey = Nothing-    }---- | A value is the optional value of the tag. The string value can be from 1 to 256 Unicode characters in length and cannot be prefixed with "aws:" or "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 NFData Tag--instance ToJSON Tag where-        toJSON Tag'{..}-          = object-              (catMaybes-                 [("Value" .=) <$> _tagValue, ("Key" .=) <$> _tagKey])---- |------------ /See:/ 'vpcSecurityGroupMembership' smart constructor.-data VPCSecurityGroupMembership = VPCSecurityGroupMembership'-    { _vsgmStatus             :: !(Maybe Text)-    , _vsgmVPCSecurityGroupId :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'VPCSecurityGroupMembership' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vsgmStatus' - The status of the VPC security group.------ * 'vsgmVPCSecurityGroupId' - The VPC security group Id.-vpcSecurityGroupMembership-    :: VPCSecurityGroupMembership-vpcSecurityGroupMembership =-    VPCSecurityGroupMembership'-    { _vsgmStatus = Nothing-    , _vsgmVPCSecurityGroupId = Nothing-    }---- | The status of the VPC security group.-vsgmStatus :: Lens' VPCSecurityGroupMembership (Maybe Text)-vsgmStatus = lens _vsgmStatus (\ s a -> s{_vsgmStatus = a});---- | The VPC security group Id.-vsgmVPCSecurityGroupId :: Lens' VPCSecurityGroupMembership (Maybe Text)-vsgmVPCSecurityGroupId = lens _vsgmVPCSecurityGroupId (\ s a -> s{_vsgmVPCSecurityGroupId = a});--instance FromJSON VPCSecurityGroupMembership where-        parseJSON-          = withObject "VPCSecurityGroupMembership"-              (\ x ->-                 VPCSecurityGroupMembership' <$>-                   (x .:? "Status") <*> (x .:? "VpcSecurityGroupId"))--instance Hashable VPCSecurityGroupMembership--instance NFData VPCSecurityGroupMembership+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.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' - The maximum allowed value for the quota.+--+-- * 'aqUsed' - The amount currently used toward the quota maximum.+--+-- * 'aqAccountQuotaName' - The name of the AWS DMS quota for this AWS account.+accountQuota+    :: AccountQuota+accountQuota =+  AccountQuota'+  {_aqMax = Nothing, _aqUsed = Nothing, _aqAccountQuotaName = Nothing}+++-- | The maximum allowed value for the quota.+aqMax :: Lens' AccountQuota (Maybe Integer)+aqMax = lens _aqMax (\ s a -> s{_aqMax = a});++-- | The amount currently used toward the quota maximum.+aqUsed :: Lens' AccountQuota (Maybe Integer)+aqUsed = lens _aqUsed (\ s a -> s{_aqUsed = a});++-- | The name of the 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 where++instance NFData AccountQuota where++-- |+--+--+--+-- /See:/ 'availabilityZone' smart constructor.+newtype AvailabilityZone = AvailabilityZone'+  { _azName :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AvailabilityZone' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'azName' - The name of the availability zone.+availabilityZone+    :: AvailabilityZone+availabilityZone = AvailabilityZone' {_azName = Nothing}+++-- | The name of the availability zone.+azName :: Lens' AvailabilityZone (Maybe Text)+azName = lens _azName (\ s a -> s{_azName = a});++instance FromJSON AvailabilityZone where+        parseJSON+          = withObject "AvailabilityZone"+              (\ x -> AvailabilityZone' <$> (x .:? "Name"))++instance Hashable AvailabilityZone where++instance NFData AvailabilityZone where++-- | The SSL certificate that can be used to encrypt connections between the endpoints and the replication instance.+--+--+--+-- /See:/ 'certificate' smart constructor.+data Certificate = Certificate'+  { _cCertificateOwner        :: !(Maybe Text)+  , _cSigningAlgorithm        :: !(Maybe Text)+  , _cValidFromDate           :: !(Maybe POSIX)+  , _cCertificatePem          :: !(Maybe Text)+  , _cCertificateARN          :: !(Maybe Text)+  , _cCertificateCreationDate :: !(Maybe POSIX)+  , _cCertificateIdentifier   :: !(Maybe Text)+  , _cCertificateWallet       :: !(Maybe Base64)+  , _cKeyLength               :: !(Maybe Int)+  , _cValidToDate             :: !(Maybe POSIX)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Certificate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cCertificateOwner' - The owner of the certificate.+--+-- * 'cSigningAlgorithm' - The signing algorithm for the certificate.+--+-- * 'cValidFromDate' - The beginning date that the certificate is valid.+--+-- * 'cCertificatePem' - The contents of the .pem X.509 certificate file for the certificate.+--+-- * 'cCertificateARN' - The Amazon Resource Name (ARN) for the certificate.+--+-- * 'cCertificateCreationDate' - The date that the certificate was created.+--+-- * 'cCertificateIdentifier' - The customer-assigned name of the certificate. Valid characters are A-z and 0-9.+--+-- * 'cCertificateWallet' - The location of the imported Oracle Wallet certificate for use with SSL.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.+--+-- * 'cKeyLength' - The key length of the cryptographic algorithm being used.+--+-- * 'cValidToDate' - The final date that the certificate is valid.+certificate+    :: Certificate+certificate =+  Certificate'+  { _cCertificateOwner = Nothing+  , _cSigningAlgorithm = Nothing+  , _cValidFromDate = Nothing+  , _cCertificatePem = Nothing+  , _cCertificateARN = Nothing+  , _cCertificateCreationDate = Nothing+  , _cCertificateIdentifier = Nothing+  , _cCertificateWallet = Nothing+  , _cKeyLength = Nothing+  , _cValidToDate = Nothing+  }+++-- | The owner of the certificate.+cCertificateOwner :: Lens' Certificate (Maybe Text)+cCertificateOwner = lens _cCertificateOwner (\ s a -> s{_cCertificateOwner = a});++-- | The signing algorithm for the certificate.+cSigningAlgorithm :: Lens' Certificate (Maybe Text)+cSigningAlgorithm = lens _cSigningAlgorithm (\ s a -> s{_cSigningAlgorithm = a});++-- | The beginning date that the certificate is valid.+cValidFromDate :: Lens' Certificate (Maybe UTCTime)+cValidFromDate = lens _cValidFromDate (\ s a -> s{_cValidFromDate = a}) . mapping _Time;++-- | The contents of the .pem X.509 certificate file for the certificate.+cCertificatePem :: Lens' Certificate (Maybe Text)+cCertificatePem = lens _cCertificatePem (\ s a -> s{_cCertificatePem = a});++-- | The Amazon Resource Name (ARN) for the certificate.+cCertificateARN :: Lens' Certificate (Maybe Text)+cCertificateARN = lens _cCertificateARN (\ s a -> s{_cCertificateARN = a});++-- | The date that the certificate was created.+cCertificateCreationDate :: Lens' Certificate (Maybe UTCTime)+cCertificateCreationDate = lens _cCertificateCreationDate (\ s a -> s{_cCertificateCreationDate = a}) . mapping _Time;++-- | The customer-assigned name of the certificate. Valid characters are A-z and 0-9.+cCertificateIdentifier :: Lens' Certificate (Maybe Text)+cCertificateIdentifier = lens _cCertificateIdentifier (\ s a -> s{_cCertificateIdentifier = a});++-- | The location of the imported Oracle Wallet certificate for use with SSL.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.+cCertificateWallet :: Lens' Certificate (Maybe ByteString)+cCertificateWallet = lens _cCertificateWallet (\ s a -> s{_cCertificateWallet = a}) . mapping _Base64;++-- | The key length of the cryptographic algorithm being used.+cKeyLength :: Lens' Certificate (Maybe Int)+cKeyLength = lens _cKeyLength (\ s a -> s{_cKeyLength = a});++-- | The final date that the certificate is valid.+cValidToDate :: Lens' Certificate (Maybe UTCTime)+cValidToDate = lens _cValidToDate (\ s a -> s{_cValidToDate = a}) . mapping _Time;++instance FromJSON Certificate where+        parseJSON+          = withObject "Certificate"+              (\ x ->+                 Certificate' <$>+                   (x .:? "CertificateOwner") <*>+                     (x .:? "SigningAlgorithm")+                     <*> (x .:? "ValidFromDate")+                     <*> (x .:? "CertificatePem")+                     <*> (x .:? "CertificateArn")+                     <*> (x .:? "CertificateCreationDate")+                     <*> (x .:? "CertificateIdentifier")+                     <*> (x .:? "CertificateWallet")+                     <*> (x .:? "KeyLength")+                     <*> (x .:? "ValidToDate"))++instance Hashable Certificate where++instance NFData Certificate where++-- |+--+--+--+-- /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' - The connection status.+--+-- * 'cReplicationInstanceARN' - The Amazon Resource Name (ARN) of the replication instance.+--+-- * 'cEndpointIdentifier' - 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.+--+-- * 'cReplicationInstanceIdentifier' - The replication instance identifier. This parameter is stored as a lowercase string.+--+-- * 'cEndpointARN' - The Amazon Resource Name (ARN) string that uniquely identifies the endpoint.+--+-- * 'cLastFailureMessage' - The error message when the connection last failed.+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 where++instance NFData Connection where++-- |+--+--+--+-- /See:/ 'dynamoDBSettings' smart constructor.+newtype DynamoDBSettings = DynamoDBSettings'+  { _ddsServiceAccessRoleARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DynamoDBSettings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddsServiceAccessRoleARN' - The Amazon Resource Name (ARN) used by the service access IAM role.+dynamoDBSettings+    :: Text -- ^ 'ddsServiceAccessRoleARN'+    -> DynamoDBSettings+dynamoDBSettings pServiceAccessRoleARN_ =+  DynamoDBSettings' {_ddsServiceAccessRoleARN = pServiceAccessRoleARN_}+++-- | The Amazon Resource Name (ARN) used by the service access IAM role.+ddsServiceAccessRoleARN :: Lens' DynamoDBSettings Text+ddsServiceAccessRoleARN = lens _ddsServiceAccessRoleARN (\ s a -> s{_ddsServiceAccessRoleARN = a});++instance FromJSON DynamoDBSettings where+        parseJSON+          = withObject "DynamoDBSettings"+              (\ x ->+                 DynamoDBSettings' <$> (x .: "ServiceAccessRoleArn"))++instance Hashable DynamoDBSettings where++instance NFData DynamoDBSettings where++instance ToJSON DynamoDBSettings where+        toJSON DynamoDBSettings'{..}+          = object+              (catMaybes+                 [Just+                    ("ServiceAccessRoleArn" .=+                       _ddsServiceAccessRoleARN)])++-- |+--+--+--+-- /See:/ 'endpoint' smart constructor.+data Endpoint = Endpoint'+  { _eStatus                    :: !(Maybe Text)+  , _eServerName                :: !(Maybe Text)+  , _eCertificateARN            :: !(Maybe Text)+  , _eExtraConnectionAttributes :: !(Maybe Text)+  , _eEndpointType              :: !(Maybe ReplicationEndpointTypeValue)+  , _eUsername                  :: !(Maybe Text)+  , _eEngineName                :: !(Maybe Text)+  , _eKMSKeyId                  :: !(Maybe Text)+  , _eMongoDBSettings           :: !(Maybe MongoDBSettings)+  , _eSSLMode                   :: !(Maybe DmsSSLModeValue)+  , _eDatabaseName              :: !(Maybe Text)+  , _eS3Settings                :: !(Maybe S3Settings)+  , _eEndpointIdentifier        :: !(Maybe Text)+  , _eExternalId                :: !(Maybe Text)+  , _eDynamoDBSettings          :: !(Maybe DynamoDBSettings)+  , _eEndpointARN               :: !(Maybe Text)+  , _ePort                      :: !(Maybe Int)+  } deriving (Eq, 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' - The status of the endpoint.+--+-- * 'eServerName' - The name of the server at the endpoint.+--+-- * 'eCertificateARN' - The Amazon Resource Name (ARN) used for SSL connection to the endpoint.+--+-- * 'eExtraConnectionAttributes' - Additional connection attributes used to connect to the endpoint.+--+-- * 'eEndpointType' - The type of endpoint.+--+-- * 'eUsername' - The user name used to connect to the endpoint.+--+-- * 'eEngineName' - The database engine name. Valid values, depending on the EndPointType, include MYSQL, ORACLE, POSTGRES, MARIADB, AURORA, REDSHIFT, S3, SYBASE, DYNAMODB, MONGODB, and SQLSERVER.+--+-- * 'eKMSKeyId' - 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.+--+-- * 'eMongoDBSettings' - The settings for the MongoDB source endpoint. For more information, see the @MongoDbSettings@ structure.+--+-- * 'eSSLMode' - The SSL mode used to connect to the endpoint. SSL mode can be one of four values: none, require, verify-ca, verify-full.  The default value is none.+--+-- * 'eDatabaseName' - The name of the database at the endpoint.+--+-- * 'eS3Settings' - The settings for the S3 target endpoint. For more information, see the @S3Settings@ structure.+--+-- * 'eEndpointIdentifier' - 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.+--+-- * 'eExternalId' - Value returned by a call to CreateEndpoint that can be used for cross-account validation. Use it on a subsequent call to CreateEndpoint to create the endpoint with a cross-account.+--+-- * 'eDynamoDBSettings' - The settings for the target DynamoDB database. For more information, see the @DynamoDBSettings@ structure.+--+-- * 'eEndpointARN' - The Amazon Resource Name (ARN) string that uniquely identifies the endpoint.+--+-- * 'ePort' - The port value used to access the endpoint.+endpoint+    :: Endpoint+endpoint =+  Endpoint'+  { _eStatus = Nothing+  , _eServerName = Nothing+  , _eCertificateARN = Nothing+  , _eExtraConnectionAttributes = Nothing+  , _eEndpointType = Nothing+  , _eUsername = Nothing+  , _eEngineName = Nothing+  , _eKMSKeyId = Nothing+  , _eMongoDBSettings = Nothing+  , _eSSLMode = Nothing+  , _eDatabaseName = Nothing+  , _eS3Settings = Nothing+  , _eEndpointIdentifier = Nothing+  , _eExternalId = Nothing+  , _eDynamoDBSettings = 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});++-- | The Amazon Resource Name (ARN) used for SSL connection to the endpoint.+eCertificateARN :: Lens' Endpoint (Maybe Text)+eCertificateARN = lens _eCertificateARN (\ s a -> s{_eCertificateARN = 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. Valid values, depending on the EndPointType, include MYSQL, ORACLE, POSTGRES, MARIADB, AURORA, REDSHIFT, S3, SYBASE, DYNAMODB, MONGODB, and SQLSERVER.+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 settings for the MongoDB source endpoint. For more information, see the @MongoDbSettings@ structure.+eMongoDBSettings :: Lens' Endpoint (Maybe MongoDBSettings)+eMongoDBSettings = lens _eMongoDBSettings (\ s a -> s{_eMongoDBSettings = a});++-- | The SSL mode used to connect to the endpoint. SSL mode can be one of four values: none, require, verify-ca, verify-full.  The default value is none.+eSSLMode :: Lens' Endpoint (Maybe DmsSSLModeValue)+eSSLMode = lens _eSSLMode (\ s a -> s{_eSSLMode = a});++-- | The name of the database at the endpoint.+eDatabaseName :: Lens' Endpoint (Maybe Text)+eDatabaseName = lens _eDatabaseName (\ s a -> s{_eDatabaseName = a});++-- | The settings for the S3 target endpoint. For more information, see the @S3Settings@ structure.+eS3Settings :: Lens' Endpoint (Maybe S3Settings)+eS3Settings = lens _eS3Settings (\ s a -> s{_eS3Settings = 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});++-- | Value returned by a call to CreateEndpoint that can be used for cross-account validation. Use it on a subsequent call to CreateEndpoint to create the endpoint with a cross-account.+eExternalId :: Lens' Endpoint (Maybe Text)+eExternalId = lens _eExternalId (\ s a -> s{_eExternalId = a});++-- | The settings for the target DynamoDB database. For more information, see the @DynamoDBSettings@ structure.+eDynamoDBSettings :: Lens' Endpoint (Maybe DynamoDBSettings)+eDynamoDBSettings = lens _eDynamoDBSettings (\ s a -> s{_eDynamoDBSettings = 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 .:? "CertificateArn")+                     <*> (x .:? "ExtraConnectionAttributes")+                     <*> (x .:? "EndpointType")+                     <*> (x .:? "Username")+                     <*> (x .:? "EngineName")+                     <*> (x .:? "KmsKeyId")+                     <*> (x .:? "MongoDbSettings")+                     <*> (x .:? "SslMode")+                     <*> (x .:? "DatabaseName")+                     <*> (x .:? "S3Settings")+                     <*> (x .:? "EndpointIdentifier")+                     <*> (x .:? "ExternalId")+                     <*> (x .:? "DynamoDbSettings")+                     <*> (x .:? "EndpointArn")+                     <*> (x .:? "Port"))++instance Hashable Endpoint where++instance NFData Endpoint where++-- |+--+--+--+-- /See:/ 'event' smart constructor.+data Event = Event'+  { _eSourceType       :: !(Maybe SourceType)+  , _eSourceIdentifier :: !(Maybe Text)+  , _eDate             :: !(Maybe POSIX)+  , _eEventCategories  :: !(Maybe [Text])+  , _eMessage          :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Event' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'eSourceType' - The type of AWS DMS resource that generates events.  Valid values: replication-instance | endpoint | migration-task+--+-- * 'eSourceIdentifier' - The identifier of the event source. An identifier must begin with a letter and must contain only ASCII letters, digits, and hyphens; it cannot end with a hyphen or contain two consecutive hyphens.  Constraints:replication instance, endpoint, migration task+--+-- * 'eDate' - The date of the event.+--+-- * 'eEventCategories' - The event categories available for the specified source type.+--+-- * 'eMessage' - The event message.+event+    :: Event+event =+  Event'+  { _eSourceType = Nothing+  , _eSourceIdentifier = Nothing+  , _eDate = Nothing+  , _eEventCategories = Nothing+  , _eMessage = Nothing+  }+++-- | The type of AWS DMS resource that generates events.  Valid values: replication-instance | endpoint | migration-task+eSourceType :: Lens' Event (Maybe SourceType)+eSourceType = lens _eSourceType (\ s a -> s{_eSourceType = a});++-- | The identifier of the event source. An identifier must begin with a letter and must contain only ASCII letters, digits, and hyphens; it cannot end with a hyphen or contain two consecutive hyphens.  Constraints:replication instance, endpoint, migration task+eSourceIdentifier :: Lens' Event (Maybe Text)+eSourceIdentifier = lens _eSourceIdentifier (\ s a -> s{_eSourceIdentifier = a});++-- | The date of the event.+eDate :: Lens' Event (Maybe UTCTime)+eDate = lens _eDate (\ s a -> s{_eDate = a}) . mapping _Time;++-- | The event categories available for the specified source type.+eEventCategories :: Lens' Event [Text]+eEventCategories = lens _eEventCategories (\ s a -> s{_eEventCategories = a}) . _Default . _Coerce;++-- | The event message.+eMessage :: Lens' Event (Maybe Text)+eMessage = lens _eMessage (\ s a -> s{_eMessage = a});++instance FromJSON Event where+        parseJSON+          = withObject "Event"+              (\ x ->+                 Event' <$>+                   (x .:? "SourceType") <*> (x .:? "SourceIdentifier")+                     <*> (x .:? "Date")+                     <*> (x .:? "EventCategories" .!= mempty)+                     <*> (x .:? "Message"))++instance Hashable Event where++instance NFData Event where++-- |+--+--+--+-- /See:/ 'eventCategoryGroup' smart constructor.+data EventCategoryGroup = EventCategoryGroup'+  { _ecgSourceType      :: !(Maybe Text)+  , _ecgEventCategories :: !(Maybe [Text])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EventCategoryGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ecgSourceType' - The type of AWS DMS resource that generates events.  Valid values: replication-instance | replication-server | security-group | migration-task+--+-- * 'ecgEventCategories' - A list of event categories for a @SourceType@ that you want to subscribe to.+eventCategoryGroup+    :: EventCategoryGroup+eventCategoryGroup =+  EventCategoryGroup' {_ecgSourceType = Nothing, _ecgEventCategories = Nothing}+++-- | The type of AWS DMS resource that generates events.  Valid values: replication-instance | replication-server | security-group | migration-task+ecgSourceType :: Lens' EventCategoryGroup (Maybe Text)+ecgSourceType = lens _ecgSourceType (\ s a -> s{_ecgSourceType = a});++-- | A list of event categories for a @SourceType@ that you want to subscribe to.+ecgEventCategories :: Lens' EventCategoryGroup [Text]+ecgEventCategories = lens _ecgEventCategories (\ s a -> s{_ecgEventCategories = a}) . _Default . _Coerce;++instance FromJSON EventCategoryGroup where+        parseJSON+          = withObject "EventCategoryGroup"+              (\ x ->+                 EventCategoryGroup' <$>+                   (x .:? "SourceType") <*>+                     (x .:? "EventCategories" .!= mempty))++instance Hashable EventCategoryGroup where++instance NFData EventCategoryGroup where++-- |+--+--+--+-- /See:/ 'eventSubscription' smart constructor.+data EventSubscription = EventSubscription'+  { _esStatus                   :: !(Maybe Text)+  , _esCustomerAWSId            :: !(Maybe Text)+  , _esCustSubscriptionId       :: !(Maybe Text)+  , _esSNSTopicARN              :: !(Maybe Text)+  , _esEnabled                  :: !(Maybe Bool)+  , _esSourceType               :: !(Maybe Text)+  , _esSubscriptionCreationTime :: !(Maybe Text)+  , _esEventCategoriesList      :: !(Maybe [Text])+  , _esSourceIdsList            :: !(Maybe [Text])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EventSubscription' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'esStatus' - The status of the AWS DMS event notification subscription. Constraints: Can be one of the following: creating | modifying | deleting | active | no-permission | topic-not-exist The status "no-permission" indicates that AWS DMS no longer has permission to post to the SNS topic. The status "topic-not-exist" indicates that the topic was deleted after the subscription was created.+--+-- * 'esCustomerAWSId' - The AWS customer account associated with the AWS DMS event notification subscription.+--+-- * 'esCustSubscriptionId' - The AWS DMS event notification subscription Id.+--+-- * 'esSNSTopicARN' - The topic ARN of the AWS DMS event notification subscription.+--+-- * 'esEnabled' - Boolean value that indicates if the event subscription is enabled.+--+-- * 'esSourceType' - The type of AWS DMS resource that generates events.  Valid values: replication-instance | replication-server | security-group | migration-task+--+-- * 'esSubscriptionCreationTime' - The time the RDS event notification subscription was created.+--+-- * 'esEventCategoriesList' - A lists of event categories.+--+-- * 'esSourceIdsList' - A list of source Ids for the event subscription.+eventSubscription+    :: EventSubscription+eventSubscription =+  EventSubscription'+  { _esStatus = Nothing+  , _esCustomerAWSId = Nothing+  , _esCustSubscriptionId = Nothing+  , _esSNSTopicARN = Nothing+  , _esEnabled = Nothing+  , _esSourceType = Nothing+  , _esSubscriptionCreationTime = Nothing+  , _esEventCategoriesList = Nothing+  , _esSourceIdsList = Nothing+  }+++-- | The status of the AWS DMS event notification subscription. Constraints: Can be one of the following: creating | modifying | deleting | active | no-permission | topic-not-exist The status "no-permission" indicates that AWS DMS no longer has permission to post to the SNS topic. The status "topic-not-exist" indicates that the topic was deleted after the subscription was created.+esStatus :: Lens' EventSubscription (Maybe Text)+esStatus = lens _esStatus (\ s a -> s{_esStatus = a});++-- | The AWS customer account associated with the AWS DMS event notification subscription.+esCustomerAWSId :: Lens' EventSubscription (Maybe Text)+esCustomerAWSId = lens _esCustomerAWSId (\ s a -> s{_esCustomerAWSId = a});++-- | The AWS DMS event notification subscription Id.+esCustSubscriptionId :: Lens' EventSubscription (Maybe Text)+esCustSubscriptionId = lens _esCustSubscriptionId (\ s a -> s{_esCustSubscriptionId = a});++-- | The topic ARN of the AWS DMS event notification subscription.+esSNSTopicARN :: Lens' EventSubscription (Maybe Text)+esSNSTopicARN = lens _esSNSTopicARN (\ s a -> s{_esSNSTopicARN = a});++-- | Boolean value that indicates if the event subscription is enabled.+esEnabled :: Lens' EventSubscription (Maybe Bool)+esEnabled = lens _esEnabled (\ s a -> s{_esEnabled = a});++-- | The type of AWS DMS resource that generates events.  Valid values: replication-instance | replication-server | security-group | migration-task+esSourceType :: Lens' EventSubscription (Maybe Text)+esSourceType = lens _esSourceType (\ s a -> s{_esSourceType = a});++-- | The time the RDS event notification subscription was created.+esSubscriptionCreationTime :: Lens' EventSubscription (Maybe Text)+esSubscriptionCreationTime = lens _esSubscriptionCreationTime (\ s a -> s{_esSubscriptionCreationTime = a});++-- | A lists of event categories.+esEventCategoriesList :: Lens' EventSubscription [Text]+esEventCategoriesList = lens _esEventCategoriesList (\ s a -> s{_esEventCategoriesList = a}) . _Default . _Coerce;++-- | A list of source Ids for the event subscription.+esSourceIdsList :: Lens' EventSubscription [Text]+esSourceIdsList = lens _esSourceIdsList (\ s a -> s{_esSourceIdsList = a}) . _Default . _Coerce;++instance FromJSON EventSubscription where+        parseJSON+          = withObject "EventSubscription"+              (\ x ->+                 EventSubscription' <$>+                   (x .:? "Status") <*> (x .:? "CustomerAwsId") <*>+                     (x .:? "CustSubscriptionId")+                     <*> (x .:? "SnsTopicArn")+                     <*> (x .:? "Enabled")+                     <*> (x .:? "SourceType")+                     <*> (x .:? "SubscriptionCreationTime")+                     <*> (x .:? "EventCategoriesList" .!= mempty)+                     <*> (x .:? "SourceIdsList" .!= mempty))++instance Hashable EventSubscription where++instance NFData EventSubscription where++-- |+--+--+--+-- /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' - The name of the filter.+--+-- * 'fValues' - The filter value.+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 where++instance NFData Filter where++instance ToJSON Filter where+        toJSON Filter'{..}+          = object+              (catMaybes+                 [Just ("Name" .= _fName),+                  Just ("Values" .= _fValues)])++-- |+--+--+--+-- /See:/ 'mongoDBSettings' smart constructor.+data MongoDBSettings = MongoDBSettings'+  { _mdsServerName        :: !(Maybe Text)+  , _mdsAuthMechanism     :: !(Maybe AuthMechanismValue)+  , _mdsUsername          :: !(Maybe Text)+  , _mdsPassword          :: !(Maybe (Sensitive Text))+  , _mdsNestingLevel      :: !(Maybe NestingLevelValue)+  , _mdsDatabaseName      :: !(Maybe Text)+  , _mdsDocsToInvestigate :: !(Maybe Text)+  , _mdsAuthSource        :: !(Maybe Text)+  , _mdsExtractDocId      :: !(Maybe Text)+  , _mdsAuthType          :: !(Maybe AuthTypeValue)+  , _mdsPort              :: !(Maybe Int)+  } deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'MongoDBSettings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mdsServerName' - The name of the server on the MongoDB source endpoint.+--+-- * 'mdsAuthMechanism' - The authentication mechanism you use to access the MongoDB source endpoint. Valid values: DEFAULT, MONGODB_CR, SCRAM_SHA_1  DEFAULT – For MongoDB version 2.x, use MONGODB_CR. For MongoDB version 3.x, use SCRAM_SHA_1. This attribute is not used when authType=No.+--+-- * 'mdsUsername' - The user name you use to access the MongoDB source endpoint.+--+-- * 'mdsPassword' - The password for the user account you use to access the MongoDB source endpoint.+--+-- * 'mdsNestingLevel' - Specifies either document or table mode.  Valid values: NONE, ONE Default value is NONE. Specify NONE to use document mode. Specify ONE to use table mode.+--+-- * 'mdsDatabaseName' - The database name on the MongoDB source endpoint.+--+-- * 'mdsDocsToInvestigate' - Indicates the number of documents to preview to determine the document organization. Use this attribute when @NestingLevel@ is set to ONE.  Must be a positive value greater than 0. Default value is 1000.+--+-- * 'mdsAuthSource' - The MongoDB database name. This attribute is not used when @authType=NO@ .  The default is admin.+--+-- * 'mdsExtractDocId' - Specifies the document ID. Use this attribute when @NestingLevel@ is set to NONE.  Default value is false.+--+-- * 'mdsAuthType' - The authentication type you use to access the MongoDB source endpoint. Valid values: NO, PASSWORD  When NO is selected, user name and password parameters are not used and can be empty.+--+-- * 'mdsPort' - The port value for the MongoDB source endpoint.+mongoDBSettings+    :: MongoDBSettings+mongoDBSettings =+  MongoDBSettings'+  { _mdsServerName = Nothing+  , _mdsAuthMechanism = Nothing+  , _mdsUsername = Nothing+  , _mdsPassword = Nothing+  , _mdsNestingLevel = Nothing+  , _mdsDatabaseName = Nothing+  , _mdsDocsToInvestigate = Nothing+  , _mdsAuthSource = Nothing+  , _mdsExtractDocId = Nothing+  , _mdsAuthType = Nothing+  , _mdsPort = Nothing+  }+++-- | The name of the server on the MongoDB source endpoint.+mdsServerName :: Lens' MongoDBSettings (Maybe Text)+mdsServerName = lens _mdsServerName (\ s a -> s{_mdsServerName = a});++-- | The authentication mechanism you use to access the MongoDB source endpoint. Valid values: DEFAULT, MONGODB_CR, SCRAM_SHA_1  DEFAULT – For MongoDB version 2.x, use MONGODB_CR. For MongoDB version 3.x, use SCRAM_SHA_1. This attribute is not used when authType=No.+mdsAuthMechanism :: Lens' MongoDBSettings (Maybe AuthMechanismValue)+mdsAuthMechanism = lens _mdsAuthMechanism (\ s a -> s{_mdsAuthMechanism = a});++-- | The user name you use to access the MongoDB source endpoint.+mdsUsername :: Lens' MongoDBSettings (Maybe Text)+mdsUsername = lens _mdsUsername (\ s a -> s{_mdsUsername = a});++-- | The password for the user account you use to access the MongoDB source endpoint.+mdsPassword :: Lens' MongoDBSettings (Maybe Text)+mdsPassword = lens _mdsPassword (\ s a -> s{_mdsPassword = a}) . mapping _Sensitive;++-- | Specifies either document or table mode.  Valid values: NONE, ONE Default value is NONE. Specify NONE to use document mode. Specify ONE to use table mode.+mdsNestingLevel :: Lens' MongoDBSettings (Maybe NestingLevelValue)+mdsNestingLevel = lens _mdsNestingLevel (\ s a -> s{_mdsNestingLevel = a});++-- | The database name on the MongoDB source endpoint.+mdsDatabaseName :: Lens' MongoDBSettings (Maybe Text)+mdsDatabaseName = lens _mdsDatabaseName (\ s a -> s{_mdsDatabaseName = a});++-- | Indicates the number of documents to preview to determine the document organization. Use this attribute when @NestingLevel@ is set to ONE.  Must be a positive value greater than 0. Default value is 1000.+mdsDocsToInvestigate :: Lens' MongoDBSettings (Maybe Text)+mdsDocsToInvestigate = lens _mdsDocsToInvestigate (\ s a -> s{_mdsDocsToInvestigate = a});++-- | The MongoDB database name. This attribute is not used when @authType=NO@ .  The default is admin.+mdsAuthSource :: Lens' MongoDBSettings (Maybe Text)+mdsAuthSource = lens _mdsAuthSource (\ s a -> s{_mdsAuthSource = a});++-- | Specifies the document ID. Use this attribute when @NestingLevel@ is set to NONE.  Default value is false.+mdsExtractDocId :: Lens' MongoDBSettings (Maybe Text)+mdsExtractDocId = lens _mdsExtractDocId (\ s a -> s{_mdsExtractDocId = a});++-- | The authentication type you use to access the MongoDB source endpoint. Valid values: NO, PASSWORD  When NO is selected, user name and password parameters are not used and can be empty.+mdsAuthType :: Lens' MongoDBSettings (Maybe AuthTypeValue)+mdsAuthType = lens _mdsAuthType (\ s a -> s{_mdsAuthType = a});++-- | The port value for the MongoDB source endpoint.+mdsPort :: Lens' MongoDBSettings (Maybe Int)+mdsPort = lens _mdsPort (\ s a -> s{_mdsPort = a});++instance FromJSON MongoDBSettings where+        parseJSON+          = withObject "MongoDBSettings"+              (\ x ->+                 MongoDBSettings' <$>+                   (x .:? "ServerName") <*> (x .:? "AuthMechanism") <*>+                     (x .:? "Username")+                     <*> (x .:? "Password")+                     <*> (x .:? "NestingLevel")+                     <*> (x .:? "DatabaseName")+                     <*> (x .:? "DocsToInvestigate")+                     <*> (x .:? "AuthSource")+                     <*> (x .:? "ExtractDocId")+                     <*> (x .:? "AuthType")+                     <*> (x .:? "Port"))++instance Hashable MongoDBSettings where++instance NFData MongoDBSettings where++instance ToJSON MongoDBSettings where+        toJSON MongoDBSettings'{..}+          = object+              (catMaybes+                 [("ServerName" .=) <$> _mdsServerName,+                  ("AuthMechanism" .=) <$> _mdsAuthMechanism,+                  ("Username" .=) <$> _mdsUsername,+                  ("Password" .=) <$> _mdsPassword,+                  ("NestingLevel" .=) <$> _mdsNestingLevel,+                  ("DatabaseName" .=) <$> _mdsDatabaseName,+                  ("DocsToInvestigate" .=) <$> _mdsDocsToInvestigate,+                  ("AuthSource" .=) <$> _mdsAuthSource,+                  ("ExtractDocId" .=) <$> _mdsExtractDocId,+                  ("AuthType" .=) <$> _mdsAuthType,+                  ("Port" .=) <$> _mdsPort])++-- |+--+--+--+-- /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' - The version of the replication engine.+--+-- * 'oriMinAllocatedStorage' - The minimum amount of storage (in gigabytes) that can be allocated for the replication instance.+--+-- * 'oriIncludedAllocatedStorage' - The amount of storage (in gigabytes) that is allocated for the replication instance.+--+-- * 'oriMaxAllocatedStorage' - The minimum amount of storage (in gigabytes) that can be allocated for the replication instance.+--+-- * 'oriReplicationInstanceClass' - 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 @+--+-- * 'oriDefaultAllocatedStorage' - The default amount of storage (in gigabytes) that is allocated for the replication instance.+--+-- * 'oriStorageType' - The type of storage used by the replication instance.+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 where++instance NFData OrderableReplicationInstance where++-- |+--+--+--+-- /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' - The status of the schema.+--+-- * 'rssLastRefreshDate' - The date the schema was last refreshed.+--+-- * 'rssReplicationInstanceARN' - The Amazon Resource Name (ARN) of the replication instance.+--+-- * 'rssEndpointARN' - The Amazon Resource Name (ARN) string that uniquely identifies the endpoint.+--+-- * 'rssLastFailureMessage' - The last failure message for the schema.+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 where++instance NFData RefreshSchemasStatus where++-- |+--+--+--+-- /See:/ 'replicationInstance' smart constructor.+data ReplicationInstance = ReplicationInstance'+  { _riEngineVersion :: !(Maybe Text)+  , _riPubliclyAccessible :: !(Maybe Bool)+  , _riAutoMinorVersionUpgrade :: !(Maybe Bool)+  , _riReplicationInstancePublicIPAddresses :: !(Maybe [Text])+  , _riReplicationSubnetGroup :: !(Maybe ReplicationSubnetGroup)+  , _riInstanceCreateTime :: !(Maybe POSIX)+  , _riReplicationInstanceStatus :: !(Maybe Text)+  , _riReplicationInstancePrivateIPAddresses :: !(Maybe [Text])+  , _riPreferredMaintenanceWindow :: !(Maybe Text)+  , _riReplicationInstancePrivateIPAddress :: !(Maybe Text)+  , _riKMSKeyId :: !(Maybe Text)+  , _riAvailabilityZone :: !(Maybe Text)+  , _riVPCSecurityGroups :: !(Maybe [VPCSecurityGroupMembership])+  , _riMultiAZ :: !(Maybe Bool)+  , _riSecondaryAvailabilityZone :: !(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' - The engine version number of the replication instance.+--+-- * 'riPubliclyAccessible' - 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@ .+--+-- * 'riAutoMinorVersionUpgrade' - Boolean value indicating if minor version upgrades will be automatically applied to the instance.+--+-- * 'riReplicationInstancePublicIPAddresses' - The public IP address of the replication instance.+--+-- * 'riReplicationSubnetGroup' - The subnet group for the replication instance.+--+-- * 'riInstanceCreateTime' - The time the replication instance was created.+--+-- * 'riReplicationInstanceStatus' - The status of the replication instance.+--+-- * 'riReplicationInstancePrivateIPAddresses' - The private IP address of the replication instance.+--+-- * 'riPreferredMaintenanceWindow' - The maintenance window times for the replication instance.+--+-- * 'riReplicationInstancePrivateIPAddress' - The private IP address of the replication instance.+--+-- * 'riKMSKeyId' - 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.+--+-- * 'riAvailabilityZone' - The Availability Zone for the instance.+--+-- * 'riVPCSecurityGroups' - The VPC security group for the instance.+--+-- * 'riMultiAZ' - Specifies if the replication instance is a Multi-AZ deployment. You cannot set the @AvailabilityZone@ parameter if the Multi-AZ parameter is set to @true@ .+--+-- * 'riSecondaryAvailabilityZone' - The availability zone of the standby replication instance in a Multi-AZ deployment.+--+-- * 'riReplicationInstanceARN' - The Amazon Resource Name (ARN) of the replication instance.+--+-- * 'riAllocatedStorage' - The amount of storage (in gigabytes) that is allocated for the replication instance.+--+-- * 'riReplicationInstancePublicIPAddress' - The public IP address of the replication instance.+--+-- * 'riReplicationInstanceClass' - 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 @+--+-- * 'riReplicationInstanceIdentifier' - 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@+--+-- * 'riPendingModifiedValues' - The pending modification values.+replicationInstance+    :: ReplicationInstance+replicationInstance =+  ReplicationInstance'+  { _riEngineVersion = Nothing+  , _riPubliclyAccessible = Nothing+  , _riAutoMinorVersionUpgrade = Nothing+  , _riReplicationInstancePublicIPAddresses = Nothing+  , _riReplicationSubnetGroup = Nothing+  , _riInstanceCreateTime = Nothing+  , _riReplicationInstanceStatus = Nothing+  , _riReplicationInstancePrivateIPAddresses = Nothing+  , _riPreferredMaintenanceWindow = Nothing+  , _riReplicationInstancePrivateIPAddress = Nothing+  , _riKMSKeyId = Nothing+  , _riAvailabilityZone = Nothing+  , _riVPCSecurityGroups = Nothing+  , _riMultiAZ = Nothing+  , _riSecondaryAvailabilityZone = 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 public IP address of the replication instance.+riReplicationInstancePublicIPAddresses :: Lens' ReplicationInstance [Text]+riReplicationInstancePublicIPAddresses = lens _riReplicationInstancePublicIPAddresses (\ s a -> s{_riReplicationInstancePublicIPAddresses = a}) . _Default . _Coerce;++-- | 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 private IP address of the replication instance.+riReplicationInstancePrivateIPAddresses :: Lens' ReplicationInstance [Text]+riReplicationInstancePrivateIPAddresses = lens _riReplicationInstancePrivateIPAddresses (\ s a -> s{_riReplicationInstancePrivateIPAddresses = a}) . _Default . _Coerce;++-- | 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 VPC security group for the instance.+riVPCSecurityGroups :: Lens' ReplicationInstance [VPCSecurityGroupMembership]+riVPCSecurityGroups = lens _riVPCSecurityGroups (\ s a -> s{_riVPCSecurityGroups = a}) . _Default . _Coerce;++-- | Specifies if the replication instance is a Multi-AZ deployment. You cannot set the @AvailabilityZone@ parameter if the Multi-AZ parameter is set to @true@ .+riMultiAZ :: Lens' ReplicationInstance (Maybe Bool)+riMultiAZ = lens _riMultiAZ (\ s a -> s{_riMultiAZ = a});++-- | The availability zone of the standby replication instance in a Multi-AZ deployment.+riSecondaryAvailabilityZone :: Lens' ReplicationInstance (Maybe Text)+riSecondaryAvailabilityZone = lens _riSecondaryAvailabilityZone (\ s a -> s{_riSecondaryAvailabilityZone = 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 .:? "ReplicationInstancePublicIpAddresses" .!=+                        mempty)+                     <*> (x .:? "ReplicationSubnetGroup")+                     <*> (x .:? "InstanceCreateTime")+                     <*> (x .:? "ReplicationInstanceStatus")+                     <*>+                     (x .:? "ReplicationInstancePrivateIpAddresses" .!=+                        mempty)+                     <*> (x .:? "PreferredMaintenanceWindow")+                     <*> (x .:? "ReplicationInstancePrivateIpAddress")+                     <*> (x .:? "KmsKeyId")+                     <*> (x .:? "AvailabilityZone")+                     <*> (x .:? "VpcSecurityGroups" .!= mempty)+                     <*> (x .:? "MultiAZ")+                     <*> (x .:? "SecondaryAvailabilityZone")+                     <*> (x .:? "ReplicationInstanceArn")+                     <*> (x .:? "AllocatedStorage")+                     <*> (x .:? "ReplicationInstancePublicIpAddress")+                     <*> (x .:? "ReplicationInstanceClass")+                     <*> (x .:? "ReplicationInstanceIdentifier")+                     <*> (x .:? "PendingModifiedValues"))++instance Hashable ReplicationInstance where++instance NFData ReplicationInstance where++-- |+--+--+--+-- /See:/ 'replicationPendingModifiedValues' smart constructor.+data ReplicationPendingModifiedValues = ReplicationPendingModifiedValues'+  { _rpmvEngineVersion            :: !(Maybe Text)+  , _rpmvMultiAZ                  :: !(Maybe Bool)+  , _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' - The engine version number of the replication instance.+--+-- * 'rpmvMultiAZ' - Specifies if the replication instance is a Multi-AZ deployment. You cannot set the @AvailabilityZone@ parameter if the Multi-AZ parameter is set to @true@ .+--+-- * 'rpmvAllocatedStorage' - The amount of storage (in gigabytes) that is allocated for the replication instance.+--+-- * 'rpmvReplicationInstanceClass' - 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 @+replicationPendingModifiedValues+    :: ReplicationPendingModifiedValues+replicationPendingModifiedValues =+  ReplicationPendingModifiedValues'+  { _rpmvEngineVersion = Nothing+  , _rpmvMultiAZ = 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});++-- | Specifies if the replication instance is a Multi-AZ deployment. You cannot set the @AvailabilityZone@ parameter if the Multi-AZ parameter is set to @true@ .+rpmvMultiAZ :: Lens' ReplicationPendingModifiedValues (Maybe Bool)+rpmvMultiAZ = lens _rpmvMultiAZ (\ s a -> s{_rpmvMultiAZ = 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 .:? "MultiAZ") <*>+                     (x .:? "AllocatedStorage")+                     <*> (x .:? "ReplicationInstanceClass"))++instance Hashable ReplicationPendingModifiedValues+         where++instance NFData ReplicationPendingModifiedValues+         where++-- |+--+--+--+-- /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' - The ID of the VPC.+--+-- * 'rsgSubnets' - The subnets that are in the subnet group.+--+-- * 'rsgReplicationSubnetGroupIdentifier' - The identifier of the replication instance subnet group.+--+-- * 'rsgSubnetGroupStatus' - The status of the subnet group.+--+-- * 'rsgReplicationSubnetGroupDescription' - The description of the replication subnet group.+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 where++instance NFData ReplicationSubnetGroup where++-- |+--+--+--+-- /See:/ 'replicationTask' smart constructor.+data ReplicationTask = ReplicationTask'+  { _rReplicationTaskSettings     :: !(Maybe Text)+  , _rStatus                      :: !(Maybe Text)+  , _rStopReason                  :: !(Maybe Text)+  , _rTargetEndpointARN           :: !(Maybe Text)+  , _rReplicationTaskIdentifier   :: !(Maybe Text)+  , _rReplicationTaskStartDate    :: !(Maybe POSIX)+  , _rSourceEndpointARN           :: !(Maybe Text)+  , _rTableMappings               :: !(Maybe Text)+  , _rReplicationTaskCreationDate :: !(Maybe POSIX)+  , _rMigrationType               :: !(Maybe MigrationTypeValue)+  , _rReplicationTaskARN          :: !(Maybe Text)+  , _rReplicationTaskStats        :: !(Maybe ReplicationTaskStats)+  , _rReplicationInstanceARN      :: !(Maybe Text)+  , _rLastFailureMessage          :: !(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:+--+-- * 'rReplicationTaskSettings' - The settings for the replication task.+--+-- * 'rStatus' - The status of the replication task.+--+-- * 'rStopReason' - The reason the replication task was stopped.+--+-- * 'rTargetEndpointARN' - The Amazon Resource Name (ARN) string that uniquely identifies the endpoint.+--+-- * 'rReplicationTaskIdentifier' - The replication task identifier. Constraints:     * Must contain from 1 to 255 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens.+--+-- * 'rReplicationTaskStartDate' - The date the replication task is scheduled to start.+--+-- * 'rSourceEndpointARN' - The Amazon Resource Name (ARN) string that uniquely identifies the endpoint.+--+-- * 'rTableMappings' - Table mappings specified in the task.+--+-- * 'rReplicationTaskCreationDate' - The date the replication task was created.+--+-- * 'rMigrationType' - The type of migration.+--+-- * 'rReplicationTaskARN' - The Amazon Resource Name (ARN) of the replication task.+--+-- * 'rReplicationTaskStats' - The statistics for the task, including elapsed time, tables loaded, and table errors.+--+-- * 'rReplicationInstanceARN' - The Amazon Resource Name (ARN) of the replication instance.+--+-- * 'rLastFailureMessage' - The last error (failure) message generated for the replication instance.+replicationTask+    :: ReplicationTask+replicationTask =+  ReplicationTask'+  { _rReplicationTaskSettings = Nothing+  , _rStatus = Nothing+  , _rStopReason = Nothing+  , _rTargetEndpointARN = Nothing+  , _rReplicationTaskIdentifier = Nothing+  , _rReplicationTaskStartDate = Nothing+  , _rSourceEndpointARN = Nothing+  , _rTableMappings = Nothing+  , _rReplicationTaskCreationDate = Nothing+  , _rMigrationType = Nothing+  , _rReplicationTaskARN = Nothing+  , _rReplicationTaskStats = Nothing+  , _rReplicationInstanceARN = Nothing+  , _rLastFailureMessage = Nothing+  }+++-- | The settings for the replication task.+rReplicationTaskSettings :: Lens' ReplicationTask (Maybe Text)+rReplicationTaskSettings = lens _rReplicationTaskSettings (\ s a -> s{_rReplicationTaskSettings = a});++-- | The status of the replication task.+rStatus :: Lens' ReplicationTask (Maybe Text)+rStatus = lens _rStatus (\ s a -> s{_rStatus = a});++-- | The reason the replication task was stopped.+rStopReason :: Lens' ReplicationTask (Maybe Text)+rStopReason = lens _rStopReason (\ s a -> s{_rStopReason = a});++-- | The Amazon Resource Name (ARN) string that uniquely identifies the endpoint.+rTargetEndpointARN :: Lens' ReplicationTask (Maybe Text)+rTargetEndpointARN = lens _rTargetEndpointARN (\ s a -> s{_rTargetEndpointARN = a});++-- | The replication task identifier. Constraints:     * Must contain from 1 to 255 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens.+rReplicationTaskIdentifier :: Lens' ReplicationTask (Maybe Text)+rReplicationTaskIdentifier = lens _rReplicationTaskIdentifier (\ s a -> s{_rReplicationTaskIdentifier = a});++-- | The date the replication task is scheduled to start.+rReplicationTaskStartDate :: Lens' ReplicationTask (Maybe UTCTime)+rReplicationTaskStartDate = lens _rReplicationTaskStartDate (\ s a -> s{_rReplicationTaskStartDate = a}) . mapping _Time;++-- | The Amazon Resource Name (ARN) string that uniquely identifies the endpoint.+rSourceEndpointARN :: Lens' ReplicationTask (Maybe Text)+rSourceEndpointARN = lens _rSourceEndpointARN (\ s a -> s{_rSourceEndpointARN = a});++-- | Table mappings specified in the task.+rTableMappings :: Lens' ReplicationTask (Maybe Text)+rTableMappings = lens _rTableMappings (\ s a -> s{_rTableMappings = a});++-- | The date the replication task was created.+rReplicationTaskCreationDate :: Lens' ReplicationTask (Maybe UTCTime)+rReplicationTaskCreationDate = lens _rReplicationTaskCreationDate (\ s a -> s{_rReplicationTaskCreationDate = a}) . mapping _Time;++-- | The type of migration.+rMigrationType :: Lens' ReplicationTask (Maybe MigrationTypeValue)+rMigrationType = lens _rMigrationType (\ s a -> s{_rMigrationType = a});++-- | The Amazon Resource Name (ARN) of the replication task.+rReplicationTaskARN :: Lens' ReplicationTask (Maybe Text)+rReplicationTaskARN = lens _rReplicationTaskARN (\ s a -> s{_rReplicationTaskARN = a});++-- | The statistics for the task, including elapsed time, tables loaded, and table errors.+rReplicationTaskStats :: Lens' ReplicationTask (Maybe ReplicationTaskStats)+rReplicationTaskStats = lens _rReplicationTaskStats (\ s a -> s{_rReplicationTaskStats = a});++-- | The Amazon Resource Name (ARN) of the replication instance.+rReplicationInstanceARN :: Lens' ReplicationTask (Maybe Text)+rReplicationInstanceARN = lens _rReplicationInstanceARN (\ s a -> s{_rReplicationInstanceARN = a});++-- | The last error (failure) message generated for the replication instance.+rLastFailureMessage :: Lens' ReplicationTask (Maybe Text)+rLastFailureMessage = lens _rLastFailureMessage (\ s a -> s{_rLastFailureMessage = a});++instance FromJSON ReplicationTask where+        parseJSON+          = withObject "ReplicationTask"+              (\ x ->+                 ReplicationTask' <$>+                   (x .:? "ReplicationTaskSettings") <*>+                     (x .:? "Status")+                     <*> (x .:? "StopReason")+                     <*> (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 where++instance NFData ReplicationTask where++-- |+--+--+--+-- /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' - The percent complete for the full load migration task.+--+-- * 'rtsElapsedTimeMillis' - The elapsed time of the task, in milliseconds.+--+-- * 'rtsTablesErrored' - The number of errors that have occurred during this task.+--+-- * 'rtsTablesLoaded' - The number of tables loaded for this task.+--+-- * 'rtsTablesQueued' - The number of tables queued for this task.+--+-- * 'rtsTablesLoading' - The number of tables currently loading for this task.+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 where++instance NFData ReplicationTaskStats where++-- |+--+--+--+-- /See:/ 's3Settings' smart constructor.+data S3Settings = S3Settings'+  { _ssCSVDelimiter            :: !(Maybe Text)+  , _ssServiceAccessRoleARN    :: !(Maybe Text)+  , _ssBucketFolder            :: !(Maybe Text)+  , _ssExternalTableDefinition :: !(Maybe Text)+  , _ssBucketName              :: !(Maybe Text)+  , _ssCSVRowDelimiter         :: !(Maybe Text)+  , _ssCompressionType         :: !(Maybe CompressionTypeValue)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'S3Settings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ssCSVDelimiter' - The delimiter used to separate columns in the source files. The default is a comma.+--+-- * 'ssServiceAccessRoleARN' - The Amazon Resource Name (ARN) used by the service access IAM role.+--+-- * 'ssBucketFolder' - An optional parameter to set a folder name in the S3 bucket. If provided, tables are created in the path <bucketFolder>/<schema_name>/<table_name>/. If this parameter is not specified, then the path used is <schema_name>/<table_name>/.+--+-- * 'ssExternalTableDefinition' -+--+-- * 'ssBucketName' - The name of the S3 bucket.+--+-- * 'ssCSVRowDelimiter' - The delimiter used to separate rows in the source files. The default is a carriage return (\n).+--+-- * 'ssCompressionType' - An optional parameter to use GZIP to compress the target files. Set to GZIP to compress the target files. Set to NONE (the default) or do not use to leave the files uncompressed.+s3Settings+    :: S3Settings+s3Settings =+  S3Settings'+  { _ssCSVDelimiter = Nothing+  , _ssServiceAccessRoleARN = Nothing+  , _ssBucketFolder = Nothing+  , _ssExternalTableDefinition = Nothing+  , _ssBucketName = Nothing+  , _ssCSVRowDelimiter = Nothing+  , _ssCompressionType = Nothing+  }+++-- | The delimiter used to separate columns in the source files. The default is a comma.+ssCSVDelimiter :: Lens' S3Settings (Maybe Text)+ssCSVDelimiter = lens _ssCSVDelimiter (\ s a -> s{_ssCSVDelimiter = a});++-- | The Amazon Resource Name (ARN) used by the service access IAM role.+ssServiceAccessRoleARN :: Lens' S3Settings (Maybe Text)+ssServiceAccessRoleARN = lens _ssServiceAccessRoleARN (\ s a -> s{_ssServiceAccessRoleARN = a});++-- | An optional parameter to set a folder name in the S3 bucket. If provided, tables are created in the path <bucketFolder>/<schema_name>/<table_name>/. If this parameter is not specified, then the path used is <schema_name>/<table_name>/.+ssBucketFolder :: Lens' S3Settings (Maybe Text)+ssBucketFolder = lens _ssBucketFolder (\ s a -> s{_ssBucketFolder = a});++-- |+ssExternalTableDefinition :: Lens' S3Settings (Maybe Text)+ssExternalTableDefinition = lens _ssExternalTableDefinition (\ s a -> s{_ssExternalTableDefinition = a});++-- | The name of the S3 bucket.+ssBucketName :: Lens' S3Settings (Maybe Text)+ssBucketName = lens _ssBucketName (\ s a -> s{_ssBucketName = a});++-- | The delimiter used to separate rows in the source files. The default is a carriage return (\n).+ssCSVRowDelimiter :: Lens' S3Settings (Maybe Text)+ssCSVRowDelimiter = lens _ssCSVRowDelimiter (\ s a -> s{_ssCSVRowDelimiter = a});++-- | An optional parameter to use GZIP to compress the target files. Set to GZIP to compress the target files. Set to NONE (the default) or do not use to leave the files uncompressed.+ssCompressionType :: Lens' S3Settings (Maybe CompressionTypeValue)+ssCompressionType = lens _ssCompressionType (\ s a -> s{_ssCompressionType = a});++instance FromJSON S3Settings where+        parseJSON+          = withObject "S3Settings"+              (\ x ->+                 S3Settings' <$>+                   (x .:? "CsvDelimiter") <*>+                     (x .:? "ServiceAccessRoleArn")+                     <*> (x .:? "BucketFolder")+                     <*> (x .:? "ExternalTableDefinition")+                     <*> (x .:? "BucketName")+                     <*> (x .:? "CsvRowDelimiter")+                     <*> (x .:? "CompressionType"))++instance Hashable S3Settings where++instance NFData S3Settings where++instance ToJSON S3Settings where+        toJSON S3Settings'{..}+          = object+              (catMaybes+                 [("CsvDelimiter" .=) <$> _ssCSVDelimiter,+                  ("ServiceAccessRoleArn" .=) <$>+                    _ssServiceAccessRoleARN,+                  ("BucketFolder" .=) <$> _ssBucketFolder,+                  ("ExternalTableDefinition" .=) <$>+                    _ssExternalTableDefinition,+                  ("BucketName" .=) <$> _ssBucketName,+                  ("CsvRowDelimiter" .=) <$> _ssCSVRowDelimiter,+                  ("CompressionType" .=) <$> _ssCompressionType])++-- |+--+--+--+-- /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' - The status of the subnet.+--+-- * 'sSubnetIdentifier' - The subnet identifier.+--+-- * 'sSubnetAvailabilityZone' - The Availability Zone of the subnet.+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 where++instance NFData Subnet where++-- |+--+--+--+-- /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' - The type of endpoint.+--+-- * 'setEngineName' - The database engine name. Valid values, depending on the EndPointType, include MYSQL, ORACLE, POSTGRES, MARIADB, AURORA, REDSHIFT, S3, SYBASE, DYNAMODB, MONGODB, and SQLSERVER.+--+-- * 'setSupportsCDC' - Indicates if Change Data Capture (CDC) is supported.+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. Valid values, depending on the EndPointType, include MYSQL, ORACLE, POSTGRES, MARIADB, AURORA, REDSHIFT, S3, SYBASE, DYNAMODB, MONGODB, and SQLSERVER.+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 where++instance NFData SupportedEndpointType where++-- |+--+--+--+-- /See:/ 'tableStatistics' smart constructor.+data TableStatistics = TableStatistics'+  { _tsFullLoadRows                 :: !(Maybe Integer)+  , _tsInserts                      :: !(Maybe Integer)+  , _tsFullLoadCondtnlChkFailedRows :: !(Maybe Integer)+  , _tsSchemaName                   :: !(Maybe Text)+  , _tsTableState                   :: !(Maybe Text)+  , _tsFullLoadErrorRows            :: !(Maybe Integer)+  , _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' - The number of rows added during the Full Load operation.+--+-- * 'tsInserts' - The number of insert actions performed on a table.+--+-- * 'tsFullLoadCondtnlChkFailedRows' - The number of rows that failed conditional checks during the Full Load operation (valid only for DynamoDB as a target migrations).+--+-- * 'tsSchemaName' - The schema name.+--+-- * 'tsTableState' - The state of the tables described. Valid states: Table does not exist | Before load | Full load | Table completed | Table cancelled | Table error | Table all | Table updates | Table is being reloaded+--+-- * 'tsFullLoadErrorRows' - The number of rows that failed to load during the Full Load operation (valid only for DynamoDB as a target migrations).+--+-- * 'tsDdls' - The Data Definition Language (DDL) used to build and modify the structure of your tables.+--+-- * 'tsDeletes' - The number of delete actions performed on a table.+--+-- * 'tsUpdates' - The number of update actions performed on a table.+--+-- * 'tsLastUpdateTime' - The last time the table was updated.+--+-- * 'tsTableName' - The name of the table.+tableStatistics+    :: TableStatistics+tableStatistics =+  TableStatistics'+  { _tsFullLoadRows = Nothing+  , _tsInserts = Nothing+  , _tsFullLoadCondtnlChkFailedRows = Nothing+  , _tsSchemaName = Nothing+  , _tsTableState = Nothing+  , _tsFullLoadErrorRows = 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 number of rows that failed conditional checks during the Full Load operation (valid only for DynamoDB as a target migrations).+tsFullLoadCondtnlChkFailedRows :: Lens' TableStatistics (Maybe Integer)+tsFullLoadCondtnlChkFailedRows = lens _tsFullLoadCondtnlChkFailedRows (\ s a -> s{_tsFullLoadCondtnlChkFailedRows = a});++-- | The schema name.+tsSchemaName :: Lens' TableStatistics (Maybe Text)+tsSchemaName = lens _tsSchemaName (\ s a -> s{_tsSchemaName = a});++-- | The state of the tables described. Valid states: Table does not exist | Before load | Full load | Table completed | Table cancelled | Table error | Table all | Table updates | Table is being reloaded+tsTableState :: Lens' TableStatistics (Maybe Text)+tsTableState = lens _tsTableState (\ s a -> s{_tsTableState = a});++-- | The number of rows that failed to load during the Full Load operation (valid only for DynamoDB as a target migrations).+tsFullLoadErrorRows :: Lens' TableStatistics (Maybe Integer)+tsFullLoadErrorRows = lens _tsFullLoadErrorRows (\ s a -> s{_tsFullLoadErrorRows = 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 .:? "FullLoadCondtnlChkFailedRows")+                     <*> (x .:? "SchemaName")+                     <*> (x .:? "TableState")+                     <*> (x .:? "FullLoadErrorRows")+                     <*> (x .:? "Ddls")+                     <*> (x .:? "Deletes")+                     <*> (x .:? "Updates")+                     <*> (x .:? "LastUpdateTime")+                     <*> (x .:? "TableName"))++instance Hashable TableStatistics where++instance NFData TableStatistics where++-- |+--+--+--+-- /See:/ 'tableToReload' smart constructor.+data TableToReload = TableToReload'+  { _ttrSchemaName :: !(Maybe Text)+  , _ttrTableName  :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TableToReload' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ttrSchemaName' - The schema name of the table to be reloaded.+--+-- * 'ttrTableName' - The table name of the table to be reloaded.+tableToReload+    :: TableToReload+tableToReload =+  TableToReload' {_ttrSchemaName = Nothing, _ttrTableName = Nothing}+++-- | The schema name of the table to be reloaded.+ttrSchemaName :: Lens' TableToReload (Maybe Text)+ttrSchemaName = lens _ttrSchemaName (\ s a -> s{_ttrSchemaName = a});++-- | The table name of the table to be reloaded.+ttrTableName :: Lens' TableToReload (Maybe Text)+ttrTableName = lens _ttrTableName (\ s a -> s{_ttrTableName = a});++instance Hashable TableToReload where++instance NFData TableToReload where++instance ToJSON TableToReload where+        toJSON TableToReload'{..}+          = object+              (catMaybes+                 [("SchemaName" .=) <$> _ttrSchemaName,+                  ("TableName" .=) <$> _ttrTableName])++-- |+--+--+--+-- /See:/ 'tag' smart constructor.+data Tag = Tag'+  { _tagValue :: !(Maybe Text)+  , _tagKey   :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Tag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tagValue' - A value is the optional value of the tag. The string value can be from 1 to 256 Unicode characters in length and cannot be prefixed with "aws:" or "dms:". The string can only contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").+--+-- * 'tagKey' - A key is the required name of the tag. The string value can be from 1 to 128 Unicode characters in length and cannot be prefixed with "aws:" or "dms:". The string can only contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").+tag+    :: Tag+tag = Tag' {_tagValue = Nothing, _tagKey = Nothing}+++-- | A value is the optional value of the tag. The string value can be from 1 to 256 Unicode characters in length and cannot be prefixed with "aws:" or "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 where++instance NFData Tag where++instance ToJSON Tag where+        toJSON Tag'{..}+          = object+              (catMaybes+                 [("Value" .=) <$> _tagValue, ("Key" .=) <$> _tagKey])++-- |+--+--+--+-- /See:/ 'vpcSecurityGroupMembership' smart constructor.+data VPCSecurityGroupMembership = VPCSecurityGroupMembership'+  { _vsgmStatus             :: !(Maybe Text)+  , _vsgmVPCSecurityGroupId :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'VPCSecurityGroupMembership' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vsgmStatus' - The status of the VPC security group.+--+-- * 'vsgmVPCSecurityGroupId' - The VPC security group Id.+vpcSecurityGroupMembership+    :: VPCSecurityGroupMembership+vpcSecurityGroupMembership =+  VPCSecurityGroupMembership'+  {_vsgmStatus = Nothing, _vsgmVPCSecurityGroupId = Nothing}+++-- | The status of the VPC security group.+vsgmStatus :: Lens' VPCSecurityGroupMembership (Maybe Text)+vsgmStatus = lens _vsgmStatus (\ s a -> s{_vsgmStatus = a});++-- | The VPC security group Id.+vsgmVPCSecurityGroupId :: Lens' VPCSecurityGroupMembership (Maybe Text)+vsgmVPCSecurityGroupId = lens _vsgmVPCSecurityGroupId (\ s a -> s{_vsgmVPCSecurityGroupId = a});++instance FromJSON VPCSecurityGroupMembership where+        parseJSON+          = withObject "VPCSecurityGroupMembership"+              (\ x ->+                 VPCSecurityGroupMembership' <$>+                   (x .:? "Status") <*> (x .:? "VpcSecurityGroupId"))++instance Hashable VPCSecurityGroupMembership where++instance NFData VPCSecurityGroupMembership where