{-# 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.Connect.SearchQueues
(
SearchQueues (..),
newSearchQueues,
searchQueues_maxResults,
searchQueues_nextToken,
searchQueues_searchCriteria,
searchQueues_searchFilter,
searchQueues_instanceId,
SearchQueuesResponse (..),
newSearchQueuesResponse,
searchQueuesResponse_approximateTotalCount,
searchQueuesResponse_nextToken,
searchQueuesResponse_queues,
searchQueuesResponse_httpStatus,
)
where
import Amazonka.Connect.Types
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
data SearchQueues = SearchQueues'
{
SearchQueues -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
SearchQueues -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
SearchQueues -> Maybe QueueSearchCriteria
searchCriteria :: Prelude.Maybe QueueSearchCriteria,
SearchQueues -> Maybe QueueSearchFilter
searchFilter :: Prelude.Maybe QueueSearchFilter,
SearchQueues -> Text
instanceId :: Prelude.Text
}
deriving (SearchQueues -> SearchQueues -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SearchQueues -> SearchQueues -> Bool
$c/= :: SearchQueues -> SearchQueues -> Bool
== :: SearchQueues -> SearchQueues -> Bool
$c== :: SearchQueues -> SearchQueues -> Bool
Prelude.Eq, ReadPrec [SearchQueues]
ReadPrec SearchQueues
Int -> ReadS SearchQueues
ReadS [SearchQueues]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SearchQueues]
$creadListPrec :: ReadPrec [SearchQueues]
readPrec :: ReadPrec SearchQueues
$creadPrec :: ReadPrec SearchQueues
readList :: ReadS [SearchQueues]
$creadList :: ReadS [SearchQueues]
readsPrec :: Int -> ReadS SearchQueues
$creadsPrec :: Int -> ReadS SearchQueues
Prelude.Read, Int -> SearchQueues -> ShowS
[SearchQueues] -> ShowS
SearchQueues -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SearchQueues] -> ShowS
$cshowList :: [SearchQueues] -> ShowS
show :: SearchQueues -> String
$cshow :: SearchQueues -> String
showsPrec :: Int -> SearchQueues -> ShowS
$cshowsPrec :: Int -> SearchQueues -> ShowS
Prelude.Show, forall x. Rep SearchQueues x -> SearchQueues
forall x. SearchQueues -> Rep SearchQueues x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SearchQueues x -> SearchQueues
$cfrom :: forall x. SearchQueues -> Rep SearchQueues x
Prelude.Generic)
newSearchQueues ::
Prelude.Text ->
SearchQueues
newSearchQueues :: Text -> SearchQueues
newSearchQueues Text
pInstanceId_ =
SearchQueues'
{ $sel:maxResults:SearchQueues' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:SearchQueues' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:searchCriteria:SearchQueues' :: Maybe QueueSearchCriteria
searchCriteria = forall a. Maybe a
Prelude.Nothing,
$sel:searchFilter:SearchQueues' :: Maybe QueueSearchFilter
searchFilter = forall a. Maybe a
Prelude.Nothing,
$sel:instanceId:SearchQueues' :: Text
instanceId = Text
pInstanceId_
}
searchQueues_maxResults :: Lens.Lens' SearchQueues (Prelude.Maybe Prelude.Natural)
searchQueues_maxResults :: Lens' SearchQueues (Maybe Natural)
searchQueues_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQueues' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:SearchQueues' :: SearchQueues -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: SearchQueues
s@SearchQueues' {} Maybe Natural
a -> SearchQueues
s {$sel:maxResults:SearchQueues' :: Maybe Natural
maxResults = Maybe Natural
a} :: SearchQueues)
searchQueues_nextToken :: Lens.Lens' SearchQueues (Prelude.Maybe Prelude.Text)
searchQueues_nextToken :: Lens' SearchQueues (Maybe Text)
searchQueues_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQueues' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:SearchQueues' :: SearchQueues -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: SearchQueues
s@SearchQueues' {} Maybe Text
a -> SearchQueues
s {$sel:nextToken:SearchQueues' :: Maybe Text
nextToken = Maybe Text
a} :: SearchQueues)
searchQueues_searchCriteria :: Lens.Lens' SearchQueues (Prelude.Maybe QueueSearchCriteria)
searchQueues_searchCriteria :: Lens' SearchQueues (Maybe QueueSearchCriteria)
searchQueues_searchCriteria = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQueues' {Maybe QueueSearchCriteria
searchCriteria :: Maybe QueueSearchCriteria
$sel:searchCriteria:SearchQueues' :: SearchQueues -> Maybe QueueSearchCriteria
searchCriteria} -> Maybe QueueSearchCriteria
searchCriteria) (\s :: SearchQueues
s@SearchQueues' {} Maybe QueueSearchCriteria
a -> SearchQueues
s {$sel:searchCriteria:SearchQueues' :: Maybe QueueSearchCriteria
searchCriteria = Maybe QueueSearchCriteria
a} :: SearchQueues)
searchQueues_searchFilter :: Lens.Lens' SearchQueues (Prelude.Maybe QueueSearchFilter)
searchQueues_searchFilter :: Lens' SearchQueues (Maybe QueueSearchFilter)
searchQueues_searchFilter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQueues' {Maybe QueueSearchFilter
searchFilter :: Maybe QueueSearchFilter
$sel:searchFilter:SearchQueues' :: SearchQueues -> Maybe QueueSearchFilter
searchFilter} -> Maybe QueueSearchFilter
searchFilter) (\s :: SearchQueues
s@SearchQueues' {} Maybe QueueSearchFilter
a -> SearchQueues
s {$sel:searchFilter:SearchQueues' :: Maybe QueueSearchFilter
searchFilter = Maybe QueueSearchFilter
a} :: SearchQueues)
searchQueues_instanceId :: Lens.Lens' SearchQueues Prelude.Text
searchQueues_instanceId :: Lens' SearchQueues Text
searchQueues_instanceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQueues' {Text
instanceId :: Text
$sel:instanceId:SearchQueues' :: SearchQueues -> Text
instanceId} -> Text
instanceId) (\s :: SearchQueues
s@SearchQueues' {} Text
a -> SearchQueues
s {$sel:instanceId:SearchQueues' :: Text
instanceId = Text
a} :: SearchQueues)
instance Core.AWSPager SearchQueues where
page :: SearchQueues -> AWSResponse SearchQueues -> Maybe SearchQueues
page SearchQueues
rq AWSResponse SearchQueues
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse SearchQueues
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' SearchQueuesResponse (Maybe Text)
searchQueuesResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse SearchQueues
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' SearchQueuesResponse (Maybe [Queue])
searchQueuesResponse_queues
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ SearchQueues
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' SearchQueues (Maybe Text)
searchQueues_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse SearchQueues
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' SearchQueuesResponse (Maybe Text)
searchQueuesResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest SearchQueues where
type AWSResponse SearchQueues = SearchQueuesResponse
request :: (Service -> Service) -> SearchQueues -> Request SearchQueues
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy SearchQueues
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse SearchQueues)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Integer
-> Maybe Text -> Maybe [Queue] -> Int -> SearchQueuesResponse
SearchQueuesResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ApproximateTotalCount")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"NextToken")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Queues" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable SearchQueues where
hashWithSalt :: Int -> SearchQueues -> Int
hashWithSalt Int
_salt SearchQueues' {Maybe Natural
Maybe Text
Maybe QueueSearchCriteria
Maybe QueueSearchFilter
Text
instanceId :: Text
searchFilter :: Maybe QueueSearchFilter
searchCriteria :: Maybe QueueSearchCriteria
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:instanceId:SearchQueues' :: SearchQueues -> Text
$sel:searchFilter:SearchQueues' :: SearchQueues -> Maybe QueueSearchFilter
$sel:searchCriteria:SearchQueues' :: SearchQueues -> Maybe QueueSearchCriteria
$sel:nextToken:SearchQueues' :: SearchQueues -> Maybe Text
$sel:maxResults:SearchQueues' :: SearchQueues -> Maybe Natural
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe QueueSearchCriteria
searchCriteria
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe QueueSearchFilter
searchFilter
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
instanceId
instance Prelude.NFData SearchQueues where
rnf :: SearchQueues -> ()
rnf SearchQueues' {Maybe Natural
Maybe Text
Maybe QueueSearchCriteria
Maybe QueueSearchFilter
Text
instanceId :: Text
searchFilter :: Maybe QueueSearchFilter
searchCriteria :: Maybe QueueSearchCriteria
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:instanceId:SearchQueues' :: SearchQueues -> Text
$sel:searchFilter:SearchQueues' :: SearchQueues -> Maybe QueueSearchFilter
$sel:searchCriteria:SearchQueues' :: SearchQueues -> Maybe QueueSearchCriteria
$sel:nextToken:SearchQueues' :: SearchQueues -> Maybe Text
$sel:maxResults:SearchQueues' :: SearchQueues -> Maybe Natural
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe QueueSearchCriteria
searchCriteria
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe QueueSearchFilter
searchFilter
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
instanceId
instance Data.ToHeaders SearchQueues where
toHeaders :: SearchQueues -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON SearchQueues where
toJSON :: SearchQueues -> Value
toJSON SearchQueues' {Maybe Natural
Maybe Text
Maybe QueueSearchCriteria
Maybe QueueSearchFilter
Text
instanceId :: Text
searchFilter :: Maybe QueueSearchFilter
searchCriteria :: Maybe QueueSearchCriteria
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:instanceId:SearchQueues' :: SearchQueues -> Text
$sel:searchFilter:SearchQueues' :: SearchQueues -> Maybe QueueSearchFilter
$sel:searchCriteria:SearchQueues' :: SearchQueues -> Maybe QueueSearchCriteria
$sel:nextToken:SearchQueues' :: SearchQueues -> Maybe Text
$sel:maxResults:SearchQueues' :: SearchQueues -> Maybe Natural
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"MaxResults" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
maxResults,
(Key
"NextToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
nextToken,
(Key
"SearchCriteria" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe QueueSearchCriteria
searchCriteria,
(Key
"SearchFilter" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe QueueSearchFilter
searchFilter,
forall a. a -> Maybe a
Prelude.Just (Key
"InstanceId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
instanceId)
]
)
instance Data.ToPath SearchQueues where
toPath :: SearchQueues -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/search-queues"
instance Data.ToQuery SearchQueues where
toQuery :: SearchQueues -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data SearchQueuesResponse = SearchQueuesResponse'
{
SearchQueuesResponse -> Maybe Integer
approximateTotalCount :: Prelude.Maybe Prelude.Integer,
SearchQueuesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
SearchQueuesResponse -> Maybe [Queue]
queues :: Prelude.Maybe [Queue],
SearchQueuesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (SearchQueuesResponse -> SearchQueuesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SearchQueuesResponse -> SearchQueuesResponse -> Bool
$c/= :: SearchQueuesResponse -> SearchQueuesResponse -> Bool
== :: SearchQueuesResponse -> SearchQueuesResponse -> Bool
$c== :: SearchQueuesResponse -> SearchQueuesResponse -> Bool
Prelude.Eq, ReadPrec [SearchQueuesResponse]
ReadPrec SearchQueuesResponse
Int -> ReadS SearchQueuesResponse
ReadS [SearchQueuesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SearchQueuesResponse]
$creadListPrec :: ReadPrec [SearchQueuesResponse]
readPrec :: ReadPrec SearchQueuesResponse
$creadPrec :: ReadPrec SearchQueuesResponse
readList :: ReadS [SearchQueuesResponse]
$creadList :: ReadS [SearchQueuesResponse]
readsPrec :: Int -> ReadS SearchQueuesResponse
$creadsPrec :: Int -> ReadS SearchQueuesResponse
Prelude.Read, Int -> SearchQueuesResponse -> ShowS
[SearchQueuesResponse] -> ShowS
SearchQueuesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SearchQueuesResponse] -> ShowS
$cshowList :: [SearchQueuesResponse] -> ShowS
show :: SearchQueuesResponse -> String
$cshow :: SearchQueuesResponse -> String
showsPrec :: Int -> SearchQueuesResponse -> ShowS
$cshowsPrec :: Int -> SearchQueuesResponse -> ShowS
Prelude.Show, forall x. Rep SearchQueuesResponse x -> SearchQueuesResponse
forall x. SearchQueuesResponse -> Rep SearchQueuesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SearchQueuesResponse x -> SearchQueuesResponse
$cfrom :: forall x. SearchQueuesResponse -> Rep SearchQueuesResponse x
Prelude.Generic)
newSearchQueuesResponse ::
Prelude.Int ->
SearchQueuesResponse
newSearchQueuesResponse :: Int -> SearchQueuesResponse
newSearchQueuesResponse Int
pHttpStatus_ =
SearchQueuesResponse'
{ $sel:approximateTotalCount:SearchQueuesResponse' :: Maybe Integer
approximateTotalCount =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:SearchQueuesResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:queues:SearchQueuesResponse' :: Maybe [Queue]
queues = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:SearchQueuesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
searchQueuesResponse_approximateTotalCount :: Lens.Lens' SearchQueuesResponse (Prelude.Maybe Prelude.Integer)
searchQueuesResponse_approximateTotalCount :: Lens' SearchQueuesResponse (Maybe Integer)
searchQueuesResponse_approximateTotalCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQueuesResponse' {Maybe Integer
approximateTotalCount :: Maybe Integer
$sel:approximateTotalCount:SearchQueuesResponse' :: SearchQueuesResponse -> Maybe Integer
approximateTotalCount} -> Maybe Integer
approximateTotalCount) (\s :: SearchQueuesResponse
s@SearchQueuesResponse' {} Maybe Integer
a -> SearchQueuesResponse
s {$sel:approximateTotalCount:SearchQueuesResponse' :: Maybe Integer
approximateTotalCount = Maybe Integer
a} :: SearchQueuesResponse)
searchQueuesResponse_nextToken :: Lens.Lens' SearchQueuesResponse (Prelude.Maybe Prelude.Text)
searchQueuesResponse_nextToken :: Lens' SearchQueuesResponse (Maybe Text)
searchQueuesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQueuesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:SearchQueuesResponse' :: SearchQueuesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: SearchQueuesResponse
s@SearchQueuesResponse' {} Maybe Text
a -> SearchQueuesResponse
s {$sel:nextToken:SearchQueuesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: SearchQueuesResponse)
searchQueuesResponse_queues :: Lens.Lens' SearchQueuesResponse (Prelude.Maybe [Queue])
searchQueuesResponse_queues :: Lens' SearchQueuesResponse (Maybe [Queue])
searchQueuesResponse_queues = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQueuesResponse' {Maybe [Queue]
queues :: Maybe [Queue]
$sel:queues:SearchQueuesResponse' :: SearchQueuesResponse -> Maybe [Queue]
queues} -> Maybe [Queue]
queues) (\s :: SearchQueuesResponse
s@SearchQueuesResponse' {} Maybe [Queue]
a -> SearchQueuesResponse
s {$sel:queues:SearchQueuesResponse' :: Maybe [Queue]
queues = Maybe [Queue]
a} :: SearchQueuesResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
searchQueuesResponse_httpStatus :: Lens.Lens' SearchQueuesResponse Prelude.Int
searchQueuesResponse_httpStatus :: Lens' SearchQueuesResponse Int
searchQueuesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchQueuesResponse' {Int
httpStatus :: Int
$sel:httpStatus:SearchQueuesResponse' :: SearchQueuesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SearchQueuesResponse
s@SearchQueuesResponse' {} Int
a -> SearchQueuesResponse
s {$sel:httpStatus:SearchQueuesResponse' :: Int
httpStatus = Int
a} :: SearchQueuesResponse)
instance Prelude.NFData SearchQueuesResponse where
rnf :: SearchQueuesResponse -> ()
rnf SearchQueuesResponse' {Int
Maybe Integer
Maybe [Queue]
Maybe Text
httpStatus :: Int
queues :: Maybe [Queue]
nextToken :: Maybe Text
approximateTotalCount :: Maybe Integer
$sel:httpStatus:SearchQueuesResponse' :: SearchQueuesResponse -> Int
$sel:queues:SearchQueuesResponse' :: SearchQueuesResponse -> Maybe [Queue]
$sel:nextToken:SearchQueuesResponse' :: SearchQueuesResponse -> Maybe Text
$sel:approximateTotalCount:SearchQueuesResponse' :: SearchQueuesResponse -> Maybe Integer
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
approximateTotalCount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Queue]
queues
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus