module Network.AWS.ELB.SetLoadBalancerPoliciesOfListener
(
SetLoadBalancerPoliciesOfListener
, setLoadBalancerPoliciesOfListener
, slbpolLoadBalancerName
, slbpolLoadBalancerPort
, slbpolPolicyNames
, SetLoadBalancerPoliciesOfListenerResponse
, setLoadBalancerPoliciesOfListenerResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ELB.Types
import qualified GHC.Exts
data SetLoadBalancerPoliciesOfListener = SetLoadBalancerPoliciesOfListener
{ _slbpolLoadBalancerName :: Text
, _slbpolLoadBalancerPort :: Int
, _slbpolPolicyNames :: List "member" Text
} deriving (Eq, Ord, Show)
setLoadBalancerPoliciesOfListener :: Text
-> Int
-> SetLoadBalancerPoliciesOfListener
setLoadBalancerPoliciesOfListener p1 p2 = SetLoadBalancerPoliciesOfListener
{ _slbpolLoadBalancerName = p1
, _slbpolLoadBalancerPort = p2
, _slbpolPolicyNames = mempty
}
slbpolLoadBalancerName :: Lens' SetLoadBalancerPoliciesOfListener Text
slbpolLoadBalancerName =
lens _slbpolLoadBalancerName (\s a -> s { _slbpolLoadBalancerName = a })
slbpolLoadBalancerPort :: Lens' SetLoadBalancerPoliciesOfListener Int
slbpolLoadBalancerPort =
lens _slbpolLoadBalancerPort (\s a -> s { _slbpolLoadBalancerPort = a })
slbpolPolicyNames :: Lens' SetLoadBalancerPoliciesOfListener [Text]
slbpolPolicyNames =
lens _slbpolPolicyNames (\s a -> s { _slbpolPolicyNames = a })
. _List
data SetLoadBalancerPoliciesOfListenerResponse = SetLoadBalancerPoliciesOfListenerResponse
deriving (Eq, Ord, Show, Generic)
setLoadBalancerPoliciesOfListenerResponse :: SetLoadBalancerPoliciesOfListenerResponse
setLoadBalancerPoliciesOfListenerResponse = SetLoadBalancerPoliciesOfListenerResponse
instance ToPath SetLoadBalancerPoliciesOfListener where
toPath = const "/"
instance ToQuery SetLoadBalancerPoliciesOfListener where
toQuery SetLoadBalancerPoliciesOfListener{..} = mconcat
[ "LoadBalancerName" =? _slbpolLoadBalancerName
, "LoadBalancerPort" =? _slbpolLoadBalancerPort
, "PolicyNames" =? _slbpolPolicyNames
]
instance ToHeaders SetLoadBalancerPoliciesOfListener
instance AWSRequest SetLoadBalancerPoliciesOfListener where
type Sv SetLoadBalancerPoliciesOfListener = ELB
type Rs SetLoadBalancerPoliciesOfListener = SetLoadBalancerPoliciesOfListenerResponse
request = post "SetLoadBalancerPoliciesOfListener"
response = nullResponse SetLoadBalancerPoliciesOfListenerResponse