module Network.AWS.OpsWorks.UpdateRDSDBInstance
(
updateRDSDBInstance
, UpdateRDSDBInstance
, urdiDBUser
, urdiDBPassword
, urdiRDSDBInstanceARN
, updateRDSDBInstanceResponse
, UpdateRDSDBInstanceResponse
) 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 UpdateRDSDBInstance = UpdateRDSDBInstance'
{ _urdiDBUser :: !(Maybe Text)
, _urdiDBPassword :: !(Maybe Text)
, _urdiRDSDBInstanceARN :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateRDSDBInstance
:: Text
-> UpdateRDSDBInstance
updateRDSDBInstance pRDSDBInstanceARN_ =
UpdateRDSDBInstance'
{ _urdiDBUser = Nothing
, _urdiDBPassword = Nothing
, _urdiRDSDBInstanceARN = pRDSDBInstanceARN_
}
urdiDBUser :: Lens' UpdateRDSDBInstance (Maybe Text)
urdiDBUser = lens _urdiDBUser (\ s a -> s{_urdiDBUser = a});
urdiDBPassword :: Lens' UpdateRDSDBInstance (Maybe Text)
urdiDBPassword = lens _urdiDBPassword (\ s a -> s{_urdiDBPassword = a});
urdiRDSDBInstanceARN :: Lens' UpdateRDSDBInstance Text
urdiRDSDBInstanceARN = lens _urdiRDSDBInstanceARN (\ s a -> s{_urdiRDSDBInstanceARN = a});
instance AWSRequest UpdateRDSDBInstance where
type Rs UpdateRDSDBInstance =
UpdateRDSDBInstanceResponse
request = postJSON opsWorks
response = receiveNull UpdateRDSDBInstanceResponse'
instance ToHeaders UpdateRDSDBInstance where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.UpdateRdsDbInstance" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateRDSDBInstance where
toJSON UpdateRDSDBInstance'{..}
= object
(catMaybes
[("DbUser" .=) <$> _urdiDBUser,
("DbPassword" .=) <$> _urdiDBPassword,
Just ("RdsDbInstanceArn" .= _urdiRDSDBInstanceARN)])
instance ToPath UpdateRDSDBInstance where
toPath = const "/"
instance ToQuery UpdateRDSDBInstance where
toQuery = const mempty
data UpdateRDSDBInstanceResponse =
UpdateRDSDBInstanceResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
updateRDSDBInstanceResponse
:: UpdateRDSDBInstanceResponse
updateRDSDBInstanceResponse = UpdateRDSDBInstanceResponse'