module Network.AWS.ElasticSearch.CreateElasticsearchDomain
(
createElasticsearchDomain
, CreateElasticsearchDomain
, cedEBSOptions
, cedAccessPolicies
, cedElasticsearchClusterConfig
, cedSnapshotOptions
, cedAdvancedOptions
, cedDomainName
, createElasticsearchDomainResponse
, CreateElasticsearchDomainResponse
, cedrsDomainStatus
, cedrsResponseStatus
) where
import Network.AWS.ElasticSearch.Types
import Network.AWS.ElasticSearch.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data CreateElasticsearchDomain = CreateElasticsearchDomain'
{ _cedEBSOptions :: !(Maybe EBSOptions)
, _cedAccessPolicies :: !(Maybe Text)
, _cedElasticsearchClusterConfig :: !(Maybe ElasticsearchClusterConfig)
, _cedSnapshotOptions :: !(Maybe SnapshotOptions)
, _cedAdvancedOptions :: !(Maybe (Map Text Text))
, _cedDomainName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createElasticsearchDomain
:: Text
-> CreateElasticsearchDomain
createElasticsearchDomain pDomainName_ =
CreateElasticsearchDomain'
{ _cedEBSOptions = Nothing
, _cedAccessPolicies = Nothing
, _cedElasticsearchClusterConfig = Nothing
, _cedSnapshotOptions = Nothing
, _cedAdvancedOptions = Nothing
, _cedDomainName = pDomainName_
}
cedEBSOptions :: Lens' CreateElasticsearchDomain (Maybe EBSOptions)
cedEBSOptions = lens _cedEBSOptions (\ s a -> s{_cedEBSOptions = a});
cedAccessPolicies :: Lens' CreateElasticsearchDomain (Maybe Text)
cedAccessPolicies = lens _cedAccessPolicies (\ s a -> s{_cedAccessPolicies = a});
cedElasticsearchClusterConfig :: Lens' CreateElasticsearchDomain (Maybe ElasticsearchClusterConfig)
cedElasticsearchClusterConfig = lens _cedElasticsearchClusterConfig (\ s a -> s{_cedElasticsearchClusterConfig = a});
cedSnapshotOptions :: Lens' CreateElasticsearchDomain (Maybe SnapshotOptions)
cedSnapshotOptions = lens _cedSnapshotOptions (\ s a -> s{_cedSnapshotOptions = a});
cedAdvancedOptions :: Lens' CreateElasticsearchDomain (HashMap Text Text)
cedAdvancedOptions = lens _cedAdvancedOptions (\ s a -> s{_cedAdvancedOptions = a}) . _Default . _Map;
cedDomainName :: Lens' CreateElasticsearchDomain Text
cedDomainName = lens _cedDomainName (\ s a -> s{_cedDomainName = a});
instance AWSRequest CreateElasticsearchDomain where
type Rs CreateElasticsearchDomain =
CreateElasticsearchDomainResponse
request = postJSON elasticSearch
response
= receiveJSON
(\ s h x ->
CreateElasticsearchDomainResponse' <$>
(x .?> "DomainStatus") <*> (pure (fromEnum s)))
instance ToHeaders CreateElasticsearchDomain where
toHeaders = const mempty
instance ToJSON CreateElasticsearchDomain where
toJSON CreateElasticsearchDomain'{..}
= object
(catMaybes
[("EBSOptions" .=) <$> _cedEBSOptions,
("AccessPolicies" .=) <$> _cedAccessPolicies,
("ElasticsearchClusterConfig" .=) <$>
_cedElasticsearchClusterConfig,
("SnapshotOptions" .=) <$> _cedSnapshotOptions,
("AdvancedOptions" .=) <$> _cedAdvancedOptions,
Just ("DomainName" .= _cedDomainName)])
instance ToPath CreateElasticsearchDomain where
toPath = const "/2015-01-01/es/domain"
instance ToQuery CreateElasticsearchDomain where
toQuery = const mempty
data CreateElasticsearchDomainResponse = CreateElasticsearchDomainResponse'
{ _cedrsDomainStatus :: !(Maybe ElasticsearchDomainStatus)
, _cedrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createElasticsearchDomainResponse
:: Int
-> CreateElasticsearchDomainResponse
createElasticsearchDomainResponse pResponseStatus_ =
CreateElasticsearchDomainResponse'
{ _cedrsDomainStatus = Nothing
, _cedrsResponseStatus = pResponseStatus_
}
cedrsDomainStatus :: Lens' CreateElasticsearchDomainResponse (Maybe ElasticsearchDomainStatus)
cedrsDomainStatus = lens _cedrsDomainStatus (\ s a -> s{_cedrsDomainStatus = a});
cedrsResponseStatus :: Lens' CreateElasticsearchDomainResponse Int
cedrsResponseStatus = lens _cedrsResponseStatus (\ s a -> s{_cedrsResponseStatus = a});