module Network.AWS.ElasticBeanstalk.ListAvailableSolutionStacks
(
ListAvailableSolutionStacks
, listAvailableSolutionStacks
, ListAvailableSolutionStacksResponse
, listAvailableSolutionStacksResponse
, lassrSolutionStackDetails
, lassrSolutionStacks
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ElasticBeanstalk.Types
import qualified GHC.Exts
data ListAvailableSolutionStacks = ListAvailableSolutionStacks
deriving (Eq, Ord, Read, Show, Generic)
listAvailableSolutionStacks :: ListAvailableSolutionStacks
listAvailableSolutionStacks = ListAvailableSolutionStacks
data ListAvailableSolutionStacksResponse = ListAvailableSolutionStacksResponse
{ _lassrSolutionStackDetails :: List "member" SolutionStackDescription
, _lassrSolutionStacks :: List "member" Text
} deriving (Eq, Read, Show)
listAvailableSolutionStacksResponse :: ListAvailableSolutionStacksResponse
listAvailableSolutionStacksResponse = ListAvailableSolutionStacksResponse
{ _lassrSolutionStacks = mempty
, _lassrSolutionStackDetails = mempty
}
lassrSolutionStackDetails :: Lens' ListAvailableSolutionStacksResponse [SolutionStackDescription]
lassrSolutionStackDetails =
lens _lassrSolutionStackDetails
(\s a -> s { _lassrSolutionStackDetails = a })
. _List
lassrSolutionStacks :: Lens' ListAvailableSolutionStacksResponse [Text]
lassrSolutionStacks =
lens _lassrSolutionStacks (\s a -> s { _lassrSolutionStacks = a })
. _List
instance ToPath ListAvailableSolutionStacks where
toPath = const "/"
instance ToQuery ListAvailableSolutionStacks where
toQuery = const mempty
instance ToHeaders ListAvailableSolutionStacks
instance AWSRequest ListAvailableSolutionStacks where
type Sv ListAvailableSolutionStacks = ElasticBeanstalk
type Rs ListAvailableSolutionStacks = ListAvailableSolutionStacksResponse
request = post "ListAvailableSolutionStacks"
response = xmlResponse
instance FromXML ListAvailableSolutionStacksResponse where
parseXML = withElement "ListAvailableSolutionStacksResult" $ \x -> ListAvailableSolutionStacksResponse
<$> x .@? "SolutionStackDetails" .!@ mempty
<*> x .@? "SolutionStacks" .!@ mempty