{-# 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.SDB.ListDomains
(
listDomains
, ListDomains
, ldMaxNumberOfDomains
, ldNextToken
, listDomainsResponse
, ListDomainsResponse
, ldrsDomainNames
, ldrsNextToken
, ldrsResponseStatus
) where
import Network.AWS.Lens
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 Hashable ListDomains where
instance NFData ListDomains where
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})
instance NFData ListDomainsResponse where