{-# 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.CreateElasticsearchDomain
(
createElasticsearchDomain
, CreateElasticsearchDomain
, cedEBSOptions
, cedAccessPolicies
, cedLogPublishingOptions
, cedElasticsearchClusterConfig
, cedSnapshotOptions
, cedCognitoOptions
, cedEncryptionAtRestOptions
, cedVPCOptions
, cedAdvancedOptions
, cedElasticsearchVersion
, cedDomainName
, createElasticsearchDomainResponse
, CreateElasticsearchDomainResponse
, cedrsDomainStatus
, cedrsResponseStatus
) 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 CreateElasticsearchDomain = CreateElasticsearchDomain'
{ _cedEBSOptions :: !(Maybe EBSOptions)
, _cedAccessPolicies :: !(Maybe Text)
, _cedLogPublishingOptions :: !(Maybe (Map LogType LogPublishingOption))
, _cedElasticsearchClusterConfig :: !(Maybe ElasticsearchClusterConfig)
, _cedSnapshotOptions :: !(Maybe SnapshotOptions)
, _cedCognitoOptions :: !(Maybe CognitoOptions)
, _cedEncryptionAtRestOptions :: !(Maybe EncryptionAtRestOptions)
, _cedVPCOptions :: !(Maybe VPCOptions)
, _cedAdvancedOptions :: !(Maybe (Map Text Text))
, _cedElasticsearchVersion :: !(Maybe Text)
, _cedDomainName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createElasticsearchDomain
:: Text
-> CreateElasticsearchDomain
createElasticsearchDomain pDomainName_ =
CreateElasticsearchDomain'
{ _cedEBSOptions = Nothing
, _cedAccessPolicies = Nothing
, _cedLogPublishingOptions = Nothing
, _cedElasticsearchClusterConfig = Nothing
, _cedSnapshotOptions = Nothing
, _cedCognitoOptions = Nothing
, _cedEncryptionAtRestOptions = Nothing
, _cedVPCOptions = Nothing
, _cedAdvancedOptions = Nothing
, _cedElasticsearchVersion = 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})
cedLogPublishingOptions :: Lens' CreateElasticsearchDomain (HashMap LogType LogPublishingOption)
cedLogPublishingOptions = lens _cedLogPublishingOptions (\ s a -> s{_cedLogPublishingOptions = a}) . _Default . _Map
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})
cedCognitoOptions :: Lens' CreateElasticsearchDomain (Maybe CognitoOptions)
cedCognitoOptions = lens _cedCognitoOptions (\ s a -> s{_cedCognitoOptions = a})
cedEncryptionAtRestOptions :: Lens' CreateElasticsearchDomain (Maybe EncryptionAtRestOptions)
cedEncryptionAtRestOptions = lens _cedEncryptionAtRestOptions (\ s a -> s{_cedEncryptionAtRestOptions = a})
cedVPCOptions :: Lens' CreateElasticsearchDomain (Maybe VPCOptions)
cedVPCOptions = lens _cedVPCOptions (\ s a -> s{_cedVPCOptions = a})
cedAdvancedOptions :: Lens' CreateElasticsearchDomain (HashMap Text Text)
cedAdvancedOptions = lens _cedAdvancedOptions (\ s a -> s{_cedAdvancedOptions = a}) . _Default . _Map
cedElasticsearchVersion :: Lens' CreateElasticsearchDomain (Maybe Text)
cedElasticsearchVersion = lens _cedElasticsearchVersion (\ s a -> s{_cedElasticsearchVersion = a})
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 Hashable CreateElasticsearchDomain where
instance NFData CreateElasticsearchDomain where
instance ToHeaders CreateElasticsearchDomain where
toHeaders = const mempty
instance ToJSON CreateElasticsearchDomain where
toJSON CreateElasticsearchDomain'{..}
= object
(catMaybes
[("EBSOptions" .=) <$> _cedEBSOptions,
("AccessPolicies" .=) <$> _cedAccessPolicies,
("LogPublishingOptions" .=) <$>
_cedLogPublishingOptions,
("ElasticsearchClusterConfig" .=) <$>
_cedElasticsearchClusterConfig,
("SnapshotOptions" .=) <$> _cedSnapshotOptions,
("CognitoOptions" .=) <$> _cedCognitoOptions,
("EncryptionAtRestOptions" .=) <$>
_cedEncryptionAtRestOptions,
("VPCOptions" .=) <$> _cedVPCOptions,
("AdvancedOptions" .=) <$> _cedAdvancedOptions,
("ElasticsearchVersion" .=) <$>
_cedElasticsearchVersion,
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})
instance NFData CreateElasticsearchDomainResponse
where