module Network.AWS.ELB.SetLoadBalancerPoliciesOfListener
(
setLoadBalancerPoliciesOfListener
, SetLoadBalancerPoliciesOfListener
, slbpolLoadBalancerName
, slbpolLoadBalancerPort
, slbpolPolicyNames
, setLoadBalancerPoliciesOfListenerResponse
, SetLoadBalancerPoliciesOfListenerResponse
, slbpolrsStatus
) where
import Network.AWS.ELB.Types
import Network.AWS.ELB.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data SetLoadBalancerPoliciesOfListener = SetLoadBalancerPoliciesOfListener'
{ _slbpolLoadBalancerName :: !Text
, _slbpolLoadBalancerPort :: !Int
, _slbpolPolicyNames :: ![Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
setLoadBalancerPoliciesOfListener
:: Text
-> Int
-> SetLoadBalancerPoliciesOfListener
setLoadBalancerPoliciesOfListener pLoadBalancerName_ pLoadBalancerPort_ =
SetLoadBalancerPoliciesOfListener'
{ _slbpolLoadBalancerName = pLoadBalancerName_
, _slbpolLoadBalancerPort = pLoadBalancerPort_
, _slbpolPolicyNames = mempty
}
slbpolLoadBalancerName :: Lens' SetLoadBalancerPoliciesOfListener Text
slbpolLoadBalancerName = lens _slbpolLoadBalancerName (\ s a -> s{_slbpolLoadBalancerName = a});
slbpolLoadBalancerPort :: Lens' SetLoadBalancerPoliciesOfListener Int
slbpolLoadBalancerPort = lens _slbpolLoadBalancerPort (\ s a -> s{_slbpolLoadBalancerPort = a});
slbpolPolicyNames :: Lens' SetLoadBalancerPoliciesOfListener [Text]
slbpolPolicyNames = lens _slbpolPolicyNames (\ s a -> s{_slbpolPolicyNames = a}) . _Coerce;
instance AWSRequest SetLoadBalancerPoliciesOfListener
where
type Rs SetLoadBalancerPoliciesOfListener =
SetLoadBalancerPoliciesOfListenerResponse
request = postQuery eLB
response
= receiveXMLWrapper
"SetLoadBalancerPoliciesOfListenerResult"
(\ s h x ->
SetLoadBalancerPoliciesOfListenerResponse' <$>
(pure (fromEnum s)))
instance ToHeaders SetLoadBalancerPoliciesOfListener
where
toHeaders = const mempty
instance ToPath SetLoadBalancerPoliciesOfListener
where
toPath = const "/"
instance ToQuery SetLoadBalancerPoliciesOfListener
where
toQuery SetLoadBalancerPoliciesOfListener'{..}
= mconcat
["Action" =:
("SetLoadBalancerPoliciesOfListener" :: ByteString),
"Version" =: ("2012-06-01" :: ByteString),
"LoadBalancerName" =: _slbpolLoadBalancerName,
"LoadBalancerPort" =: _slbpolLoadBalancerPort,
"PolicyNames" =:
toQueryList "member" _slbpolPolicyNames]
newtype SetLoadBalancerPoliciesOfListenerResponse = SetLoadBalancerPoliciesOfListenerResponse'
{ _slbpolrsStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
setLoadBalancerPoliciesOfListenerResponse
:: Int
-> SetLoadBalancerPoliciesOfListenerResponse
setLoadBalancerPoliciesOfListenerResponse pStatus_ =
SetLoadBalancerPoliciesOfListenerResponse'
{ _slbpolrsStatus = pStatus_
}
slbpolrsStatus :: Lens' SetLoadBalancerPoliciesOfListenerResponse Int
slbpolrsStatus = lens _slbpolrsStatus (\ s a -> s{_slbpolrsStatus = a});