module Network.AWS.RDS.DescribeEngineDefaultParameters
(
DescribeEngineDefaultParameters
, describeEngineDefaultParameters
, dedpDBParameterGroupFamily
, dedpFilters
, dedpMarker
, dedpMaxRecords
, DescribeEngineDefaultParametersResponse
, describeEngineDefaultParametersResponse
, dedprEngineDefaults
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.RDS.Types
import qualified GHC.Exts
data DescribeEngineDefaultParameters = DescribeEngineDefaultParameters
{ _dedpDBParameterGroupFamily :: Text
, _dedpFilters :: List "member" Filter
, _dedpMarker :: Maybe Text
, _dedpMaxRecords :: Maybe Int
} deriving (Eq, Read, Show)
describeEngineDefaultParameters :: Text
-> DescribeEngineDefaultParameters
describeEngineDefaultParameters p1 = DescribeEngineDefaultParameters
{ _dedpDBParameterGroupFamily = p1
, _dedpFilters = mempty
, _dedpMaxRecords = Nothing
, _dedpMarker = Nothing
}
dedpDBParameterGroupFamily :: Lens' DescribeEngineDefaultParameters Text
dedpDBParameterGroupFamily =
lens _dedpDBParameterGroupFamily
(\s a -> s { _dedpDBParameterGroupFamily = a })
dedpFilters :: Lens' DescribeEngineDefaultParameters [Filter]
dedpFilters = lens _dedpFilters (\s a -> s { _dedpFilters = a }) . _List
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, Read, 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
[ "DBParameterGroupFamily" =? _dedpDBParameterGroupFamily
, "Filters" =? _dedpFilters
, "Marker" =? _dedpMarker
, "MaxRecords" =? _dedpMaxRecords
]
instance ToHeaders DescribeEngineDefaultParameters
instance AWSRequest DescribeEngineDefaultParameters where
type Sv DescribeEngineDefaultParameters = RDS
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 (rs ^. dedprEngineDefaults . edMarker) = Nothing
| otherwise = (\x -> rq & dedpMarker ?~ x)
<$> (rs ^. dedprEngineDefaults . edMarker)