{-# 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.OpsWorks.RegisterRDSDBInstance
(
registerRDSDBInstance
, RegisterRDSDBInstance
, rrdiStackId
, rrdiRDSDBInstanceARN
, rrdiDBUser
, rrdiDBPassword
, registerRDSDBInstanceResponse
, RegisterRDSDBInstanceResponse
) where
import Network.AWS.Lens
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 Hashable RegisterRDSDBInstance where
instance NFData RegisterRDSDBInstance where
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'
instance NFData RegisterRDSDBInstanceResponse where