{-# 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.DeleteApplicationVersion
(
deleteApplicationVersion
, DeleteApplicationVersion
, davDeleteSourceBundle
, davApplicationName
, davVersionLabel
, deleteApplicationVersionResponse
, DeleteApplicationVersionResponse
) 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 DeleteApplicationVersion = DeleteApplicationVersion'
{ _davDeleteSourceBundle :: !(Maybe Bool)
, _davApplicationName :: !Text
, _davVersionLabel :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteApplicationVersion
:: Text
-> Text
-> DeleteApplicationVersion
deleteApplicationVersion pApplicationName_ pVersionLabel_ =
DeleteApplicationVersion'
{ _davDeleteSourceBundle = Nothing
, _davApplicationName = pApplicationName_
, _davVersionLabel = pVersionLabel_
}
davDeleteSourceBundle :: Lens' DeleteApplicationVersion (Maybe Bool)
davDeleteSourceBundle = lens _davDeleteSourceBundle (\ s a -> s{_davDeleteSourceBundle = a});
davApplicationName :: Lens' DeleteApplicationVersion Text
davApplicationName = lens _davApplicationName (\ s a -> s{_davApplicationName = a});
davVersionLabel :: Lens' DeleteApplicationVersion Text
davVersionLabel = lens _davVersionLabel (\ s a -> s{_davVersionLabel = a});
instance AWSRequest DeleteApplicationVersion where
type Rs DeleteApplicationVersion =
DeleteApplicationVersionResponse
request = postQuery elasticBeanstalk
response
= receiveNull DeleteApplicationVersionResponse'
instance Hashable DeleteApplicationVersion
instance NFData DeleteApplicationVersion
instance ToHeaders DeleteApplicationVersion where
toHeaders = const mempty
instance ToPath DeleteApplicationVersion where
toPath = const "/"
instance ToQuery DeleteApplicationVersion where
toQuery DeleteApplicationVersion'{..}
= mconcat
["Action" =:
("DeleteApplicationVersion" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"DeleteSourceBundle" =: _davDeleteSourceBundle,
"ApplicationName" =: _davApplicationName,
"VersionLabel" =: _davVersionLabel]
data DeleteApplicationVersionResponse =
DeleteApplicationVersionResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteApplicationVersionResponse
:: DeleteApplicationVersionResponse
deleteApplicationVersionResponse = DeleteApplicationVersionResponse'
instance NFData DeleteApplicationVersionResponse