module Network.AWS.RDS.DescribePendingMaintenanceActions
(
DescribePendingMaintenanceActions
, describePendingMaintenanceActions
, dpmaFilters
, dpmaMarker
, dpmaMaxRecords
, dpmaResourceIdentifier
, DescribePendingMaintenanceActionsResponse
, describePendingMaintenanceActionsResponse
, dpmarMarker
, dpmarPendingMaintenanceActions
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.RDS.Types
import qualified GHC.Exts
data DescribePendingMaintenanceActions = DescribePendingMaintenanceActions
{ _dpmaFilters :: List "member" Filter
, _dpmaMarker :: Maybe Text
, _dpmaMaxRecords :: Maybe Int
, _dpmaResourceIdentifier :: Maybe Text
} deriving (Eq, Read, Show)
describePendingMaintenanceActions :: DescribePendingMaintenanceActions
describePendingMaintenanceActions = DescribePendingMaintenanceActions
{ _dpmaResourceIdentifier = Nothing
, _dpmaFilters = mempty
, _dpmaMarker = Nothing
, _dpmaMaxRecords = Nothing
}
dpmaFilters :: Lens' DescribePendingMaintenanceActions [Filter]
dpmaFilters = lens _dpmaFilters (\s a -> s { _dpmaFilters = a }) . _List
dpmaMarker :: Lens' DescribePendingMaintenanceActions (Maybe Text)
dpmaMarker = lens _dpmaMarker (\s a -> s { _dpmaMarker = a })
dpmaMaxRecords :: Lens' DescribePendingMaintenanceActions (Maybe Int)
dpmaMaxRecords = lens _dpmaMaxRecords (\s a -> s { _dpmaMaxRecords = a })
dpmaResourceIdentifier :: Lens' DescribePendingMaintenanceActions (Maybe Text)
dpmaResourceIdentifier =
lens _dpmaResourceIdentifier (\s a -> s { _dpmaResourceIdentifier = a })
data DescribePendingMaintenanceActionsResponse = DescribePendingMaintenanceActionsResponse
{ _dpmarMarker :: Maybe Text
, _dpmarPendingMaintenanceActions :: List "member" ResourcePendingMaintenanceActions
} deriving (Eq, Read, Show)
describePendingMaintenanceActionsResponse :: DescribePendingMaintenanceActionsResponse
describePendingMaintenanceActionsResponse = DescribePendingMaintenanceActionsResponse
{ _dpmarPendingMaintenanceActions = mempty
, _dpmarMarker = Nothing
}
dpmarMarker :: Lens' DescribePendingMaintenanceActionsResponse (Maybe Text)
dpmarMarker = lens _dpmarMarker (\s a -> s { _dpmarMarker = a })
dpmarPendingMaintenanceActions :: Lens' DescribePendingMaintenanceActionsResponse [ResourcePendingMaintenanceActions]
dpmarPendingMaintenanceActions =
lens _dpmarPendingMaintenanceActions
(\s a -> s { _dpmarPendingMaintenanceActions = a })
. _List
instance ToPath DescribePendingMaintenanceActions where
toPath = const "/"
instance ToQuery DescribePendingMaintenanceActions where
toQuery DescribePendingMaintenanceActions{..} = mconcat
[ "Filters" =? _dpmaFilters
, "Marker" =? _dpmaMarker
, "MaxRecords" =? _dpmaMaxRecords
, "ResourceIdentifier" =? _dpmaResourceIdentifier
]
instance ToHeaders DescribePendingMaintenanceActions
instance AWSRequest DescribePendingMaintenanceActions where
type Sv DescribePendingMaintenanceActions = RDS
type Rs DescribePendingMaintenanceActions = DescribePendingMaintenanceActionsResponse
request = post "DescribePendingMaintenanceActions"
response = xmlResponse
instance FromXML DescribePendingMaintenanceActionsResponse where
parseXML = withElement "DescribePendingMaintenanceActionsResult" $ \x -> DescribePendingMaintenanceActionsResponse
<$> x .@? "Marker"
<*> x .@? "PendingMaintenanceActions" .!@ mempty