module Network.AWS.CloudFormation.StopStackSetOperation
(
stopStackSetOperation
, StopStackSetOperation
, sssoStackSetName
, sssoOperationId
, stopStackSetOperationResponse
, StopStackSetOperationResponse
, sssorsResponseStatus
) 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 StopStackSetOperation = StopStackSetOperation'
{ _sssoStackSetName :: !Text
, _sssoOperationId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
stopStackSetOperation
:: Text
-> Text
-> StopStackSetOperation
stopStackSetOperation pStackSetName_ pOperationId_ =
StopStackSetOperation'
{_sssoStackSetName = pStackSetName_, _sssoOperationId = pOperationId_}
sssoStackSetName :: Lens' StopStackSetOperation Text
sssoStackSetName = lens _sssoStackSetName (\ s a -> s{_sssoStackSetName = a});
sssoOperationId :: Lens' StopStackSetOperation Text
sssoOperationId = lens _sssoOperationId (\ s a -> s{_sssoOperationId = a});
instance AWSRequest StopStackSetOperation where
type Rs StopStackSetOperation =
StopStackSetOperationResponse
request = postQuery cloudFormation
response
= receiveXMLWrapper "StopStackSetOperationResult"
(\ s h x ->
StopStackSetOperationResponse' <$>
(pure (fromEnum s)))
instance Hashable StopStackSetOperation where
instance NFData StopStackSetOperation where
instance ToHeaders StopStackSetOperation where
toHeaders = const mempty
instance ToPath StopStackSetOperation where
toPath = const "/"
instance ToQuery StopStackSetOperation where
toQuery StopStackSetOperation'{..}
= mconcat
["Action" =: ("StopStackSetOperation" :: ByteString),
"Version" =: ("2010-05-15" :: ByteString),
"StackSetName" =: _sssoStackSetName,
"OperationId" =: _sssoOperationId]
newtype StopStackSetOperationResponse = StopStackSetOperationResponse'
{ _sssorsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
stopStackSetOperationResponse
:: Int
-> StopStackSetOperationResponse
stopStackSetOperationResponse pResponseStatus_ =
StopStackSetOperationResponse' {_sssorsResponseStatus = pResponseStatus_}
sssorsResponseStatus :: Lens' StopStackSetOperationResponse Int
sssorsResponseStatus = lens _sssorsResponseStatus (\ s a -> s{_sssorsResponseStatus = a});
instance NFData StopStackSetOperationResponse where