module Network.AWS.SQS.ListDeadLetterSourceQueues
(
listDeadLetterSourceQueues
, ListDeadLetterSourceQueues
, ldlsqQueueURL
, listDeadLetterSourceQueuesResponse
, ListDeadLetterSourceQueuesResponse
, ldlsqrsStatus
, ldlsqrsQueueURLs
) where
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SQS.Types
import Network.AWS.SQS.Types.Product
newtype ListDeadLetterSourceQueues = ListDeadLetterSourceQueues'
{ _ldlsqQueueURL :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listDeadLetterSourceQueues
:: Text
-> ListDeadLetterSourceQueues
listDeadLetterSourceQueues pQueueURL_ =
ListDeadLetterSourceQueues'
{ _ldlsqQueueURL = pQueueURL_
}
ldlsqQueueURL :: Lens' ListDeadLetterSourceQueues Text
ldlsqQueueURL = lens _ldlsqQueueURL (\ s a -> s{_ldlsqQueueURL = a});
instance AWSRequest ListDeadLetterSourceQueues where
type Rs ListDeadLetterSourceQueues =
ListDeadLetterSourceQueuesResponse
request = postQuery sQS
response
= receiveXMLWrapper
"ListDeadLetterSourceQueuesResult"
(\ s h x ->
ListDeadLetterSourceQueuesResponse' <$>
(pure (fromEnum s)) <*> (parseXMLList "QueueUrl" x))
instance ToHeaders ListDeadLetterSourceQueues where
toHeaders = const mempty
instance ToPath ListDeadLetterSourceQueues where
toPath = const "/"
instance ToQuery ListDeadLetterSourceQueues where
toQuery ListDeadLetterSourceQueues'{..}
= mconcat
["Action" =:
("ListDeadLetterSourceQueues" :: ByteString),
"Version" =: ("2012-11-05" :: ByteString),
"QueueUrl" =: _ldlsqQueueURL]
data ListDeadLetterSourceQueuesResponse = ListDeadLetterSourceQueuesResponse'
{ _ldlsqrsStatus :: !Int
, _ldlsqrsQueueURLs :: ![Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listDeadLetterSourceQueuesResponse
:: Int
-> ListDeadLetterSourceQueuesResponse
listDeadLetterSourceQueuesResponse pStatus_ =
ListDeadLetterSourceQueuesResponse'
{ _ldlsqrsStatus = pStatus_
, _ldlsqrsQueueURLs = mempty
}
ldlsqrsStatus :: Lens' ListDeadLetterSourceQueuesResponse Int
ldlsqrsStatus = lens _ldlsqrsStatus (\ s a -> s{_ldlsqrsStatus = a});
ldlsqrsQueueURLs :: Lens' ListDeadLetterSourceQueuesResponse [Text]
ldlsqrsQueueURLs = lens _ldlsqrsQueueURLs (\ s a -> s{_ldlsqrsQueueURLs = a}) . _Coerce;