module Network.AWS.RDS.DescribeEngineDefaultParameters
(
describeEngineDefaultParameters
, DescribeEngineDefaultParameters
, dedpFilters
, dedpMaxRecords
, dedpMarker
, dedpDBParameterGroupFamily
, describeEngineDefaultParametersResponse
, DescribeEngineDefaultParametersResponse
, dedprsStatus
, dedprsEngineDefaults
) where
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.RDS.Types
import Network.AWS.RDS.Types.Product
import Network.AWS.Request
import Network.AWS.Response
data DescribeEngineDefaultParameters = DescribeEngineDefaultParameters'
{ _dedpFilters :: !(Maybe [Filter])
, _dedpMaxRecords :: !(Maybe Int)
, _dedpMarker :: !(Maybe Text)
, _dedpDBParameterGroupFamily :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEngineDefaultParameters
:: Text
-> DescribeEngineDefaultParameters
describeEngineDefaultParameters pDBParameterGroupFamily_ =
DescribeEngineDefaultParameters'
{ _dedpFilters = Nothing
, _dedpMaxRecords = Nothing
, _dedpMarker = Nothing
, _dedpDBParameterGroupFamily = pDBParameterGroupFamily_
}
dedpFilters :: Lens' DescribeEngineDefaultParameters [Filter]
dedpFilters = lens _dedpFilters (\ s a -> s{_dedpFilters = a}) . _Default . _Coerce;
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});
dedpDBParameterGroupFamily :: Lens' DescribeEngineDefaultParameters Text
dedpDBParameterGroupFamily = lens _dedpDBParameterGroupFamily (\ s a -> s{_dedpDBParameterGroupFamily = 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 = RDS
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" =: ("2014-10-31" :: ByteString),
"Filters" =:
toQuery (toQueryList "Filter" <$> _dedpFilters),
"MaxRecords" =: _dedpMaxRecords,
"Marker" =: _dedpMarker,
"DBParameterGroupFamily" =:
_dedpDBParameterGroupFamily]
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});