module Network.AWS.RDS.DescribeAccountAttributes
(
DescribeAccountAttributes
, describeAccountAttributes
, DescribeAccountAttributesResponse
, describeAccountAttributesResponse
, daarAccountQuotas
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.RDS.Types
import qualified GHC.Exts
data DescribeAccountAttributes = DescribeAccountAttributes
deriving (Eq, Ord, Read, Show, Generic)
describeAccountAttributes :: DescribeAccountAttributes
describeAccountAttributes = DescribeAccountAttributes
newtype DescribeAccountAttributesResponse = DescribeAccountAttributesResponse
{ _daarAccountQuotas :: List "member" AccountQuota
} deriving (Eq, Read, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeAccountAttributesResponse where
type Item DescribeAccountAttributesResponse = AccountQuota
fromList = DescribeAccountAttributesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _daarAccountQuotas
describeAccountAttributesResponse :: DescribeAccountAttributesResponse
describeAccountAttributesResponse = DescribeAccountAttributesResponse
{ _daarAccountQuotas = mempty
}
daarAccountQuotas :: Lens' DescribeAccountAttributesResponse [AccountQuota]
daarAccountQuotas =
lens _daarAccountQuotas (\s a -> s { _daarAccountQuotas = a })
. _List
instance ToPath DescribeAccountAttributes where
toPath = const "/"
instance ToQuery DescribeAccountAttributes where
toQuery = const mempty
instance ToHeaders DescribeAccountAttributes
instance AWSRequest DescribeAccountAttributes where
type Sv DescribeAccountAttributes = RDS
type Rs DescribeAccountAttributes = DescribeAccountAttributesResponse
request = post "DescribeAccountAttributes"
response = xmlResponse
instance FromXML DescribeAccountAttributesResponse where
parseXML = withElement "DescribeAccountAttributesResult" $ \x -> DescribeAccountAttributesResponse
<$> x .@? "AccountQuotas" .!@ mempty