{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.ELB.DescribeAccountLimits
(
describeAccountLimits
, DescribeAccountLimits
, dalMarker
, dalPageSize
, describeAccountLimitsResponse
, DescribeAccountLimitsResponse
, dalrsLimits
, dalrsNextMarker
, dalrsResponseStatus
) where
import Network.AWS.ELB.Types
import Network.AWS.ELB.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeAccountLimits = DescribeAccountLimits'
{ _dalMarker :: !(Maybe Text)
, _dalPageSize :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAccountLimits
:: DescribeAccountLimits
describeAccountLimits =
DescribeAccountLimits' {_dalMarker = Nothing, _dalPageSize = Nothing}
dalMarker :: Lens' DescribeAccountLimits (Maybe Text)
dalMarker = lens _dalMarker (\ s a -> s{_dalMarker = a})
dalPageSize :: Lens' DescribeAccountLimits (Maybe Natural)
dalPageSize = lens _dalPageSize (\ s a -> s{_dalPageSize = a}) . mapping _Nat
instance AWSRequest DescribeAccountLimits where
type Rs DescribeAccountLimits =
DescribeAccountLimitsResponse
request = postQuery elb
response
= receiveXMLWrapper "DescribeAccountLimitsResult"
(\ s h x ->
DescribeAccountLimitsResponse' <$>
(x .@? "Limits" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "NextMarker")
<*> (pure (fromEnum s)))
instance Hashable DescribeAccountLimits where
instance NFData DescribeAccountLimits where
instance ToHeaders DescribeAccountLimits where
toHeaders = const mempty
instance ToPath DescribeAccountLimits where
toPath = const "/"
instance ToQuery DescribeAccountLimits where
toQuery DescribeAccountLimits'{..}
= mconcat
["Action" =: ("DescribeAccountLimits" :: ByteString),
"Version" =: ("2012-06-01" :: ByteString),
"Marker" =: _dalMarker, "PageSize" =: _dalPageSize]
data DescribeAccountLimitsResponse = DescribeAccountLimitsResponse'
{ _dalrsLimits :: !(Maybe [Limit])
, _dalrsNextMarker :: !(Maybe Text)
, _dalrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAccountLimitsResponse
:: Int
-> DescribeAccountLimitsResponse
describeAccountLimitsResponse pResponseStatus_ =
DescribeAccountLimitsResponse'
{ _dalrsLimits = Nothing
, _dalrsNextMarker = Nothing
, _dalrsResponseStatus = pResponseStatus_
}
dalrsLimits :: Lens' DescribeAccountLimitsResponse [Limit]
dalrsLimits = lens _dalrsLimits (\ s a -> s{_dalrsLimits = a}) . _Default . _Coerce
dalrsNextMarker :: Lens' DescribeAccountLimitsResponse (Maybe Text)
dalrsNextMarker = lens _dalrsNextMarker (\ s a -> s{_dalrsNextMarker = a})
dalrsResponseStatus :: Lens' DescribeAccountLimitsResponse Int
dalrsResponseStatus = lens _dalrsResponseStatus (\ s a -> s{_dalrsResponseStatus = a})
instance NFData DescribeAccountLimitsResponse where