module Network.AWS.ElastiCache.DescribeCacheEngineVersions
(
describeCacheEngineVersions
, DescribeCacheEngineVersions
, dcevCacheParameterGroupFamily
, dcevEngineVersion
, dcevDefaultOnly
, dcevEngine
, dcevMaxRecords
, dcevMarker
, describeCacheEngineVersionsResponse
, DescribeCacheEngineVersionsResponse
, dcevrsCacheEngineVersions
, dcevrsMarker
, dcevrsStatus
) where
import Network.AWS.ElastiCache.Types
import Network.AWS.ElastiCache.Types.Product
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeCacheEngineVersions = DescribeCacheEngineVersions'
{ _dcevCacheParameterGroupFamily :: !(Maybe Text)
, _dcevEngineVersion :: !(Maybe Text)
, _dcevDefaultOnly :: !(Maybe Bool)
, _dcevEngine :: !(Maybe Text)
, _dcevMaxRecords :: !(Maybe Int)
, _dcevMarker :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeCacheEngineVersions
:: DescribeCacheEngineVersions
describeCacheEngineVersions =
DescribeCacheEngineVersions'
{ _dcevCacheParameterGroupFamily = Nothing
, _dcevEngineVersion = Nothing
, _dcevDefaultOnly = Nothing
, _dcevEngine = Nothing
, _dcevMaxRecords = Nothing
, _dcevMarker = Nothing
}
dcevCacheParameterGroupFamily :: Lens' DescribeCacheEngineVersions (Maybe Text)
dcevCacheParameterGroupFamily = lens _dcevCacheParameterGroupFamily (\ s a -> s{_dcevCacheParameterGroupFamily = a});
dcevEngineVersion :: Lens' DescribeCacheEngineVersions (Maybe Text)
dcevEngineVersion = lens _dcevEngineVersion (\ s a -> s{_dcevEngineVersion = a});
dcevDefaultOnly :: Lens' DescribeCacheEngineVersions (Maybe Bool)
dcevDefaultOnly = lens _dcevDefaultOnly (\ s a -> s{_dcevDefaultOnly = a});
dcevEngine :: Lens' DescribeCacheEngineVersions (Maybe Text)
dcevEngine = lens _dcevEngine (\ s a -> s{_dcevEngine = a});
dcevMaxRecords :: Lens' DescribeCacheEngineVersions (Maybe Int)
dcevMaxRecords = lens _dcevMaxRecords (\ s a -> s{_dcevMaxRecords = a});
dcevMarker :: Lens' DescribeCacheEngineVersions (Maybe Text)
dcevMarker = lens _dcevMarker (\ s a -> s{_dcevMarker = a});
instance AWSPager DescribeCacheEngineVersions where
page rq rs
| stop (rs ^. dcevrsMarker) = Nothing
| stop (rs ^. dcevrsCacheEngineVersions) = Nothing
| otherwise =
Just $ rq & dcevMarker .~ rs ^. dcevrsMarker
instance AWSRequest DescribeCacheEngineVersions where
type Rs DescribeCacheEngineVersions =
DescribeCacheEngineVersionsResponse
request = postQuery elastiCache
response
= receiveXMLWrapper
"DescribeCacheEngineVersionsResult"
(\ s h x ->
DescribeCacheEngineVersionsResponse' <$>
(x .@? "CacheEngineVersions" .!@ mempty >>=
may (parseXMLList "CacheEngineVersion"))
<*> (x .@? "Marker")
<*> (pure (fromEnum s)))
instance ToHeaders DescribeCacheEngineVersions where
toHeaders = const mempty
instance ToPath DescribeCacheEngineVersions where
toPath = const "/"
instance ToQuery DescribeCacheEngineVersions where
toQuery DescribeCacheEngineVersions'{..}
= mconcat
["Action" =:
("DescribeCacheEngineVersions" :: ByteString),
"Version" =: ("2015-02-02" :: ByteString),
"CacheParameterGroupFamily" =:
_dcevCacheParameterGroupFamily,
"EngineVersion" =: _dcevEngineVersion,
"DefaultOnly" =: _dcevDefaultOnly,
"Engine" =: _dcevEngine,
"MaxRecords" =: _dcevMaxRecords,
"Marker" =: _dcevMarker]
data DescribeCacheEngineVersionsResponse = DescribeCacheEngineVersionsResponse'
{ _dcevrsCacheEngineVersions :: !(Maybe [CacheEngineVersion])
, _dcevrsMarker :: !(Maybe Text)
, _dcevrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeCacheEngineVersionsResponse
:: Int
-> DescribeCacheEngineVersionsResponse
describeCacheEngineVersionsResponse pStatus_ =
DescribeCacheEngineVersionsResponse'
{ _dcevrsCacheEngineVersions = Nothing
, _dcevrsMarker = Nothing
, _dcevrsStatus = pStatus_
}
dcevrsCacheEngineVersions :: Lens' DescribeCacheEngineVersionsResponse [CacheEngineVersion]
dcevrsCacheEngineVersions = lens _dcevrsCacheEngineVersions (\ s a -> s{_dcevrsCacheEngineVersions = a}) . _Default . _Coerce;
dcevrsMarker :: Lens' DescribeCacheEngineVersionsResponse (Maybe Text)
dcevrsMarker = lens _dcevrsMarker (\ s a -> s{_dcevrsMarker = a});
dcevrsStatus :: Lens' DescribeCacheEngineVersionsResponse Int
dcevrsStatus = lens _dcevrsStatus (\ s a -> s{_dcevrsStatus = a});