module Network.AWS.EC2.DescribeConversionTasks
(
describeConversionTasks
, DescribeConversionTasks
, dctFilters
, dctConversionTaskIds
, dctDryRun
, describeConversionTasksResponse
, DescribeConversionTasksResponse
, dctrsConversionTasks
, dctrsResponseStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeConversionTasks = DescribeConversionTasks'
{ _dctFilters :: !(Maybe [Filter])
, _dctConversionTaskIds :: !(Maybe [Text])
, _dctDryRun :: !(Maybe Bool)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeConversionTasks
:: DescribeConversionTasks
describeConversionTasks =
DescribeConversionTasks'
{ _dctFilters = Nothing
, _dctConversionTaskIds = Nothing
, _dctDryRun = Nothing
}
dctFilters :: Lens' DescribeConversionTasks [Filter]
dctFilters = lens _dctFilters (\ s a -> s{_dctFilters = a}) . _Default . _Coerce;
dctConversionTaskIds :: Lens' DescribeConversionTasks [Text]
dctConversionTaskIds = lens _dctConversionTaskIds (\ s a -> s{_dctConversionTaskIds = 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 Hashable DescribeConversionTasks
instance NFData DescribeConversionTasks
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-10-01" :: ByteString),
toQuery (toQueryList "Filter" <$> _dctFilters),
toQuery
(toQueryList "ConversionTaskId" <$>
_dctConversionTaskIds),
"DryRun" =: _dctDryRun]
data DescribeConversionTasksResponse = DescribeConversionTasksResponse'
{ _dctrsConversionTasks :: !(Maybe [ConversionTask])
, _dctrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeConversionTasksResponse
:: Int
-> DescribeConversionTasksResponse
describeConversionTasksResponse pResponseStatus_ =
DescribeConversionTasksResponse'
{ _dctrsConversionTasks = Nothing
, _dctrsResponseStatus = pResponseStatus_
}
dctrsConversionTasks :: Lens' DescribeConversionTasksResponse [ConversionTask]
dctrsConversionTasks = lens _dctrsConversionTasks (\ s a -> s{_dctrsConversionTasks = a}) . _Default . _Coerce;
dctrsResponseStatus :: Lens' DescribeConversionTasksResponse Int
dctrsResponseStatus = lens _dctrsResponseStatus (\ s a -> s{_dctrsResponseStatus = a});
instance NFData DescribeConversionTasksResponse