{-# 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.ListRoutingProfileQueues
(
ListRoutingProfileQueues (..),
newListRoutingProfileQueues,
listRoutingProfileQueues_maxResults,
listRoutingProfileQueues_nextToken,
listRoutingProfileQueues_instanceId,
listRoutingProfileQueues_routingProfileId,
ListRoutingProfileQueuesResponse (..),
newListRoutingProfileQueuesResponse,
listRoutingProfileQueuesResponse_nextToken,
listRoutingProfileQueuesResponse_routingProfileQueueConfigSummaryList,
listRoutingProfileQueuesResponse_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 ListRoutingProfileQueues = ListRoutingProfileQueues'
{
ListRoutingProfileQueues -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListRoutingProfileQueues -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListRoutingProfileQueues -> Text
instanceId :: Prelude.Text,
ListRoutingProfileQueues -> Text
routingProfileId :: Prelude.Text
}
deriving (ListRoutingProfileQueues -> ListRoutingProfileQueues -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListRoutingProfileQueues -> ListRoutingProfileQueues -> Bool
$c/= :: ListRoutingProfileQueues -> ListRoutingProfileQueues -> Bool
== :: ListRoutingProfileQueues -> ListRoutingProfileQueues -> Bool
$c== :: ListRoutingProfileQueues -> ListRoutingProfileQueues -> Bool
Prelude.Eq, ReadPrec [ListRoutingProfileQueues]
ReadPrec ListRoutingProfileQueues
Int -> ReadS ListRoutingProfileQueues
ReadS [ListRoutingProfileQueues]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListRoutingProfileQueues]
$creadListPrec :: ReadPrec [ListRoutingProfileQueues]
readPrec :: ReadPrec ListRoutingProfileQueues
$creadPrec :: ReadPrec ListRoutingProfileQueues
readList :: ReadS [ListRoutingProfileQueues]
$creadList :: ReadS [ListRoutingProfileQueues]
readsPrec :: Int -> ReadS ListRoutingProfileQueues
$creadsPrec :: Int -> ReadS ListRoutingProfileQueues
Prelude.Read, Int -> ListRoutingProfileQueues -> ShowS
[ListRoutingProfileQueues] -> ShowS
ListRoutingProfileQueues -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListRoutingProfileQueues] -> ShowS
$cshowList :: [ListRoutingProfileQueues] -> ShowS
show :: ListRoutingProfileQueues -> String
$cshow :: ListRoutingProfileQueues -> String
showsPrec :: Int -> ListRoutingProfileQueues -> ShowS
$cshowsPrec :: Int -> ListRoutingProfileQueues -> ShowS
Prelude.Show, forall x.
Rep ListRoutingProfileQueues x -> ListRoutingProfileQueues
forall x.
ListRoutingProfileQueues -> Rep ListRoutingProfileQueues x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListRoutingProfileQueues x -> ListRoutingProfileQueues
$cfrom :: forall x.
ListRoutingProfileQueues -> Rep ListRoutingProfileQueues x
Prelude.Generic)
newListRoutingProfileQueues ::
Prelude.Text ->
Prelude.Text ->
ListRoutingProfileQueues
newListRoutingProfileQueues :: Text -> Text -> ListRoutingProfileQueues
newListRoutingProfileQueues
Text
pInstanceId_
Text
pRoutingProfileId_ =
ListRoutingProfileQueues'
{ $sel:maxResults:ListRoutingProfileQueues' :: Maybe Natural
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListRoutingProfileQueues' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:instanceId:ListRoutingProfileQueues' :: Text
instanceId = Text
pInstanceId_,
$sel:routingProfileId:ListRoutingProfileQueues' :: Text
routingProfileId = Text
pRoutingProfileId_
}
listRoutingProfileQueues_maxResults :: Lens.Lens' ListRoutingProfileQueues (Prelude.Maybe Prelude.Natural)
listRoutingProfileQueues_maxResults :: Lens' ListRoutingProfileQueues (Maybe Natural)
listRoutingProfileQueues_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListRoutingProfileQueues' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListRoutingProfileQueues
s@ListRoutingProfileQueues' {} Maybe Natural
a -> ListRoutingProfileQueues
s {$sel:maxResults:ListRoutingProfileQueues' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListRoutingProfileQueues)
listRoutingProfileQueues_nextToken :: Lens.Lens' ListRoutingProfileQueues (Prelude.Maybe Prelude.Text)
listRoutingProfileQueues_nextToken :: Lens' ListRoutingProfileQueues (Maybe Text)
listRoutingProfileQueues_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListRoutingProfileQueues' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListRoutingProfileQueues
s@ListRoutingProfileQueues' {} Maybe Text
a -> ListRoutingProfileQueues
s {$sel:nextToken:ListRoutingProfileQueues' :: Maybe Text
nextToken = Maybe Text
a} :: ListRoutingProfileQueues)
listRoutingProfileQueues_instanceId :: Lens.Lens' ListRoutingProfileQueues Prelude.Text
listRoutingProfileQueues_instanceId :: Lens' ListRoutingProfileQueues Text
listRoutingProfileQueues_instanceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListRoutingProfileQueues' {Text
instanceId :: Text
$sel:instanceId:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Text
instanceId} -> Text
instanceId) (\s :: ListRoutingProfileQueues
s@ListRoutingProfileQueues' {} Text
a -> ListRoutingProfileQueues
s {$sel:instanceId:ListRoutingProfileQueues' :: Text
instanceId = Text
a} :: ListRoutingProfileQueues)
listRoutingProfileQueues_routingProfileId :: Lens.Lens' ListRoutingProfileQueues Prelude.Text
listRoutingProfileQueues_routingProfileId :: Lens' ListRoutingProfileQueues Text
listRoutingProfileQueues_routingProfileId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListRoutingProfileQueues' {Text
routingProfileId :: Text
$sel:routingProfileId:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Text
routingProfileId} -> Text
routingProfileId) (\s :: ListRoutingProfileQueues
s@ListRoutingProfileQueues' {} Text
a -> ListRoutingProfileQueues
s {$sel:routingProfileId:ListRoutingProfileQueues' :: Text
routingProfileId = Text
a} :: ListRoutingProfileQueues)
instance Core.AWSPager ListRoutingProfileQueues where
page :: ListRoutingProfileQueues
-> AWSResponse ListRoutingProfileQueues
-> Maybe ListRoutingProfileQueues
page ListRoutingProfileQueues
rq AWSResponse ListRoutingProfileQueues
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListRoutingProfileQueues
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListRoutingProfileQueuesResponse (Maybe Text)
listRoutingProfileQueuesResponse_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 ListRoutingProfileQueues
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
ListRoutingProfileQueuesResponse
(Maybe [RoutingProfileQueueConfigSummary])
listRoutingProfileQueuesResponse_routingProfileQueueConfigSummaryList
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.$ ListRoutingProfileQueues
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListRoutingProfileQueues (Maybe Text)
listRoutingProfileQueues_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListRoutingProfileQueues
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListRoutingProfileQueuesResponse (Maybe Text)
listRoutingProfileQueuesResponse_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 ListRoutingProfileQueues where
type
AWSResponse ListRoutingProfileQueues =
ListRoutingProfileQueuesResponse
request :: (Service -> Service)
-> ListRoutingProfileQueues -> Request ListRoutingProfileQueues
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListRoutingProfileQueues
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListRoutingProfileQueues)))
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 Text
-> Maybe [RoutingProfileQueueConfigSummary]
-> Int
-> ListRoutingProfileQueuesResponse
ListRoutingProfileQueuesResponse'
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
"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
"RoutingProfileQueueConfigSummaryList"
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 ListRoutingProfileQueues where
hashWithSalt :: Int -> ListRoutingProfileQueues -> Int
hashWithSalt Int
_salt ListRoutingProfileQueues' {Maybe Natural
Maybe Text
Text
routingProfileId :: Text
instanceId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:routingProfileId:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Text
$sel:instanceId:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Text
$sel:nextToken:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Maybe Text
$sel:maxResults:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> 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` Text
instanceId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
routingProfileId
instance Prelude.NFData ListRoutingProfileQueues where
rnf :: ListRoutingProfileQueues -> ()
rnf ListRoutingProfileQueues' {Maybe Natural
Maybe Text
Text
routingProfileId :: Text
instanceId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:routingProfileId:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Text
$sel:instanceId:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Text
$sel:nextToken:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Maybe Text
$sel:maxResults:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> 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 Text
instanceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
routingProfileId
instance Data.ToHeaders ListRoutingProfileQueues where
toHeaders :: ListRoutingProfileQueues -> 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.ToPath ListRoutingProfileQueues where
toPath :: ListRoutingProfileQueues -> ByteString
toPath ListRoutingProfileQueues' {Maybe Natural
Maybe Text
Text
routingProfileId :: Text
instanceId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:routingProfileId:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Text
$sel:instanceId:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Text
$sel:nextToken:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Maybe Text
$sel:maxResults:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/routing-profiles/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
instanceId,
ByteString
"/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
routingProfileId,
ByteString
"/queues"
]
instance Data.ToQuery ListRoutingProfileQueues where
toQuery :: ListRoutingProfileQueues -> QueryString
toQuery ListRoutingProfileQueues' {Maybe Natural
Maybe Text
Text
routingProfileId :: Text
instanceId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:routingProfileId:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Text
$sel:instanceId:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Text
$sel:nextToken:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Maybe Text
$sel:maxResults:ListRoutingProfileQueues' :: ListRoutingProfileQueues -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"maxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
ByteString
"nextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken
]
data ListRoutingProfileQueuesResponse = ListRoutingProfileQueuesResponse'
{
ListRoutingProfileQueuesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListRoutingProfileQueuesResponse
-> Maybe [RoutingProfileQueueConfigSummary]
routingProfileQueueConfigSummaryList :: Prelude.Maybe [RoutingProfileQueueConfigSummary],
ListRoutingProfileQueuesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListRoutingProfileQueuesResponse
-> ListRoutingProfileQueuesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListRoutingProfileQueuesResponse
-> ListRoutingProfileQueuesResponse -> Bool
$c/= :: ListRoutingProfileQueuesResponse
-> ListRoutingProfileQueuesResponse -> Bool
== :: ListRoutingProfileQueuesResponse
-> ListRoutingProfileQueuesResponse -> Bool
$c== :: ListRoutingProfileQueuesResponse
-> ListRoutingProfileQueuesResponse -> Bool
Prelude.Eq, ReadPrec [ListRoutingProfileQueuesResponse]
ReadPrec ListRoutingProfileQueuesResponse
Int -> ReadS ListRoutingProfileQueuesResponse
ReadS [ListRoutingProfileQueuesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListRoutingProfileQueuesResponse]
$creadListPrec :: ReadPrec [ListRoutingProfileQueuesResponse]
readPrec :: ReadPrec ListRoutingProfileQueuesResponse
$creadPrec :: ReadPrec ListRoutingProfileQueuesResponse
readList :: ReadS [ListRoutingProfileQueuesResponse]
$creadList :: ReadS [ListRoutingProfileQueuesResponse]
readsPrec :: Int -> ReadS ListRoutingProfileQueuesResponse
$creadsPrec :: Int -> ReadS ListRoutingProfileQueuesResponse
Prelude.Read, Int -> ListRoutingProfileQueuesResponse -> ShowS
[ListRoutingProfileQueuesResponse] -> ShowS
ListRoutingProfileQueuesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListRoutingProfileQueuesResponse] -> ShowS
$cshowList :: [ListRoutingProfileQueuesResponse] -> ShowS
show :: ListRoutingProfileQueuesResponse -> String
$cshow :: ListRoutingProfileQueuesResponse -> String
showsPrec :: Int -> ListRoutingProfileQueuesResponse -> ShowS
$cshowsPrec :: Int -> ListRoutingProfileQueuesResponse -> ShowS
Prelude.Show, forall x.
Rep ListRoutingProfileQueuesResponse x
-> ListRoutingProfileQueuesResponse
forall x.
ListRoutingProfileQueuesResponse
-> Rep ListRoutingProfileQueuesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListRoutingProfileQueuesResponse x
-> ListRoutingProfileQueuesResponse
$cfrom :: forall x.
ListRoutingProfileQueuesResponse
-> Rep ListRoutingProfileQueuesResponse x
Prelude.Generic)
newListRoutingProfileQueuesResponse ::
Prelude.Int ->
ListRoutingProfileQueuesResponse
newListRoutingProfileQueuesResponse :: Int -> ListRoutingProfileQueuesResponse
newListRoutingProfileQueuesResponse Int
pHttpStatus_ =
ListRoutingProfileQueuesResponse'
{ $sel:nextToken:ListRoutingProfileQueuesResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:routingProfileQueueConfigSummaryList:ListRoutingProfileQueuesResponse' :: Maybe [RoutingProfileQueueConfigSummary]
routingProfileQueueConfigSummaryList =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListRoutingProfileQueuesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listRoutingProfileQueuesResponse_nextToken :: Lens.Lens' ListRoutingProfileQueuesResponse (Prelude.Maybe Prelude.Text)
listRoutingProfileQueuesResponse_nextToken :: Lens' ListRoutingProfileQueuesResponse (Maybe Text)
listRoutingProfileQueuesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListRoutingProfileQueuesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListRoutingProfileQueuesResponse' :: ListRoutingProfileQueuesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListRoutingProfileQueuesResponse
s@ListRoutingProfileQueuesResponse' {} Maybe Text
a -> ListRoutingProfileQueuesResponse
s {$sel:nextToken:ListRoutingProfileQueuesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListRoutingProfileQueuesResponse)
listRoutingProfileQueuesResponse_routingProfileQueueConfigSummaryList :: Lens.Lens' ListRoutingProfileQueuesResponse (Prelude.Maybe [RoutingProfileQueueConfigSummary])
listRoutingProfileQueuesResponse_routingProfileQueueConfigSummaryList :: Lens'
ListRoutingProfileQueuesResponse
(Maybe [RoutingProfileQueueConfigSummary])
listRoutingProfileQueuesResponse_routingProfileQueueConfigSummaryList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListRoutingProfileQueuesResponse' {Maybe [RoutingProfileQueueConfigSummary]
routingProfileQueueConfigSummaryList :: Maybe [RoutingProfileQueueConfigSummary]
$sel:routingProfileQueueConfigSummaryList:ListRoutingProfileQueuesResponse' :: ListRoutingProfileQueuesResponse
-> Maybe [RoutingProfileQueueConfigSummary]
routingProfileQueueConfigSummaryList} -> Maybe [RoutingProfileQueueConfigSummary]
routingProfileQueueConfigSummaryList) (\s :: ListRoutingProfileQueuesResponse
s@ListRoutingProfileQueuesResponse' {} Maybe [RoutingProfileQueueConfigSummary]
a -> ListRoutingProfileQueuesResponse
s {$sel:routingProfileQueueConfigSummaryList:ListRoutingProfileQueuesResponse' :: Maybe [RoutingProfileQueueConfigSummary]
routingProfileQueueConfigSummaryList = Maybe [RoutingProfileQueueConfigSummary]
a} :: ListRoutingProfileQueuesResponse) 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
listRoutingProfileQueuesResponse_httpStatus :: Lens.Lens' ListRoutingProfileQueuesResponse Prelude.Int
listRoutingProfileQueuesResponse_httpStatus :: Lens' ListRoutingProfileQueuesResponse Int
listRoutingProfileQueuesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListRoutingProfileQueuesResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListRoutingProfileQueuesResponse' :: ListRoutingProfileQueuesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListRoutingProfileQueuesResponse
s@ListRoutingProfileQueuesResponse' {} Int
a -> ListRoutingProfileQueuesResponse
s {$sel:httpStatus:ListRoutingProfileQueuesResponse' :: Int
httpStatus = Int
a} :: ListRoutingProfileQueuesResponse)
instance
Prelude.NFData
ListRoutingProfileQueuesResponse
where
rnf :: ListRoutingProfileQueuesResponse -> ()
rnf ListRoutingProfileQueuesResponse' {Int
Maybe [RoutingProfileQueueConfigSummary]
Maybe Text
httpStatus :: Int
routingProfileQueueConfigSummaryList :: Maybe [RoutingProfileQueueConfigSummary]
nextToken :: Maybe Text
$sel:httpStatus:ListRoutingProfileQueuesResponse' :: ListRoutingProfileQueuesResponse -> Int
$sel:routingProfileQueueConfigSummaryList:ListRoutingProfileQueuesResponse' :: ListRoutingProfileQueuesResponse
-> Maybe [RoutingProfileQueueConfigSummary]
$sel:nextToken:ListRoutingProfileQueuesResponse' :: ListRoutingProfileQueuesResponse -> Maybe Text
..} =
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 [RoutingProfileQueueConfigSummary]
routingProfileQueueConfigSummaryList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus