{-# 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.ELBv2.DescribeLoadBalancerAttributes
(
describeLoadBalancerAttributes
, DescribeLoadBalancerAttributes
, dlbaLoadBalancerARN
, describeLoadBalancerAttributesResponse
, DescribeLoadBalancerAttributesResponse
, dlbarsAttributes
, dlbarsResponseStatus
) where
import Network.AWS.ELBv2.Types
import Network.AWS.ELBv2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeLoadBalancerAttributes = DescribeLoadBalancerAttributes'
{ _dlbaLoadBalancerARN :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeLoadBalancerAttributes
:: Text
-> DescribeLoadBalancerAttributes
describeLoadBalancerAttributes pLoadBalancerARN_ =
DescribeLoadBalancerAttributes' {_dlbaLoadBalancerARN = pLoadBalancerARN_}
dlbaLoadBalancerARN :: Lens' DescribeLoadBalancerAttributes Text
dlbaLoadBalancerARN = lens _dlbaLoadBalancerARN (\ s a -> s{_dlbaLoadBalancerARN = a})
instance AWSRequest DescribeLoadBalancerAttributes
where
type Rs DescribeLoadBalancerAttributes =
DescribeLoadBalancerAttributesResponse
request = postQuery eLBv2
response
= receiveXMLWrapper
"DescribeLoadBalancerAttributesResult"
(\ s h x ->
DescribeLoadBalancerAttributesResponse' <$>
(x .@? "Attributes" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance Hashable DescribeLoadBalancerAttributes
where
instance NFData DescribeLoadBalancerAttributes where
instance ToHeaders DescribeLoadBalancerAttributes
where
toHeaders = const mempty
instance ToPath DescribeLoadBalancerAttributes where
toPath = const "/"
instance ToQuery DescribeLoadBalancerAttributes where
toQuery DescribeLoadBalancerAttributes'{..}
= mconcat
["Action" =:
("DescribeLoadBalancerAttributes" :: ByteString),
"Version" =: ("2015-12-01" :: ByteString),
"LoadBalancerArn" =: _dlbaLoadBalancerARN]
data DescribeLoadBalancerAttributesResponse = DescribeLoadBalancerAttributesResponse'
{ _dlbarsAttributes :: !(Maybe [LoadBalancerAttribute])
, _dlbarsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeLoadBalancerAttributesResponse
:: Int
-> DescribeLoadBalancerAttributesResponse
describeLoadBalancerAttributesResponse pResponseStatus_ =
DescribeLoadBalancerAttributesResponse'
{_dlbarsAttributes = Nothing, _dlbarsResponseStatus = pResponseStatus_}
dlbarsAttributes :: Lens' DescribeLoadBalancerAttributesResponse [LoadBalancerAttribute]
dlbarsAttributes = lens _dlbarsAttributes (\ s a -> s{_dlbarsAttributes = a}) . _Default . _Coerce
dlbarsResponseStatus :: Lens' DescribeLoadBalancerAttributesResponse Int
dlbarsResponseStatus = lens _dlbarsResponseStatus (\ s a -> s{_dlbarsResponseStatus = a})
instance NFData
DescribeLoadBalancerAttributesResponse
where