{-# 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.AutoScaling.DescribeAutoScalingGroups
(
describeAutoScalingGroups
, DescribeAutoScalingGroups
, dasgAutoScalingGroupNames
, dasgNextToken
, dasgMaxRecords
, describeAutoScalingGroupsResponse
, DescribeAutoScalingGroupsResponse
, dasgrsNextToken
, dasgrsResponseStatus
, dasgrsAutoScalingGroups
) where
import Network.AWS.AutoScaling.Types
import Network.AWS.AutoScaling.Types.Product
import Network.AWS.Lens
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 Hashable DescribeAutoScalingGroups where
instance NFData DescribeAutoScalingGroups where
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)
, _dasgrsResponseStatus :: !Int
, _dasgrsAutoScalingGroups :: ![AutoScalingGroup]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAutoScalingGroupsResponse
:: Int
-> DescribeAutoScalingGroupsResponse
describeAutoScalingGroupsResponse pResponseStatus_ =
DescribeAutoScalingGroupsResponse'
{ _dasgrsNextToken = Nothing
, _dasgrsResponseStatus = pResponseStatus_
, _dasgrsAutoScalingGroups = mempty
}
dasgrsNextToken :: Lens' DescribeAutoScalingGroupsResponse (Maybe Text)
dasgrsNextToken = lens _dasgrsNextToken (\ s a -> s{_dasgrsNextToken = a})
dasgrsResponseStatus :: Lens' DescribeAutoScalingGroupsResponse Int
dasgrsResponseStatus = lens _dasgrsResponseStatus (\ s a -> s{_dasgrsResponseStatus = a})
dasgrsAutoScalingGroups :: Lens' DescribeAutoScalingGroupsResponse [AutoScalingGroup]
dasgrsAutoScalingGroups = lens _dasgrsAutoScalingGroups (\ s a -> s{_dasgrsAutoScalingGroups = a}) . _Coerce
instance NFData DescribeAutoScalingGroupsResponse
where