module Network.AWS.ELB.DeleteLoadBalancerPolicy
(
deleteLoadBalancerPolicy
, DeleteLoadBalancerPolicy
, dLoadBalancerName
, dPolicyName
, deleteLoadBalancerPolicyResponse
, DeleteLoadBalancerPolicyResponse
, delrsResponseStatus
) 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 DeleteLoadBalancerPolicy = DeleteLoadBalancerPolicy'
{ _dLoadBalancerName :: !Text
, _dPolicyName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteLoadBalancerPolicy
:: Text
-> Text
-> DeleteLoadBalancerPolicy
deleteLoadBalancerPolicy pLoadBalancerName_ pPolicyName_ =
DeleteLoadBalancerPolicy'
{ _dLoadBalancerName = pLoadBalancerName_
, _dPolicyName = pPolicyName_
}
dLoadBalancerName :: Lens' DeleteLoadBalancerPolicy Text
dLoadBalancerName = lens _dLoadBalancerName (\ s a -> s{_dLoadBalancerName = a});
dPolicyName :: Lens' DeleteLoadBalancerPolicy Text
dPolicyName = lens _dPolicyName (\ s a -> s{_dPolicyName = a});
instance AWSRequest DeleteLoadBalancerPolicy where
type Rs DeleteLoadBalancerPolicy =
DeleteLoadBalancerPolicyResponse
request = postQuery eLB
response
= receiveXMLWrapper "DeleteLoadBalancerPolicyResult"
(\ s h x ->
DeleteLoadBalancerPolicyResponse' <$>
(pure (fromEnum s)))
instance ToHeaders DeleteLoadBalancerPolicy where
toHeaders = const mempty
instance ToPath DeleteLoadBalancerPolicy where
toPath = const "/"
instance ToQuery DeleteLoadBalancerPolicy where
toQuery DeleteLoadBalancerPolicy'{..}
= mconcat
["Action" =:
("DeleteLoadBalancerPolicy" :: ByteString),
"Version" =: ("2012-06-01" :: ByteString),
"LoadBalancerName" =: _dLoadBalancerName,
"PolicyName" =: _dPolicyName]
newtype DeleteLoadBalancerPolicyResponse = DeleteLoadBalancerPolicyResponse'
{ _delrsResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteLoadBalancerPolicyResponse
:: Int
-> DeleteLoadBalancerPolicyResponse
deleteLoadBalancerPolicyResponse pResponseStatus_ =
DeleteLoadBalancerPolicyResponse'
{ _delrsResponseStatus = pResponseStatus_
}
delrsResponseStatus :: Lens' DeleteLoadBalancerPolicyResponse Int
delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});