module Network.AWS.RDS.DescribeEngineDefaultClusterParameters
(
describeEngineDefaultClusterParameters
, DescribeEngineDefaultClusterParameters
, dedcpFilters
, dedcpMaxRecords
, dedcpMarker
, dedcpDBParameterGroupFamily
, describeEngineDefaultClusterParametersResponse
, DescribeEngineDefaultClusterParametersResponse
, dedcprsEngineDefaults
, dedcprsStatus
) where
import Network.AWS.Prelude
import Network.AWS.RDS.Types
import Network.AWS.RDS.Types.Product
import Network.AWS.Request
import Network.AWS.Response
data DescribeEngineDefaultClusterParameters = DescribeEngineDefaultClusterParameters'
{ _dedcpFilters :: !(Maybe [Filter])
, _dedcpMaxRecords :: !(Maybe Int)
, _dedcpMarker :: !(Maybe Text)
, _dedcpDBParameterGroupFamily :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEngineDefaultClusterParameters
:: Text
-> DescribeEngineDefaultClusterParameters
describeEngineDefaultClusterParameters pDBParameterGroupFamily_ =
DescribeEngineDefaultClusterParameters'
{ _dedcpFilters = Nothing
, _dedcpMaxRecords = Nothing
, _dedcpMarker = Nothing
, _dedcpDBParameterGroupFamily = pDBParameterGroupFamily_
}
dedcpFilters :: Lens' DescribeEngineDefaultClusterParameters [Filter]
dedcpFilters = lens _dedcpFilters (\ s a -> s{_dedcpFilters = a}) . _Default . _Coerce;
dedcpMaxRecords :: Lens' DescribeEngineDefaultClusterParameters (Maybe Int)
dedcpMaxRecords = lens _dedcpMaxRecords (\ s a -> s{_dedcpMaxRecords = a});
dedcpMarker :: Lens' DescribeEngineDefaultClusterParameters (Maybe Text)
dedcpMarker = lens _dedcpMarker (\ s a -> s{_dedcpMarker = a});
dedcpDBParameterGroupFamily :: Lens' DescribeEngineDefaultClusterParameters Text
dedcpDBParameterGroupFamily = lens _dedcpDBParameterGroupFamily (\ s a -> s{_dedcpDBParameterGroupFamily = a});
instance AWSRequest
DescribeEngineDefaultClusterParameters where
type Sv DescribeEngineDefaultClusterParameters = RDS
type Rs DescribeEngineDefaultClusterParameters =
DescribeEngineDefaultClusterParametersResponse
request = postQuery
response
= receiveXMLWrapper
"DescribeEngineDefaultClusterParametersResult"
(\ s h x ->
DescribeEngineDefaultClusterParametersResponse' <$>
(x .@? "EngineDefaults") <*> (pure (fromEnum s)))
instance ToHeaders
DescribeEngineDefaultClusterParameters where
toHeaders = const mempty
instance ToPath
DescribeEngineDefaultClusterParameters where
toPath = const "/"
instance ToQuery
DescribeEngineDefaultClusterParameters where
toQuery DescribeEngineDefaultClusterParameters'{..}
= mconcat
["Action" =:
("DescribeEngineDefaultClusterParameters" ::
ByteString),
"Version" =: ("2014-10-31" :: ByteString),
"Filters" =:
toQuery (toQueryList "Filter" <$> _dedcpFilters),
"MaxRecords" =: _dedcpMaxRecords,
"Marker" =: _dedcpMarker,
"DBParameterGroupFamily" =:
_dedcpDBParameterGroupFamily]
data DescribeEngineDefaultClusterParametersResponse = DescribeEngineDefaultClusterParametersResponse'
{ _dedcprsEngineDefaults :: !(Maybe EngineDefaults)
, _dedcprsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEngineDefaultClusterParametersResponse
:: Int
-> DescribeEngineDefaultClusterParametersResponse
describeEngineDefaultClusterParametersResponse pStatus_ =
DescribeEngineDefaultClusterParametersResponse'
{ _dedcprsEngineDefaults = Nothing
, _dedcprsStatus = pStatus_
}
dedcprsEngineDefaults :: Lens' DescribeEngineDefaultClusterParametersResponse (Maybe EngineDefaults)
dedcprsEngineDefaults = lens _dedcprsEngineDefaults (\ s a -> s{_dedcprsEngineDefaults = a});
dedcprsStatus :: Lens' DescribeEngineDefaultClusterParametersResponse Int
dedcprsStatus = lens _dedcprsStatus (\ s a -> s{_dedcprsStatus = a});