{-# 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.CloudWatchEvents.ListRuleNamesByTarget
(
listRuleNamesByTarget
, ListRuleNamesByTarget
, lrnbtNextToken
, lrnbtLimit
, lrnbtTargetARN
, listRuleNamesByTargetResponse
, ListRuleNamesByTargetResponse
, lrnbtrsRuleNames
, lrnbtrsNextToken
, lrnbtrsResponseStatus
) where
import Network.AWS.CloudWatchEvents.Types
import Network.AWS.CloudWatchEvents.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListRuleNamesByTarget = ListRuleNamesByTarget'
{ _lrnbtNextToken :: !(Maybe Text)
, _lrnbtLimit :: !(Maybe Nat)
, _lrnbtTargetARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listRuleNamesByTarget
:: Text
-> ListRuleNamesByTarget
listRuleNamesByTarget pTargetARN_ =
ListRuleNamesByTarget'
{ _lrnbtNextToken = Nothing
, _lrnbtLimit = Nothing
, _lrnbtTargetARN = pTargetARN_
}
lrnbtNextToken :: Lens' ListRuleNamesByTarget (Maybe Text)
lrnbtNextToken = lens _lrnbtNextToken (\ s a -> s{_lrnbtNextToken = a})
lrnbtLimit :: Lens' ListRuleNamesByTarget (Maybe Natural)
lrnbtLimit = lens _lrnbtLimit (\ s a -> s{_lrnbtLimit = a}) . mapping _Nat
lrnbtTargetARN :: Lens' ListRuleNamesByTarget Text
lrnbtTargetARN = lens _lrnbtTargetARN (\ s a -> s{_lrnbtTargetARN = a})
instance AWSRequest ListRuleNamesByTarget where
type Rs ListRuleNamesByTarget =
ListRuleNamesByTargetResponse
request = postJSON cloudWatchEvents
response
= receiveJSON
(\ s h x ->
ListRuleNamesByTargetResponse' <$>
(x .?> "RuleNames" .!@ mempty) <*>
(x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable ListRuleNamesByTarget where
instance NFData ListRuleNamesByTarget where
instance ToHeaders ListRuleNamesByTarget where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSEvents.ListRuleNamesByTarget" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListRuleNamesByTarget where
toJSON ListRuleNamesByTarget'{..}
= object
(catMaybes
[("NextToken" .=) <$> _lrnbtNextToken,
("Limit" .=) <$> _lrnbtLimit,
Just ("TargetArn" .= _lrnbtTargetARN)])
instance ToPath ListRuleNamesByTarget where
toPath = const "/"
instance ToQuery ListRuleNamesByTarget where
toQuery = const mempty
data ListRuleNamesByTargetResponse = ListRuleNamesByTargetResponse'
{ _lrnbtrsRuleNames :: !(Maybe [Text])
, _lrnbtrsNextToken :: !(Maybe Text)
, _lrnbtrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listRuleNamesByTargetResponse
:: Int
-> ListRuleNamesByTargetResponse
listRuleNamesByTargetResponse pResponseStatus_ =
ListRuleNamesByTargetResponse'
{ _lrnbtrsRuleNames = Nothing
, _lrnbtrsNextToken = Nothing
, _lrnbtrsResponseStatus = pResponseStatus_
}
lrnbtrsRuleNames :: Lens' ListRuleNamesByTargetResponse [Text]
lrnbtrsRuleNames = lens _lrnbtrsRuleNames (\ s a -> s{_lrnbtrsRuleNames = a}) . _Default . _Coerce
lrnbtrsNextToken :: Lens' ListRuleNamesByTargetResponse (Maybe Text)
lrnbtrsNextToken = lens _lrnbtrsNextToken (\ s a -> s{_lrnbtrsNextToken = a})
lrnbtrsResponseStatus :: Lens' ListRuleNamesByTargetResponse Int
lrnbtrsResponseStatus = lens _lrnbtrsResponseStatus (\ s a -> s{_lrnbtrsResponseStatus = a})
instance NFData ListRuleNamesByTargetResponse where