{-# 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.DescribeLoadBalancerPolicies
(
describeLoadBalancerPolicies
, DescribeLoadBalancerPolicies
, dlbpPolicyNames
, dlbpLoadBalancerName
, describeLoadBalancerPoliciesResponse
, DescribeLoadBalancerPoliciesResponse
, dlbprsPolicyDescriptions
, dlbprsResponseStatus
) 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 DescribeLoadBalancerPolicies = DescribeLoadBalancerPolicies'
{ _dlbpPolicyNames :: !(Maybe [Text])
, _dlbpLoadBalancerName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeLoadBalancerPolicies
:: DescribeLoadBalancerPolicies
describeLoadBalancerPolicies =
DescribeLoadBalancerPolicies'
{ _dlbpPolicyNames = Nothing
, _dlbpLoadBalancerName = Nothing
}
dlbpPolicyNames :: Lens' DescribeLoadBalancerPolicies [Text]
dlbpPolicyNames = lens _dlbpPolicyNames (\ s a -> s{_dlbpPolicyNames = a}) . _Default . _Coerce;
dlbpLoadBalancerName :: Lens' DescribeLoadBalancerPolicies (Maybe Text)
dlbpLoadBalancerName = lens _dlbpLoadBalancerName (\ s a -> s{_dlbpLoadBalancerName = a});
instance AWSRequest DescribeLoadBalancerPolicies
where
type Rs DescribeLoadBalancerPolicies =
DescribeLoadBalancerPoliciesResponse
request = postQuery elb
response
= receiveXMLWrapper
"DescribeLoadBalancerPoliciesResult"
(\ s h x ->
DescribeLoadBalancerPoliciesResponse' <$>
(x .@? "PolicyDescriptions" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance Hashable DescribeLoadBalancerPolicies
instance NFData DescribeLoadBalancerPolicies
instance ToHeaders DescribeLoadBalancerPolicies where
toHeaders = const mempty
instance ToPath DescribeLoadBalancerPolicies where
toPath = const "/"
instance ToQuery DescribeLoadBalancerPolicies where
toQuery DescribeLoadBalancerPolicies'{..}
= mconcat
["Action" =:
("DescribeLoadBalancerPolicies" :: ByteString),
"Version" =: ("2012-06-01" :: ByteString),
"PolicyNames" =:
toQuery (toQueryList "member" <$> _dlbpPolicyNames),
"LoadBalancerName" =: _dlbpLoadBalancerName]
data DescribeLoadBalancerPoliciesResponse = DescribeLoadBalancerPoliciesResponse'
{ _dlbprsPolicyDescriptions :: !(Maybe [PolicyDescription])
, _dlbprsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeLoadBalancerPoliciesResponse
:: Int
-> DescribeLoadBalancerPoliciesResponse
describeLoadBalancerPoliciesResponse pResponseStatus_ =
DescribeLoadBalancerPoliciesResponse'
{ _dlbprsPolicyDescriptions = Nothing
, _dlbprsResponseStatus = pResponseStatus_
}
dlbprsPolicyDescriptions :: Lens' DescribeLoadBalancerPoliciesResponse [PolicyDescription]
dlbprsPolicyDescriptions = lens _dlbprsPolicyDescriptions (\ s a -> s{_dlbprsPolicyDescriptions = a}) . _Default . _Coerce;
dlbprsResponseStatus :: Lens' DescribeLoadBalancerPoliciesResponse Int
dlbprsResponseStatus = lens _dlbprsResponseStatus (\ s a -> s{_dlbprsResponseStatus = a});
instance NFData DescribeLoadBalancerPoliciesResponse