module Network.AWS.EC2.DescribeConversionTasks
(
describeConversionTasks
, DescribeConversionTasks
, dctConversionTaskIds
, dctFilters
, dctDryRun
, describeConversionTasksResponse
, DescribeConversionTasksResponse
, dctrsConversionTasks
, dctrsStatus
) 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 DescribeConversionTasks = DescribeConversionTasks'
{ _dctConversionTaskIds :: !(Maybe [Text])
, _dctFilters :: !(Maybe [Filter])
, _dctDryRun :: !(Maybe Bool)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeConversionTasks
:: DescribeConversionTasks
describeConversionTasks =
DescribeConversionTasks'
{ _dctConversionTaskIds = Nothing
, _dctFilters = Nothing
, _dctDryRun = Nothing
}
dctConversionTaskIds :: Lens' DescribeConversionTasks [Text]
dctConversionTaskIds = lens _dctConversionTaskIds (\ s a -> s{_dctConversionTaskIds = a}) . _Default . _Coerce;
dctFilters :: Lens' DescribeConversionTasks [Filter]
dctFilters = lens _dctFilters (\ s a -> s{_dctFilters = a}) . _Default . _Coerce;
dctDryRun :: Lens' DescribeConversionTasks (Maybe Bool)
dctDryRun = lens _dctDryRun (\ s a -> s{_dctDryRun = a});
instance AWSRequest DescribeConversionTasks where
type Rs DescribeConversionTasks =
DescribeConversionTasksResponse
request = postQuery eC2
response
= receiveXML
(\ s h x ->
DescribeConversionTasksResponse' <$>
(x .@? "conversionTasks" .!@ mempty >>=
may (parseXMLList "item"))
<*> (pure (fromEnum s)))
instance ToHeaders DescribeConversionTasks where
toHeaders = const mempty
instance ToPath DescribeConversionTasks where
toPath = const "/"
instance ToQuery DescribeConversionTasks where
toQuery DescribeConversionTasks'{..}
= mconcat
["Action" =:
("DescribeConversionTasks" :: ByteString),
"Version" =: ("2015-04-15" :: ByteString),
toQuery
(toQueryList "ConversionTaskId" <$>
_dctConversionTaskIds),
toQuery (toQueryList "Filter" <$> _dctFilters),
"DryRun" =: _dctDryRun]
data DescribeConversionTasksResponse = DescribeConversionTasksResponse'
{ _dctrsConversionTasks :: !(Maybe [ConversionTask])
, _dctrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeConversionTasksResponse
:: Int
-> DescribeConversionTasksResponse
describeConversionTasksResponse pStatus_ =
DescribeConversionTasksResponse'
{ _dctrsConversionTasks = Nothing
, _dctrsStatus = pStatus_
}
dctrsConversionTasks :: Lens' DescribeConversionTasksResponse [ConversionTask]
dctrsConversionTasks = lens _dctrsConversionTasks (\ s a -> s{_dctrsConversionTasks = a}) . _Default . _Coerce;
dctrsStatus :: Lens' DescribeConversionTasksResponse Int
dctrsStatus = lens _dctrsStatus (\ s a -> s{_dctrsStatus = a});