{-# 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 #-}
module Network.AWS.DMS.DescribeReplicationTaskAssessmentResults
(
describeReplicationTaskAssessmentResults
, DescribeReplicationTaskAssessmentResults
, drtarReplicationTaskARN
, drtarMarker
, drtarMaxRecords
, describeReplicationTaskAssessmentResultsResponse
, DescribeReplicationTaskAssessmentResultsResponse
, 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
data DescribeReplicationTaskAssessmentResults = DescribeReplicationTaskAssessmentResults'
{ _drtarReplicationTaskARN :: !(Maybe Text)
, _drtarMarker :: !(Maybe Text)
, _drtarMaxRecords :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeReplicationTaskAssessmentResults
:: DescribeReplicationTaskAssessmentResults
describeReplicationTaskAssessmentResults =
DescribeReplicationTaskAssessmentResults'
{ _drtarReplicationTaskARN = Nothing
, _drtarMarker = Nothing
, _drtarMaxRecords = Nothing
}
drtarReplicationTaskARN :: Lens' DescribeReplicationTaskAssessmentResults (Maybe Text)
drtarReplicationTaskARN = lens _drtarReplicationTaskARN (\ s a -> s{_drtarReplicationTaskARN = a})
drtarMarker :: Lens' DescribeReplicationTaskAssessmentResults (Maybe Text)
drtarMarker = lens _drtarMarker (\ s a -> s{_drtarMarker = a})
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
data DescribeReplicationTaskAssessmentResultsResponse = DescribeReplicationTaskAssessmentResultsResponse'
{ _drtarrsBucketName :: !(Maybe Text)
, _drtarrsMarker :: !(Maybe Text)
, _drtarrsReplicationTaskAssessmentResults :: !(Maybe [ReplicationTaskAssessmentResult])
, _drtarrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeReplicationTaskAssessmentResultsResponse
:: Int
-> DescribeReplicationTaskAssessmentResultsResponse
describeReplicationTaskAssessmentResultsResponse pResponseStatus_ =
DescribeReplicationTaskAssessmentResultsResponse'
{ _drtarrsBucketName = Nothing
, _drtarrsMarker = Nothing
, _drtarrsReplicationTaskAssessmentResults = Nothing
, _drtarrsResponseStatus = pResponseStatus_
}
drtarrsBucketName :: Lens' DescribeReplicationTaskAssessmentResultsResponse (Maybe Text)
drtarrsBucketName = lens _drtarrsBucketName (\ s a -> s{_drtarrsBucketName = a})
drtarrsMarker :: Lens' DescribeReplicationTaskAssessmentResultsResponse (Maybe Text)
drtarrsMarker = lens _drtarrsMarker (\ s a -> s{_drtarrsMarker = a})
drtarrsReplicationTaskAssessmentResults :: Lens' DescribeReplicationTaskAssessmentResultsResponse [ReplicationTaskAssessmentResult]
drtarrsReplicationTaskAssessmentResults = lens _drtarrsReplicationTaskAssessmentResults (\ s a -> s{_drtarrsReplicationTaskAssessmentResults = a}) . _Default . _Coerce
drtarrsResponseStatus :: Lens' DescribeReplicationTaskAssessmentResultsResponse Int
drtarrsResponseStatus = lens _drtarrsResponseStatus (\ s a -> s{_drtarrsResponseStatus = a})
instance NFData
DescribeReplicationTaskAssessmentResultsResponse
where