module Network.AWS.CloudSearch.ListDomainNames
(
listDomainNames
, ListDomainNames
, listDomainNamesResponse
, ListDomainNamesResponse
, ldnrsDomainNames
, ldnrsResponseStatus
) where
import Network.AWS.CloudSearch.Types
import Network.AWS.CloudSearch.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListDomainNames =
ListDomainNames'
deriving (Eq,Read,Show,Data,Typeable,Generic)
listDomainNames
:: ListDomainNames
listDomainNames = ListDomainNames'
instance AWSRequest ListDomainNames where
type Rs ListDomainNames = ListDomainNamesResponse
request = postQuery cloudSearch
response
= receiveXMLWrapper "ListDomainNamesResult"
(\ s h x ->
ListDomainNamesResponse' <$>
(x .@? "DomainNames" .!@ mempty >>=
may (parseXMLMap "entry" "key" "value"))
<*> (pure (fromEnum s)))
instance ToHeaders ListDomainNames where
toHeaders = const mempty
instance ToPath ListDomainNames where
toPath = const "/"
instance ToQuery ListDomainNames where
toQuery
= const
(mconcat
["Action" =: ("ListDomainNames" :: ByteString),
"Version" =: ("2013-01-01" :: ByteString)])
data ListDomainNamesResponse = ListDomainNamesResponse'
{ _ldnrsDomainNames :: !(Maybe (Map Text Text))
, _ldnrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listDomainNamesResponse
:: Int
-> ListDomainNamesResponse
listDomainNamesResponse pResponseStatus_ =
ListDomainNamesResponse'
{ _ldnrsDomainNames = Nothing
, _ldnrsResponseStatus = pResponseStatus_
}
ldnrsDomainNames :: Lens' ListDomainNamesResponse (HashMap Text Text)
ldnrsDomainNames = lens _ldnrsDomainNames (\ s a -> s{_ldnrsDomainNames = a}) . _Default . _Map;
ldnrsResponseStatus :: Lens' ListDomainNamesResponse Int
ldnrsResponseStatus = lens _ldnrsResponseStatus (\ s a -> s{_ldnrsResponseStatus = a});