module Network.AWS.ELB.DeleteLoadBalancerListeners
(
DeleteLoadBalancerListeners
, deleteLoadBalancerListeners
, dlblLoadBalancerName
, dlblLoadBalancerPorts
, DeleteLoadBalancerListenersResponse
, deleteLoadBalancerListenersResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ELB.Types
import qualified GHC.Exts
data DeleteLoadBalancerListeners = DeleteLoadBalancerListeners
{ _dlblLoadBalancerName :: Text
, _dlblLoadBalancerPorts :: List "member" Int
} deriving (Eq, Ord, Show)
deleteLoadBalancerListeners :: Text
-> DeleteLoadBalancerListeners
deleteLoadBalancerListeners p1 = DeleteLoadBalancerListeners
{ _dlblLoadBalancerName = p1
, _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 })
. _List
data DeleteLoadBalancerListenersResponse = DeleteLoadBalancerListenersResponse
deriving (Eq, Ord, Show, Generic)
deleteLoadBalancerListenersResponse :: DeleteLoadBalancerListenersResponse
deleteLoadBalancerListenersResponse = DeleteLoadBalancerListenersResponse
instance ToPath DeleteLoadBalancerListeners where
toPath = const "/"
instance ToQuery DeleteLoadBalancerListeners where
toQuery DeleteLoadBalancerListeners{..} = mconcat
[ "LoadBalancerName" =? _dlblLoadBalancerName
, "LoadBalancerPorts" =? _dlblLoadBalancerPorts
]
instance ToHeaders DeleteLoadBalancerListeners
instance AWSRequest DeleteLoadBalancerListeners where
type Sv DeleteLoadBalancerListeners = ELB
type Rs DeleteLoadBalancerListeners = DeleteLoadBalancerListenersResponse
request = post "DeleteLoadBalancerListeners"
response = nullResponse DeleteLoadBalancerListenersResponse