{-# 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.AddRoleToDBCluster
(
addRoleToDBCluster
, AddRoleToDBCluster
, artdcDBClusterIdentifier
, artdcRoleARN
, addRoleToDBClusterResponse
, AddRoleToDBClusterResponse
) 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 AddRoleToDBCluster = AddRoleToDBCluster'
{ _artdcDBClusterIdentifier :: !Text
, _artdcRoleARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
addRoleToDBCluster
:: Text
-> Text
-> AddRoleToDBCluster
addRoleToDBCluster pDBClusterIdentifier_ pRoleARN_ =
AddRoleToDBCluster'
{ _artdcDBClusterIdentifier = pDBClusterIdentifier_
, _artdcRoleARN = pRoleARN_
}
artdcDBClusterIdentifier :: Lens' AddRoleToDBCluster Text
artdcDBClusterIdentifier = lens _artdcDBClusterIdentifier (\ s a -> s{_artdcDBClusterIdentifier = a})
artdcRoleARN :: Lens' AddRoleToDBCluster Text
artdcRoleARN = lens _artdcRoleARN (\ s a -> s{_artdcRoleARN = a})
instance AWSRequest AddRoleToDBCluster where
type Rs AddRoleToDBCluster =
AddRoleToDBClusterResponse
request = postQuery rds
response = receiveNull AddRoleToDBClusterResponse'
instance Hashable AddRoleToDBCluster where
instance NFData AddRoleToDBCluster where
instance ToHeaders AddRoleToDBCluster where
toHeaders = const mempty
instance ToPath AddRoleToDBCluster where
toPath = const "/"
instance ToQuery AddRoleToDBCluster where
toQuery AddRoleToDBCluster'{..}
= mconcat
["Action" =: ("AddRoleToDBCluster" :: ByteString),
"Version" =: ("2014-10-31" :: ByteString),
"DBClusterIdentifier" =: _artdcDBClusterIdentifier,
"RoleArn" =: _artdcRoleARN]
data AddRoleToDBClusterResponse =
AddRoleToDBClusterResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
addRoleToDBClusterResponse
:: AddRoleToDBClusterResponse
addRoleToDBClusterResponse = AddRoleToDBClusterResponse'
instance NFData AddRoleToDBClusterResponse where