module Network.AWS.ElasticBeanstalk.CreateApplication
(
CreateApplication
, createApplication
, caApplicationName
, caDescription
, CreateApplicationResponse
, createApplicationResponse
, carApplication
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ElasticBeanstalk.Types
import qualified GHC.Exts
data CreateApplication = CreateApplication
{ _caApplicationName :: Text
, _caDescription :: Maybe Text
} deriving (Eq, Ord, Read, Show)
createApplication :: Text
-> CreateApplication
createApplication p1 = CreateApplication
{ _caApplicationName = p1
, _caDescription = Nothing
}
caApplicationName :: Lens' CreateApplication Text
caApplicationName =
lens _caApplicationName (\s a -> s { _caApplicationName = a })
caDescription :: Lens' CreateApplication (Maybe Text)
caDescription = lens _caDescription (\s a -> s { _caDescription = a })
newtype CreateApplicationResponse = CreateApplicationResponse
{ _carApplication :: Maybe ApplicationDescription
} deriving (Eq, Read, Show)
createApplicationResponse :: CreateApplicationResponse
createApplicationResponse = CreateApplicationResponse
{ _carApplication = Nothing
}
carApplication :: Lens' CreateApplicationResponse (Maybe ApplicationDescription)
carApplication = lens _carApplication (\s a -> s { _carApplication = a })
instance ToPath CreateApplication where
toPath = const "/"
instance ToQuery CreateApplication where
toQuery CreateApplication{..} = mconcat
[ "ApplicationName" =? _caApplicationName
, "Description" =? _caDescription
]
instance ToHeaders CreateApplication
instance AWSRequest CreateApplication where
type Sv CreateApplication = ElasticBeanstalk
type Rs CreateApplication = CreateApplicationResponse
request = post "CreateApplication"
response = xmlResponse
instance FromXML CreateApplicationResponse where
parseXML = withElement "CreateApplicationResult" $ \x -> CreateApplicationResponse
<$> x .@? "Application"