module Network.AWS.ElasticBeanstalk.DescribeApplicationVersions
(
DescribeApplicationVersions
, describeApplicationVersions
, dav1ApplicationName
, dav1VersionLabels
, DescribeApplicationVersionsResponse
, describeApplicationVersionsResponse
, davrApplicationVersions
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ElasticBeanstalk.Types
import qualified GHC.Exts
data DescribeApplicationVersions = DescribeApplicationVersions
{ _dav1ApplicationName :: Maybe Text
, _dav1VersionLabels :: List "member" Text
} deriving (Eq, Ord, Show)
describeApplicationVersions :: DescribeApplicationVersions
describeApplicationVersions = DescribeApplicationVersions
{ _dav1ApplicationName = Nothing
, _dav1VersionLabels = mempty
}
dav1ApplicationName :: Lens' DescribeApplicationVersions (Maybe Text)
dav1ApplicationName =
lens _dav1ApplicationName (\s a -> s { _dav1ApplicationName = a })
dav1VersionLabels :: Lens' DescribeApplicationVersions [Text]
dav1VersionLabels =
lens _dav1VersionLabels (\s a -> s { _dav1VersionLabels = a })
. _List
newtype DescribeApplicationVersionsResponse = DescribeApplicationVersionsResponse
{ _davrApplicationVersions :: List "member" ApplicationVersionDescription
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeApplicationVersionsResponse where
type Item DescribeApplicationVersionsResponse = ApplicationVersionDescription
fromList = DescribeApplicationVersionsResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _davrApplicationVersions
describeApplicationVersionsResponse :: DescribeApplicationVersionsResponse
describeApplicationVersionsResponse = DescribeApplicationVersionsResponse
{ _davrApplicationVersions = mempty
}
davrApplicationVersions :: Lens' DescribeApplicationVersionsResponse [ApplicationVersionDescription]
davrApplicationVersions =
lens _davrApplicationVersions (\s a -> s { _davrApplicationVersions = a })
. _List
instance ToPath DescribeApplicationVersions where
toPath = const "/"
instance ToQuery DescribeApplicationVersions where
toQuery DescribeApplicationVersions{..} = mconcat
[ "ApplicationName" =? _dav1ApplicationName
, "VersionLabels" =? _dav1VersionLabels
]
instance ToHeaders DescribeApplicationVersions
instance AWSRequest DescribeApplicationVersions where
type Sv DescribeApplicationVersions = ElasticBeanstalk
type Rs DescribeApplicationVersions = DescribeApplicationVersionsResponse
request = post "DescribeApplicationVersions"
response = xmlResponse
instance FromXML DescribeApplicationVersionsResponse where
parseXML = withElement "DescribeApplicationVersionsResult" $ \x -> DescribeApplicationVersionsResponse
<$> x .@ "ApplicationVersions"