module Network.AWS.ElastiCache.DescribeEngineDefaultParameters
(
describeEngineDefaultParameters
, DescribeEngineDefaultParameters
, dedpMaxRecords
, dedpMarker
, dedpCacheParameterGroupFamily
, describeEngineDefaultParametersResponse
, DescribeEngineDefaultParametersResponse
, dedprsStatus
, dedprsEngineDefaults
) 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 DescribeEngineDefaultParameters = DescribeEngineDefaultParameters'
{ _dedpMaxRecords :: !(Maybe Int)
, _dedpMarker :: !(Maybe Text)
, _dedpCacheParameterGroupFamily :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEngineDefaultParameters
:: Text
-> DescribeEngineDefaultParameters
describeEngineDefaultParameters pCacheParameterGroupFamily_ =
DescribeEngineDefaultParameters'
{ _dedpMaxRecords = Nothing
, _dedpMarker = Nothing
, _dedpCacheParameterGroupFamily = pCacheParameterGroupFamily_
}
dedpMaxRecords :: Lens' DescribeEngineDefaultParameters (Maybe Int)
dedpMaxRecords = lens _dedpMaxRecords (\ s a -> s{_dedpMaxRecords = a});
dedpMarker :: Lens' DescribeEngineDefaultParameters (Maybe Text)
dedpMarker = lens _dedpMarker (\ s a -> s{_dedpMarker = a});
dedpCacheParameterGroupFamily :: Lens' DescribeEngineDefaultParameters Text
dedpCacheParameterGroupFamily = lens _dedpCacheParameterGroupFamily (\ s a -> s{_dedpCacheParameterGroupFamily = a});
instance AWSPager DescribeEngineDefaultParameters
where
page rq rs
| stop
(rs ^? dedprsEngineDefaults . edMarker . _Just)
= Nothing
| stop (rs ^. dedprsEngineDefaults . edParameters) =
Nothing
| otherwise =
Just $ rq &
dedpMarker .~
rs ^? dedprsEngineDefaults . edMarker . _Just
instance AWSRequest DescribeEngineDefaultParameters
where
type Sv DescribeEngineDefaultParameters = ElastiCache
type Rs DescribeEngineDefaultParameters =
DescribeEngineDefaultParametersResponse
request = postQuery
response
= receiveXMLWrapper
"DescribeEngineDefaultParametersResult"
(\ s h x ->
DescribeEngineDefaultParametersResponse' <$>
(pure (fromEnum s)) <*> (x .@ "EngineDefaults"))
instance ToHeaders DescribeEngineDefaultParameters
where
toHeaders = const mempty
instance ToPath DescribeEngineDefaultParameters where
toPath = const "/"
instance ToQuery DescribeEngineDefaultParameters
where
toQuery DescribeEngineDefaultParameters'{..}
= mconcat
["Action" =:
("DescribeEngineDefaultParameters" :: ByteString),
"Version" =: ("2015-02-02" :: ByteString),
"MaxRecords" =: _dedpMaxRecords,
"Marker" =: _dedpMarker,
"CacheParameterGroupFamily" =:
_dedpCacheParameterGroupFamily]
data DescribeEngineDefaultParametersResponse = DescribeEngineDefaultParametersResponse'
{ _dedprsStatus :: !Int
, _dedprsEngineDefaults :: !EngineDefaults
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEngineDefaultParametersResponse
:: Int
-> EngineDefaults
-> DescribeEngineDefaultParametersResponse
describeEngineDefaultParametersResponse pStatus_ pEngineDefaults_ =
DescribeEngineDefaultParametersResponse'
{ _dedprsStatus = pStatus_
, _dedprsEngineDefaults = pEngineDefaults_
}
dedprsStatus :: Lens' DescribeEngineDefaultParametersResponse Int
dedprsStatus = lens _dedprsStatus (\ s a -> s{_dedprsStatus = a});
dedprsEngineDefaults :: Lens' DescribeEngineDefaultParametersResponse EngineDefaults
dedprsEngineDefaults = lens _dedprsEngineDefaults (\ s a -> s{_dedprsEngineDefaults = a});