module Network.AWS.ElastiCache.DescribeEngineDefaultParameters
(
DescribeEngineDefaultParameters
, describeEngineDefaultParameters
, dedpCacheParameterGroupFamily
, dedpMarker
, dedpMaxRecords
, DescribeEngineDefaultParametersResponse
, describeEngineDefaultParametersResponse
, dedprEngineDefaults
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ElastiCache.Types
import qualified GHC.Exts
data DescribeEngineDefaultParameters = DescribeEngineDefaultParameters
{ _dedpCacheParameterGroupFamily :: Text
, _dedpMarker :: Maybe Text
, _dedpMaxRecords :: Maybe Int
} deriving (Eq, Ord, Show)
describeEngineDefaultParameters :: Text
-> DescribeEngineDefaultParameters
describeEngineDefaultParameters p1 = DescribeEngineDefaultParameters
{ _dedpCacheParameterGroupFamily = p1
, _dedpMaxRecords = Nothing
, _dedpMarker = Nothing
}
dedpCacheParameterGroupFamily :: Lens' DescribeEngineDefaultParameters Text
dedpCacheParameterGroupFamily =
lens _dedpCacheParameterGroupFamily
(\s a -> s { _dedpCacheParameterGroupFamily = a })
dedpMarker :: Lens' DescribeEngineDefaultParameters (Maybe Text)
dedpMarker = lens _dedpMarker (\s a -> s { _dedpMarker = a })
dedpMaxRecords :: Lens' DescribeEngineDefaultParameters (Maybe Int)
dedpMaxRecords = lens _dedpMaxRecords (\s a -> s { _dedpMaxRecords = a })
newtype DescribeEngineDefaultParametersResponse = DescribeEngineDefaultParametersResponse
{ _dedprEngineDefaults :: EngineDefaults
} deriving (Eq, Show)
describeEngineDefaultParametersResponse :: EngineDefaults
-> DescribeEngineDefaultParametersResponse
describeEngineDefaultParametersResponse p1 = DescribeEngineDefaultParametersResponse
{ _dedprEngineDefaults = p1
}
dedprEngineDefaults :: Lens' DescribeEngineDefaultParametersResponse EngineDefaults
dedprEngineDefaults =
lens _dedprEngineDefaults (\s a -> s { _dedprEngineDefaults = a })
instance ToPath DescribeEngineDefaultParameters where
toPath = const "/"
instance ToQuery DescribeEngineDefaultParameters where
toQuery DescribeEngineDefaultParameters{..} = mconcat
[ "CacheParameterGroupFamily" =? _dedpCacheParameterGroupFamily
, "Marker" =? _dedpMarker
, "MaxRecords" =? _dedpMaxRecords
]
instance ToHeaders DescribeEngineDefaultParameters
instance AWSRequest DescribeEngineDefaultParameters where
type Sv DescribeEngineDefaultParameters = ElastiCache
type Rs DescribeEngineDefaultParameters = DescribeEngineDefaultParametersResponse
request = post "DescribeEngineDefaultParameters"
response = xmlResponse
instance FromXML DescribeEngineDefaultParametersResponse where
parseXML = withElement "DescribeEngineDefaultParametersResult" $ \x -> DescribeEngineDefaultParametersResponse
<$> x .@ "EngineDefaults"
instance AWSPager DescribeEngineDefaultParameters where
page rq rs
| stop (rq ^. dedpMarker) = Nothing
| otherwise = (\x -> rq & dedpMarker ?~ x)
<$> (rs ^. dedprEngineDefaults . edMarker)