module Network.AWS.Redshift.DescribeTableRestoreStatus
(
describeTableRestoreStatus
, DescribeTableRestoreStatus
, dtrssTableRestoreRequestId
, dtrssClusterIdentifier
, dtrssMarker
, dtrssMaxRecords
, describeTableRestoreStatusResponse
, DescribeTableRestoreStatusResponse
, dtrsrsMarker
, dtrsrsTableRestoreStatusDetails
, dtrsrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Redshift.Types
import Network.AWS.Redshift.Types.Product
import Network.AWS.Request
import Network.AWS.Response
data DescribeTableRestoreStatus = DescribeTableRestoreStatus'
{ _dtrssTableRestoreRequestId :: !(Maybe Text)
, _dtrssClusterIdentifier :: !(Maybe Text)
, _dtrssMarker :: !(Maybe Text)
, _dtrssMaxRecords :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeTableRestoreStatus
:: DescribeTableRestoreStatus
describeTableRestoreStatus =
DescribeTableRestoreStatus'
{ _dtrssTableRestoreRequestId = Nothing
, _dtrssClusterIdentifier = Nothing
, _dtrssMarker = Nothing
, _dtrssMaxRecords = Nothing
}
dtrssTableRestoreRequestId :: Lens' DescribeTableRestoreStatus (Maybe Text)
dtrssTableRestoreRequestId = lens _dtrssTableRestoreRequestId (\ s a -> s{_dtrssTableRestoreRequestId = a});
dtrssClusterIdentifier :: Lens' DescribeTableRestoreStatus (Maybe Text)
dtrssClusterIdentifier = lens _dtrssClusterIdentifier (\ s a -> s{_dtrssClusterIdentifier = a});
dtrssMarker :: Lens' DescribeTableRestoreStatus (Maybe Text)
dtrssMarker = lens _dtrssMarker (\ s a -> s{_dtrssMarker = a});
dtrssMaxRecords :: Lens' DescribeTableRestoreStatus (Maybe Int)
dtrssMaxRecords = lens _dtrssMaxRecords (\ s a -> s{_dtrssMaxRecords = a});
instance AWSRequest DescribeTableRestoreStatus where
type Rs DescribeTableRestoreStatus =
DescribeTableRestoreStatusResponse
request = postQuery redshift
response
= receiveXMLWrapper
"DescribeTableRestoreStatusResult"
(\ s h x ->
DescribeTableRestoreStatusResponse' <$>
(x .@? "Marker") <*>
(x .@? "TableRestoreStatusDetails" .!@ mempty >>=
may (parseXMLList "TableRestoreStatus"))
<*> (pure (fromEnum s)))
instance Hashable DescribeTableRestoreStatus
instance NFData DescribeTableRestoreStatus
instance ToHeaders DescribeTableRestoreStatus where
toHeaders = const mempty
instance ToPath DescribeTableRestoreStatus where
toPath = const "/"
instance ToQuery DescribeTableRestoreStatus where
toQuery DescribeTableRestoreStatus'{..}
= mconcat
["Action" =:
("DescribeTableRestoreStatus" :: ByteString),
"Version" =: ("2012-12-01" :: ByteString),
"TableRestoreRequestId" =:
_dtrssTableRestoreRequestId,
"ClusterIdentifier" =: _dtrssClusterIdentifier,
"Marker" =: _dtrssMarker,
"MaxRecords" =: _dtrssMaxRecords]
data DescribeTableRestoreStatusResponse = DescribeTableRestoreStatusResponse'
{ _dtrsrsMarker :: !(Maybe Text)
, _dtrsrsTableRestoreStatusDetails :: !(Maybe [TableRestoreStatus])
, _dtrsrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeTableRestoreStatusResponse
:: Int
-> DescribeTableRestoreStatusResponse
describeTableRestoreStatusResponse pResponseStatus_ =
DescribeTableRestoreStatusResponse'
{ _dtrsrsMarker = Nothing
, _dtrsrsTableRestoreStatusDetails = Nothing
, _dtrsrsResponseStatus = pResponseStatus_
}
dtrsrsMarker :: Lens' DescribeTableRestoreStatusResponse (Maybe Text)
dtrsrsMarker = lens _dtrsrsMarker (\ s a -> s{_dtrsrsMarker = a});
dtrsrsTableRestoreStatusDetails :: Lens' DescribeTableRestoreStatusResponse [TableRestoreStatus]
dtrsrsTableRestoreStatusDetails = lens _dtrsrsTableRestoreStatusDetails (\ s a -> s{_dtrsrsTableRestoreStatusDetails = a}) . _Default . _Coerce;
dtrsrsResponseStatus :: Lens' DescribeTableRestoreStatusResponse Int
dtrsrsResponseStatus = lens _dtrsrsResponseStatus (\ s a -> s{_dtrsrsResponseStatus = a});
instance NFData DescribeTableRestoreStatusResponse