module Network.AWS.ELB.CreateLoadBalancerPolicy
(
CreateLoadBalancerPolicy
, createLoadBalancerPolicy
, clbpLoadBalancerName
, clbpPolicyAttributes
, clbpPolicyName
, clbpPolicyTypeName
, CreateLoadBalancerPolicyResponse
, createLoadBalancerPolicyResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ELB.Types
import qualified GHC.Exts
data CreateLoadBalancerPolicy = CreateLoadBalancerPolicy
{ _clbpLoadBalancerName :: Text
, _clbpPolicyAttributes :: List "member" PolicyAttribute
, _clbpPolicyName :: Text
, _clbpPolicyTypeName :: Text
} deriving (Eq, Show)
createLoadBalancerPolicy :: Text
-> Text
-> Text
-> CreateLoadBalancerPolicy
createLoadBalancerPolicy p1 p2 p3 = CreateLoadBalancerPolicy
{ _clbpLoadBalancerName = p1
, _clbpPolicyName = p2
, _clbpPolicyTypeName = p3
, _clbpPolicyAttributes = mempty
}
clbpLoadBalancerName :: Lens' CreateLoadBalancerPolicy Text
clbpLoadBalancerName =
lens _clbpLoadBalancerName (\s a -> s { _clbpLoadBalancerName = a })
clbpPolicyAttributes :: Lens' CreateLoadBalancerPolicy [PolicyAttribute]
clbpPolicyAttributes =
lens _clbpPolicyAttributes (\s a -> s { _clbpPolicyAttributes = a })
. _List
clbpPolicyName :: Lens' CreateLoadBalancerPolicy Text
clbpPolicyName = lens _clbpPolicyName (\s a -> s { _clbpPolicyName = a })
clbpPolicyTypeName :: Lens' CreateLoadBalancerPolicy Text
clbpPolicyTypeName =
lens _clbpPolicyTypeName (\s a -> s { _clbpPolicyTypeName = a })
data CreateLoadBalancerPolicyResponse = CreateLoadBalancerPolicyResponse
deriving (Eq, Ord, Show, Generic)
createLoadBalancerPolicyResponse :: CreateLoadBalancerPolicyResponse
createLoadBalancerPolicyResponse = CreateLoadBalancerPolicyResponse
instance ToPath CreateLoadBalancerPolicy where
toPath = const "/"
instance ToQuery CreateLoadBalancerPolicy where
toQuery CreateLoadBalancerPolicy{..} = mconcat
[ "LoadBalancerName" =? _clbpLoadBalancerName
, "PolicyAttributes" =? _clbpPolicyAttributes
, "PolicyName" =? _clbpPolicyName
, "PolicyTypeName" =? _clbpPolicyTypeName
]
instance ToHeaders CreateLoadBalancerPolicy
instance AWSRequest CreateLoadBalancerPolicy where
type Sv CreateLoadBalancerPolicy = ELB
type Rs CreateLoadBalancerPolicy = CreateLoadBalancerPolicyResponse
request = post "CreateLoadBalancerPolicy"
response = nullResponse CreateLoadBalancerPolicyResponse