diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.4.0` +`1.4.1` ## Description diff --git a/amazonka-dms.cabal b/amazonka-dms.cabal --- a/amazonka-dms.cabal +++ b/amazonka-dms.cabal @@ -1,5 +1,5 @@ name: amazonka-dms -version: 1.4.0 +version: 1.4.1 synopsis: Amazon Database Migration Service SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -85,7 +85,7 @@ , Network.AWS.DMS.Types.Sum build-depends: - amazonka-core == 1.4.0.* + amazonka-core == 1.4.1.* , base >= 4.7 && < 5 test-suite amazonka-dms-test @@ -105,9 +105,9 @@ , Test.AWS.DMS.Internal build-depends: - amazonka-core == 1.4.0.* - , amazonka-test == 1.4.0.* - , amazonka-dms == 1.4.0.* + amazonka-core == 1.4.1.* + , amazonka-test == 1.4.1.* + , amazonka-dms == 1.4.1.* , base , bytestring , tasty diff --git a/gen/Network/AWS/DMS/AddTagsToResource.hs b/gen/Network/AWS/DMS/AddTagsToResource.hs --- a/gen/Network/AWS/DMS/AddTagsToResource.hs +++ b/gen/Network/AWS/DMS/AddTagsToResource.hs @@ -18,7 +18,10 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- For internal use only +-- 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. -- module Network.AWS.DMS.AddTagsToResource ( @@ -85,6 +88,8 @@ instance Hashable AddTagsToResource +instance NFData AddTagsToResource + instance ToHeaders AddTagsToResource where toHeaders = const @@ -129,3 +134,5 @@ -- | The response status code. attrrsResponseStatus :: Lens' AddTagsToResourceResponse Int attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a}); + +instance NFData AddTagsToResourceResponse diff --git a/gen/Network/AWS/DMS/CreateEndpoint.hs b/gen/Network/AWS/DMS/CreateEndpoint.hs --- a/gen/Network/AWS/DMS/CreateEndpoint.hs +++ b/gen/Network/AWS/DMS/CreateEndpoint.hs @@ -179,6 +179,8 @@ instance Hashable CreateEndpoint +instance NFData CreateEndpoint + instance ToHeaders CreateEndpoint where toHeaders = const @@ -240,3 +242,5 @@ -- | The response status code. cersResponseStatus :: Lens' CreateEndpointResponse Int cersResponseStatus = lens _cersResponseStatus (\ s a -> s{_cersResponseStatus = a}); + +instance NFData CreateEndpointResponse diff --git a/gen/Network/AWS/DMS/CreateReplicationInstance.hs b/gen/Network/AWS/DMS/CreateReplicationInstance.hs --- a/gen/Network/AWS/DMS/CreateReplicationInstance.hs +++ b/gen/Network/AWS/DMS/CreateReplicationInstance.hs @@ -211,6 +211,8 @@ instance Hashable CreateReplicationInstance +instance NFData CreateReplicationInstance + instance ToHeaders CreateReplicationInstance where toHeaders = const @@ -279,3 +281,5 @@ -- | The response status code. crirsResponseStatus :: Lens' CreateReplicationInstanceResponse Int crirsResponseStatus = lens _crirsResponseStatus (\ s a -> s{_crirsResponseStatus = a}); + +instance NFData CreateReplicationInstanceResponse diff --git a/gen/Network/AWS/DMS/CreateReplicationSubnetGroup.hs b/gen/Network/AWS/DMS/CreateReplicationSubnetGroup.hs --- a/gen/Network/AWS/DMS/CreateReplicationSubnetGroup.hs +++ b/gen/Network/AWS/DMS/CreateReplicationSubnetGroup.hs @@ -114,6 +114,8 @@ instance Hashable CreateReplicationSubnetGroup +instance NFData CreateReplicationSubnetGroup + instance ToHeaders CreateReplicationSubnetGroup where toHeaders = const @@ -172,3 +174,5 @@ -- | The response status code. crsgrsResponseStatus :: Lens' CreateReplicationSubnetGroupResponse Int crsgrsResponseStatus = lens _crsgrsResponseStatus (\ s a -> s{_crsgrsResponseStatus = a}); + +instance NFData CreateReplicationSubnetGroupResponse diff --git a/gen/Network/AWS/DMS/CreateReplicationTask.hs b/gen/Network/AWS/DMS/CreateReplicationTask.hs --- a/gen/Network/AWS/DMS/CreateReplicationTask.hs +++ b/gen/Network/AWS/DMS/CreateReplicationTask.hs @@ -162,6 +162,8 @@ instance Hashable CreateReplicationTask +instance NFData CreateReplicationTask + instance ToHeaders CreateReplicationTask where toHeaders = const @@ -226,3 +228,5 @@ -- | The response status code. crtrsResponseStatus :: Lens' CreateReplicationTaskResponse Int crtrsResponseStatus = lens _crtrsResponseStatus (\ s a -> s{_crtrsResponseStatus = a}); + +instance NFData CreateReplicationTaskResponse diff --git a/gen/Network/AWS/DMS/DeleteEndpoint.hs b/gen/Network/AWS/DMS/DeleteEndpoint.hs --- a/gen/Network/AWS/DMS/DeleteEndpoint.hs +++ b/gen/Network/AWS/DMS/DeleteEndpoint.hs @@ -80,6 +80,8 @@ instance Hashable DeleteEndpoint +instance NFData DeleteEndpoint + instance ToHeaders DeleteEndpoint where toHeaders = const @@ -129,3 +131,5 @@ -- | The response status code. drsResponseStatus :: Lens' DeleteEndpointResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); + +instance NFData DeleteEndpointResponse diff --git a/gen/Network/AWS/DMS/DeleteReplicationInstance.hs b/gen/Network/AWS/DMS/DeleteReplicationInstance.hs --- a/gen/Network/AWS/DMS/DeleteReplicationInstance.hs +++ b/gen/Network/AWS/DMS/DeleteReplicationInstance.hs @@ -82,6 +82,8 @@ instance Hashable DeleteReplicationInstance +instance NFData DeleteReplicationInstance + instance ToHeaders DeleteReplicationInstance where toHeaders = const @@ -135,3 +137,5 @@ -- | The response status code. drirsResponseStatus :: Lens' DeleteReplicationInstanceResponse Int drirsResponseStatus = lens _drirsResponseStatus (\ s a -> s{_drirsResponseStatus = a}); + +instance NFData DeleteReplicationInstanceResponse diff --git a/gen/Network/AWS/DMS/DeleteReplicationSubnetGroup.hs b/gen/Network/AWS/DMS/DeleteReplicationSubnetGroup.hs --- a/gen/Network/AWS/DMS/DeleteReplicationSubnetGroup.hs +++ b/gen/Network/AWS/DMS/DeleteReplicationSubnetGroup.hs @@ -77,6 +77,8 @@ instance Hashable DeleteReplicationSubnetGroup +instance NFData DeleteReplicationSubnetGroup + instance ToHeaders DeleteReplicationSubnetGroup where toHeaders = const @@ -122,3 +124,5 @@ -- | The response status code. drsgrsResponseStatus :: Lens' DeleteReplicationSubnetGroupResponse Int drsgrsResponseStatus = lens _drsgrsResponseStatus (\ s a -> s{_drsgrsResponseStatus = a}); + +instance NFData DeleteReplicationSubnetGroupResponse diff --git a/gen/Network/AWS/DMS/DeleteReplicationTask.hs b/gen/Network/AWS/DMS/DeleteReplicationTask.hs --- a/gen/Network/AWS/DMS/DeleteReplicationTask.hs +++ b/gen/Network/AWS/DMS/DeleteReplicationTask.hs @@ -77,6 +77,8 @@ instance Hashable DeleteReplicationTask +instance NFData DeleteReplicationTask + instance ToHeaders DeleteReplicationTask where toHeaders = const @@ -129,3 +131,5 @@ -- | The response status code. drtrsResponseStatus :: Lens' DeleteReplicationTaskResponse Int drtrsResponseStatus = lens _drtrsResponseStatus (\ s a -> s{_drtrsResponseStatus = a}); + +instance NFData DeleteReplicationTaskResponse diff --git a/gen/Network/AWS/DMS/DescribeAccountAttributes.hs b/gen/Network/AWS/DMS/DescribeAccountAttributes.hs --- a/gen/Network/AWS/DMS/DescribeAccountAttributes.hs +++ b/gen/Network/AWS/DMS/DescribeAccountAttributes.hs @@ -71,6 +71,8 @@ instance Hashable DescribeAccountAttributes +instance NFData DescribeAccountAttributes + instance ToHeaders DescribeAccountAttributes where toHeaders = const @@ -119,3 +121,5 @@ -- | The response status code. daarsResponseStatus :: Lens' DescribeAccountAttributesResponse Int daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a}); + +instance NFData DescribeAccountAttributesResponse diff --git a/gen/Network/AWS/DMS/DescribeConnections.hs b/gen/Network/AWS/DMS/DescribeConnections.hs --- a/gen/Network/AWS/DMS/DescribeConnections.hs +++ b/gen/Network/AWS/DMS/DescribeConnections.hs @@ -109,6 +109,8 @@ instance Hashable DescribeConnections +instance NFData DescribeConnections + instance ToHeaders DescribeConnections where toHeaders = const @@ -172,3 +174,5 @@ -- | The response status code. dcrsResponseStatus :: Lens' DescribeConnectionsResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a}); + +instance NFData DescribeConnectionsResponse diff --git a/gen/Network/AWS/DMS/DescribeEndpointTypes.hs b/gen/Network/AWS/DMS/DescribeEndpointTypes.hs --- a/gen/Network/AWS/DMS/DescribeEndpointTypes.hs +++ b/gen/Network/AWS/DMS/DescribeEndpointTypes.hs @@ -108,6 +108,8 @@ instance Hashable DescribeEndpointTypes +instance NFData DescribeEndpointTypes + instance ToHeaders DescribeEndpointTypes where toHeaders = const @@ -171,3 +173,5 @@ -- | The response status code. detrsResponseStatus :: Lens' DescribeEndpointTypesResponse Int detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a}); + +instance NFData DescribeEndpointTypesResponse diff --git a/gen/Network/AWS/DMS/DescribeEndpoints.hs b/gen/Network/AWS/DMS/DescribeEndpoints.hs --- a/gen/Network/AWS/DMS/DescribeEndpoints.hs +++ b/gen/Network/AWS/DMS/DescribeEndpoints.hs @@ -108,6 +108,8 @@ instance Hashable DescribeEndpoints +instance NFData DescribeEndpoints + instance ToHeaders DescribeEndpoints where toHeaders = const @@ -171,3 +173,5 @@ -- | The response status code. dersResponseStatus :: Lens' DescribeEndpointsResponse Int dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a}); + +instance NFData DescribeEndpointsResponse diff --git a/gen/Network/AWS/DMS/DescribeOrderableReplicationInstances.hs b/gen/Network/AWS/DMS/DescribeOrderableReplicationInstances.hs --- a/gen/Network/AWS/DMS/DescribeOrderableReplicationInstances.hs +++ b/gen/Network/AWS/DMS/DescribeOrderableReplicationInstances.hs @@ -100,6 +100,8 @@ instance Hashable DescribeOrderableReplicationInstances +instance NFData DescribeOrderableReplicationInstances + instance ToHeaders DescribeOrderableReplicationInstances where toHeaders @@ -166,3 +168,6 @@ -- | The response status code. dorirsResponseStatus :: Lens' DescribeOrderableReplicationInstancesResponse Int dorirsResponseStatus = lens _dorirsResponseStatus (\ s a -> s{_dorirsResponseStatus = a}); + +instance NFData + DescribeOrderableReplicationInstancesResponse diff --git a/gen/Network/AWS/DMS/DescribeRefreshSchemasStatus.hs b/gen/Network/AWS/DMS/DescribeRefreshSchemasStatus.hs --- a/gen/Network/AWS/DMS/DescribeRefreshSchemasStatus.hs +++ b/gen/Network/AWS/DMS/DescribeRefreshSchemasStatus.hs @@ -80,6 +80,8 @@ instance Hashable DescribeRefreshSchemasStatus +instance NFData DescribeRefreshSchemasStatus + instance ToHeaders DescribeRefreshSchemasStatus where toHeaders = const @@ -131,3 +133,5 @@ -- | The response status code. drssrsResponseStatus :: Lens' DescribeRefreshSchemasStatusResponse Int drssrsResponseStatus = lens _drssrsResponseStatus (\ s a -> s{_drssrsResponseStatus = a}); + +instance NFData DescribeRefreshSchemasStatusResponse diff --git a/gen/Network/AWS/DMS/DescribeReplicationInstances.hs b/gen/Network/AWS/DMS/DescribeReplicationInstances.hs --- a/gen/Network/AWS/DMS/DescribeReplicationInstances.hs +++ b/gen/Network/AWS/DMS/DescribeReplicationInstances.hs @@ -111,6 +111,8 @@ instance Hashable DescribeReplicationInstances +instance NFData DescribeReplicationInstances + instance ToHeaders DescribeReplicationInstances where toHeaders = const @@ -174,3 +176,5 @@ -- | The response status code. drisrsResponseStatus :: Lens' DescribeReplicationInstancesResponse Int drisrsResponseStatus = lens _drisrsResponseStatus (\ s a -> s{_drisrsResponseStatus = a}); + +instance NFData DescribeReplicationInstancesResponse diff --git a/gen/Network/AWS/DMS/DescribeReplicationSubnetGroups.hs b/gen/Network/AWS/DMS/DescribeReplicationSubnetGroups.hs --- a/gen/Network/AWS/DMS/DescribeReplicationSubnetGroups.hs +++ b/gen/Network/AWS/DMS/DescribeReplicationSubnetGroups.hs @@ -107,6 +107,8 @@ instance Hashable DescribeReplicationSubnetGroups +instance NFData DescribeReplicationSubnetGroups + instance ToHeaders DescribeReplicationSubnetGroups where toHeaders @@ -172,3 +174,6 @@ -- | The response status code. drsgsrsResponseStatus :: Lens' DescribeReplicationSubnetGroupsResponse Int drsgsrsResponseStatus = lens _drsgsrsResponseStatus (\ s a -> s{_drsgsrsResponseStatus = a}); + +instance NFData + DescribeReplicationSubnetGroupsResponse diff --git a/gen/Network/AWS/DMS/DescribeReplicationTasks.hs b/gen/Network/AWS/DMS/DescribeReplicationTasks.hs --- a/gen/Network/AWS/DMS/DescribeReplicationTasks.hs +++ b/gen/Network/AWS/DMS/DescribeReplicationTasks.hs @@ -110,6 +110,8 @@ instance Hashable DescribeReplicationTasks +instance NFData DescribeReplicationTasks + instance ToHeaders DescribeReplicationTasks where toHeaders = const @@ -173,3 +175,5 @@ -- | The response status code. drtsrsResponseStatus :: Lens' DescribeReplicationTasksResponse Int drtsrsResponseStatus = lens _drtsrsResponseStatus (\ s a -> s{_drtsrsResponseStatus = a}); + +instance NFData DescribeReplicationTasksResponse diff --git a/gen/Network/AWS/DMS/DescribeSchemas.hs b/gen/Network/AWS/DMS/DescribeSchemas.hs --- a/gen/Network/AWS/DMS/DescribeSchemas.hs +++ b/gen/Network/AWS/DMS/DescribeSchemas.hs @@ -106,6 +106,8 @@ instance Hashable DescribeSchemas +instance NFData DescribeSchemas + instance ToHeaders DescribeSchemas where toHeaders = const @@ -168,3 +170,5 @@ -- | The response status code. dsrsResponseStatus :: Lens' DescribeSchemasResponse Int dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}); + +instance NFData DescribeSchemasResponse diff --git a/gen/Network/AWS/DMS/DescribeTableStatistics.hs b/gen/Network/AWS/DMS/DescribeTableStatistics.hs --- a/gen/Network/AWS/DMS/DescribeTableStatistics.hs +++ b/gen/Network/AWS/DMS/DescribeTableStatistics.hs @@ -109,6 +109,8 @@ instance Hashable DescribeTableStatistics +instance NFData DescribeTableStatistics + instance ToHeaders DescribeTableStatistics where toHeaders = const @@ -181,3 +183,5 @@ -- | The response status code. dtsrsResponseStatus :: Lens' DescribeTableStatisticsResponse Int dtsrsResponseStatus = lens _dtsrsResponseStatus (\ s a -> s{_dtsrsResponseStatus = a}); + +instance NFData DescribeTableStatisticsResponse diff --git a/gen/Network/AWS/DMS/ListTagsForResource.hs b/gen/Network/AWS/DMS/ListTagsForResource.hs --- a/gen/Network/AWS/DMS/ListTagsForResource.hs +++ b/gen/Network/AWS/DMS/ListTagsForResource.hs @@ -18,7 +18,7 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- For internal use only +-- Lists all tags for an AWS DMS resource. -- module Network.AWS.DMS.ListTagsForResource ( @@ -78,6 +78,8 @@ instance Hashable ListTagsForResource +instance NFData ListTagsForResource + instance ToHeaders ListTagsForResource where toHeaders = const @@ -129,3 +131,5 @@ -- | The response status code. ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a}); + +instance NFData ListTagsForResourceResponse diff --git a/gen/Network/AWS/DMS/ModifyEndpoint.hs b/gen/Network/AWS/DMS/ModifyEndpoint.hs --- a/gen/Network/AWS/DMS/ModifyEndpoint.hs +++ b/gen/Network/AWS/DMS/ModifyEndpoint.hs @@ -161,6 +161,8 @@ instance Hashable ModifyEndpoint +instance NFData ModifyEndpoint + instance ToHeaders ModifyEndpoint where toHeaders = const @@ -221,3 +223,5 @@ -- | The response status code. mersResponseStatus :: Lens' ModifyEndpointResponse Int mersResponseStatus = lens _mersResponseStatus (\ s a -> s{_mersResponseStatus = a}); + +instance NFData ModifyEndpointResponse diff --git a/gen/Network/AWS/DMS/ModifyReplicationInstance.hs b/gen/Network/AWS/DMS/ModifyReplicationInstance.hs --- a/gen/Network/AWS/DMS/ModifyReplicationInstance.hs +++ b/gen/Network/AWS/DMS/ModifyReplicationInstance.hs @@ -185,6 +185,8 @@ instance Hashable ModifyReplicationInstance +instance NFData ModifyReplicationInstance + instance ToHeaders ModifyReplicationInstance where toHeaders = const @@ -251,3 +253,5 @@ -- | The response status code. mrirsResponseStatus :: Lens' ModifyReplicationInstanceResponse Int mrirsResponseStatus = lens _mrirsResponseStatus (\ s a -> s{_mrirsResponseStatus = a}); + +instance NFData ModifyReplicationInstanceResponse diff --git a/gen/Network/AWS/DMS/ModifyReplicationSubnetGroup.hs b/gen/Network/AWS/DMS/ModifyReplicationSubnetGroup.hs --- a/gen/Network/AWS/DMS/ModifyReplicationSubnetGroup.hs +++ b/gen/Network/AWS/DMS/ModifyReplicationSubnetGroup.hs @@ -97,6 +97,8 @@ instance Hashable ModifyReplicationSubnetGroup +instance NFData ModifyReplicationSubnetGroup + instance ToHeaders ModifyReplicationSubnetGroup where toHeaders = const @@ -153,3 +155,5 @@ -- | The response status code. mrsgrsResponseStatus :: Lens' ModifyReplicationSubnetGroupResponse Int mrsgrsResponseStatus = lens _mrsgrsResponseStatus (\ s a -> s{_mrsgrsResponseStatus = a}); + +instance NFData ModifyReplicationSubnetGroupResponse diff --git a/gen/Network/AWS/DMS/RefreshSchemas.hs b/gen/Network/AWS/DMS/RefreshSchemas.hs --- a/gen/Network/AWS/DMS/RefreshSchemas.hs +++ b/gen/Network/AWS/DMS/RefreshSchemas.hs @@ -90,6 +90,8 @@ instance Hashable RefreshSchemas +instance NFData RefreshSchemas + instance ToHeaders RefreshSchemas where toHeaders = const @@ -143,3 +145,5 @@ -- | The response status code. rsrsResponseStatus :: Lens' RefreshSchemasResponse Int rsrsResponseStatus = lens _rsrsResponseStatus (\ s a -> s{_rsrsResponseStatus = a}); + +instance NFData RefreshSchemasResponse diff --git a/gen/Network/AWS/DMS/RemoveTagsFromResource.hs b/gen/Network/AWS/DMS/RemoveTagsFromResource.hs --- a/gen/Network/AWS/DMS/RemoveTagsFromResource.hs +++ b/gen/Network/AWS/DMS/RemoveTagsFromResource.hs @@ -18,7 +18,7 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- For internal use only +-- Removes metadata tags from a DMS resource. -- module Network.AWS.DMS.RemoveTagsFromResource ( @@ -86,6 +86,8 @@ instance Hashable RemoveTagsFromResource +instance NFData RemoveTagsFromResource + instance ToHeaders RemoveTagsFromResource where toHeaders = const @@ -130,3 +132,5 @@ -- | The response status code. rtfrrsResponseStatus :: Lens' RemoveTagsFromResourceResponse Int rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a}); + +instance NFData RemoveTagsFromResourceResponse diff --git a/gen/Network/AWS/DMS/StartReplicationTask.hs b/gen/Network/AWS/DMS/StartReplicationTask.hs --- a/gen/Network/AWS/DMS/StartReplicationTask.hs +++ b/gen/Network/AWS/DMS/StartReplicationTask.hs @@ -96,6 +96,8 @@ instance Hashable StartReplicationTask +instance NFData StartReplicationTask + instance ToHeaders StartReplicationTask where toHeaders = const @@ -152,3 +154,5 @@ -- | The response status code. srtrsResponseStatus :: Lens' StartReplicationTaskResponse Int srtrsResponseStatus = lens _srtrsResponseStatus (\ s a -> s{_srtrsResponseStatus = a}); + +instance NFData StartReplicationTaskResponse diff --git a/gen/Network/AWS/DMS/StopReplicationTask.hs b/gen/Network/AWS/DMS/StopReplicationTask.hs --- a/gen/Network/AWS/DMS/StopReplicationTask.hs +++ b/gen/Network/AWS/DMS/StopReplicationTask.hs @@ -77,6 +77,8 @@ instance Hashable StopReplicationTask +instance NFData StopReplicationTask + instance ToHeaders StopReplicationTask where toHeaders = const @@ -129,3 +131,5 @@ -- | The response status code. srsResponseStatus :: Lens' StopReplicationTaskResponse Int srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}); + +instance NFData StopReplicationTaskResponse diff --git a/gen/Network/AWS/DMS/TestConnection.hs b/gen/Network/AWS/DMS/TestConnection.hs --- a/gen/Network/AWS/DMS/TestConnection.hs +++ b/gen/Network/AWS/DMS/TestConnection.hs @@ -87,6 +87,8 @@ instance Hashable TestConnection +instance NFData TestConnection + instance ToHeaders TestConnection where toHeaders = const @@ -140,3 +142,5 @@ -- | The response status code. tcrsResponseStatus :: Lens' TestConnectionResponse Int tcrsResponseStatus = lens _tcrsResponseStatus (\ s a -> s{_tcrsResponseStatus = a}); + +instance NFData TestConnectionResponse diff --git a/gen/Network/AWS/DMS/Types.hs b/gen/Network/AWS/DMS/Types.hs --- a/gen/Network/AWS/DMS/Types.hs +++ b/gen/Network/AWS/DMS/Types.hs @@ -234,62 +234,66 @@ | has (hasCode "ThrottlingException" . hasStatus 400) e = Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" + | has (hasStatus 504) e = Just "gateway_timeout" + | has (hasStatus 502) e = Just "bad_gateway" | has (hasStatus 503) e = Just "service_unavailable" | has (hasStatus 500) e = Just "general_server_error" | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing --- | Prism for InvalidSubnet' errors. +-- | The subnet provided is invalid. _InvalidSubnet :: AsError a => Getting (First ServiceError) a ServiceError _InvalidSubnet = _ServiceError . hasCode "InvalidSubnet" --- | Prism for KMSKeyNotAccessibleFault' errors. +-- | AWS DMS cannot access the KMS key. _KMSKeyNotAccessibleFault :: AsError a => Getting (First ServiceError) a ServiceError _KMSKeyNotAccessibleFault = _ServiceError . hasCode "KMSKeyNotAccessibleFault" --- | Prism for ReplicationSubnetGroupDoesNotCoverEnoughAZs' errors. +-- | The replication subnet group does not cover enough Availability Zones +-- (AZs). Edit the replication subnet group and add more AZs. _ReplicationSubnetGroupDoesNotCoverEnoughAZs :: AsError a => Getting (First ServiceError) a ServiceError _ReplicationSubnetGroupDoesNotCoverEnoughAZs = _ServiceError . hasCode "ReplicationSubnetGroupDoesNotCoverEnoughAZs" --- | Prism for InvalidResourceStateFault' errors. +-- | The resource is in a state that prevents it from being used for database +-- migration. _InvalidResourceStateFault :: AsError a => Getting (First ServiceError) a ServiceError _InvalidResourceStateFault = _ServiceError . hasCode "InvalidResourceStateFault" --- | Prism for ResourceAlreadyExistsFault' errors. +-- | The resource you are attempting to create already exists. _ResourceAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError _ResourceAlreadyExistsFault = _ServiceError . hasCode "ResourceAlreadyExistsFault" --- | Prism for InsufficientResourceCapacityFault' errors. +-- | There are not enough resources allocated to the database migration. _InsufficientResourceCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError _InsufficientResourceCapacityFault = _ServiceError . hasCode "InsufficientResourceCapacityFault" --- | Prism for ResourceQuotaExceededFault' errors. +-- | The quota for this resource quota has been exceeded. _ResourceQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _ResourceQuotaExceededFault = _ServiceError . hasCode "ResourceQuotaExceededFault" --- | Prism for UpgradeDependencyFailureFault' errors. +-- | An upgrade dependency is preventing the database migration. _UpgradeDependencyFailureFault :: AsError a => Getting (First ServiceError) a ServiceError _UpgradeDependencyFailureFault = _ServiceError . hasCode "UpgradeDependencyFailureFault" --- | Prism for ResourceNotFoundFault' errors. +-- | The resource could not be found. _ResourceNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundFault = _ServiceError . hasCode "ResourceNotFoundFault" --- | Prism for StorageQuotaExceededFault' errors. +-- | The storage quota has been exceeded. _StorageQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError _StorageQuotaExceededFault = _ServiceError . hasCode "StorageQuotaExceededFault" --- | Prism for AccessDeniedFault' errors. +-- | AWS DMS was denied access to the endpoint. _AccessDeniedFault :: AsError a => Getting (First ServiceError) a ServiceError _AccessDeniedFault = _ServiceError . hasCode "AccessDeniedFault" --- | Prism for SubnetAlreadyInUse' errors. +-- | The specified subnet is already in use. _SubnetAlreadyInUse :: AsError a => Getting (First ServiceError) a ServiceError _SubnetAlreadyInUse = _ServiceError . hasCode "SubnetAlreadyInUse" diff --git a/gen/Network/AWS/DMS/Types/Product.hs b/gen/Network/AWS/DMS/Types/Product.hs --- a/gen/Network/AWS/DMS/Types/Product.hs +++ b/gen/Network/AWS/DMS/Types/Product.hs @@ -71,6 +71,8 @@ instance Hashable AccountQuota +instance NFData AccountQuota + -- | /See:/ 'availabilityZone' smart constructor. newtype AvailabilityZone = AvailabilityZone' { _azName :: Maybe Text @@ -99,6 +101,8 @@ instance Hashable AvailabilityZone +instance NFData AvailabilityZone + -- | /See:/ 'connection' smart constructor. data Connection = Connection' { _cStatus :: !(Maybe Text) @@ -177,6 +181,8 @@ instance Hashable Connection +instance NFData Connection + -- | /See:/ 'endpoint' smart constructor. data Endpoint = Endpoint' { _eStatus :: !(Maybe Text) @@ -303,6 +309,8 @@ instance Hashable Endpoint +instance NFData Endpoint + -- | /See:/ 'filter'' smart constructor. data Filter = Filter' { _fName :: !Text @@ -335,6 +343,8 @@ instance Hashable Filter +instance NFData Filter + instance ToJSON Filter where toJSON Filter'{..} = object @@ -433,6 +443,8 @@ instance Hashable OrderableReplicationInstance +instance NFData OrderableReplicationInstance + -- | /See:/ 'refreshSchemasStatus' smart constructor. data RefreshSchemasStatus = RefreshSchemasStatus' { _rssStatus :: !(Maybe RefreshSchemasStatusTypeValue) @@ -499,6 +511,8 @@ instance Hashable RefreshSchemasStatus +instance NFData RefreshSchemasStatus + -- | /See:/ 'replicationInstance' smart constructor. data ReplicationInstance = ReplicationInstance' { _riEngineVersion :: !(Maybe Text) @@ -685,6 +699,8 @@ instance Hashable ReplicationInstance +instance NFData ReplicationInstance + -- | /See:/ 'replicationPendingModifiedValues' smart constructor. data ReplicationPendingModifiedValues = ReplicationPendingModifiedValues' { _rpmvEngineVersion :: !(Maybe Text) @@ -738,6 +754,8 @@ instance Hashable ReplicationPendingModifiedValues +instance NFData ReplicationPendingModifiedValues + -- | /See:/ 'replicationSubnetGroup' smart constructor. data ReplicationSubnetGroup = ReplicationSubnetGroup' { _rsgVPCId :: !(Maybe Text) @@ -803,6 +821,8 @@ instance Hashable ReplicationSubnetGroup +instance NFData ReplicationSubnetGroup + -- | /See:/ 'replicationTask' smart constructor. data ReplicationTask = ReplicationTask' { _rtReplicationTaskSettings :: !(Maybe Text) @@ -950,6 +970,8 @@ instance Hashable ReplicationTask +instance NFData ReplicationTask + -- | /See:/ 'replicationTaskStats' smart constructor. data ReplicationTaskStats = ReplicationTaskStats' { _rtsFullLoadProgressPercent :: !(Maybe Int) @@ -1025,6 +1047,8 @@ instance Hashable ReplicationTaskStats +instance NFData ReplicationTaskStats + -- | /See:/ 'subnet' smart constructor. data Subnet = Subnet' { _sSubnetStatus :: !(Maybe Text) @@ -1072,6 +1096,8 @@ instance Hashable Subnet +instance NFData Subnet + -- | /See:/ 'supportedEndpointType' smart constructor. data SupportedEndpointType = SupportedEndpointType' { _setEndpointType :: !(Maybe ReplicationEndpointTypeValue) @@ -1119,6 +1145,8 @@ instance Hashable SupportedEndpointType +instance NFData SupportedEndpointType + -- | /See:/ 'tableStatistics' smart constructor. data TableStatistics = TableStatistics' { _tsFullLoadRows :: !(Maybe Integer) @@ -1221,6 +1249,8 @@ instance Hashable TableStatistics +instance NFData TableStatistics + -- | /See:/ 'tag' smart constructor. data Tag = Tag' { _tagValue :: !(Maybe Text) @@ -1264,6 +1294,8 @@ (\ x -> Tag' <$> (x .:? "Value") <*> (x .:? "Key")) instance Hashable Tag + +instance NFData Tag instance ToJSON Tag where toJSON Tag'{..} diff --git a/gen/Network/AWS/DMS/Types/Sum.hs b/gen/Network/AWS/DMS/Types/Sum.hs --- a/gen/Network/AWS/DMS/Types/Sum.hs +++ b/gen/Network/AWS/DMS/Types/Sum.hs @@ -40,6 +40,7 @@ FullLoadAndCdc -> "full-load-and-cdc" instance Hashable MigrationTypeValue +instance NFData MigrationTypeValue instance ToByteString MigrationTypeValue instance ToQuery MigrationTypeValue instance ToHeader MigrationTypeValue @@ -71,6 +72,7 @@ Successful -> "successful" instance Hashable RefreshSchemasStatusTypeValue +instance NFData RefreshSchemasStatusTypeValue instance ToByteString RefreshSchemasStatusTypeValue instance ToQuery RefreshSchemasStatusTypeValue instance ToHeader RefreshSchemasStatusTypeValue @@ -96,6 +98,7 @@ Target -> "target" instance Hashable ReplicationEndpointTypeValue +instance NFData ReplicationEndpointTypeValue instance ToByteString ReplicationEndpointTypeValue instance ToQuery ReplicationEndpointTypeValue instance ToHeader ReplicationEndpointTypeValue @@ -127,6 +130,7 @@ StartReplication -> "start-replication" instance Hashable StartReplicationTaskTypeValue +instance NFData StartReplicationTaskTypeValue instance ToByteString StartReplicationTaskTypeValue instance ToQuery StartReplicationTaskTypeValue instance ToHeader StartReplicationTaskTypeValue