module Network.AWS.CloudFormation.SetStackPolicy
(
setStackPolicy
, SetStackPolicy
, sspStackPolicyBody
, sspStackPolicyURL
, sspStackName
, setStackPolicyResponse
, SetStackPolicyResponse
) where
import Network.AWS.CloudFormation.Types
import Network.AWS.CloudFormation.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data SetStackPolicy = SetStackPolicy'
{ _sspStackPolicyBody :: !(Maybe Text)
, _sspStackPolicyURL :: !(Maybe Text)
, _sspStackName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
setStackPolicy
:: Text
-> SetStackPolicy
setStackPolicy pStackName_ =
SetStackPolicy'
{ _sspStackPolicyBody = Nothing
, _sspStackPolicyURL = Nothing
, _sspStackName = pStackName_
}
sspStackPolicyBody :: Lens' SetStackPolicy (Maybe Text)
sspStackPolicyBody = lens _sspStackPolicyBody (\ s a -> s{_sspStackPolicyBody = a});
sspStackPolicyURL :: Lens' SetStackPolicy (Maybe Text)
sspStackPolicyURL = lens _sspStackPolicyURL (\ s a -> s{_sspStackPolicyURL = a});
sspStackName :: Lens' SetStackPolicy Text
sspStackName = lens _sspStackName (\ s a -> s{_sspStackName = a});
instance AWSRequest SetStackPolicy where
type Rs SetStackPolicy = SetStackPolicyResponse
request = postQuery cloudFormation
response = receiveNull SetStackPolicyResponse'
instance Hashable SetStackPolicy
instance NFData SetStackPolicy
instance ToHeaders SetStackPolicy where
toHeaders = const mempty
instance ToPath SetStackPolicy where
toPath = const "/"
instance ToQuery SetStackPolicy where
toQuery SetStackPolicy'{..}
= mconcat
["Action" =: ("SetStackPolicy" :: ByteString),
"Version" =: ("2010-05-15" :: ByteString),
"StackPolicyBody" =: _sspStackPolicyBody,
"StackPolicyURL" =: _sspStackPolicyURL,
"StackName" =: _sspStackName]
data SetStackPolicyResponse =
SetStackPolicyResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
setStackPolicyResponse
:: SetStackPolicyResponse
setStackPolicyResponse = SetStackPolicyResponse'
instance NFData SetStackPolicyResponse