{-# 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.DescribeLoadBalancerAttributes
(
describeLoadBalancerAttributes
, DescribeLoadBalancerAttributes
, dlbaLoadBalancerName
, describeLoadBalancerAttributesResponse
, DescribeLoadBalancerAttributesResponse
, dlbarsLoadBalancerAttributes
, dlbarsResponseStatus
) 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
newtype DescribeLoadBalancerAttributes = DescribeLoadBalancerAttributes'
{ _dlbaLoadBalancerName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeLoadBalancerAttributes
:: Text
-> DescribeLoadBalancerAttributes
describeLoadBalancerAttributes pLoadBalancerName_ =
DescribeLoadBalancerAttributes'
{ _dlbaLoadBalancerName = pLoadBalancerName_
}
dlbaLoadBalancerName :: Lens' DescribeLoadBalancerAttributes Text
dlbaLoadBalancerName = lens _dlbaLoadBalancerName (\ s a -> s{_dlbaLoadBalancerName = a});
instance AWSRequest DescribeLoadBalancerAttributes
where
type Rs DescribeLoadBalancerAttributes =
DescribeLoadBalancerAttributesResponse
request = postQuery elb
response
= receiveXMLWrapper
"DescribeLoadBalancerAttributesResult"
(\ s h x ->
DescribeLoadBalancerAttributesResponse' <$>
(x .@? "LoadBalancerAttributes") <*>
(pure (fromEnum s)))
instance Hashable DescribeLoadBalancerAttributes
instance NFData DescribeLoadBalancerAttributes
instance ToHeaders DescribeLoadBalancerAttributes
where
toHeaders = const mempty
instance ToPath DescribeLoadBalancerAttributes where
toPath = const "/"
instance ToQuery DescribeLoadBalancerAttributes where
toQuery DescribeLoadBalancerAttributes'{..}
= mconcat
["Action" =:
("DescribeLoadBalancerAttributes" :: ByteString),
"Version" =: ("2012-06-01" :: ByteString),
"LoadBalancerName" =: _dlbaLoadBalancerName]
data DescribeLoadBalancerAttributesResponse = DescribeLoadBalancerAttributesResponse'
{ _dlbarsLoadBalancerAttributes :: !(Maybe LoadBalancerAttributes)
, _dlbarsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeLoadBalancerAttributesResponse
:: Int
-> DescribeLoadBalancerAttributesResponse
describeLoadBalancerAttributesResponse pResponseStatus_ =
DescribeLoadBalancerAttributesResponse'
{ _dlbarsLoadBalancerAttributes = Nothing
, _dlbarsResponseStatus = pResponseStatus_
}
dlbarsLoadBalancerAttributes :: Lens' DescribeLoadBalancerAttributesResponse (Maybe LoadBalancerAttributes)
dlbarsLoadBalancerAttributes = lens _dlbarsLoadBalancerAttributes (\ s a -> s{_dlbarsLoadBalancerAttributes = a});
dlbarsResponseStatus :: Lens' DescribeLoadBalancerAttributesResponse Int
dlbarsResponseStatus = lens _dlbarsResponseStatus (\ s a -> s{_dlbarsResponseStatus = a});
instance NFData
DescribeLoadBalancerAttributesResponse