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.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 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
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});