module Network.AWS.ElasticBeanstalk.DeleteConfigurationTemplate
(
deleteConfigurationTemplate
, DeleteConfigurationTemplate
, dctApplicationName
, dctTemplateName
, deleteConfigurationTemplateResponse
, DeleteConfigurationTemplateResponse
) where
import Network.AWS.ElasticBeanstalk.Types
import Network.AWS.ElasticBeanstalk.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteConfigurationTemplate = DeleteConfigurationTemplate'
{ _dctApplicationName :: !Text
, _dctTemplateName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteConfigurationTemplate
:: Text
-> Text
-> DeleteConfigurationTemplate
deleteConfigurationTemplate pApplicationName_ pTemplateName_ =
DeleteConfigurationTemplate'
{ _dctApplicationName = pApplicationName_
, _dctTemplateName = pTemplateName_
}
dctApplicationName :: Lens' DeleteConfigurationTemplate Text
dctApplicationName = lens _dctApplicationName (\ s a -> s{_dctApplicationName = a});
dctTemplateName :: Lens' DeleteConfigurationTemplate Text
dctTemplateName = lens _dctTemplateName (\ s a -> s{_dctTemplateName = a});
instance AWSRequest DeleteConfigurationTemplate where
type Rs DeleteConfigurationTemplate =
DeleteConfigurationTemplateResponse
request = postQuery elasticBeanstalk
response
= receiveNull DeleteConfigurationTemplateResponse'
instance ToHeaders DeleteConfigurationTemplate where
toHeaders = const mempty
instance ToPath DeleteConfigurationTemplate where
toPath = const "/"
instance ToQuery DeleteConfigurationTemplate where
toQuery DeleteConfigurationTemplate'{..}
= mconcat
["Action" =:
("DeleteConfigurationTemplate" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"ApplicationName" =: _dctApplicationName,
"TemplateName" =: _dctTemplateName]
data DeleteConfigurationTemplateResponse =
DeleteConfigurationTemplateResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteConfigurationTemplateResponse
:: DeleteConfigurationTemplateResponse
deleteConfigurationTemplateResponse = DeleteConfigurationTemplateResponse'