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