{-# 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.CreateAppCookieStickinessPolicy
(
createAppCookieStickinessPolicy
, CreateAppCookieStickinessPolicy
, cacspLoadBalancerName
, cacspPolicyName
, cacspCookieName
, createAppCookieStickinessPolicyResponse
, CreateAppCookieStickinessPolicyResponse
, cacsprsResponseStatus
) 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 CreateAppCookieStickinessPolicy = CreateAppCookieStickinessPolicy'
{ _cacspLoadBalancerName :: !Text
, _cacspPolicyName :: !Text
, _cacspCookieName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createAppCookieStickinessPolicy
:: Text
-> Text
-> Text
-> CreateAppCookieStickinessPolicy
createAppCookieStickinessPolicy pLoadBalancerName_ pPolicyName_ pCookieName_ =
CreateAppCookieStickinessPolicy'
{ _cacspLoadBalancerName = pLoadBalancerName_
, _cacspPolicyName = pPolicyName_
, _cacspCookieName = pCookieName_
}
cacspLoadBalancerName :: Lens' CreateAppCookieStickinessPolicy Text
cacspLoadBalancerName = lens _cacspLoadBalancerName (\ s a -> s{_cacspLoadBalancerName = a});
cacspPolicyName :: Lens' CreateAppCookieStickinessPolicy Text
cacspPolicyName = lens _cacspPolicyName (\ s a -> s{_cacspPolicyName = a});
cacspCookieName :: Lens' CreateAppCookieStickinessPolicy Text
cacspCookieName = lens _cacspCookieName (\ s a -> s{_cacspCookieName = a});
instance AWSRequest CreateAppCookieStickinessPolicy
where
type Rs CreateAppCookieStickinessPolicy =
CreateAppCookieStickinessPolicyResponse
request = postQuery elb
response
= receiveXMLWrapper
"CreateAppCookieStickinessPolicyResult"
(\ s h x ->
CreateAppCookieStickinessPolicyResponse' <$>
(pure (fromEnum s)))
instance Hashable CreateAppCookieStickinessPolicy
instance NFData CreateAppCookieStickinessPolicy
instance ToHeaders CreateAppCookieStickinessPolicy
where
toHeaders = const mempty
instance ToPath CreateAppCookieStickinessPolicy where
toPath = const "/"
instance ToQuery CreateAppCookieStickinessPolicy
where
toQuery CreateAppCookieStickinessPolicy'{..}
= mconcat
["Action" =:
("CreateAppCookieStickinessPolicy" :: ByteString),
"Version" =: ("2012-06-01" :: ByteString),
"LoadBalancerName" =: _cacspLoadBalancerName,
"PolicyName" =: _cacspPolicyName,
"CookieName" =: _cacspCookieName]
newtype CreateAppCookieStickinessPolicyResponse = CreateAppCookieStickinessPolicyResponse'
{ _cacsprsResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createAppCookieStickinessPolicyResponse
:: Int
-> CreateAppCookieStickinessPolicyResponse
createAppCookieStickinessPolicyResponse pResponseStatus_ =
CreateAppCookieStickinessPolicyResponse'
{ _cacsprsResponseStatus = pResponseStatus_
}
cacsprsResponseStatus :: Lens' CreateAppCookieStickinessPolicyResponse Int
cacsprsResponseStatus = lens _cacsprsResponseStatus (\ s a -> s{_cacsprsResponseStatus = a});
instance NFData
CreateAppCookieStickinessPolicyResponse