module Network.AWS.ELB.CreateLoadBalancerListeners
(
CreateLoadBalancerListeners
, createLoadBalancerListeners
, clblListeners
, clblLoadBalancerName
, CreateLoadBalancerListenersResponse
, createLoadBalancerListenersResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ELB.Types
import qualified GHC.Exts
data CreateLoadBalancerListeners = CreateLoadBalancerListeners
{ _clblListeners :: List "Listeners" Listener
, _clblLoadBalancerName :: Text
} deriving (Eq, Show)
createLoadBalancerListeners :: Text
-> CreateLoadBalancerListeners
createLoadBalancerListeners p1 = CreateLoadBalancerListeners
{ _clblLoadBalancerName = p1
, _clblListeners = mempty
}
clblListeners :: Lens' CreateLoadBalancerListeners [Listener]
clblListeners = lens _clblListeners (\s a -> s { _clblListeners = a }) . _List
clblLoadBalancerName :: Lens' CreateLoadBalancerListeners Text
clblLoadBalancerName =
lens _clblLoadBalancerName (\s a -> s { _clblLoadBalancerName = a })
data CreateLoadBalancerListenersResponse = CreateLoadBalancerListenersResponse
deriving (Eq, Ord, Show, Generic)
createLoadBalancerListenersResponse :: CreateLoadBalancerListenersResponse
createLoadBalancerListenersResponse = CreateLoadBalancerListenersResponse
instance ToPath CreateLoadBalancerListeners where
toPath = const "/"
instance ToQuery CreateLoadBalancerListeners where
toQuery CreateLoadBalancerListeners{..} = mconcat
[ "Listeners" =? _clblListeners
, "LoadBalancerName" =? _clblLoadBalancerName
]
instance ToHeaders CreateLoadBalancerListeners
instance AWSRequest CreateLoadBalancerListeners where
type Sv CreateLoadBalancerListeners = ELB
type Rs CreateLoadBalancerListeners = CreateLoadBalancerListenersResponse
request = post "CreateLoadBalancerListeners"
response = nullResponse CreateLoadBalancerListenersResponse