module Network.AWS.AutoScaling.DescribeAccountLimits
(
describeAccountLimits
, DescribeAccountLimits
, describeAccountLimitsResponse
, DescribeAccountLimitsResponse
, dalrsMaxNumberOfLaunchConfigurations
, dalrsMaxNumberOfAutoScalingGroups
, dalrsStatus
) where
import Network.AWS.AutoScaling.Types
import Network.AWS.AutoScaling.Types.Product
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 .@? "MaxNumberOfLaunchConfigurations") <*>
(x .@? "MaxNumberOfAutoScalingGroups")
<*> (pure (fromEnum s)))
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'
{ _dalrsMaxNumberOfLaunchConfigurations :: !(Maybe Int)
, _dalrsMaxNumberOfAutoScalingGroups :: !(Maybe Int)
, _dalrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAccountLimitsResponse
:: Int
-> DescribeAccountLimitsResponse
describeAccountLimitsResponse pStatus_ =
DescribeAccountLimitsResponse'
{ _dalrsMaxNumberOfLaunchConfigurations = Nothing
, _dalrsMaxNumberOfAutoScalingGroups = Nothing
, _dalrsStatus = pStatus_
}
dalrsMaxNumberOfLaunchConfigurations :: Lens' DescribeAccountLimitsResponse (Maybe Int)
dalrsMaxNumberOfLaunchConfigurations = lens _dalrsMaxNumberOfLaunchConfigurations (\ s a -> s{_dalrsMaxNumberOfLaunchConfigurations = a});
dalrsMaxNumberOfAutoScalingGroups :: Lens' DescribeAccountLimitsResponse (Maybe Int)
dalrsMaxNumberOfAutoScalingGroups = lens _dalrsMaxNumberOfAutoScalingGroups (\ s a -> s{_dalrsMaxNumberOfAutoScalingGroups = a});
dalrsStatus :: Lens' DescribeAccountLimitsResponse Int
dalrsStatus = lens _dalrsStatus (\ s a -> s{_dalrsStatus = a});