module Network.AWS.SDB.ListDomains
(
listDomains
, ListDomains
, ldMaxNumberOfDomains
, ldNextToken
, listDomainsResponse
, ListDomainsResponse
, ldrsDomainNames
, ldrsNextToken
, ldrsResponseStatus
) where
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SDB.Types
import Network.AWS.SDB.Types.Product
data ListDomains = ListDomains'
{ _ldMaxNumberOfDomains :: !(Maybe Int)
, _ldNextToken :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listDomains
:: ListDomains
listDomains =
ListDomains'
{ _ldMaxNumberOfDomains = Nothing
, _ldNextToken = Nothing
}
ldMaxNumberOfDomains :: Lens' ListDomains (Maybe Int)
ldMaxNumberOfDomains = lens _ldMaxNumberOfDomains (\ s a -> s{_ldMaxNumberOfDomains = a});
ldNextToken :: Lens' ListDomains (Maybe Text)
ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a});
instance AWSPager ListDomains where
page rq rs
| stop (rs ^. ldrsNextToken) = Nothing
| stop (rs ^. ldrsDomainNames) = Nothing
| otherwise =
Just $ rq & ldNextToken .~ rs ^. ldrsNextToken
instance AWSRequest ListDomains where
type Rs ListDomains = ListDomainsResponse
request = postQuery sDB
response
= receiveXMLWrapper "ListDomainsResult"
(\ s h x ->
ListDomainsResponse' <$>
(may (parseXMLList "DomainName") x) <*>
(x .@? "NextToken")
<*> (pure (fromEnum s)))
instance ToHeaders ListDomains where
toHeaders = const mempty
instance ToPath ListDomains where
toPath = const "/"
instance ToQuery ListDomains where
toQuery ListDomains'{..}
= mconcat
["Action" =: ("ListDomains" :: ByteString),
"Version" =: ("2009-04-15" :: ByteString),
"MaxNumberOfDomains" =: _ldMaxNumberOfDomains,
"NextToken" =: _ldNextToken]
data ListDomainsResponse = ListDomainsResponse'
{ _ldrsDomainNames :: !(Maybe [Text])
, _ldrsNextToken :: !(Maybe Text)
, _ldrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listDomainsResponse
:: Int
-> ListDomainsResponse
listDomainsResponse pResponseStatus_ =
ListDomainsResponse'
{ _ldrsDomainNames = Nothing
, _ldrsNextToken = Nothing
, _ldrsResponseStatus = pResponseStatus_
}
ldrsDomainNames :: Lens' ListDomainsResponse [Text]
ldrsDomainNames = lens _ldrsDomainNames (\ s a -> s{_ldrsDomainNames = a}) . _Default . _Coerce;
ldrsNextToken :: Lens' ListDomainsResponse (Maybe Text)
ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a});
ldrsResponseStatus :: Lens' ListDomainsResponse Int
ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});