{-# 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.DescribeReplicationInstanceTaskLogs
(
describeReplicationInstanceTaskLogs
, DescribeReplicationInstanceTaskLogs
, dritlMarker
, dritlMaxRecords
, dritlReplicationInstanceARN
, describeReplicationInstanceTaskLogsResponse
, DescribeReplicationInstanceTaskLogsResponse
, 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
data DescribeReplicationInstanceTaskLogs = DescribeReplicationInstanceTaskLogs'
{ _dritlMarker :: !(Maybe Text)
, _dritlMaxRecords :: !(Maybe Int)
, _dritlReplicationInstanceARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeReplicationInstanceTaskLogs
:: Text
-> DescribeReplicationInstanceTaskLogs
describeReplicationInstanceTaskLogs pReplicationInstanceARN_ =
DescribeReplicationInstanceTaskLogs'
{ _dritlMarker = Nothing
, _dritlMaxRecords = Nothing
, _dritlReplicationInstanceARN = pReplicationInstanceARN_
}
dritlMarker :: Lens' DescribeReplicationInstanceTaskLogs (Maybe Text)
dritlMarker = lens _dritlMarker (\ s a -> s{_dritlMarker = a})
dritlMaxRecords :: Lens' DescribeReplicationInstanceTaskLogs (Maybe Int)
dritlMaxRecords = lens _dritlMaxRecords (\ s a -> s{_dritlMaxRecords = a})
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
data DescribeReplicationInstanceTaskLogsResponse = DescribeReplicationInstanceTaskLogsResponse'
{ _dritlrsReplicationInstanceTaskLogs :: !(Maybe [ReplicationInstanceTaskLog])
, _dritlrsMarker :: !(Maybe Text)
, _dritlrsReplicationInstanceARN :: !(Maybe Text)
, _dritlrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeReplicationInstanceTaskLogsResponse
:: Int
-> DescribeReplicationInstanceTaskLogsResponse
describeReplicationInstanceTaskLogsResponse pResponseStatus_ =
DescribeReplicationInstanceTaskLogsResponse'
{ _dritlrsReplicationInstanceTaskLogs = Nothing
, _dritlrsMarker = Nothing
, _dritlrsReplicationInstanceARN = Nothing
, _dritlrsResponseStatus = pResponseStatus_
}
dritlrsReplicationInstanceTaskLogs :: Lens' DescribeReplicationInstanceTaskLogsResponse [ReplicationInstanceTaskLog]
dritlrsReplicationInstanceTaskLogs = lens _dritlrsReplicationInstanceTaskLogs (\ s a -> s{_dritlrsReplicationInstanceTaskLogs = a}) . _Default . _Coerce
dritlrsMarker :: Lens' DescribeReplicationInstanceTaskLogsResponse (Maybe Text)
dritlrsMarker = lens _dritlrsMarker (\ s a -> s{_dritlrsMarker = a})
dritlrsReplicationInstanceARN :: Lens' DescribeReplicationInstanceTaskLogsResponse (Maybe Text)
dritlrsReplicationInstanceARN = lens _dritlrsReplicationInstanceARN (\ s a -> s{_dritlrsReplicationInstanceARN = a})
dritlrsResponseStatus :: Lens' DescribeReplicationInstanceTaskLogsResponse Int
dritlrsResponseStatus = lens _dritlrsResponseStatus (\ s a -> s{_dritlrsResponseStatus = a})
instance NFData
DescribeReplicationInstanceTaskLogsResponse
where