module Network.AWS.AutoScaling.DescribeAccountLimits
(
describeAccountLimits
, DescribeAccountLimits
, describeAccountLimitsResponse
, DescribeAccountLimitsResponse
, dalrsNumberOfLaunchConfigurations
, dalrsNumberOfAutoScalingGroups
, dalrsMaxNumberOfAutoScalingGroups
, dalrsMaxNumberOfLaunchConfigurations
, dalrsResponseStatus
) where
import Network.AWS.AutoScaling.Types
import Network.AWS.AutoScaling.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeAccountLimits =
DescribeAccountLimits'
deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAccountLimits
:: DescribeAccountLimits
describeAccountLimits = DescribeAccountLimits'
instance AWSRequest DescribeAccountLimits where
type Rs DescribeAccountLimits =
DescribeAccountLimitsResponse
request = postQuery autoScaling
response
= receiveXMLWrapper "DescribeAccountLimitsResult"
(\ s h x ->
DescribeAccountLimitsResponse' <$>
(x .@? "NumberOfLaunchConfigurations") <*>
(x .@? "NumberOfAutoScalingGroups")
<*> (x .@? "MaxNumberOfAutoScalingGroups")
<*> (x .@? "MaxNumberOfLaunchConfigurations")
<*> (pure (fromEnum s)))
instance Hashable DescribeAccountLimits
instance NFData DescribeAccountLimits
instance ToHeaders DescribeAccountLimits where
toHeaders = const mempty
instance ToPath DescribeAccountLimits where
toPath = const "/"
instance ToQuery DescribeAccountLimits where
toQuery
= const
(mconcat
["Action" =: ("DescribeAccountLimits" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString)])
data DescribeAccountLimitsResponse = DescribeAccountLimitsResponse'
{ _dalrsNumberOfLaunchConfigurations :: !(Maybe Int)
, _dalrsNumberOfAutoScalingGroups :: !(Maybe Int)
, _dalrsMaxNumberOfAutoScalingGroups :: !(Maybe Int)
, _dalrsMaxNumberOfLaunchConfigurations :: !(Maybe Int)
, _dalrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAccountLimitsResponse
:: Int
-> DescribeAccountLimitsResponse
describeAccountLimitsResponse pResponseStatus_ =
DescribeAccountLimitsResponse'
{ _dalrsNumberOfLaunchConfigurations = Nothing
, _dalrsNumberOfAutoScalingGroups = Nothing
, _dalrsMaxNumberOfAutoScalingGroups = Nothing
, _dalrsMaxNumberOfLaunchConfigurations = Nothing
, _dalrsResponseStatus = pResponseStatus_
}
dalrsNumberOfLaunchConfigurations :: Lens' DescribeAccountLimitsResponse (Maybe Int)
dalrsNumberOfLaunchConfigurations = lens _dalrsNumberOfLaunchConfigurations (\ s a -> s{_dalrsNumberOfLaunchConfigurations = a});
dalrsNumberOfAutoScalingGroups :: Lens' DescribeAccountLimitsResponse (Maybe Int)
dalrsNumberOfAutoScalingGroups = lens _dalrsNumberOfAutoScalingGroups (\ s a -> s{_dalrsNumberOfAutoScalingGroups = a});
dalrsMaxNumberOfAutoScalingGroups :: Lens' DescribeAccountLimitsResponse (Maybe Int)
dalrsMaxNumberOfAutoScalingGroups = lens _dalrsMaxNumberOfAutoScalingGroups (\ s a -> s{_dalrsMaxNumberOfAutoScalingGroups = a});
dalrsMaxNumberOfLaunchConfigurations :: Lens' DescribeAccountLimitsResponse (Maybe Int)
dalrsMaxNumberOfLaunchConfigurations = lens _dalrsMaxNumberOfLaunchConfigurations (\ s a -> s{_dalrsMaxNumberOfLaunchConfigurations = a});
dalrsResponseStatus :: Lens' DescribeAccountLimitsResponse Int
dalrsResponseStatus = lens _dalrsResponseStatus (\ s a -> s{_dalrsResponseStatus = a});
instance NFData DescribeAccountLimitsResponse