module Network.AWS.CloudFormation.DescribeAccountLimits
(
describeAccountLimits
, DescribeAccountLimits
, dalNextToken
, describeAccountLimitsResponse
, DescribeAccountLimitsResponse
, dalrsNextToken
, dalrsAccountLimits
, dalrsResponseStatus
) where
import Network.AWS.CloudFormation.Types
import Network.AWS.CloudFormation.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeAccountLimits = DescribeAccountLimits'
{ _dalNextToken :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAccountLimits
:: DescribeAccountLimits
describeAccountLimits =
DescribeAccountLimits'
{ _dalNextToken = Nothing
}
dalNextToken :: Lens' DescribeAccountLimits (Maybe Text)
dalNextToken = lens _dalNextToken (\ s a -> s{_dalNextToken = a});
instance AWSRequest DescribeAccountLimits where
type Rs DescribeAccountLimits =
DescribeAccountLimitsResponse
request = postQuery cloudFormation
response
= receiveXMLWrapper "DescribeAccountLimitsResult"
(\ s h x ->
DescribeAccountLimitsResponse' <$>
(x .@? "NextToken") <*>
(x .@? "AccountLimits" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance ToHeaders DescribeAccountLimits where
toHeaders = const mempty
instance ToPath DescribeAccountLimits where
toPath = const "/"
instance ToQuery DescribeAccountLimits where
toQuery DescribeAccountLimits'{..}
= mconcat
["Action" =: ("DescribeAccountLimits" :: ByteString),
"Version" =: ("2010-05-15" :: ByteString),
"NextToken" =: _dalNextToken]
data DescribeAccountLimitsResponse = DescribeAccountLimitsResponse'
{ _dalrsNextToken :: !(Maybe Text)
, _dalrsAccountLimits :: !(Maybe [AccountLimit])
, _dalrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAccountLimitsResponse
:: Int
-> DescribeAccountLimitsResponse
describeAccountLimitsResponse pResponseStatus_ =
DescribeAccountLimitsResponse'
{ _dalrsNextToken = Nothing
, _dalrsAccountLimits = Nothing
, _dalrsResponseStatus = pResponseStatus_
}
dalrsNextToken :: Lens' DescribeAccountLimitsResponse (Maybe Text)
dalrsNextToken = lens _dalrsNextToken (\ s a -> s{_dalrsNextToken = a});
dalrsAccountLimits :: Lens' DescribeAccountLimitsResponse [AccountLimit]
dalrsAccountLimits = lens _dalrsAccountLimits (\ s a -> s{_dalrsAccountLimits = a}) . _Default . _Coerce;
dalrsResponseStatus :: Lens' DescribeAccountLimitsResponse Int
dalrsResponseStatus = lens _dalrsResponseStatus (\ s a -> s{_dalrsResponseStatus = a});