{-# 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.UpdateElasticsearchDomainConfig
(
updateElasticsearchDomainConfig
, UpdateElasticsearchDomainConfig
, uedcEBSOptions
, uedcAccessPolicies
, uedcElasticsearchClusterConfig
, uedcSnapshotOptions
, uedcAdvancedOptions
, uedcDomainName
, updateElasticsearchDomainConfigResponse
, UpdateElasticsearchDomainConfigResponse
, uedcrsResponseStatus
, uedcrsDomainConfig
) 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 UpdateElasticsearchDomainConfig = UpdateElasticsearchDomainConfig'
{ _uedcEBSOptions :: !(Maybe EBSOptions)
, _uedcAccessPolicies :: !(Maybe Text)
, _uedcElasticsearchClusterConfig :: !(Maybe ElasticsearchClusterConfig)
, _uedcSnapshotOptions :: !(Maybe SnapshotOptions)
, _uedcAdvancedOptions :: !(Maybe (Map Text Text))
, _uedcDomainName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateElasticsearchDomainConfig
:: Text
-> UpdateElasticsearchDomainConfig
updateElasticsearchDomainConfig pDomainName_ =
UpdateElasticsearchDomainConfig'
{ _uedcEBSOptions = Nothing
, _uedcAccessPolicies = Nothing
, _uedcElasticsearchClusterConfig = Nothing
, _uedcSnapshotOptions = Nothing
, _uedcAdvancedOptions = Nothing
, _uedcDomainName = pDomainName_
}
uedcEBSOptions :: Lens' UpdateElasticsearchDomainConfig (Maybe EBSOptions)
uedcEBSOptions = lens _uedcEBSOptions (\ s a -> s{_uedcEBSOptions = a});
uedcAccessPolicies :: Lens' UpdateElasticsearchDomainConfig (Maybe Text)
uedcAccessPolicies = lens _uedcAccessPolicies (\ s a -> s{_uedcAccessPolicies = a});
uedcElasticsearchClusterConfig :: Lens' UpdateElasticsearchDomainConfig (Maybe ElasticsearchClusterConfig)
uedcElasticsearchClusterConfig = lens _uedcElasticsearchClusterConfig (\ s a -> s{_uedcElasticsearchClusterConfig = a});
uedcSnapshotOptions :: Lens' UpdateElasticsearchDomainConfig (Maybe SnapshotOptions)
uedcSnapshotOptions = lens _uedcSnapshotOptions (\ s a -> s{_uedcSnapshotOptions = a});
uedcAdvancedOptions :: Lens' UpdateElasticsearchDomainConfig (HashMap Text Text)
uedcAdvancedOptions = lens _uedcAdvancedOptions (\ s a -> s{_uedcAdvancedOptions = a}) . _Default . _Map;
uedcDomainName :: Lens' UpdateElasticsearchDomainConfig Text
uedcDomainName = lens _uedcDomainName (\ s a -> s{_uedcDomainName = a});
instance AWSRequest UpdateElasticsearchDomainConfig
where
type Rs UpdateElasticsearchDomainConfig =
UpdateElasticsearchDomainConfigResponse
request = postJSON elasticSearch
response
= receiveJSON
(\ s h x ->
UpdateElasticsearchDomainConfigResponse' <$>
(pure (fromEnum s)) <*> (x .:> "DomainConfig"))
instance Hashable UpdateElasticsearchDomainConfig
instance NFData UpdateElasticsearchDomainConfig
instance ToHeaders UpdateElasticsearchDomainConfig
where
toHeaders = const mempty
instance ToJSON UpdateElasticsearchDomainConfig where
toJSON UpdateElasticsearchDomainConfig'{..}
= object
(catMaybes
[("EBSOptions" .=) <$> _uedcEBSOptions,
("AccessPolicies" .=) <$> _uedcAccessPolicies,
("ElasticsearchClusterConfig" .=) <$>
_uedcElasticsearchClusterConfig,
("SnapshotOptions" .=) <$> _uedcSnapshotOptions,
("AdvancedOptions" .=) <$> _uedcAdvancedOptions])
instance ToPath UpdateElasticsearchDomainConfig where
toPath UpdateElasticsearchDomainConfig'{..}
= mconcat
["/2015-01-01/es/domain/", toBS _uedcDomainName,
"/config"]
instance ToQuery UpdateElasticsearchDomainConfig
where
toQuery = const mempty
data UpdateElasticsearchDomainConfigResponse = UpdateElasticsearchDomainConfigResponse'
{ _uedcrsResponseStatus :: !Int
, _uedcrsDomainConfig :: !ElasticsearchDomainConfig
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateElasticsearchDomainConfigResponse
:: Int
-> ElasticsearchDomainConfig
-> UpdateElasticsearchDomainConfigResponse
updateElasticsearchDomainConfigResponse pResponseStatus_ pDomainConfig_ =
UpdateElasticsearchDomainConfigResponse'
{ _uedcrsResponseStatus = pResponseStatus_
, _uedcrsDomainConfig = pDomainConfig_
}
uedcrsResponseStatus :: Lens' UpdateElasticsearchDomainConfigResponse Int
uedcrsResponseStatus = lens _uedcrsResponseStatus (\ s a -> s{_uedcrsResponseStatus = a});
uedcrsDomainConfig :: Lens' UpdateElasticsearchDomainConfigResponse ElasticsearchDomainConfig
uedcrsDomainConfig = lens _uedcrsDomainConfig (\ s a -> s{_uedcrsDomainConfig = a});
instance NFData
UpdateElasticsearchDomainConfigResponse