{-# 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.DeleteLoadBalancerPolicy
(
deleteLoadBalancerPolicy
, DeleteLoadBalancerPolicy
, dLoadBalancerName
, dPolicyName
, deleteLoadBalancerPolicyResponse
, DeleteLoadBalancerPolicyResponse
, delrsResponseStatus
) 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 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 Hashable DeleteLoadBalancerPolicy where
instance NFData DeleteLoadBalancerPolicy where
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})
instance NFData DeleteLoadBalancerPolicyResponse
where