{-# 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.CloudFormation.ExecuteChangeSet
(
executeChangeSet
, ExecuteChangeSet
, ecsStackName
, ecsChangeSetName
, executeChangeSetResponse
, ExecuteChangeSetResponse
, ecsrsResponseStatus
) 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 ExecuteChangeSet = ExecuteChangeSet'
{ _ecsStackName :: !(Maybe Text)
, _ecsChangeSetName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
executeChangeSet
:: Text
-> ExecuteChangeSet
executeChangeSet pChangeSetName_ =
ExecuteChangeSet'
{ _ecsStackName = Nothing
, _ecsChangeSetName = pChangeSetName_
}
ecsStackName :: Lens' ExecuteChangeSet (Maybe Text)
ecsStackName = lens _ecsStackName (\ s a -> s{_ecsStackName = a});
ecsChangeSetName :: Lens' ExecuteChangeSet Text
ecsChangeSetName = lens _ecsChangeSetName (\ s a -> s{_ecsChangeSetName = a});
instance AWSRequest ExecuteChangeSet where
type Rs ExecuteChangeSet = ExecuteChangeSetResponse
request = postQuery cloudFormation
response
= receiveXMLWrapper "ExecuteChangeSetResult"
(\ s h x ->
ExecuteChangeSetResponse' <$> (pure (fromEnum s)))
instance Hashable ExecuteChangeSet
instance NFData ExecuteChangeSet
instance ToHeaders ExecuteChangeSet where
toHeaders = const mempty
instance ToPath ExecuteChangeSet where
toPath = const "/"
instance ToQuery ExecuteChangeSet where
toQuery ExecuteChangeSet'{..}
= mconcat
["Action" =: ("ExecuteChangeSet" :: ByteString),
"Version" =: ("2010-05-15" :: ByteString),
"StackName" =: _ecsStackName,
"ChangeSetName" =: _ecsChangeSetName]
newtype ExecuteChangeSetResponse = ExecuteChangeSetResponse'
{ _ecsrsResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
executeChangeSetResponse
:: Int
-> ExecuteChangeSetResponse
executeChangeSetResponse pResponseStatus_ =
ExecuteChangeSetResponse'
{ _ecsrsResponseStatus = pResponseStatus_
}
ecsrsResponseStatus :: Lens' ExecuteChangeSetResponse Int
ecsrsResponseStatus = lens _ecsrsResponseStatus (\ s a -> s{_ecsrsResponseStatus = a});
instance NFData ExecuteChangeSetResponse