{-# 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.IoT.ListTopicRules
(
listTopicRules
, ListTopicRules
, ltrRuleDisabled
, ltrTopic
, ltrNextToken
, ltrMaxResults
, listTopicRulesResponse
, ListTopicRulesResponse
, ltrrsRules
, ltrrsNextToken
, ltrrsResponseStatus
) where
import Network.AWS.IoT.Types
import Network.AWS.IoT.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListTopicRules = ListTopicRules'
{ _ltrRuleDisabled :: !(Maybe Bool)
, _ltrTopic :: !(Maybe Text)
, _ltrNextToken :: !(Maybe Text)
, _ltrMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listTopicRules
:: ListTopicRules
listTopicRules =
ListTopicRules'
{ _ltrRuleDisabled = Nothing
, _ltrTopic = Nothing
, _ltrNextToken = Nothing
, _ltrMaxResults = Nothing
}
ltrRuleDisabled :: Lens' ListTopicRules (Maybe Bool)
ltrRuleDisabled = lens _ltrRuleDisabled (\ s a -> s{_ltrRuleDisabled = a})
ltrTopic :: Lens' ListTopicRules (Maybe Text)
ltrTopic = lens _ltrTopic (\ s a -> s{_ltrTopic = a})
ltrNextToken :: Lens' ListTopicRules (Maybe Text)
ltrNextToken = lens _ltrNextToken (\ s a -> s{_ltrNextToken = a})
ltrMaxResults :: Lens' ListTopicRules (Maybe Natural)
ltrMaxResults = lens _ltrMaxResults (\ s a -> s{_ltrMaxResults = a}) . mapping _Nat
instance AWSPager ListTopicRules where
page rq rs
| stop (rs ^. ltrrsNextToken) = Nothing
| stop (rs ^. ltrrsRules) = Nothing
| otherwise =
Just $ rq & ltrNextToken .~ rs ^. ltrrsNextToken
instance AWSRequest ListTopicRules where
type Rs ListTopicRules = ListTopicRulesResponse
request = get ioT
response
= receiveJSON
(\ s h x ->
ListTopicRulesResponse' <$>
(x .?> "rules" .!@ mempty) <*> (x .?> "nextToken")
<*> (pure (fromEnum s)))
instance Hashable ListTopicRules where
instance NFData ListTopicRules where
instance ToHeaders ListTopicRules where
toHeaders = const mempty
instance ToPath ListTopicRules where
toPath = const "/rules"
instance ToQuery ListTopicRules where
toQuery ListTopicRules'{..}
= mconcat
["ruleDisabled" =: _ltrRuleDisabled,
"topic" =: _ltrTopic, "nextToken" =: _ltrNextToken,
"maxResults" =: _ltrMaxResults]
data ListTopicRulesResponse = ListTopicRulesResponse'
{ _ltrrsRules :: !(Maybe [TopicRuleListItem])
, _ltrrsNextToken :: !(Maybe Text)
, _ltrrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listTopicRulesResponse
:: Int
-> ListTopicRulesResponse
listTopicRulesResponse pResponseStatus_ =
ListTopicRulesResponse'
{ _ltrrsRules = Nothing
, _ltrrsNextToken = Nothing
, _ltrrsResponseStatus = pResponseStatus_
}
ltrrsRules :: Lens' ListTopicRulesResponse [TopicRuleListItem]
ltrrsRules = lens _ltrrsRules (\ s a -> s{_ltrrsRules = a}) . _Default . _Coerce
ltrrsNextToken :: Lens' ListTopicRulesResponse (Maybe Text)
ltrrsNextToken = lens _ltrrsNextToken (\ s a -> s{_ltrrsNextToken = a})
ltrrsResponseStatus :: Lens' ListTopicRulesResponse Int
ltrrsResponseStatus = lens _ltrrsResponseStatus (\ s a -> s{_ltrrsResponseStatus = a})
instance NFData ListTopicRulesResponse where