{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

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

-- |
-- Module      : Amazonka.EMRContainers.Types.JobRun
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.EMRContainers.Types.JobRun where

import qualified Amazonka.Core as Core
import Amazonka.EMRContainers.Types.ConfigurationOverrides
import Amazonka.EMRContainers.Types.FailureReason
import Amazonka.EMRContainers.Types.JobDriver
import Amazonka.EMRContainers.Types.JobRunState
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude

-- | This entity describes a job run. A job run is a unit of work, such as a
-- Spark jar, PySpark script, or SparkSQL query, that you submit to Amazon
-- EMR on EKS.
--
-- /See:/ 'newJobRun' smart constructor.
data JobRun = JobRun'
  { -- | The reasons why the job run has failed.
    JobRun -> Maybe FailureReason
failureReason :: Prelude.Maybe FailureReason,
    -- | The state of the job run.
    JobRun -> Maybe JobRunState
state :: Prelude.Maybe JobRunState,
    -- | The client token used to start a job run.
    JobRun -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
    -- | The ARN of job run.
    JobRun -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
    -- | The date and time when the job run was created.
    JobRun -> Maybe POSIX
createdAt :: Prelude.Maybe Core.POSIX,
    -- | Additional details of the job run state.
    JobRun -> Maybe Text
stateDetails :: Prelude.Maybe Prelude.Text,
    -- | The user who created the job run.
    JobRun -> Maybe Text
createdBy :: Prelude.Maybe Prelude.Text,
    -- | The execution role ARN of the job run.
    JobRun -> Maybe Text
executionRoleArn :: Prelude.Maybe Prelude.Text,
    -- | Parameters of job driver for the job run.
    JobRun -> Maybe JobDriver
jobDriver :: Prelude.Maybe JobDriver,
    -- | The configuration settings that are used to override default
    -- configuration.
    JobRun -> Maybe ConfigurationOverrides
configurationOverrides :: Prelude.Maybe ConfigurationOverrides,
    -- | The date and time when the job run has finished.
    JobRun -> Maybe POSIX
finishedAt :: Prelude.Maybe Core.POSIX,
    -- | The name of the job run.
    JobRun -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
    -- | The release version of Amazon EMR.
    JobRun -> Maybe Text
releaseLabel :: Prelude.Maybe Prelude.Text,
    -- | The ID of the job run.
    JobRun -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
    -- | The ID of the job run\'s virtual cluster.
    JobRun -> Maybe Text
virtualClusterId :: Prelude.Maybe Prelude.Text,
    -- | The assigned tags of the job run.
    JobRun -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text)
  }
  deriving (JobRun -> JobRun -> Bool
(JobRun -> JobRun -> Bool)
-> (JobRun -> JobRun -> Bool) -> Eq JobRun
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: JobRun -> JobRun -> Bool
$c/= :: JobRun -> JobRun -> Bool
== :: JobRun -> JobRun -> Bool
$c== :: JobRun -> JobRun -> Bool
Prelude.Eq, Int -> JobRun -> ShowS
[JobRun] -> ShowS
JobRun -> String
(Int -> JobRun -> ShowS)
-> (JobRun -> String) -> ([JobRun] -> ShowS) -> Show JobRun
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JobRun] -> ShowS
$cshowList :: [JobRun] -> ShowS
show :: JobRun -> String
$cshow :: JobRun -> String
showsPrec :: Int -> JobRun -> ShowS
$cshowsPrec :: Int -> JobRun -> ShowS
Prelude.Show, (forall x. JobRun -> Rep JobRun x)
-> (forall x. Rep JobRun x -> JobRun) -> Generic JobRun
forall x. Rep JobRun x -> JobRun
forall x. JobRun -> Rep JobRun x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JobRun x -> JobRun
$cfrom :: forall x. JobRun -> Rep JobRun x
Prelude.Generic)

-- |
-- Create a value of 'JobRun' 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:
--
-- 'failureReason', 'jobRun_failureReason' - The reasons why the job run has failed.
--
-- 'state', 'jobRun_state' - The state of the job run.
--
-- 'clientToken', 'jobRun_clientToken' - The client token used to start a job run.
--
-- 'arn', 'jobRun_arn' - The ARN of job run.
--
-- 'createdAt', 'jobRun_createdAt' - The date and time when the job run was created.
--
-- 'stateDetails', 'jobRun_stateDetails' - Additional details of the job run state.
--
-- 'createdBy', 'jobRun_createdBy' - The user who created the job run.
--
-- 'executionRoleArn', 'jobRun_executionRoleArn' - The execution role ARN of the job run.
--
-- 'jobDriver', 'jobRun_jobDriver' - Parameters of job driver for the job run.
--
-- 'configurationOverrides', 'jobRun_configurationOverrides' - The configuration settings that are used to override default
-- configuration.
--
-- 'finishedAt', 'jobRun_finishedAt' - The date and time when the job run has finished.
--
-- 'name', 'jobRun_name' - The name of the job run.
--
-- 'releaseLabel', 'jobRun_releaseLabel' - The release version of Amazon EMR.
--
-- 'id', 'jobRun_id' - The ID of the job run.
--
-- 'virtualClusterId', 'jobRun_virtualClusterId' - The ID of the job run\'s virtual cluster.
--
-- 'tags', 'jobRun_tags' - The assigned tags of the job run.
newJobRun ::
  JobRun
newJobRun :: JobRun
newJobRun =
  JobRun' :: Maybe FailureReason
-> Maybe JobRunState
-> Maybe Text
-> Maybe Text
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe JobDriver
-> Maybe ConfigurationOverrides
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe (HashMap Text Text)
-> JobRun
JobRun'
    { $sel:failureReason:JobRun' :: Maybe FailureReason
failureReason = Maybe FailureReason
forall a. Maybe a
Prelude.Nothing,
      $sel:state:JobRun' :: Maybe JobRunState
state = Maybe JobRunState
forall a. Maybe a
Prelude.Nothing,
      $sel:clientToken:JobRun' :: Maybe Text
clientToken = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:arn:JobRun' :: Maybe Text
arn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:createdAt:JobRun' :: Maybe POSIX
createdAt = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
      $sel:stateDetails:JobRun' :: Maybe Text
stateDetails = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:createdBy:JobRun' :: Maybe Text
createdBy = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:executionRoleArn:JobRun' :: Maybe Text
executionRoleArn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:jobDriver:JobRun' :: Maybe JobDriver
jobDriver = Maybe JobDriver
forall a. Maybe a
Prelude.Nothing,
      $sel:configurationOverrides:JobRun' :: Maybe ConfigurationOverrides
configurationOverrides = Maybe ConfigurationOverrides
forall a. Maybe a
Prelude.Nothing,
      $sel:finishedAt:JobRun' :: Maybe POSIX
finishedAt = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
      $sel:name:JobRun' :: Maybe Text
name = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:releaseLabel:JobRun' :: Maybe Text
releaseLabel = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:id:JobRun' :: Maybe Text
id = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:virtualClusterId:JobRun' :: Maybe Text
virtualClusterId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:tags:JobRun' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
forall a. Maybe a
Prelude.Nothing
    }

-- | The reasons why the job run has failed.
jobRun_failureReason :: Lens.Lens' JobRun (Prelude.Maybe FailureReason)
jobRun_failureReason :: (Maybe FailureReason -> f (Maybe FailureReason))
-> JobRun -> f JobRun
jobRun_failureReason = (JobRun -> Maybe FailureReason)
-> (JobRun -> Maybe FailureReason -> JobRun)
-> Lens JobRun JobRun (Maybe FailureReason) (Maybe FailureReason)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe FailureReason
failureReason :: Maybe FailureReason
$sel:failureReason:JobRun' :: JobRun -> Maybe FailureReason
failureReason} -> Maybe FailureReason
failureReason) (\s :: JobRun
s@JobRun' {} Maybe FailureReason
a -> JobRun
s {$sel:failureReason:JobRun' :: Maybe FailureReason
failureReason = Maybe FailureReason
a} :: JobRun)

-- | The state of the job run.
jobRun_state :: Lens.Lens' JobRun (Prelude.Maybe JobRunState)
jobRun_state :: (Maybe JobRunState -> f (Maybe JobRunState)) -> JobRun -> f JobRun
jobRun_state = (JobRun -> Maybe JobRunState)
-> (JobRun -> Maybe JobRunState -> JobRun)
-> Lens JobRun JobRun (Maybe JobRunState) (Maybe JobRunState)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe JobRunState
state :: Maybe JobRunState
$sel:state:JobRun' :: JobRun -> Maybe JobRunState
state} -> Maybe JobRunState
state) (\s :: JobRun
s@JobRun' {} Maybe JobRunState
a -> JobRun
s {$sel:state:JobRun' :: Maybe JobRunState
state = Maybe JobRunState
a} :: JobRun)

-- | The client token used to start a job run.
jobRun_clientToken :: Lens.Lens' JobRun (Prelude.Maybe Prelude.Text)
jobRun_clientToken :: (Maybe Text -> f (Maybe Text)) -> JobRun -> f JobRun
jobRun_clientToken = (JobRun -> Maybe Text)
-> (JobRun -> Maybe Text -> JobRun)
-> Lens JobRun JobRun (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:JobRun' :: JobRun -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: JobRun
s@JobRun' {} Maybe Text
a -> JobRun
s {$sel:clientToken:JobRun' :: Maybe Text
clientToken = Maybe Text
a} :: JobRun)

-- | The ARN of job run.
jobRun_arn :: Lens.Lens' JobRun (Prelude.Maybe Prelude.Text)
jobRun_arn :: (Maybe Text -> f (Maybe Text)) -> JobRun -> f JobRun
jobRun_arn = (JobRun -> Maybe Text)
-> (JobRun -> Maybe Text -> JobRun)
-> Lens JobRun JobRun (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe Text
arn :: Maybe Text
$sel:arn:JobRun' :: JobRun -> Maybe Text
arn} -> Maybe Text
arn) (\s :: JobRun
s@JobRun' {} Maybe Text
a -> JobRun
s {$sel:arn:JobRun' :: Maybe Text
arn = Maybe Text
a} :: JobRun)

-- | The date and time when the job run was created.
jobRun_createdAt :: Lens.Lens' JobRun (Prelude.Maybe Prelude.UTCTime)
jobRun_createdAt :: (Maybe UTCTime -> f (Maybe UTCTime)) -> JobRun -> f JobRun
jobRun_createdAt = (JobRun -> Maybe POSIX)
-> (JobRun -> Maybe POSIX -> JobRun)
-> Lens JobRun JobRun (Maybe POSIX) (Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe POSIX
createdAt :: Maybe POSIX
$sel:createdAt:JobRun' :: JobRun -> Maybe POSIX
createdAt} -> Maybe POSIX
createdAt) (\s :: JobRun
s@JobRun' {} Maybe POSIX
a -> JobRun
s {$sel:createdAt:JobRun' :: Maybe POSIX
createdAt = Maybe POSIX
a} :: JobRun) ((Maybe POSIX -> f (Maybe POSIX)) -> JobRun -> f JobRun)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
    -> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> JobRun
-> f JobRun
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
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 AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time

-- | Additional details of the job run state.
jobRun_stateDetails :: Lens.Lens' JobRun (Prelude.Maybe Prelude.Text)
jobRun_stateDetails :: (Maybe Text -> f (Maybe Text)) -> JobRun -> f JobRun
jobRun_stateDetails = (JobRun -> Maybe Text)
-> (JobRun -> Maybe Text -> JobRun)
-> Lens JobRun JobRun (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe Text
stateDetails :: Maybe Text
$sel:stateDetails:JobRun' :: JobRun -> Maybe Text
stateDetails} -> Maybe Text
stateDetails) (\s :: JobRun
s@JobRun' {} Maybe Text
a -> JobRun
s {$sel:stateDetails:JobRun' :: Maybe Text
stateDetails = Maybe Text
a} :: JobRun)

-- | The user who created the job run.
jobRun_createdBy :: Lens.Lens' JobRun (Prelude.Maybe Prelude.Text)
jobRun_createdBy :: (Maybe Text -> f (Maybe Text)) -> JobRun -> f JobRun
jobRun_createdBy = (JobRun -> Maybe Text)
-> (JobRun -> Maybe Text -> JobRun)
-> Lens JobRun JobRun (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe Text
createdBy :: Maybe Text
$sel:createdBy:JobRun' :: JobRun -> Maybe Text
createdBy} -> Maybe Text
createdBy) (\s :: JobRun
s@JobRun' {} Maybe Text
a -> JobRun
s {$sel:createdBy:JobRun' :: Maybe Text
createdBy = Maybe Text
a} :: JobRun)

-- | The execution role ARN of the job run.
jobRun_executionRoleArn :: Lens.Lens' JobRun (Prelude.Maybe Prelude.Text)
jobRun_executionRoleArn :: (Maybe Text -> f (Maybe Text)) -> JobRun -> f JobRun
jobRun_executionRoleArn = (JobRun -> Maybe Text)
-> (JobRun -> Maybe Text -> JobRun)
-> Lens JobRun JobRun (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe Text
executionRoleArn :: Maybe Text
$sel:executionRoleArn:JobRun' :: JobRun -> Maybe Text
executionRoleArn} -> Maybe Text
executionRoleArn) (\s :: JobRun
s@JobRun' {} Maybe Text
a -> JobRun
s {$sel:executionRoleArn:JobRun' :: Maybe Text
executionRoleArn = Maybe Text
a} :: JobRun)

-- | Parameters of job driver for the job run.
jobRun_jobDriver :: Lens.Lens' JobRun (Prelude.Maybe JobDriver)
jobRun_jobDriver :: (Maybe JobDriver -> f (Maybe JobDriver)) -> JobRun -> f JobRun
jobRun_jobDriver = (JobRun -> Maybe JobDriver)
-> (JobRun -> Maybe JobDriver -> JobRun)
-> Lens JobRun JobRun (Maybe JobDriver) (Maybe JobDriver)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe JobDriver
jobDriver :: Maybe JobDriver
$sel:jobDriver:JobRun' :: JobRun -> Maybe JobDriver
jobDriver} -> Maybe JobDriver
jobDriver) (\s :: JobRun
s@JobRun' {} Maybe JobDriver
a -> JobRun
s {$sel:jobDriver:JobRun' :: Maybe JobDriver
jobDriver = Maybe JobDriver
a} :: JobRun)

-- | The configuration settings that are used to override default
-- configuration.
jobRun_configurationOverrides :: Lens.Lens' JobRun (Prelude.Maybe ConfigurationOverrides)
jobRun_configurationOverrides :: (Maybe ConfigurationOverrides -> f (Maybe ConfigurationOverrides))
-> JobRun -> f JobRun
jobRun_configurationOverrides = (JobRun -> Maybe ConfigurationOverrides)
-> (JobRun -> Maybe ConfigurationOverrides -> JobRun)
-> Lens
     JobRun
     JobRun
     (Maybe ConfigurationOverrides)
     (Maybe ConfigurationOverrides)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe ConfigurationOverrides
configurationOverrides :: Maybe ConfigurationOverrides
$sel:configurationOverrides:JobRun' :: JobRun -> Maybe ConfigurationOverrides
configurationOverrides} -> Maybe ConfigurationOverrides
configurationOverrides) (\s :: JobRun
s@JobRun' {} Maybe ConfigurationOverrides
a -> JobRun
s {$sel:configurationOverrides:JobRun' :: Maybe ConfigurationOverrides
configurationOverrides = Maybe ConfigurationOverrides
a} :: JobRun)

-- | The date and time when the job run has finished.
jobRun_finishedAt :: Lens.Lens' JobRun (Prelude.Maybe Prelude.UTCTime)
jobRun_finishedAt :: (Maybe UTCTime -> f (Maybe UTCTime)) -> JobRun -> f JobRun
jobRun_finishedAt = (JobRun -> Maybe POSIX)
-> (JobRun -> Maybe POSIX -> JobRun)
-> Lens JobRun JobRun (Maybe POSIX) (Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe POSIX
finishedAt :: Maybe POSIX
$sel:finishedAt:JobRun' :: JobRun -> Maybe POSIX
finishedAt} -> Maybe POSIX
finishedAt) (\s :: JobRun
s@JobRun' {} Maybe POSIX
a -> JobRun
s {$sel:finishedAt:JobRun' :: Maybe POSIX
finishedAt = Maybe POSIX
a} :: JobRun) ((Maybe POSIX -> f (Maybe POSIX)) -> JobRun -> f JobRun)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
    -> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> JobRun
-> f JobRun
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
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 AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time

-- | The name of the job run.
jobRun_name :: Lens.Lens' JobRun (Prelude.Maybe Prelude.Text)
jobRun_name :: (Maybe Text -> f (Maybe Text)) -> JobRun -> f JobRun
jobRun_name = (JobRun -> Maybe Text)
-> (JobRun -> Maybe Text -> JobRun)
-> Lens JobRun JobRun (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe Text
name :: Maybe Text
$sel:name:JobRun' :: JobRun -> Maybe Text
name} -> Maybe Text
name) (\s :: JobRun
s@JobRun' {} Maybe Text
a -> JobRun
s {$sel:name:JobRun' :: Maybe Text
name = Maybe Text
a} :: JobRun)

-- | The release version of Amazon EMR.
jobRun_releaseLabel :: Lens.Lens' JobRun (Prelude.Maybe Prelude.Text)
jobRun_releaseLabel :: (Maybe Text -> f (Maybe Text)) -> JobRun -> f JobRun
jobRun_releaseLabel = (JobRun -> Maybe Text)
-> (JobRun -> Maybe Text -> JobRun)
-> Lens JobRun JobRun (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe Text
releaseLabel :: Maybe Text
$sel:releaseLabel:JobRun' :: JobRun -> Maybe Text
releaseLabel} -> Maybe Text
releaseLabel) (\s :: JobRun
s@JobRun' {} Maybe Text
a -> JobRun
s {$sel:releaseLabel:JobRun' :: Maybe Text
releaseLabel = Maybe Text
a} :: JobRun)

-- | The ID of the job run.
jobRun_id :: Lens.Lens' JobRun (Prelude.Maybe Prelude.Text)
jobRun_id :: (Maybe Text -> f (Maybe Text)) -> JobRun -> f JobRun
jobRun_id = (JobRun -> Maybe Text)
-> (JobRun -> Maybe Text -> JobRun)
-> Lens JobRun JobRun (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe Text
id :: Maybe Text
$sel:id:JobRun' :: JobRun -> Maybe Text
id} -> Maybe Text
id) (\s :: JobRun
s@JobRun' {} Maybe Text
a -> JobRun
s {$sel:id:JobRun' :: Maybe Text
id = Maybe Text
a} :: JobRun)

-- | The ID of the job run\'s virtual cluster.
jobRun_virtualClusterId :: Lens.Lens' JobRun (Prelude.Maybe Prelude.Text)
jobRun_virtualClusterId :: (Maybe Text -> f (Maybe Text)) -> JobRun -> f JobRun
jobRun_virtualClusterId = (JobRun -> Maybe Text)
-> (JobRun -> Maybe Text -> JobRun)
-> Lens JobRun JobRun (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe Text
virtualClusterId :: Maybe Text
$sel:virtualClusterId:JobRun' :: JobRun -> Maybe Text
virtualClusterId} -> Maybe Text
virtualClusterId) (\s :: JobRun
s@JobRun' {} Maybe Text
a -> JobRun
s {$sel:virtualClusterId:JobRun' :: Maybe Text
virtualClusterId = Maybe Text
a} :: JobRun)

-- | The assigned tags of the job run.
jobRun_tags :: Lens.Lens' JobRun (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
jobRun_tags :: (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> JobRun -> f JobRun
jobRun_tags = (JobRun -> Maybe (HashMap Text Text))
-> (JobRun -> Maybe (HashMap Text Text) -> JobRun)
-> Lens
     JobRun
     JobRun
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobRun' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:JobRun' :: JobRun -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: JobRun
s@JobRun' {} Maybe (HashMap Text Text)
a -> JobRun
s {$sel:tags:JobRun' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: JobRun) ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
 -> JobRun -> f JobRun)
-> ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
    -> Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> JobRun
-> f JobRun
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
-> Iso
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
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 AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

instance Core.FromJSON JobRun where
  parseJSON :: Value -> Parser JobRun
parseJSON =
    String -> (Object -> Parser JobRun) -> Value -> Parser JobRun
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Core.withObject
      String
"JobRun"
      ( \Object
x ->
          Maybe FailureReason
-> Maybe JobRunState
-> Maybe Text
-> Maybe Text
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe JobDriver
-> Maybe ConfigurationOverrides
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe (HashMap Text Text)
-> JobRun
JobRun'
            (Maybe FailureReason
 -> Maybe JobRunState
 -> Maybe Text
 -> Maybe Text
 -> Maybe POSIX
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe JobDriver
 -> Maybe ConfigurationOverrides
 -> Maybe POSIX
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe (HashMap Text Text)
 -> JobRun)
-> Parser (Maybe FailureReason)
-> Parser
     (Maybe JobRunState
      -> Maybe Text
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe JobDriver
      -> Maybe ConfigurationOverrides
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> JobRun)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Parser (Maybe FailureReason)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"failureReason")
            Parser
  (Maybe JobRunState
   -> Maybe Text
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe JobDriver
   -> Maybe ConfigurationOverrides
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> JobRun)
-> Parser (Maybe JobRunState)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe JobDriver
      -> Maybe ConfigurationOverrides
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> JobRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe JobRunState)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"state")
            Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe JobDriver
   -> Maybe ConfigurationOverrides
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> JobRun)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe JobDriver
      -> Maybe ConfigurationOverrides
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> JobRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"clientToken")
            Parser
  (Maybe Text
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe JobDriver
   -> Maybe ConfigurationOverrides
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> JobRun)
-> Parser (Maybe Text)
-> Parser
     (Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe JobDriver
      -> Maybe ConfigurationOverrides
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> JobRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"arn")
            Parser
  (Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe JobDriver
   -> Maybe ConfigurationOverrides
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> JobRun)
-> Parser (Maybe POSIX)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe JobDriver
      -> Maybe ConfigurationOverrides
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> JobRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"createdAt")
            Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe JobDriver
   -> Maybe ConfigurationOverrides
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> JobRun)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe JobDriver
      -> Maybe ConfigurationOverrides
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> JobRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"stateDetails")
            Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe JobDriver
   -> Maybe ConfigurationOverrides
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> JobRun)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe JobDriver
      -> Maybe ConfigurationOverrides
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> JobRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"createdBy")
            Parser
  (Maybe Text
   -> Maybe JobDriver
   -> Maybe ConfigurationOverrides
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> JobRun)
-> Parser (Maybe Text)
-> Parser
     (Maybe JobDriver
      -> Maybe ConfigurationOverrides
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> JobRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"executionRoleArn")
            Parser
  (Maybe JobDriver
   -> Maybe ConfigurationOverrides
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> JobRun)
-> Parser (Maybe JobDriver)
-> Parser
     (Maybe ConfigurationOverrides
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> JobRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe JobDriver)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"jobDriver")
            Parser
  (Maybe ConfigurationOverrides
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> JobRun)
-> Parser (Maybe ConfigurationOverrides)
-> Parser
     (Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> JobRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe ConfigurationOverrides)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"configurationOverrides")
            Parser
  (Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> JobRun)
-> Parser (Maybe POSIX)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> JobRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"finishedAt")
            Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> JobRun)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text -> Maybe Text -> Maybe (HashMap Text Text) -> JobRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"name")
            Parser
  (Maybe Text
   -> Maybe Text -> Maybe Text -> Maybe (HashMap Text Text) -> JobRun)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text -> Maybe Text -> Maybe (HashMap Text Text) -> JobRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"releaseLabel")
            Parser
  (Maybe Text -> Maybe Text -> Maybe (HashMap Text Text) -> JobRun)
-> Parser (Maybe Text)
-> Parser (Maybe Text -> Maybe (HashMap Text Text) -> JobRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"id")
            Parser (Maybe Text -> Maybe (HashMap Text Text) -> JobRun)
-> Parser (Maybe Text)
-> Parser (Maybe (HashMap Text Text) -> JobRun)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"virtualClusterId")
            Parser (Maybe (HashMap Text Text) -> JobRun)
-> Parser (Maybe (HashMap Text Text)) -> Parser JobRun
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe (Maybe (HashMap Text Text)))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"tags" Parser (Maybe (Maybe (HashMap Text Text)))
-> Maybe (HashMap Text Text) -> Parser (Maybe (HashMap Text Text))
forall a. Parser (Maybe a) -> a -> Parser a
Core..!= Maybe (HashMap Text Text)
forall a. Monoid a => a
Prelude.mempty)
      )

instance Prelude.Hashable JobRun

instance Prelude.NFData JobRun