{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.ElastiCache.DescribeCacheEngineVersions
(
describeCacheEngineVersions
, DescribeCacheEngineVersions
, dcevEngineVersion
, dcevCacheParameterGroupFamily
, dcevDefaultOnly
, dcevEngine
, dcevMarker
, dcevMaxRecords
, describeCacheEngineVersionsResponse
, DescribeCacheEngineVersionsResponse
, dcevrsCacheEngineVersions
, dcevrsMarker
, dcevrsResponseStatus
) where
import Network.AWS.ElastiCache.Types
import Network.AWS.ElastiCache.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeCacheEngineVersions = DescribeCacheEngineVersions'
{ _dcevEngineVersion :: !(Maybe Text)
, _dcevCacheParameterGroupFamily :: !(Maybe Text)
, _dcevDefaultOnly :: !(Maybe Bool)
, _dcevEngine :: !(Maybe Text)
, _dcevMarker :: !(Maybe Text)
, _dcevMaxRecords :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeCacheEngineVersions
:: DescribeCacheEngineVersions
describeCacheEngineVersions =
DescribeCacheEngineVersions'
{ _dcevEngineVersion = Nothing
, _dcevCacheParameterGroupFamily = Nothing
, _dcevDefaultOnly = Nothing
, _dcevEngine = Nothing
, _dcevMarker = Nothing
, _dcevMaxRecords = Nothing
}
dcevEngineVersion :: Lens' DescribeCacheEngineVersions (Maybe Text)
dcevEngineVersion = lens _dcevEngineVersion (\ s a -> s{_dcevEngineVersion = a})
dcevCacheParameterGroupFamily :: Lens' DescribeCacheEngineVersions (Maybe Text)
dcevCacheParameterGroupFamily = lens _dcevCacheParameterGroupFamily (\ s a -> s{_dcevCacheParameterGroupFamily = 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})
dcevMarker :: Lens' DescribeCacheEngineVersions (Maybe Text)
dcevMarker = lens _dcevMarker (\ s a -> s{_dcevMarker = a})
dcevMaxRecords :: Lens' DescribeCacheEngineVersions (Maybe Int)
dcevMaxRecords = lens _dcevMaxRecords (\ s a -> s{_dcevMaxRecords = 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 Hashable DescribeCacheEngineVersions where
instance NFData DescribeCacheEngineVersions where
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),
"EngineVersion" =: _dcevEngineVersion,
"CacheParameterGroupFamily" =:
_dcevCacheParameterGroupFamily,
"DefaultOnly" =: _dcevDefaultOnly,
"Engine" =: _dcevEngine, "Marker" =: _dcevMarker,
"MaxRecords" =: _dcevMaxRecords]
data DescribeCacheEngineVersionsResponse = DescribeCacheEngineVersionsResponse'
{ _dcevrsCacheEngineVersions :: !(Maybe [CacheEngineVersion])
, _dcevrsMarker :: !(Maybe Text)
, _dcevrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeCacheEngineVersionsResponse
:: Int
-> DescribeCacheEngineVersionsResponse
describeCacheEngineVersionsResponse pResponseStatus_ =
DescribeCacheEngineVersionsResponse'
{ _dcevrsCacheEngineVersions = Nothing
, _dcevrsMarker = Nothing
, _dcevrsResponseStatus = pResponseStatus_
}
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})
dcevrsResponseStatus :: Lens' DescribeCacheEngineVersionsResponse Int
dcevrsResponseStatus = lens _dcevrsResponseStatus (\ s a -> s{_dcevrsResponseStatus = a})
instance NFData DescribeCacheEngineVersionsResponse
where