module Network.AWS.RDS.DescribeEventSubscriptions
(
describeEventSubscriptions
, DescribeEventSubscriptions
, dSubscriptionName
, dFilters
, dMarker
, dMaxRecords
, describeEventSubscriptionsResponse
, DescribeEventSubscriptionsResponse
, desrsEventSubscriptionsList
, desrsMarker
, desrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.RDS.Types
import Network.AWS.RDS.Types.Product
import Network.AWS.Request
import Network.AWS.Response
data DescribeEventSubscriptions = DescribeEventSubscriptions'
{ _dSubscriptionName :: !(Maybe Text)
, _dFilters :: !(Maybe [Filter])
, _dMarker :: !(Maybe Text)
, _dMaxRecords :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEventSubscriptions
:: DescribeEventSubscriptions
describeEventSubscriptions =
DescribeEventSubscriptions'
{ _dSubscriptionName = Nothing
, _dFilters = Nothing
, _dMarker = Nothing
, _dMaxRecords = Nothing
}
dSubscriptionName :: Lens' DescribeEventSubscriptions (Maybe Text)
dSubscriptionName = lens _dSubscriptionName (\ s a -> s{_dSubscriptionName = a});
dFilters :: Lens' DescribeEventSubscriptions [Filter]
dFilters = lens _dFilters (\ s a -> s{_dFilters = a}) . _Default . _Coerce;
dMarker :: Lens' DescribeEventSubscriptions (Maybe Text)
dMarker = lens _dMarker (\ s a -> s{_dMarker = a});
dMaxRecords :: Lens' DescribeEventSubscriptions (Maybe Int)
dMaxRecords = lens _dMaxRecords (\ s a -> s{_dMaxRecords = a});
instance AWSPager DescribeEventSubscriptions where
page rq rs
| stop (rs ^. desrsMarker) = Nothing
| stop (rs ^. desrsEventSubscriptionsList) = Nothing
| otherwise =
Just $ rq & dMarker .~ rs ^. desrsMarker
instance AWSRequest DescribeEventSubscriptions where
type Rs DescribeEventSubscriptions =
DescribeEventSubscriptionsResponse
request = postQuery rds
response
= receiveXMLWrapper
"DescribeEventSubscriptionsResult"
(\ s h x ->
DescribeEventSubscriptionsResponse' <$>
(x .@? "EventSubscriptionsList" .!@ mempty >>=
may (parseXMLList "EventSubscription"))
<*> (x .@? "Marker")
<*> (pure (fromEnum s)))
instance Hashable DescribeEventSubscriptions where
instance NFData DescribeEventSubscriptions where
instance ToHeaders DescribeEventSubscriptions where
toHeaders = const mempty
instance ToPath DescribeEventSubscriptions where
toPath = const "/"
instance ToQuery DescribeEventSubscriptions where
toQuery DescribeEventSubscriptions'{..}
= mconcat
["Action" =:
("DescribeEventSubscriptions" :: ByteString),
"Version" =: ("2014-10-31" :: ByteString),
"SubscriptionName" =: _dSubscriptionName,
"Filters" =:
toQuery (toQueryList "Filter" <$> _dFilters),
"Marker" =: _dMarker, "MaxRecords" =: _dMaxRecords]
data DescribeEventSubscriptionsResponse = DescribeEventSubscriptionsResponse'
{ _desrsEventSubscriptionsList :: !(Maybe [EventSubscription])
, _desrsMarker :: !(Maybe Text)
, _desrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEventSubscriptionsResponse
:: Int
-> DescribeEventSubscriptionsResponse
describeEventSubscriptionsResponse pResponseStatus_ =
DescribeEventSubscriptionsResponse'
{ _desrsEventSubscriptionsList = Nothing
, _desrsMarker = Nothing
, _desrsResponseStatus = pResponseStatus_
}
desrsEventSubscriptionsList :: Lens' DescribeEventSubscriptionsResponse [EventSubscription]
desrsEventSubscriptionsList = lens _desrsEventSubscriptionsList (\ s a -> s{_desrsEventSubscriptionsList = a}) . _Default . _Coerce;
desrsMarker :: Lens' DescribeEventSubscriptionsResponse (Maybe Text)
desrsMarker = lens _desrsMarker (\ s a -> s{_desrsMarker = a});
desrsResponseStatus :: Lens' DescribeEventSubscriptionsResponse Int
desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});
instance NFData DescribeEventSubscriptionsResponse
where