module Network.AWS.DirectoryService.DescribeEventTopics
(
describeEventTopics
, DescribeEventTopics
, dDirectoryId
, dTopicNames
, describeEventTopicsResponse
, DescribeEventTopicsResponse
, detrsEventTopics
, detrsResponseStatus
) where
import Network.AWS.DirectoryService.Types
import Network.AWS.DirectoryService.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeEventTopics = DescribeEventTopics'
{ _dDirectoryId :: !(Maybe Text)
, _dTopicNames :: !(Maybe [Text])
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEventTopics
:: DescribeEventTopics
describeEventTopics =
DescribeEventTopics'
{ _dDirectoryId = Nothing
, _dTopicNames = Nothing
}
dDirectoryId :: Lens' DescribeEventTopics (Maybe Text)
dDirectoryId = lens _dDirectoryId (\ s a -> s{_dDirectoryId = a});
dTopicNames :: Lens' DescribeEventTopics [Text]
dTopicNames = lens _dTopicNames (\ s a -> s{_dTopicNames = a}) . _Default . _Coerce;
instance AWSRequest DescribeEventTopics where
type Rs DescribeEventTopics =
DescribeEventTopicsResponse
request = postJSON directoryService
response
= receiveJSON
(\ s h x ->
DescribeEventTopicsResponse' <$>
(x .?> "EventTopics" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DescribeEventTopics
instance NFData DescribeEventTopics
instance ToHeaders DescribeEventTopics where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DirectoryService_20150416.DescribeEventTopics" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeEventTopics where
toJSON DescribeEventTopics'{..}
= object
(catMaybes
[("DirectoryId" .=) <$> _dDirectoryId,
("TopicNames" .=) <$> _dTopicNames])
instance ToPath DescribeEventTopics where
toPath = const "/"
instance ToQuery DescribeEventTopics where
toQuery = const mempty
data DescribeEventTopicsResponse = DescribeEventTopicsResponse'
{ _detrsEventTopics :: !(Maybe [EventTopic])
, _detrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEventTopicsResponse
:: Int
-> DescribeEventTopicsResponse
describeEventTopicsResponse pResponseStatus_ =
DescribeEventTopicsResponse'
{ _detrsEventTopics = Nothing
, _detrsResponseStatus = pResponseStatus_
}
detrsEventTopics :: Lens' DescribeEventTopicsResponse [EventTopic]
detrsEventTopics = lens _detrsEventTopics (\ s a -> s{_detrsEventTopics = a}) . _Default . _Coerce;
detrsResponseStatus :: Lens' DescribeEventTopicsResponse Int
detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a});
instance NFData DescribeEventTopicsResponse