module Network.AWS.SNS.ListSubscriptionsByTopic
(
listSubscriptionsByTopic
, ListSubscriptionsByTopic
, lsbtNextToken
, lsbtTopicARN
, listSubscriptionsByTopicResponse
, ListSubscriptionsByTopicResponse
, lsbtrsNextToken
, lsbtrsSubscriptions
, lsbtrsStatus
) where
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SNS.Types
import Network.AWS.SNS.Types.Product
data ListSubscriptionsByTopic = ListSubscriptionsByTopic'
{ _lsbtNextToken :: !(Maybe Text)
, _lsbtTopicARN :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listSubscriptionsByTopic
:: Text
-> ListSubscriptionsByTopic
listSubscriptionsByTopic pTopicARN_ =
ListSubscriptionsByTopic'
{ _lsbtNextToken = Nothing
, _lsbtTopicARN = pTopicARN_
}
lsbtNextToken :: Lens' ListSubscriptionsByTopic (Maybe Text)
lsbtNextToken = lens _lsbtNextToken (\ s a -> s{_lsbtNextToken = a});
lsbtTopicARN :: Lens' ListSubscriptionsByTopic Text
lsbtTopicARN = lens _lsbtTopicARN (\ s a -> s{_lsbtTopicARN = a});
instance AWSPager ListSubscriptionsByTopic where
page rq rs
| stop (rs ^. lsbtrsNextToken) = Nothing
| stop (rs ^. lsbtrsSubscriptions) = Nothing
| otherwise =
Just $ rq & lsbtNextToken .~ rs ^. lsbtrsNextToken
instance AWSRequest ListSubscriptionsByTopic where
type Sv ListSubscriptionsByTopic = SNS
type Rs ListSubscriptionsByTopic =
ListSubscriptionsByTopicResponse
request = postQuery
response
= receiveXMLWrapper "ListSubscriptionsByTopicResult"
(\ s h x ->
ListSubscriptionsByTopicResponse' <$>
(x .@? "NextToken") <*>
(x .@? "Subscriptions" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance ToHeaders ListSubscriptionsByTopic where
toHeaders = const mempty
instance ToPath ListSubscriptionsByTopic where
toPath = const "/"
instance ToQuery ListSubscriptionsByTopic where
toQuery ListSubscriptionsByTopic'{..}
= mconcat
["Action" =:
("ListSubscriptionsByTopic" :: ByteString),
"Version" =: ("2010-03-31" :: ByteString),
"NextToken" =: _lsbtNextToken,
"TopicArn" =: _lsbtTopicARN]
data ListSubscriptionsByTopicResponse = ListSubscriptionsByTopicResponse'
{ _lsbtrsNextToken :: !(Maybe Text)
, _lsbtrsSubscriptions :: !(Maybe [Subscription])
, _lsbtrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listSubscriptionsByTopicResponse
:: Int
-> ListSubscriptionsByTopicResponse
listSubscriptionsByTopicResponse pStatus_ =
ListSubscriptionsByTopicResponse'
{ _lsbtrsNextToken = Nothing
, _lsbtrsSubscriptions = Nothing
, _lsbtrsStatus = pStatus_
}
lsbtrsNextToken :: Lens' ListSubscriptionsByTopicResponse (Maybe Text)
lsbtrsNextToken = lens _lsbtrsNextToken (\ s a -> s{_lsbtrsNextToken = a});
lsbtrsSubscriptions :: Lens' ListSubscriptionsByTopicResponse [Subscription]
lsbtrsSubscriptions = lens _lsbtrsSubscriptions (\ s a -> s{_lsbtrsSubscriptions = a}) . _Default . _Coerce;
lsbtrsStatus :: Lens' ListSubscriptionsByTopicResponse Int
lsbtrsStatus = lens _lsbtrsStatus (\ s a -> s{_lsbtrsStatus = a});