{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.RDS.DescribeDBClusterParameters
(
describeDBClusterParameters
, DescribeDBClusterParameters
, ddcpFilters
, ddcpMarker
, ddcpMaxRecords
, ddcpSource
, ddcpDBClusterParameterGroupName
, describeDBClusterParametersResponse
, DescribeDBClusterParametersResponse
, ddcprsMarker
, ddcprsParameters
, ddcprsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.RDS.Types
import Network.AWS.RDS.Types.Product
import Network.AWS.Request
import Network.AWS.Response
data DescribeDBClusterParameters = DescribeDBClusterParameters'
{ _ddcpFilters :: !(Maybe [Filter])
, _ddcpMarker :: !(Maybe Text)
, _ddcpMaxRecords :: !(Maybe Int)
, _ddcpSource :: !(Maybe Text)
, _ddcpDBClusterParameterGroupName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeDBClusterParameters
:: Text
-> DescribeDBClusterParameters
describeDBClusterParameters pDBClusterParameterGroupName_ =
DescribeDBClusterParameters'
{ _ddcpFilters = Nothing
, _ddcpMarker = Nothing
, _ddcpMaxRecords = Nothing
, _ddcpSource = Nothing
, _ddcpDBClusterParameterGroupName = pDBClusterParameterGroupName_
}
ddcpFilters :: Lens' DescribeDBClusterParameters [Filter]
ddcpFilters = lens _ddcpFilters (\ s a -> s{_ddcpFilters = a}) . _Default . _Coerce
ddcpMarker :: Lens' DescribeDBClusterParameters (Maybe Text)
ddcpMarker = lens _ddcpMarker (\ s a -> s{_ddcpMarker = a})
ddcpMaxRecords :: Lens' DescribeDBClusterParameters (Maybe Int)
ddcpMaxRecords = lens _ddcpMaxRecords (\ s a -> s{_ddcpMaxRecords = a})
ddcpSource :: Lens' DescribeDBClusterParameters (Maybe Text)
ddcpSource = lens _ddcpSource (\ s a -> s{_ddcpSource = a})
ddcpDBClusterParameterGroupName :: Lens' DescribeDBClusterParameters Text
ddcpDBClusterParameterGroupName = lens _ddcpDBClusterParameterGroupName (\ s a -> s{_ddcpDBClusterParameterGroupName = a})
instance AWSRequest DescribeDBClusterParameters where
type Rs DescribeDBClusterParameters =
DescribeDBClusterParametersResponse
request = postQuery rds
response
= receiveXMLWrapper
"DescribeDBClusterParametersResult"
(\ s h x ->
DescribeDBClusterParametersResponse' <$>
(x .@? "Marker") <*>
(x .@? "Parameters" .!@ mempty >>=
may (parseXMLList "Parameter"))
<*> (pure (fromEnum s)))
instance Hashable DescribeDBClusterParameters where
instance NFData DescribeDBClusterParameters where
instance ToHeaders DescribeDBClusterParameters where
toHeaders = const mempty
instance ToPath DescribeDBClusterParameters where
toPath = const "/"
instance ToQuery DescribeDBClusterParameters where
toQuery DescribeDBClusterParameters'{..}
= mconcat
["Action" =:
("DescribeDBClusterParameters" :: ByteString),
"Version" =: ("2014-10-31" :: ByteString),
"Filters" =:
toQuery (toQueryList "Filter" <$> _ddcpFilters),
"Marker" =: _ddcpMarker,
"MaxRecords" =: _ddcpMaxRecords,
"Source" =: _ddcpSource,
"DBClusterParameterGroupName" =:
_ddcpDBClusterParameterGroupName]
data DescribeDBClusterParametersResponse = DescribeDBClusterParametersResponse'
{ _ddcprsMarker :: !(Maybe Text)
, _ddcprsParameters :: !(Maybe [Parameter])
, _ddcprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeDBClusterParametersResponse
:: Int
-> DescribeDBClusterParametersResponse
describeDBClusterParametersResponse pResponseStatus_ =
DescribeDBClusterParametersResponse'
{ _ddcprsMarker = Nothing
, _ddcprsParameters = Nothing
, _ddcprsResponseStatus = pResponseStatus_
}
ddcprsMarker :: Lens' DescribeDBClusterParametersResponse (Maybe Text)
ddcprsMarker = lens _ddcprsMarker (\ s a -> s{_ddcprsMarker = a})
ddcprsParameters :: Lens' DescribeDBClusterParametersResponse [Parameter]
ddcprsParameters = lens _ddcprsParameters (\ s a -> s{_ddcprsParameters = a}) . _Default . _Coerce
ddcprsResponseStatus :: Lens' DescribeDBClusterParametersResponse Int
ddcprsResponseStatus = lens _ddcprsResponseStatus (\ s a -> s{_ddcprsResponseStatus = a})
instance NFData DescribeDBClusterParametersResponse
where