module Network.AWS.CloudFormation.DescribeStackSetOperation
(
describeStackSetOperation
, DescribeStackSetOperation
, dssoStackSetName
, dssoOperationId
, describeStackSetOperationResponse
, DescribeStackSetOperationResponse
, dssorsStackSetOperation
, dssorsResponseStatus
) 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 DescribeStackSetOperation = DescribeStackSetOperation'
{ _dssoStackSetName :: !Text
, _dssoOperationId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeStackSetOperation
:: Text
-> Text
-> DescribeStackSetOperation
describeStackSetOperation pStackSetName_ pOperationId_ =
DescribeStackSetOperation'
{_dssoStackSetName = pStackSetName_, _dssoOperationId = pOperationId_}
dssoStackSetName :: Lens' DescribeStackSetOperation Text
dssoStackSetName = lens _dssoStackSetName (\ s a -> s{_dssoStackSetName = a});
dssoOperationId :: Lens' DescribeStackSetOperation Text
dssoOperationId = lens _dssoOperationId (\ s a -> s{_dssoOperationId = a});
instance AWSRequest DescribeStackSetOperation where
type Rs DescribeStackSetOperation =
DescribeStackSetOperationResponse
request = postQuery cloudFormation
response
= receiveXMLWrapper "DescribeStackSetOperationResult"
(\ s h x ->
DescribeStackSetOperationResponse' <$>
(x .@? "StackSetOperation") <*> (pure (fromEnum s)))
instance Hashable DescribeStackSetOperation where
instance NFData DescribeStackSetOperation where
instance ToHeaders DescribeStackSetOperation where
toHeaders = const mempty
instance ToPath DescribeStackSetOperation where
toPath = const "/"
instance ToQuery DescribeStackSetOperation where
toQuery DescribeStackSetOperation'{..}
= mconcat
["Action" =:
("DescribeStackSetOperation" :: ByteString),
"Version" =: ("2010-05-15" :: ByteString),
"StackSetName" =: _dssoStackSetName,
"OperationId" =: _dssoOperationId]
data DescribeStackSetOperationResponse = DescribeStackSetOperationResponse'
{ _dssorsStackSetOperation :: !(Maybe StackSetOperation)
, _dssorsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeStackSetOperationResponse
:: Int
-> DescribeStackSetOperationResponse
describeStackSetOperationResponse pResponseStatus_ =
DescribeStackSetOperationResponse'
{_dssorsStackSetOperation = Nothing, _dssorsResponseStatus = pResponseStatus_}
dssorsStackSetOperation :: Lens' DescribeStackSetOperationResponse (Maybe StackSetOperation)
dssorsStackSetOperation = lens _dssorsStackSetOperation (\ s a -> s{_dssorsStackSetOperation = a});
dssorsResponseStatus :: Lens' DescribeStackSetOperationResponse Int
dssorsResponseStatus = lens _dssorsResponseStatus (\ s a -> s{_dssorsResponseStatus = a});
instance NFData DescribeStackSetOperationResponse
where