module Network.AWS.CloudSearch.ListDomainNames
(
ListDomainNames
, listDomainNames
, ListDomainNamesResponse
, listDomainNamesResponse
, ldnrDomainNames
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.CloudSearch.Types
import qualified GHC.Exts
data ListDomainNames = ListDomainNames
deriving (Eq, Ord, Show, Generic)
listDomainNames :: ListDomainNames
listDomainNames = ListDomainNames
newtype ListDomainNamesResponse = ListDomainNamesResponse
{ _ldnrDomainNames :: EMap "entry" "key" "value" Text Text
} deriving (Eq, Show, Monoid, Semigroup)
listDomainNamesResponse :: ListDomainNamesResponse
listDomainNamesResponse = ListDomainNamesResponse
{ _ldnrDomainNames = mempty
}
ldnrDomainNames :: Lens' ListDomainNamesResponse (HashMap Text Text)
ldnrDomainNames = lens _ldnrDomainNames (\s a -> s { _ldnrDomainNames = a }) . _EMap
instance ToPath ListDomainNames where
toPath = const "/"
instance ToQuery ListDomainNames where
toQuery = const mempty
instance ToHeaders ListDomainNames
instance AWSRequest ListDomainNames where
type Sv ListDomainNames = CloudSearch
type Rs ListDomainNames = ListDomainNamesResponse
request = post "ListDomainNames"
response = xmlResponse
instance FromXML ListDomainNamesResponse where
parseXML = withElement "ListDomainNamesResult" $ \x -> ListDomainNamesResponse
<$> x .@ "DomainNames"