module Network.AWS.SQS.ListDeadLetterSourceQueues
(
ListDeadLetterSourceQueues
, listDeadLetterSourceQueues
, ldlsqQueueUrl
, ListDeadLetterSourceQueuesResponse
, listDeadLetterSourceQueuesResponse
, ldlsqrQueueUrls
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.SQS.Types
import qualified GHC.Exts
newtype ListDeadLetterSourceQueues = ListDeadLetterSourceQueues
{ _ldlsqQueueUrl :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
listDeadLetterSourceQueues :: Text
-> ListDeadLetterSourceQueues
listDeadLetterSourceQueues p1 = ListDeadLetterSourceQueues
{ _ldlsqQueueUrl = p1
}
ldlsqQueueUrl :: Lens' ListDeadLetterSourceQueues Text
ldlsqQueueUrl = lens _ldlsqQueueUrl (\s a -> s { _ldlsqQueueUrl = a })
newtype ListDeadLetterSourceQueuesResponse = ListDeadLetterSourceQueuesResponse
{ _ldlsqrQueueUrls :: List "QueueUrl" Text
} deriving (Eq, Ord, Show, Monoid, Semigroup)
listDeadLetterSourceQueuesResponse :: ListDeadLetterSourceQueuesResponse
listDeadLetterSourceQueuesResponse = ListDeadLetterSourceQueuesResponse
{ _ldlsqrQueueUrls = mempty
}
ldlsqrQueueUrls :: Lens' ListDeadLetterSourceQueuesResponse [Text]
ldlsqrQueueUrls = lens _ldlsqrQueueUrls (\s a -> s { _ldlsqrQueueUrls = a }) . _List
instance ToPath ListDeadLetterSourceQueues where
toPath = const "/"
instance ToQuery ListDeadLetterSourceQueues where
toQuery ListDeadLetterSourceQueues{..} = mconcat
[ "QueueUrl" =? _ldlsqQueueUrl
]
instance ToHeaders ListDeadLetterSourceQueues
instance AWSRequest ListDeadLetterSourceQueues where
type Sv ListDeadLetterSourceQueues = SQS
type Rs ListDeadLetterSourceQueues = ListDeadLetterSourceQueuesResponse
request = post "ListDeadLetterSourceQueues"
response = xmlResponse
instance FromXML ListDeadLetterSourceQueuesResponse where
parseXML = withElement "ListDeadLetterSourceQueuesResult" $ \x -> ListDeadLetterSourceQueuesResponse
<$> parseXML x