{-# 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.ElasticSearch.ListDomainNames
(
listDomainNames
, ListDomainNames
, listDomainNamesResponse
, ListDomainNamesResponse
, ldnrsDomainNames
, ldnrsResponseStatus
) where
import Network.AWS.ElasticSearch.Types
import Network.AWS.ElasticSearch.Types.Product
import Network.AWS.Lens
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 = get elasticSearch
response
= receiveJSON
(\ s h x ->
ListDomainNamesResponse' <$>
(x .?> "DomainNames" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable ListDomainNames
instance NFData ListDomainNames
instance ToHeaders ListDomainNames where
toHeaders = const mempty
instance ToPath ListDomainNames where
toPath = const "/2015-01-01/domain"
instance ToQuery ListDomainNames where
toQuery = const mempty
data ListDomainNamesResponse = ListDomainNamesResponse'
{ _ldnrsDomainNames :: !(Maybe [DomainInfo])
, _ldnrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listDomainNamesResponse
:: Int
-> ListDomainNamesResponse
listDomainNamesResponse pResponseStatus_ =
ListDomainNamesResponse'
{ _ldnrsDomainNames = Nothing
, _ldnrsResponseStatus = pResponseStatus_
}
ldnrsDomainNames :: Lens' ListDomainNamesResponse [DomainInfo]
ldnrsDomainNames = lens _ldnrsDomainNames (\ s a -> s{_ldnrsDomainNames = a}) . _Default . _Coerce;
ldnrsResponseStatus :: Lens' ListDomainNamesResponse Int
ldnrsResponseStatus = lens _ldnrsResponseStatus (\ s a -> s{_ldnrsResponseStatus = a});
instance NFData ListDomainNamesResponse