{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.DMS.DescribeEventSubscriptions
(
describeEventSubscriptions
, DescribeEventSubscriptions
, dessSubscriptionName
, dessFilters
, dessMarker
, dessMaxRecords
, describeEventSubscriptionsResponse
, DescribeEventSubscriptionsResponse
, desrsEventSubscriptionsList
, desrsMarker
, desrsResponseStatus
) where
import Network.AWS.DMS.Types
import Network.AWS.DMS.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeEventSubscriptions = DescribeEventSubscriptions'
{ _dessSubscriptionName :: !(Maybe Text)
, _dessFilters :: !(Maybe [Filter])
, _dessMarker :: !(Maybe Text)
, _dessMaxRecords :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEventSubscriptions
:: DescribeEventSubscriptions
describeEventSubscriptions =
DescribeEventSubscriptions'
{ _dessSubscriptionName = Nothing
, _dessFilters = Nothing
, _dessMarker = Nothing
, _dessMaxRecords = Nothing
}
dessSubscriptionName :: Lens' DescribeEventSubscriptions (Maybe Text)
dessSubscriptionName = lens _dessSubscriptionName (\ s a -> s{_dessSubscriptionName = a})
dessFilters :: Lens' DescribeEventSubscriptions [Filter]
dessFilters = lens _dessFilters (\ s a -> s{_dessFilters = a}) . _Default . _Coerce
dessMarker :: Lens' DescribeEventSubscriptions (Maybe Text)
dessMarker = lens _dessMarker (\ s a -> s{_dessMarker = a})
dessMaxRecords :: Lens' DescribeEventSubscriptions (Maybe Int)
dessMaxRecords = lens _dessMaxRecords (\ s a -> s{_dessMaxRecords = a})
instance AWSPager DescribeEventSubscriptions where
page rq rs
| stop (rs ^. desrsMarker) = Nothing
| stop (rs ^. desrsEventSubscriptionsList) = Nothing
| otherwise =
Just $ rq & dessMarker .~ rs ^. desrsMarker
instance AWSRequest DescribeEventSubscriptions where
type Rs DescribeEventSubscriptions =
DescribeEventSubscriptionsResponse
request = postJSON dms
response
= receiveJSON
(\ s h x ->
DescribeEventSubscriptionsResponse' <$>
(x .?> "EventSubscriptionsList" .!@ mempty) <*>
(x .?> "Marker")
<*> (pure (fromEnum s)))
instance Hashable DescribeEventSubscriptions where
instance NFData DescribeEventSubscriptions where
instance ToHeaders DescribeEventSubscriptions where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonDMSv20160101.DescribeEventSubscriptions" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeEventSubscriptions where
toJSON DescribeEventSubscriptions'{..}
= object
(catMaybes
[("SubscriptionName" .=) <$> _dessSubscriptionName,
("Filters" .=) <$> _dessFilters,
("Marker" .=) <$> _dessMarker,
("MaxRecords" .=) <$> _dessMaxRecords])
instance ToPath DescribeEventSubscriptions where
toPath = const "/"
instance ToQuery DescribeEventSubscriptions where
toQuery = const mempty
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