module Network.AWS.ElasticBeanstalk.DescribeApplicationVersions
(
describeApplicationVersions
, DescribeApplicationVersions
, davsVersionLabels
, davsApplicationName
, describeApplicationVersionsResponse
, DescribeApplicationVersionsResponse
, davrsApplicationVersions
, davrsResponseStatus
) where
import Network.AWS.ElasticBeanstalk.Types
import Network.AWS.ElasticBeanstalk.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeApplicationVersions = DescribeApplicationVersions'
{ _davsVersionLabels :: !(Maybe [Text])
, _davsApplicationName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeApplicationVersions
:: DescribeApplicationVersions
describeApplicationVersions =
DescribeApplicationVersions'
{ _davsVersionLabels = Nothing
, _davsApplicationName = Nothing
}
davsVersionLabels :: Lens' DescribeApplicationVersions [Text]
davsVersionLabels = lens _davsVersionLabels (\ s a -> s{_davsVersionLabels = a}) . _Default . _Coerce;
davsApplicationName :: Lens' DescribeApplicationVersions (Maybe Text)
davsApplicationName = lens _davsApplicationName (\ s a -> s{_davsApplicationName = a});
instance AWSRequest DescribeApplicationVersions where
type Rs DescribeApplicationVersions =
DescribeApplicationVersionsResponse
request = postQuery elasticBeanstalk
response
= receiveXMLWrapper
"DescribeApplicationVersionsResult"
(\ s h x ->
DescribeApplicationVersionsResponse' <$>
(x .@? "ApplicationVersions" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance ToHeaders DescribeApplicationVersions where
toHeaders = const mempty
instance ToPath DescribeApplicationVersions where
toPath = const "/"
instance ToQuery DescribeApplicationVersions where
toQuery DescribeApplicationVersions'{..}
= mconcat
["Action" =:
("DescribeApplicationVersions" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"VersionLabels" =:
toQuery
(toQueryList "member" <$> _davsVersionLabels),
"ApplicationName" =: _davsApplicationName]
data DescribeApplicationVersionsResponse = DescribeApplicationVersionsResponse'
{ _davrsApplicationVersions :: !(Maybe [ApplicationVersionDescription])
, _davrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeApplicationVersionsResponse
:: Int
-> DescribeApplicationVersionsResponse
describeApplicationVersionsResponse pResponseStatus_ =
DescribeApplicationVersionsResponse'
{ _davrsApplicationVersions = Nothing
, _davrsResponseStatus = pResponseStatus_
}
davrsApplicationVersions :: Lens' DescribeApplicationVersionsResponse [ApplicationVersionDescription]
davrsApplicationVersions = lens _davrsApplicationVersions (\ s a -> s{_davrsApplicationVersions = a}) . _Default . _Coerce;
davrsResponseStatus :: Lens' DescribeApplicationVersionsResponse Int
davrsResponseStatus = lens _davrsResponseStatus (\ s a -> s{_davrsResponseStatus = a});