{-# 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.DeleteEnvironmentConfiguration
(
deleteEnvironmentConfiguration
, DeleteEnvironmentConfiguration
, decApplicationName
, decEnvironmentName
, deleteEnvironmentConfigurationResponse
, DeleteEnvironmentConfigurationResponse
) 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 DeleteEnvironmentConfiguration = DeleteEnvironmentConfiguration'
{ _decApplicationName :: !Text
, _decEnvironmentName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteEnvironmentConfiguration
:: Text
-> Text
-> DeleteEnvironmentConfiguration
deleteEnvironmentConfiguration pApplicationName_ pEnvironmentName_ =
DeleteEnvironmentConfiguration'
{ _decApplicationName = pApplicationName_
, _decEnvironmentName = pEnvironmentName_
}
decApplicationName :: Lens' DeleteEnvironmentConfiguration Text
decApplicationName = lens _decApplicationName (\ s a -> s{_decApplicationName = a})
decEnvironmentName :: Lens' DeleteEnvironmentConfiguration Text
decEnvironmentName = lens _decEnvironmentName (\ s a -> s{_decEnvironmentName = a})
instance AWSRequest DeleteEnvironmentConfiguration
where
type Rs DeleteEnvironmentConfiguration =
DeleteEnvironmentConfigurationResponse
request = postQuery elasticBeanstalk
response
= receiveNull DeleteEnvironmentConfigurationResponse'
instance Hashable DeleteEnvironmentConfiguration
where
instance NFData DeleteEnvironmentConfiguration where
instance ToHeaders DeleteEnvironmentConfiguration
where
toHeaders = const mempty
instance ToPath DeleteEnvironmentConfiguration where
toPath = const "/"
instance ToQuery DeleteEnvironmentConfiguration where
toQuery DeleteEnvironmentConfiguration'{..}
= mconcat
["Action" =:
("DeleteEnvironmentConfiguration" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"ApplicationName" =: _decApplicationName,
"EnvironmentName" =: _decEnvironmentName]
data DeleteEnvironmentConfigurationResponse =
DeleteEnvironmentConfigurationResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteEnvironmentConfigurationResponse
:: DeleteEnvironmentConfigurationResponse
deleteEnvironmentConfigurationResponse = DeleteEnvironmentConfigurationResponse'
instance NFData
DeleteEnvironmentConfigurationResponse
where