{-# 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.CreateApplication
(
createApplication
, CreateApplication
, caResourceLifecycleConfig
, 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'
{ _caResourceLifecycleConfig :: !(Maybe ApplicationResourceLifecycleConfig)
, _caDescription :: !(Maybe Text)
, _caApplicationName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createApplication
:: Text
-> CreateApplication
createApplication pApplicationName_ =
CreateApplication'
{ _caResourceLifecycleConfig = Nothing
, _caDescription = Nothing
, _caApplicationName = pApplicationName_
}
caResourceLifecycleConfig :: Lens' CreateApplication (Maybe ApplicationResourceLifecycleConfig)
caResourceLifecycleConfig = lens _caResourceLifecycleConfig (\ s a -> s{_caResourceLifecycleConfig = a})
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 Hashable CreateApplication where
instance NFData CreateApplication where
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),
"ResourceLifecycleConfig" =:
_caResourceLifecycleConfig,
"Description" =: _caDescription,
"ApplicationName" =: _caApplicationName]