module Network.AWS.ELB.DescribeLoadBalancerAttributes
(
DescribeLoadBalancerAttributes
, describeLoadBalancerAttributes
, dlbaLoadBalancerName
, DescribeLoadBalancerAttributesResponse
, describeLoadBalancerAttributesResponse
, dlbarLoadBalancerAttributes
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ELB.Types
import qualified GHC.Exts
newtype DescribeLoadBalancerAttributes = DescribeLoadBalancerAttributes
{ _dlbaLoadBalancerName :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
describeLoadBalancerAttributes :: Text
-> DescribeLoadBalancerAttributes
describeLoadBalancerAttributes p1 = DescribeLoadBalancerAttributes
{ _dlbaLoadBalancerName = p1
}
dlbaLoadBalancerName :: Lens' DescribeLoadBalancerAttributes Text
dlbaLoadBalancerName =
lens _dlbaLoadBalancerName (\s a -> s { _dlbaLoadBalancerName = a })
newtype DescribeLoadBalancerAttributesResponse = DescribeLoadBalancerAttributesResponse
{ _dlbarLoadBalancerAttributes :: Maybe LoadBalancerAttributes
} deriving (Eq, Show)
describeLoadBalancerAttributesResponse :: DescribeLoadBalancerAttributesResponse
describeLoadBalancerAttributesResponse = DescribeLoadBalancerAttributesResponse
{ _dlbarLoadBalancerAttributes = Nothing
}
dlbarLoadBalancerAttributes :: Lens' DescribeLoadBalancerAttributesResponse (Maybe LoadBalancerAttributes)
dlbarLoadBalancerAttributes =
lens _dlbarLoadBalancerAttributes
(\s a -> s { _dlbarLoadBalancerAttributes = a })
instance ToPath DescribeLoadBalancerAttributes where
toPath = const "/"
instance ToQuery DescribeLoadBalancerAttributes where
toQuery DescribeLoadBalancerAttributes{..} = mconcat
[ "LoadBalancerName" =? _dlbaLoadBalancerName
]
instance ToHeaders DescribeLoadBalancerAttributes
instance AWSRequest DescribeLoadBalancerAttributes where
type Sv DescribeLoadBalancerAttributes = ELB
type Rs DescribeLoadBalancerAttributes = DescribeLoadBalancerAttributesResponse
request = post "DescribeLoadBalancerAttributes"
response = xmlResponse
instance FromXML DescribeLoadBalancerAttributesResponse where
parseXML = withElement "DescribeLoadBalancerAttributesResult" $ \x -> DescribeLoadBalancerAttributesResponse
<$> x .@? "LoadBalancerAttributes"