module Network.AWS.ElasticBeanstalk.CreateApplication
(
createApplication
, CreateApplication
, caDescription
, caApplicationName
, applicationDescriptionMessage
, ApplicationDescriptionMessage
, admApplication
) 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 CreateApplication = CreateApplication'
{ _caDescription :: !(Maybe Text)
, _caApplicationName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createApplication
:: Text
-> CreateApplication
createApplication pApplicationName_ =
CreateApplication'
{ _caDescription = Nothing
, _caApplicationName = pApplicationName_
}
caDescription :: Lens' CreateApplication (Maybe Text)
caDescription = lens _caDescription (\ s a -> s{_caDescription = a});
caApplicationName :: Lens' CreateApplication Text
caApplicationName = lens _caApplicationName (\ s a -> s{_caApplicationName = a});
instance AWSRequest CreateApplication where
type Rs CreateApplication =
ApplicationDescriptionMessage
request = postQuery elasticBeanstalk
response
= receiveXMLWrapper "CreateApplicationResult"
(\ s h x -> parseXML x)
instance ToHeaders CreateApplication where
toHeaders = const mempty
instance ToPath CreateApplication where
toPath = const "/"
instance ToQuery CreateApplication where
toQuery CreateApplication'{..}
= mconcat
["Action" =: ("CreateApplication" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"Description" =: _caDescription,
"ApplicationName" =: _caApplicationName]