{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.EC2.DescribeFleetInstances
(
describeFleetInstances
, DescribeFleetInstances
, dfisFilters
, dfisNextToken
, dfisDryRun
, dfisMaxResults
, dfisFleetId
, describeFleetInstancesResponse
, DescribeFleetInstancesResponse
, drsNextToken
, drsFleetId
, drsActiveInstances
, drsResponseStatus
) 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 DescribeFleetInstances = DescribeFleetInstances'
{ _dfisFilters :: !(Maybe [Filter])
, _dfisNextToken :: !(Maybe Text)
, _dfisDryRun :: !(Maybe Bool)
, _dfisMaxResults :: !(Maybe Int)
, _dfisFleetId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeFleetInstances
:: Text
-> DescribeFleetInstances
describeFleetInstances pFleetId_ =
DescribeFleetInstances'
{ _dfisFilters = Nothing
, _dfisNextToken = Nothing
, _dfisDryRun = Nothing
, _dfisMaxResults = Nothing
, _dfisFleetId = pFleetId_
}
dfisFilters :: Lens' DescribeFleetInstances [Filter]
dfisFilters = lens _dfisFilters (\ s a -> s{_dfisFilters = a}) . _Default . _Coerce
dfisNextToken :: Lens' DescribeFleetInstances (Maybe Text)
dfisNextToken = lens _dfisNextToken (\ s a -> s{_dfisNextToken = a})
dfisDryRun :: Lens' DescribeFleetInstances (Maybe Bool)
dfisDryRun = lens _dfisDryRun (\ s a -> s{_dfisDryRun = a})
dfisMaxResults :: Lens' DescribeFleetInstances (Maybe Int)
dfisMaxResults = lens _dfisMaxResults (\ s a -> s{_dfisMaxResults = a})
dfisFleetId :: Lens' DescribeFleetInstances Text
dfisFleetId = lens _dfisFleetId (\ s a -> s{_dfisFleetId = a})
instance AWSRequest DescribeFleetInstances where
type Rs DescribeFleetInstances =
DescribeFleetInstancesResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DescribeFleetInstancesResponse' <$>
(x .@? "nextToken") <*> (x .@? "fleetId") <*>
(x .@? "activeInstanceSet" .!@ mempty >>=
may (parseXMLList "item"))
<*> (pure (fromEnum s)))
instance Hashable DescribeFleetInstances where
instance NFData DescribeFleetInstances where
instance ToHeaders DescribeFleetInstances where
toHeaders = const mempty
instance ToPath DescribeFleetInstances where
toPath = const "/"
instance ToQuery DescribeFleetInstances where
toQuery DescribeFleetInstances'{..}
= mconcat
["Action" =:
("DescribeFleetInstances" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
toQuery (toQueryList "Filter" <$> _dfisFilters),
"NextToken" =: _dfisNextToken,
"DryRun" =: _dfisDryRun,
"MaxResults" =: _dfisMaxResults,
"FleetId" =: _dfisFleetId]
data DescribeFleetInstancesResponse = DescribeFleetInstancesResponse'
{ _drsNextToken :: !(Maybe Text)
, _drsFleetId :: !(Maybe Text)
, _drsActiveInstances :: !(Maybe [ActiveInstance])
, _drsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeFleetInstancesResponse
:: Int
-> DescribeFleetInstancesResponse
describeFleetInstancesResponse pResponseStatus_ =
DescribeFleetInstancesResponse'
{ _drsNextToken = Nothing
, _drsFleetId = Nothing
, _drsActiveInstances = Nothing
, _drsResponseStatus = pResponseStatus_
}
drsNextToken :: Lens' DescribeFleetInstancesResponse (Maybe Text)
drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a})
drsFleetId :: Lens' DescribeFleetInstancesResponse (Maybe Text)
drsFleetId = lens _drsFleetId (\ s a -> s{_drsFleetId = a})
drsActiveInstances :: Lens' DescribeFleetInstancesResponse [ActiveInstance]
drsActiveInstances = lens _drsActiveInstances (\ s a -> s{_drsActiveInstances = a}) . _Default . _Coerce
drsResponseStatus :: Lens' DescribeFleetInstancesResponse Int
drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})
instance NFData DescribeFleetInstancesResponse where