{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.SageMaker.ListLabelingJobsForWorkteam
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Gets a list of labeling jobs assigned to a specified work team.
--
-- This operation returns paginated results.
module Amazonka.SageMaker.ListLabelingJobsForWorkteam
  ( -- * Creating a Request
    ListLabelingJobsForWorkteam (..),
    newListLabelingJobsForWorkteam,

    -- * Request Lenses
    listLabelingJobsForWorkteam_creationTimeAfter,
    listLabelingJobsForWorkteam_creationTimeBefore,
    listLabelingJobsForWorkteam_jobReferenceCodeContains,
    listLabelingJobsForWorkteam_maxResults,
    listLabelingJobsForWorkteam_nextToken,
    listLabelingJobsForWorkteam_sortBy,
    listLabelingJobsForWorkteam_sortOrder,
    listLabelingJobsForWorkteam_workteamArn,

    -- * Destructuring the Response
    ListLabelingJobsForWorkteamResponse (..),
    newListLabelingJobsForWorkteamResponse,

    -- * Response Lenses
    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

-- | /See:/ 'newListLabelingJobsForWorkteam' smart constructor.
data ListLabelingJobsForWorkteam = ListLabelingJobsForWorkteam'
  { -- | A filter that returns only labeling jobs created after the specified
    -- time (timestamp).
    ListLabelingJobsForWorkteam -> Maybe POSIX
creationTimeAfter :: Prelude.Maybe Data.POSIX,
    -- | A filter that returns only labeling jobs created before the specified
    -- time (timestamp).
    ListLabelingJobsForWorkteam -> Maybe POSIX
creationTimeBefore :: Prelude.Maybe Data.POSIX,
    -- | A filter the limits jobs to only the ones whose job reference code
    -- contains the specified string.
    ListLabelingJobsForWorkteam -> Maybe Text
jobReferenceCodeContains :: Prelude.Maybe Prelude.Text,
    -- | The maximum number of labeling jobs to return in each page of the
    -- response.
    ListLabelingJobsForWorkteam -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
    -- | If the result of the previous @ListLabelingJobsForWorkteam@ request was
    -- truncated, the response includes a @NextToken@. To retrieve the next set
    -- of labeling jobs, use the token in the next request.
    ListLabelingJobsForWorkteam -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    -- | The field to sort results by. The default is @CreationTime@.
    ListLabelingJobsForWorkteam
-> Maybe ListLabelingJobsForWorkteamSortByOptions
sortBy :: Prelude.Maybe ListLabelingJobsForWorkteamSortByOptions,
    -- | The sort order for results. The default is @Ascending@.
    ListLabelingJobsForWorkteam -> Maybe SortOrder
sortOrder :: Prelude.Maybe SortOrder,
    -- | The Amazon Resource Name (ARN) of the work team for which you want to
    -- see labeling jobs for.
    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)

-- |
-- Create a value of 'ListLabelingJobsForWorkteam' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'creationTimeAfter', 'listLabelingJobsForWorkteam_creationTimeAfter' - A filter that returns only labeling jobs created after the specified
-- time (timestamp).
--
-- 'creationTimeBefore', 'listLabelingJobsForWorkteam_creationTimeBefore' - A filter that returns only labeling jobs created before the specified
-- time (timestamp).
--
-- 'jobReferenceCodeContains', 'listLabelingJobsForWorkteam_jobReferenceCodeContains' - A filter the limits jobs to only the ones whose job reference code
-- contains the specified string.
--
-- 'maxResults', 'listLabelingJobsForWorkteam_maxResults' - The maximum number of labeling jobs to return in each page of the
-- response.
--
-- 'nextToken', 'listLabelingJobsForWorkteam_nextToken' - If the result of the previous @ListLabelingJobsForWorkteam@ request was
-- truncated, the response includes a @NextToken@. To retrieve the next set
-- of labeling jobs, use the token in the next request.
--
-- 'sortBy', 'listLabelingJobsForWorkteam_sortBy' - The field to sort results by. The default is @CreationTime@.
--
-- 'sortOrder', 'listLabelingJobsForWorkteam_sortOrder' - The sort order for results. The default is @Ascending@.
--
-- 'workteamArn', 'listLabelingJobsForWorkteam_workteamArn' - The Amazon Resource Name (ARN) of the work team for which you want to
-- see labeling jobs for.
newListLabelingJobsForWorkteam ::
  -- | 'workteamArn'
  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_
    }

-- | A filter that returns only labeling jobs created after the specified
-- time (timestamp).
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

-- | A filter that returns only labeling jobs created before the specified
-- time (timestamp).
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

-- | A filter the limits jobs to only the ones whose job reference code
-- contains the specified string.
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)

-- | The maximum number of labeling jobs to return in each page of the
-- response.
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)

-- | If the result of the previous @ListLabelingJobsForWorkteam@ request was
-- truncated, the response includes a @NextToken@. To retrieve the next set
-- of labeling jobs, use the token in the next request.
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)

-- | The field to sort results by. The default is @CreationTime@.
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)

-- | The sort order for results. The default is @Ascending@.
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)

-- | The Amazon Resource Name (ARN) of the work team for which you want to
-- see labeling jobs for.
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

-- | /See:/ 'newListLabelingJobsForWorkteamResponse' smart constructor.
data ListLabelingJobsForWorkteamResponse = ListLabelingJobsForWorkteamResponse'
  { -- | If the response is truncated, SageMaker returns this token. To retrieve
    -- the next set of labeling jobs, use it in the subsequent request.
    ListLabelingJobsForWorkteamResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    ListLabelingJobsForWorkteamResponse -> Int
httpStatus :: Prelude.Int,
    -- | An array of @LabelingJobSummary@ objects, each describing a labeling
    -- job.
    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)

-- |
-- Create a value of 'ListLabelingJobsForWorkteamResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'nextToken', 'listLabelingJobsForWorkteamResponse_nextToken' - If the response is truncated, SageMaker returns this token. To retrieve
-- the next set of labeling jobs, use it in the subsequent request.
--
-- 'httpStatus', 'listLabelingJobsForWorkteamResponse_httpStatus' - The response's http status code.
--
-- 'labelingJobSummaryList', 'listLabelingJobsForWorkteamResponse_labelingJobSummaryList' - An array of @LabelingJobSummary@ objects, each describing a labeling
-- job.
newListLabelingJobsForWorkteamResponse ::
  -- | 'httpStatus'
  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
    }

-- | If the response is truncated, SageMaker returns this token. To retrieve
-- the next set of labeling jobs, use it in the subsequent request.
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)

-- | The response's http status code.
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)

-- | An array of @LabelingJobSummary@ objects, each describing a labeling
-- job.
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