module Network.AWS.OpsWorks.UpdateRdsDbInstance
(
UpdateRdsDbInstance
, updateRdsDbInstance
, urdiDbPassword
, urdiDbUser
, urdiRdsDbInstanceArn
, UpdateRdsDbInstanceResponse
, updateRdsDbInstanceResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.OpsWorks.Types
import qualified GHC.Exts
data UpdateRdsDbInstance = UpdateRdsDbInstance
{ _urdiDbPassword :: Maybe Text
, _urdiDbUser :: Maybe Text
, _urdiRdsDbInstanceArn :: Text
} deriving (Eq, Ord, Show)
updateRdsDbInstance :: Text
-> UpdateRdsDbInstance
updateRdsDbInstance p1 = UpdateRdsDbInstance
{ _urdiRdsDbInstanceArn = p1
, _urdiDbUser = Nothing
, _urdiDbPassword = Nothing
}
urdiDbPassword :: Lens' UpdateRdsDbInstance (Maybe Text)
urdiDbPassword = lens _urdiDbPassword (\s a -> s { _urdiDbPassword = a })
urdiDbUser :: Lens' UpdateRdsDbInstance (Maybe Text)
urdiDbUser = lens _urdiDbUser (\s a -> s { _urdiDbUser = a })
urdiRdsDbInstanceArn :: Lens' UpdateRdsDbInstance Text
urdiRdsDbInstanceArn =
lens _urdiRdsDbInstanceArn (\s a -> s { _urdiRdsDbInstanceArn = a })
data UpdateRdsDbInstanceResponse = UpdateRdsDbInstanceResponse
deriving (Eq, Ord, Show, Generic)
updateRdsDbInstanceResponse :: UpdateRdsDbInstanceResponse
updateRdsDbInstanceResponse = UpdateRdsDbInstanceResponse
instance ToPath UpdateRdsDbInstance where
toPath = const "/"
instance ToQuery UpdateRdsDbInstance where
toQuery = const mempty
instance ToHeaders UpdateRdsDbInstance
instance ToJSON UpdateRdsDbInstance where
toJSON UpdateRdsDbInstance{..} = object
[ "RdsDbInstanceArn" .= _urdiRdsDbInstanceArn
, "DbUser" .= _urdiDbUser
, "DbPassword" .= _urdiDbPassword
]
instance AWSRequest UpdateRdsDbInstance where
type Sv UpdateRdsDbInstance = OpsWorks
type Rs UpdateRdsDbInstance = UpdateRdsDbInstanceResponse
request = post "UpdateRdsDbInstance"
response = nullResponse UpdateRdsDbInstanceResponse