{-# 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.DescribeEngineDefaultClusterParameters
(
describeEngineDefaultClusterParameters
, DescribeEngineDefaultClusterParameters
, dedcpFilters
, dedcpMarker
, dedcpMaxRecords
, dedcpDBParameterGroupFamily
, describeEngineDefaultClusterParametersResponse
, DescribeEngineDefaultClusterParametersResponse
, dedcprsEngineDefaults
, dedcprsResponseStatus
) 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 DescribeEngineDefaultClusterParameters = DescribeEngineDefaultClusterParameters'
{ _dedcpFilters :: !(Maybe [Filter])
, _dedcpMarker :: !(Maybe Text)
, _dedcpMaxRecords :: !(Maybe Int)
, _dedcpDBParameterGroupFamily :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEngineDefaultClusterParameters
:: Text
-> DescribeEngineDefaultClusterParameters
describeEngineDefaultClusterParameters pDBParameterGroupFamily_ =
DescribeEngineDefaultClusterParameters'
{ _dedcpFilters = Nothing
, _dedcpMarker = Nothing
, _dedcpMaxRecords = Nothing
, _dedcpDBParameterGroupFamily = pDBParameterGroupFamily_
}
dedcpFilters :: Lens' DescribeEngineDefaultClusterParameters [Filter]
dedcpFilters = lens _dedcpFilters (\ s a -> s{_dedcpFilters = a}) . _Default . _Coerce
dedcpMarker :: Lens' DescribeEngineDefaultClusterParameters (Maybe Text)
dedcpMarker = lens _dedcpMarker (\ s a -> s{_dedcpMarker = a})
dedcpMaxRecords :: Lens' DescribeEngineDefaultClusterParameters (Maybe Int)
dedcpMaxRecords = lens _dedcpMaxRecords (\ s a -> s{_dedcpMaxRecords = a})
dedcpDBParameterGroupFamily :: Lens' DescribeEngineDefaultClusterParameters Text
dedcpDBParameterGroupFamily = lens _dedcpDBParameterGroupFamily (\ s a -> s{_dedcpDBParameterGroupFamily = a})
instance AWSRequest
DescribeEngineDefaultClusterParameters
where
type Rs DescribeEngineDefaultClusterParameters =
DescribeEngineDefaultClusterParametersResponse
request = postQuery rds
response
= receiveXMLWrapper
"DescribeEngineDefaultClusterParametersResult"
(\ s h x ->
DescribeEngineDefaultClusterParametersResponse' <$>
(x .@? "EngineDefaults") <*> (pure (fromEnum s)))
instance Hashable
DescribeEngineDefaultClusterParameters
where
instance NFData
DescribeEngineDefaultClusterParameters
where
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),
"Marker" =: _dedcpMarker,
"MaxRecords" =: _dedcpMaxRecords,
"DBParameterGroupFamily" =:
_dedcpDBParameterGroupFamily]
data DescribeEngineDefaultClusterParametersResponse = DescribeEngineDefaultClusterParametersResponse'
{ _dedcprsEngineDefaults :: !(Maybe EngineDefaults)
, _dedcprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEngineDefaultClusterParametersResponse
:: Int
-> DescribeEngineDefaultClusterParametersResponse
describeEngineDefaultClusterParametersResponse pResponseStatus_ =
DescribeEngineDefaultClusterParametersResponse'
{ _dedcprsEngineDefaults = Nothing
, _dedcprsResponseStatus = pResponseStatus_
}
dedcprsEngineDefaults :: Lens' DescribeEngineDefaultClusterParametersResponse (Maybe EngineDefaults)
dedcprsEngineDefaults = lens _dedcprsEngineDefaults (\ s a -> s{_dedcprsEngineDefaults = a})
dedcprsResponseStatus :: Lens' DescribeEngineDefaultClusterParametersResponse Int
dedcprsResponseStatus = lens _dedcprsResponseStatus (\ s a -> s{_dedcprsResponseStatus = a})
instance NFData
DescribeEngineDefaultClusterParametersResponse
where