module Network.AWS.OpsWorks.RegisterRDSDBInstance
(
registerRDSDBInstance
, RegisterRDSDBInstance
, rrdiStackId
, rrdiRDSDBInstanceARN
, rrdiDBUser
, rrdiDBPassword
, registerRDSDBInstanceResponse
, RegisterRDSDBInstanceResponse
) where
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data RegisterRDSDBInstance = RegisterRDSDBInstance'
{ _rrdiStackId :: !Text
, _rrdiRDSDBInstanceARN :: !Text
, _rrdiDBUser :: !Text
, _rrdiDBPassword :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
registerRDSDBInstance
:: Text
-> Text
-> Text
-> Text
-> RegisterRDSDBInstance
registerRDSDBInstance pStackId_ pRDSDBInstanceARN_ pDBUser_ pDBPassword_ =
RegisterRDSDBInstance'
{ _rrdiStackId = pStackId_
, _rrdiRDSDBInstanceARN = pRDSDBInstanceARN_
, _rrdiDBUser = pDBUser_
, _rrdiDBPassword = pDBPassword_
}
rrdiStackId :: Lens' RegisterRDSDBInstance Text
rrdiStackId = lens _rrdiStackId (\ s a -> s{_rrdiStackId = a});
rrdiRDSDBInstanceARN :: Lens' RegisterRDSDBInstance Text
rrdiRDSDBInstanceARN = lens _rrdiRDSDBInstanceARN (\ s a -> s{_rrdiRDSDBInstanceARN = a});
rrdiDBUser :: Lens' RegisterRDSDBInstance Text
rrdiDBUser = lens _rrdiDBUser (\ s a -> s{_rrdiDBUser = a});
rrdiDBPassword :: Lens' RegisterRDSDBInstance Text
rrdiDBPassword = lens _rrdiDBPassword (\ s a -> s{_rrdiDBPassword = a});
instance AWSRequest RegisterRDSDBInstance where
type Rs RegisterRDSDBInstance =
RegisterRDSDBInstanceResponse
request = postJSON opsWorks
response = receiveNull RegisterRDSDBInstanceResponse'
instance ToHeaders RegisterRDSDBInstance where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.RegisterRdsDbInstance" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RegisterRDSDBInstance where
toJSON RegisterRDSDBInstance'{..}
= object
(catMaybes
[Just ("StackId" .= _rrdiStackId),
Just ("RdsDbInstanceArn" .= _rrdiRDSDBInstanceARN),
Just ("DbUser" .= _rrdiDBUser),
Just ("DbPassword" .= _rrdiDBPassword)])
instance ToPath RegisterRDSDBInstance where
toPath = const "/"
instance ToQuery RegisterRDSDBInstance where
toQuery = const mempty
data RegisterRDSDBInstanceResponse =
RegisterRDSDBInstanceResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
registerRDSDBInstanceResponse
:: RegisterRDSDBInstanceResponse
registerRDSDBInstanceResponse = RegisterRDSDBInstanceResponse'