module Network.AWS.CloudFormation.DescribeStackEvents
(
describeStackEvents
, DescribeStackEvents
, dseNextToken
, dseStackName
, describeStackEventsResponse
, DescribeStackEventsResponse
, dsersNextToken
, dsersStackEvents
, dsersResponseStatus
) where
import Network.AWS.CloudFormation.Types
import Network.AWS.CloudFormation.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeStackEvents = DescribeStackEvents'
{ _dseNextToken :: !(Maybe Text)
, _dseStackName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeStackEvents
:: DescribeStackEvents
describeStackEvents =
DescribeStackEvents' {_dseNextToken = Nothing, _dseStackName = Nothing}
dseNextToken :: Lens' DescribeStackEvents (Maybe Text)
dseNextToken = lens _dseNextToken (\ s a -> s{_dseNextToken = a});
dseStackName :: Lens' DescribeStackEvents (Maybe Text)
dseStackName = lens _dseStackName (\ s a -> s{_dseStackName = a});
instance AWSPager DescribeStackEvents where
page rq rs
| stop (rs ^. dsersNextToken) = Nothing
| stop (rs ^. dsersStackEvents) = Nothing
| otherwise =
Just $ rq & dseNextToken .~ rs ^. dsersNextToken
instance AWSRequest DescribeStackEvents where
type Rs DescribeStackEvents =
DescribeStackEventsResponse
request = postQuery cloudFormation
response
= receiveXMLWrapper "DescribeStackEventsResult"
(\ s h x ->
DescribeStackEventsResponse' <$>
(x .@? "NextToken") <*>
(x .@? "StackEvents" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance Hashable DescribeStackEvents where
instance NFData DescribeStackEvents where
instance ToHeaders DescribeStackEvents where
toHeaders = const mempty
instance ToPath DescribeStackEvents where
toPath = const "/"
instance ToQuery DescribeStackEvents where
toQuery DescribeStackEvents'{..}
= mconcat
["Action" =: ("DescribeStackEvents" :: ByteString),
"Version" =: ("2010-05-15" :: ByteString),
"NextToken" =: _dseNextToken,
"StackName" =: _dseStackName]
data DescribeStackEventsResponse = DescribeStackEventsResponse'
{ _dsersNextToken :: !(Maybe Text)
, _dsersStackEvents :: !(Maybe [StackEvent])
, _dsersResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeStackEventsResponse
:: Int
-> DescribeStackEventsResponse
describeStackEventsResponse pResponseStatus_ =
DescribeStackEventsResponse'
{ _dsersNextToken = Nothing
, _dsersStackEvents = Nothing
, _dsersResponseStatus = pResponseStatus_
}
dsersNextToken :: Lens' DescribeStackEventsResponse (Maybe Text)
dsersNextToken = lens _dsersNextToken (\ s a -> s{_dsersNextToken = a});
dsersStackEvents :: Lens' DescribeStackEventsResponse [StackEvent]
dsersStackEvents = lens _dsersStackEvents (\ s a -> s{_dsersStackEvents = a}) . _Default . _Coerce;
dsersResponseStatus :: Lens' DescribeStackEventsResponse Int
dsersResponseStatus = lens _dsersResponseStatus (\ s a -> s{_dsersResponseStatus = a});
instance NFData DescribeStackEventsResponse where