module Network.AWS.SNS.ListSubscriptions
(
ListSubscriptions
, listSubscriptions
, lsNextToken
, ListSubscriptionsResponse
, listSubscriptionsResponse
, lsrNextToken
, lsrSubscriptions
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.SNS.Types
import qualified GHC.Exts
newtype ListSubscriptions = ListSubscriptions
{ _lsNextToken :: Maybe Text
} deriving (Eq, Ord, Show, Monoid)
listSubscriptions :: ListSubscriptions
listSubscriptions = ListSubscriptions
{ _lsNextToken = Nothing
}
lsNextToken :: Lens' ListSubscriptions (Maybe Text)
lsNextToken = lens _lsNextToken (\s a -> s { _lsNextToken = a })
data ListSubscriptionsResponse = ListSubscriptionsResponse
{ _lsrNextToken :: Maybe Text
, _lsrSubscriptions :: List "member" Subscription
} deriving (Eq, Show)
listSubscriptionsResponse :: ListSubscriptionsResponse
listSubscriptionsResponse = ListSubscriptionsResponse
{ _lsrSubscriptions = mempty
, _lsrNextToken = Nothing
}
lsrNextToken :: Lens' ListSubscriptionsResponse (Maybe Text)
lsrNextToken = lens _lsrNextToken (\s a -> s { _lsrNextToken = a })
lsrSubscriptions :: Lens' ListSubscriptionsResponse [Subscription]
lsrSubscriptions = lens _lsrSubscriptions (\s a -> s { _lsrSubscriptions = a }) . _List
instance ToPath ListSubscriptions where
toPath = const "/"
instance ToQuery ListSubscriptions where
toQuery ListSubscriptions{..} = mconcat
[ "NextToken" =? _lsNextToken
]
instance ToHeaders ListSubscriptions
instance AWSRequest ListSubscriptions where
type Sv ListSubscriptions = SNS
type Rs ListSubscriptions = ListSubscriptionsResponse
request = post "ListSubscriptions"
response = xmlResponse
instance FromXML ListSubscriptionsResponse where
parseXML = withElement "ListSubscriptionsResult" $ \x -> ListSubscriptionsResponse
<$> x .@? "NextToken"
<*> x .@ "Subscriptions"
instance AWSPager ListSubscriptions where
page rq rs
| stop (rq ^. lsNextToken) = Nothing
| otherwise = (\x -> rq & lsNextToken ?~ x)
<$> (rs ^. lsrNextToken)