module Network.AWS.ElasticSearch.DeleteElasticsearchDomain
(
deleteElasticsearchDomain
, DeleteElasticsearchDomain
, dDomainName
, deleteElasticsearchDomainResponse
, DeleteElasticsearchDomainResponse
, delrsDomainStatus
, delrsResponseStatus
) 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
newtype DeleteElasticsearchDomain = DeleteElasticsearchDomain'
{ _dDomainName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteElasticsearchDomain
:: Text
-> DeleteElasticsearchDomain
deleteElasticsearchDomain pDomainName_ =
DeleteElasticsearchDomain'
{ _dDomainName = pDomainName_
}
dDomainName :: Lens' DeleteElasticsearchDomain Text
dDomainName = lens _dDomainName (\ s a -> s{_dDomainName = a});
instance AWSRequest DeleteElasticsearchDomain where
type Rs DeleteElasticsearchDomain =
DeleteElasticsearchDomainResponse
request = delete elasticSearch
response
= receiveJSON
(\ s h x ->
DeleteElasticsearchDomainResponse' <$>
(x .?> "DomainStatus") <*> (pure (fromEnum s)))
instance Hashable DeleteElasticsearchDomain
instance NFData DeleteElasticsearchDomain
instance ToHeaders DeleteElasticsearchDomain where
toHeaders = const mempty
instance ToPath DeleteElasticsearchDomain where
toPath DeleteElasticsearchDomain'{..}
= mconcat
["/2015-01-01/es/domain/", toBS _dDomainName]
instance ToQuery DeleteElasticsearchDomain where
toQuery = const mempty
data DeleteElasticsearchDomainResponse = DeleteElasticsearchDomainResponse'
{ _delrsDomainStatus :: !(Maybe ElasticsearchDomainStatus)
, _delrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteElasticsearchDomainResponse
:: Int
-> DeleteElasticsearchDomainResponse
deleteElasticsearchDomainResponse pResponseStatus_ =
DeleteElasticsearchDomainResponse'
{ _delrsDomainStatus = Nothing
, _delrsResponseStatus = pResponseStatus_
}
delrsDomainStatus :: Lens' DeleteElasticsearchDomainResponse (Maybe ElasticsearchDomainStatus)
delrsDomainStatus = lens _delrsDomainStatus (\ s a -> s{_delrsDomainStatus = a});
delrsResponseStatus :: Lens' DeleteElasticsearchDomainResponse Int
delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});
instance NFData DeleteElasticsearchDomainResponse