amazonka-dms 1.5.0 → 1.6.0

raw patch · 63 files changed

+2340/−921 lines, 63 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-dms.cabal +9/−5
• fixture/DescribeReplicationInstanceTaskLogs.yaml +10/−0
• fixture/DescribeReplicationInstanceTaskLogsResponse.proto +0/−0
• fixture/DescribeReplicationTaskAssessmentResults.yaml +10/−0
• fixture/DescribeReplicationTaskAssessmentResultsResponse.proto +0/−0
• fixture/RebootReplicationInstance.yaml +10/−0
• fixture/RebootReplicationInstanceResponse.proto +0/−0
• fixture/StartReplicationTaskAssessment.yaml +10/−0
• fixture/StartReplicationTaskAssessmentResponse.proto +0/−0
• gen/Network/AWS/DMS.hs +60/−13
• gen/Network/AWS/DMS/AddTagsToResource.hs +5/−5
• gen/Network/AWS/DMS/CreateEndpoint.hs +65/−43
• gen/Network/AWS/DMS/CreateEventSubscription.hs +21/−21
• gen/Network/AWS/DMS/CreateReplicationInstance.hs +33/−31
• gen/Network/AWS/DMS/CreateReplicationSubnetGroup.hs +16/−15
• gen/Network/AWS/DMS/CreateReplicationTask.hs +45/−25
• gen/Network/AWS/DMS/DeleteCertificate.hs +5/−5
• gen/Network/AWS/DMS/DeleteEndpoint.hs +5/−5
• gen/Network/AWS/DMS/DeleteEventSubscription.hs +7/−5
• gen/Network/AWS/DMS/DeleteReplicationInstance.hs +8/−6
• gen/Network/AWS/DMS/DeleteReplicationSubnetGroup.hs +5/−5
• gen/Network/AWS/DMS/DeleteReplicationTask.hs +5/−5
• gen/Network/AWS/DMS/DescribeAccountAttributes.hs +4/−4
• gen/Network/AWS/DMS/DescribeCertificates.hs +21/−12
• gen/Network/AWS/DMS/DescribeConnections.hs +21/−12
• gen/Network/AWS/DMS/DescribeEndpointTypes.hs +22/−12
• gen/Network/AWS/DMS/DescribeEndpoints.hs +22/−12
• gen/Network/AWS/DMS/DescribeEventCategories.hs +8/−8
• gen/Network/AWS/DMS/DescribeEventSubscriptions.hs +27/−17
• gen/Network/AWS/DMS/DescribeEvents.hs +37/−27
• gen/Network/AWS/DMS/DescribeOrderableReplicationInstances.hs +24/−11
• gen/Network/AWS/DMS/DescribeRefreshSchemasStatus.hs +7/−7
• gen/Network/AWS/DMS/DescribeReplicationInstanceTaskLogs.hs +193/−0
• gen/Network/AWS/DMS/DescribeReplicationInstances.hs +22/−12
• gen/Network/AWS/DMS/DescribeReplicationSubnetGroups.hs +24/−12
• gen/Network/AWS/DMS/DescribeReplicationTaskAssessmentResults.hs +217/−0
• gen/Network/AWS/DMS/DescribeReplicationTasks.hs +22/−12
• gen/Network/AWS/DMS/DescribeSchemas.hs +25/−12
• gen/Network/AWS/DMS/DescribeTableStatistics.hs +29/−19
• gen/Network/AWS/DMS/ImportCertificate.hs +13/−13
• gen/Network/AWS/DMS/ListTagsForResource.hs +5/−5
• gen/Network/AWS/DMS/ModifyEndpoint.hs +59/−37
• gen/Network/AWS/DMS/ModifyEventSubscription.hs +15/−15
• gen/Network/AWS/DMS/ModifyReplicationInstance.hs +29/−27
• gen/Network/AWS/DMS/ModifyReplicationSubnetGroup.hs +13/−13
• gen/Network/AWS/DMS/ModifyReplicationTask.hs +39/−19
• gen/Network/AWS/DMS/RebootReplicationInstance.hs +153/−0
• gen/Network/AWS/DMS/RefreshSchemas.hs +11/−9
• gen/Network/AWS/DMS/ReloadTables.hs +7/−7
• gen/Network/AWS/DMS/RemoveTagsFromResource.hs +5/−5
• gen/Network/AWS/DMS/StartReplicationTask.hs +37/−17
• gen/Network/AWS/DMS/StartReplicationTaskAssessment.hs +150/−0
• gen/Network/AWS/DMS/StopReplicationTask.hs +7/−7
• gen/Network/AWS/DMS/TestConnection.hs +9/−9
• gen/Network/AWS/DMS/Types.hs +49/−16
• gen/Network/AWS/DMS/Types/Product.hs +606/−337
• gen/Network/AWS/DMS/Types/Sum.hs +1/−1
• gen/Network/AWS/DMS/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/DMS.hs +1/−1
• test/Test/AWS/DMS/Internal.hs +1/−1
• test/Test/AWS/Gen/DMS.hs +73/−1

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

@@ -1,5 +1,5 @@ name:                  amazonka-dms-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Database Migration Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -67,8 +67,10 @@         , Network.AWS.DMS.DescribeEvents         , Network.AWS.DMS.DescribeOrderableReplicationInstances         , Network.AWS.DMS.DescribeRefreshSchemasStatus+        , Network.AWS.DMS.DescribeReplicationInstanceTaskLogs         , Network.AWS.DMS.DescribeReplicationInstances         , Network.AWS.DMS.DescribeReplicationSubnetGroups+        , Network.AWS.DMS.DescribeReplicationTaskAssessmentResults         , Network.AWS.DMS.DescribeReplicationTasks         , Network.AWS.DMS.DescribeSchemas         , Network.AWS.DMS.DescribeTableStatistics@@ -79,10 +81,12 @@         , Network.AWS.DMS.ModifyReplicationInstance         , Network.AWS.DMS.ModifyReplicationSubnetGroup         , Network.AWS.DMS.ModifyReplicationTask+        , Network.AWS.DMS.RebootReplicationInstance         , Network.AWS.DMS.RefreshSchemas         , Network.AWS.DMS.ReloadTables         , Network.AWS.DMS.RemoveTagsFromResource         , Network.AWS.DMS.StartReplicationTask+        , Network.AWS.DMS.StartReplicationTaskAssessment         , Network.AWS.DMS.StopReplicationTask         , Network.AWS.DMS.TestConnection         , Network.AWS.DMS.Types@@ -93,7 +97,7 @@         , Network.AWS.DMS.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-dms-test@@ -113,8 +117,8 @@         , Test.AWS.DMS.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-dms         , base         , bytestring

@@ -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,7 +5,7 @@  -- | -- Module      : Network.AWS.DMS--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -79,19 +79,28 @@     -- ** DeleteReplicationInstance     , module Network.AWS.DMS.DeleteReplicationInstance +    -- ** RebootReplicationInstance+    , module Network.AWS.DMS.RebootReplicationInstance+     -- ** ReloadTables     , module Network.AWS.DMS.ReloadTables +    -- ** StartReplicationTaskAssessment+    , module Network.AWS.DMS.StartReplicationTaskAssessment+     -- ** CreateEndpoint     , module Network.AWS.DMS.CreateEndpoint -    -- ** DescribeSchemas+    -- ** DescribeSchemas (Paginated)     , module Network.AWS.DMS.DescribeSchemas      -- ** ModifyEventSubscription     , module Network.AWS.DMS.ModifyEventSubscription -    -- ** DescribeEvents+    -- ** DescribeReplicationInstanceTaskLogs+    , module Network.AWS.DMS.DescribeReplicationInstanceTaskLogs++    -- ** DescribeEvents (Paginated)     , module Network.AWS.DMS.DescribeEvents      -- ** DeleteEndpoint@@ -100,16 +109,19 @@     -- ** ListTagsForResource     , module Network.AWS.DMS.ListTagsForResource -    -- ** DescribeEndpointTypes+    -- ** DescribeEndpointTypes (Paginated)     , module Network.AWS.DMS.DescribeEndpointTypes      -- ** DeleteReplicationTask     , module Network.AWS.DMS.DeleteReplicationTask +    -- ** DescribeReplicationTaskAssessmentResults (Paginated)+    , module Network.AWS.DMS.DescribeReplicationTaskAssessmentResults+     -- ** TestConnection     , module Network.AWS.DMS.TestConnection -    -- ** DescribeConnections+    -- ** DescribeConnections (Paginated)     , module Network.AWS.DMS.DescribeConnections      -- ** RemoveTagsFromResource@@ -121,22 +133,22 @@     -- ** CreateEventSubscription     , module Network.AWS.DMS.CreateEventSubscription -    -- ** DescribeCertificates+    -- ** DescribeCertificates (Paginated)     , module Network.AWS.DMS.DescribeCertificates      -- ** DeleteEventSubscription     , module Network.AWS.DMS.DeleteEventSubscription -    -- ** DescribeTableStatistics+    -- ** DescribeTableStatistics (Paginated)     , module Network.AWS.DMS.DescribeTableStatistics -    -- ** DescribeReplicationSubnetGroups+    -- ** DescribeReplicationSubnetGroups (Paginated)     , module Network.AWS.DMS.DescribeReplicationSubnetGroups      -- ** StartReplicationTask     , module Network.AWS.DMS.StartReplicationTask -    -- ** DescribeEventSubscriptions+    -- ** DescribeEventSubscriptions (Paginated)     , module Network.AWS.DMS.DescribeEventSubscriptions      -- ** AddTagsToResource@@ -151,19 +163,19 @@     -- ** RefreshSchemas     , module Network.AWS.DMS.RefreshSchemas -    -- ** DescribeReplicationTasks+    -- ** DescribeReplicationTasks (Paginated)     , module Network.AWS.DMS.DescribeReplicationTasks      -- ** DescribeEventCategories     , module Network.AWS.DMS.DescribeEventCategories -    -- ** DescribeOrderableReplicationInstances+    -- ** DescribeOrderableReplicationInstances (Paginated)     , module Network.AWS.DMS.DescribeOrderableReplicationInstances      -- ** CreateReplicationTask     , module Network.AWS.DMS.CreateReplicationTask -    -- ** DescribeEndpoints+    -- ** DescribeEndpoints (Paginated)     , module Network.AWS.DMS.DescribeEndpoints      -- ** ModifyReplicationInstance@@ -178,7 +190,7 @@     -- ** DescribeAccountAttributes     , module Network.AWS.DMS.DescribeAccountAttributes -    -- ** DescribeReplicationInstances+    -- ** DescribeReplicationInstances (Paginated)     , module Network.AWS.DMS.DescribeReplicationInstances      -- ** DescribeRefreshSchemasStatus@@ -275,9 +287,12 @@     , eStatus     , eServerName     , eCertificateARN+    , eServiceAccessRoleARN+    , eEngineDisplayName     , eExtraConnectionAttributes     , eEndpointType     , eUsername+    , eExternalTableDefinition     , eEngineName     , eKMSKeyId     , eMongoDBSettings@@ -330,6 +345,7 @@     , mdsServerName     , mdsAuthMechanism     , mdsUsername+    , mdsKMSKeyId     , mdsPassword     , mdsNestingLevel     , mdsDatabaseName@@ -368,6 +384,7 @@     , riReplicationInstancePublicIPAddresses     , riReplicationSubnetGroup     , riInstanceCreateTime+    , riFreeUntil     , riReplicationInstanceStatus     , riReplicationInstancePrivateIPAddresses     , riPreferredMaintenanceWindow@@ -384,6 +401,13 @@     , riReplicationInstanceIdentifier     , riPendingModifiedValues +    -- ** ReplicationInstanceTaskLog+    , ReplicationInstanceTaskLog+    , replicationInstanceTaskLog+    , ritlReplicationTaskName+    , ritlReplicationTaskARN+    , ritlReplicationInstanceTaskLogSize+     -- ** ReplicationPendingModifiedValues     , ReplicationPendingModifiedValues     , replicationPendingModifiedValues@@ -409,16 +433,30 @@     , rStopReason     , rTargetEndpointARN     , rReplicationTaskIdentifier+    , rCdcStartPosition     , rReplicationTaskStartDate     , rSourceEndpointARN+    , rRecoveryCheckpoint     , rTableMappings     , rReplicationTaskCreationDate     , rMigrationType     , rReplicationTaskARN+    , rCdcStopPosition     , rReplicationTaskStats     , rReplicationInstanceARN     , rLastFailureMessage +    -- ** ReplicationTaskAssessmentResult+    , ReplicationTaskAssessmentResult+    , replicationTaskAssessmentResult+    , rtarAssessmentResults+    , rtarAssessmentResultsFile+    , rtarReplicationTaskIdentifier+    , rtarAssessmentStatus+    , rtarS3ObjectURL+    , rtarReplicationTaskLastAssessmentDate+    , rtarReplicationTaskARN+     -- ** ReplicationTaskStats     , ReplicationTaskStats     , replicationTaskStats@@ -450,6 +488,7 @@     -- ** SupportedEndpointType     , SupportedEndpointType     , supportedEndpointType+    , setEngineDisplayName     , setEndpointType     , setEngineName     , setSupportsCDC@@ -457,15 +496,19 @@     -- ** TableStatistics     , TableStatistics     , tableStatistics+    , tsValidationState     , tsFullLoadRows     , tsInserts     , tsFullLoadCondtnlChkFailedRows+    , tsValidationFailedRecords+    , tsValidationSuspendedRecords     , tsSchemaName     , tsTableState     , tsFullLoadErrorRows     , tsDdls     , tsDeletes     , tsUpdates+    , tsValidationPendingRecords     , tsLastUpdateTime     , tsTableName @@ -511,7 +554,9 @@ import Network.AWS.DMS.DescribeOrderableReplicationInstances import Network.AWS.DMS.DescribeRefreshSchemasStatus import Network.AWS.DMS.DescribeReplicationInstances+import Network.AWS.DMS.DescribeReplicationInstanceTaskLogs import Network.AWS.DMS.DescribeReplicationSubnetGroups+import Network.AWS.DMS.DescribeReplicationTaskAssessmentResults import Network.AWS.DMS.DescribeReplicationTasks import Network.AWS.DMS.DescribeSchemas import Network.AWS.DMS.DescribeTableStatistics@@ -522,10 +567,12 @@ import Network.AWS.DMS.ModifyReplicationInstance import Network.AWS.DMS.ModifyReplicationSubnetGroup import Network.AWS.DMS.ModifyReplicationTask+import Network.AWS.DMS.RebootReplicationInstance import Network.AWS.DMS.RefreshSchemas import Network.AWS.DMS.ReloadTables import Network.AWS.DMS.RemoveTagsFromResource import Network.AWS.DMS.StartReplicationTask+import Network.AWS.DMS.StartReplicationTaskAssessment import Network.AWS.DMS.StopReplicationTask import Network.AWS.DMS.TestConnection import Network.AWS.DMS.Types

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.DMS.AddTagsToResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 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) ----- Adds metadata tags to a DMS resource, including replication instance, endpoint, security group, and migration task. These tags can also be used with cost allocation reporting to track cost associated with DMS resources, or used in a Condition statement in an IAM policy for DMS.+-- Adds metadata tags to an AWS DMS resource, including replication instance, endpoint, security group, and migration task. These tags can also be used with cost allocation reporting to track cost associated with DMS resources, or used in a Condition statement in an IAM policy for DMS. -- -- module Network.AWS.DMS.AddTagsToResource@@ -71,11 +71,11 @@  -- | 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});+attrResourceARN = lens _attrResourceARN (\ s a -> s{_attrResourceARN = a})  -- | The tag to be assigned to the DMS resource. attrTags :: Lens' AddTagsToResource [Tag]-attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce;+attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce  instance AWSRequest AddTagsToResource where         type Rs AddTagsToResource = AddTagsToResourceResponse@@ -136,6 +136,6 @@  -- | -- | The response status code. attrrsResponseStatus :: Lens' AddTagsToResourceResponse Int-attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a});+attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a})  instance NFData AddTagsToResourceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.CreateEndpoint--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -29,8 +29,10 @@     -- * Request Lenses     , ceServerName     , ceCertificateARN+    , ceServiceAccessRoleARN     , ceExtraConnectionAttributes     , ceUsername+    , ceExternalTableDefinition     , ceKMSKeyId     , ceMongoDBSettings     , ceSSLMode@@ -67,8 +69,10 @@ data CreateEndpoint = CreateEndpoint'   { _ceServerName                :: !(Maybe Text)   , _ceCertificateARN            :: !(Maybe Text)+  , _ceServiceAccessRoleARN      :: !(Maybe Text)   , _ceExtraConnectionAttributes :: !(Maybe Text)   , _ceUsername                  :: !(Maybe Text)+  , _ceExternalTableDefinition   :: !(Maybe Text)   , _ceKMSKeyId                  :: !(Maybe Text)   , _ceMongoDBSettings           :: !(Maybe MongoDBSettings)   , _ceSSLMode                   :: !(Maybe DmsSSLModeValue)@@ -90,12 +94,16 @@ -- -- * 'ceServerName' - The name of the server where the endpoint database resides. ----- * 'ceCertificateARN' - The Amazon Resource Number (ARN) for the certificate.+-- * 'ceCertificateARN' - The Amazon Resource Name (ARN) for the certificate. --+-- * 'ceServiceAccessRoleARN' - The Amazon Resource Name (ARN) for the service access role you want to use to create the endpoint.+-- -- * 'ceExtraConnectionAttributes' - Additional attributes associated with the connection. -- -- * 'ceUsername' - The user name to be used to login to the endpoint database. --+-- * 'ceExternalTableDefinition' - The external table definition.+-- -- * '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> .@@ -106,7 +114,7 @@ -- -- * 'ceDatabaseName' - The name of the endpoint database. ----- * '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> .+-- * 'ceS3Settings' - Settings in JSON format for the target Amazon 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> . -- -- * '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> . --@@ -118,7 +126,7 @@ -- -- * 'ceEndpointType' - The type of endpoint. ----- * '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.+-- * 'ceEngineName' - The type of engine for the endpoint. Valid values, depending on the EndPointType, include mysql, oracle, postgres, mariadb, aurora, aurora-postgresql, redshift, s3, db2, azuredb, sybase, dynamodb, mongodb, and sqlserver. createEndpoint     :: Text -- ^ 'ceEndpointIdentifier'     -> ReplicationEndpointTypeValue -- ^ 'ceEndpointType'@@ -126,88 +134,98 @@     -> CreateEndpoint 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_-  }+    { _ceServerName = Nothing+    , _ceCertificateARN = Nothing+    , _ceServiceAccessRoleARN = Nothing+    , _ceExtraConnectionAttributes = Nothing+    , _ceUsername = Nothing+    , _ceExternalTableDefinition = 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});+ceServerName = lens _ceServerName (\ s a -> s{_ceServerName = a}) --- | The Amazon Resource Number (ARN) for the certificate.+-- | The Amazon Resource Name (ARN) for the certificate. ceCertificateARN :: Lens' CreateEndpoint (Maybe Text)-ceCertificateARN = lens _ceCertificateARN (\ s a -> s{_ceCertificateARN = a});+ceCertificateARN = lens _ceCertificateARN (\ s a -> s{_ceCertificateARN = a}) +-- | The Amazon Resource Name (ARN) for the service access role you want to use to create the endpoint.+ceServiceAccessRoleARN :: Lens' CreateEndpoint (Maybe Text)+ceServiceAccessRoleARN = lens _ceServiceAccessRoleARN (\ s a -> s{_ceServiceAccessRoleARN = a})+ -- | Additional attributes associated with the connection. ceExtraConnectionAttributes :: Lens' CreateEndpoint (Maybe Text)-ceExtraConnectionAttributes = lens _ceExtraConnectionAttributes (\ s a -> s{_ceExtraConnectionAttributes = a});+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});+ceUsername = lens _ceUsername (\ s a -> s{_ceUsername = a}) +-- | The external table definition.+ceExternalTableDefinition :: Lens' CreateEndpoint (Maybe Text)+ceExternalTableDefinition = lens _ceExternalTableDefinition (\ s a -> s{_ceExternalTableDefinition = 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});+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});+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});+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;+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});+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> .+-- | Settings in JSON format for the target Amazon 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});+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});+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;+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});+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});+ceEndpointIdentifier = lens _ceEndpointIdentifier (\ s a -> s{_ceEndpointIdentifier = a})  -- | The type of endpoint. ceEndpointType :: Lens' CreateEndpoint ReplicationEndpointTypeValue-ceEndpointType = lens _ceEndpointType (\ s a -> s{_ceEndpointType = a});+ceEndpointType = lens _ceEndpointType (\ s a -> s{_ceEndpointType = a}) --- | 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.+-- | The type of engine for the endpoint. Valid values, depending on the EndPointType, include mysql, oracle, postgres, mariadb, aurora, aurora-postgresql, redshift, s3, db2, azuredb, sybase, dynamodb, mongodb, and sqlserver. ceEngineName :: Lens' CreateEndpoint Text-ceEngineName = lens _ceEngineName (\ s a -> s{_ceEngineName = a});+ceEngineName = lens _ceEngineName (\ s a -> s{_ceEngineName = a})  instance AWSRequest CreateEndpoint where         type Rs CreateEndpoint = CreateEndpointResponse@@ -237,9 +255,13 @@               (catMaybes                  [("ServerName" .=) <$> _ceServerName,                   ("CertificateArn" .=) <$> _ceCertificateARN,+                  ("ServiceAccessRoleArn" .=) <$>+                    _ceServiceAccessRoleARN,                   ("ExtraConnectionAttributes" .=) <$>                     _ceExtraConnectionAttributes,                   ("Username" .=) <$> _ceUsername,+                  ("ExternalTableDefinition" .=) <$>+                    _ceExternalTableDefinition,                   ("KmsKeyId" .=) <$> _ceKMSKeyId,                   ("MongoDbSettings" .=) <$> _ceMongoDBSettings,                   ("SslMode" .=) <$> _ceSSLMode,@@ -281,15 +303,15 @@     -> CreateEndpointResponse createEndpointResponse pResponseStatus_ =   CreateEndpointResponse'-  {_cersEndpoint = Nothing, _cersResponseStatus = pResponseStatus_}+    {_cersEndpoint = Nothing, _cersResponseStatus = pResponseStatus_}   -- | The endpoint that was created. cersEndpoint :: Lens' CreateEndpointResponse (Maybe Endpoint)-cersEndpoint = lens _cersEndpoint (\ s a -> s{_cersEndpoint = a});+cersEndpoint = lens _cersEndpoint (\ s a -> s{_cersEndpoint = a})  -- | -- | The response status code. cersResponseStatus :: Lens' CreateEndpointResponse Int-cersResponseStatus = lens _cersResponseStatus (\ s a -> s{_cersResponseStatus = a});+cersResponseStatus = lens _cersResponseStatus (\ s a -> s{_cersResponseStatus = a})  instance NFData CreateEndpointResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.CreateEventSubscription--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -84,7 +84,7 @@ -- -- * '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.+-- * 'cesSubscriptionName' - The name of the AWS 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@@ -93,43 +93,43 @@     -> CreateEventSubscription createEventSubscription pSubscriptionName_ pSNSTopicARN_ =   CreateEventSubscription'-  { _cesEnabled = Nothing-  , _cesSourceType = Nothing-  , _cesEventCategories = Nothing-  , _cesSourceIds = Nothing-  , _cesTags = Nothing-  , _cesSubscriptionName = pSubscriptionName_-  , _cesSNSTopicARN = pSNSTopicARN_-  }+    { _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});+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});+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;+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;+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;+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.+-- | The name of the AWS 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});+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});+cesSNSTopicARN = lens _cesSNSTopicARN (\ s a -> s{_cesSNSTopicARN = a})  instance AWSRequest CreateEventSubscription where         type Rs CreateEventSubscription =@@ -196,15 +196,15 @@     -> CreateEventSubscriptionResponse createEventSubscriptionResponse pResponseStatus_ =   CreateEventSubscriptionResponse'-  {_cesrsEventSubscription = Nothing, _cesrsResponseStatus = pResponseStatus_}+    {_cesrsEventSubscription = Nothing, _cesrsResponseStatus = pResponseStatus_}   -- | The event subscription that was created. cesrsEventSubscription :: Lens' CreateEventSubscriptionResponse (Maybe EventSubscription)-cesrsEventSubscription = lens _cesrsEventSubscription (\ s a -> s{_cesrsEventSubscription = a});+cesrsEventSubscription = lens _cesrsEventSubscription (\ s a -> s{_cesrsEventSubscription = a})  -- | -- | The response status code. cesrsResponseStatus :: Lens' CreateEventSubscriptionResponse Int-cesrsResponseStatus = lens _cesrsResponseStatus (\ s a -> s{_cesrsResponseStatus = a});+cesrsResponseStatus = lens _cesrsResponseStatus (\ s a -> s{_cesrsResponseStatus = a})  instance NFData CreateEventSubscriptionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.CreateReplicationInstance--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -113,73 +113,73 @@     -> 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_-  }+    { _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});+criEngineVersion = lens _criEngineVersion (\ s a -> s{_criEngineVersion = a})  -- | Specifies the accessibility options for the replication instance. A value of @true@ represents an instance with a public IP address. A value of @false@ represents an instance with a private IP address. The default value is @true@ . criPubliclyAccessible :: Lens' CreateReplicationInstance (Maybe Bool)-criPubliclyAccessible = lens _criPubliclyAccessible (\ s a -> s{_criPubliclyAccessible = a});+criPubliclyAccessible = lens _criPubliclyAccessible (\ s a -> s{_criPubliclyAccessible = a})  -- | Indicates that minor engine upgrades will be applied automatically to the replication instance during the maintenance window. Default: @true@ criAutoMinorVersionUpgrade :: Lens' CreateReplicationInstance (Maybe Bool)-criAutoMinorVersionUpgrade = lens _criAutoMinorVersionUpgrade (\ s a -> s{_criAutoMinorVersionUpgrade = a});+criAutoMinorVersionUpgrade = lens _criAutoMinorVersionUpgrade (\ s a -> s{_criAutoMinorVersionUpgrade = a})  -- | A subnet group to associate with the replication instance. criReplicationSubnetGroupIdentifier :: Lens' CreateReplicationInstance (Maybe Text)-criReplicationSubnetGroupIdentifier = lens _criReplicationSubnetGroupIdentifier (\ s a -> s{_criReplicationSubnetGroupIdentifier = a});+criReplicationSubnetGroupIdentifier = lens _criReplicationSubnetGroupIdentifier (\ s a -> s{_criReplicationSubnetGroupIdentifier = a})  -- | The weekly time range during which system maintenance can occur, in Universal Coordinated Time (UTC). Format: @ddd:hh24:mi-ddd:hh24:mi@  Default: A 30-minute window selected at random from an 8-hour block of time per region, occurring on a random day of the week. Valid Days: Mon, Tue, Wed, Thu, Fri, Sat, Sun Constraints: Minimum 30-minute window. criPreferredMaintenanceWindow :: Lens' CreateReplicationInstance (Maybe Text)-criPreferredMaintenanceWindow = lens _criPreferredMaintenanceWindow (\ s a -> s{_criPreferredMaintenanceWindow = a});+criPreferredMaintenanceWindow = lens _criPreferredMaintenanceWindow (\ s a -> s{_criPreferredMaintenanceWindow = a})  -- | The KMS key identifier that will be used to encrypt the content on the replication instance. If you do not specify a value for the KmsKeyId parameter, then AWS DMS will use your default encryption key. AWS KMS creates the default encryption key for your AWS account. Your AWS account has a different default encryption key for each AWS region. criKMSKeyId :: Lens' CreateReplicationInstance (Maybe Text)-criKMSKeyId = lens _criKMSKeyId (\ s a -> s{_criKMSKeyId = a});+criKMSKeyId = lens _criKMSKeyId (\ s a -> s{_criKMSKeyId = a})  -- | The EC2 Availability Zone that the replication instance will be created in. Default: A random, system-chosen Availability Zone in the endpoint's region. Example: @us-east-1d@ criAvailabilityZone :: Lens' CreateReplicationInstance (Maybe Text)-criAvailabilityZone = lens _criAvailabilityZone (\ s a -> s{_criAvailabilityZone = a});+criAvailabilityZone = lens _criAvailabilityZone (\ s a -> s{_criAvailabilityZone = a})  -- | Specifies the VPC security group to be used with the replication instance. The VPC security group must work with the VPC containing the replication instance. criVPCSecurityGroupIds :: Lens' CreateReplicationInstance [Text]-criVPCSecurityGroupIds = lens _criVPCSecurityGroupIds (\ s a -> s{_criVPCSecurityGroupIds = a}) . _Default . _Coerce;+criVPCSecurityGroupIds = lens _criVPCSecurityGroupIds (\ s a -> s{_criVPCSecurityGroupIds = 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@ . criMultiAZ :: Lens' CreateReplicationInstance (Maybe Bool)-criMultiAZ = lens _criMultiAZ (\ s a -> s{_criMultiAZ = a});+criMultiAZ = lens _criMultiAZ (\ s a -> s{_criMultiAZ = a})  -- | The amount of storage (in gigabytes) to be initially allocated for the replication instance. criAllocatedStorage :: Lens' CreateReplicationInstance (Maybe Int)-criAllocatedStorage = lens _criAllocatedStorage (\ s a -> s{_criAllocatedStorage = a});+criAllocatedStorage = lens _criAllocatedStorage (\ s a -> s{_criAllocatedStorage = a})  -- | Tags to be associated with the replication instance. criTags :: Lens' CreateReplicationInstance [Tag]-criTags = lens _criTags (\ s a -> s{_criTags = a}) . _Default . _Coerce;+criTags = lens _criTags (\ s a -> s{_criTags = a}) . _Default . _Coerce  -- | The replication instance identifier. This parameter is stored as a lowercase string. Constraints:     * Must contain from 1 to 63 alphanumeric characters or hyphens.     * First character must be a letter.     * Cannot end with a hyphen or contain two consecutive hyphens. Example: @myrepinstance@ criReplicationInstanceIdentifier :: Lens' CreateReplicationInstance Text-criReplicationInstanceIdentifier = lens _criReplicationInstanceIdentifier (\ s a -> s{_criReplicationInstanceIdentifier = a});+criReplicationInstanceIdentifier = lens _criReplicationInstanceIdentifier (\ s a -> s{_criReplicationInstanceIdentifier = a})  -- | The compute and memory capacity of the replication instance as specified by the replication instance class. Valid Values: @dms.t2.micro | dms.t2.small | dms.t2.medium | dms.t2.large | dms.c4.large | dms.c4.xlarge | dms.c4.2xlarge | dms.c4.4xlarge @ criReplicationInstanceClass :: Lens' CreateReplicationInstance Text-criReplicationInstanceClass = lens _criReplicationInstanceClass (\ s a -> s{_criReplicationInstanceClass = a});+criReplicationInstanceClass = lens _criReplicationInstanceClass (\ s a -> s{_criReplicationInstanceClass = a})  instance AWSRequest CreateReplicationInstance where         type Rs CreateReplicationInstance =@@ -261,16 +261,18 @@     -> CreateReplicationInstanceResponse createReplicationInstanceResponse pResponseStatus_ =   CreateReplicationInstanceResponse'-  {_crirsReplicationInstance = Nothing, _crirsResponseStatus = pResponseStatus_}+    { _crirsReplicationInstance = Nothing+    , _crirsResponseStatus = pResponseStatus_+    }   -- | The replication instance that was created. crirsReplicationInstance :: Lens' CreateReplicationInstanceResponse (Maybe ReplicationInstance)-crirsReplicationInstance = lens _crirsReplicationInstance (\ s a -> s{_crirsReplicationInstance = a});+crirsReplicationInstance = lens _crirsReplicationInstance (\ s a -> s{_crirsReplicationInstance = a})  -- | -- | The response status code. crirsResponseStatus :: Lens' CreateReplicationInstanceResponse Int-crirsResponseStatus = lens _crirsResponseStatus (\ s a -> s{_crirsResponseStatus = a});+crirsResponseStatus = lens _crirsResponseStatus (\ s a -> s{_crirsResponseStatus = a})  instance NFData CreateReplicationInstanceResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.CreateReplicationSubnetGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,28 +77,29 @@     -> CreateReplicationSubnetGroup createReplicationSubnetGroup pReplicationSubnetGroupIdentifier_ pReplicationSubnetGroupDescription_ =   CreateReplicationSubnetGroup'-  { _crsgTags = Nothing-  , _crsgReplicationSubnetGroupIdentifier = pReplicationSubnetGroupIdentifier_-  , _crsgReplicationSubnetGroupDescription = pReplicationSubnetGroupDescription_-  , _crsgSubnetIds = mempty-  }+    { _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;+crsgTags = lens _crsgTags (\ s a -> s{_crsgTags = a}) . _Default . _Coerce  -- | The name for the replication subnet group. This value is stored as a lowercase string. Constraints: Must contain no more than 255 alphanumeric characters, periods, spaces, underscores, or hyphens. Must not be "default". Example: @mySubnetgroup@ crsgReplicationSubnetGroupIdentifier :: Lens' CreateReplicationSubnetGroup Text-crsgReplicationSubnetGroupIdentifier = lens _crsgReplicationSubnetGroupIdentifier (\ s a -> s{_crsgReplicationSubnetGroupIdentifier = a});+crsgReplicationSubnetGroupIdentifier = lens _crsgReplicationSubnetGroupIdentifier (\ s a -> s{_crsgReplicationSubnetGroupIdentifier = a})  -- | The description for the subnet group. crsgReplicationSubnetGroupDescription :: Lens' CreateReplicationSubnetGroup Text-crsgReplicationSubnetGroupDescription = lens _crsgReplicationSubnetGroupDescription (\ s a -> s{_crsgReplicationSubnetGroupDescription = a});+crsgReplicationSubnetGroupDescription = lens _crsgReplicationSubnetGroupDescription (\ s a -> s{_crsgReplicationSubnetGroupDescription = a})  -- | The EC2 subnet IDs for the subnet group. crsgSubnetIds :: Lens' CreateReplicationSubnetGroup [Text]-crsgSubnetIds = lens _crsgSubnetIds (\ s a -> s{_crsgSubnetIds = a}) . _Coerce;+crsgSubnetIds = lens _crsgSubnetIds (\ s a -> s{_crsgSubnetIds = a}) . _Coerce  instance AWSRequest CreateReplicationSubnetGroup          where@@ -168,18 +169,18 @@     -> CreateReplicationSubnetGroupResponse createReplicationSubnetGroupResponse pResponseStatus_ =   CreateReplicationSubnetGroupResponse'-  { _crsgrsReplicationSubnetGroup = Nothing-  , _crsgrsResponseStatus = pResponseStatus_-  }+    { _crsgrsReplicationSubnetGroup = Nothing+    , _crsgrsResponseStatus = pResponseStatus_+    }   -- | The replication subnet group that was created. crsgrsReplicationSubnetGroup :: Lens' CreateReplicationSubnetGroupResponse (Maybe ReplicationSubnetGroup)-crsgrsReplicationSubnetGroup = lens _crsgrsReplicationSubnetGroup (\ s a -> s{_crsgrsReplicationSubnetGroup = a});+crsgrsReplicationSubnetGroup = lens _crsgrsReplicationSubnetGroup (\ s a -> s{_crsgrsReplicationSubnetGroup = a})  -- | -- | The response status code. crsgrsResponseStatus :: Lens' CreateReplicationSubnetGroupResponse Int-crsgrsResponseStatus = lens _crsgrsResponseStatus (\ s a -> s{_crsgrsResponseStatus = a});+crsgrsResponseStatus = lens _crsgrsResponseStatus (\ s a -> s{_crsgrsResponseStatus = a})  instance NFData CreateReplicationSubnetGroupResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.CreateReplicationTask--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -28,6 +28,8 @@     , CreateReplicationTask     -- * Request Lenses     , crtReplicationTaskSettings+    , crtCdcStartPosition+    , crtCdcStopPosition     , crtTags     , crtCdcStartTime     , crtReplicationTaskIdentifier@@ -59,6 +61,8 @@ -- /See:/ 'createReplicationTask' smart constructor. data CreateReplicationTask = CreateReplicationTask'   { _crtReplicationTaskSettings   :: !(Maybe Text)+  , _crtCdcStartPosition          :: !(Maybe Text)+  , _crtCdcStopPosition           :: !(Maybe Text)   , _crtTags                      :: !(Maybe [Tag])   , _crtCdcStartTime              :: !(Maybe POSIX)   , _crtReplicationTaskIdentifier :: !Text@@ -76,9 +80,13 @@ -- -- * '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> . --+-- * 'crtCdcStartPosition' - Indicates when you want a change data capture (CDC) operation to start. Use either CdcStartPosition or CdcStartTime to specify when you want a CDC operation to start. Specifying both values results in an error. The value can be in date, checkpoint, or LSN/SCN format. Date Example: --cdc-start-position “2018-03-08T12:12:12” Checkpoint Example: --cdc-start-position "checkpoint:V1#27#mysql-bin-changelog.157832:1975:-1:2002:677883278264080:mysql-bin-changelog.157832:1876#0#0#*#0#93" LSN Example: --cdc-start-position “mysql-bin-changelog.000024:373”+--+-- * 'crtCdcStopPosition' - Indicates when you want a change data capture (CDC) operation to stop. The value can be either server time or commit time. Server time example: --cdc-stop-position “server_time:3018-02-09T12:12:12” Commit time example: --cdc-stop-position “commit_time: 3018-02-09T12:12:12 “+-- -- * 'crtTags' - Tags to be added to the replication instance. ----- * 'crtCdcStartTime' - The start time for the Change Data Capture (CDC) operation.+-- * 'crtCdcStartTime' - Indicates the start time for a change data capture (CDC) operation. Use either CdcStartTime or CdcStartPosition to specify when you want a CDC operation to start. Specifying both values results in an error. -- -- * '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. --@@ -101,53 +109,63 @@     -> 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_-  }+    { _crtReplicationTaskSettings = Nothing+    , _crtCdcStartPosition = Nothing+    , _crtCdcStopPosition = 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. 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});+crtReplicationTaskSettings = lens _crtReplicationTaskSettings (\ s a -> s{_crtReplicationTaskSettings = a}) +-- | Indicates when you want a change data capture (CDC) operation to start. Use either CdcStartPosition or CdcStartTime to specify when you want a CDC operation to start. Specifying both values results in an error. The value can be in date, checkpoint, or LSN/SCN format. Date Example: --cdc-start-position “2018-03-08T12:12:12” Checkpoint Example: --cdc-start-position "checkpoint:V1#27#mysql-bin-changelog.157832:1975:-1:2002:677883278264080:mysql-bin-changelog.157832:1876#0#0#*#0#93" LSN Example: --cdc-start-position “mysql-bin-changelog.000024:373”+crtCdcStartPosition :: Lens' CreateReplicationTask (Maybe Text)+crtCdcStartPosition = lens _crtCdcStartPosition (\ s a -> s{_crtCdcStartPosition = a})++-- | Indicates when you want a change data capture (CDC) operation to stop. The value can be either server time or commit time. Server time example: --cdc-stop-position “server_time:3018-02-09T12:12:12” Commit time example: --cdc-stop-position “commit_time: 3018-02-09T12:12:12 “+crtCdcStopPosition :: Lens' CreateReplicationTask (Maybe Text)+crtCdcStopPosition = lens _crtCdcStopPosition (\ s a -> s{_crtCdcStopPosition = a})+ -- | Tags to be added to the replication instance. crtTags :: Lens' CreateReplicationTask [Tag]-crtTags = lens _crtTags (\ s a -> s{_crtTags = a}) . _Default . _Coerce;+crtTags = lens _crtTags (\ s a -> s{_crtTags = a}) . _Default . _Coerce --- | The start time for the Change Data Capture (CDC) operation.+-- | Indicates the start time for a change data capture (CDC) operation. Use either CdcStartTime or CdcStartPosition to specify when you want a CDC operation to start. Specifying both values results in an error. crtCdcStartTime :: Lens' CreateReplicationTask (Maybe UTCTime)-crtCdcStartTime = lens _crtCdcStartTime (\ s a -> s{_crtCdcStartTime = a}) . mapping _Time;+crtCdcStartTime = lens _crtCdcStartTime (\ s a -> s{_crtCdcStartTime = a}) . mapping _Time  -- | 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});+crtReplicationTaskIdentifier = lens _crtReplicationTaskIdentifier (\ s a -> s{_crtReplicationTaskIdentifier = a})  -- | The Amazon Resource Name (ARN) string that uniquely identifies the endpoint. crtSourceEndpointARN :: Lens' CreateReplicationTask Text-crtSourceEndpointARN = lens _crtSourceEndpointARN (\ s a -> s{_crtSourceEndpointARN = a});+crtSourceEndpointARN = lens _crtSourceEndpointARN (\ s a -> s{_crtSourceEndpointARN = a})  -- | The Amazon Resource Name (ARN) string that uniquely identifies the endpoint. crtTargetEndpointARN :: Lens' CreateReplicationTask Text-crtTargetEndpointARN = lens _crtTargetEndpointARN (\ s a -> s{_crtTargetEndpointARN = a});+crtTargetEndpointARN = lens _crtTargetEndpointARN (\ s a -> s{_crtTargetEndpointARN = a})  -- | The Amazon Resource Name (ARN) of the replication instance. crtReplicationInstanceARN :: Lens' CreateReplicationTask Text-crtReplicationInstanceARN = lens _crtReplicationInstanceARN (\ s a -> s{_crtReplicationInstanceARN = a});+crtReplicationInstanceARN = lens _crtReplicationInstanceARN (\ s a -> s{_crtReplicationInstanceARN = a})  -- | The migration type. crtMigrationType :: Lens' CreateReplicationTask MigrationTypeValue-crtMigrationType = lens _crtMigrationType (\ s a -> s{_crtMigrationType = a});+crtMigrationType = lens _crtMigrationType (\ s a -> s{_crtMigrationType = 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 crtTableMappings :: Lens' CreateReplicationTask Text-crtTableMappings = lens _crtTableMappings (\ s a -> s{_crtTableMappings = a});+crtTableMappings = lens _crtTableMappings (\ s a -> s{_crtTableMappings = a})  instance AWSRequest CreateReplicationTask where         type Rs CreateReplicationTask =@@ -179,6 +197,8 @@               (catMaybes                  [("ReplicationTaskSettings" .=) <$>                     _crtReplicationTaskSettings,+                  ("CdcStartPosition" .=) <$> _crtCdcStartPosition,+                  ("CdcStopPosition" .=) <$> _crtCdcStopPosition,                   ("Tags" .=) <$> _crtTags,                   ("CdcStartTime" .=) <$> _crtCdcStartTime,                   Just@@ -221,15 +241,15 @@     -> CreateReplicationTaskResponse createReplicationTaskResponse pResponseStatus_ =   CreateReplicationTaskResponse'-  {_crtrsReplicationTask = Nothing, _crtrsResponseStatus = pResponseStatus_}+    {_crtrsReplicationTask = Nothing, _crtrsResponseStatus = pResponseStatus_}   -- | The replication task that was created. crtrsReplicationTask :: Lens' CreateReplicationTaskResponse (Maybe ReplicationTask)-crtrsReplicationTask = lens _crtrsReplicationTask (\ s a -> s{_crtrsReplicationTask = a});+crtrsReplicationTask = lens _crtrsReplicationTask (\ s a -> s{_crtrsReplicationTask = a})  -- | -- | The response status code. crtrsResponseStatus :: Lens' CreateReplicationTaskResponse Int-crtrsResponseStatus = lens _crtrsResponseStatus (\ s a -> s{_crtrsResponseStatus = a});+crtrsResponseStatus = lens _crtrsResponseStatus (\ s a -> s{_crtrsResponseStatus = a})  instance NFData CreateReplicationTaskResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DeleteCertificate--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The Amazon Resource Name (ARN) of the deleted certificate. dcCertificateARN :: Lens' DeleteCertificate Text-dcCertificateARN = lens _dcCertificateARN (\ s a -> s{_dcCertificateARN = a});+dcCertificateARN = lens _dcCertificateARN (\ s a -> s{_dcCertificateARN = a})  instance AWSRequest DeleteCertificate where         type Rs DeleteCertificate = DeleteCertificateResponse@@ -120,15 +120,15 @@     -> DeleteCertificateResponse deleteCertificateResponse pResponseStatus_ =   DeleteCertificateResponse'-  {_dccrsCertificate = Nothing, _dccrsResponseStatus = pResponseStatus_}+    {_dccrsCertificate = Nothing, _dccrsResponseStatus = pResponseStatus_}   -- | The Secure Sockets Layer (SSL) certificate. dccrsCertificate :: Lens' DeleteCertificateResponse (Maybe Certificate)-dccrsCertificate = lens _dccrsCertificate (\ s a -> s{_dccrsCertificate = a});+dccrsCertificate = lens _dccrsCertificate (\ s a -> s{_dccrsCertificate = a})  -- | -- | The response status code. dccrsResponseStatus :: Lens' DeleteCertificateResponse Int-dccrsResponseStatus = lens _dccrsResponseStatus (\ s a -> s{_dccrsResponseStatus = a});+dccrsResponseStatus = lens _dccrsResponseStatus (\ s a -> s{_dccrsResponseStatus = a})  instance NFData DeleteCertificateResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DeleteEndpoint--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | The Amazon Resource Name (ARN) string that uniquely identifies the endpoint. deEndpointARN :: Lens' DeleteEndpoint Text-deEndpointARN = lens _deEndpointARN (\ s a -> s{_deEndpointARN = a});+deEndpointARN = lens _deEndpointARN (\ s a -> s{_deEndpointARN = a})  instance AWSRequest DeleteEndpoint where         type Rs DeleteEndpoint = DeleteEndpointResponse@@ -127,15 +127,15 @@     -> DeleteEndpointResponse deleteEndpointResponse pResponseStatus_ =   DeleteEndpointResponse'-  {_delrsEndpoint = Nothing, _delrsResponseStatus = pResponseStatus_}+    {_delrsEndpoint = Nothing, _delrsResponseStatus = pResponseStatus_}   -- | The endpoint that was deleted. delrsEndpoint :: Lens' DeleteEndpointResponse (Maybe Endpoint)-delrsEndpoint = lens _delrsEndpoint (\ s a -> s{_delrsEndpoint = a});+delrsEndpoint = lens _delrsEndpoint (\ s a -> s{_delrsEndpoint = a})  -- | -- | The response status code. delrsResponseStatus :: Lens' DeleteEndpointResponse Int-delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a})  instance NFData DeleteEndpointResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DeleteEventSubscription--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The name of the DMS event notification subscription to be deleted. desSubscriptionName :: Lens' DeleteEventSubscription Text-desSubscriptionName = lens _desSubscriptionName (\ s a -> s{_desSubscriptionName = a});+desSubscriptionName = lens _desSubscriptionName (\ s a -> s{_desSubscriptionName = a})  instance AWSRequest DeleteEventSubscription where         type Rs DeleteEventSubscription =@@ -129,15 +129,17 @@     -> DeleteEventSubscriptionResponse deleteEventSubscriptionResponse pResponseStatus_ =   DeleteEventSubscriptionResponse'-  {_desersEventSubscription = Nothing, _desersResponseStatus = pResponseStatus_}+    { _desersEventSubscription = Nothing+    , _desersResponseStatus = pResponseStatus_+    }   -- | The event subscription that was deleted. desersEventSubscription :: Lens' DeleteEventSubscriptionResponse (Maybe EventSubscription)-desersEventSubscription = lens _desersEventSubscription (\ s a -> s{_desersEventSubscription = a});+desersEventSubscription = lens _desersEventSubscription (\ s a -> s{_desersEventSubscription = a})  -- | -- | The response status code. desersResponseStatus :: Lens' DeleteEventSubscriptionResponse Int-desersResponseStatus = lens _desersResponseStatus (\ s a -> s{_desersResponseStatus = a});+desersResponseStatus = lens _desersResponseStatus (\ s a -> s{_desersResponseStatus = a})  instance NFData DeleteEventSubscriptionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DeleteReplicationInstance--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,12 +66,12 @@     -> DeleteReplicationInstance deleteReplicationInstance pReplicationInstanceARN_ =   DeleteReplicationInstance'-  {_driReplicationInstanceARN = pReplicationInstanceARN_}+    {_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});+driReplicationInstanceARN = lens _driReplicationInstanceARN (\ s a -> s{_driReplicationInstanceARN = a})  instance AWSRequest DeleteReplicationInstance where         type Rs DeleteReplicationInstance =@@ -135,16 +135,18 @@     -> DeleteReplicationInstanceResponse deleteReplicationInstanceResponse pResponseStatus_ =   DeleteReplicationInstanceResponse'-  {_drirsReplicationInstance = Nothing, _drirsResponseStatus = pResponseStatus_}+    { _drirsReplicationInstance = Nothing+    , _drirsResponseStatus = pResponseStatus_+    }   -- | The replication instance that was deleted. drirsReplicationInstance :: Lens' DeleteReplicationInstanceResponse (Maybe ReplicationInstance)-drirsReplicationInstance = lens _drirsReplicationInstance (\ s a -> s{_drirsReplicationInstance = a});+drirsReplicationInstance = lens _drirsReplicationInstance (\ s a -> s{_drirsReplicationInstance = a})  -- | -- | The response status code. drirsResponseStatus :: Lens' DeleteReplicationInstanceResponse Int-drirsResponseStatus = lens _drirsResponseStatus (\ s a -> s{_drirsResponseStatus = a});+drirsResponseStatus = lens _drirsResponseStatus (\ s a -> s{_drirsResponseStatus = a})  instance NFData DeleteReplicationInstanceResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DeleteReplicationSubnetGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,12 +63,12 @@     -> DeleteReplicationSubnetGroup deleteReplicationSubnetGroup pReplicationSubnetGroupIdentifier_ =   DeleteReplicationSubnetGroup'-  {_drsgReplicationSubnetGroupIdentifier = pReplicationSubnetGroupIdentifier_}+    {_drsgReplicationSubnetGroupIdentifier = pReplicationSubnetGroupIdentifier_}   -- | The subnet group name of the replication instance. drsgReplicationSubnetGroupIdentifier :: Lens' DeleteReplicationSubnetGroup Text-drsgReplicationSubnetGroupIdentifier = lens _drsgReplicationSubnetGroupIdentifier (\ s a -> s{_drsgReplicationSubnetGroupIdentifier = a});+drsgReplicationSubnetGroupIdentifier = lens _drsgReplicationSubnetGroupIdentifier (\ s a -> s{_drsgReplicationSubnetGroupIdentifier = a})  instance AWSRequest DeleteReplicationSubnetGroup          where@@ -129,12 +129,12 @@     -> DeleteReplicationSubnetGroupResponse deleteReplicationSubnetGroupResponse pResponseStatus_ =   DeleteReplicationSubnetGroupResponse'-  {_drsgrsResponseStatus = pResponseStatus_}+    {_drsgrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. drsgrsResponseStatus :: Lens' DeleteReplicationSubnetGroupResponse Int-drsgrsResponseStatus = lens _drsgrsResponseStatus (\ s a -> s{_drsgrsResponseStatus = a});+drsgrsResponseStatus = lens _drsgrsResponseStatus (\ s a -> s{_drsgrsResponseStatus = a})  instance NFData DeleteReplicationSubnetGroupResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DeleteReplicationTask--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The Amazon Resource Name (ARN) of the replication task to be deleted. drtReplicationTaskARN :: Lens' DeleteReplicationTask Text-drtReplicationTaskARN = lens _drtReplicationTaskARN (\ s a -> s{_drtReplicationTaskARN = a});+drtReplicationTaskARN = lens _drtReplicationTaskARN (\ s a -> s{_drtReplicationTaskARN = a})  instance AWSRequest DeleteReplicationTask where         type Rs DeleteReplicationTask =@@ -130,15 +130,15 @@     -> DeleteReplicationTaskResponse deleteReplicationTaskResponse pResponseStatus_ =   DeleteReplicationTaskResponse'-  {_drtrsReplicationTask = Nothing, _drtrsResponseStatus = pResponseStatus_}+    {_drtrsReplicationTask = Nothing, _drtrsResponseStatus = pResponseStatus_}   -- | The deleted replication task. drtrsReplicationTask :: Lens' DeleteReplicationTaskResponse (Maybe ReplicationTask)-drtrsReplicationTask = lens _drtrsReplicationTask (\ s a -> s{_drtrsReplicationTask = a});+drtrsReplicationTask = lens _drtrsReplicationTask (\ s a -> s{_drtrsReplicationTask = a})  -- | -- | The response status code. drtrsResponseStatus :: Lens' DeleteReplicationTaskResponse Int-drtrsResponseStatus = lens _drtrsResponseStatus (\ s a -> s{_drtrsResponseStatus = a});+drtrsResponseStatus = lens _drtrsResponseStatus (\ s a -> s{_drtrsResponseStatus = a})  instance NFData DeleteReplicationTaskResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeAccountAttributes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -118,16 +118,16 @@     -> DescribeAccountAttributesResponse describeAccountAttributesResponse pResponseStatus_ =   DescribeAccountAttributesResponse'-  {_daarsAccountQuotas = Nothing, _daarsResponseStatus = pResponseStatus_}+    {_daarsAccountQuotas = Nothing, _daarsResponseStatus = pResponseStatus_}   -- | Account quota information. daarsAccountQuotas :: Lens' DescribeAccountAttributesResponse [AccountQuota]-daarsAccountQuotas = lens _daarsAccountQuotas (\ s a -> s{_daarsAccountQuotas = a}) . _Default . _Coerce;+daarsAccountQuotas = lens _daarsAccountQuotas (\ s a -> s{_daarsAccountQuotas = a}) . _Default . _Coerce  -- | -- | The response status code. daarsResponseStatus :: Lens' DescribeAccountAttributesResponse Int-daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a});+daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a})  instance NFData DescribeAccountAttributesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeCertificates--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Provides a description of the certificate. -- --+--+-- This operation returns paginated results. module Network.AWS.DMS.DescribeCertificates     (     -- * Creating a Request@@ -43,6 +45,7 @@ import Network.AWS.DMS.Types import Network.AWS.DMS.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -68,21 +71,27 @@     :: DescribeCertificates describeCertificates =   DescribeCertificates'-  {_dFilters = Nothing, _dMarker = Nothing, _dMaxRecords = Nothing}+    {_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;+dFilters = lens _dFilters (\ s a -> s{_dFilters = 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@ . dMarker :: Lens' DescribeCertificates (Maybe Text)-dMarker = lens _dMarker (\ s a -> s{_dMarker = a});+dMarker = lens _dMarker (\ s a -> s{_dMarker = 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: 10 dMaxRecords :: Lens' DescribeCertificates (Maybe Int)-dMaxRecords = lens _dMaxRecords (\ s a -> s{_dMaxRecords = a});+dMaxRecords = lens _dMaxRecords (\ s a -> s{_dMaxRecords = a}) +instance AWSPager DescribeCertificates where+        page rq rs+          | stop (rs ^. dcrsMarker) = Nothing+          | stop (rs ^. dcrsCertificates) = Nothing+          | otherwise = Just $ rq & dMarker .~ rs ^. dcrsMarker+ instance AWSRequest DescribeCertificates where         type Rs DescribeCertificates =              DescribeCertificatesResponse@@ -145,22 +154,22 @@     -> DescribeCertificatesResponse describeCertificatesResponse pResponseStatus_ =   DescribeCertificatesResponse'-  { _dcrsCertificates = Nothing-  , _dcrsMarker = Nothing-  , _dcrsResponseStatus = pResponseStatus_-  }+    { _dcrsCertificates = Nothing+    , _dcrsMarker = Nothing+    , _dcrsResponseStatus = pResponseStatus_+    }   -- | 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;+dcrsCertificates = lens _dcrsCertificates (\ s a -> s{_dcrsCertificates = a}) . _Default . _Coerce  -- | The pagination token. dcrsMarker :: Lens' DescribeCertificatesResponse (Maybe Text)-dcrsMarker = lens _dcrsMarker (\ s a -> s{_dcrsMarker = a});+dcrsMarker = lens _dcrsMarker (\ s a -> s{_dcrsMarker = a})  -- | -- | The response status code. dcrsResponseStatus :: Lens' DescribeCertificatesResponse Int-dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})  instance NFData DescribeCertificatesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeConnections--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Describes the status of the connections that have been made between the replication instance and an endpoint. Connections are created when you test an endpoint. -- --+--+-- This operation returns paginated results. module Network.AWS.DMS.DescribeConnections     (     -- * Creating a Request@@ -43,6 +45,7 @@ import Network.AWS.DMS.Types import Network.AWS.DMS.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -72,21 +75,27 @@     :: DescribeConnections describeConnections =   DescribeConnections'-  {_dcFilters = Nothing, _dcMarker = Nothing, _dcMaxRecords = Nothing}+    {_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;+dcFilters = lens _dcFilters (\ s a -> s{_dcFilters = a}) . _Default . _Coerce  -- | An optional pagination token provided by a previous request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . dcMarker :: Lens' DescribeConnections (Maybe Text)-dcMarker = lens _dcMarker (\ s a -> s{_dcMarker = a});+dcMarker = lens _dcMarker (\ s a -> s{_dcMarker = a})  -- | The maximum number of records to include in the response. If more records exist than the specified @MaxRecords@ value, a pagination token called a marker is included in the response so that the remaining results can be retrieved.  Default: 100 Constraints: Minimum 20, maximum 100. dcMaxRecords :: Lens' DescribeConnections (Maybe Int)-dcMaxRecords = lens _dcMaxRecords (\ s a -> s{_dcMaxRecords = a});+dcMaxRecords = lens _dcMaxRecords (\ s a -> s{_dcMaxRecords = a}) +instance AWSPager DescribeConnections where+        page rq rs+          | stop (rs ^. drsMarker) = Nothing+          | stop (rs ^. drsConnections) = Nothing+          | otherwise = Just $ rq & dcMarker .~ rs ^. drsMarker+ instance AWSRequest DescribeConnections where         type Rs DescribeConnections =              DescribeConnectionsResponse@@ -152,22 +161,22 @@     -> DescribeConnectionsResponse describeConnectionsResponse pResponseStatus_ =   DescribeConnectionsResponse'-  { _drsConnections = Nothing-  , _drsMarker = Nothing-  , _drsResponseStatus = pResponseStatus_-  }+    { _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;+drsConnections = lens _drsConnections (\ s a -> s{_drsConnections = 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@ . drsMarker :: Lens' DescribeConnectionsResponse (Maybe Text)-drsMarker = lens _drsMarker (\ s a -> s{_drsMarker = a});+drsMarker = lens _drsMarker (\ s a -> s{_drsMarker = a})  -- | -- | The response status code. drsResponseStatus :: Lens' DescribeConnectionsResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DescribeConnectionsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeEndpointTypes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Returns information about the type of endpoints available. -- --+--+-- This operation returns paginated results. module Network.AWS.DMS.DescribeEndpointTypes     (     -- * Creating a Request@@ -43,6 +45,7 @@ import Network.AWS.DMS.Types import Network.AWS.DMS.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -72,21 +75,28 @@     :: DescribeEndpointTypes describeEndpointTypes =   DescribeEndpointTypes'-  {_detFilters = Nothing, _detMarker = Nothing, _detMaxRecords = Nothing}+    {_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;+detFilters = lens _detFilters (\ s a -> s{_detFilters = a}) . _Default . _Coerce  -- | An optional pagination token provided by a previous request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . detMarker :: Lens' DescribeEndpointTypes (Maybe Text)-detMarker = lens _detMarker (\ s a -> s{_detMarker = a});+detMarker = lens _detMarker (\ s a -> s{_detMarker = a})  -- | The maximum number of records to include in the response. If more records exist than the specified @MaxRecords@ value, a pagination token called a marker is included in the response so that the remaining results can be retrieved.  Default: 100 Constraints: Minimum 20, maximum 100. detMaxRecords :: Lens' DescribeEndpointTypes (Maybe Int)-detMaxRecords = lens _detMaxRecords (\ s a -> s{_detMaxRecords = a});+detMaxRecords = lens _detMaxRecords (\ s a -> s{_detMaxRecords = a}) +instance AWSPager DescribeEndpointTypes where+        page rq rs+          | stop (rs ^. detrsMarker) = Nothing+          | stop (rs ^. detrsSupportedEndpointTypes) = Nothing+          | otherwise =+            Just $ rq & detMarker .~ rs ^. detrsMarker+ instance AWSRequest DescribeEndpointTypes where         type Rs DescribeEndpointTypes =              DescribeEndpointTypesResponse@@ -153,22 +163,22 @@     -> DescribeEndpointTypesResponse describeEndpointTypesResponse pResponseStatus_ =   DescribeEndpointTypesResponse'-  { _detrsSupportedEndpointTypes = Nothing-  , _detrsMarker = Nothing-  , _detrsResponseStatus = pResponseStatus_-  }+    { _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;+detrsSupportedEndpointTypes = lens _detrsSupportedEndpointTypes (\ s a -> s{_detrsSupportedEndpointTypes = a}) . _Default . _Coerce  -- | An optional pagination token provided by a previous request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . detrsMarker :: Lens' DescribeEndpointTypesResponse (Maybe Text)-detrsMarker = lens _detrsMarker (\ s a -> s{_detrsMarker = a});+detrsMarker = lens _detrsMarker (\ s a -> s{_detrsMarker = a})  -- | -- | The response status code. detrsResponseStatus :: Lens' DescribeEndpointTypesResponse Int-detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a});+detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a})  instance NFData DescribeEndpointTypesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeEndpoints--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Returns information about the endpoints for your account in the current region. -- --+--+-- This operation returns paginated results. module Network.AWS.DMS.DescribeEndpoints     (     -- * Creating a Request@@ -43,6 +45,7 @@ import Network.AWS.DMS.Types import Network.AWS.DMS.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -72,21 +75,28 @@     :: DescribeEndpoints describeEndpoints =   DescribeEndpoints'-  {_desFilters = Nothing, _desMarker = Nothing, _desMaxRecords = Nothing}+    {_desFilters = Nothing, _desMarker = Nothing, _desMaxRecords = Nothing}   -- | Filters applied to the describe action. Valid filter names: endpoint-arn | endpoint-type | endpoint-id | engine-name desFilters :: Lens' DescribeEndpoints [Filter]-desFilters = lens _desFilters (\ s a -> s{_desFilters = a}) . _Default . _Coerce;+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@ . desMarker :: Lens' DescribeEndpoints (Maybe Text)-desMarker = lens _desMarker (\ s a -> s{_desMarker = a});+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. desMaxRecords :: Lens' DescribeEndpoints (Maybe Int)-desMaxRecords = lens _desMaxRecords (\ s a -> s{_desMaxRecords = a});+desMaxRecords = lens _desMaxRecords (\ s a -> s{_desMaxRecords = a}) +instance AWSPager DescribeEndpoints where+        page rq rs+          | stop (rs ^. dersMarker) = Nothing+          | stop (rs ^. dersEndpoints) = Nothing+          | otherwise =+            Just $ rq & desMarker .~ rs ^. dersMarker+ instance AWSRequest DescribeEndpoints where         type Rs DescribeEndpoints = DescribeEndpointsResponse         request = postJSON dms@@ -151,22 +161,22 @@     -> DescribeEndpointsResponse describeEndpointsResponse pResponseStatus_ =   DescribeEndpointsResponse'-  { _dersMarker = Nothing-  , _dersEndpoints = Nothing-  , _dersResponseStatus = pResponseStatus_-  }+    { _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});+dersMarker = lens _dersMarker (\ s a -> s{_dersMarker = a})  -- | Endpoint description. dersEndpoints :: Lens' DescribeEndpointsResponse [Endpoint]-dersEndpoints = lens _dersEndpoints (\ s a -> s{_dersEndpoints = a}) . _Default . _Coerce;+dersEndpoints = lens _dersEndpoints (\ s a -> s{_dersEndpoints = a}) . _Default . _Coerce  -- | -- | The response status code. dersResponseStatus :: Lens' DescribeEndpointsResponse Int-dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a});+dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a})  instance NFData DescribeEndpointsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeEventCategories--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,11 +71,11 @@  -- | 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});+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;+decFilters = lens _decFilters (\ s a -> s{_decFilters = a}) . _Default . _Coerce  instance AWSRequest DescribeEventCategories where         type Rs DescribeEventCategories =@@ -138,17 +138,17 @@     -> DescribeEventCategoriesResponse describeEventCategoriesResponse pResponseStatus_ =   DescribeEventCategoriesResponse'-  { _decrsEventCategoryGroupList = Nothing-  , _decrsResponseStatus = pResponseStatus_-  }+    { _decrsEventCategoryGroupList = Nothing+    , _decrsResponseStatus = pResponseStatus_+    }   -- | A list of event categories. decrsEventCategoryGroupList :: Lens' DescribeEventCategoriesResponse [EventCategoryGroup]-decrsEventCategoryGroupList = lens _decrsEventCategoryGroupList (\ s a -> s{_decrsEventCategoryGroupList = a}) . _Default . _Coerce;+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});+decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a})  instance NFData DescribeEventCategoriesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeEventSubscriptions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -23,6 +23,8 @@ -- -- If you specify @SubscriptionName@ , this action lists the description for that subscription. --+--+-- This operation returns paginated results. module Network.AWS.DMS.DescribeEventSubscriptions     (     -- * Creating a Request@@ -46,6 +48,7 @@ import Network.AWS.DMS.Types import Network.AWS.DMS.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -78,29 +81,36 @@     :: DescribeEventSubscriptions describeEventSubscriptions =   DescribeEventSubscriptions'-  { _dessSubscriptionName = Nothing-  , _dessFilters = Nothing-  , _dessMarker = Nothing-  , _dessMaxRecords = Nothing-  }+    { _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});+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;+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});+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});+dessMaxRecords = lens _dessMaxRecords (\ s a -> s{_dessMaxRecords = a}) +instance AWSPager DescribeEventSubscriptions where+        page rq rs+          | stop (rs ^. desrsMarker) = Nothing+          | stop (rs ^. desrsEventSubscriptionsList) = Nothing+          | otherwise =+            Just $ rq & dessMarker .~ rs ^. desrsMarker+ instance AWSRequest DescribeEventSubscriptions where         type Rs DescribeEventSubscriptions =              DescribeEventSubscriptionsResponse@@ -168,23 +178,23 @@     -> DescribeEventSubscriptionsResponse describeEventSubscriptionsResponse pResponseStatus_ =   DescribeEventSubscriptionsResponse'-  { _desrsEventSubscriptionsList = Nothing-  , _desrsMarker = Nothing-  , _desrsResponseStatus = pResponseStatus_-  }+    { _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;+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});+desrsMarker = lens _desrsMarker (\ s a -> s{_desrsMarker = a})  -- | -- | The response status code. desrsResponseStatus :: Lens' DescribeEventSubscriptionsResponse Int-desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a})  instance NFData DescribeEventSubscriptionsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeEvents--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- 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 > . -- --+--+-- This operation returns paginated results. module Network.AWS.DMS.DescribeEvents     (     -- * Creating a Request@@ -49,6 +51,7 @@ import Network.AWS.DMS.Types import Network.AWS.DMS.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -96,54 +99,61 @@     :: DescribeEvents describeEvents =   DescribeEvents'-  { _deStartTime = Nothing-  , _deSourceType = Nothing-  , _deFilters = Nothing-  , _deSourceIdentifier = Nothing-  , _deEventCategories = Nothing-  , _deMarker = Nothing-  , _deMaxRecords = Nothing-  , _deEndTime = Nothing-  , _deDuration = Nothing-  }+    { _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;+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});+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;+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});+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;+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});+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});+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;+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});+deDuration = lens _deDuration (\ s a -> s{_deDuration = a}) +instance AWSPager DescribeEvents where+        page rq rs+          | stop (rs ^. deersMarker) = Nothing+          | stop (rs ^. deersEvents) = Nothing+          | otherwise =+            Just $ rq & deMarker .~ rs ^. deersMarker+ instance AWSRequest DescribeEvents where         type Rs DescribeEvents = DescribeEventsResponse         request = postJSON dms@@ -213,22 +223,22 @@     -> DescribeEventsResponse describeEventsResponse pResponseStatus_ =   DescribeEventsResponse'-  { _deersEvents = Nothing-  , _deersMarker = Nothing-  , _deersResponseStatus = pResponseStatus_-  }+    { _deersEvents = Nothing+    , _deersMarker = Nothing+    , _deersResponseStatus = pResponseStatus_+    }   -- | The events described. deersEvents :: Lens' DescribeEventsResponse [Event]-deersEvents = lens _deersEvents (\ s a -> s{_deersEvents = a}) . _Default . _Coerce;+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});+deersMarker = lens _deersMarker (\ s a -> s{_deersMarker = a})  -- | -- | The response status code. deersResponseStatus :: Lens' DescribeEventsResponse Int-deersResponseStatus = lens _deersResponseStatus (\ s a -> s{_deersResponseStatus = a});+deersResponseStatus = lens _deersResponseStatus (\ s a -> s{_deersResponseStatus = a})  instance NFData DescribeEventsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeOrderableReplicationInstances--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Returns information about the replication instance types that can be created in the specified region. -- --+--+-- This operation returns paginated results. module Network.AWS.DMS.DescribeOrderableReplicationInstances     (     -- * Creating a Request@@ -42,6 +44,7 @@ import Network.AWS.DMS.Types import Network.AWS.DMS.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -68,17 +71,27 @@     :: DescribeOrderableReplicationInstances describeOrderableReplicationInstances =   DescribeOrderableReplicationInstances'-  {_doriMarker = Nothing, _doriMaxRecords = Nothing}+    {_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});+doriMarker = lens _doriMarker (\ s a -> s{_doriMarker = a})  -- | The maximum number of records to include in the response. If more records exist than the specified @MaxRecords@ value, a pagination token called a marker is included in the response so that the remaining results can be retrieved.  Default: 100 Constraints: Minimum 20, maximum 100. doriMaxRecords :: Lens' DescribeOrderableReplicationInstances (Maybe Int)-doriMaxRecords = lens _doriMaxRecords (\ s a -> s{_doriMaxRecords = a});+doriMaxRecords = lens _doriMaxRecords (\ s a -> s{_doriMaxRecords = a}) +instance AWSPager+           DescribeOrderableReplicationInstances+         where+        page rq rs+          | stop (rs ^. dorirsMarker) = Nothing+          | stop (rs ^. dorirsOrderableReplicationInstances) =+            Nothing+          | otherwise =+            Just $ rq & doriMarker .~ rs ^. dorirsMarker+ instance AWSRequest            DescribeOrderableReplicationInstances          where@@ -155,23 +168,23 @@     -> DescribeOrderableReplicationInstancesResponse describeOrderableReplicationInstancesResponse pResponseStatus_ =   DescribeOrderableReplicationInstancesResponse'-  { _dorirsMarker = Nothing-  , _dorirsOrderableReplicationInstances = Nothing-  , _dorirsResponseStatus = pResponseStatus_-  }+    { _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});+dorirsMarker = lens _dorirsMarker (\ s a -> s{_dorirsMarker = a})  -- | The order-able replication instances available. dorirsOrderableReplicationInstances :: Lens' DescribeOrderableReplicationInstancesResponse [OrderableReplicationInstance]-dorirsOrderableReplicationInstances = lens _dorirsOrderableReplicationInstances (\ s a -> s{_dorirsOrderableReplicationInstances = a}) . _Default . _Coerce;+dorirsOrderableReplicationInstances = lens _dorirsOrderableReplicationInstances (\ s a -> s{_dorirsOrderableReplicationInstances = a}) . _Default . _Coerce  -- | -- | The response status code. dorirsResponseStatus :: Lens' DescribeOrderableReplicationInstancesResponse Int-dorirsResponseStatus = lens _dorirsResponseStatus (\ s a -> s{_dorirsResponseStatus = a});+dorirsResponseStatus = lens _dorirsResponseStatus (\ s a -> s{_dorirsResponseStatus = a})  instance NFData            DescribeOrderableReplicationInstancesResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeRefreshSchemasStatus--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The Amazon Resource Name (ARN) string that uniquely identifies the endpoint. drssEndpointARN :: Lens' DescribeRefreshSchemasStatus Text-drssEndpointARN = lens _drssEndpointARN (\ s a -> s{_drssEndpointARN = a});+drssEndpointARN = lens _drssEndpointARN (\ s a -> s{_drssEndpointARN = a})  instance AWSRequest DescribeRefreshSchemasStatus          where@@ -131,18 +131,18 @@     -> DescribeRefreshSchemasStatusResponse describeRefreshSchemasStatusResponse pResponseStatus_ =   DescribeRefreshSchemasStatusResponse'-  { _drssrsRefreshSchemasStatus = Nothing-  , _drssrsResponseStatus = pResponseStatus_-  }+    { _drssrsRefreshSchemasStatus = Nothing+    , _drssrsResponseStatus = pResponseStatus_+    }   -- | The status of the schema. drssrsRefreshSchemasStatus :: Lens' DescribeRefreshSchemasStatusResponse (Maybe RefreshSchemasStatus)-drssrsRefreshSchemasStatus = lens _drssrsRefreshSchemasStatus (\ s a -> s{_drssrsRefreshSchemasStatus = a});+drssrsRefreshSchemasStatus = lens _drssrsRefreshSchemasStatus (\ s a -> s{_drssrsRefreshSchemasStatus = a})  -- | -- | The response status code. drssrsResponseStatus :: Lens' DescribeRefreshSchemasStatusResponse Int-drssrsResponseStatus = lens _drssrsResponseStatus (\ s a -> s{_drssrsResponseStatus = a});+drssrsResponseStatus = lens _drssrsResponseStatus (\ s a -> s{_drssrsResponseStatus = a})  instance NFData DescribeRefreshSchemasStatusResponse          where

@@ -0,0 +1,193 @@+{-# 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.DescribeReplicationInstanceTaskLogs+-- Copyright   : (c) 2013-2018 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)+--+-- Returns information about the task logs for the specified task.+--+--+module Network.AWS.DMS.DescribeReplicationInstanceTaskLogs+    (+    -- * Creating a Request+      describeReplicationInstanceTaskLogs+    , DescribeReplicationInstanceTaskLogs+    -- * Request Lenses+    , dritlMarker+    , dritlMaxRecords+    , dritlReplicationInstanceARN++    -- * Destructuring the Response+    , describeReplicationInstanceTaskLogsResponse+    , DescribeReplicationInstanceTaskLogsResponse+    -- * Response Lenses+    , dritlrsReplicationInstanceTaskLogs+    , dritlrsMarker+    , dritlrsReplicationInstanceARN+    , dritlrsResponseStatus+    ) 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:/ 'describeReplicationInstanceTaskLogs' smart constructor.+data DescribeReplicationInstanceTaskLogs = DescribeReplicationInstanceTaskLogs'+  { _dritlMarker                 :: !(Maybe Text)+  , _dritlMaxRecords             :: !(Maybe Int)+  , _dritlReplicationInstanceARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeReplicationInstanceTaskLogs' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dritlMarker' - 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@ .+--+-- * 'dritlMaxRecords' - 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.+--+-- * 'dritlReplicationInstanceARN' - The Amazon Resource Name (ARN) of the replication instance.+describeReplicationInstanceTaskLogs+    :: Text -- ^ 'dritlReplicationInstanceARN'+    -> DescribeReplicationInstanceTaskLogs+describeReplicationInstanceTaskLogs pReplicationInstanceARN_ =+  DescribeReplicationInstanceTaskLogs'+    { _dritlMarker = Nothing+    , _dritlMaxRecords = Nothing+    , _dritlReplicationInstanceARN = pReplicationInstanceARN_+    }+++-- | 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@ .+dritlMarker :: Lens' DescribeReplicationInstanceTaskLogs (Maybe Text)+dritlMarker = lens _dritlMarker (\ s a -> s{_dritlMarker = 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.+dritlMaxRecords :: Lens' DescribeReplicationInstanceTaskLogs (Maybe Int)+dritlMaxRecords = lens _dritlMaxRecords (\ s a -> s{_dritlMaxRecords = a})++-- | The Amazon Resource Name (ARN) of the replication instance.+dritlReplicationInstanceARN :: Lens' DescribeReplicationInstanceTaskLogs Text+dritlReplicationInstanceARN = lens _dritlReplicationInstanceARN (\ s a -> s{_dritlReplicationInstanceARN = a})++instance AWSRequest+           DescribeReplicationInstanceTaskLogs+         where+        type Rs DescribeReplicationInstanceTaskLogs =+             DescribeReplicationInstanceTaskLogsResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeReplicationInstanceTaskLogsResponse' <$>+                   (x .?> "ReplicationInstanceTaskLogs" .!@ mempty) <*>+                     (x .?> "Marker")+                     <*> (x .?> "ReplicationInstanceArn")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeReplicationInstanceTaskLogs+         where++instance NFData DescribeReplicationInstanceTaskLogs+         where++instance ToHeaders+           DescribeReplicationInstanceTaskLogs+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeReplicationInstanceTaskLogs"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeReplicationInstanceTaskLogs+         where+        toJSON DescribeReplicationInstanceTaskLogs'{..}+          = object+              (catMaybes+                 [("Marker" .=) <$> _dritlMarker,+                  ("MaxRecords" .=) <$> _dritlMaxRecords,+                  Just+                    ("ReplicationInstanceArn" .=+                       _dritlReplicationInstanceARN)])++instance ToPath DescribeReplicationInstanceTaskLogs+         where+        toPath = const "/"++instance ToQuery DescribeReplicationInstanceTaskLogs+         where+        toQuery = const mempty++-- | /See:/ 'describeReplicationInstanceTaskLogsResponse' smart constructor.+data DescribeReplicationInstanceTaskLogsResponse = DescribeReplicationInstanceTaskLogsResponse'+  { _dritlrsReplicationInstanceTaskLogs :: !(Maybe [ReplicationInstanceTaskLog])+  , _dritlrsMarker                      :: !(Maybe Text)+  , _dritlrsReplicationInstanceARN      :: !(Maybe Text)+  , _dritlrsResponseStatus              :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeReplicationInstanceTaskLogsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dritlrsReplicationInstanceTaskLogs' - An array of replication task log metadata. Each member of the array contains the replication task name, ARN, and task log size (in bytes).+--+-- * 'dritlrsMarker' - 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@ .+--+-- * 'dritlrsReplicationInstanceARN' - The Amazon Resource Name (ARN) of the replication instance.+--+-- * 'dritlrsResponseStatus' - -- | The response status code.+describeReplicationInstanceTaskLogsResponse+    :: Int -- ^ 'dritlrsResponseStatus'+    -> DescribeReplicationInstanceTaskLogsResponse+describeReplicationInstanceTaskLogsResponse pResponseStatus_ =+  DescribeReplicationInstanceTaskLogsResponse'+    { _dritlrsReplicationInstanceTaskLogs = Nothing+    , _dritlrsMarker = Nothing+    , _dritlrsReplicationInstanceARN = Nothing+    , _dritlrsResponseStatus = pResponseStatus_+    }+++-- | An array of replication task log metadata. Each member of the array contains the replication task name, ARN, and task log size (in bytes).+dritlrsReplicationInstanceTaskLogs :: Lens' DescribeReplicationInstanceTaskLogsResponse [ReplicationInstanceTaskLog]+dritlrsReplicationInstanceTaskLogs = lens _dritlrsReplicationInstanceTaskLogs (\ s a -> s{_dritlrsReplicationInstanceTaskLogs = 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@ .+dritlrsMarker :: Lens' DescribeReplicationInstanceTaskLogsResponse (Maybe Text)+dritlrsMarker = lens _dritlrsMarker (\ s a -> s{_dritlrsMarker = a})++-- | The Amazon Resource Name (ARN) of the replication instance.+dritlrsReplicationInstanceARN :: Lens' DescribeReplicationInstanceTaskLogsResponse (Maybe Text)+dritlrsReplicationInstanceARN = lens _dritlrsReplicationInstanceARN (\ s a -> s{_dritlrsReplicationInstanceARN = a})++-- | -- | The response status code.+dritlrsResponseStatus :: Lens' DescribeReplicationInstanceTaskLogsResponse Int+dritlrsResponseStatus = lens _dritlrsResponseStatus (\ s a -> s{_dritlrsResponseStatus = a})++instance NFData+           DescribeReplicationInstanceTaskLogsResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeReplicationInstances--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Returns information about replication instances for your account in the current region. -- --+--+-- This operation returns paginated results. module Network.AWS.DMS.DescribeReplicationInstances     (     -- * Creating a Request@@ -43,6 +45,7 @@ import Network.AWS.DMS.Types import Network.AWS.DMS.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -72,21 +75,28 @@     :: DescribeReplicationInstances describeReplicationInstances =   DescribeReplicationInstances'-  {_driFilters = Nothing, _driMarker = Nothing, _driMaxRecords = Nothing}+    {_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;+driFilters = lens _driFilters (\ s a -> s{_driFilters = a}) . _Default . _Coerce  -- | An optional pagination token provided by a previous request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . driMarker :: Lens' DescribeReplicationInstances (Maybe Text)-driMarker = lens _driMarker (\ s a -> s{_driMarker = a});+driMarker = lens _driMarker (\ s a -> s{_driMarker = a})  -- | The maximum number of records to include in the response. If more records exist than the specified @MaxRecords@ value, a pagination token called a marker is included in the response so that the remaining results can be retrieved.  Default: 100 Constraints: Minimum 20, maximum 100. driMaxRecords :: Lens' DescribeReplicationInstances (Maybe Int)-driMaxRecords = lens _driMaxRecords (\ s a -> s{_driMaxRecords = a});+driMaxRecords = lens _driMaxRecords (\ s a -> s{_driMaxRecords = a}) +instance AWSPager DescribeReplicationInstances where+        page rq rs+          | stop (rs ^. drisrsMarker) = Nothing+          | stop (rs ^. drisrsReplicationInstances) = Nothing+          | otherwise =+            Just $ rq & driMarker .~ rs ^. drisrsMarker+ instance AWSRequest DescribeReplicationInstances          where         type Rs DescribeReplicationInstances =@@ -154,23 +164,23 @@     -> DescribeReplicationInstancesResponse describeReplicationInstancesResponse pResponseStatus_ =   DescribeReplicationInstancesResponse'-  { _drisrsMarker = Nothing-  , _drisrsReplicationInstances = Nothing-  , _drisrsResponseStatus = pResponseStatus_-  }+    { _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});+drisrsMarker = lens _drisrsMarker (\ s a -> s{_drisrsMarker = a})  -- | The replication instances described. drisrsReplicationInstances :: Lens' DescribeReplicationInstancesResponse [ReplicationInstance]-drisrsReplicationInstances = lens _drisrsReplicationInstances (\ s a -> s{_drisrsReplicationInstances = a}) . _Default . _Coerce;+drisrsReplicationInstances = lens _drisrsReplicationInstances (\ s a -> s{_drisrsReplicationInstances = a}) . _Default . _Coerce  -- | -- | The response status code. drisrsResponseStatus :: Lens' DescribeReplicationInstancesResponse Int-drisrsResponseStatus = lens _drisrsResponseStatus (\ s a -> s{_drisrsResponseStatus = a});+drisrsResponseStatus = lens _drisrsResponseStatus (\ s a -> s{_drisrsResponseStatus = a})  instance NFData DescribeReplicationInstancesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeReplicationSubnetGroups--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Returns information about the replication subnet groups. -- --+--+-- This operation returns paginated results. module Network.AWS.DMS.DescribeReplicationSubnetGroups     (     -- * Creating a Request@@ -43,6 +45,7 @@ import Network.AWS.DMS.Types import Network.AWS.DMS.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -72,21 +75,30 @@     :: DescribeReplicationSubnetGroups describeReplicationSubnetGroups =   DescribeReplicationSubnetGroups'-  {_drsgFilters = Nothing, _drsgMarker = Nothing, _drsgMaxRecords = Nothing}+    {_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;+drsgFilters = lens _drsgFilters (\ s a -> s{_drsgFilters = a}) . _Default . _Coerce  -- | An optional pagination token provided by a previous request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . drsgMarker :: Lens' DescribeReplicationSubnetGroups (Maybe Text)-drsgMarker = lens _drsgMarker (\ s a -> s{_drsgMarker = a});+drsgMarker = lens _drsgMarker (\ s a -> s{_drsgMarker = a})  -- | The maximum number of records to include in the response. If more records exist than the specified @MaxRecords@ value, a pagination token called a marker is included in the response so that the remaining results can be retrieved.  Default: 100 Constraints: Minimum 20, maximum 100. drsgMaxRecords :: Lens' DescribeReplicationSubnetGroups (Maybe Int)-drsgMaxRecords = lens _drsgMaxRecords (\ s a -> s{_drsgMaxRecords = a});+drsgMaxRecords = lens _drsgMaxRecords (\ s a -> s{_drsgMaxRecords = a}) +instance AWSPager DescribeReplicationSubnetGroups+         where+        page rq rs+          | stop (rs ^. drsgsrsMarker) = Nothing+          | stop (rs ^. drsgsrsReplicationSubnetGroups) =+            Nothing+          | otherwise =+            Just $ rq & drsgMarker .~ rs ^. drsgsrsMarker+ instance AWSRequest DescribeReplicationSubnetGroups          where         type Rs DescribeReplicationSubnetGroups =@@ -157,23 +169,23 @@     -> DescribeReplicationSubnetGroupsResponse describeReplicationSubnetGroupsResponse pResponseStatus_ =   DescribeReplicationSubnetGroupsResponse'-  { _drsgsrsMarker = Nothing-  , _drsgsrsReplicationSubnetGroups = Nothing-  , _drsgsrsResponseStatus = pResponseStatus_-  }+    { _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});+drsgsrsMarker = lens _drsgsrsMarker (\ s a -> s{_drsgsrsMarker = a})  -- | A description of the replication subnet groups. drsgsrsReplicationSubnetGroups :: Lens' DescribeReplicationSubnetGroupsResponse [ReplicationSubnetGroup]-drsgsrsReplicationSubnetGroups = lens _drsgsrsReplicationSubnetGroups (\ s a -> s{_drsgsrsReplicationSubnetGroups = a}) . _Default . _Coerce;+drsgsrsReplicationSubnetGroups = lens _drsgsrsReplicationSubnetGroups (\ s a -> s{_drsgsrsReplicationSubnetGroups = a}) . _Default . _Coerce  -- | -- | The response status code. drsgsrsResponseStatus :: Lens' DescribeReplicationSubnetGroupsResponse Int-drsgsrsResponseStatus = lens _drsgsrsResponseStatus (\ s a -> s{_drsgsrsResponseStatus = a});+drsgsrsResponseStatus = lens _drsgsrsResponseStatus (\ s a -> s{_drsgsrsResponseStatus = a})  instance NFData            DescribeReplicationSubnetGroupsResponse

@@ -0,0 +1,217 @@+{-# 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.DescribeReplicationTaskAssessmentResults+-- Copyright   : (c) 2013-2018 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)+--+-- Returns the task assessment results from Amazon S3. This action always returns the latest results.+--+--+--+-- This operation returns paginated results.+module Network.AWS.DMS.DescribeReplicationTaskAssessmentResults+    (+    -- * Creating a Request+      describeReplicationTaskAssessmentResults+    , DescribeReplicationTaskAssessmentResults+    -- * Request Lenses+    , drtarReplicationTaskARN+    , drtarMarker+    , drtarMaxRecords++    -- * Destructuring the Response+    , describeReplicationTaskAssessmentResultsResponse+    , DescribeReplicationTaskAssessmentResultsResponse+    -- * Response Lenses+    , drtarrsBucketName+    , drtarrsMarker+    , drtarrsReplicationTaskAssessmentResults+    , drtarrsResponseStatus+    ) where++import Network.AWS.DMS.Types+import Network.AWS.DMS.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- |+--+--+--+-- /See:/ 'describeReplicationTaskAssessmentResults' smart constructor.+data DescribeReplicationTaskAssessmentResults = DescribeReplicationTaskAssessmentResults'+  { _drtarReplicationTaskARN :: !(Maybe Text)+  , _drtarMarker             :: !(Maybe Text)+  , _drtarMaxRecords         :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeReplicationTaskAssessmentResults' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drtarReplicationTaskARN' - - The Amazon Resource Name (ARN) string that uniquely identifies the task. When this input parameter is specified the API will return only one result and ignore the values of the max-records and marker parameters.+--+-- * 'drtarMarker' - 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@ .+--+-- * 'drtarMaxRecords' - 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.+describeReplicationTaskAssessmentResults+    :: DescribeReplicationTaskAssessmentResults+describeReplicationTaskAssessmentResults =+  DescribeReplicationTaskAssessmentResults'+    { _drtarReplicationTaskARN = Nothing+    , _drtarMarker = Nothing+    , _drtarMaxRecords = Nothing+    }+++-- | - The Amazon Resource Name (ARN) string that uniquely identifies the task. When this input parameter is specified the API will return only one result and ignore the values of the max-records and marker parameters.+drtarReplicationTaskARN :: Lens' DescribeReplicationTaskAssessmentResults (Maybe Text)+drtarReplicationTaskARN = lens _drtarReplicationTaskARN (\ s a -> s{_drtarReplicationTaskARN = a})++-- | An optional pagination token provided by a previous request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ .+drtarMarker :: Lens' DescribeReplicationTaskAssessmentResults (Maybe Text)+drtarMarker = lens _drtarMarker (\ s a -> s{_drtarMarker = 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.+drtarMaxRecords :: Lens' DescribeReplicationTaskAssessmentResults (Maybe Int)+drtarMaxRecords = lens _drtarMaxRecords (\ s a -> s{_drtarMaxRecords = a})++instance AWSPager+           DescribeReplicationTaskAssessmentResults+         where+        page rq rs+          | stop (rs ^. drtarrsMarker) = Nothing+          | stop+              (rs ^. drtarrsReplicationTaskAssessmentResults)+            = Nothing+          | otherwise =+            Just $ rq & drtarMarker .~ rs ^. drtarrsMarker++instance AWSRequest+           DescribeReplicationTaskAssessmentResults+         where+        type Rs DescribeReplicationTaskAssessmentResults =+             DescribeReplicationTaskAssessmentResultsResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 DescribeReplicationTaskAssessmentResultsResponse' <$>+                   (x .?> "BucketName") <*> (x .?> "Marker") <*>+                     (x .?> "ReplicationTaskAssessmentResults" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable+           DescribeReplicationTaskAssessmentResults+         where++instance NFData+           DescribeReplicationTaskAssessmentResults+         where++instance ToHeaders+           DescribeReplicationTaskAssessmentResults+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.DescribeReplicationTaskAssessmentResults"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON+           DescribeReplicationTaskAssessmentResults+         where+        toJSON DescribeReplicationTaskAssessmentResults'{..}+          = object+              (catMaybes+                 [("ReplicationTaskArn" .=) <$>+                    _drtarReplicationTaskARN,+                  ("Marker" .=) <$> _drtarMarker,+                  ("MaxRecords" .=) <$> _drtarMaxRecords])++instance ToPath+           DescribeReplicationTaskAssessmentResults+         where+        toPath = const "/"++instance ToQuery+           DescribeReplicationTaskAssessmentResults+         where+        toQuery = const mempty++-- |+--+--+--+-- /See:/ 'describeReplicationTaskAssessmentResultsResponse' smart constructor.+data DescribeReplicationTaskAssessmentResultsResponse = DescribeReplicationTaskAssessmentResultsResponse'+  { _drtarrsBucketName :: !(Maybe Text)+  , _drtarrsMarker :: !(Maybe Text)+  , _drtarrsReplicationTaskAssessmentResults :: !(Maybe [ReplicationTaskAssessmentResult])+  , _drtarrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeReplicationTaskAssessmentResultsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drtarrsBucketName' - - The Amazon S3 bucket where the task assessment report is located.+--+-- * 'drtarrsMarker' - 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@ .+--+-- * 'drtarrsReplicationTaskAssessmentResults' - The task assessment report.+--+-- * 'drtarrsResponseStatus' - -- | The response status code.+describeReplicationTaskAssessmentResultsResponse+    :: Int -- ^ 'drtarrsResponseStatus'+    -> DescribeReplicationTaskAssessmentResultsResponse+describeReplicationTaskAssessmentResultsResponse pResponseStatus_ =+  DescribeReplicationTaskAssessmentResultsResponse'+    { _drtarrsBucketName = Nothing+    , _drtarrsMarker = Nothing+    , _drtarrsReplicationTaskAssessmentResults = Nothing+    , _drtarrsResponseStatus = pResponseStatus_+    }+++-- | - The Amazon S3 bucket where the task assessment report is located.+drtarrsBucketName :: Lens' DescribeReplicationTaskAssessmentResultsResponse (Maybe Text)+drtarrsBucketName = lens _drtarrsBucketName (\ s a -> s{_drtarrsBucketName = a})++-- | An optional pagination token provided by a previous request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ .+drtarrsMarker :: Lens' DescribeReplicationTaskAssessmentResultsResponse (Maybe Text)+drtarrsMarker = lens _drtarrsMarker (\ s a -> s{_drtarrsMarker = a})++-- | The task assessment report.+drtarrsReplicationTaskAssessmentResults :: Lens' DescribeReplicationTaskAssessmentResultsResponse [ReplicationTaskAssessmentResult]+drtarrsReplicationTaskAssessmentResults = lens _drtarrsReplicationTaskAssessmentResults (\ s a -> s{_drtarrsReplicationTaskAssessmentResults = a}) . _Default . _Coerce++-- | -- | The response status code.+drtarrsResponseStatus :: Lens' DescribeReplicationTaskAssessmentResultsResponse Int+drtarrsResponseStatus = lens _drtarrsResponseStatus (\ s a -> s{_drtarrsResponseStatus = a})++instance NFData+           DescribeReplicationTaskAssessmentResultsResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeReplicationTasks--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Returns information about replication tasks for your account in the current region. -- --+--+-- This operation returns paginated results. module Network.AWS.DMS.DescribeReplicationTasks     (     -- * Creating a Request@@ -43,6 +45,7 @@ import Network.AWS.DMS.Types import Network.AWS.DMS.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -72,21 +75,28 @@     :: DescribeReplicationTasks describeReplicationTasks =   DescribeReplicationTasks'-  {_drtFilters = Nothing, _drtMarker = Nothing, _drtMaxRecords = Nothing}+    {_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;+drtFilters = lens _drtFilters (\ s a -> s{_drtFilters = a}) . _Default . _Coerce  -- | An optional pagination token provided by a previous request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . drtMarker :: Lens' DescribeReplicationTasks (Maybe Text)-drtMarker = lens _drtMarker (\ s a -> s{_drtMarker = a});+drtMarker = lens _drtMarker (\ s a -> s{_drtMarker = a})  -- | The maximum number of records to include in the response. If more records exist than the specified @MaxRecords@ value, a pagination token called a marker is included in the response so that the remaining results can be retrieved.  Default: 100 Constraints: Minimum 20, maximum 100. drtMaxRecords :: Lens' DescribeReplicationTasks (Maybe Int)-drtMaxRecords = lens _drtMaxRecords (\ s a -> s{_drtMaxRecords = a});+drtMaxRecords = lens _drtMaxRecords (\ s a -> s{_drtMaxRecords = a}) +instance AWSPager DescribeReplicationTasks where+        page rq rs+          | stop (rs ^. drtsrsMarker) = Nothing+          | stop (rs ^. drtsrsReplicationTasks) = Nothing+          | otherwise =+            Just $ rq & drtMarker .~ rs ^. drtsrsMarker+ instance AWSRequest DescribeReplicationTasks where         type Rs DescribeReplicationTasks =              DescribeReplicationTasksResponse@@ -153,23 +163,23 @@     -> DescribeReplicationTasksResponse describeReplicationTasksResponse pResponseStatus_ =   DescribeReplicationTasksResponse'-  { _drtsrsReplicationTasks = Nothing-  , _drtsrsMarker = Nothing-  , _drtsrsResponseStatus = pResponseStatus_-  }+    { _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;+drtsrsReplicationTasks = lens _drtsrsReplicationTasks (\ s a -> s{_drtsrsReplicationTasks = a}) . _Default . _Coerce  -- | An optional pagination token provided by a previous request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . drtsrsMarker :: Lens' DescribeReplicationTasksResponse (Maybe Text)-drtsrsMarker = lens _drtsrsMarker (\ s a -> s{_drtsrsMarker = a});+drtsrsMarker = lens _drtsrsMarker (\ s a -> s{_drtsrsMarker = a})  -- | -- | The response status code. drtsrsResponseStatus :: Lens' DescribeReplicationTasksResponse Int-drtsrsResponseStatus = lens _drtsrsResponseStatus (\ s a -> s{_drtsrsResponseStatus = a});+drtsrsResponseStatus = lens _drtsrsResponseStatus (\ s a -> s{_drtsrsResponseStatus = a})  instance NFData DescribeReplicationTasksResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeSchemas--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -23,6 +23,8 @@ -- -- --+--+-- This operation returns paginated results. module Network.AWS.DMS.DescribeSchemas     (     -- * Creating a Request@@ -45,6 +47,7 @@ import Network.AWS.DMS.Types import Network.AWS.DMS.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -75,21 +78,31 @@     -> DescribeSchemas describeSchemas pEndpointARN_ =   DescribeSchemas'-  {_dsMarker = Nothing, _dsMaxRecords = Nothing, _dsEndpointARN = pEndpointARN_}+    { _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});+dsMarker = lens _dsMarker (\ s a -> s{_dsMarker = a})  -- | The maximum number of records to include in the response. If more records exist than the specified @MaxRecords@ value, a pagination token called a marker is included in the response so that the remaining results can be retrieved.  Default: 100 Constraints: Minimum 20, maximum 100. dsMaxRecords :: Lens' DescribeSchemas (Maybe Int)-dsMaxRecords = lens _dsMaxRecords (\ s a -> s{_dsMaxRecords = a});+dsMaxRecords = lens _dsMaxRecords (\ s a -> s{_dsMaxRecords = a})  -- | The Amazon Resource Name (ARN) string that uniquely identifies the endpoint. dsEndpointARN :: Lens' DescribeSchemas Text-dsEndpointARN = lens _dsEndpointARN (\ s a -> s{_dsEndpointARN = a});+dsEndpointARN = lens _dsEndpointARN (\ s a -> s{_dsEndpointARN = a}) +instance AWSPager DescribeSchemas where+        page rq rs+          | stop (rs ^. dsrsMarker) = Nothing+          | stop (rs ^. dsrsSchemas) = Nothing+          | otherwise =+            Just $ rq & dsMarker .~ rs ^. dsrsMarker+ instance AWSRequest DescribeSchemas where         type Rs DescribeSchemas = DescribeSchemasResponse         request = postJSON dms@@ -153,22 +166,22 @@     -> DescribeSchemasResponse describeSchemasResponse pResponseStatus_ =   DescribeSchemasResponse'-  { _dsrsSchemas = Nothing-  , _dsrsMarker = Nothing-  , _dsrsResponseStatus = pResponseStatus_-  }+    { _dsrsSchemas = Nothing+    , _dsrsMarker = Nothing+    , _dsrsResponseStatus = pResponseStatus_+    }   -- | The described schema. dsrsSchemas :: Lens' DescribeSchemasResponse [Text]-dsrsSchemas = lens _dsrsSchemas (\ s a -> s{_dsrsSchemas = a}) . _Default . _Coerce;+dsrsSchemas = lens _dsrsSchemas (\ s a -> s{_dsrsSchemas = a}) . _Default . _Coerce  -- | An optional pagination token provided by a previous request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . dsrsMarker :: Lens' DescribeSchemasResponse (Maybe Text)-dsrsMarker = lens _dsrsMarker (\ s a -> s{_dsrsMarker = a});+dsrsMarker = lens _dsrsMarker (\ s a -> s{_dsrsMarker = a})  -- | -- | The response status code. dsrsResponseStatus :: Lens' DescribeSchemasResponse Int-dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a})  instance NFData DescribeSchemasResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.DescribeTableStatistics--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -23,6 +23,8 @@ -- -- 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. --+--+-- This operation returns paginated results. module Network.AWS.DMS.DescribeTableStatistics     (     -- * Creating a Request@@ -47,6 +49,7 @@ import Network.AWS.DMS.Types import Network.AWS.DMS.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -80,29 +83,36 @@     -> DescribeTableStatistics describeTableStatistics pReplicationTaskARN_ =   DescribeTableStatistics'-  { _dtsFilters = Nothing-  , _dtsMarker = Nothing-  , _dtsMaxRecords = Nothing-  , _dtsReplicationTaskARN = pReplicationTaskARN_-  }+    { _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;+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});+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 500. dtsMaxRecords :: Lens' DescribeTableStatistics (Maybe Int)-dtsMaxRecords = lens _dtsMaxRecords (\ s a -> s{_dtsMaxRecords = a});+dtsMaxRecords = lens _dtsMaxRecords (\ s a -> s{_dtsMaxRecords = a})  -- | The Amazon Resource Name (ARN) of the replication task. dtsReplicationTaskARN :: Lens' DescribeTableStatistics Text-dtsReplicationTaskARN = lens _dtsReplicationTaskARN (\ s a -> s{_dtsReplicationTaskARN = a});+dtsReplicationTaskARN = lens _dtsReplicationTaskARN (\ s a -> s{_dtsReplicationTaskARN = a}) +instance AWSPager DescribeTableStatistics where+        page rq rs+          | stop (rs ^. dtsrsMarker) = Nothing+          | stop (rs ^. dtsrsTableStatistics) = Nothing+          | otherwise =+            Just $ rq & dtsMarker .~ rs ^. dtsrsMarker+ instance AWSRequest DescribeTableStatistics where         type Rs DescribeTableStatistics =              DescribeTableStatisticsResponse@@ -174,27 +184,27 @@     -> DescribeTableStatisticsResponse describeTableStatisticsResponse pResponseStatus_ =   DescribeTableStatisticsResponse'-  { _dtsrsReplicationTaskARN = Nothing-  , _dtsrsMarker = Nothing-  , _dtsrsTableStatistics = Nothing-  , _dtsrsResponseStatus = pResponseStatus_-  }+    { _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});+dtsrsReplicationTaskARN = lens _dtsrsReplicationTaskARN (\ s a -> s{_dtsrsReplicationTaskARN = a})  -- | An optional pagination token provided by a previous request. If this parameter is specified, the response includes only records beyond the marker, up to the value specified by @MaxRecords@ . dtsrsMarker :: Lens' DescribeTableStatisticsResponse (Maybe Text)-dtsrsMarker = lens _dtsrsMarker (\ s a -> s{_dtsrsMarker = a});+dtsrsMarker = lens _dtsrsMarker (\ s a -> s{_dtsrsMarker = a})  -- | The table statistics. dtsrsTableStatistics :: Lens' DescribeTableStatisticsResponse [TableStatistics]-dtsrsTableStatistics = lens _dtsrsTableStatistics (\ s a -> s{_dtsrsTableStatistics = a}) . _Default . _Coerce;+dtsrsTableStatistics = lens _dtsrsTableStatistics (\ s a -> s{_dtsrsTableStatistics = a}) . _Default . _Coerce  -- | -- | The response status code. dtsrsResponseStatus :: Lens' DescribeTableStatisticsResponse Int-dtsrsResponseStatus = lens _dtsrsResponseStatus (\ s a -> s{_dtsrsResponseStatus = a});+dtsrsResponseStatus = lens _dtsrsResponseStatus (\ s a -> s{_dtsrsResponseStatus = a})  instance NFData DescribeTableStatisticsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.ImportCertificate--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,28 +72,28 @@     -> ImportCertificate importCertificate pCertificateIdentifier_ =   ImportCertificate'-  { _icCertificatePem = Nothing-  , _icCertificateWallet = Nothing-  , _icTags = Nothing-  , _icCertificateIdentifier = pCertificateIdentifier_-  }+    { _icCertificatePem = Nothing+    , _icCertificateWallet = Nothing+    , _icTags = Nothing+    , _icCertificateIdentifier = pCertificateIdentifier_+    }   -- | 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});+icCertificatePem = lens _icCertificatePem (\ s a -> s{_icCertificatePem = 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. icCertificateWallet :: Lens' ImportCertificate (Maybe ByteString)-icCertificateWallet = lens _icCertificateWallet (\ s a -> s{_icCertificateWallet = a}) . mapping _Base64;+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;+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});+icCertificateIdentifier = lens _icCertificateIdentifier (\ s a -> s{_icCertificateIdentifier = a})  instance AWSRequest ImportCertificate where         type Rs ImportCertificate = ImportCertificateResponse@@ -154,15 +154,15 @@     -> ImportCertificateResponse importCertificateResponse pResponseStatus_ =   ImportCertificateResponse'-  {_icrsCertificate = Nothing, _icrsResponseStatus = pResponseStatus_}+    {_icrsCertificate = Nothing, _icrsResponseStatus = pResponseStatus_}   -- | The certificate to be uploaded. icrsCertificate :: Lens' ImportCertificateResponse (Maybe Certificate)-icrsCertificate = lens _icrsCertificate (\ s a -> s{_icrsCertificate = a});+icrsCertificate = lens _icrsCertificate (\ s a -> s{_icrsCertificate = a})  -- | -- | The response status code. icrsResponseStatus :: Lens' ImportCertificateResponse Int-icrsResponseStatus = lens _icrsResponseStatus (\ s a -> s{_icrsResponseStatus = a});+icrsResponseStatus = lens _icrsResponseStatus (\ s a -> s{_icrsResponseStatus = a})  instance NFData ImportCertificateResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.ListTagsForResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | 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});+ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a})  instance AWSRequest ListTagsForResource where         type Rs ListTagsForResource =@@ -129,15 +129,15 @@     -> ListTagsForResourceResponse listTagsForResourceResponse pResponseStatus_ =   ListTagsForResourceResponse'-  {_ltfrrsTagList = Nothing, _ltfrrsResponseStatus = pResponseStatus_}+    {_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;+ltfrrsTagList = lens _ltfrrsTagList (\ s a -> s{_ltfrrsTagList = a}) . _Default . _Coerce  -- | -- | The response status code. ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int-ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a});+ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a})  instance NFData ListTagsForResourceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.ModifyEndpoint--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -29,9 +29,11 @@     -- * Request Lenses     , meServerName     , meCertificateARN+    , meServiceAccessRoleARN     , meExtraConnectionAttributes     , meEndpointType     , meUsername+    , meExternalTableDefinition     , meEngineName     , meMongoDBSettings     , meSSLMode@@ -66,9 +68,11 @@ data ModifyEndpoint = ModifyEndpoint'   { _meServerName                :: !(Maybe Text)   , _meCertificateARN            :: !(Maybe Text)+  , _meServiceAccessRoleARN      :: !(Maybe Text)   , _meExtraConnectionAttributes :: !(Maybe Text)   , _meEndpointType              :: !(Maybe ReplicationEndpointTypeValue)   , _meUsername                  :: !(Maybe Text)+  , _meExternalTableDefinition   :: !(Maybe Text)   , _meEngineName                :: !(Maybe Text)   , _meMongoDBSettings           :: !(Maybe MongoDBSettings)   , _meSSLMode                   :: !(Maybe DmsSSLModeValue)@@ -90,14 +94,18 @@ -- -- * 'meCertificateARN' - The Amazon Resource Name (ARN) of the certificate used for SSL connection. --+-- * 'meServiceAccessRoleARN' - The Amazon Resource Name (ARN) for the service access role you want to use to modify the endpoint.+-- -- * '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, depending on the EndPointType, include MYSQL, ORACLE, POSTGRES, MARIADB, AURORA, REDSHIFT, S3, DYNAMODB, MONGODB, SYBASE, and SQLSERVER.+-- * 'meExternalTableDefinition' - The external table definition. --+-- * 'meEngineName' - The type of engine for the endpoint. Valid values, depending on the EndPointType, include mysql, oracle, postgres, mariadb, aurora, aurora-postgresql, redshift, s3, db2, azuredb, sybase, sybase, dynamodb, mongodb, 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.@@ -120,83 +128,93 @@     -> ModifyEndpoint modifyEndpoint 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_-  }+    { _meServerName = Nothing+    , _meCertificateARN = Nothing+    , _meServiceAccessRoleARN = Nothing+    , _meExtraConnectionAttributes = Nothing+    , _meEndpointType = Nothing+    , _meUsername = Nothing+    , _meExternalTableDefinition = 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});+meServerName = lens _meServerName (\ s a -> s{_meServerName = a})  -- | The Amazon Resource Name (ARN) of the certificate used for SSL connection. meCertificateARN :: Lens' ModifyEndpoint (Maybe Text)-meCertificateARN = lens _meCertificateARN (\ s a -> s{_meCertificateARN = a});+meCertificateARN = lens _meCertificateARN (\ s a -> s{_meCertificateARN = a}) +-- | The Amazon Resource Name (ARN) for the service access role you want to use to modify the endpoint.+meServiceAccessRoleARN :: Lens' ModifyEndpoint (Maybe Text)+meServiceAccessRoleARN = lens _meServiceAccessRoleARN (\ s a -> s{_meServiceAccessRoleARN = a})+ -- | 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});+meExtraConnectionAttributes = lens _meExtraConnectionAttributes (\ s a -> s{_meExtraConnectionAttributes = a})  -- | The type of endpoint. meEndpointType :: Lens' ModifyEndpoint (Maybe ReplicationEndpointTypeValue)-meEndpointType = lens _meEndpointType (\ s a -> s{_meEndpointType = a});+meEndpointType = lens _meEndpointType (\ s a -> s{_meEndpointType = a})  -- | The user name to be used to login to the endpoint database. meUsername :: Lens' ModifyEndpoint (Maybe Text)-meUsername = lens _meUsername (\ s a -> s{_meUsername = a});+meUsername = lens _meUsername (\ s a -> s{_meUsername = a}) --- | 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.+-- | The external table definition.+meExternalTableDefinition :: Lens' ModifyEndpoint (Maybe Text)+meExternalTableDefinition = lens _meExternalTableDefinition (\ s a -> s{_meExternalTableDefinition = a})++-- | The type of engine for the endpoint. Valid values, depending on the EndPointType, include mysql, oracle, postgres, mariadb, aurora, aurora-postgresql, redshift, s3, db2, azuredb, sybase, sybase, dynamodb, mongodb, and sqlserver. meEngineName :: Lens' ModifyEndpoint (Maybe Text)-meEngineName = lens _meEngineName (\ s a -> s{_meEngineName = a});+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});+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});+meSSLMode = lens _meSSLMode (\ s a -> s{_meSSLMode = a})  -- | The password to be used to login to the endpoint database. mePassword :: Lens' ModifyEndpoint (Maybe Text)-mePassword = lens _mePassword (\ s a -> s{_mePassword = a}) . mapping _Sensitive;+mePassword = lens _mePassword (\ s a -> s{_mePassword = a}) . mapping _Sensitive  -- | The name of the endpoint database. meDatabaseName :: Lens' ModifyEndpoint (Maybe Text)-meDatabaseName = lens _meDatabaseName (\ s a -> s{_meDatabaseName = a});+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});+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});+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});+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});+mePort = lens _mePort (\ s a -> s{_mePort = a})  -- | The Amazon Resource Name (ARN) string that uniquely identifies the endpoint. meEndpointARN :: Lens' ModifyEndpoint Text-meEndpointARN = lens _meEndpointARN (\ s a -> s{_meEndpointARN = a});+meEndpointARN = lens _meEndpointARN (\ s a -> s{_meEndpointARN = a})  instance AWSRequest ModifyEndpoint where         type Rs ModifyEndpoint = ModifyEndpointResponse@@ -226,10 +244,14 @@               (catMaybes                  [("ServerName" .=) <$> _meServerName,                   ("CertificateArn" .=) <$> _meCertificateARN,+                  ("ServiceAccessRoleArn" .=) <$>+                    _meServiceAccessRoleARN,                   ("ExtraConnectionAttributes" .=) <$>                     _meExtraConnectionAttributes,                   ("EndpointType" .=) <$> _meEndpointType,                   ("Username" .=) <$> _meUsername,+                  ("ExternalTableDefinition" .=) <$>+                    _meExternalTableDefinition,                   ("EngineName" .=) <$> _meEngineName,                   ("MongoDbSettings" .=) <$> _meMongoDBSettings,                   ("SslMode" .=) <$> _meSSLMode,@@ -270,15 +292,15 @@     -> ModifyEndpointResponse modifyEndpointResponse pResponseStatus_ =   ModifyEndpointResponse'-  {_mersEndpoint = Nothing, _mersResponseStatus = pResponseStatus_}+    {_mersEndpoint = Nothing, _mersResponseStatus = pResponseStatus_}   -- | The modified endpoint. mersEndpoint :: Lens' ModifyEndpointResponse (Maybe Endpoint)-mersEndpoint = lens _mersEndpoint (\ s a -> s{_mersEndpoint = a});+mersEndpoint = lens _mersEndpoint (\ s a -> s{_mersEndpoint = a})  -- | -- | The response status code. mersResponseStatus :: Lens' ModifyEndpointResponse Int-mersResponseStatus = lens _mersResponseStatus (\ s a -> s{_mersResponseStatus = a});+mersResponseStatus = lens _mersResponseStatus (\ s a -> s{_mersResponseStatus = a})  instance NFData ModifyEndpointResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.ModifyEventSubscription--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -80,33 +80,33 @@     -> ModifyEventSubscription modifyEventSubscription pSubscriptionName_ =   ModifyEventSubscription'-  { _mesSNSTopicARN = Nothing-  , _mesEnabled = Nothing-  , _mesSourceType = Nothing-  , _mesEventCategories = Nothing-  , _mesSubscriptionName = pSubscriptionName_-  }+    { _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});+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});+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});+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;+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});+mesSubscriptionName = lens _mesSubscriptionName (\ s a -> s{_mesSubscriptionName = a})  instance AWSRequest ModifyEventSubscription where         type Rs ModifyEventSubscription =@@ -171,15 +171,15 @@     -> ModifyEventSubscriptionResponse modifyEventSubscriptionResponse pResponseStatus_ =   ModifyEventSubscriptionResponse'-  {_mesrsEventSubscription = Nothing, _mesrsResponseStatus = pResponseStatus_}+    {_mesrsEventSubscription = Nothing, _mesrsResponseStatus = pResponseStatus_}   -- | The modified event subscription. mesrsEventSubscription :: Lens' ModifyEventSubscriptionResponse (Maybe EventSubscription)-mesrsEventSubscription = lens _mesrsEventSubscription (\ s a -> s{_mesrsEventSubscription = a});+mesrsEventSubscription = lens _mesrsEventSubscription (\ s a -> s{_mesrsEventSubscription = a})  -- | -- | The response status code. mesrsResponseStatus :: Lens' ModifyEventSubscriptionResponse Int-mesrsResponseStatus = lens _mesrsResponseStatus (\ s a -> s{_mesrsResponseStatus = a});+mesrsResponseStatus = lens _mesrsResponseStatus (\ s a -> s{_mesrsResponseStatus = a})  instance NFData ModifyEventSubscriptionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.ModifyReplicationInstance--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -108,63 +108,63 @@     -> 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_-  }+    { _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});+mriEngineVersion = lens _mriEngineVersion (\ s a -> s{_mriEngineVersion = a})  -- | Indicates that minor version upgrades will be applied automatically to the replication instance during the maintenance window. Changing this parameter does not result in an outage except in the following case and the change is asynchronously applied as soon as possible. An outage will result if this parameter is set to @true@ during the maintenance window, and a newer minor version is available, and AWS DMS has enabled auto patching for that engine version. mriAutoMinorVersionUpgrade :: Lens' ModifyReplicationInstance (Maybe Bool)-mriAutoMinorVersionUpgrade = lens _mriAutoMinorVersionUpgrade (\ s a -> s{_mriAutoMinorVersionUpgrade = a});+mriAutoMinorVersionUpgrade = lens _mriAutoMinorVersionUpgrade (\ s a -> s{_mriAutoMinorVersionUpgrade = a})  -- | Indicates that major version upgrades are allowed. Changing this parameter does not result in an outage and the change is asynchronously applied as soon as possible. Constraints: This parameter must be set to true when specifying a value for the @EngineVersion@ parameter that is a different major version than the replication instance's current version. mriAllowMajorVersionUpgrade :: Lens' ModifyReplicationInstance (Maybe Bool)-mriAllowMajorVersionUpgrade = lens _mriAllowMajorVersionUpgrade (\ s a -> s{_mriAllowMajorVersionUpgrade = a});+mriAllowMajorVersionUpgrade = lens _mriAllowMajorVersionUpgrade (\ s a -> s{_mriAllowMajorVersionUpgrade = a})  -- | The weekly time range (in UTC) during which system maintenance can occur, which might result in an outage. Changing this parameter does not result in an outage, except in the following situation, and the change is asynchronously applied as soon as possible. If moving this window to the current time, there must be at least 30 minutes between the current time and end of the window to ensure pending changes are applied. Default: Uses existing setting Format: ddd:hh24:mi-ddd:hh24:mi Valid Days: Mon | Tue | Wed | Thu | Fri | Sat | Sun Constraints: Must be at least 30 minutes mriPreferredMaintenanceWindow :: Lens' ModifyReplicationInstance (Maybe Text)-mriPreferredMaintenanceWindow = lens _mriPreferredMaintenanceWindow (\ s a -> s{_mriPreferredMaintenanceWindow = a});+mriPreferredMaintenanceWindow = lens _mriPreferredMaintenanceWindow (\ s a -> s{_mriPreferredMaintenanceWindow = a})  -- | Specifies the VPC security group to be used with the replication instance. The VPC security group must work with the VPC containing the replication instance. mriVPCSecurityGroupIds :: Lens' ModifyReplicationInstance [Text]-mriVPCSecurityGroupIds = lens _mriVPCSecurityGroupIds (\ s a -> s{_mriVPCSecurityGroupIds = a}) . _Default . _Coerce;+mriVPCSecurityGroupIds = lens _mriVPCSecurityGroupIds (\ s a -> s{_mriVPCSecurityGroupIds = 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@ . mriMultiAZ :: Lens' ModifyReplicationInstance (Maybe Bool)-mriMultiAZ = lens _mriMultiAZ (\ s a -> s{_mriMultiAZ = a});+mriMultiAZ = lens _mriMultiAZ (\ s a -> s{_mriMultiAZ = a})  -- | The amount of storage (in gigabytes) to be allocated for the replication instance. mriAllocatedStorage :: Lens' ModifyReplicationInstance (Maybe Int)-mriAllocatedStorage = lens _mriAllocatedStorage (\ s a -> s{_mriAllocatedStorage = a});+mriAllocatedStorage = lens _mriAllocatedStorage (\ s a -> s{_mriAllocatedStorage = a})  -- | Indicates whether the changes should be applied immediately or during the next maintenance window. mriApplyImmediately :: Lens' ModifyReplicationInstance (Maybe Bool)-mriApplyImmediately = lens _mriApplyImmediately (\ s a -> s{_mriApplyImmediately = a});+mriApplyImmediately = lens _mriApplyImmediately (\ s a -> s{_mriApplyImmediately = a})  -- | The compute and memory capacity of the replication instance. Valid Values: @dms.t2.micro | dms.t2.small | dms.t2.medium | dms.t2.large | dms.c4.large | dms.c4.xlarge | dms.c4.2xlarge | dms.c4.4xlarge @ mriReplicationInstanceClass :: Lens' ModifyReplicationInstance (Maybe Text)-mriReplicationInstanceClass = lens _mriReplicationInstanceClass (\ s a -> s{_mriReplicationInstanceClass = a});+mriReplicationInstanceClass = lens _mriReplicationInstanceClass (\ s a -> s{_mriReplicationInstanceClass = a})  -- | The replication instance identifier. This parameter is stored as a lowercase string. mriReplicationInstanceIdentifier :: Lens' ModifyReplicationInstance (Maybe Text)-mriReplicationInstanceIdentifier = lens _mriReplicationInstanceIdentifier (\ s a -> s{_mriReplicationInstanceIdentifier = a});+mriReplicationInstanceIdentifier = lens _mriReplicationInstanceIdentifier (\ s a -> s{_mriReplicationInstanceIdentifier = a})  -- | The Amazon Resource Name (ARN) of the replication instance. mriReplicationInstanceARN :: Lens' ModifyReplicationInstance Text-mriReplicationInstanceARN = lens _mriReplicationInstanceARN (\ s a -> s{_mriReplicationInstanceARN = a});+mriReplicationInstanceARN = lens _mriReplicationInstanceARN (\ s a -> s{_mriReplicationInstanceARN = a})  instance AWSRequest ModifyReplicationInstance where         type Rs ModifyReplicationInstance =@@ -244,16 +244,18 @@     -> ModifyReplicationInstanceResponse modifyReplicationInstanceResponse pResponseStatus_ =   ModifyReplicationInstanceResponse'-  {_mrirsReplicationInstance = Nothing, _mrirsResponseStatus = pResponseStatus_}+    { _mrirsReplicationInstance = Nothing+    , _mrirsResponseStatus = pResponseStatus_+    }   -- | The modified replication instance. mrirsReplicationInstance :: Lens' ModifyReplicationInstanceResponse (Maybe ReplicationInstance)-mrirsReplicationInstance = lens _mrirsReplicationInstance (\ s a -> s{_mrirsReplicationInstance = a});+mrirsReplicationInstance = lens _mrirsReplicationInstance (\ s a -> s{_mrirsReplicationInstance = a})  -- | -- | The response status code. mrirsResponseStatus :: Lens' ModifyReplicationInstanceResponse Int-mrirsResponseStatus = lens _mrirsResponseStatus (\ s a -> s{_mrirsResponseStatus = a});+mrirsResponseStatus = lens _mrirsResponseStatus (\ s a -> s{_mrirsResponseStatus = a})  instance NFData ModifyReplicationInstanceResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.ModifyReplicationSubnetGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,23 +72,23 @@     -> ModifyReplicationSubnetGroup modifyReplicationSubnetGroup pReplicationSubnetGroupIdentifier_ =   ModifyReplicationSubnetGroup'-  { _mrsgReplicationSubnetGroupDescription = Nothing-  , _mrsgReplicationSubnetGroupIdentifier = pReplicationSubnetGroupIdentifier_-  , _mrsgSubnetIds = mempty-  }+    { _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});+mrsgReplicationSubnetGroupDescription = lens _mrsgReplicationSubnetGroupDescription (\ s a -> s{_mrsgReplicationSubnetGroupDescription = a})  -- | The name of the replication instance subnet group. mrsgReplicationSubnetGroupIdentifier :: Lens' ModifyReplicationSubnetGroup Text-mrsgReplicationSubnetGroupIdentifier = lens _mrsgReplicationSubnetGroupIdentifier (\ s a -> s{_mrsgReplicationSubnetGroupIdentifier = a});+mrsgReplicationSubnetGroupIdentifier = lens _mrsgReplicationSubnetGroupIdentifier (\ s a -> s{_mrsgReplicationSubnetGroupIdentifier = a})  -- | A list of subnet IDs. mrsgSubnetIds :: Lens' ModifyReplicationSubnetGroup [Text]-mrsgSubnetIds = lens _mrsgSubnetIds (\ s a -> s{_mrsgSubnetIds = a}) . _Coerce;+mrsgSubnetIds = lens _mrsgSubnetIds (\ s a -> s{_mrsgSubnetIds = a}) . _Coerce  instance AWSRequest ModifyReplicationSubnetGroup          where@@ -156,18 +156,18 @@     -> ModifyReplicationSubnetGroupResponse modifyReplicationSubnetGroupResponse pResponseStatus_ =   ModifyReplicationSubnetGroupResponse'-  { _mrsgrsReplicationSubnetGroup = Nothing-  , _mrsgrsResponseStatus = pResponseStatus_-  }+    { _mrsgrsReplicationSubnetGroup = Nothing+    , _mrsgrsResponseStatus = pResponseStatus_+    }   -- | The modified replication subnet group. mrsgrsReplicationSubnetGroup :: Lens' ModifyReplicationSubnetGroupResponse (Maybe ReplicationSubnetGroup)-mrsgrsReplicationSubnetGroup = lens _mrsgrsReplicationSubnetGroup (\ s a -> s{_mrsgrsReplicationSubnetGroup = a});+mrsgrsReplicationSubnetGroup = lens _mrsgrsReplicationSubnetGroup (\ s a -> s{_mrsgrsReplicationSubnetGroup = a})  -- | -- | The response status code. mrsgrsResponseStatus :: Lens' ModifyReplicationSubnetGroupResponse Int-mrsgrsResponseStatus = lens _mrsgrsResponseStatus (\ s a -> s{_mrsgrsResponseStatus = a});+mrsgrsResponseStatus = lens _mrsgrsResponseStatus (\ s a -> s{_mrsgrsResponseStatus = a})  instance NFData ModifyReplicationSubnetGroupResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.ModifyReplicationTask--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -33,8 +33,10 @@     -- * Request Lenses     , mrtReplicationTaskSettings     , mrtReplicationTaskIdentifier+    , mrtCdcStartPosition     , mrtTableMappings     , mrtMigrationType+    , mrtCdcStopPosition     , mrtCdcStartTime     , mrtReplicationTaskARN @@ -61,8 +63,10 @@ data ModifyReplicationTask = ModifyReplicationTask'   { _mrtReplicationTaskSettings   :: !(Maybe Text)   , _mrtReplicationTaskIdentifier :: !(Maybe Text)+  , _mrtCdcStartPosition          :: !(Maybe Text)   , _mrtTableMappings             :: !(Maybe Text)   , _mrtMigrationType             :: !(Maybe MigrationTypeValue)+  , _mrtCdcStopPosition           :: !(Maybe Text)   , _mrtCdcStartTime              :: !(Maybe POSIX)   , _mrtReplicationTaskARN        :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic)@@ -76,50 +80,64 @@ -- -- * '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. --+-- * 'mrtCdcStartPosition' - Indicates when you want a change data capture (CDC) operation to start. Use either CdcStartPosition or CdcStartTime to specify when you want a CDC operation to start. Specifying both values results in an error. The value can be in date, checkpoint, or LSN/SCN format. Date Example: --cdc-start-position “2018-03-08T12:12:12” Checkpoint Example: --cdc-start-position "checkpoint:V1#27#mysql-bin-changelog.157832:1975:-1:2002:677883278264080:mysql-bin-changelog.157832:1876#0#0#*#0#93" LSN Example: --cdc-start-position “mysql-bin-changelog.000024:373”+-- -- * '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.+-- * 'mrtCdcStopPosition' - Indicates when you want a change data capture (CDC) operation to stop. The value can be either server time or commit time. Server time example: --cdc-stop-position “server_time:3018-02-09T12:12:12” Commit time example: --cdc-stop-position “commit_time: 3018-02-09T12:12:12 “ --+-- * 'mrtCdcStartTime' - Indicates the start time for a change data capture (CDC) operation. Use either CdcStartTime or CdcStartPosition to specify when you want a CDC operation to start. Specifying both values results in an error.+-- -- * '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_-  }+    { _mrtReplicationTaskSettings = Nothing+    , _mrtReplicationTaskIdentifier = Nothing+    , _mrtCdcStartPosition = Nothing+    , _mrtTableMappings = Nothing+    , _mrtMigrationType = Nothing+    , _mrtCdcStopPosition = 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});+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});+mrtReplicationTaskIdentifier = lens _mrtReplicationTaskIdentifier (\ s a -> s{_mrtReplicationTaskIdentifier = a}) +-- | Indicates when you want a change data capture (CDC) operation to start. Use either CdcStartPosition or CdcStartTime to specify when you want a CDC operation to start. Specifying both values results in an error. The value can be in date, checkpoint, or LSN/SCN format. Date Example: --cdc-start-position “2018-03-08T12:12:12” Checkpoint Example: --cdc-start-position "checkpoint:V1#27#mysql-bin-changelog.157832:1975:-1:2002:677883278264080:mysql-bin-changelog.157832:1876#0#0#*#0#93" LSN Example: --cdc-start-position “mysql-bin-changelog.000024:373”+mrtCdcStartPosition :: Lens' ModifyReplicationTask (Maybe Text)+mrtCdcStartPosition = lens _mrtCdcStartPosition (\ s a -> s{_mrtCdcStartPosition = 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});+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});+mrtMigrationType = lens _mrtMigrationType (\ s a -> s{_mrtMigrationType = a}) --- | The start time for the Change Data Capture (CDC) operation.+-- | Indicates when you want a change data capture (CDC) operation to stop. The value can be either server time or commit time. Server time example: --cdc-stop-position “server_time:3018-02-09T12:12:12” Commit time example: --cdc-stop-position “commit_time: 3018-02-09T12:12:12 “+mrtCdcStopPosition :: Lens' ModifyReplicationTask (Maybe Text)+mrtCdcStopPosition = lens _mrtCdcStopPosition (\ s a -> s{_mrtCdcStopPosition = a})++-- | Indicates the start time for a change data capture (CDC) operation. Use either CdcStartTime or CdcStartPosition to specify when you want a CDC operation to start. Specifying both values results in an error. mrtCdcStartTime :: Lens' ModifyReplicationTask (Maybe UTCTime)-mrtCdcStartTime = lens _mrtCdcStartTime (\ s a -> s{_mrtCdcStartTime = a}) . mapping _Time;+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});+mrtReplicationTaskARN = lens _mrtReplicationTaskARN (\ s a -> s{_mrtReplicationTaskARN = a})  instance AWSRequest ModifyReplicationTask where         type Rs ModifyReplicationTask =@@ -153,8 +171,10 @@                     _mrtReplicationTaskSettings,                   ("ReplicationTaskIdentifier" .=) <$>                     _mrtReplicationTaskIdentifier,+                  ("CdcStartPosition" .=) <$> _mrtCdcStartPosition,                   ("TableMappings" .=) <$> _mrtTableMappings,                   ("MigrationType" .=) <$> _mrtMigrationType,+                  ("CdcStopPosition" .=) <$> _mrtCdcStopPosition,                   ("CdcStartTime" .=) <$> _mrtCdcStartTime,                   Just                     ("ReplicationTaskArn" .= _mrtReplicationTaskARN)])@@ -188,15 +208,15 @@     -> ModifyReplicationTaskResponse modifyReplicationTaskResponse pResponseStatus_ =   ModifyReplicationTaskResponse'-  {_mrtrsReplicationTask = Nothing, _mrtrsResponseStatus = pResponseStatus_}+    {_mrtrsReplicationTask = Nothing, _mrtrsResponseStatus = pResponseStatus_}   -- | The replication task that was modified. mrtrsReplicationTask :: Lens' ModifyReplicationTaskResponse (Maybe ReplicationTask)-mrtrsReplicationTask = lens _mrtrsReplicationTask (\ s a -> s{_mrtrsReplicationTask = a});+mrtrsReplicationTask = lens _mrtrsReplicationTask (\ s a -> s{_mrtrsReplicationTask = a})  -- | -- | The response status code. mrtrsResponseStatus :: Lens' ModifyReplicationTaskResponse Int-mrtrsResponseStatus = lens _mrtrsResponseStatus (\ s a -> s{_mrtrsResponseStatus = a});+mrtrsResponseStatus = lens _mrtrsResponseStatus (\ s a -> s{_mrtrsResponseStatus = a})  instance NFData ModifyReplicationTaskResponse where

@@ -0,0 +1,153 @@+{-# 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.RebootReplicationInstance+-- Copyright   : (c) 2013-2018 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)+--+-- Reboots a replication instance. Rebooting results in a momentary outage, until the replication instance becomes available again.+--+--+module Network.AWS.DMS.RebootReplicationInstance+    (+    -- * Creating a Request+      rebootReplicationInstance+    , RebootReplicationInstance+    -- * Request Lenses+    , rriForceFailover+    , rriReplicationInstanceARN++    -- * Destructuring the Response+    , rebootReplicationInstanceResponse+    , RebootReplicationInstanceResponse+    -- * Response Lenses+    , rrirsReplicationInstance+    , rrirsResponseStatus+    ) 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:/ 'rebootReplicationInstance' smart constructor.+data RebootReplicationInstance = RebootReplicationInstance'+  { _rriForceFailover          :: !(Maybe Bool)+  , _rriReplicationInstanceARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RebootReplicationInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rriForceFailover' - If this parameter is @true@ , the reboot is conducted through a Multi-AZ failover. (If the instance isn't configured for Multi-AZ, then you can't specify @true@ .)+--+-- * 'rriReplicationInstanceARN' - The Amazon Resource Name (ARN) of the replication instance.+rebootReplicationInstance+    :: Text -- ^ 'rriReplicationInstanceARN'+    -> RebootReplicationInstance+rebootReplicationInstance pReplicationInstanceARN_ =+  RebootReplicationInstance'+    { _rriForceFailover = Nothing+    , _rriReplicationInstanceARN = pReplicationInstanceARN_+    }+++-- | If this parameter is @true@ , the reboot is conducted through a Multi-AZ failover. (If the instance isn't configured for Multi-AZ, then you can't specify @true@ .)+rriForceFailover :: Lens' RebootReplicationInstance (Maybe Bool)+rriForceFailover = lens _rriForceFailover (\ s a -> s{_rriForceFailover = a})++-- | The Amazon Resource Name (ARN) of the replication instance.+rriReplicationInstanceARN :: Lens' RebootReplicationInstance Text+rriReplicationInstanceARN = lens _rriReplicationInstanceARN (\ s a -> s{_rriReplicationInstanceARN = a})++instance AWSRequest RebootReplicationInstance where+        type Rs RebootReplicationInstance =+             RebootReplicationInstanceResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 RebootReplicationInstanceResponse' <$>+                   (x .?> "ReplicationInstance") <*>+                     (pure (fromEnum s)))++instance Hashable RebootReplicationInstance where++instance NFData RebootReplicationInstance where++instance ToHeaders RebootReplicationInstance where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.RebootReplicationInstance" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON RebootReplicationInstance where+        toJSON RebootReplicationInstance'{..}+          = object+              (catMaybes+                 [("ForceFailover" .=) <$> _rriForceFailover,+                  Just+                    ("ReplicationInstanceArn" .=+                       _rriReplicationInstanceARN)])++instance ToPath RebootReplicationInstance where+        toPath = const "/"++instance ToQuery RebootReplicationInstance where+        toQuery = const mempty++-- | /See:/ 'rebootReplicationInstanceResponse' smart constructor.+data RebootReplicationInstanceResponse = RebootReplicationInstanceResponse'+  { _rrirsReplicationInstance :: !(Maybe ReplicationInstance)+  , _rrirsResponseStatus      :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RebootReplicationInstanceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rrirsReplicationInstance' - The replication instance that is being rebooted.+--+-- * 'rrirsResponseStatus' - -- | The response status code.+rebootReplicationInstanceResponse+    :: Int -- ^ 'rrirsResponseStatus'+    -> RebootReplicationInstanceResponse+rebootReplicationInstanceResponse pResponseStatus_ =+  RebootReplicationInstanceResponse'+    { _rrirsReplicationInstance = Nothing+    , _rrirsResponseStatus = pResponseStatus_+    }+++-- | The replication instance that is being rebooted.+rrirsReplicationInstance :: Lens' RebootReplicationInstanceResponse (Maybe ReplicationInstance)+rrirsReplicationInstance = lens _rrirsReplicationInstance (\ s a -> s{_rrirsReplicationInstance = a})++-- | -- | The response status code.+rrirsResponseStatus :: Lens' RebootReplicationInstanceResponse Int+rrirsResponseStatus = lens _rrirsResponseStatus (\ s a -> s{_rrirsResponseStatus = a})++instance NFData RebootReplicationInstanceResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.RefreshSchemas--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,18 +69,18 @@     -> RefreshSchemas refreshSchemas pEndpointARN_ pReplicationInstanceARN_ =   RefreshSchemas'-  { _rsEndpointARN = pEndpointARN_-  , _rsReplicationInstanceARN = pReplicationInstanceARN_-  }+    { _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});+rsEndpointARN = lens _rsEndpointARN (\ s a -> s{_rsEndpointARN = a})  -- | The Amazon Resource Name (ARN) of the replication instance. rsReplicationInstanceARN :: Lens' RefreshSchemas Text-rsReplicationInstanceARN = lens _rsReplicationInstanceARN (\ s a -> s{_rsReplicationInstanceARN = a});+rsReplicationInstanceARN = lens _rsReplicationInstanceARN (\ s a -> s{_rsReplicationInstanceARN = a})  instance AWSRequest RefreshSchemas where         type Rs RefreshSchemas = RefreshSchemasResponse@@ -143,15 +143,17 @@     -> RefreshSchemasResponse refreshSchemasResponse pResponseStatus_ =   RefreshSchemasResponse'-  {_rsrsRefreshSchemasStatus = Nothing, _rsrsResponseStatus = pResponseStatus_}+    { _rsrsRefreshSchemasStatus = Nothing+    , _rsrsResponseStatus = pResponseStatus_+    }   -- | The status of the refreshed schema. rsrsRefreshSchemasStatus :: Lens' RefreshSchemasResponse (Maybe RefreshSchemasStatus)-rsrsRefreshSchemasStatus = lens _rsrsRefreshSchemasStatus (\ s a -> s{_rsrsRefreshSchemasStatus = a});+rsrsRefreshSchemasStatus = lens _rsrsRefreshSchemasStatus (\ s a -> s{_rsrsRefreshSchemasStatus = a})  -- | -- | The response status code. rsrsResponseStatus :: Lens' RefreshSchemasResponse Int-rsrsResponseStatus = lens _rsrsResponseStatus (\ s a -> s{_rsrsResponseStatus = a});+rsrsResponseStatus = lens _rsrsResponseStatus (\ s a -> s{_rsrsResponseStatus = a})  instance NFData RefreshSchemasResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.ReloadTables--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,16 +64,16 @@     -> ReloadTables reloadTables pReplicationTaskARN_ =   ReloadTables'-  {_rtReplicationTaskARN = pReplicationTaskARN_, _rtTablesToReload = mempty}+    {_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});+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;+rtTablesToReload = lens _rtTablesToReload (\ s a -> s{_rtTablesToReload = a}) . _Coerce  instance AWSRequest ReloadTables where         type Rs ReloadTables = ReloadTablesResponse@@ -130,15 +130,15 @@     -> ReloadTablesResponse reloadTablesResponse pResponseStatus_ =   ReloadTablesResponse'-  {_rtrsReplicationTaskARN = Nothing, _rtrsResponseStatus = pResponseStatus_}+    {_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});+rtrsReplicationTaskARN = lens _rtrsReplicationTaskARN (\ s a -> s{_rtrsReplicationTaskARN = a})  -- | -- | The response status code. rtrsResponseStatus :: Lens' ReloadTablesResponse Int-rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a});+rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a})  instance NFData ReloadTablesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.RemoveTagsFromResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,16 +67,16 @@     -> RemoveTagsFromResource removeTagsFromResource pResourceARN_ =   RemoveTagsFromResource'-  {_rtfrResourceARN = pResourceARN_, _rtfrTagKeys = mempty}+    {_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});+rtfrResourceARN = lens _rtfrResourceARN (\ s a -> s{_rtfrResourceARN = a})  -- | The tag key (name) of the tag to be removed. rtfrTagKeys :: Lens' RemoveTagsFromResource [Text]-rtfrTagKeys = lens _rtfrTagKeys (\ s a -> s{_rtfrTagKeys = a}) . _Coerce;+rtfrTagKeys = lens _rtfrTagKeys (\ s a -> s{_rtfrTagKeys = a}) . _Coerce  instance AWSRequest RemoveTagsFromResource where         type Rs RemoveTagsFromResource =@@ -139,6 +139,6 @@  -- | -- | The response status code. rtfrrsResponseStatus :: Lens' RemoveTagsFromResourceResponse Int-rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a});+rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a})  instance NFData RemoveTagsFromResourceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.StartReplicationTask--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -29,6 +29,8 @@       startReplicationTask     , StartReplicationTask     -- * Request Lenses+    , srtCdcStartPosition+    , srtCdcStopPosition     , srtCdcStartTime     , srtReplicationTaskARN     , srtStartReplicationTaskType@@ -54,7 +56,9 @@ -- -- /See:/ 'startReplicationTask' smart constructor. data StartReplicationTask = StartReplicationTask'-  { _srtCdcStartTime             :: !(Maybe POSIX)+  { _srtCdcStartPosition         :: !(Maybe Text)+  , _srtCdcStopPosition          :: !(Maybe Text)+  , _srtCdcStartTime             :: !(Maybe POSIX)   , _srtReplicationTaskARN       :: !Text   , _srtStartReplicationTaskType :: !StartReplicationTaskTypeValue   } deriving (Eq, Read, Show, Data, Typeable, Generic)@@ -64,10 +68,14 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'srtCdcStartTime' - The start time for the Change Data Capture (CDC) operation.+-- * 'srtCdcStartPosition' - Indicates when you want a change data capture (CDC) operation to start. Use either CdcStartPosition or CdcStartTime to specify when you want a CDC operation to start. Specifying both values results in an error. The value can be in date, checkpoint, or LSN/SCN format. Date Example: --cdc-start-position “2018-03-08T12:12:12” Checkpoint Example: --cdc-start-position "checkpoint:V1#27#mysql-bin-changelog.157832:1975:-1:2002:677883278264080:mysql-bin-changelog.157832:1876#0#0#*#0#93" LSN Example: --cdc-start-position “mysql-bin-changelog.000024:373” ----- * 'srtReplicationTaskARN' - The Amazon Resource Number (ARN) of the replication task to be started.+-- * 'srtCdcStopPosition' - Indicates when you want a change data capture (CDC) operation to stop. The value can be either server time or commit time. Server time example: --cdc-stop-position “server_time:3018-02-09T12:12:12” Commit time example: --cdc-stop-position “commit_time: 3018-02-09T12:12:12 “ --+-- * 'srtCdcStartTime' - Indicates the start time for a change data capture (CDC) operation. Use either CdcStartTime or CdcStartPosition to specify when you want a CDC operation to start. Specifying both values results in an error.+--+-- * 'srtReplicationTaskARN' - The Amazon Resource Name (ARN) of the replication task to be started.+-- -- * 'srtStartReplicationTaskType' - The type of replication task. startReplicationTask     :: Text -- ^ 'srtReplicationTaskARN'@@ -75,23 +83,33 @@     -> StartReplicationTask startReplicationTask pReplicationTaskARN_ pStartReplicationTaskType_ =   StartReplicationTask'-  { _srtCdcStartTime = Nothing-  , _srtReplicationTaskARN = pReplicationTaskARN_-  , _srtStartReplicationTaskType = pStartReplicationTaskType_-  }+    { _srtCdcStartPosition = Nothing+    , _srtCdcStopPosition = Nothing+    , _srtCdcStartTime = Nothing+    , _srtReplicationTaskARN = pReplicationTaskARN_+    , _srtStartReplicationTaskType = pStartReplicationTaskType_+    }  --- | The start time for the Change Data Capture (CDC) operation.+-- | Indicates when you want a change data capture (CDC) operation to start. Use either CdcStartPosition or CdcStartTime to specify when you want a CDC operation to start. Specifying both values results in an error. The value can be in date, checkpoint, or LSN/SCN format. Date Example: --cdc-start-position “2018-03-08T12:12:12” Checkpoint Example: --cdc-start-position "checkpoint:V1#27#mysql-bin-changelog.157832:1975:-1:2002:677883278264080:mysql-bin-changelog.157832:1876#0#0#*#0#93" LSN Example: --cdc-start-position “mysql-bin-changelog.000024:373”+srtCdcStartPosition :: Lens' StartReplicationTask (Maybe Text)+srtCdcStartPosition = lens _srtCdcStartPosition (\ s a -> s{_srtCdcStartPosition = a})++-- | Indicates when you want a change data capture (CDC) operation to stop. The value can be either server time or commit time. Server time example: --cdc-stop-position “server_time:3018-02-09T12:12:12” Commit time example: --cdc-stop-position “commit_time: 3018-02-09T12:12:12 “+srtCdcStopPosition :: Lens' StartReplicationTask (Maybe Text)+srtCdcStopPosition = lens _srtCdcStopPosition (\ s a -> s{_srtCdcStopPosition = a})++-- | Indicates the start time for a change data capture (CDC) operation. Use either CdcStartTime or CdcStartPosition to specify when you want a CDC operation to start. Specifying both values results in an error. srtCdcStartTime :: Lens' StartReplicationTask (Maybe UTCTime)-srtCdcStartTime = lens _srtCdcStartTime (\ s a -> s{_srtCdcStartTime = a}) . mapping _Time;+srtCdcStartTime = lens _srtCdcStartTime (\ s a -> s{_srtCdcStartTime = a}) . mapping _Time --- | The Amazon Resource Number (ARN) of the replication task to be started.+-- | The Amazon Resource Name (ARN) of the replication task to be started. srtReplicationTaskARN :: Lens' StartReplicationTask Text-srtReplicationTaskARN = lens _srtReplicationTaskARN (\ s a -> s{_srtReplicationTaskARN = a});+srtReplicationTaskARN = lens _srtReplicationTaskARN (\ s a -> s{_srtReplicationTaskARN = a})  -- | The type of replication task. srtStartReplicationTaskType :: Lens' StartReplicationTask StartReplicationTaskTypeValue-srtStartReplicationTaskType = lens _srtStartReplicationTaskType (\ s a -> s{_srtStartReplicationTaskType = a});+srtStartReplicationTaskType = lens _srtStartReplicationTaskType (\ s a -> s{_srtStartReplicationTaskType = a})  instance AWSRequest StartReplicationTask where         type Rs StartReplicationTask =@@ -121,7 +139,9 @@         toJSON StartReplicationTask'{..}           = object               (catMaybes-                 [("CdcStartTime" .=) <$> _srtCdcStartTime,+                 [("CdcStartPosition" .=) <$> _srtCdcStartPosition,+                  ("CdcStopPosition" .=) <$> _srtCdcStopPosition,+                  ("CdcStartTime" .=) <$> _srtCdcStartTime,                   Just                     ("ReplicationTaskArn" .= _srtReplicationTaskARN),                   Just@@ -157,15 +177,15 @@     -> StartReplicationTaskResponse startReplicationTaskResponse pResponseStatus_ =   StartReplicationTaskResponse'-  {_srtrsReplicationTask = Nothing, _srtrsResponseStatus = pResponseStatus_}+    {_srtrsReplicationTask = Nothing, _srtrsResponseStatus = pResponseStatus_}   -- | The replication task started. srtrsReplicationTask :: Lens' StartReplicationTaskResponse (Maybe ReplicationTask)-srtrsReplicationTask = lens _srtrsReplicationTask (\ s a -> s{_srtrsReplicationTask = a});+srtrsReplicationTask = lens _srtrsReplicationTask (\ s a -> s{_srtrsReplicationTask = a})  -- | -- | The response status code. srtrsResponseStatus :: Lens' StartReplicationTaskResponse Int-srtrsResponseStatus = lens _srtrsResponseStatus (\ s a -> s{_srtrsResponseStatus = a});+srtrsResponseStatus = lens _srtrsResponseStatus (\ s a -> s{_srtrsResponseStatus = a})  instance NFData StartReplicationTaskResponse where

@@ -0,0 +1,150 @@+{-# 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.StartReplicationTaskAssessment+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Starts the replication task assessment for unsupported data types in the source database.+--+--+module Network.AWS.DMS.StartReplicationTaskAssessment+    (+    -- * Creating a Request+      startReplicationTaskAssessment+    , StartReplicationTaskAssessment+    -- * Request Lenses+    , srtaReplicationTaskARN++    -- * Destructuring the Response+    , startReplicationTaskAssessmentResponse+    , StartReplicationTaskAssessmentResponse+    -- * Response Lenses+    , srtarsReplicationTask+    , srtarsResponseStatus+    ) 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:/ 'startReplicationTaskAssessment' smart constructor.+newtype StartReplicationTaskAssessment = StartReplicationTaskAssessment'+  { _srtaReplicationTaskARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartReplicationTaskAssessment' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'srtaReplicationTaskARN' - The Amazon Resource Name (ARN) of the replication task.+startReplicationTaskAssessment+    :: Text -- ^ 'srtaReplicationTaskARN'+    -> StartReplicationTaskAssessment+startReplicationTaskAssessment pReplicationTaskARN_ =+  StartReplicationTaskAssessment'+    {_srtaReplicationTaskARN = pReplicationTaskARN_}+++-- | The Amazon Resource Name (ARN) of the replication task.+srtaReplicationTaskARN :: Lens' StartReplicationTaskAssessment Text+srtaReplicationTaskARN = lens _srtaReplicationTaskARN (\ s a -> s{_srtaReplicationTaskARN = a})++instance AWSRequest StartReplicationTaskAssessment+         where+        type Rs StartReplicationTaskAssessment =+             StartReplicationTaskAssessmentResponse+        request = postJSON dms+        response+          = receiveJSON+              (\ s h x ->+                 StartReplicationTaskAssessmentResponse' <$>+                   (x .?> "ReplicationTask") <*> (pure (fromEnum s)))++instance Hashable StartReplicationTaskAssessment+         where++instance NFData StartReplicationTaskAssessment where++instance ToHeaders StartReplicationTaskAssessment+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonDMSv20160101.StartReplicationTaskAssessment"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StartReplicationTaskAssessment where+        toJSON StartReplicationTaskAssessment'{..}+          = object+              (catMaybes+                 [Just+                    ("ReplicationTaskArn" .= _srtaReplicationTaskARN)])++instance ToPath StartReplicationTaskAssessment where+        toPath = const "/"++instance ToQuery StartReplicationTaskAssessment where+        toQuery = const mempty++-- |+--+--+--+-- /See:/ 'startReplicationTaskAssessmentResponse' smart constructor.+data StartReplicationTaskAssessmentResponse = StartReplicationTaskAssessmentResponse'+  { _srtarsReplicationTask :: !(Maybe ReplicationTask)+  , _srtarsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartReplicationTaskAssessmentResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'srtarsReplicationTask' - The assessed replication task.+--+-- * 'srtarsResponseStatus' - -- | The response status code.+startReplicationTaskAssessmentResponse+    :: Int -- ^ 'srtarsResponseStatus'+    -> StartReplicationTaskAssessmentResponse+startReplicationTaskAssessmentResponse pResponseStatus_ =+  StartReplicationTaskAssessmentResponse'+    {_srtarsReplicationTask = Nothing, _srtarsResponseStatus = pResponseStatus_}+++-- | The assessed replication task.+srtarsReplicationTask :: Lens' StartReplicationTaskAssessmentResponse (Maybe ReplicationTask)+srtarsReplicationTask = lens _srtarsReplicationTask (\ s a -> s{_srtarsReplicationTask = a})++-- | -- | The response status code.+srtarsResponseStatus :: Lens' StartReplicationTaskAssessmentResponse Int+srtarsResponseStatus = lens _srtarsResponseStatus (\ s a -> s{_srtarsResponseStatus = a})++instance NFData+           StartReplicationTaskAssessmentResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.StopReplicationTask--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -60,7 +60,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sReplicationTaskARN' - The Amazon Resource Number(ARN) of the replication task to be stopped.+-- * 'sReplicationTaskARN' - The Amazon Resource Name(ARN) of the replication task to be stopped. stopReplicationTask     :: Text -- ^ 'sReplicationTaskARN'     -> StopReplicationTask@@ -68,9 +68,9 @@   StopReplicationTask' {_sReplicationTaskARN = pReplicationTaskARN_}  --- | The Amazon Resource Number(ARN) of the replication task to be stopped.+-- | The Amazon Resource Name(ARN) of the replication task to be stopped. sReplicationTaskARN :: Lens' StopReplicationTask Text-sReplicationTaskARN = lens _sReplicationTaskARN (\ s a -> s{_sReplicationTaskARN = a});+sReplicationTaskARN = lens _sReplicationTaskARN (\ s a -> s{_sReplicationTaskARN = a})  instance AWSRequest StopReplicationTask where         type Rs StopReplicationTask =@@ -132,15 +132,15 @@     -> StopReplicationTaskResponse stopReplicationTaskResponse pResponseStatus_ =   StopReplicationTaskResponse'-  {_srsReplicationTask = Nothing, _srsResponseStatus = pResponseStatus_}+    {_srsReplicationTask = Nothing, _srsResponseStatus = pResponseStatus_}   -- | The replication task stopped. srsReplicationTask :: Lens' StopReplicationTaskResponse (Maybe ReplicationTask)-srsReplicationTask = lens _srsReplicationTask (\ s a -> s{_srsReplicationTask = a});+srsReplicationTask = lens _srsReplicationTask (\ s a -> s{_srsReplicationTask = a})  -- | -- | The response status code. srsResponseStatus :: Lens' StopReplicationTaskResponse Int-srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a})  instance NFData StopReplicationTaskResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DMS.TestConnection--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,18 +69,18 @@     -> TestConnection testConnection pReplicationInstanceARN_ pEndpointARN_ =   TestConnection'-  { _tcReplicationInstanceARN = pReplicationInstanceARN_-  , _tcEndpointARN = pEndpointARN_-  }+    { _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});+tcReplicationInstanceARN = lens _tcReplicationInstanceARN (\ s a -> s{_tcReplicationInstanceARN = a})  -- | The Amazon Resource Name (ARN) string that uniquely identifies the endpoint. tcEndpointARN :: Lens' TestConnection Text-tcEndpointARN = lens _tcEndpointARN (\ s a -> s{_tcEndpointARN = a});+tcEndpointARN = lens _tcEndpointARN (\ s a -> s{_tcEndpointARN = a})  instance AWSRequest TestConnection where         type Rs TestConnection = TestConnectionResponse@@ -142,15 +142,15 @@     -> TestConnectionResponse testConnectionResponse pResponseStatus_ =   TestConnectionResponse'-  {_tcrsConnection = Nothing, _tcrsResponseStatus = pResponseStatus_}+    {_tcrsConnection = Nothing, _tcrsResponseStatus = pResponseStatus_}   -- | The connection tested. tcrsConnection :: Lens' TestConnectionResponse (Maybe Connection)-tcrsConnection = lens _tcrsConnection (\ s a -> s{_tcrsConnection = a});+tcrsConnection = lens _tcrsConnection (\ s a -> s{_tcrsConnection = a})  -- | -- | The response status code. tcrsResponseStatus :: Lens' TestConnectionResponse Int-tcrsResponseStatus = lens _tcrsResponseStatus (\ s a -> s{_tcrsResponseStatus = a});+tcrsResponseStatus = lens _tcrsResponseStatus (\ s a -> s{_tcrsResponseStatus = a})  instance NFData TestConnectionResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.DMS.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -109,9 +109,12 @@     , eStatus     , eServerName     , eCertificateARN+    , eServiceAccessRoleARN+    , eEngineDisplayName     , eExtraConnectionAttributes     , eEndpointType     , eUsername+    , eExternalTableDefinition     , eEngineName     , eKMSKeyId     , eMongoDBSettings@@ -164,6 +167,7 @@     , mdsServerName     , mdsAuthMechanism     , mdsUsername+    , mdsKMSKeyId     , mdsPassword     , mdsNestingLevel     , mdsDatabaseName@@ -202,6 +206,7 @@     , riReplicationInstancePublicIPAddresses     , riReplicationSubnetGroup     , riInstanceCreateTime+    , riFreeUntil     , riReplicationInstanceStatus     , riReplicationInstancePrivateIPAddresses     , riPreferredMaintenanceWindow@@ -218,6 +223,13 @@     , riReplicationInstanceIdentifier     , riPendingModifiedValues +    -- * ReplicationInstanceTaskLog+    , ReplicationInstanceTaskLog+    , replicationInstanceTaskLog+    , ritlReplicationTaskName+    , ritlReplicationTaskARN+    , ritlReplicationInstanceTaskLogSize+     -- * ReplicationPendingModifiedValues     , ReplicationPendingModifiedValues     , replicationPendingModifiedValues@@ -243,16 +255,30 @@     , rStopReason     , rTargetEndpointARN     , rReplicationTaskIdentifier+    , rCdcStartPosition     , rReplicationTaskStartDate     , rSourceEndpointARN+    , rRecoveryCheckpoint     , rTableMappings     , rReplicationTaskCreationDate     , rMigrationType     , rReplicationTaskARN+    , rCdcStopPosition     , rReplicationTaskStats     , rReplicationInstanceARN     , rLastFailureMessage +    -- * ReplicationTaskAssessmentResult+    , ReplicationTaskAssessmentResult+    , replicationTaskAssessmentResult+    , rtarAssessmentResults+    , rtarAssessmentResultsFile+    , rtarReplicationTaskIdentifier+    , rtarAssessmentStatus+    , rtarS3ObjectURL+    , rtarReplicationTaskLastAssessmentDate+    , rtarReplicationTaskARN+     -- * ReplicationTaskStats     , ReplicationTaskStats     , replicationTaskStats@@ -284,6 +310,7 @@     -- * SupportedEndpointType     , SupportedEndpointType     , supportedEndpointType+    , setEngineDisplayName     , setEndpointType     , setEngineName     , setSupportsCDC@@ -291,15 +318,19 @@     -- * TableStatistics     , TableStatistics     , tableStatistics+    , tsValidationState     , tsFullLoadRows     , tsInserts     , tsFullLoadCondtnlChkFailedRows+    , tsValidationFailedRecords+    , tsValidationSuspendedRecords     , tsSchemaName     , tsTableState     , tsFullLoadErrorRows     , tsDdls     , tsDeletes     , tsUpdates+    , tsValidationPendingRecords     , tsLastUpdateTime     , tsTableName @@ -332,24 +363,24 @@ 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-  }+    { _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-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -358,6 +389,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.DMS.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -46,20 +46,20 @@     :: AccountQuota accountQuota =   AccountQuota'-  {_aqMax = Nothing, _aqUsed = Nothing, _aqAccountQuotaName = Nothing}+    {_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});+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});+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});+aqAccountQuotaName = lens _aqAccountQuotaName (\ s a -> s{_aqAccountQuotaName = a})  instance FromJSON AccountQuota where         parseJSON@@ -95,7 +95,7 @@  -- | The name of the availability zone. azName :: Lens' AvailabilityZone (Maybe Text)-azName = lens _azName (\ s a -> s{_azName = a});+azName = lens _azName (\ s a -> s{_azName = a})  instance FromJSON AvailabilityZone where         parseJSON@@ -152,58 +152,58 @@     :: Certificate certificate =   Certificate'-  { _cCertificateOwner = Nothing-  , _cSigningAlgorithm = Nothing-  , _cValidFromDate = Nothing-  , _cCertificatePem = Nothing-  , _cCertificateARN = Nothing-  , _cCertificateCreationDate = Nothing-  , _cCertificateIdentifier = Nothing-  , _cCertificateWallet = Nothing-  , _cKeyLength = Nothing-  , _cValidToDate = Nothing-  }+    { _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});+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});+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;+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});+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});+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;+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});+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;+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});+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;+cValidToDate = lens _cValidToDate (\ s a -> s{_cValidToDate = a}) . mapping _Time  instance FromJSON Certificate where         parseJSON@@ -259,38 +259,38 @@     :: Connection connection =   Connection'-  { _cStatus = Nothing-  , _cReplicationInstanceARN = Nothing-  , _cEndpointIdentifier = Nothing-  , _cReplicationInstanceIdentifier = Nothing-  , _cEndpointARN = Nothing-  , _cLastFailureMessage = Nothing-  }+    { _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});+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});+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});+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});+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});+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});+cLastFailureMessage = lens _cLastFailureMessage (\ s a -> s{_cLastFailureMessage = a})  instance FromJSON Connection where         parseJSON@@ -331,7 +331,7 @@  -- | The Amazon Resource Name (ARN) used by the service access IAM role. ddsServiceAccessRoleARN :: Lens' DynamoDBSettings Text-ddsServiceAccessRoleARN = lens _ddsServiceAccessRoleARN (\ s a -> s{_ddsServiceAccessRoleARN = a});+ddsServiceAccessRoleARN = lens _ddsServiceAccessRoleARN (\ s a -> s{_ddsServiceAccessRoleARN = a})  instance FromJSON DynamoDBSettings where         parseJSON@@ -360,9 +360,12 @@   { _eStatus                    :: !(Maybe Text)   , _eServerName                :: !(Maybe Text)   , _eCertificateARN            :: !(Maybe Text)+  , _eServiceAccessRoleARN      :: !(Maybe Text)+  , _eEngineDisplayName         :: !(Maybe Text)   , _eExtraConnectionAttributes :: !(Maybe Text)   , _eEndpointType              :: !(Maybe ReplicationEndpointTypeValue)   , _eUsername                  :: !(Maybe Text)+  , _eExternalTableDefinition   :: !(Maybe Text)   , _eEngineName                :: !(Maybe Text)   , _eKMSKeyId                  :: !(Maybe Text)   , _eMongoDBSettings           :: !(Maybe MongoDBSettings)@@ -387,14 +390,20 @@ -- -- * 'eCertificateARN' - The Amazon Resource Name (ARN) used for SSL connection to the endpoint. --+-- * 'eServiceAccessRoleARN' - The Amazon Resource Name (ARN) used by the service access IAM role.+--+-- * 'eEngineDisplayName' - The expanded name for the engine name. For example, if the @EngineName@ parameter is "aurora," this value would be "Amazon Aurora MySQL."+-- -- * '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.+-- * 'eExternalTableDefinition' - The external table definition. --+-- * 'eEngineName' - The database engine name. Valid values, depending on the EndPointType, include mysql, oracle, postgres, mariadb, aurora, aurora-postgresql, redshift, s3, db2, azuredb, sybase, 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.@@ -418,93 +427,108 @@     :: 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-  }+    { _eStatus = Nothing+    , _eServerName = Nothing+    , _eCertificateARN = Nothing+    , _eServiceAccessRoleARN = Nothing+    , _eEngineDisplayName = Nothing+    , _eExtraConnectionAttributes = Nothing+    , _eEndpointType = Nothing+    , _eUsername = Nothing+    , _eExternalTableDefinition = 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});+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});+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});+eCertificateARN = lens _eCertificateARN (\ s a -> s{_eCertificateARN = a}) +-- | The Amazon Resource Name (ARN) used by the service access IAM role.+eServiceAccessRoleARN :: Lens' Endpoint (Maybe Text)+eServiceAccessRoleARN = lens _eServiceAccessRoleARN (\ s a -> s{_eServiceAccessRoleARN = a})++-- | The expanded name for the engine name. For example, if the @EngineName@ parameter is "aurora," this value would be "Amazon Aurora MySQL."+eEngineDisplayName :: Lens' Endpoint (Maybe Text)+eEngineDisplayName = lens _eEngineDisplayName (\ s a -> s{_eEngineDisplayName = a})+ -- | Additional connection attributes used to connect to the endpoint. eExtraConnectionAttributes :: Lens' Endpoint (Maybe Text)-eExtraConnectionAttributes = lens _eExtraConnectionAttributes (\ s a -> s{_eExtraConnectionAttributes = a});+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});+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});+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.+-- | The external table definition.+eExternalTableDefinition :: Lens' Endpoint (Maybe Text)+eExternalTableDefinition = lens _eExternalTableDefinition (\ s a -> s{_eExternalTableDefinition = a})++-- | The database engine name. Valid values, depending on the EndPointType, include mysql, oracle, postgres, mariadb, aurora, aurora-postgresql, redshift, s3, db2, azuredb, sybase, sybase, dynamodb, mongodb, and sqlserver. eEngineName :: Lens' Endpoint (Maybe Text)-eEngineName = lens _eEngineName (\ s a -> s{_eEngineName = a});+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});+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});+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});+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});+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});+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});+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});+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});+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});+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});+ePort = lens _ePort (\ s a -> s{_ePort = a})  instance FromJSON Endpoint where         parseJSON@@ -513,9 +537,12 @@                  Endpoint' <$>                    (x .:? "Status") <*> (x .:? "ServerName") <*>                      (x .:? "CertificateArn")+                     <*> (x .:? "ServiceAccessRoleArn")+                     <*> (x .:? "EngineDisplayName")                      <*> (x .:? "ExtraConnectionAttributes")                      <*> (x .:? "EndpointType")                      <*> (x .:? "Username")+                     <*> (x .:? "ExternalTableDefinition")                      <*> (x .:? "EngineName")                      <*> (x .:? "KmsKeyId")                      <*> (x .:? "MongoDbSettings")@@ -563,33 +590,33 @@     :: Event event =   Event'-  { _eSourceType = Nothing-  , _eSourceIdentifier = Nothing-  , _eDate = Nothing-  , _eEventCategories = Nothing-  , _eMessage = Nothing-  }+    { _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});+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});+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;+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;+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});+eMessage = lens _eMessage (\ s a -> s{_eMessage = a})  instance FromJSON Event where         parseJSON@@ -631,11 +658,11 @@  -- | 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});+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;+ecgEventCategories = lens _ecgEventCategories (\ s a -> s{_ecgEventCategories = a}) . _Default . _Coerce  instance FromJSON EventCategoryGroup where         parseJSON@@ -692,53 +719,53 @@     :: EventSubscription eventSubscription =   EventSubscription'-  { _esStatus = Nothing-  , _esCustomerAWSId = Nothing-  , _esCustSubscriptionId = Nothing-  , _esSNSTopicARN = Nothing-  , _esEnabled = Nothing-  , _esSourceType = Nothing-  , _esSubscriptionCreationTime = Nothing-  , _esEventCategoriesList = Nothing-  , _esSourceIdsList = Nothing-  }+    { _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});+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});+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});+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});+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});+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});+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});+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;+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;+esSourceIdsList = lens _esSourceIdsList (\ s a -> s{_esSourceIdsList = a}) . _Default . _Coerce  instance FromJSON EventSubscription where         parseJSON@@ -784,11 +811,11 @@  -- | The name of the filter. fName :: Lens' Filter Text-fName = lens _fName (\ s a -> s{_fName = a});+fName = lens _fName (\ s a -> s{_fName = a})  -- | The filter value. fValues :: Lens' Filter [Text]-fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Coerce;+fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Coerce  instance Hashable Filter where @@ -810,6 +837,7 @@   { _mdsServerName        :: !(Maybe Text)   , _mdsAuthMechanism     :: !(Maybe AuthMechanismValue)   , _mdsUsername          :: !(Maybe Text)+  , _mdsKMSKeyId          :: !(Maybe Text)   , _mdsPassword          :: !(Maybe (Sensitive Text))   , _mdsNestingLevel      :: !(Maybe NestingLevelValue)   , _mdsDatabaseName      :: !(Maybe Text)@@ -831,6 +859,8 @@ -- -- * 'mdsUsername' - The user name you use to access the MongoDB source endpoint. --+-- * 'mdsKMSKeyId' - 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.+-- -- * '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.@@ -850,63 +880,68 @@     :: 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-  }+    { _mdsServerName = Nothing+    , _mdsAuthMechanism = Nothing+    , _mdsUsername = Nothing+    , _mdsKMSKeyId = 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});+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});+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});+mdsUsername = lens _mdsUsername (\ s a -> s{_mdsUsername = 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.+mdsKMSKeyId :: Lens' MongoDBSettings (Maybe Text)+mdsKMSKeyId = lens _mdsKMSKeyId (\ s a -> s{_mdsKMSKeyId = 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;+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});+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});+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});+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});+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});+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});+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});+mdsPort = lens _mdsPort (\ s a -> s{_mdsPort = a})  instance FromJSON MongoDBSettings where         parseJSON@@ -915,6 +950,7 @@                  MongoDBSettings' <$>                    (x .:? "ServerName") <*> (x .:? "AuthMechanism") <*>                      (x .:? "Username")+                     <*> (x .:? "KmsKeyId")                      <*> (x .:? "Password")                      <*> (x .:? "NestingLevel")                      <*> (x .:? "DatabaseName")@@ -935,6 +971,7 @@                  [("ServerName" .=) <$> _mdsServerName,                   ("AuthMechanism" .=) <$> _mdsAuthMechanism,                   ("Username" .=) <$> _mdsUsername,+                  ("KmsKeyId" .=) <$> _mdsKMSKeyId,                   ("Password" .=) <$> _mdsPassword,                   ("NestingLevel" .=) <$> _mdsNestingLevel,                   ("DatabaseName" .=) <$> _mdsDatabaseName,@@ -981,43 +1018,43 @@     :: OrderableReplicationInstance orderableReplicationInstance =   OrderableReplicationInstance'-  { _oriEngineVersion = Nothing-  , _oriMinAllocatedStorage = Nothing-  , _oriIncludedAllocatedStorage = Nothing-  , _oriMaxAllocatedStorage = Nothing-  , _oriReplicationInstanceClass = Nothing-  , _oriDefaultAllocatedStorage = Nothing-  , _oriStorageType = Nothing-  }+    { _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});+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});+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});+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});+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});+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});+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});+oriStorageType = lens _oriStorageType (\ s a -> s{_oriStorageType = a})  instance FromJSON OrderableReplicationInstance where         parseJSON@@ -1067,33 +1104,33 @@     :: RefreshSchemasStatus refreshSchemasStatus =   RefreshSchemasStatus'-  { _rssStatus = Nothing-  , _rssLastRefreshDate = Nothing-  , _rssReplicationInstanceARN = Nothing-  , _rssEndpointARN = Nothing-  , _rssLastFailureMessage = Nothing-  }+    { _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});+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;+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});+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});+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});+rssLastFailureMessage = lens _rssLastFailureMessage (\ s a -> s{_rssLastFailureMessage = a})  instance FromJSON RefreshSchemasStatus where         parseJSON@@ -1121,6 +1158,7 @@   , _riReplicationInstancePublicIPAddresses :: !(Maybe [Text])   , _riReplicationSubnetGroup :: !(Maybe ReplicationSubnetGroup)   , _riInstanceCreateTime :: !(Maybe POSIX)+  , _riFreeUntil :: !(Maybe POSIX)   , _riReplicationInstanceStatus :: !(Maybe Text)   , _riReplicationInstancePrivateIPAddresses :: !(Maybe [Text])   , _riPreferredMaintenanceWindow :: !(Maybe Text)@@ -1155,6 +1193,8 @@ -- -- * 'riInstanceCreateTime' - The time the replication instance was created. --+-- * 'riFreeUntil' - The expiration date of the free replication instance that is part of the Free DMS program.+-- -- * 'riReplicationInstanceStatus' - The status of the replication instance. -- -- * 'riReplicationInstancePrivateIPAddresses' - The private IP address of the replication instance.@@ -1188,113 +1228,118 @@     :: 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-  }+    { _riEngineVersion = Nothing+    , _riPubliclyAccessible = Nothing+    , _riAutoMinorVersionUpgrade = Nothing+    , _riReplicationInstancePublicIPAddresses = Nothing+    , _riReplicationSubnetGroup = Nothing+    , _riInstanceCreateTime = Nothing+    , _riFreeUntil = 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});+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});+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});+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;+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});+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;+riInstanceCreateTime = lens _riInstanceCreateTime (\ s a -> s{_riInstanceCreateTime = a}) . mapping _Time +-- | The expiration date of the free replication instance that is part of the Free DMS program.+riFreeUntil :: Lens' ReplicationInstance (Maybe UTCTime)+riFreeUntil = lens _riFreeUntil (\ s a -> s{_riFreeUntil = a}) . mapping _Time+ -- | The status of the replication instance. riReplicationInstanceStatus :: Lens' ReplicationInstance (Maybe Text)-riReplicationInstanceStatus = lens _riReplicationInstanceStatus (\ s a -> s{_riReplicationInstanceStatus = a});+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;+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});+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});+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});+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});+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;+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});+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});+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});+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});+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});+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});+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});+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});+riPendingModifiedValues = lens _riPendingModifiedValues (\ s a -> s{_riPendingModifiedValues = a})  instance FromJSON ReplicationInstance where         parseJSON@@ -1309,6 +1354,7 @@                         mempty)                      <*> (x .:? "ReplicationSubnetGroup")                      <*> (x .:? "InstanceCreateTime")+                     <*> (x .:? "FreeUntil")                      <*> (x .:? "ReplicationInstanceStatus")                      <*>                      (x .:? "ReplicationInstancePrivateIpAddresses" .!=@@ -1331,6 +1377,62 @@  instance NFData ReplicationInstance where +-- | Contains metadata for a replication instance task log.+--+--+--+-- /See:/ 'replicationInstanceTaskLog' smart constructor.+data ReplicationInstanceTaskLog = ReplicationInstanceTaskLog'+  { _ritlReplicationTaskName            :: !(Maybe Text)+  , _ritlReplicationTaskARN             :: !(Maybe Text)+  , _ritlReplicationInstanceTaskLogSize :: !(Maybe Integer)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ReplicationInstanceTaskLog' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ritlReplicationTaskName' - The name of the replication task.+--+-- * 'ritlReplicationTaskARN' - The Amazon Resource Name (ARN) of the replication task.+--+-- * 'ritlReplicationInstanceTaskLogSize' - The size, in bytes, of the replication task log.+replicationInstanceTaskLog+    :: ReplicationInstanceTaskLog+replicationInstanceTaskLog =+  ReplicationInstanceTaskLog'+    { _ritlReplicationTaskName = Nothing+    , _ritlReplicationTaskARN = Nothing+    , _ritlReplicationInstanceTaskLogSize = Nothing+    }+++-- | The name of the replication task.+ritlReplicationTaskName :: Lens' ReplicationInstanceTaskLog (Maybe Text)+ritlReplicationTaskName = lens _ritlReplicationTaskName (\ s a -> s{_ritlReplicationTaskName = a})++-- | The Amazon Resource Name (ARN) of the replication task.+ritlReplicationTaskARN :: Lens' ReplicationInstanceTaskLog (Maybe Text)+ritlReplicationTaskARN = lens _ritlReplicationTaskARN (\ s a -> s{_ritlReplicationTaskARN = a})++-- | The size, in bytes, of the replication task log.+ritlReplicationInstanceTaskLogSize :: Lens' ReplicationInstanceTaskLog (Maybe Integer)+ritlReplicationInstanceTaskLogSize = lens _ritlReplicationInstanceTaskLogSize (\ s a -> s{_ritlReplicationInstanceTaskLogSize = a})++instance FromJSON ReplicationInstanceTaskLog where+        parseJSON+          = withObject "ReplicationInstanceTaskLog"+              (\ x ->+                 ReplicationInstanceTaskLog' <$>+                   (x .:? "ReplicationTaskName") <*>+                     (x .:? "ReplicationTaskArn")+                     <*> (x .:? "ReplicationInstanceTaskLogSize"))++instance Hashable ReplicationInstanceTaskLog where++instance NFData ReplicationInstanceTaskLog where+ -- | -- --@@ -1359,28 +1461,28 @@     :: ReplicationPendingModifiedValues replicationPendingModifiedValues =   ReplicationPendingModifiedValues'-  { _rpmvEngineVersion = Nothing-  , _rpmvMultiAZ = Nothing-  , _rpmvAllocatedStorage = Nothing-  , _rpmvReplicationInstanceClass = Nothing-  }+    { _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});+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});+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});+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});+rpmvReplicationInstanceClass = lens _rpmvReplicationInstanceClass (\ s a -> s{_rpmvReplicationInstanceClass = a})  instance FromJSON ReplicationPendingModifiedValues          where@@ -1429,33 +1531,33 @@     :: ReplicationSubnetGroup replicationSubnetGroup =   ReplicationSubnetGroup'-  { _rsgVPCId = Nothing-  , _rsgSubnets = Nothing-  , _rsgReplicationSubnetGroupIdentifier = Nothing-  , _rsgSubnetGroupStatus = Nothing-  , _rsgReplicationSubnetGroupDescription = Nothing-  }+    { _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});+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;+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});+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});+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});+rsgReplicationSubnetGroupDescription = lens _rsgReplicationSubnetGroupDescription (\ s a -> s{_rsgReplicationSubnetGroupDescription = a})  instance FromJSON ReplicationSubnetGroup where         parseJSON@@ -1482,12 +1584,15 @@   , _rStopReason                  :: !(Maybe Text)   , _rTargetEndpointARN           :: !(Maybe Text)   , _rReplicationTaskIdentifier   :: !(Maybe Text)+  , _rCdcStartPosition            :: !(Maybe Text)   , _rReplicationTaskStartDate    :: !(Maybe POSIX)   , _rSourceEndpointARN           :: !(Maybe Text)+  , _rRecoveryCheckpoint          :: !(Maybe Text)   , _rTableMappings               :: !(Maybe Text)   , _rReplicationTaskCreationDate :: !(Maybe POSIX)   , _rMigrationType               :: !(Maybe MigrationTypeValue)   , _rReplicationTaskARN          :: !(Maybe Text)+  , _rCdcStopPosition             :: !(Maybe Text)   , _rReplicationTaskStats        :: !(Maybe ReplicationTaskStats)   , _rReplicationInstanceARN      :: !(Maybe Text)   , _rLastFailureMessage          :: !(Maybe Text)@@ -1508,10 +1613,14 @@ -- -- * '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. --+-- * 'rCdcStartPosition' - Indicates when you want a change data capture (CDC) operation to start. Use either CdcStartPosition or CdcStartTime to specify when you want a CDC operation to start. Specifying both values results in an error. The value can be in date, checkpoint, or LSN/SCN format. Date Example: --cdc-start-position “2018-03-08T12:12:12” Checkpoint Example: --cdc-start-position "checkpoint:V1#27#mysql-bin-changelog.157832:1975:-1:2002:677883278264080:mysql-bin-changelog.157832:1876#0#0#*#0#93" LSN Example: --cdc-start-position “mysql-bin-changelog.000024:373”+-- -- * 'rReplicationTaskStartDate' - The date the replication task is scheduled to start. -- -- * 'rSourceEndpointARN' - The Amazon Resource Name (ARN) string that uniquely identifies the endpoint. --+-- * 'rRecoveryCheckpoint' - Indicates the last checkpoint that occurred during a change data capture (CDC) operation. You can provide this value to the @CdcStartPosition@ parameter to start a CDC operation that begins at that checkpoint.+-- -- * 'rTableMappings' - Table mappings specified in the task. -- -- * 'rReplicationTaskCreationDate' - The date the replication task was created.@@ -1520,6 +1629,8 @@ -- -- * 'rReplicationTaskARN' - The Amazon Resource Name (ARN) of the replication task. --+-- * 'rCdcStopPosition' - Indicates when you want a change data capture (CDC) operation to stop. The value can be either server time or commit time. Server time example: --cdc-stop-position “server_time:3018-02-09T12:12:12” Commit time example: --cdc-stop-position “commit_time: 3018-02-09T12:12:12 “+-- -- * 'rReplicationTaskStats' - The statistics for the task, including elapsed time, tables loaded, and table errors. -- -- * 'rReplicationInstanceARN' - The Amazon Resource Name (ARN) of the replication instance.@@ -1529,78 +1640,93 @@     :: 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-  }+    { _rReplicationTaskSettings = Nothing+    , _rStatus = Nothing+    , _rStopReason = Nothing+    , _rTargetEndpointARN = Nothing+    , _rReplicationTaskIdentifier = Nothing+    , _rCdcStartPosition = Nothing+    , _rReplicationTaskStartDate = Nothing+    , _rSourceEndpointARN = Nothing+    , _rRecoveryCheckpoint = Nothing+    , _rTableMappings = Nothing+    , _rReplicationTaskCreationDate = Nothing+    , _rMigrationType = Nothing+    , _rReplicationTaskARN = Nothing+    , _rCdcStopPosition = 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});+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});+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});+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});+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});+rReplicationTaskIdentifier = lens _rReplicationTaskIdentifier (\ s a -> s{_rReplicationTaskIdentifier = a}) +-- | Indicates when you want a change data capture (CDC) operation to start. Use either CdcStartPosition or CdcStartTime to specify when you want a CDC operation to start. Specifying both values results in an error. The value can be in date, checkpoint, or LSN/SCN format. Date Example: --cdc-start-position “2018-03-08T12:12:12” Checkpoint Example: --cdc-start-position "checkpoint:V1#27#mysql-bin-changelog.157832:1975:-1:2002:677883278264080:mysql-bin-changelog.157832:1876#0#0#*#0#93" LSN Example: --cdc-start-position “mysql-bin-changelog.000024:373”+rCdcStartPosition :: Lens' ReplicationTask (Maybe Text)+rCdcStartPosition = lens _rCdcStartPosition (\ s a -> s{_rCdcStartPosition = 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;+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});+rSourceEndpointARN = lens _rSourceEndpointARN (\ s a -> s{_rSourceEndpointARN = a}) +-- | Indicates the last checkpoint that occurred during a change data capture (CDC) operation. You can provide this value to the @CdcStartPosition@ parameter to start a CDC operation that begins at that checkpoint.+rRecoveryCheckpoint :: Lens' ReplicationTask (Maybe Text)+rRecoveryCheckpoint = lens _rRecoveryCheckpoint (\ s a -> s{_rRecoveryCheckpoint = a})+ -- | Table mappings specified in the task. rTableMappings :: Lens' ReplicationTask (Maybe Text)-rTableMappings = lens _rTableMappings (\ s a -> s{_rTableMappings = a});+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;+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});+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});+rReplicationTaskARN = lens _rReplicationTaskARN (\ s a -> s{_rReplicationTaskARN = a}) +-- | Indicates when you want a change data capture (CDC) operation to stop. The value can be either server time or commit time. Server time example: --cdc-stop-position “server_time:3018-02-09T12:12:12” Commit time example: --cdc-stop-position “commit_time: 3018-02-09T12:12:12 “+rCdcStopPosition :: Lens' ReplicationTask (Maybe Text)+rCdcStopPosition = lens _rCdcStopPosition (\ s a -> s{_rCdcStopPosition = 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});+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});+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});+rLastFailureMessage = lens _rLastFailureMessage (\ s a -> s{_rLastFailureMessage = a})  instance FromJSON ReplicationTask where         parseJSON@@ -1612,12 +1738,15 @@                      <*> (x .:? "StopReason")                      <*> (x .:? "TargetEndpointArn")                      <*> (x .:? "ReplicationTaskIdentifier")+                     <*> (x .:? "CdcStartPosition")                      <*> (x .:? "ReplicationTaskStartDate")                      <*> (x .:? "SourceEndpointArn")+                     <*> (x .:? "RecoveryCheckpoint")                      <*> (x .:? "TableMappings")                      <*> (x .:? "ReplicationTaskCreationDate")                      <*> (x .:? "MigrationType")                      <*> (x .:? "ReplicationTaskArn")+                     <*> (x .:? "CdcStopPosition")                      <*> (x .:? "ReplicationTaskStats")                      <*> (x .:? "ReplicationInstanceArn")                      <*> (x .:? "LastFailureMessage"))@@ -1626,6 +1755,100 @@  instance NFData ReplicationTask where +-- | The task assessment report in JSON format.+--+--+--+-- /See:/ 'replicationTaskAssessmentResult' smart constructor.+data ReplicationTaskAssessmentResult = ReplicationTaskAssessmentResult'+  { _rtarAssessmentResults                 :: !(Maybe Text)+  , _rtarAssessmentResultsFile             :: !(Maybe Text)+  , _rtarReplicationTaskIdentifier         :: !(Maybe Text)+  , _rtarAssessmentStatus                  :: !(Maybe Text)+  , _rtarS3ObjectURL                       :: !(Maybe Text)+  , _rtarReplicationTaskLastAssessmentDate :: !(Maybe POSIX)+  , _rtarReplicationTaskARN                :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ReplicationTaskAssessmentResult' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtarAssessmentResults' - The task assessment results in JSON format.+--+-- * 'rtarAssessmentResultsFile' - The file containing the results of the task assessment.+--+-- * 'rtarReplicationTaskIdentifier' - The replication task identifier of the task on which the task assessment was run.+--+-- * 'rtarAssessmentStatus' - The status of the task assessment.+--+-- * 'rtarS3ObjectURL' - The URL of the S3 object containing the task assessment results.+--+-- * 'rtarReplicationTaskLastAssessmentDate' - The date the task assessment was completed.+--+-- * 'rtarReplicationTaskARN' - The Amazon Resource Name (ARN) of the replication task.+replicationTaskAssessmentResult+    :: ReplicationTaskAssessmentResult+replicationTaskAssessmentResult =+  ReplicationTaskAssessmentResult'+    { _rtarAssessmentResults = Nothing+    , _rtarAssessmentResultsFile = Nothing+    , _rtarReplicationTaskIdentifier = Nothing+    , _rtarAssessmentStatus = Nothing+    , _rtarS3ObjectURL = Nothing+    , _rtarReplicationTaskLastAssessmentDate = Nothing+    , _rtarReplicationTaskARN = Nothing+    }+++-- | The task assessment results in JSON format.+rtarAssessmentResults :: Lens' ReplicationTaskAssessmentResult (Maybe Text)+rtarAssessmentResults = lens _rtarAssessmentResults (\ s a -> s{_rtarAssessmentResults = a})++-- | The file containing the results of the task assessment.+rtarAssessmentResultsFile :: Lens' ReplicationTaskAssessmentResult (Maybe Text)+rtarAssessmentResultsFile = lens _rtarAssessmentResultsFile (\ s a -> s{_rtarAssessmentResultsFile = a})++-- | The replication task identifier of the task on which the task assessment was run.+rtarReplicationTaskIdentifier :: Lens' ReplicationTaskAssessmentResult (Maybe Text)+rtarReplicationTaskIdentifier = lens _rtarReplicationTaskIdentifier (\ s a -> s{_rtarReplicationTaskIdentifier = a})++-- | The status of the task assessment.+rtarAssessmentStatus :: Lens' ReplicationTaskAssessmentResult (Maybe Text)+rtarAssessmentStatus = lens _rtarAssessmentStatus (\ s a -> s{_rtarAssessmentStatus = a})++-- | The URL of the S3 object containing the task assessment results.+rtarS3ObjectURL :: Lens' ReplicationTaskAssessmentResult (Maybe Text)+rtarS3ObjectURL = lens _rtarS3ObjectURL (\ s a -> s{_rtarS3ObjectURL = a})++-- | The date the task assessment was completed.+rtarReplicationTaskLastAssessmentDate :: Lens' ReplicationTaskAssessmentResult (Maybe UTCTime)+rtarReplicationTaskLastAssessmentDate = lens _rtarReplicationTaskLastAssessmentDate (\ s a -> s{_rtarReplicationTaskLastAssessmentDate = a}) . mapping _Time++-- | The Amazon Resource Name (ARN) of the replication task.+rtarReplicationTaskARN :: Lens' ReplicationTaskAssessmentResult (Maybe Text)+rtarReplicationTaskARN = lens _rtarReplicationTaskARN (\ s a -> s{_rtarReplicationTaskARN = a})++instance FromJSON ReplicationTaskAssessmentResult+         where+        parseJSON+          = withObject "ReplicationTaskAssessmentResult"+              (\ x ->+                 ReplicationTaskAssessmentResult' <$>+                   (x .:? "AssessmentResults") <*>+                     (x .:? "AssessmentResultsFile")+                     <*> (x .:? "ReplicationTaskIdentifier")+                     <*> (x .:? "AssessmentStatus")+                     <*> (x .:? "S3ObjectUrl")+                     <*> (x .:? "ReplicationTaskLastAssessmentDate")+                     <*> (x .:? "ReplicationTaskArn"))++instance Hashable ReplicationTaskAssessmentResult+         where++instance NFData ReplicationTaskAssessmentResult where+ -- | -- --@@ -1660,38 +1883,38 @@     :: ReplicationTaskStats replicationTaskStats =   ReplicationTaskStats'-  { _rtsFullLoadProgressPercent = Nothing-  , _rtsElapsedTimeMillis = Nothing-  , _rtsTablesErrored = Nothing-  , _rtsTablesLoaded = Nothing-  , _rtsTablesQueued = Nothing-  , _rtsTablesLoading = Nothing-  }+    { _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});+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});+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});+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});+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});+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});+rtsTablesLoading = lens _rtsTablesLoading (\ s a -> s{_rtsTablesLoading = a})  instance FromJSON ReplicationTaskStats where         parseJSON@@ -1735,7 +1958,7 @@ -- -- * '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' -+-- * 'ssExternalTableDefinition' - The external table definition. -- -- * 'ssBucketName' - The name of the S3 bucket. --@@ -1746,43 +1969,43 @@     :: S3Settings s3Settings =   S3Settings'-  { _ssCSVDelimiter = Nothing-  , _ssServiceAccessRoleARN = Nothing-  , _ssBucketFolder = Nothing-  , _ssExternalTableDefinition = Nothing-  , _ssBucketName = Nothing-  , _ssCSVRowDelimiter = Nothing-  , _ssCompressionType = Nothing-  }+    { _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});+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});+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});+ssBucketFolder = lens _ssBucketFolder (\ s a -> s{_ssBucketFolder = a}) --- |+-- | The external table definition. ssExternalTableDefinition :: Lens' S3Settings (Maybe Text)-ssExternalTableDefinition = lens _ssExternalTableDefinition (\ s a -> s{_ssExternalTableDefinition = a});+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});+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});+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});+ssCompressionType = lens _ssCompressionType (\ s a -> s{_ssCompressionType = a})  instance FromJSON S3Settings where         parseJSON@@ -1840,23 +2063,23 @@     :: Subnet subnet =   Subnet'-  { _sSubnetStatus = Nothing-  , _sSubnetIdentifier = Nothing-  , _sSubnetAvailabilityZone = Nothing-  }+    { _sSubnetStatus = Nothing+    , _sSubnetIdentifier = Nothing+    , _sSubnetAvailabilityZone = Nothing+    }   -- | The status of the subnet. sSubnetStatus :: Lens' Subnet (Maybe Text)-sSubnetStatus = lens _sSubnetStatus (\ s a -> s{_sSubnetStatus = a});+sSubnetStatus = lens _sSubnetStatus (\ s a -> s{_sSubnetStatus = a})  -- | The subnet identifier. sSubnetIdentifier :: Lens' Subnet (Maybe Text)-sSubnetIdentifier = lens _sSubnetIdentifier (\ s a -> s{_sSubnetIdentifier = a});+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});+sSubnetAvailabilityZone = lens _sSubnetAvailabilityZone (\ s a -> s{_sSubnetAvailabilityZone = a})  instance FromJSON Subnet where         parseJSON@@ -1876,9 +2099,10 @@ -- -- /See:/ 'supportedEndpointType' smart constructor. data SupportedEndpointType = SupportedEndpointType'-  { _setEndpointType :: !(Maybe ReplicationEndpointTypeValue)-  , _setEngineName   :: !(Maybe Text)-  , _setSupportsCDC  :: !(Maybe Bool)+  { _setEngineDisplayName :: !(Maybe Text)+  , _setEndpointType      :: !(Maybe ReplicationEndpointTypeValue)+  , _setEngineName        :: !(Maybe Text)+  , _setSupportsCDC       :: !(Maybe Bool)   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -1886,40 +2110,49 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'setEngineDisplayName' - The expanded name for the engine name. For example, if the @EngineName@ parameter is "aurora," this value would be "Amazon Aurora MySQL."+-- -- * '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.+-- * 'setEngineName' - The database engine name. Valid values, depending on the EndPointType, include mysql, oracle, postgres, mariadb, aurora, aurora-postgresql, redshift, s3, db2, azuredb, sybase, sybase, dynamodb, mongodb, and sqlserver. -- -- * 'setSupportsCDC' - Indicates if Change Data Capture (CDC) is supported. supportedEndpointType     :: SupportedEndpointType supportedEndpointType =   SupportedEndpointType'-  { _setEndpointType = Nothing-  , _setEngineName = Nothing-  , _setSupportsCDC = Nothing-  }+    { _setEngineDisplayName = Nothing+    , _setEndpointType = Nothing+    , _setEngineName = Nothing+    , _setSupportsCDC = Nothing+    }  +-- | The expanded name for the engine name. For example, if the @EngineName@ parameter is "aurora," this value would be "Amazon Aurora MySQL."+setEngineDisplayName :: Lens' SupportedEndpointType (Maybe Text)+setEngineDisplayName = lens _setEngineDisplayName (\ s a -> s{_setEngineDisplayName = a})+ -- | The type of endpoint. setEndpointType :: Lens' SupportedEndpointType (Maybe ReplicationEndpointTypeValue)-setEndpointType = lens _setEndpointType (\ s a -> s{_setEndpointType = a});+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.+-- | The database engine name. Valid values, depending on the EndPointType, include mysql, oracle, postgres, mariadb, aurora, aurora-postgresql, redshift, s3, db2, azuredb, sybase, sybase, dynamodb, mongodb, and sqlserver. setEngineName :: Lens' SupportedEndpointType (Maybe Text)-setEngineName = lens _setEngineName (\ s a -> s{_setEngineName = a});+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});+setSupportsCDC = lens _setSupportsCDC (\ s a -> s{_setSupportsCDC = a})  instance FromJSON SupportedEndpointType where         parseJSON           = withObject "SupportedEndpointType"               (\ x ->                  SupportedEndpointType' <$>-                   (x .:? "EndpointType") <*> (x .:? "EngineName") <*>-                     (x .:? "SupportsCDC"))+                   (x .:? "EngineDisplayName") <*>+                     (x .:? "EndpointType")+                     <*> (x .:? "EngineName")+                     <*> (x .:? "SupportsCDC"))  instance Hashable SupportedEndpointType where @@ -1931,15 +2164,19 @@ -- -- /See:/ 'tableStatistics' smart constructor. data TableStatistics = TableStatistics'-  { _tsFullLoadRows                 :: !(Maybe Integer)+  { _tsValidationState              :: !(Maybe Text)+  , _tsFullLoadRows                 :: !(Maybe Integer)   , _tsInserts                      :: !(Maybe Integer)   , _tsFullLoadCondtnlChkFailedRows :: !(Maybe Integer)+  , _tsValidationFailedRecords      :: !(Maybe Integer)+  , _tsValidationSuspendedRecords   :: !(Maybe Integer)   , _tsSchemaName                   :: !(Maybe Text)   , _tsTableState                   :: !(Maybe Text)   , _tsFullLoadErrorRows            :: !(Maybe Integer)   , _tsDdls                         :: !(Maybe Integer)   , _tsDeletes                      :: !(Maybe Integer)   , _tsUpdates                      :: !(Maybe Integer)+  , _tsValidationPendingRecords     :: !(Maybe Integer)   , _tsLastUpdateTime               :: !(Maybe POSIX)   , _tsTableName                    :: !(Maybe Text)   } deriving (Eq, Read, Show, Data, Typeable, Generic)@@ -1949,12 +2186,18 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'tsValidationState' - The validation state of the table. The parameter can have the following values     * Not enabled—Validation is not enabled for the table in the migration task.     * Pending records—Some records in the table are waiting for validation.     * Mismatched records—Some records in the table do not match between the source and target.     * Suspended records—Some records in the table could not be validated.     * No primary key—The table could not be validated because it had no primary key.     * Table error—The table was not validated because it was in an error state and some data was not migrated.     * Validated—All rows in the table were validated. If the table is updated, the status can change from Validated.     * Error—The table could not be validated because of an unexpected error.+-- -- * '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). --+-- * 'tsValidationFailedRecords' - The number of records that failed validation.+--+-- * 'tsValidationSuspendedRecords' - The number of records that could not be validated.+-- -- * '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@@ -1967,6 +2210,8 @@ -- -- * 'tsUpdates' - The number of update actions performed on a table. --+-- * 'tsValidationPendingRecords' - The number of records that have yet to be validated.+-- -- * 'tsLastUpdateTime' - The last time the table was updated. -- -- * 'tsTableName' - The name of the table.@@ -1974,77 +2219,101 @@     :: 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-  }+    { _tsValidationState = Nothing+    , _tsFullLoadRows = Nothing+    , _tsInserts = Nothing+    , _tsFullLoadCondtnlChkFailedRows = Nothing+    , _tsValidationFailedRecords = Nothing+    , _tsValidationSuspendedRecords = Nothing+    , _tsSchemaName = Nothing+    , _tsTableState = Nothing+    , _tsFullLoadErrorRows = Nothing+    , _tsDdls = Nothing+    , _tsDeletes = Nothing+    , _tsUpdates = Nothing+    , _tsValidationPendingRecords = Nothing+    , _tsLastUpdateTime = Nothing+    , _tsTableName = Nothing+    }  +-- | The validation state of the table. The parameter can have the following values     * Not enabled—Validation is not enabled for the table in the migration task.     * Pending records—Some records in the table are waiting for validation.     * Mismatched records—Some records in the table do not match between the source and target.     * Suspended records—Some records in the table could not be validated.     * No primary key—The table could not be validated because it had no primary key.     * Table error—The table was not validated because it was in an error state and some data was not migrated.     * Validated—All rows in the table were validated. If the table is updated, the status can change from Validated.     * Error—The table could not be validated because of an unexpected error.+tsValidationState :: Lens' TableStatistics (Maybe Text)+tsValidationState = lens _tsValidationState (\ s a -> s{_tsValidationState = a})+ -- | The number of rows added during the Full Load operation. tsFullLoadRows :: Lens' TableStatistics (Maybe Integer)-tsFullLoadRows = lens _tsFullLoadRows (\ s a -> s{_tsFullLoadRows = a});+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});+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});+tsFullLoadCondtnlChkFailedRows = lens _tsFullLoadCondtnlChkFailedRows (\ s a -> s{_tsFullLoadCondtnlChkFailedRows = a}) +-- | The number of records that failed validation.+tsValidationFailedRecords :: Lens' TableStatistics (Maybe Integer)+tsValidationFailedRecords = lens _tsValidationFailedRecords (\ s a -> s{_tsValidationFailedRecords = a})++-- | The number of records that could not be validated.+tsValidationSuspendedRecords :: Lens' TableStatistics (Maybe Integer)+tsValidationSuspendedRecords = lens _tsValidationSuspendedRecords (\ s a -> s{_tsValidationSuspendedRecords = a})+ -- | The schema name. tsSchemaName :: Lens' TableStatistics (Maybe Text)-tsSchemaName = lens _tsSchemaName (\ s a -> s{_tsSchemaName = a});+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});+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});+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});+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});+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});+tsUpdates = lens _tsUpdates (\ s a -> s{_tsUpdates = a}) +-- | The number of records that have yet to be validated.+tsValidationPendingRecords :: Lens' TableStatistics (Maybe Integer)+tsValidationPendingRecords = lens _tsValidationPendingRecords (\ s a -> s{_tsValidationPendingRecords = a})+ -- | The last time the table was updated. tsLastUpdateTime :: Lens' TableStatistics (Maybe UTCTime)-tsLastUpdateTime = lens _tsLastUpdateTime (\ s a -> s{_tsLastUpdateTime = a}) . mapping _Time;+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});+tsTableName = lens _tsTableName (\ s a -> s{_tsTableName = a})  instance FromJSON TableStatistics where         parseJSON           = withObject "TableStatistics"               (\ x ->                  TableStatistics' <$>-                   (x .:? "FullLoadRows") <*> (x .:? "Inserts") <*>-                     (x .:? "FullLoadCondtnlChkFailedRows")+                   (x .:? "ValidationState") <*> (x .:? "FullLoadRows")+                     <*> (x .:? "Inserts")+                     <*> (x .:? "FullLoadCondtnlChkFailedRows")+                     <*> (x .:? "ValidationFailedRecords")+                     <*> (x .:? "ValidationSuspendedRecords")                      <*> (x .:? "SchemaName")                      <*> (x .:? "TableState")                      <*> (x .:? "FullLoadErrorRows")                      <*> (x .:? "Ddls")                      <*> (x .:? "Deletes")                      <*> (x .:? "Updates")+                     <*> (x .:? "ValidationPendingRecords")                      <*> (x .:? "LastUpdateTime")                      <*> (x .:? "TableName")) @@ -2078,11 +2347,11 @@  -- | The schema name of the table to be reloaded. ttrSchemaName :: Lens' TableToReload (Maybe Text)-ttrSchemaName = lens _ttrSchemaName (\ s a -> s{_ttrSchemaName = a});+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});+ttrTableName = lens _ttrTableName (\ s a -> s{_ttrTableName = a})  instance Hashable TableToReload where @@ -2120,11 +2389,11 @@  -- | 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});+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});+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})  instance FromJSON Tag where         parseJSON@@ -2163,16 +2432,16 @@     :: VPCSecurityGroupMembership vpcSecurityGroupMembership =   VPCSecurityGroupMembership'-  {_vsgmStatus = Nothing, _vsgmVPCSecurityGroupId = Nothing}+    {_vsgmStatus = Nothing, _vsgmVPCSecurityGroupId = Nothing}   -- | The status of the VPC security group. vsgmStatus :: Lens' VPCSecurityGroupMembership (Maybe Text)-vsgmStatus = lens _vsgmStatus (\ s a -> s{_vsgmStatus = a});+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});+vsgmVPCSecurityGroupId = lens _vsgmVPCSecurityGroupId (\ s a -> s{_vsgmVPCSecurityGroupId = a})  instance FromJSON VPCSecurityGroupMembership where         parseJSON

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.DMS.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.DMS.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -3,7 +3,7 @@  -- | -- Module      : Test.AWS.DMS--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : experimental

@@ -3,7 +3,7 @@  -- | -- Module      : Test.AWS.DMS.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : experimental

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.DMS--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -31,9 +31,15 @@ --         [ requestDeleteReplicationInstance $ --             deleteReplicationInstance --+--         , requestRebootReplicationInstance $+--             rebootReplicationInstance+-- --         , requestReloadTables $ --             reloadTables --+--         , requestStartReplicationTaskAssessment $+--             startReplicationTaskAssessment+-- --         , requestCreateEndpoint $ --             createEndpoint --@@ -43,6 +49,9 @@ --         , requestModifyEventSubscription $ --             modifyEventSubscription --+--         , requestDescribeReplicationInstanceTaskLogs $+--             describeReplicationInstanceTaskLogs+-- --         , requestDescribeEvents $ --             describeEvents --@@ -58,6 +67,9 @@ --         , requestDeleteReplicationTask $ --             deleteReplicationTask --+--         , requestDescribeReplicationTaskAssessmentResults $+--             describeReplicationTaskAssessmentResults+-- --         , requestTestConnection $ --             testConnection --@@ -154,9 +166,15 @@ --         [ responseDeleteReplicationInstance $ --             deleteReplicationInstanceResponse --+--         , responseRebootReplicationInstance $+--             rebootReplicationInstanceResponse+-- --         , responseReloadTables $ --             reloadTablesResponse --+--         , responseStartReplicationTaskAssessment $+--             startReplicationTaskAssessmentResponse+-- --         , responseCreateEndpoint $ --             createEndpointResponse --@@ -166,6 +184,9 @@ --         , responseModifyEventSubscription $ --             modifyEventSubscriptionResponse --+--         , responseDescribeReplicationInstanceTaskLogs $+--             describeReplicationInstanceTaskLogsResponse+-- --         , responseDescribeEvents $ --             describeEventsResponse --@@ -181,6 +202,9 @@ --         , responseDeleteReplicationTask $ --             deleteReplicationTaskResponse --+--         , responseDescribeReplicationTaskAssessmentResults $+--             describeReplicationTaskAssessmentResultsResponse+-- --         , responseTestConnection $ --             testConnectionResponse --@@ -281,11 +305,21 @@     "DeleteReplicationInstance"     "fixture/DeleteReplicationInstance.yaml" +requestRebootReplicationInstance :: RebootReplicationInstance -> TestTree+requestRebootReplicationInstance = req+    "RebootReplicationInstance"+    "fixture/RebootReplicationInstance.yaml"+ requestReloadTables :: ReloadTables -> TestTree requestReloadTables = req     "ReloadTables"     "fixture/ReloadTables.yaml" +requestStartReplicationTaskAssessment :: StartReplicationTaskAssessment -> TestTree+requestStartReplicationTaskAssessment = req+    "StartReplicationTaskAssessment"+    "fixture/StartReplicationTaskAssessment.yaml"+ requestCreateEndpoint :: CreateEndpoint -> TestTree requestCreateEndpoint = req     "CreateEndpoint"@@ -301,6 +335,11 @@     "ModifyEventSubscription"     "fixture/ModifyEventSubscription.yaml" +requestDescribeReplicationInstanceTaskLogs :: DescribeReplicationInstanceTaskLogs -> TestTree+requestDescribeReplicationInstanceTaskLogs = req+    "DescribeReplicationInstanceTaskLogs"+    "fixture/DescribeReplicationInstanceTaskLogs.yaml"+ requestDescribeEvents :: DescribeEvents -> TestTree requestDescribeEvents = req     "DescribeEvents"@@ -326,6 +365,11 @@     "DeleteReplicationTask"     "fixture/DeleteReplicationTask.yaml" +requestDescribeReplicationTaskAssessmentResults :: DescribeReplicationTaskAssessmentResults -> TestTree+requestDescribeReplicationTaskAssessmentResults = req+    "DescribeReplicationTaskAssessmentResults"+    "fixture/DescribeReplicationTaskAssessmentResults.yaml"+ requestTestConnection :: TestConnection -> TestTree requestTestConnection = req     "TestConnection"@@ -485,6 +529,13 @@     dms     (Proxy :: Proxy DeleteReplicationInstance) +responseRebootReplicationInstance :: RebootReplicationInstanceResponse -> TestTree+responseRebootReplicationInstance = res+    "RebootReplicationInstanceResponse"+    "fixture/RebootReplicationInstanceResponse.proto"+    dms+    (Proxy :: Proxy RebootReplicationInstance)+ responseReloadTables :: ReloadTablesResponse -> TestTree responseReloadTables = res     "ReloadTablesResponse"@@ -492,6 +543,13 @@     dms     (Proxy :: Proxy ReloadTables) +responseStartReplicationTaskAssessment :: StartReplicationTaskAssessmentResponse -> TestTree+responseStartReplicationTaskAssessment = res+    "StartReplicationTaskAssessmentResponse"+    "fixture/StartReplicationTaskAssessmentResponse.proto"+    dms+    (Proxy :: Proxy StartReplicationTaskAssessment)+ responseCreateEndpoint :: CreateEndpointResponse -> TestTree responseCreateEndpoint = res     "CreateEndpointResponse"@@ -513,6 +571,13 @@     dms     (Proxy :: Proxy ModifyEventSubscription) +responseDescribeReplicationInstanceTaskLogs :: DescribeReplicationInstanceTaskLogsResponse -> TestTree+responseDescribeReplicationInstanceTaskLogs = res+    "DescribeReplicationInstanceTaskLogsResponse"+    "fixture/DescribeReplicationInstanceTaskLogsResponse.proto"+    dms+    (Proxy :: Proxy DescribeReplicationInstanceTaskLogs)+ responseDescribeEvents :: DescribeEventsResponse -> TestTree responseDescribeEvents = res     "DescribeEventsResponse"@@ -547,6 +612,13 @@     "fixture/DeleteReplicationTaskResponse.proto"     dms     (Proxy :: Proxy DeleteReplicationTask)++responseDescribeReplicationTaskAssessmentResults :: DescribeReplicationTaskAssessmentResultsResponse -> TestTree+responseDescribeReplicationTaskAssessmentResults = res+    "DescribeReplicationTaskAssessmentResultsResponse"+    "fixture/DescribeReplicationTaskAssessmentResultsResponse.proto"+    dms+    (Proxy :: Proxy DescribeReplicationTaskAssessmentResults)  responseTestConnection :: TestConnectionResponse -> TestTree responseTestConnection = res