module Network.AWS.EC2.DescribeSpotFleetRequests
(
describeSpotFleetRequests
, DescribeSpotFleetRequests
, dsfrSpotFleetRequestIds
, dsfrNextToken
, dsfrDryRun
, dsfrMaxResults
, describeSpotFleetRequestsResponse
, DescribeSpotFleetRequestsResponse
, dsfrrsNextToken
, dsfrrsResponseStatus
, dsfrrsSpotFleetRequestConfigs
) 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 DescribeSpotFleetRequests = DescribeSpotFleetRequests'
{ _dsfrSpotFleetRequestIds :: !(Maybe [Text])
, _dsfrNextToken :: !(Maybe Text)
, _dsfrDryRun :: !(Maybe Bool)
, _dsfrMaxResults :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeSpotFleetRequests
:: DescribeSpotFleetRequests
describeSpotFleetRequests =
DescribeSpotFleetRequests'
{ _dsfrSpotFleetRequestIds = Nothing
, _dsfrNextToken = Nothing
, _dsfrDryRun = Nothing
, _dsfrMaxResults = Nothing
}
dsfrSpotFleetRequestIds :: Lens' DescribeSpotFleetRequests [Text]
dsfrSpotFleetRequestIds = lens _dsfrSpotFleetRequestIds (\ s a -> s{_dsfrSpotFleetRequestIds = a}) . _Default . _Coerce;
dsfrNextToken :: Lens' DescribeSpotFleetRequests (Maybe Text)
dsfrNextToken = lens _dsfrNextToken (\ s a -> s{_dsfrNextToken = a});
dsfrDryRun :: Lens' DescribeSpotFleetRequests (Maybe Bool)
dsfrDryRun = lens _dsfrDryRun (\ s a -> s{_dsfrDryRun = a});
dsfrMaxResults :: Lens' DescribeSpotFleetRequests (Maybe Int)
dsfrMaxResults = lens _dsfrMaxResults (\ s a -> s{_dsfrMaxResults = a});
instance AWSRequest DescribeSpotFleetRequests where
type Rs DescribeSpotFleetRequests =
DescribeSpotFleetRequestsResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DescribeSpotFleetRequestsResponse' <$>
(x .@? "nextToken") <*> (pure (fromEnum s)) <*>
(x .@? "spotFleetRequestConfigSet" .!@ mempty >>=
parseXMLList "item"))
instance Hashable DescribeSpotFleetRequests
instance NFData DescribeSpotFleetRequests
instance ToHeaders DescribeSpotFleetRequests where
toHeaders = const mempty
instance ToPath DescribeSpotFleetRequests where
toPath = const "/"
instance ToQuery DescribeSpotFleetRequests where
toQuery DescribeSpotFleetRequests'{..}
= mconcat
["Action" =:
("DescribeSpotFleetRequests" :: ByteString),
"Version" =: ("2015-10-01" :: ByteString),
toQuery
(toQueryList "SpotFleetRequestId" <$>
_dsfrSpotFleetRequestIds),
"NextToken" =: _dsfrNextToken,
"DryRun" =: _dsfrDryRun,
"MaxResults" =: _dsfrMaxResults]
data DescribeSpotFleetRequestsResponse = DescribeSpotFleetRequestsResponse'
{ _dsfrrsNextToken :: !(Maybe Text)
, _dsfrrsResponseStatus :: !Int
, _dsfrrsSpotFleetRequestConfigs :: ![SpotFleetRequestConfig]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeSpotFleetRequestsResponse
:: Int
-> DescribeSpotFleetRequestsResponse
describeSpotFleetRequestsResponse pResponseStatus_ =
DescribeSpotFleetRequestsResponse'
{ _dsfrrsNextToken = Nothing
, _dsfrrsResponseStatus = pResponseStatus_
, _dsfrrsSpotFleetRequestConfigs = mempty
}
dsfrrsNextToken :: Lens' DescribeSpotFleetRequestsResponse (Maybe Text)
dsfrrsNextToken = lens _dsfrrsNextToken (\ s a -> s{_dsfrrsNextToken = a});
dsfrrsResponseStatus :: Lens' DescribeSpotFleetRequestsResponse Int
dsfrrsResponseStatus = lens _dsfrrsResponseStatus (\ s a -> s{_dsfrrsResponseStatus = a});
dsfrrsSpotFleetRequestConfigs :: Lens' DescribeSpotFleetRequestsResponse [SpotFleetRequestConfig]
dsfrrsSpotFleetRequestConfigs = lens _dsfrrsSpotFleetRequestConfigs (\ s a -> s{_dsfrrsSpotFleetRequestConfigs = a}) . _Coerce;
instance NFData DescribeSpotFleetRequestsResponse