{-# 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.DescribeElasticsearchDomainConfig
(
describeElasticsearchDomainConfig
, DescribeElasticsearchDomainConfig
, dedcDomainName
, describeElasticsearchDomainConfigResponse
, DescribeElasticsearchDomainConfigResponse
, dedcrsResponseStatus
, dedcrsDomainConfig
) 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 DescribeElasticsearchDomainConfig = DescribeElasticsearchDomainConfig'
{ _dedcDomainName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeElasticsearchDomainConfig
:: Text
-> DescribeElasticsearchDomainConfig
describeElasticsearchDomainConfig pDomainName_ =
DescribeElasticsearchDomainConfig'
{ _dedcDomainName = pDomainName_
}
dedcDomainName :: Lens' DescribeElasticsearchDomainConfig Text
dedcDomainName = lens _dedcDomainName (\ s a -> s{_dedcDomainName = a});
instance AWSRequest DescribeElasticsearchDomainConfig
where
type Rs DescribeElasticsearchDomainConfig =
DescribeElasticsearchDomainConfigResponse
request = get elasticSearch
response
= receiveJSON
(\ s h x ->
DescribeElasticsearchDomainConfigResponse' <$>
(pure (fromEnum s)) <*> (x .:> "DomainConfig"))
instance Hashable DescribeElasticsearchDomainConfig
instance NFData DescribeElasticsearchDomainConfig
instance ToHeaders DescribeElasticsearchDomainConfig
where
toHeaders = const mempty
instance ToPath DescribeElasticsearchDomainConfig
where
toPath DescribeElasticsearchDomainConfig'{..}
= mconcat
["/2015-01-01/es/domain/", toBS _dedcDomainName,
"/config"]
instance ToQuery DescribeElasticsearchDomainConfig
where
toQuery = const mempty
data DescribeElasticsearchDomainConfigResponse = DescribeElasticsearchDomainConfigResponse'
{ _dedcrsResponseStatus :: !Int
, _dedcrsDomainConfig :: !ElasticsearchDomainConfig
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeElasticsearchDomainConfigResponse
:: Int
-> ElasticsearchDomainConfig
-> DescribeElasticsearchDomainConfigResponse
describeElasticsearchDomainConfigResponse pResponseStatus_ pDomainConfig_ =
DescribeElasticsearchDomainConfigResponse'
{ _dedcrsResponseStatus = pResponseStatus_
, _dedcrsDomainConfig = pDomainConfig_
}
dedcrsResponseStatus :: Lens' DescribeElasticsearchDomainConfigResponse Int
dedcrsResponseStatus = lens _dedcrsResponseStatus (\ s a -> s{_dedcrsResponseStatus = a});
dedcrsDomainConfig :: Lens' DescribeElasticsearchDomainConfigResponse ElasticsearchDomainConfig
dedcrsDomainConfig = lens _dedcrsDomainConfig (\ s a -> s{_dedcrsDomainConfig = a});
instance NFData
DescribeElasticsearchDomainConfigResponse