module Network.AWS.OpsWorks.RegisterRdsDbInstance
(
RegisterRdsDbInstance
, registerRdsDbInstance
, rrdiDbPassword
, rrdiDbUser
, rrdiRdsDbInstanceArn
, rrdiStackId
, RegisterRdsDbInstanceResponse
, registerRdsDbInstanceResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.OpsWorks.Types
import qualified GHC.Exts
data RegisterRdsDbInstance = RegisterRdsDbInstance
{ _rrdiDbPassword :: Text
, _rrdiDbUser :: Text
, _rrdiRdsDbInstanceArn :: Text
, _rrdiStackId :: Text
} deriving (Eq, Ord, Show)
registerRdsDbInstance :: Text
-> Text
-> Text
-> Text
-> RegisterRdsDbInstance
registerRdsDbInstance p1 p2 p3 p4 = RegisterRdsDbInstance
{ _rrdiStackId = p1
, _rrdiRdsDbInstanceArn = p2
, _rrdiDbUser = p3
, _rrdiDbPassword = p4
}
rrdiDbPassword :: Lens' RegisterRdsDbInstance Text
rrdiDbPassword = lens _rrdiDbPassword (\s a -> s { _rrdiDbPassword = a })
rrdiDbUser :: Lens' RegisterRdsDbInstance Text
rrdiDbUser = lens _rrdiDbUser (\s a -> s { _rrdiDbUser = a })
rrdiRdsDbInstanceArn :: Lens' RegisterRdsDbInstance Text
rrdiRdsDbInstanceArn =
lens _rrdiRdsDbInstanceArn (\s a -> s { _rrdiRdsDbInstanceArn = a })
rrdiStackId :: Lens' RegisterRdsDbInstance Text
rrdiStackId = lens _rrdiStackId (\s a -> s { _rrdiStackId = a })
data RegisterRdsDbInstanceResponse = RegisterRdsDbInstanceResponse
deriving (Eq, Ord, Show, Generic)
registerRdsDbInstanceResponse :: RegisterRdsDbInstanceResponse
registerRdsDbInstanceResponse = RegisterRdsDbInstanceResponse
instance ToPath RegisterRdsDbInstance where
toPath = const "/"
instance ToQuery RegisterRdsDbInstance where
toQuery = const mempty
instance ToHeaders RegisterRdsDbInstance
instance ToJSON RegisterRdsDbInstance where
toJSON RegisterRdsDbInstance{..} = object
[ "StackId" .= _rrdiStackId
, "RdsDbInstanceArn" .= _rrdiRdsDbInstanceArn
, "DbUser" .= _rrdiDbUser
, "DbPassword" .= _rrdiDbPassword
]
instance AWSRequest RegisterRdsDbInstance where
type Sv RegisterRdsDbInstance = OpsWorks
type Rs RegisterRdsDbInstance = RegisterRdsDbInstanceResponse
request = post "RegisterRdsDbInstance"
response = nullResponse RegisterRdsDbInstanceResponse