module Network.AWS.CloudWatchLogs.DescribeExportTasks
(
describeExportTasks
, DescribeExportTasks
, detTaskId
, detNextToken
, detLimit
, detStatusCode
, describeExportTasksResponse
, DescribeExportTasksResponse
, detrsNextToken
, detrsExportTasks
, detrsResponseStatus
) where
import Network.AWS.CloudWatchLogs.Types
import Network.AWS.CloudWatchLogs.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeExportTasks = DescribeExportTasks'
{ _detTaskId :: !(Maybe Text)
, _detNextToken :: !(Maybe Text)
, _detLimit :: !(Maybe Nat)
, _detStatusCode :: !(Maybe ExportTaskStatusCode)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeExportTasks
:: DescribeExportTasks
describeExportTasks =
DescribeExportTasks'
{ _detTaskId = Nothing
, _detNextToken = Nothing
, _detLimit = Nothing
, _detStatusCode = Nothing
}
detTaskId :: Lens' DescribeExportTasks (Maybe Text)
detTaskId = lens _detTaskId (\ s a -> s{_detTaskId = a});
detNextToken :: Lens' DescribeExportTasks (Maybe Text)
detNextToken = lens _detNextToken (\ s a -> s{_detNextToken = a});
detLimit :: Lens' DescribeExportTasks (Maybe Natural)
detLimit = lens _detLimit (\ s a -> s{_detLimit = a}) . mapping _Nat;
detStatusCode :: Lens' DescribeExportTasks (Maybe ExportTaskStatusCode)
detStatusCode = lens _detStatusCode (\ s a -> s{_detStatusCode = a});
instance AWSRequest DescribeExportTasks where
type Rs DescribeExportTasks =
DescribeExportTasksResponse
request = postJSON cloudWatchLogs
response
= receiveJSON
(\ s h x ->
DescribeExportTasksResponse' <$>
(x .?> "nextToken") <*>
(x .?> "exportTasks" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeExportTasks
instance NFData DescribeExportTasks
instance ToHeaders DescribeExportTasks where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Logs_20140328.DescribeExportTasks" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeExportTasks where
toJSON DescribeExportTasks'{..}
= object
(catMaybes
[("taskId" .=) <$> _detTaskId,
("nextToken" .=) <$> _detNextToken,
("limit" .=) <$> _detLimit,
("statusCode" .=) <$> _detStatusCode])
instance ToPath DescribeExportTasks where
toPath = const "/"
instance ToQuery DescribeExportTasks where
toQuery = const mempty
data DescribeExportTasksResponse = DescribeExportTasksResponse'
{ _detrsNextToken :: !(Maybe Text)
, _detrsExportTasks :: !(Maybe [ExportTask])
, _detrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeExportTasksResponse
:: Int
-> DescribeExportTasksResponse
describeExportTasksResponse pResponseStatus_ =
DescribeExportTasksResponse'
{ _detrsNextToken = Nothing
, _detrsExportTasks = Nothing
, _detrsResponseStatus = pResponseStatus_
}
detrsNextToken :: Lens' DescribeExportTasksResponse (Maybe Text)
detrsNextToken = lens _detrsNextToken (\ s a -> s{_detrsNextToken = a});
detrsExportTasks :: Lens' DescribeExportTasksResponse [ExportTask]
detrsExportTasks = lens _detrsExportTasks (\ s a -> s{_detrsExportTasks = a}) . _Default . _Coerce;
detrsResponseStatus :: Lens' DescribeExportTasksResponse Int
detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a});
instance NFData DescribeExportTasksResponse