module Network.AWS.RDS.ApplyPendingMaintenanceAction
(
ApplyPendingMaintenanceAction
, applyPendingMaintenanceAction
, apmaApplyAction
, apmaOptInType
, apmaResourceIdentifier
, ApplyPendingMaintenanceActionResponse
, applyPendingMaintenanceActionResponse
, apmarResourcePendingMaintenanceActions
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.RDS.Types
import qualified GHC.Exts
data ApplyPendingMaintenanceAction = ApplyPendingMaintenanceAction
{ _apmaApplyAction :: Text
, _apmaOptInType :: Text
, _apmaResourceIdentifier :: Text
} deriving (Eq, Ord, Show)
applyPendingMaintenanceAction :: Text
-> Text
-> Text
-> ApplyPendingMaintenanceAction
applyPendingMaintenanceAction p1 p2 p3 = ApplyPendingMaintenanceAction
{ _apmaResourceIdentifier = p1
, _apmaApplyAction = p2
, _apmaOptInType = p3
}
apmaApplyAction :: Lens' ApplyPendingMaintenanceAction Text
apmaApplyAction = lens _apmaApplyAction (\s a -> s { _apmaApplyAction = a })
apmaOptInType :: Lens' ApplyPendingMaintenanceAction Text
apmaOptInType = lens _apmaOptInType (\s a -> s { _apmaOptInType = a })
apmaResourceIdentifier :: Lens' ApplyPendingMaintenanceAction Text
apmaResourceIdentifier =
lens _apmaResourceIdentifier (\s a -> s { _apmaResourceIdentifier = a })
newtype ApplyPendingMaintenanceActionResponse = ApplyPendingMaintenanceActionResponse
{ _apmarResourcePendingMaintenanceActions :: Maybe ResourcePendingMaintenanceActions
} deriving (Eq, Show)
applyPendingMaintenanceActionResponse :: ApplyPendingMaintenanceActionResponse
applyPendingMaintenanceActionResponse = ApplyPendingMaintenanceActionResponse
{ _apmarResourcePendingMaintenanceActions = Nothing
}
apmarResourcePendingMaintenanceActions :: Lens' ApplyPendingMaintenanceActionResponse (Maybe ResourcePendingMaintenanceActions)
apmarResourcePendingMaintenanceActions =
lens _apmarResourcePendingMaintenanceActions
(\s a -> s { _apmarResourcePendingMaintenanceActions = a })
instance ToPath ApplyPendingMaintenanceAction where
toPath = const "/"
instance ToQuery ApplyPendingMaintenanceAction where
toQuery ApplyPendingMaintenanceAction{..} = mconcat
[ "ApplyAction" =? _apmaApplyAction
, "OptInType" =? _apmaOptInType
, "ResourceIdentifier" =? _apmaResourceIdentifier
]
instance ToHeaders ApplyPendingMaintenanceAction
instance AWSRequest ApplyPendingMaintenanceAction where
type Sv ApplyPendingMaintenanceAction = RDS
type Rs ApplyPendingMaintenanceAction = ApplyPendingMaintenanceActionResponse
request = post "ApplyPendingMaintenanceAction"
response = xmlResponse
instance FromXML ApplyPendingMaintenanceActionResponse where
parseXML = withElement "ApplyPendingMaintenanceActionResult" $ \x -> ApplyPendingMaintenanceActionResponse
<$> x .@? "ResourcePendingMaintenanceActions"