{-# 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.ListLabelingJobsForWorkteam
(
ListLabelingJobsForWorkteam (..),
newListLabelingJobsForWorkteam,
listLabelingJobsForWorkteam_creationTimeAfter,
listLabelingJobsForWorkteam_creationTimeBefore,
listLabelingJobsForWorkteam_jobReferenceCodeContains,
listLabelingJobsForWorkteam_maxResults,
listLabelingJobsForWorkteam_nextToken,
listLabelingJobsForWorkteam_sortBy,
listLabelingJobsForWorkteam_sortOrder,
listLabelingJobsForWorkteam_workteamArn,
ListLabelingJobsForWorkteamResponse (..),
newListLabelingJobsForWorkteamResponse,
listLabelingJobsForWorkteamResponse_nextToken,
listLabelingJobsForWorkteamResponse_httpStatus,
listLabelingJobsForWorkteamResponse_labelingJobSummaryList,
)
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 ListLabelingJobsForWorkteam = ListLabelingJobsForWorkteam'
{
ListLabelingJobsForWorkteam -> Maybe POSIX
creationTimeAfter :: Prelude.Maybe Data.POSIX,
ListLabelingJobsForWorkteam -> Maybe POSIX
creationTimeBefore :: Prelude.Maybe Data.POSIX,
ListLabelingJobsForWorkteam -> Maybe Text
jobReferenceCodeContains :: Prelude.Maybe Prelude.Text,
ListLabelingJobsForWorkteam -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListLabelingJobsForWorkteam -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListLabelingJobsForWorkteam
-> Maybe ListLabelingJobsForWorkteamSortByOptions
sortBy :: Prelude.Maybe ListLabelingJobsForWorkteamSortByOptions,
ListLabelingJobsForWorkteam -> Maybe SortOrder
sortOrder :: Prelude.Maybe SortOrder,
ListLabelingJobsForWorkteam -> Text
workteamArn :: Prelude.Text
}
deriving (ListLabelingJobsForWorkteam -> ListLabelingJobsForWorkteam -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListLabelingJobsForWorkteam -> ListLabelingJobsForWorkteam -> Bool
$c/= :: ListLabelingJobsForWorkteam -> ListLabelingJobsForWorkteam -> Bool
== :: ListLabelingJobsForWorkteam -> ListLabelingJobsForWorkteam -> Bool
$c== :: ListLabelingJobsForWorkteam -> ListLabelingJobsForWorkteam -> Bool
Prelude.Eq, ReadPrec [ListLabelingJobsForWorkteam]
ReadPrec ListLabelingJobsForWorkteam
Int -> ReadS ListLabelingJobsForWorkteam
ReadS [ListLabelingJobsForWorkteam]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListLabelingJobsForWorkteam]
$creadListPrec :: ReadPrec [ListLabelingJobsForWorkteam]
readPrec :: ReadPrec ListLabelingJobsForWorkteam
$creadPrec :: ReadPrec ListLabelingJobsForWorkteam
readList :: ReadS [ListLabelingJobsForWorkteam]
$creadList :: ReadS [ListLabelingJobsForWorkteam]
readsPrec :: Int -> ReadS ListLabelingJobsForWorkteam
$creadsPrec :: Int -> ReadS ListLabelingJobsForWorkteam
Prelude.Read, Int -> ListLabelingJobsForWorkteam -> ShowS
[ListLabelingJobsForWorkteam] -> ShowS
ListLabelingJobsForWorkteam -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListLabelingJobsForWorkteam] -> ShowS
$cshowList :: [ListLabelingJobsForWorkteam] -> ShowS
show :: ListLabelingJobsForWorkteam -> String
$cshow :: ListLabelingJobsForWorkteam -> String
showsPrec :: Int -> ListLabelingJobsForWorkteam -> ShowS
$cshowsPrec :: Int -> ListLabelingJobsForWorkteam -> ShowS
Prelude.Show, forall x.
Rep ListLabelingJobsForWorkteam x -> ListLabelingJobsForWorkteam
forall x.
ListLabelingJobsForWorkteam -> Rep ListLabelingJobsForWorkteam x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListLabelingJobsForWorkteam x -> ListLabelingJobsForWorkteam
$cfrom :: forall x.
ListLabelingJobsForWorkteam -> Rep ListLabelingJobsForWorkteam x
Prelude.Generic)
newListLabelingJobsForWorkteam ::
Prelude.Text ->
ListLabelingJobsForWorkteam
newListLabelingJobsForWorkteam :: Text -> ListLabelingJobsForWorkteam
newListLabelingJobsForWorkteam Text
pWorkteamArn_ =
ListLabelingJobsForWorkteam'
{ $sel:creationTimeAfter:ListLabelingJobsForWorkteam' :: Maybe POSIX
creationTimeAfter =
forall a. Maybe a
Prelude.Nothing,
$sel:creationTimeBefore:ListLabelingJobsForWorkteam' :: Maybe POSIX
creationTimeBefore = forall a. Maybe a
Prelude.Nothing,
$sel:jobReferenceCodeContains:ListLabelingJobsForWorkteam' :: Maybe Text
jobReferenceCodeContains = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:ListLabelingJobsForWorkteam' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListLabelingJobsForWorkteam' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:sortBy:ListLabelingJobsForWorkteam' :: Maybe ListLabelingJobsForWorkteamSortByOptions
sortBy = forall a. Maybe a
Prelude.Nothing,
$sel:sortOrder:ListLabelingJobsForWorkteam' :: Maybe SortOrder
sortOrder = forall a. Maybe a
Prelude.Nothing,
$sel:workteamArn:ListLabelingJobsForWorkteam' :: Text
workteamArn = Text
pWorkteamArn_
}
listLabelingJobsForWorkteam_creationTimeAfter :: Lens.Lens' ListLabelingJobsForWorkteam (Prelude.Maybe Prelude.UTCTime)
listLabelingJobsForWorkteam_creationTimeAfter :: Lens' ListLabelingJobsForWorkteam (Maybe UTCTime)
listLabelingJobsForWorkteam_creationTimeAfter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLabelingJobsForWorkteam' {Maybe POSIX
creationTimeAfter :: Maybe POSIX
$sel:creationTimeAfter:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe POSIX
creationTimeAfter} -> Maybe POSIX
creationTimeAfter) (\s :: ListLabelingJobsForWorkteam
s@ListLabelingJobsForWorkteam' {} Maybe POSIX
a -> ListLabelingJobsForWorkteam
s {$sel:creationTimeAfter:ListLabelingJobsForWorkteam' :: Maybe POSIX
creationTimeAfter = Maybe POSIX
a} :: ListLabelingJobsForWorkteam) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
listLabelingJobsForWorkteam_creationTimeBefore :: Lens.Lens' ListLabelingJobsForWorkteam (Prelude.Maybe Prelude.UTCTime)
listLabelingJobsForWorkteam_creationTimeBefore :: Lens' ListLabelingJobsForWorkteam (Maybe UTCTime)
listLabelingJobsForWorkteam_creationTimeBefore = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLabelingJobsForWorkteam' {Maybe POSIX
creationTimeBefore :: Maybe POSIX
$sel:creationTimeBefore:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe POSIX
creationTimeBefore} -> Maybe POSIX
creationTimeBefore) (\s :: ListLabelingJobsForWorkteam
s@ListLabelingJobsForWorkteam' {} Maybe POSIX
a -> ListLabelingJobsForWorkteam
s {$sel:creationTimeBefore:ListLabelingJobsForWorkteam' :: Maybe POSIX
creationTimeBefore = Maybe POSIX
a} :: ListLabelingJobsForWorkteam) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
listLabelingJobsForWorkteam_jobReferenceCodeContains :: Lens.Lens' ListLabelingJobsForWorkteam (Prelude.Maybe Prelude.Text)
listLabelingJobsForWorkteam_jobReferenceCodeContains :: Lens' ListLabelingJobsForWorkteam (Maybe Text)
listLabelingJobsForWorkteam_jobReferenceCodeContains = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLabelingJobsForWorkteam' {Maybe Text
jobReferenceCodeContains :: Maybe Text
$sel:jobReferenceCodeContains:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe Text
jobReferenceCodeContains} -> Maybe Text
jobReferenceCodeContains) (\s :: ListLabelingJobsForWorkteam
s@ListLabelingJobsForWorkteam' {} Maybe Text
a -> ListLabelingJobsForWorkteam
s {$sel:jobReferenceCodeContains:ListLabelingJobsForWorkteam' :: Maybe Text
jobReferenceCodeContains = Maybe Text
a} :: ListLabelingJobsForWorkteam)
listLabelingJobsForWorkteam_maxResults :: Lens.Lens' ListLabelingJobsForWorkteam (Prelude.Maybe Prelude.Natural)
listLabelingJobsForWorkteam_maxResults :: Lens' ListLabelingJobsForWorkteam (Maybe Natural)
listLabelingJobsForWorkteam_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLabelingJobsForWorkteam' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListLabelingJobsForWorkteam
s@ListLabelingJobsForWorkteam' {} Maybe Natural
a -> ListLabelingJobsForWorkteam
s {$sel:maxResults:ListLabelingJobsForWorkteam' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListLabelingJobsForWorkteam)
listLabelingJobsForWorkteam_nextToken :: Lens.Lens' ListLabelingJobsForWorkteam (Prelude.Maybe Prelude.Text)
listLabelingJobsForWorkteam_nextToken :: Lens' ListLabelingJobsForWorkteam (Maybe Text)
listLabelingJobsForWorkteam_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLabelingJobsForWorkteam' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListLabelingJobsForWorkteam
s@ListLabelingJobsForWorkteam' {} Maybe Text
a -> ListLabelingJobsForWorkteam
s {$sel:nextToken:ListLabelingJobsForWorkteam' :: Maybe Text
nextToken = Maybe Text
a} :: ListLabelingJobsForWorkteam)
listLabelingJobsForWorkteam_sortBy :: Lens.Lens' ListLabelingJobsForWorkteam (Prelude.Maybe ListLabelingJobsForWorkteamSortByOptions)
listLabelingJobsForWorkteam_sortBy :: Lens'
ListLabelingJobsForWorkteam
(Maybe ListLabelingJobsForWorkteamSortByOptions)
listLabelingJobsForWorkteam_sortBy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLabelingJobsForWorkteam' {Maybe ListLabelingJobsForWorkteamSortByOptions
sortBy :: Maybe ListLabelingJobsForWorkteamSortByOptions
$sel:sortBy:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam
-> Maybe ListLabelingJobsForWorkteamSortByOptions
sortBy} -> Maybe ListLabelingJobsForWorkteamSortByOptions
sortBy) (\s :: ListLabelingJobsForWorkteam
s@ListLabelingJobsForWorkteam' {} Maybe ListLabelingJobsForWorkteamSortByOptions
a -> ListLabelingJobsForWorkteam
s {$sel:sortBy:ListLabelingJobsForWorkteam' :: Maybe ListLabelingJobsForWorkteamSortByOptions
sortBy = Maybe ListLabelingJobsForWorkteamSortByOptions
a} :: ListLabelingJobsForWorkteam)
listLabelingJobsForWorkteam_sortOrder :: Lens.Lens' ListLabelingJobsForWorkteam (Prelude.Maybe SortOrder)
listLabelingJobsForWorkteam_sortOrder :: Lens' ListLabelingJobsForWorkteam (Maybe SortOrder)
listLabelingJobsForWorkteam_sortOrder = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLabelingJobsForWorkteam' {Maybe SortOrder
sortOrder :: Maybe SortOrder
$sel:sortOrder:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe SortOrder
sortOrder} -> Maybe SortOrder
sortOrder) (\s :: ListLabelingJobsForWorkteam
s@ListLabelingJobsForWorkteam' {} Maybe SortOrder
a -> ListLabelingJobsForWorkteam
s {$sel:sortOrder:ListLabelingJobsForWorkteam' :: Maybe SortOrder
sortOrder = Maybe SortOrder
a} :: ListLabelingJobsForWorkteam)
listLabelingJobsForWorkteam_workteamArn :: Lens.Lens' ListLabelingJobsForWorkteam Prelude.Text
listLabelingJobsForWorkteam_workteamArn :: Lens' ListLabelingJobsForWorkteam Text
listLabelingJobsForWorkteam_workteamArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLabelingJobsForWorkteam' {Text
workteamArn :: Text
$sel:workteamArn:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Text
workteamArn} -> Text
workteamArn) (\s :: ListLabelingJobsForWorkteam
s@ListLabelingJobsForWorkteam' {} Text
a -> ListLabelingJobsForWorkteam
s {$sel:workteamArn:ListLabelingJobsForWorkteam' :: Text
workteamArn = Text
a} :: ListLabelingJobsForWorkteam)
instance Core.AWSPager ListLabelingJobsForWorkteam where
page :: ListLabelingJobsForWorkteam
-> AWSResponse ListLabelingJobsForWorkteam
-> Maybe ListLabelingJobsForWorkteam
page ListLabelingJobsForWorkteam
rq AWSResponse ListLabelingJobsForWorkteam
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListLabelingJobsForWorkteam
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListLabelingJobsForWorkteamResponse (Maybe Text)
listLabelingJobsForWorkteamResponse_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 ListLabelingJobsForWorkteam
rs
forall s a. s -> Getting a s a -> a
Lens.^. Lens'
ListLabelingJobsForWorkteamResponse [LabelingJobForWorkteamSummary]
listLabelingJobsForWorkteamResponse_labelingJobSummaryList
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListLabelingJobsForWorkteam
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListLabelingJobsForWorkteam (Maybe Text)
listLabelingJobsForWorkteam_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListLabelingJobsForWorkteam
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListLabelingJobsForWorkteamResponse (Maybe Text)
listLabelingJobsForWorkteamResponse_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 ListLabelingJobsForWorkteam where
type
AWSResponse ListLabelingJobsForWorkteam =
ListLabelingJobsForWorkteamResponse
request :: (Service -> Service)
-> ListLabelingJobsForWorkteam
-> Request ListLabelingJobsForWorkteam
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 ListLabelingJobsForWorkteam
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListLabelingJobsForWorkteam)))
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
-> [LabelingJobForWorkteamSummary]
-> ListLabelingJobsForWorkteamResponse
ListLabelingJobsForWorkteamResponse'
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
"LabelingJobSummaryList"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
)
instance Prelude.Hashable ListLabelingJobsForWorkteam where
hashWithSalt :: Int -> ListLabelingJobsForWorkteam -> Int
hashWithSalt Int
_salt ListLabelingJobsForWorkteam' {Maybe Natural
Maybe Text
Maybe POSIX
Maybe ListLabelingJobsForWorkteamSortByOptions
Maybe SortOrder
Text
workteamArn :: Text
sortOrder :: Maybe SortOrder
sortBy :: Maybe ListLabelingJobsForWorkteamSortByOptions
nextToken :: Maybe Text
maxResults :: Maybe Natural
jobReferenceCodeContains :: Maybe Text
creationTimeBefore :: Maybe POSIX
creationTimeAfter :: Maybe POSIX
$sel:workteamArn:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Text
$sel:sortOrder:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe SortOrder
$sel:sortBy:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam
-> Maybe ListLabelingJobsForWorkteamSortByOptions
$sel:nextToken:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe Text
$sel:maxResults:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe Natural
$sel:jobReferenceCodeContains:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe Text
$sel:creationTimeBefore:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe POSIX
$sel:creationTimeAfter:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe POSIX
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
creationTimeAfter
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
creationTimeBefore
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
jobReferenceCodeContains
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 ListLabelingJobsForWorkteamSortByOptions
sortBy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SortOrder
sortOrder
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
workteamArn
instance Prelude.NFData ListLabelingJobsForWorkteam where
rnf :: ListLabelingJobsForWorkteam -> ()
rnf ListLabelingJobsForWorkteam' {Maybe Natural
Maybe Text
Maybe POSIX
Maybe ListLabelingJobsForWorkteamSortByOptions
Maybe SortOrder
Text
workteamArn :: Text
sortOrder :: Maybe SortOrder
sortBy :: Maybe ListLabelingJobsForWorkteamSortByOptions
nextToken :: Maybe Text
maxResults :: Maybe Natural
jobReferenceCodeContains :: Maybe Text
creationTimeBefore :: Maybe POSIX
creationTimeAfter :: Maybe POSIX
$sel:workteamArn:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Text
$sel:sortOrder:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe SortOrder
$sel:sortBy:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam
-> Maybe ListLabelingJobsForWorkteamSortByOptions
$sel:nextToken:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe Text
$sel:maxResults:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe Natural
$sel:jobReferenceCodeContains:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe Text
$sel:creationTimeBefore:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe POSIX
$sel:creationTimeAfter:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe POSIX
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
creationTimeAfter
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
creationTimeBefore
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
jobReferenceCodeContains
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 ListLabelingJobsForWorkteamSortByOptions
sortBy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SortOrder
sortOrder
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
workteamArn
instance Data.ToHeaders ListLabelingJobsForWorkteam where
toHeaders :: ListLabelingJobsForWorkteam -> 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.ListLabelingJobsForWorkteam" ::
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 ListLabelingJobsForWorkteam where
toJSON :: ListLabelingJobsForWorkteam -> Value
toJSON ListLabelingJobsForWorkteam' {Maybe Natural
Maybe Text
Maybe POSIX
Maybe ListLabelingJobsForWorkteamSortByOptions
Maybe SortOrder
Text
workteamArn :: Text
sortOrder :: Maybe SortOrder
sortBy :: Maybe ListLabelingJobsForWorkteamSortByOptions
nextToken :: Maybe Text
maxResults :: Maybe Natural
jobReferenceCodeContains :: Maybe Text
creationTimeBefore :: Maybe POSIX
creationTimeAfter :: Maybe POSIX
$sel:workteamArn:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Text
$sel:sortOrder:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe SortOrder
$sel:sortBy:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam
-> Maybe ListLabelingJobsForWorkteamSortByOptions
$sel:nextToken:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe Text
$sel:maxResults:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe Natural
$sel:jobReferenceCodeContains:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe Text
$sel:creationTimeBefore:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe POSIX
$sel:creationTimeAfter:ListLabelingJobsForWorkteam' :: ListLabelingJobsForWorkteam -> Maybe POSIX
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"CreationTimeAfter" 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 POSIX
creationTimeAfter,
(Key
"CreationTimeBefore" 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 POSIX
creationTimeBefore,
(Key
"JobReferenceCodeContains" 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
jobReferenceCodeContains,
(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
"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 ListLabelingJobsForWorkteamSortByOptions
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,
forall a. a -> Maybe a
Prelude.Just (Key
"WorkteamArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
workteamArn)
]
)
instance Data.ToPath ListLabelingJobsForWorkteam where
toPath :: ListLabelingJobsForWorkteam -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListLabelingJobsForWorkteam where
toQuery :: ListLabelingJobsForWorkteam -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListLabelingJobsForWorkteamResponse = ListLabelingJobsForWorkteamResponse'
{
ListLabelingJobsForWorkteamResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListLabelingJobsForWorkteamResponse -> Int
httpStatus :: Prelude.Int,
ListLabelingJobsForWorkteamResponse
-> [LabelingJobForWorkteamSummary]
labelingJobSummaryList :: [LabelingJobForWorkteamSummary]
}
deriving (ListLabelingJobsForWorkteamResponse
-> ListLabelingJobsForWorkteamResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListLabelingJobsForWorkteamResponse
-> ListLabelingJobsForWorkteamResponse -> Bool
$c/= :: ListLabelingJobsForWorkteamResponse
-> ListLabelingJobsForWorkteamResponse -> Bool
== :: ListLabelingJobsForWorkteamResponse
-> ListLabelingJobsForWorkteamResponse -> Bool
$c== :: ListLabelingJobsForWorkteamResponse
-> ListLabelingJobsForWorkteamResponse -> Bool
Prelude.Eq, ReadPrec [ListLabelingJobsForWorkteamResponse]
ReadPrec ListLabelingJobsForWorkteamResponse
Int -> ReadS ListLabelingJobsForWorkteamResponse
ReadS [ListLabelingJobsForWorkteamResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListLabelingJobsForWorkteamResponse]
$creadListPrec :: ReadPrec [ListLabelingJobsForWorkteamResponse]
readPrec :: ReadPrec ListLabelingJobsForWorkteamResponse
$creadPrec :: ReadPrec ListLabelingJobsForWorkteamResponse
readList :: ReadS [ListLabelingJobsForWorkteamResponse]
$creadList :: ReadS [ListLabelingJobsForWorkteamResponse]
readsPrec :: Int -> ReadS ListLabelingJobsForWorkteamResponse
$creadsPrec :: Int -> ReadS ListLabelingJobsForWorkteamResponse
Prelude.Read, Int -> ListLabelingJobsForWorkteamResponse -> ShowS
[ListLabelingJobsForWorkteamResponse] -> ShowS
ListLabelingJobsForWorkteamResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListLabelingJobsForWorkteamResponse] -> ShowS
$cshowList :: [ListLabelingJobsForWorkteamResponse] -> ShowS
show :: ListLabelingJobsForWorkteamResponse -> String
$cshow :: ListLabelingJobsForWorkteamResponse -> String
showsPrec :: Int -> ListLabelingJobsForWorkteamResponse -> ShowS
$cshowsPrec :: Int -> ListLabelingJobsForWorkteamResponse -> ShowS
Prelude.Show, forall x.
Rep ListLabelingJobsForWorkteamResponse x
-> ListLabelingJobsForWorkteamResponse
forall x.
ListLabelingJobsForWorkteamResponse
-> Rep ListLabelingJobsForWorkteamResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListLabelingJobsForWorkteamResponse x
-> ListLabelingJobsForWorkteamResponse
$cfrom :: forall x.
ListLabelingJobsForWorkteamResponse
-> Rep ListLabelingJobsForWorkteamResponse x
Prelude.Generic)
newListLabelingJobsForWorkteamResponse ::
Prelude.Int ->
ListLabelingJobsForWorkteamResponse
newListLabelingJobsForWorkteamResponse :: Int -> ListLabelingJobsForWorkteamResponse
newListLabelingJobsForWorkteamResponse Int
pHttpStatus_ =
ListLabelingJobsForWorkteamResponse'
{ $sel:nextToken:ListLabelingJobsForWorkteamResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListLabelingJobsForWorkteamResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:labelingJobSummaryList:ListLabelingJobsForWorkteamResponse' :: [LabelingJobForWorkteamSummary]
labelingJobSummaryList =
forall a. Monoid a => a
Prelude.mempty
}
listLabelingJobsForWorkteamResponse_nextToken :: Lens.Lens' ListLabelingJobsForWorkteamResponse (Prelude.Maybe Prelude.Text)
listLabelingJobsForWorkteamResponse_nextToken :: Lens' ListLabelingJobsForWorkteamResponse (Maybe Text)
listLabelingJobsForWorkteamResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLabelingJobsForWorkteamResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListLabelingJobsForWorkteamResponse' :: ListLabelingJobsForWorkteamResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListLabelingJobsForWorkteamResponse
s@ListLabelingJobsForWorkteamResponse' {} Maybe Text
a -> ListLabelingJobsForWorkteamResponse
s {$sel:nextToken:ListLabelingJobsForWorkteamResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListLabelingJobsForWorkteamResponse)
listLabelingJobsForWorkteamResponse_httpStatus :: Lens.Lens' ListLabelingJobsForWorkteamResponse Prelude.Int
listLabelingJobsForWorkteamResponse_httpStatus :: Lens' ListLabelingJobsForWorkteamResponse Int
listLabelingJobsForWorkteamResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLabelingJobsForWorkteamResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListLabelingJobsForWorkteamResponse' :: ListLabelingJobsForWorkteamResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListLabelingJobsForWorkteamResponse
s@ListLabelingJobsForWorkteamResponse' {} Int
a -> ListLabelingJobsForWorkteamResponse
s {$sel:httpStatus:ListLabelingJobsForWorkteamResponse' :: Int
httpStatus = Int
a} :: ListLabelingJobsForWorkteamResponse)
listLabelingJobsForWorkteamResponse_labelingJobSummaryList :: Lens.Lens' ListLabelingJobsForWorkteamResponse [LabelingJobForWorkteamSummary]
listLabelingJobsForWorkteamResponse_labelingJobSummaryList :: Lens'
ListLabelingJobsForWorkteamResponse [LabelingJobForWorkteamSummary]
listLabelingJobsForWorkteamResponse_labelingJobSummaryList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLabelingJobsForWorkteamResponse' {[LabelingJobForWorkteamSummary]
labelingJobSummaryList :: [LabelingJobForWorkteamSummary]
$sel:labelingJobSummaryList:ListLabelingJobsForWorkteamResponse' :: ListLabelingJobsForWorkteamResponse
-> [LabelingJobForWorkteamSummary]
labelingJobSummaryList} -> [LabelingJobForWorkteamSummary]
labelingJobSummaryList) (\s :: ListLabelingJobsForWorkteamResponse
s@ListLabelingJobsForWorkteamResponse' {} [LabelingJobForWorkteamSummary]
a -> ListLabelingJobsForWorkteamResponse
s {$sel:labelingJobSummaryList:ListLabelingJobsForWorkteamResponse' :: [LabelingJobForWorkteamSummary]
labelingJobSummaryList = [LabelingJobForWorkteamSummary]
a} :: ListLabelingJobsForWorkteamResponse) 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
ListLabelingJobsForWorkteamResponse
where
rnf :: ListLabelingJobsForWorkteamResponse -> ()
rnf ListLabelingJobsForWorkteamResponse' {Int
[LabelingJobForWorkteamSummary]
Maybe Text
labelingJobSummaryList :: [LabelingJobForWorkteamSummary]
httpStatus :: Int
nextToken :: Maybe Text
$sel:labelingJobSummaryList:ListLabelingJobsForWorkteamResponse' :: ListLabelingJobsForWorkteamResponse
-> [LabelingJobForWorkteamSummary]
$sel:httpStatus:ListLabelingJobsForWorkteamResponse' :: ListLabelingJobsForWorkteamResponse -> Int
$sel:nextToken:ListLabelingJobsForWorkteamResponse' :: ListLabelingJobsForWorkteamResponse -> 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 [LabelingJobForWorkteamSummary]
labelingJobSummaryList