{-# 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.ListStackSetOperationResults
(
listStackSetOperationResults
, ListStackSetOperationResults
, lssorNextToken
, lssorMaxResults
, lssorStackSetName
, lssorOperationId
, listStackSetOperationResultsResponse
, ListStackSetOperationResultsResponse
, lssorrsNextToken
, lssorrsSummaries
, lssorrsResponseStatus
) 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 ListStackSetOperationResults = ListStackSetOperationResults'
{ _lssorNextToken :: !(Maybe Text)
, _lssorMaxResults :: !(Maybe Nat)
, _lssorStackSetName :: !Text
, _lssorOperationId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listStackSetOperationResults
:: Text
-> Text
-> ListStackSetOperationResults
listStackSetOperationResults pStackSetName_ pOperationId_ =
ListStackSetOperationResults'
{ _lssorNextToken = Nothing
, _lssorMaxResults = Nothing
, _lssorStackSetName = pStackSetName_
, _lssorOperationId = pOperationId_
}
lssorNextToken :: Lens' ListStackSetOperationResults (Maybe Text)
lssorNextToken = lens _lssorNextToken (\ s a -> s{_lssorNextToken = a})
lssorMaxResults :: Lens' ListStackSetOperationResults (Maybe Natural)
lssorMaxResults = lens _lssorMaxResults (\ s a -> s{_lssorMaxResults = a}) . mapping _Nat
lssorStackSetName :: Lens' ListStackSetOperationResults Text
lssorStackSetName = lens _lssorStackSetName (\ s a -> s{_lssorStackSetName = a})
lssorOperationId :: Lens' ListStackSetOperationResults Text
lssorOperationId = lens _lssorOperationId (\ s a -> s{_lssorOperationId = a})
instance AWSRequest ListStackSetOperationResults
where
type Rs ListStackSetOperationResults =
ListStackSetOperationResultsResponse
request = postQuery cloudFormation
response
= receiveXMLWrapper
"ListStackSetOperationResultsResult"
(\ s h x ->
ListStackSetOperationResultsResponse' <$>
(x .@? "NextToken") <*>
(x .@? "Summaries" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance Hashable ListStackSetOperationResults where
instance NFData ListStackSetOperationResults where
instance ToHeaders ListStackSetOperationResults where
toHeaders = const mempty
instance ToPath ListStackSetOperationResults where
toPath = const "/"
instance ToQuery ListStackSetOperationResults where
toQuery ListStackSetOperationResults'{..}
= mconcat
["Action" =:
("ListStackSetOperationResults" :: ByteString),
"Version" =: ("2010-05-15" :: ByteString),
"NextToken" =: _lssorNextToken,
"MaxResults" =: _lssorMaxResults,
"StackSetName" =: _lssorStackSetName,
"OperationId" =: _lssorOperationId]
data ListStackSetOperationResultsResponse = ListStackSetOperationResultsResponse'
{ _lssorrsNextToken :: !(Maybe Text)
, _lssorrsSummaries :: !(Maybe [StackSetOperationResultSummary])
, _lssorrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listStackSetOperationResultsResponse
:: Int
-> ListStackSetOperationResultsResponse
listStackSetOperationResultsResponse pResponseStatus_ =
ListStackSetOperationResultsResponse'
{ _lssorrsNextToken = Nothing
, _lssorrsSummaries = Nothing
, _lssorrsResponseStatus = pResponseStatus_
}
lssorrsNextToken :: Lens' ListStackSetOperationResultsResponse (Maybe Text)
lssorrsNextToken = lens _lssorrsNextToken (\ s a -> s{_lssorrsNextToken = a})
lssorrsSummaries :: Lens' ListStackSetOperationResultsResponse [StackSetOperationResultSummary]
lssorrsSummaries = lens _lssorrsSummaries (\ s a -> s{_lssorrsSummaries = a}) . _Default . _Coerce
lssorrsResponseStatus :: Lens' ListStackSetOperationResultsResponse Int
lssorrsResponseStatus = lens _lssorrsResponseStatus (\ s a -> s{_lssorrsResponseStatus = a})
instance NFData ListStackSetOperationResultsResponse
where