{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.SQS.ListDeadLetterSourceQueues
(
ListDeadLetterSourceQueues (..),
newListDeadLetterSourceQueues,
listDeadLetterSourceQueues_maxResults,
listDeadLetterSourceQueues_nextToken,
listDeadLetterSourceQueues_queueUrl,
ListDeadLetterSourceQueuesResponse (..),
newListDeadLetterSourceQueuesResponse,
listDeadLetterSourceQueuesResponse_nextToken,
listDeadLetterSourceQueuesResponse_httpStatus,
listDeadLetterSourceQueuesResponse_queueUrls,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SQS.Types
data ListDeadLetterSourceQueues = ListDeadLetterSourceQueues'
{
ListDeadLetterSourceQueues -> Maybe Int
maxResults :: Prelude.Maybe Prelude.Int,
ListDeadLetterSourceQueues -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListDeadLetterSourceQueues -> Text
queueUrl :: Prelude.Text
}
deriving (ListDeadLetterSourceQueues -> ListDeadLetterSourceQueues -> Bool
(ListDeadLetterSourceQueues -> ListDeadLetterSourceQueues -> Bool)
-> (ListDeadLetterSourceQueues
-> ListDeadLetterSourceQueues -> Bool)
-> Eq ListDeadLetterSourceQueues
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListDeadLetterSourceQueues -> ListDeadLetterSourceQueues -> Bool
== :: ListDeadLetterSourceQueues -> ListDeadLetterSourceQueues -> Bool
$c/= :: ListDeadLetterSourceQueues -> ListDeadLetterSourceQueues -> Bool
/= :: ListDeadLetterSourceQueues -> ListDeadLetterSourceQueues -> Bool
Prelude.Eq, ReadPrec [ListDeadLetterSourceQueues]
ReadPrec ListDeadLetterSourceQueues
Int -> ReadS ListDeadLetterSourceQueues
ReadS [ListDeadLetterSourceQueues]
(Int -> ReadS ListDeadLetterSourceQueues)
-> ReadS [ListDeadLetterSourceQueues]
-> ReadPrec ListDeadLetterSourceQueues
-> ReadPrec [ListDeadLetterSourceQueues]
-> Read ListDeadLetterSourceQueues
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS ListDeadLetterSourceQueues
readsPrec :: Int -> ReadS ListDeadLetterSourceQueues
$creadList :: ReadS [ListDeadLetterSourceQueues]
readList :: ReadS [ListDeadLetterSourceQueues]
$creadPrec :: ReadPrec ListDeadLetterSourceQueues
readPrec :: ReadPrec ListDeadLetterSourceQueues
$creadListPrec :: ReadPrec [ListDeadLetterSourceQueues]
readListPrec :: ReadPrec [ListDeadLetterSourceQueues]
Prelude.Read, Int -> ListDeadLetterSourceQueues -> ShowS
[ListDeadLetterSourceQueues] -> ShowS
ListDeadLetterSourceQueues -> String
(Int -> ListDeadLetterSourceQueues -> ShowS)
-> (ListDeadLetterSourceQueues -> String)
-> ([ListDeadLetterSourceQueues] -> ShowS)
-> Show ListDeadLetterSourceQueues
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ListDeadLetterSourceQueues -> ShowS
showsPrec :: Int -> ListDeadLetterSourceQueues -> ShowS
$cshow :: ListDeadLetterSourceQueues -> String
show :: ListDeadLetterSourceQueues -> String
$cshowList :: [ListDeadLetterSourceQueues] -> ShowS
showList :: [ListDeadLetterSourceQueues] -> ShowS
Prelude.Show, (forall x.
ListDeadLetterSourceQueues -> Rep ListDeadLetterSourceQueues x)
-> (forall x.
Rep ListDeadLetterSourceQueues x -> ListDeadLetterSourceQueues)
-> Generic ListDeadLetterSourceQueues
forall x.
Rep ListDeadLetterSourceQueues x -> ListDeadLetterSourceQueues
forall x.
ListDeadLetterSourceQueues -> Rep ListDeadLetterSourceQueues x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
ListDeadLetterSourceQueues -> Rep ListDeadLetterSourceQueues x
from :: forall x.
ListDeadLetterSourceQueues -> Rep ListDeadLetterSourceQueues x
$cto :: forall x.
Rep ListDeadLetterSourceQueues x -> ListDeadLetterSourceQueues
to :: forall x.
Rep ListDeadLetterSourceQueues x -> ListDeadLetterSourceQueues
Prelude.Generic)
newListDeadLetterSourceQueues ::
Prelude.Text ->
ListDeadLetterSourceQueues
newListDeadLetterSourceQueues :: Text -> ListDeadLetterSourceQueues
newListDeadLetterSourceQueues Text
pQueueUrl_ =
ListDeadLetterSourceQueues'
{ $sel:maxResults:ListDeadLetterSourceQueues' :: Maybe Int
maxResults =
Maybe Int
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListDeadLetterSourceQueues' :: Maybe Text
nextToken = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:queueUrl:ListDeadLetterSourceQueues' :: Text
queueUrl = Text
pQueueUrl_
}
listDeadLetterSourceQueues_maxResults :: Lens.Lens' ListDeadLetterSourceQueues (Prelude.Maybe Prelude.Int)
listDeadLetterSourceQueues_maxResults :: Lens' ListDeadLetterSourceQueues (Maybe Int)
listDeadLetterSourceQueues_maxResults = (ListDeadLetterSourceQueues -> Maybe Int)
-> (ListDeadLetterSourceQueues
-> Maybe Int -> ListDeadLetterSourceQueues)
-> Lens' ListDeadLetterSourceQueues (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeadLetterSourceQueues' {Maybe Int
$sel:maxResults:ListDeadLetterSourceQueues' :: ListDeadLetterSourceQueues -> Maybe Int
maxResults :: Maybe Int
maxResults} -> Maybe Int
maxResults) (\s :: ListDeadLetterSourceQueues
s@ListDeadLetterSourceQueues' {} Maybe Int
a -> ListDeadLetterSourceQueues
s {maxResults = a} :: ListDeadLetterSourceQueues)
listDeadLetterSourceQueues_nextToken :: Lens.Lens' ListDeadLetterSourceQueues (Prelude.Maybe Prelude.Text)
listDeadLetterSourceQueues_nextToken :: Lens' ListDeadLetterSourceQueues (Maybe Text)
listDeadLetterSourceQueues_nextToken = (ListDeadLetterSourceQueues -> Maybe Text)
-> (ListDeadLetterSourceQueues
-> Maybe Text -> ListDeadLetterSourceQueues)
-> Lens' ListDeadLetterSourceQueues (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeadLetterSourceQueues' {Maybe Text
$sel:nextToken:ListDeadLetterSourceQueues' :: ListDeadLetterSourceQueues -> Maybe Text
nextToken :: Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListDeadLetterSourceQueues
s@ListDeadLetterSourceQueues' {} Maybe Text
a -> ListDeadLetterSourceQueues
s {nextToken = a} :: ListDeadLetterSourceQueues)
listDeadLetterSourceQueues_queueUrl :: Lens.Lens' ListDeadLetterSourceQueues Prelude.Text
listDeadLetterSourceQueues_queueUrl :: Lens' ListDeadLetterSourceQueues Text
listDeadLetterSourceQueues_queueUrl = (ListDeadLetterSourceQueues -> Text)
-> (ListDeadLetterSourceQueues
-> Text -> ListDeadLetterSourceQueues)
-> Lens' ListDeadLetterSourceQueues Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeadLetterSourceQueues' {Text
$sel:queueUrl:ListDeadLetterSourceQueues' :: ListDeadLetterSourceQueues -> Text
queueUrl :: Text
queueUrl} -> Text
queueUrl) (\s :: ListDeadLetterSourceQueues
s@ListDeadLetterSourceQueues' {} Text
a -> ListDeadLetterSourceQueues
s {queueUrl = a} :: ListDeadLetterSourceQueues)
instance Core.AWSPager ListDeadLetterSourceQueues where
page :: ListDeadLetterSourceQueues
-> AWSResponse ListDeadLetterSourceQueues
-> Maybe ListDeadLetterSourceQueues
page ListDeadLetterSourceQueues
rq AWSResponse ListDeadLetterSourceQueues
rs
| Maybe Text -> Bool
forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListDeadLetterSourceQueues
ListDeadLetterSourceQueuesResponse
rs
ListDeadLetterSourceQueuesResponse
-> Getting (First Text) ListDeadLetterSourceQueuesResponse Text
-> Maybe Text
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? (Maybe Text -> Const (First Text) (Maybe Text))
-> ListDeadLetterSourceQueuesResponse
-> Const (First Text) ListDeadLetterSourceQueuesResponse
Lens' ListDeadLetterSourceQueuesResponse (Maybe Text)
listDeadLetterSourceQueuesResponse_nextToken
((Maybe Text -> Const (First Text) (Maybe Text))
-> ListDeadLetterSourceQueuesResponse
-> Const (First Text) ListDeadLetterSourceQueuesResponse)
-> ((Text -> Const (First Text) Text)
-> Maybe Text -> Const (First Text) (Maybe Text))
-> Getting (First Text) ListDeadLetterSourceQueuesResponse Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> Const (First Text) Text)
-> Maybe Text -> Const (First Text) (Maybe Text)
forall a b (p :: * -> * -> *) (f :: * -> *).
(Choice p, Applicative f) =>
p a (f b) -> p (Maybe a) (f (Maybe b))
Lens._Just
) =
Maybe ListDeadLetterSourceQueues
forall a. Maybe a
Prelude.Nothing
| [Text] -> Bool
forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListDeadLetterSourceQueues
ListDeadLetterSourceQueuesResponse
rs
ListDeadLetterSourceQueuesResponse
-> Getting [Text] ListDeadLetterSourceQueuesResponse [Text]
-> [Text]
forall s a. s -> Getting a s a -> a
Lens.^. Getting [Text] ListDeadLetterSourceQueuesResponse [Text]
Lens' ListDeadLetterSourceQueuesResponse [Text]
listDeadLetterSourceQueuesResponse_queueUrls
) =
Maybe ListDeadLetterSourceQueues
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
ListDeadLetterSourceQueues -> Maybe ListDeadLetterSourceQueues
forall a. a -> Maybe a
Prelude.Just
(ListDeadLetterSourceQueues -> Maybe ListDeadLetterSourceQueues)
-> ListDeadLetterSourceQueues -> Maybe ListDeadLetterSourceQueues
forall a b. (a -> b) -> a -> b
Prelude.$ ListDeadLetterSourceQueues
rq
ListDeadLetterSourceQueues
-> (ListDeadLetterSourceQueues -> ListDeadLetterSourceQueues)
-> ListDeadLetterSourceQueues
forall a b. a -> (a -> b) -> b
Prelude.& (Maybe Text -> Identity (Maybe Text))
-> ListDeadLetterSourceQueues
-> Identity ListDeadLetterSourceQueues
Lens' ListDeadLetterSourceQueues (Maybe Text)
listDeadLetterSourceQueues_nextToken
((Maybe Text -> Identity (Maybe Text))
-> ListDeadLetterSourceQueues
-> Identity ListDeadLetterSourceQueues)
-> Maybe Text
-> ListDeadLetterSourceQueues
-> ListDeadLetterSourceQueues
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListDeadLetterSourceQueues
ListDeadLetterSourceQueuesResponse
rs
ListDeadLetterSourceQueuesResponse
-> Getting (First Text) ListDeadLetterSourceQueuesResponse Text
-> Maybe Text
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? (Maybe Text -> Const (First Text) (Maybe Text))
-> ListDeadLetterSourceQueuesResponse
-> Const (First Text) ListDeadLetterSourceQueuesResponse
Lens' ListDeadLetterSourceQueuesResponse (Maybe Text)
listDeadLetterSourceQueuesResponse_nextToken
((Maybe Text -> Const (First Text) (Maybe Text))
-> ListDeadLetterSourceQueuesResponse
-> Const (First Text) ListDeadLetterSourceQueuesResponse)
-> ((Text -> Const (First Text) Text)
-> Maybe Text -> Const (First Text) (Maybe Text))
-> Getting (First Text) ListDeadLetterSourceQueuesResponse Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> Const (First Text) Text)
-> Maybe Text -> Const (First Text) (Maybe Text)
forall a b (p :: * -> * -> *) (f :: * -> *).
(Choice p, Applicative f) =>
p a (f b) -> p (Maybe a) (f (Maybe b))
Lens._Just
instance Core.AWSRequest ListDeadLetterSourceQueues where
type
AWSResponse ListDeadLetterSourceQueues =
ListDeadLetterSourceQueuesResponse
request :: (Service -> Service)
-> ListDeadLetterSourceQueues -> Request ListDeadLetterSourceQueues
request Service -> Service
overrides =
Service
-> ListDeadLetterSourceQueues -> Request ListDeadLetterSourceQueues
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListDeadLetterSourceQueues
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListDeadLetterSourceQueues)))
response =
Text
-> (Int
-> ResponseHeaders
-> [Node]
-> Either String (AWSResponse ListDeadLetterSourceQueues))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListDeadLetterSourceQueues
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListDeadLetterSourceQueues)))
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"ListDeadLetterSourceQueuesResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text -> Int -> [Text] -> ListDeadLetterSourceQueuesResponse
ListDeadLetterSourceQueuesResponse'
(Maybe Text -> Int -> [Text] -> ListDeadLetterSourceQueuesResponse)
-> Either String (Maybe Text)
-> Either
String (Int -> [Text] -> ListDeadLetterSourceQueuesResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"NextToken")
Either String (Int -> [Text] -> ListDeadLetterSourceQueuesResponse)
-> Either String Int
-> Either String ([Text] -> ListDeadLetterSourceQueuesResponse)
forall a b.
Either String (a -> b) -> Either String a -> Either String b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall a. a -> Either String a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
Either String ([Text] -> ListDeadLetterSourceQueuesResponse)
-> Either String [Text]
-> Either String ListDeadLetterSourceQueuesResponse
forall a b.
Either String (a -> b) -> Either String a -> Either String b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Text -> [Node] -> Either String [Text]
forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"QueueUrl" [Node]
x)
)
instance Prelude.Hashable ListDeadLetterSourceQueues where
hashWithSalt :: Int -> ListDeadLetterSourceQueues -> Int
hashWithSalt Int
_salt ListDeadLetterSourceQueues' {Maybe Int
Maybe Text
Text
$sel:maxResults:ListDeadLetterSourceQueues' :: ListDeadLetterSourceQueues -> Maybe Int
$sel:nextToken:ListDeadLetterSourceQueues' :: ListDeadLetterSourceQueues -> Maybe Text
$sel:queueUrl:ListDeadLetterSourceQueues' :: ListDeadLetterSourceQueues -> Text
maxResults :: Maybe Int
nextToken :: Maybe Text
queueUrl :: Text
..} =
Int
_salt
Int -> Maybe Int -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxResults
Int -> Maybe Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
Int -> Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
queueUrl
instance Prelude.NFData ListDeadLetterSourceQueues where
rnf :: ListDeadLetterSourceQueues -> ()
rnf ListDeadLetterSourceQueues' {Maybe Int
Maybe Text
Text
$sel:maxResults:ListDeadLetterSourceQueues' :: ListDeadLetterSourceQueues -> Maybe Int
$sel:nextToken:ListDeadLetterSourceQueues' :: ListDeadLetterSourceQueues -> Maybe Text
$sel:queueUrl:ListDeadLetterSourceQueues' :: ListDeadLetterSourceQueues -> Text
maxResults :: Maybe Int
nextToken :: Maybe Text
queueUrl :: Text
..} =
Maybe Int -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxResults
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Text
queueUrl
instance Data.ToHeaders ListDeadLetterSourceQueues where
toHeaders :: ListDeadLetterSourceQueues -> ResponseHeaders
toHeaders = ResponseHeaders -> ListDeadLetterSourceQueues -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListDeadLetterSourceQueues where
toPath :: ListDeadLetterSourceQueues -> ByteString
toPath = ByteString -> ListDeadLetterSourceQueues -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListDeadLetterSourceQueues where
toQuery :: ListDeadLetterSourceQueues -> QueryString
toQuery ListDeadLetterSourceQueues' {Maybe Int
Maybe Text
Text
$sel:maxResults:ListDeadLetterSourceQueues' :: ListDeadLetterSourceQueues -> Maybe Int
$sel:nextToken:ListDeadLetterSourceQueues' :: ListDeadLetterSourceQueues -> Maybe Text
$sel:queueUrl:ListDeadLetterSourceQueues' :: ListDeadLetterSourceQueues -> Text
maxResults :: Maybe Int
nextToken :: Maybe Text
queueUrl :: Text
..} =
[QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"ListDeadLetterSourceQueues" :: Prelude.ByteString),
ByteString
"Version"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2012-11-05" :: Prelude.ByteString),
ByteString
"MaxResults" ByteString -> Maybe Int -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
maxResults,
ByteString
"NextToken" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken,
ByteString
"QueueUrl" ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
queueUrl
]
data ListDeadLetterSourceQueuesResponse = ListDeadLetterSourceQueuesResponse'
{
ListDeadLetterSourceQueuesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListDeadLetterSourceQueuesResponse -> Int
httpStatus :: Prelude.Int,
ListDeadLetterSourceQueuesResponse -> [Text]
queueUrls :: [Prelude.Text]
}
deriving (ListDeadLetterSourceQueuesResponse
-> ListDeadLetterSourceQueuesResponse -> Bool
(ListDeadLetterSourceQueuesResponse
-> ListDeadLetterSourceQueuesResponse -> Bool)
-> (ListDeadLetterSourceQueuesResponse
-> ListDeadLetterSourceQueuesResponse -> Bool)
-> Eq ListDeadLetterSourceQueuesResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListDeadLetterSourceQueuesResponse
-> ListDeadLetterSourceQueuesResponse -> Bool
== :: ListDeadLetterSourceQueuesResponse
-> ListDeadLetterSourceQueuesResponse -> Bool
$c/= :: ListDeadLetterSourceQueuesResponse
-> ListDeadLetterSourceQueuesResponse -> Bool
/= :: ListDeadLetterSourceQueuesResponse
-> ListDeadLetterSourceQueuesResponse -> Bool
Prelude.Eq, ReadPrec [ListDeadLetterSourceQueuesResponse]
ReadPrec ListDeadLetterSourceQueuesResponse
Int -> ReadS ListDeadLetterSourceQueuesResponse
ReadS [ListDeadLetterSourceQueuesResponse]
(Int -> ReadS ListDeadLetterSourceQueuesResponse)
-> ReadS [ListDeadLetterSourceQueuesResponse]
-> ReadPrec ListDeadLetterSourceQueuesResponse
-> ReadPrec [ListDeadLetterSourceQueuesResponse]
-> Read ListDeadLetterSourceQueuesResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS ListDeadLetterSourceQueuesResponse
readsPrec :: Int -> ReadS ListDeadLetterSourceQueuesResponse
$creadList :: ReadS [ListDeadLetterSourceQueuesResponse]
readList :: ReadS [ListDeadLetterSourceQueuesResponse]
$creadPrec :: ReadPrec ListDeadLetterSourceQueuesResponse
readPrec :: ReadPrec ListDeadLetterSourceQueuesResponse
$creadListPrec :: ReadPrec [ListDeadLetterSourceQueuesResponse]
readListPrec :: ReadPrec [ListDeadLetterSourceQueuesResponse]
Prelude.Read, Int -> ListDeadLetterSourceQueuesResponse -> ShowS
[ListDeadLetterSourceQueuesResponse] -> ShowS
ListDeadLetterSourceQueuesResponse -> String
(Int -> ListDeadLetterSourceQueuesResponse -> ShowS)
-> (ListDeadLetterSourceQueuesResponse -> String)
-> ([ListDeadLetterSourceQueuesResponse] -> ShowS)
-> Show ListDeadLetterSourceQueuesResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ListDeadLetterSourceQueuesResponse -> ShowS
showsPrec :: Int -> ListDeadLetterSourceQueuesResponse -> ShowS
$cshow :: ListDeadLetterSourceQueuesResponse -> String
show :: ListDeadLetterSourceQueuesResponse -> String
$cshowList :: [ListDeadLetterSourceQueuesResponse] -> ShowS
showList :: [ListDeadLetterSourceQueuesResponse] -> ShowS
Prelude.Show, (forall x.
ListDeadLetterSourceQueuesResponse
-> Rep ListDeadLetterSourceQueuesResponse x)
-> (forall x.
Rep ListDeadLetterSourceQueuesResponse x
-> ListDeadLetterSourceQueuesResponse)
-> Generic ListDeadLetterSourceQueuesResponse
forall x.
Rep ListDeadLetterSourceQueuesResponse x
-> ListDeadLetterSourceQueuesResponse
forall x.
ListDeadLetterSourceQueuesResponse
-> Rep ListDeadLetterSourceQueuesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
ListDeadLetterSourceQueuesResponse
-> Rep ListDeadLetterSourceQueuesResponse x
from :: forall x.
ListDeadLetterSourceQueuesResponse
-> Rep ListDeadLetterSourceQueuesResponse x
$cto :: forall x.
Rep ListDeadLetterSourceQueuesResponse x
-> ListDeadLetterSourceQueuesResponse
to :: forall x.
Rep ListDeadLetterSourceQueuesResponse x
-> ListDeadLetterSourceQueuesResponse
Prelude.Generic)
newListDeadLetterSourceQueuesResponse ::
Prelude.Int ->
ListDeadLetterSourceQueuesResponse
newListDeadLetterSourceQueuesResponse :: Int -> ListDeadLetterSourceQueuesResponse
newListDeadLetterSourceQueuesResponse Int
pHttpStatus_ =
ListDeadLetterSourceQueuesResponse'
{ nextToken :: Maybe Text
nextToken =
Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListDeadLetterSourceQueuesResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:queueUrls:ListDeadLetterSourceQueuesResponse' :: [Text]
queueUrls = [Text]
forall a. Monoid a => a
Prelude.mempty
}
listDeadLetterSourceQueuesResponse_nextToken :: Lens.Lens' ListDeadLetterSourceQueuesResponse (Prelude.Maybe Prelude.Text)
listDeadLetterSourceQueuesResponse_nextToken :: Lens' ListDeadLetterSourceQueuesResponse (Maybe Text)
listDeadLetterSourceQueuesResponse_nextToken = (ListDeadLetterSourceQueuesResponse -> Maybe Text)
-> (ListDeadLetterSourceQueuesResponse
-> Maybe Text -> ListDeadLetterSourceQueuesResponse)
-> Lens' ListDeadLetterSourceQueuesResponse (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeadLetterSourceQueuesResponse' {Maybe Text
nextToken :: ListDeadLetterSourceQueuesResponse -> Maybe Text
nextToken :: Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListDeadLetterSourceQueuesResponse
s@ListDeadLetterSourceQueuesResponse' {} Maybe Text
a -> ListDeadLetterSourceQueuesResponse
s {nextToken = a} :: ListDeadLetterSourceQueuesResponse)
listDeadLetterSourceQueuesResponse_httpStatus :: Lens.Lens' ListDeadLetterSourceQueuesResponse Prelude.Int
listDeadLetterSourceQueuesResponse_httpStatus :: Lens' ListDeadLetterSourceQueuesResponse Int
listDeadLetterSourceQueuesResponse_httpStatus = (ListDeadLetterSourceQueuesResponse -> Int)
-> (ListDeadLetterSourceQueuesResponse
-> Int -> ListDeadLetterSourceQueuesResponse)
-> Lens' ListDeadLetterSourceQueuesResponse Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeadLetterSourceQueuesResponse' {Int
$sel:httpStatus:ListDeadLetterSourceQueuesResponse' :: ListDeadLetterSourceQueuesResponse -> Int
httpStatus :: Int
httpStatus} -> Int
httpStatus) (\s :: ListDeadLetterSourceQueuesResponse
s@ListDeadLetterSourceQueuesResponse' {} Int
a -> ListDeadLetterSourceQueuesResponse
s {httpStatus = a} :: ListDeadLetterSourceQueuesResponse)
listDeadLetterSourceQueuesResponse_queueUrls :: Lens.Lens' ListDeadLetterSourceQueuesResponse [Prelude.Text]
listDeadLetterSourceQueuesResponse_queueUrls :: Lens' ListDeadLetterSourceQueuesResponse [Text]
listDeadLetterSourceQueuesResponse_queueUrls = (ListDeadLetterSourceQueuesResponse -> [Text])
-> (ListDeadLetterSourceQueuesResponse
-> [Text] -> ListDeadLetterSourceQueuesResponse)
-> Lens' ListDeadLetterSourceQueuesResponse [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeadLetterSourceQueuesResponse' {[Text]
$sel:queueUrls:ListDeadLetterSourceQueuesResponse' :: ListDeadLetterSourceQueuesResponse -> [Text]
queueUrls :: [Text]
queueUrls} -> [Text]
queueUrls) (\s :: ListDeadLetterSourceQueuesResponse
s@ListDeadLetterSourceQueuesResponse' {} [Text]
a -> ListDeadLetterSourceQueuesResponse
s {queueUrls = a} :: ListDeadLetterSourceQueuesResponse) (([Text] -> f [Text])
-> ListDeadLetterSourceQueuesResponse
-> f ListDeadLetterSourceQueuesResponse)
-> (([Text] -> f [Text]) -> [Text] -> f [Text])
-> ([Text] -> f [Text])
-> ListDeadLetterSourceQueuesResponse
-> f ListDeadLetterSourceQueuesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([Text] -> f [Text]) -> [Text] -> f [Text]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Iso [Text] [Text] [Text] [Text]
Lens.coerced
instance
Prelude.NFData
ListDeadLetterSourceQueuesResponse
where
rnf :: ListDeadLetterSourceQueuesResponse -> ()
rnf ListDeadLetterSourceQueuesResponse' {Int
[Text]
Maybe Text
nextToken :: ListDeadLetterSourceQueuesResponse -> Maybe Text
$sel:httpStatus:ListDeadLetterSourceQueuesResponse' :: ListDeadLetterSourceQueuesResponse -> Int
$sel:queueUrls:ListDeadLetterSourceQueuesResponse' :: ListDeadLetterSourceQueuesResponse -> [Text]
nextToken :: Maybe Text
httpStatus :: Int
queueUrls :: [Text]
..} =
Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Int -> ()
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` [Text] -> ()
forall a. NFData a => a -> ()
Prelude.rnf [Text]
queueUrls