module Network.AWS.EC2.DescribeImportImageTasks
(
describeImportImageTasks
, DescribeImportImageTasks
, diitFilters
, diitImportTaskIds
, diitNextToken
, diitDryRun
, diitMaxResults
, describeImportImageTasksResponse
, DescribeImportImageTasksResponse
, diitrsNextToken
, diitrsImportImageTasks
, diitrsResponseStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeImportImageTasks = DescribeImportImageTasks'
{ _diitFilters :: !(Maybe [Filter])
, _diitImportTaskIds :: !(Maybe [Text])
, _diitNextToken :: !(Maybe Text)
, _diitDryRun :: !(Maybe Bool)
, _diitMaxResults :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeImportImageTasks
:: DescribeImportImageTasks
describeImportImageTasks =
DescribeImportImageTasks'
{ _diitFilters = Nothing
, _diitImportTaskIds = Nothing
, _diitNextToken = Nothing
, _diitDryRun = Nothing
, _diitMaxResults = Nothing
}
diitFilters :: Lens' DescribeImportImageTasks [Filter]
diitFilters = lens _diitFilters (\ s a -> s{_diitFilters = a}) . _Default . _Coerce;
diitImportTaskIds :: Lens' DescribeImportImageTasks [Text]
diitImportTaskIds = lens _diitImportTaskIds (\ s a -> s{_diitImportTaskIds = a}) . _Default . _Coerce;
diitNextToken :: Lens' DescribeImportImageTasks (Maybe Text)
diitNextToken = lens _diitNextToken (\ s a -> s{_diitNextToken = a});
diitDryRun :: Lens' DescribeImportImageTasks (Maybe Bool)
diitDryRun = lens _diitDryRun (\ s a -> s{_diitDryRun = a});
diitMaxResults :: Lens' DescribeImportImageTasks (Maybe Int)
diitMaxResults = lens _diitMaxResults (\ s a -> s{_diitMaxResults = a});
instance AWSRequest DescribeImportImageTasks where
type Rs DescribeImportImageTasks =
DescribeImportImageTasksResponse
request = postQuery eC2
response
= receiveXML
(\ s h x ->
DescribeImportImageTasksResponse' <$>
(x .@? "nextToken") <*>
(x .@? "importImageTaskSet" .!@ mempty >>=
may (parseXMLList "item"))
<*> (pure (fromEnum s)))
instance ToHeaders DescribeImportImageTasks where
toHeaders = const mempty
instance ToPath DescribeImportImageTasks where
toPath = const "/"
instance ToQuery DescribeImportImageTasks where
toQuery DescribeImportImageTasks'{..}
= mconcat
["Action" =:
("DescribeImportImageTasks" :: ByteString),
"Version" =: ("2015-04-15" :: ByteString),
toQuery (toQueryList "Filters" <$> _diitFilters),
toQuery
(toQueryList "ImportTaskId" <$> _diitImportTaskIds),
"NextToken" =: _diitNextToken,
"DryRun" =: _diitDryRun,
"MaxResults" =: _diitMaxResults]
data DescribeImportImageTasksResponse = DescribeImportImageTasksResponse'
{ _diitrsNextToken :: !(Maybe Text)
, _diitrsImportImageTasks :: !(Maybe [ImportImageTask])
, _diitrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeImportImageTasksResponse
:: Int
-> DescribeImportImageTasksResponse
describeImportImageTasksResponse pResponseStatus_ =
DescribeImportImageTasksResponse'
{ _diitrsNextToken = Nothing
, _diitrsImportImageTasks = Nothing
, _diitrsResponseStatus = pResponseStatus_
}
diitrsNextToken :: Lens' DescribeImportImageTasksResponse (Maybe Text)
diitrsNextToken = lens _diitrsNextToken (\ s a -> s{_diitrsNextToken = a});
diitrsImportImageTasks :: Lens' DescribeImportImageTasksResponse [ImportImageTask]
diitrsImportImageTasks = lens _diitrsImportImageTasks (\ s a -> s{_diitrsImportImageTasks = a}) . _Default . _Coerce;
diitrsResponseStatus :: Lens' DescribeImportImageTasksResponse Int
diitrsResponseStatus = lens _diitrsResponseStatus (\ s a -> s{_diitrsResponseStatus = a});