module Network.AWS.AutoScaling.DescribeAutoScalingGroups
(
describeAutoScalingGroups
, DescribeAutoScalingGroups
, dasgAutoScalingGroupNames
, dasgNextToken
, dasgMaxRecords
, describeAutoScalingGroupsResponse
, DescribeAutoScalingGroupsResponse
, dasgrsNextToken
, dasgrsStatus
, dasgrsAutoScalingGroups
) where
import Network.AWS.AutoScaling.Types
import Network.AWS.AutoScaling.Types.Product
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeAutoScalingGroups = DescribeAutoScalingGroups'
{ _dasgAutoScalingGroupNames :: !(Maybe [Text])
, _dasgNextToken :: !(Maybe Text)
, _dasgMaxRecords :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAutoScalingGroups
:: DescribeAutoScalingGroups
describeAutoScalingGroups =
DescribeAutoScalingGroups'
{ _dasgAutoScalingGroupNames = Nothing
, _dasgNextToken = Nothing
, _dasgMaxRecords = Nothing
}
dasgAutoScalingGroupNames :: Lens' DescribeAutoScalingGroups [Text]
dasgAutoScalingGroupNames = lens _dasgAutoScalingGroupNames (\ s a -> s{_dasgAutoScalingGroupNames = a}) . _Default . _Coerce;
dasgNextToken :: Lens' DescribeAutoScalingGroups (Maybe Text)
dasgNextToken = lens _dasgNextToken (\ s a -> s{_dasgNextToken = a});
dasgMaxRecords :: Lens' DescribeAutoScalingGroups (Maybe Int)
dasgMaxRecords = lens _dasgMaxRecords (\ s a -> s{_dasgMaxRecords = a});
instance AWSPager DescribeAutoScalingGroups where
page rq rs
| stop (rs ^. dasgrsNextToken) = Nothing
| stop (rs ^. dasgrsAutoScalingGroups) = Nothing
| otherwise =
Just $ rq & dasgNextToken .~ rs ^. dasgrsNextToken
instance AWSRequest DescribeAutoScalingGroups where
type Rs DescribeAutoScalingGroups =
DescribeAutoScalingGroupsResponse
request = postQuery autoScaling
response
= receiveXMLWrapper "DescribeAutoScalingGroupsResult"
(\ s h x ->
DescribeAutoScalingGroupsResponse' <$>
(x .@? "NextToken") <*> (pure (fromEnum s)) <*>
(x .@? "AutoScalingGroups" .!@ mempty >>=
parseXMLList "member"))
instance ToHeaders DescribeAutoScalingGroups where
toHeaders = const mempty
instance ToPath DescribeAutoScalingGroups where
toPath = const "/"
instance ToQuery DescribeAutoScalingGroups where
toQuery DescribeAutoScalingGroups'{..}
= mconcat
["Action" =:
("DescribeAutoScalingGroups" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"AutoScalingGroupNames" =:
toQuery
(toQueryList "member" <$>
_dasgAutoScalingGroupNames),
"NextToken" =: _dasgNextToken,
"MaxRecords" =: _dasgMaxRecords]
data DescribeAutoScalingGroupsResponse = DescribeAutoScalingGroupsResponse'
{ _dasgrsNextToken :: !(Maybe Text)
, _dasgrsStatus :: !Int
, _dasgrsAutoScalingGroups :: ![AutoScalingGroup]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAutoScalingGroupsResponse
:: Int
-> DescribeAutoScalingGroupsResponse
describeAutoScalingGroupsResponse pStatus_ =
DescribeAutoScalingGroupsResponse'
{ _dasgrsNextToken = Nothing
, _dasgrsStatus = pStatus_
, _dasgrsAutoScalingGroups = mempty
}
dasgrsNextToken :: Lens' DescribeAutoScalingGroupsResponse (Maybe Text)
dasgrsNextToken = lens _dasgrsNextToken (\ s a -> s{_dasgrsNextToken = a});
dasgrsStatus :: Lens' DescribeAutoScalingGroupsResponse Int
dasgrsStatus = lens _dasgrsStatus (\ s a -> s{_dasgrsStatus = a});
dasgrsAutoScalingGroups :: Lens' DescribeAutoScalingGroupsResponse [AutoScalingGroup]
dasgrsAutoScalingGroups = lens _dasgrsAutoScalingGroups (\ s a -> s{_dasgrsAutoScalingGroups = a}) . _Coerce;