{-# 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.SageMaker.ListWorkteams
(
ListWorkteams (..),
newListWorkteams,
listWorkteams_maxResults,
listWorkteams_nameContains,
listWorkteams_nextToken,
listWorkteams_sortBy,
listWorkteams_sortOrder,
ListWorkteamsResponse (..),
newListWorkteamsResponse,
listWorkteamsResponse_nextToken,
listWorkteamsResponse_httpStatus,
listWorkteamsResponse_workteams,
)
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.SageMaker.Types
data ListWorkteams = ListWorkteams'
{
ListWorkteams -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListWorkteams -> Maybe Text
nameContains :: Prelude.Maybe Prelude.Text,
ListWorkteams -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListWorkteams -> Maybe ListWorkteamsSortByOptions
sortBy :: Prelude.Maybe ListWorkteamsSortByOptions,
ListWorkteams -> Maybe SortOrder
sortOrder :: Prelude.Maybe SortOrder
}
deriving (ListWorkteams -> ListWorkteams -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListWorkteams -> ListWorkteams -> Bool
$c/= :: ListWorkteams -> ListWorkteams -> Bool
== :: ListWorkteams -> ListWorkteams -> Bool
$c== :: ListWorkteams -> ListWorkteams -> Bool
Prelude.Eq, ReadPrec [ListWorkteams]
ReadPrec ListWorkteams
Int -> ReadS ListWorkteams
ReadS [ListWorkteams]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListWorkteams]
$creadListPrec :: ReadPrec [ListWorkteams]
readPrec :: ReadPrec ListWorkteams
$creadPrec :: ReadPrec ListWorkteams
readList :: ReadS [ListWorkteams]
$creadList :: ReadS [ListWorkteams]
readsPrec :: Int -> ReadS ListWorkteams
$creadsPrec :: Int -> ReadS ListWorkteams
Prelude.Read, Int -> ListWorkteams -> ShowS
[ListWorkteams] -> ShowS
ListWorkteams -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListWorkteams] -> ShowS
$cshowList :: [ListWorkteams] -> ShowS
show :: ListWorkteams -> String
$cshow :: ListWorkteams -> String
showsPrec :: Int -> ListWorkteams -> ShowS
$cshowsPrec :: Int -> ListWorkteams -> ShowS
Prelude.Show, forall x. Rep ListWorkteams x -> ListWorkteams
forall x. ListWorkteams -> Rep ListWorkteams x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListWorkteams x -> ListWorkteams
$cfrom :: forall x. ListWorkteams -> Rep ListWorkteams x
Prelude.Generic)
newListWorkteams ::
ListWorkteams
newListWorkteams :: ListWorkteams
newListWorkteams =
ListWorkteams'
{ $sel:maxResults:ListWorkteams' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nameContains:ListWorkteams' :: Maybe Text
nameContains = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListWorkteams' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:sortBy:ListWorkteams' :: Maybe ListWorkteamsSortByOptions
sortBy = forall a. Maybe a
Prelude.Nothing,
$sel:sortOrder:ListWorkteams' :: Maybe SortOrder
sortOrder = forall a. Maybe a
Prelude.Nothing
}
listWorkteams_maxResults :: Lens.Lens' ListWorkteams (Prelude.Maybe Prelude.Natural)
listWorkteams_maxResults :: Lens' ListWorkteams (Maybe Natural)
listWorkteams_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListWorkteams' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListWorkteams' :: ListWorkteams -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListWorkteams
s@ListWorkteams' {} Maybe Natural
a -> ListWorkteams
s {$sel:maxResults:ListWorkteams' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListWorkteams)
listWorkteams_nameContains :: Lens.Lens' ListWorkteams (Prelude.Maybe Prelude.Text)
listWorkteams_nameContains :: Lens' ListWorkteams (Maybe Text)
listWorkteams_nameContains = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListWorkteams' {Maybe Text
nameContains :: Maybe Text
$sel:nameContains:ListWorkteams' :: ListWorkteams -> Maybe Text
nameContains} -> Maybe Text
nameContains) (\s :: ListWorkteams
s@ListWorkteams' {} Maybe Text
a -> ListWorkteams
s {$sel:nameContains:ListWorkteams' :: Maybe Text
nameContains = Maybe Text
a} :: ListWorkteams)
listWorkteams_nextToken :: Lens.Lens' ListWorkteams (Prelude.Maybe Prelude.Text)
listWorkteams_nextToken :: Lens' ListWorkteams (Maybe Text)
listWorkteams_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListWorkteams' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListWorkteams' :: ListWorkteams -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListWorkteams
s@ListWorkteams' {} Maybe Text
a -> ListWorkteams
s {$sel:nextToken:ListWorkteams' :: Maybe Text
nextToken = Maybe Text
a} :: ListWorkteams)
listWorkteams_sortBy :: Lens.Lens' ListWorkteams (Prelude.Maybe ListWorkteamsSortByOptions)
listWorkteams_sortBy :: Lens' ListWorkteams (Maybe ListWorkteamsSortByOptions)
listWorkteams_sortBy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListWorkteams' {Maybe ListWorkteamsSortByOptions
sortBy :: Maybe ListWorkteamsSortByOptions
$sel:sortBy:ListWorkteams' :: ListWorkteams -> Maybe ListWorkteamsSortByOptions
sortBy} -> Maybe ListWorkteamsSortByOptions
sortBy) (\s :: ListWorkteams
s@ListWorkteams' {} Maybe ListWorkteamsSortByOptions
a -> ListWorkteams
s {$sel:sortBy:ListWorkteams' :: Maybe ListWorkteamsSortByOptions
sortBy = Maybe ListWorkteamsSortByOptions
a} :: ListWorkteams)
listWorkteams_sortOrder :: Lens.Lens' ListWorkteams (Prelude.Maybe SortOrder)
listWorkteams_sortOrder :: Lens' ListWorkteams (Maybe SortOrder)
listWorkteams_sortOrder = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListWorkteams' {Maybe SortOrder
sortOrder :: Maybe SortOrder
$sel:sortOrder:ListWorkteams' :: ListWorkteams -> Maybe SortOrder
sortOrder} -> Maybe SortOrder
sortOrder) (\s :: ListWorkteams
s@ListWorkteams' {} Maybe SortOrder
a -> ListWorkteams
s {$sel:sortOrder:ListWorkteams' :: Maybe SortOrder
sortOrder = Maybe SortOrder
a} :: ListWorkteams)
instance Core.AWSPager ListWorkteams where
page :: ListWorkteams -> AWSResponse ListWorkteams -> Maybe ListWorkteams
page ListWorkteams
rq AWSResponse ListWorkteams
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListWorkteams
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListWorkteamsResponse (Maybe Text)
listWorkteamsResponse_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 ListWorkteams
rs forall s a. s -> Getting a s a -> a
Lens.^. Lens' ListWorkteamsResponse [Workteam]
listWorkteamsResponse_workteams) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListWorkteams
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListWorkteams (Maybe Text)
listWorkteams_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListWorkteams
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListWorkteamsResponse (Maybe Text)
listWorkteamsResponse_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 ListWorkteams where
type
AWSResponse ListWorkteams =
ListWorkteamsResponse
request :: (Service -> Service) -> ListWorkteams -> Request ListWorkteams
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 ListWorkteams
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ListWorkteams)))
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 -> Int -> [Workteam] -> ListWorkteamsResponse
ListWorkteamsResponse'
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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
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
"Workteams" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
)
instance Prelude.Hashable ListWorkteams where
hashWithSalt :: Int -> ListWorkteams -> Int
hashWithSalt Int
_salt ListWorkteams' {Maybe Natural
Maybe Text
Maybe ListWorkteamsSortByOptions
Maybe SortOrder
sortOrder :: Maybe SortOrder
sortBy :: Maybe ListWorkteamsSortByOptions
nextToken :: Maybe Text
nameContains :: Maybe Text
maxResults :: Maybe Natural
$sel:sortOrder:ListWorkteams' :: ListWorkteams -> Maybe SortOrder
$sel:sortBy:ListWorkteams' :: ListWorkteams -> Maybe ListWorkteamsSortByOptions
$sel:nextToken:ListWorkteams' :: ListWorkteams -> Maybe Text
$sel:nameContains:ListWorkteams' :: ListWorkteams -> Maybe Text
$sel:maxResults:ListWorkteams' :: ListWorkteams -> 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
nameContains
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ListWorkteamsSortByOptions
sortBy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SortOrder
sortOrder
instance Prelude.NFData ListWorkteams where
rnf :: ListWorkteams -> ()
rnf ListWorkteams' {Maybe Natural
Maybe Text
Maybe ListWorkteamsSortByOptions
Maybe SortOrder
sortOrder :: Maybe SortOrder
sortBy :: Maybe ListWorkteamsSortByOptions
nextToken :: Maybe Text
nameContains :: Maybe Text
maxResults :: Maybe Natural
$sel:sortOrder:ListWorkteams' :: ListWorkteams -> Maybe SortOrder
$sel:sortBy:ListWorkteams' :: ListWorkteams -> Maybe ListWorkteamsSortByOptions
$sel:nextToken:ListWorkteams' :: ListWorkteams -> Maybe Text
$sel:nameContains:ListWorkteams' :: ListWorkteams -> Maybe Text
$sel:maxResults:ListWorkteams' :: ListWorkteams -> 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
nameContains
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 ListWorkteamsSortByOptions
sortBy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SortOrder
sortOrder
instance Data.ToHeaders ListWorkteams where
toHeaders :: ListWorkteams -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# (ByteString
"SageMaker.ListWorkteams" :: Prelude.ByteString),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ListWorkteams where
toJSON :: ListWorkteams -> Value
toJSON ListWorkteams' {Maybe Natural
Maybe Text
Maybe ListWorkteamsSortByOptions
Maybe SortOrder
sortOrder :: Maybe SortOrder
sortBy :: Maybe ListWorkteamsSortByOptions
nextToken :: Maybe Text
nameContains :: Maybe Text
maxResults :: Maybe Natural
$sel:sortOrder:ListWorkteams' :: ListWorkteams -> Maybe SortOrder
$sel:sortBy:ListWorkteams' :: ListWorkteams -> Maybe ListWorkteamsSortByOptions
$sel:nextToken:ListWorkteams' :: ListWorkteams -> Maybe Text
$sel:nameContains:ListWorkteams' :: ListWorkteams -> Maybe Text
$sel:maxResults:ListWorkteams' :: ListWorkteams -> 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
"NameContains" 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
nameContains,
(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
"SortBy" 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 ListWorkteamsSortByOptions
sortBy,
(Key
"SortOrder" 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 SortOrder
sortOrder
]
)
instance Data.ToPath ListWorkteams where
toPath :: ListWorkteams -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListWorkteams where
toQuery :: ListWorkteams -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListWorkteamsResponse = ListWorkteamsResponse'
{
ListWorkteamsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListWorkteamsResponse -> Int
httpStatus :: Prelude.Int,
ListWorkteamsResponse -> [Workteam]
workteams :: [Workteam]
}
deriving (ListWorkteamsResponse -> ListWorkteamsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListWorkteamsResponse -> ListWorkteamsResponse -> Bool
$c/= :: ListWorkteamsResponse -> ListWorkteamsResponse -> Bool
== :: ListWorkteamsResponse -> ListWorkteamsResponse -> Bool
$c== :: ListWorkteamsResponse -> ListWorkteamsResponse -> Bool
Prelude.Eq, ReadPrec [ListWorkteamsResponse]
ReadPrec ListWorkteamsResponse
Int -> ReadS ListWorkteamsResponse
ReadS [ListWorkteamsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListWorkteamsResponse]
$creadListPrec :: ReadPrec [ListWorkteamsResponse]
readPrec :: ReadPrec ListWorkteamsResponse
$creadPrec :: ReadPrec ListWorkteamsResponse
readList :: ReadS [ListWorkteamsResponse]
$creadList :: ReadS [ListWorkteamsResponse]
readsPrec :: Int -> ReadS ListWorkteamsResponse
$creadsPrec :: Int -> ReadS ListWorkteamsResponse
Prelude.Read, Int -> ListWorkteamsResponse -> ShowS
[ListWorkteamsResponse] -> ShowS
ListWorkteamsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListWorkteamsResponse] -> ShowS
$cshowList :: [ListWorkteamsResponse] -> ShowS
show :: ListWorkteamsResponse -> String
$cshow :: ListWorkteamsResponse -> String
showsPrec :: Int -> ListWorkteamsResponse -> ShowS
$cshowsPrec :: Int -> ListWorkteamsResponse -> ShowS
Prelude.Show, forall x. Rep ListWorkteamsResponse x -> ListWorkteamsResponse
forall x. ListWorkteamsResponse -> Rep ListWorkteamsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListWorkteamsResponse x -> ListWorkteamsResponse
$cfrom :: forall x. ListWorkteamsResponse -> Rep ListWorkteamsResponse x
Prelude.Generic)
newListWorkteamsResponse ::
Prelude.Int ->
ListWorkteamsResponse
newListWorkteamsResponse :: Int -> ListWorkteamsResponse
newListWorkteamsResponse Int
pHttpStatus_ =
ListWorkteamsResponse'
{ $sel:nextToken:ListWorkteamsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListWorkteamsResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:workteams:ListWorkteamsResponse' :: [Workteam]
workteams = forall a. Monoid a => a
Prelude.mempty
}
listWorkteamsResponse_nextToken :: Lens.Lens' ListWorkteamsResponse (Prelude.Maybe Prelude.Text)
listWorkteamsResponse_nextToken :: Lens' ListWorkteamsResponse (Maybe Text)
listWorkteamsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListWorkteamsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListWorkteamsResponse' :: ListWorkteamsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListWorkteamsResponse
s@ListWorkteamsResponse' {} Maybe Text
a -> ListWorkteamsResponse
s {$sel:nextToken:ListWorkteamsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListWorkteamsResponse)
listWorkteamsResponse_httpStatus :: Lens.Lens' ListWorkteamsResponse Prelude.Int
listWorkteamsResponse_httpStatus :: Lens' ListWorkteamsResponse Int
listWorkteamsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListWorkteamsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListWorkteamsResponse' :: ListWorkteamsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListWorkteamsResponse
s@ListWorkteamsResponse' {} Int
a -> ListWorkteamsResponse
s {$sel:httpStatus:ListWorkteamsResponse' :: Int
httpStatus = Int
a} :: ListWorkteamsResponse)
listWorkteamsResponse_workteams :: Lens.Lens' ListWorkteamsResponse [Workteam]
listWorkteamsResponse_workteams :: Lens' ListWorkteamsResponse [Workteam]
listWorkteamsResponse_workteams = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListWorkteamsResponse' {[Workteam]
workteams :: [Workteam]
$sel:workteams:ListWorkteamsResponse' :: ListWorkteamsResponse -> [Workteam]
workteams} -> [Workteam]
workteams) (\s :: ListWorkteamsResponse
s@ListWorkteamsResponse' {} [Workteam]
a -> ListWorkteamsResponse
s {$sel:workteams:ListWorkteamsResponse' :: [Workteam]
workteams = [Workteam]
a} :: ListWorkteamsResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Prelude.NFData ListWorkteamsResponse where
rnf :: ListWorkteamsResponse -> ()
rnf ListWorkteamsResponse' {Int
[Workteam]
Maybe Text
workteams :: [Workteam]
httpStatus :: Int
nextToken :: Maybe Text
$sel:workteams:ListWorkteamsResponse' :: ListWorkteamsResponse -> [Workteam]
$sel:httpStatus:ListWorkteamsResponse' :: ListWorkteamsResponse -> Int
$sel:nextToken:ListWorkteamsResponse' :: ListWorkteamsResponse -> 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 Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Workteam]
workteams