{-# 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.DeleteLoadBalancerListeners
(
deleteLoadBalancerListeners
, DeleteLoadBalancerListeners
, dlblLoadBalancerName
, dlblLoadBalancerPorts
, deleteLoadBalancerListenersResponse
, DeleteLoadBalancerListenersResponse
, dlblrsResponseStatus
) 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 DeleteLoadBalancerListeners = DeleteLoadBalancerListeners'
{ _dlblLoadBalancerName :: !Text
, _dlblLoadBalancerPorts :: ![Int]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteLoadBalancerListeners
:: Text
-> DeleteLoadBalancerListeners
deleteLoadBalancerListeners pLoadBalancerName_ =
DeleteLoadBalancerListeners'
{ _dlblLoadBalancerName = pLoadBalancerName_
, _dlblLoadBalancerPorts = mempty
}
dlblLoadBalancerName :: Lens' DeleteLoadBalancerListeners Text
dlblLoadBalancerName = lens _dlblLoadBalancerName (\ s a -> s{_dlblLoadBalancerName = a})
dlblLoadBalancerPorts :: Lens' DeleteLoadBalancerListeners [Int]
dlblLoadBalancerPorts = lens _dlblLoadBalancerPorts (\ s a -> s{_dlblLoadBalancerPorts = a}) . _Coerce
instance AWSRequest DeleteLoadBalancerListeners where
type Rs DeleteLoadBalancerListeners =
DeleteLoadBalancerListenersResponse
request = postQuery elb
response
= receiveXMLWrapper
"DeleteLoadBalancerListenersResult"
(\ s h x ->
DeleteLoadBalancerListenersResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteLoadBalancerListeners where
instance NFData DeleteLoadBalancerListeners where
instance ToHeaders DeleteLoadBalancerListeners where
toHeaders = const mempty
instance ToPath DeleteLoadBalancerListeners where
toPath = const "/"
instance ToQuery DeleteLoadBalancerListeners where
toQuery DeleteLoadBalancerListeners'{..}
= mconcat
["Action" =:
("DeleteLoadBalancerListeners" :: ByteString),
"Version" =: ("2012-06-01" :: ByteString),
"LoadBalancerName" =: _dlblLoadBalancerName,
"LoadBalancerPorts" =:
toQueryList "member" _dlblLoadBalancerPorts]
newtype DeleteLoadBalancerListenersResponse = DeleteLoadBalancerListenersResponse'
{ _dlblrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteLoadBalancerListenersResponse
:: Int
-> DeleteLoadBalancerListenersResponse
deleteLoadBalancerListenersResponse pResponseStatus_ =
DeleteLoadBalancerListenersResponse'
{_dlblrsResponseStatus = pResponseStatus_}
dlblrsResponseStatus :: Lens' DeleteLoadBalancerListenersResponse Int
dlblrsResponseStatus = lens _dlblrsResponseStatus (\ s a -> s{_dlblrsResponseStatus = a})
instance NFData DeleteLoadBalancerListenersResponse
where