{-# 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.ElasticBeanstalk.DescribeConfigurationSettings
(
describeConfigurationSettings
, DescribeConfigurationSettings
, dcsTemplateName
, dcsEnvironmentName
, dcsApplicationName
, describeConfigurationSettingsResponse
, DescribeConfigurationSettingsResponse
, dcsrsConfigurationSettings
, dcsrsResponseStatus
) where
import Network.AWS.ElasticBeanstalk.Types
import Network.AWS.ElasticBeanstalk.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeConfigurationSettings = DescribeConfigurationSettings'
{ _dcsTemplateName :: !(Maybe Text)
, _dcsEnvironmentName :: !(Maybe Text)
, _dcsApplicationName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeConfigurationSettings
:: Text
-> DescribeConfigurationSettings
describeConfigurationSettings pApplicationName_ =
DescribeConfigurationSettings'
{ _dcsTemplateName = Nothing
, _dcsEnvironmentName = Nothing
, _dcsApplicationName = pApplicationName_
}
dcsTemplateName :: Lens' DescribeConfigurationSettings (Maybe Text)
dcsTemplateName = lens _dcsTemplateName (\ s a -> s{_dcsTemplateName = a});
dcsEnvironmentName :: Lens' DescribeConfigurationSettings (Maybe Text)
dcsEnvironmentName = lens _dcsEnvironmentName (\ s a -> s{_dcsEnvironmentName = a});
dcsApplicationName :: Lens' DescribeConfigurationSettings Text
dcsApplicationName = lens _dcsApplicationName (\ s a -> s{_dcsApplicationName = a});
instance AWSRequest DescribeConfigurationSettings
where
type Rs DescribeConfigurationSettings =
DescribeConfigurationSettingsResponse
request = postQuery elasticBeanstalk
response
= receiveXMLWrapper
"DescribeConfigurationSettingsResult"
(\ s h x ->
DescribeConfigurationSettingsResponse' <$>
(x .@? "ConfigurationSettings" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance Hashable DescribeConfigurationSettings
instance NFData DescribeConfigurationSettings
instance ToHeaders DescribeConfigurationSettings
where
toHeaders = const mempty
instance ToPath DescribeConfigurationSettings where
toPath = const "/"
instance ToQuery DescribeConfigurationSettings where
toQuery DescribeConfigurationSettings'{..}
= mconcat
["Action" =:
("DescribeConfigurationSettings" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"TemplateName" =: _dcsTemplateName,
"EnvironmentName" =: _dcsEnvironmentName,
"ApplicationName" =: _dcsApplicationName]
data DescribeConfigurationSettingsResponse = DescribeConfigurationSettingsResponse'
{ _dcsrsConfigurationSettings :: !(Maybe [ConfigurationSettingsDescription])
, _dcsrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeConfigurationSettingsResponse
:: Int
-> DescribeConfigurationSettingsResponse
describeConfigurationSettingsResponse pResponseStatus_ =
DescribeConfigurationSettingsResponse'
{ _dcsrsConfigurationSettings = Nothing
, _dcsrsResponseStatus = pResponseStatus_
}
dcsrsConfigurationSettings :: Lens' DescribeConfigurationSettingsResponse [ConfigurationSettingsDescription]
dcsrsConfigurationSettings = lens _dcsrsConfigurationSettings (\ s a -> s{_dcsrsConfigurationSettings = a}) . _Default . _Coerce;
dcsrsResponseStatus :: Lens' DescribeConfigurationSettingsResponse Int
dcsrsResponseStatus = lens _dcsrsResponseStatus (\ s a -> s{_dcsrsResponseStatus = a});
instance NFData DescribeConfigurationSettingsResponse