module Network.AWS.ElasticBeanstalk.UpdateApplicationVersion
(
updateApplicationVersion
, UpdateApplicationVersion
, uavDescription
, uavApplicationName
, uavVersionLabel
, applicationVersionDescriptionMessage
, ApplicationVersionDescriptionMessage
, avdmApplicationVersion
) 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 UpdateApplicationVersion = UpdateApplicationVersion'
{ _uavDescription :: !(Maybe Text)
, _uavApplicationName :: !Text
, _uavVersionLabel :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateApplicationVersion
:: Text
-> Text
-> UpdateApplicationVersion
updateApplicationVersion pApplicationName_ pVersionLabel_ =
UpdateApplicationVersion'
{ _uavDescription = Nothing
, _uavApplicationName = pApplicationName_
, _uavVersionLabel = pVersionLabel_
}
uavDescription :: Lens' UpdateApplicationVersion (Maybe Text)
uavDescription = lens _uavDescription (\ s a -> s{_uavDescription = a});
uavApplicationName :: Lens' UpdateApplicationVersion Text
uavApplicationName = lens _uavApplicationName (\ s a -> s{_uavApplicationName = a});
uavVersionLabel :: Lens' UpdateApplicationVersion Text
uavVersionLabel = lens _uavVersionLabel (\ s a -> s{_uavVersionLabel = a});
instance AWSRequest UpdateApplicationVersion where
type Rs UpdateApplicationVersion =
ApplicationVersionDescriptionMessage
request = postQuery elasticBeanstalk
response
= receiveXMLWrapper "UpdateApplicationVersionResult"
(\ s h x -> parseXML x)
instance Hashable UpdateApplicationVersion where
instance NFData UpdateApplicationVersion where
instance ToHeaders UpdateApplicationVersion where
toHeaders = const mempty
instance ToPath UpdateApplicationVersion where
toPath = const "/"
instance ToQuery UpdateApplicationVersion where
toQuery UpdateApplicationVersion'{..}
= mconcat
["Action" =:
("UpdateApplicationVersion" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"Description" =: _uavDescription,
"ApplicationName" =: _uavApplicationName,
"VersionLabel" =: _uavVersionLabel]