{-# 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.ModifyDBClusterParameterGroup
(
modifyDBClusterParameterGroup
, ModifyDBClusterParameterGroup
, mdcpgDBClusterParameterGroupName
, mdcpgParameters
, dbClusterParameterGroupNameMessage
, DBClusterParameterGroupNameMessage
, dcpgnmDBClusterParameterGroupName
) 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 ModifyDBClusterParameterGroup = ModifyDBClusterParameterGroup'
{ _mdcpgDBClusterParameterGroupName :: !Text
, _mdcpgParameters :: ![Parameter]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyDBClusterParameterGroup
:: Text
-> ModifyDBClusterParameterGroup
modifyDBClusterParameterGroup pDBClusterParameterGroupName_ =
ModifyDBClusterParameterGroup'
{ _mdcpgDBClusterParameterGroupName = pDBClusterParameterGroupName_
, _mdcpgParameters = mempty
}
mdcpgDBClusterParameterGroupName :: Lens' ModifyDBClusterParameterGroup Text
mdcpgDBClusterParameterGroupName = lens _mdcpgDBClusterParameterGroupName (\ s a -> s{_mdcpgDBClusterParameterGroupName = a})
mdcpgParameters :: Lens' ModifyDBClusterParameterGroup [Parameter]
mdcpgParameters = lens _mdcpgParameters (\ s a -> s{_mdcpgParameters = a}) . _Coerce
instance AWSRequest ModifyDBClusterParameterGroup
where
type Rs ModifyDBClusterParameterGroup =
DBClusterParameterGroupNameMessage
request = postQuery rds
response
= receiveXMLWrapper
"ModifyDBClusterParameterGroupResult"
(\ s h x -> parseXML x)
instance Hashable ModifyDBClusterParameterGroup where
instance NFData ModifyDBClusterParameterGroup where
instance ToHeaders ModifyDBClusterParameterGroup
where
toHeaders = const mempty
instance ToPath ModifyDBClusterParameterGroup where
toPath = const "/"
instance ToQuery ModifyDBClusterParameterGroup where
toQuery ModifyDBClusterParameterGroup'{..}
= mconcat
["Action" =:
("ModifyDBClusterParameterGroup" :: ByteString),
"Version" =: ("2014-10-31" :: ByteString),
"DBClusterParameterGroupName" =:
_mdcpgDBClusterParameterGroupName,
"Parameters" =:
toQueryList "Parameter" _mdcpgParameters]