module Network.AWS.AutoScaling.DescribePolicies
(
describePolicies
, DescribePolicies
, dpsPolicyNames
, dpsNextToken
, dpsMaxRecords
, dpsAutoScalingGroupName
, dpsPolicyTypes
, describePoliciesResponse
, DescribePoliciesResponse
, dprsNextToken
, dprsScalingPolicies
, dprsStatus
) 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 DescribePolicies = DescribePolicies'
{ _dpsPolicyNames :: !(Maybe [Text])
, _dpsNextToken :: !(Maybe Text)
, _dpsMaxRecords :: !(Maybe Int)
, _dpsAutoScalingGroupName :: !(Maybe Text)
, _dpsPolicyTypes :: !(Maybe [Text])
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describePolicies
:: DescribePolicies
describePolicies =
DescribePolicies'
{ _dpsPolicyNames = Nothing
, _dpsNextToken = Nothing
, _dpsMaxRecords = Nothing
, _dpsAutoScalingGroupName = Nothing
, _dpsPolicyTypes = Nothing
}
dpsPolicyNames :: Lens' DescribePolicies [Text]
dpsPolicyNames = lens _dpsPolicyNames (\ s a -> s{_dpsPolicyNames = a}) . _Default . _Coerce;
dpsNextToken :: Lens' DescribePolicies (Maybe Text)
dpsNextToken = lens _dpsNextToken (\ s a -> s{_dpsNextToken = a});
dpsMaxRecords :: Lens' DescribePolicies (Maybe Int)
dpsMaxRecords = lens _dpsMaxRecords (\ s a -> s{_dpsMaxRecords = a});
dpsAutoScalingGroupName :: Lens' DescribePolicies (Maybe Text)
dpsAutoScalingGroupName = lens _dpsAutoScalingGroupName (\ s a -> s{_dpsAutoScalingGroupName = a});
dpsPolicyTypes :: Lens' DescribePolicies [Text]
dpsPolicyTypes = lens _dpsPolicyTypes (\ s a -> s{_dpsPolicyTypes = a}) . _Default . _Coerce;
instance AWSPager DescribePolicies where
page rq rs
| stop (rs ^. dprsNextToken) = Nothing
| stop (rs ^. dprsScalingPolicies) = Nothing
| otherwise =
Just $ rq & dpsNextToken .~ rs ^. dprsNextToken
instance AWSRequest DescribePolicies where
type Rs DescribePolicies = DescribePoliciesResponse
request = postQuery autoScaling
response
= receiveXMLWrapper "DescribePoliciesResult"
(\ s h x ->
DescribePoliciesResponse' <$>
(x .@? "NextToken") <*>
(x .@? "ScalingPolicies" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance ToHeaders DescribePolicies where
toHeaders = const mempty
instance ToPath DescribePolicies where
toPath = const "/"
instance ToQuery DescribePolicies where
toQuery DescribePolicies'{..}
= mconcat
["Action" =: ("DescribePolicies" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"PolicyNames" =:
toQuery (toQueryList "member" <$> _dpsPolicyNames),
"NextToken" =: _dpsNextToken,
"MaxRecords" =: _dpsMaxRecords,
"AutoScalingGroupName" =: _dpsAutoScalingGroupName,
"PolicyTypes" =:
toQuery (toQueryList "member" <$> _dpsPolicyTypes)]
data DescribePoliciesResponse = DescribePoliciesResponse'
{ _dprsNextToken :: !(Maybe Text)
, _dprsScalingPolicies :: !(Maybe [ScalingPolicy])
, _dprsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describePoliciesResponse
:: Int
-> DescribePoliciesResponse
describePoliciesResponse pStatus_ =
DescribePoliciesResponse'
{ _dprsNextToken = Nothing
, _dprsScalingPolicies = Nothing
, _dprsStatus = pStatus_
}
dprsNextToken :: Lens' DescribePoliciesResponse (Maybe Text)
dprsNextToken = lens _dprsNextToken (\ s a -> s{_dprsNextToken = a});
dprsScalingPolicies :: Lens' DescribePoliciesResponse [ScalingPolicy]
dprsScalingPolicies = lens _dprsScalingPolicies (\ s a -> s{_dprsScalingPolicies = a}) . _Default . _Coerce;
dprsStatus :: Lens' DescribePoliciesResponse Int
dprsStatus = lens _dprsStatus (\ s a -> s{_dprsStatus = a});