module Network.AWS.ElasticBeanstalk.DescribeConfigurationSettings
(
DescribeConfigurationSettings
, describeConfigurationSettings
, dcsApplicationName
, dcsEnvironmentName
, dcsTemplateName
, DescribeConfigurationSettingsResponse
, describeConfigurationSettingsResponse
, dcsrConfigurationSettings
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ElasticBeanstalk.Types
import qualified GHC.Exts
data DescribeConfigurationSettings = DescribeConfigurationSettings
{ _dcsApplicationName :: Text
, _dcsEnvironmentName :: Maybe Text
, _dcsTemplateName :: Maybe Text
} deriving (Eq, Ord, Show)
describeConfigurationSettings :: Text
-> DescribeConfigurationSettings
describeConfigurationSettings p1 = DescribeConfigurationSettings
{ _dcsApplicationName = p1
, _dcsTemplateName = Nothing
, _dcsEnvironmentName = Nothing
}
dcsApplicationName :: Lens' DescribeConfigurationSettings Text
dcsApplicationName =
lens _dcsApplicationName (\s a -> s { _dcsApplicationName = a })
dcsEnvironmentName :: Lens' DescribeConfigurationSettings (Maybe Text)
dcsEnvironmentName =
lens _dcsEnvironmentName (\s a -> s { _dcsEnvironmentName = a })
dcsTemplateName :: Lens' DescribeConfigurationSettings (Maybe Text)
dcsTemplateName = lens _dcsTemplateName (\s a -> s { _dcsTemplateName = a })
newtype DescribeConfigurationSettingsResponse = DescribeConfigurationSettingsResponse
{ _dcsrConfigurationSettings :: List "member" ConfigurationSettingsDescription
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeConfigurationSettingsResponse where
type Item DescribeConfigurationSettingsResponse = ConfigurationSettingsDescription
fromList = DescribeConfigurationSettingsResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dcsrConfigurationSettings
describeConfigurationSettingsResponse :: DescribeConfigurationSettingsResponse
describeConfigurationSettingsResponse = DescribeConfigurationSettingsResponse
{ _dcsrConfigurationSettings = mempty
}
dcsrConfigurationSettings :: Lens' DescribeConfigurationSettingsResponse [ConfigurationSettingsDescription]
dcsrConfigurationSettings =
lens _dcsrConfigurationSettings
(\s a -> s { _dcsrConfigurationSettings = a })
. _List
instance ToPath DescribeConfigurationSettings where
toPath = const "/"
instance ToQuery DescribeConfigurationSettings where
toQuery DescribeConfigurationSettings{..} = mconcat
[ "ApplicationName" =? _dcsApplicationName
, "EnvironmentName" =? _dcsEnvironmentName
, "TemplateName" =? _dcsTemplateName
]
instance ToHeaders DescribeConfigurationSettings
instance AWSRequest DescribeConfigurationSettings where
type Sv DescribeConfigurationSettings = ElasticBeanstalk
type Rs DescribeConfigurationSettings = DescribeConfigurationSettingsResponse
request = post "DescribeConfigurationSettings"
response = xmlResponse
instance FromXML DescribeConfigurationSettingsResponse where
parseXML = withElement "DescribeConfigurationSettingsResult" $ \x -> DescribeConfigurationSettingsResponse
<$> x .@? "ConfigurationSettings" .!@ mempty