{-# 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 #-}
module Amazonka.MediaConvert.Types.Job where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MediaConvert.Types.AccelerationSettings
import Amazonka.MediaConvert.Types.AccelerationStatus
import Amazonka.MediaConvert.Types.BillingTagsSource
import Amazonka.MediaConvert.Types.HopDestination
import Amazonka.MediaConvert.Types.JobMessages
import Amazonka.MediaConvert.Types.JobPhase
import Amazonka.MediaConvert.Types.JobSettings
import Amazonka.MediaConvert.Types.JobStatus
import Amazonka.MediaConvert.Types.OutputGroupDetail
import Amazonka.MediaConvert.Types.QueueTransition
import Amazonka.MediaConvert.Types.SimulateReservedQueue
import Amazonka.MediaConvert.Types.StatusUpdateInterval
import Amazonka.MediaConvert.Types.Timing
import qualified Amazonka.Prelude as Prelude
data Job = Job'
{
Job -> Maybe AccelerationSettings
accelerationSettings :: Prelude.Maybe AccelerationSettings,
Job -> Maybe AccelerationStatus
accelerationStatus :: Prelude.Maybe AccelerationStatus,
Job -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
Job -> Maybe BillingTagsSource
billingTagsSource :: Prelude.Maybe BillingTagsSource,
Job -> Maybe POSIX
createdAt :: Prelude.Maybe Data.POSIX,
Job -> Maybe JobPhase
currentPhase :: Prelude.Maybe JobPhase,
Job -> Maybe Int
errorCode :: Prelude.Maybe Prelude.Int,
Job -> Maybe Text
errorMessage :: Prelude.Maybe Prelude.Text,
Job -> Maybe [HopDestination]
hopDestinations :: Prelude.Maybe [HopDestination],
Job -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
Job -> Maybe Int
jobPercentComplete :: Prelude.Maybe Prelude.Int,
Job -> Maybe Text
jobTemplate :: Prelude.Maybe Prelude.Text,
Job -> Maybe JobMessages
messages :: Prelude.Maybe JobMessages,
Job -> Maybe [OutputGroupDetail]
outputGroupDetails :: Prelude.Maybe [OutputGroupDetail],
Job -> Maybe Int
priority :: Prelude.Maybe Prelude.Int,
Job -> Maybe Text
queue :: Prelude.Maybe Prelude.Text,
Job -> Maybe [QueueTransition]
queueTransitions :: Prelude.Maybe [QueueTransition],
Job -> Maybe Int
retryCount :: Prelude.Maybe Prelude.Int,
Job -> Maybe SimulateReservedQueue
simulateReservedQueue :: Prelude.Maybe SimulateReservedQueue,
Job -> Maybe JobStatus
status :: Prelude.Maybe JobStatus,
Job -> Maybe StatusUpdateInterval
statusUpdateInterval :: Prelude.Maybe StatusUpdateInterval,
Job -> Maybe Timing
timing :: Prelude.Maybe Timing,
Job -> Maybe (HashMap Text Text)
userMetadata :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
Job -> Text
role' :: Prelude.Text,
Job -> JobSettings
settings :: JobSettings
}
deriving (Job -> Job -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Job -> Job -> Bool
$c/= :: Job -> Job -> Bool
== :: Job -> Job -> Bool
$c== :: Job -> Job -> Bool
Prelude.Eq, ReadPrec [Job]
ReadPrec Job
Int -> ReadS Job
ReadS [Job]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [Job]
$creadListPrec :: ReadPrec [Job]
readPrec :: ReadPrec Job
$creadPrec :: ReadPrec Job
readList :: ReadS [Job]
$creadList :: ReadS [Job]
readsPrec :: Int -> ReadS Job
$creadsPrec :: Int -> ReadS Job
Prelude.Read, Int -> Job -> ShowS
[Job] -> ShowS
Job -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Job] -> ShowS
$cshowList :: [Job] -> ShowS
show :: Job -> String
$cshow :: Job -> String
showsPrec :: Int -> Job -> ShowS
$cshowsPrec :: Int -> Job -> ShowS
Prelude.Show, forall x. Rep Job x -> Job
forall x. Job -> Rep Job x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Job x -> Job
$cfrom :: forall x. Job -> Rep Job x
Prelude.Generic)
newJob ::
Prelude.Text ->
JobSettings ->
Job
newJob :: Text -> JobSettings -> Job
newJob Text
pRole_ JobSettings
pSettings_ =
Job'
{ $sel:accelerationSettings:Job' :: Maybe AccelerationSettings
accelerationSettings = forall a. Maybe a
Prelude.Nothing,
$sel:accelerationStatus:Job' :: Maybe AccelerationStatus
accelerationStatus = forall a. Maybe a
Prelude.Nothing,
$sel:arn:Job' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
$sel:billingTagsSource:Job' :: Maybe BillingTagsSource
billingTagsSource = forall a. Maybe a
Prelude.Nothing,
$sel:createdAt:Job' :: Maybe POSIX
createdAt = forall a. Maybe a
Prelude.Nothing,
$sel:currentPhase:Job' :: Maybe JobPhase
currentPhase = forall a. Maybe a
Prelude.Nothing,
$sel:errorCode:Job' :: Maybe Int
errorCode = forall a. Maybe a
Prelude.Nothing,
$sel:errorMessage:Job' :: Maybe Text
errorMessage = forall a. Maybe a
Prelude.Nothing,
$sel:hopDestinations:Job' :: Maybe [HopDestination]
hopDestinations = forall a. Maybe a
Prelude.Nothing,
$sel:id:Job' :: Maybe Text
id = forall a. Maybe a
Prelude.Nothing,
$sel:jobPercentComplete:Job' :: Maybe Int
jobPercentComplete = forall a. Maybe a
Prelude.Nothing,
$sel:jobTemplate:Job' :: Maybe Text
jobTemplate = forall a. Maybe a
Prelude.Nothing,
$sel:messages:Job' :: Maybe JobMessages
messages = forall a. Maybe a
Prelude.Nothing,
$sel:outputGroupDetails:Job' :: Maybe [OutputGroupDetail]
outputGroupDetails = forall a. Maybe a
Prelude.Nothing,
$sel:priority:Job' :: Maybe Int
priority = forall a. Maybe a
Prelude.Nothing,
$sel:queue:Job' :: Maybe Text
queue = forall a. Maybe a
Prelude.Nothing,
$sel:queueTransitions:Job' :: Maybe [QueueTransition]
queueTransitions = forall a. Maybe a
Prelude.Nothing,
$sel:retryCount:Job' :: Maybe Int
retryCount = forall a. Maybe a
Prelude.Nothing,
$sel:simulateReservedQueue:Job' :: Maybe SimulateReservedQueue
simulateReservedQueue = forall a. Maybe a
Prelude.Nothing,
$sel:status:Job' :: Maybe JobStatus
status = forall a. Maybe a
Prelude.Nothing,
$sel:statusUpdateInterval:Job' :: Maybe StatusUpdateInterval
statusUpdateInterval = forall a. Maybe a
Prelude.Nothing,
$sel:timing:Job' :: Maybe Timing
timing = forall a. Maybe a
Prelude.Nothing,
$sel:userMetadata:Job' :: Maybe (HashMap Text Text)
userMetadata = forall a. Maybe a
Prelude.Nothing,
$sel:role':Job' :: Text
role' = Text
pRole_,
$sel:settings:Job' :: JobSettings
settings = JobSettings
pSettings_
}
job_accelerationSettings :: Lens.Lens' Job (Prelude.Maybe AccelerationSettings)
job_accelerationSettings :: Lens' Job (Maybe AccelerationSettings)
job_accelerationSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe AccelerationSettings
accelerationSettings :: Maybe AccelerationSettings
$sel:accelerationSettings:Job' :: Job -> Maybe AccelerationSettings
accelerationSettings} -> Maybe AccelerationSettings
accelerationSettings) (\s :: Job
s@Job' {} Maybe AccelerationSettings
a -> Job
s {$sel:accelerationSettings:Job' :: Maybe AccelerationSettings
accelerationSettings = Maybe AccelerationSettings
a} :: Job)
job_accelerationStatus :: Lens.Lens' Job (Prelude.Maybe AccelerationStatus)
job_accelerationStatus :: Lens' Job (Maybe AccelerationStatus)
job_accelerationStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe AccelerationStatus
accelerationStatus :: Maybe AccelerationStatus
$sel:accelerationStatus:Job' :: Job -> Maybe AccelerationStatus
accelerationStatus} -> Maybe AccelerationStatus
accelerationStatus) (\s :: Job
s@Job' {} Maybe AccelerationStatus
a -> Job
s {$sel:accelerationStatus:Job' :: Maybe AccelerationStatus
accelerationStatus = Maybe AccelerationStatus
a} :: Job)
job_arn :: Lens.Lens' Job (Prelude.Maybe Prelude.Text)
job_arn :: Lens' Job (Maybe Text)
job_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe Text
arn :: Maybe Text
$sel:arn:Job' :: Job -> Maybe Text
arn} -> Maybe Text
arn) (\s :: Job
s@Job' {} Maybe Text
a -> Job
s {$sel:arn:Job' :: Maybe Text
arn = Maybe Text
a} :: Job)
job_billingTagsSource :: Lens.Lens' Job (Prelude.Maybe BillingTagsSource)
job_billingTagsSource :: Lens' Job (Maybe BillingTagsSource)
job_billingTagsSource = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe BillingTagsSource
billingTagsSource :: Maybe BillingTagsSource
$sel:billingTagsSource:Job' :: Job -> Maybe BillingTagsSource
billingTagsSource} -> Maybe BillingTagsSource
billingTagsSource) (\s :: Job
s@Job' {} Maybe BillingTagsSource
a -> Job
s {$sel:billingTagsSource:Job' :: Maybe BillingTagsSource
billingTagsSource = Maybe BillingTagsSource
a} :: Job)
job_createdAt :: Lens.Lens' Job (Prelude.Maybe Prelude.UTCTime)
job_createdAt :: Lens' Job (Maybe UTCTime)
job_createdAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe POSIX
createdAt :: Maybe POSIX
$sel:createdAt:Job' :: Job -> Maybe POSIX
createdAt} -> Maybe POSIX
createdAt) (\s :: Job
s@Job' {} Maybe POSIX
a -> Job
s {$sel:createdAt:Job' :: Maybe POSIX
createdAt = Maybe POSIX
a} :: Job) 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
job_currentPhase :: Lens.Lens' Job (Prelude.Maybe JobPhase)
job_currentPhase :: Lens' Job (Maybe JobPhase)
job_currentPhase = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe JobPhase
currentPhase :: Maybe JobPhase
$sel:currentPhase:Job' :: Job -> Maybe JobPhase
currentPhase} -> Maybe JobPhase
currentPhase) (\s :: Job
s@Job' {} Maybe JobPhase
a -> Job
s {$sel:currentPhase:Job' :: Maybe JobPhase
currentPhase = Maybe JobPhase
a} :: Job)
job_errorCode :: Lens.Lens' Job (Prelude.Maybe Prelude.Int)
job_errorCode :: Lens' Job (Maybe Int)
job_errorCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe Int
errorCode :: Maybe Int
$sel:errorCode:Job' :: Job -> Maybe Int
errorCode} -> Maybe Int
errorCode) (\s :: Job
s@Job' {} Maybe Int
a -> Job
s {$sel:errorCode:Job' :: Maybe Int
errorCode = Maybe Int
a} :: Job)
job_errorMessage :: Lens.Lens' Job (Prelude.Maybe Prelude.Text)
job_errorMessage :: Lens' Job (Maybe Text)
job_errorMessage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe Text
errorMessage :: Maybe Text
$sel:errorMessage:Job' :: Job -> Maybe Text
errorMessage} -> Maybe Text
errorMessage) (\s :: Job
s@Job' {} Maybe Text
a -> Job
s {$sel:errorMessage:Job' :: Maybe Text
errorMessage = Maybe Text
a} :: Job)
job_hopDestinations :: Lens.Lens' Job (Prelude.Maybe [HopDestination])
job_hopDestinations :: Lens' Job (Maybe [HopDestination])
job_hopDestinations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe [HopDestination]
hopDestinations :: Maybe [HopDestination]
$sel:hopDestinations:Job' :: Job -> Maybe [HopDestination]
hopDestinations} -> Maybe [HopDestination]
hopDestinations) (\s :: Job
s@Job' {} Maybe [HopDestination]
a -> Job
s {$sel:hopDestinations:Job' :: Maybe [HopDestination]
hopDestinations = Maybe [HopDestination]
a} :: Job) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
job_id :: Lens.Lens' Job (Prelude.Maybe Prelude.Text)
job_id :: Lens' Job (Maybe Text)
job_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe Text
id :: Maybe Text
$sel:id:Job' :: Job -> Maybe Text
id} -> Maybe Text
id) (\s :: Job
s@Job' {} Maybe Text
a -> Job
s {$sel:id:Job' :: Maybe Text
id = Maybe Text
a} :: Job)
job_jobPercentComplete :: Lens.Lens' Job (Prelude.Maybe Prelude.Int)
job_jobPercentComplete :: Lens' Job (Maybe Int)
job_jobPercentComplete = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe Int
jobPercentComplete :: Maybe Int
$sel:jobPercentComplete:Job' :: Job -> Maybe Int
jobPercentComplete} -> Maybe Int
jobPercentComplete) (\s :: Job
s@Job' {} Maybe Int
a -> Job
s {$sel:jobPercentComplete:Job' :: Maybe Int
jobPercentComplete = Maybe Int
a} :: Job)
job_jobTemplate :: Lens.Lens' Job (Prelude.Maybe Prelude.Text)
job_jobTemplate :: Lens' Job (Maybe Text)
job_jobTemplate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe Text
jobTemplate :: Maybe Text
$sel:jobTemplate:Job' :: Job -> Maybe Text
jobTemplate} -> Maybe Text
jobTemplate) (\s :: Job
s@Job' {} Maybe Text
a -> Job
s {$sel:jobTemplate:Job' :: Maybe Text
jobTemplate = Maybe Text
a} :: Job)
job_messages :: Lens.Lens' Job (Prelude.Maybe JobMessages)
job_messages :: Lens' Job (Maybe JobMessages)
job_messages = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe JobMessages
messages :: Maybe JobMessages
$sel:messages:Job' :: Job -> Maybe JobMessages
messages} -> Maybe JobMessages
messages) (\s :: Job
s@Job' {} Maybe JobMessages
a -> Job
s {$sel:messages:Job' :: Maybe JobMessages
messages = Maybe JobMessages
a} :: Job)
job_outputGroupDetails :: Lens.Lens' Job (Prelude.Maybe [OutputGroupDetail])
job_outputGroupDetails :: Lens' Job (Maybe [OutputGroupDetail])
job_outputGroupDetails = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe [OutputGroupDetail]
outputGroupDetails :: Maybe [OutputGroupDetail]
$sel:outputGroupDetails:Job' :: Job -> Maybe [OutputGroupDetail]
outputGroupDetails} -> Maybe [OutputGroupDetail]
outputGroupDetails) (\s :: Job
s@Job' {} Maybe [OutputGroupDetail]
a -> Job
s {$sel:outputGroupDetails:Job' :: Maybe [OutputGroupDetail]
outputGroupDetails = Maybe [OutputGroupDetail]
a} :: Job) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
job_priority :: Lens.Lens' Job (Prelude.Maybe Prelude.Int)
job_priority :: Lens' Job (Maybe Int)
job_priority = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe Int
priority :: Maybe Int
$sel:priority:Job' :: Job -> Maybe Int
priority} -> Maybe Int
priority) (\s :: Job
s@Job' {} Maybe Int
a -> Job
s {$sel:priority:Job' :: Maybe Int
priority = Maybe Int
a} :: Job)
job_queue :: Lens.Lens' Job (Prelude.Maybe Prelude.Text)
job_queue :: Lens' Job (Maybe Text)
job_queue = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe Text
queue :: Maybe Text
$sel:queue:Job' :: Job -> Maybe Text
queue} -> Maybe Text
queue) (\s :: Job
s@Job' {} Maybe Text
a -> Job
s {$sel:queue:Job' :: Maybe Text
queue = Maybe Text
a} :: Job)
job_queueTransitions :: Lens.Lens' Job (Prelude.Maybe [QueueTransition])
job_queueTransitions :: Lens' Job (Maybe [QueueTransition])
job_queueTransitions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe [QueueTransition]
queueTransitions :: Maybe [QueueTransition]
$sel:queueTransitions:Job' :: Job -> Maybe [QueueTransition]
queueTransitions} -> Maybe [QueueTransition]
queueTransitions) (\s :: Job
s@Job' {} Maybe [QueueTransition]
a -> Job
s {$sel:queueTransitions:Job' :: Maybe [QueueTransition]
queueTransitions = Maybe [QueueTransition]
a} :: Job) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
job_retryCount :: Lens.Lens' Job (Prelude.Maybe Prelude.Int)
job_retryCount :: Lens' Job (Maybe Int)
job_retryCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe Int
retryCount :: Maybe Int
$sel:retryCount:Job' :: Job -> Maybe Int
retryCount} -> Maybe Int
retryCount) (\s :: Job
s@Job' {} Maybe Int
a -> Job
s {$sel:retryCount:Job' :: Maybe Int
retryCount = Maybe Int
a} :: Job)
job_simulateReservedQueue :: Lens.Lens' Job (Prelude.Maybe SimulateReservedQueue)
job_simulateReservedQueue :: Lens' Job (Maybe SimulateReservedQueue)
job_simulateReservedQueue = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe SimulateReservedQueue
simulateReservedQueue :: Maybe SimulateReservedQueue
$sel:simulateReservedQueue:Job' :: Job -> Maybe SimulateReservedQueue
simulateReservedQueue} -> Maybe SimulateReservedQueue
simulateReservedQueue) (\s :: Job
s@Job' {} Maybe SimulateReservedQueue
a -> Job
s {$sel:simulateReservedQueue:Job' :: Maybe SimulateReservedQueue
simulateReservedQueue = Maybe SimulateReservedQueue
a} :: Job)
job_status :: Lens.Lens' Job (Prelude.Maybe JobStatus)
job_status :: Lens' Job (Maybe JobStatus)
job_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe JobStatus
status :: Maybe JobStatus
$sel:status:Job' :: Job -> Maybe JobStatus
status} -> Maybe JobStatus
status) (\s :: Job
s@Job' {} Maybe JobStatus
a -> Job
s {$sel:status:Job' :: Maybe JobStatus
status = Maybe JobStatus
a} :: Job)
job_statusUpdateInterval :: Lens.Lens' Job (Prelude.Maybe StatusUpdateInterval)
job_statusUpdateInterval :: Lens' Job (Maybe StatusUpdateInterval)
job_statusUpdateInterval = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe StatusUpdateInterval
statusUpdateInterval :: Maybe StatusUpdateInterval
$sel:statusUpdateInterval:Job' :: Job -> Maybe StatusUpdateInterval
statusUpdateInterval} -> Maybe StatusUpdateInterval
statusUpdateInterval) (\s :: Job
s@Job' {} Maybe StatusUpdateInterval
a -> Job
s {$sel:statusUpdateInterval:Job' :: Maybe StatusUpdateInterval
statusUpdateInterval = Maybe StatusUpdateInterval
a} :: Job)
job_timing :: Lens.Lens' Job (Prelude.Maybe Timing)
job_timing :: Lens' Job (Maybe Timing)
job_timing = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe Timing
timing :: Maybe Timing
$sel:timing:Job' :: Job -> Maybe Timing
timing} -> Maybe Timing
timing) (\s :: Job
s@Job' {} Maybe Timing
a -> Job
s {$sel:timing:Job' :: Maybe Timing
timing = Maybe Timing
a} :: Job)
job_userMetadata :: Lens.Lens' Job (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
job_userMetadata :: Lens' Job (Maybe (HashMap Text Text))
job_userMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Maybe (HashMap Text Text)
userMetadata :: Maybe (HashMap Text Text)
$sel:userMetadata:Job' :: Job -> Maybe (HashMap Text Text)
userMetadata} -> Maybe (HashMap Text Text)
userMetadata) (\s :: Job
s@Job' {} Maybe (HashMap Text Text)
a -> Job
s {$sel:userMetadata:Job' :: Maybe (HashMap Text Text)
userMetadata = Maybe (HashMap Text Text)
a} :: Job) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
job_role :: Lens.Lens' Job Prelude.Text
job_role :: Lens' Job Text
job_role = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {Text
role' :: Text
$sel:role':Job' :: Job -> Text
role'} -> Text
role') (\s :: Job
s@Job' {} Text
a -> Job
s {$sel:role':Job' :: Text
role' = Text
a} :: Job)
job_settings :: Lens.Lens' Job JobSettings
job_settings :: Lens' Job JobSettings
job_settings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Job' {JobSettings
settings :: JobSettings
$sel:settings:Job' :: Job -> JobSettings
settings} -> JobSettings
settings) (\s :: Job
s@Job' {} JobSettings
a -> Job
s {$sel:settings:Job' :: JobSettings
settings = JobSettings
a} :: Job)
instance Data.FromJSON Job where
parseJSON :: Value -> Parser Job
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"Job"
( \Object
x ->
Maybe AccelerationSettings
-> Maybe AccelerationStatus
-> Maybe Text
-> Maybe BillingTagsSource
-> Maybe POSIX
-> Maybe JobPhase
-> Maybe Int
-> Maybe Text
-> Maybe [HopDestination]
-> Maybe Text
-> Maybe Int
-> Maybe Text
-> Maybe JobMessages
-> Maybe [OutputGroupDetail]
-> Maybe Int
-> Maybe Text
-> Maybe [QueueTransition]
-> Maybe Int
-> Maybe SimulateReservedQueue
-> Maybe JobStatus
-> Maybe StatusUpdateInterval
-> Maybe Timing
-> Maybe (HashMap Text Text)
-> Text
-> JobSettings
-> Job
Job'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"accelerationSettings")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"accelerationStatus")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"arn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"billingTagsSource")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"createdAt")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"currentPhase")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"errorCode")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"errorMessage")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"hopDestinations"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"id")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"jobPercentComplete")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"jobTemplate")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"messages")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"outputGroupDetails"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"priority")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"queue")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"queueTransitions"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"retryCount")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"simulateReservedQueue")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"status")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"statusUpdateInterval")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"timing")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"userMetadata" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"role")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"settings")
)
instance Prelude.Hashable Job where
hashWithSalt :: Int -> Job -> Int
hashWithSalt Int
_salt Job' {Maybe Int
Maybe [HopDestination]
Maybe [QueueTransition]
Maybe [OutputGroupDetail]
Maybe Text
Maybe (HashMap Text Text)
Maybe POSIX
Maybe AccelerationSettings
Maybe AccelerationStatus
Maybe BillingTagsSource
Maybe JobMessages
Maybe JobPhase
Maybe JobStatus
Maybe SimulateReservedQueue
Maybe StatusUpdateInterval
Maybe Timing
Text
JobSettings
settings :: JobSettings
role' :: Text
userMetadata :: Maybe (HashMap Text Text)
timing :: Maybe Timing
statusUpdateInterval :: Maybe StatusUpdateInterval
status :: Maybe JobStatus
simulateReservedQueue :: Maybe SimulateReservedQueue
retryCount :: Maybe Int
queueTransitions :: Maybe [QueueTransition]
queue :: Maybe Text
priority :: Maybe Int
outputGroupDetails :: Maybe [OutputGroupDetail]
messages :: Maybe JobMessages
jobTemplate :: Maybe Text
jobPercentComplete :: Maybe Int
id :: Maybe Text
hopDestinations :: Maybe [HopDestination]
errorMessage :: Maybe Text
errorCode :: Maybe Int
currentPhase :: Maybe JobPhase
createdAt :: Maybe POSIX
billingTagsSource :: Maybe BillingTagsSource
arn :: Maybe Text
accelerationStatus :: Maybe AccelerationStatus
accelerationSettings :: Maybe AccelerationSettings
$sel:settings:Job' :: Job -> JobSettings
$sel:role':Job' :: Job -> Text
$sel:userMetadata:Job' :: Job -> Maybe (HashMap Text Text)
$sel:timing:Job' :: Job -> Maybe Timing
$sel:statusUpdateInterval:Job' :: Job -> Maybe StatusUpdateInterval
$sel:status:Job' :: Job -> Maybe JobStatus
$sel:simulateReservedQueue:Job' :: Job -> Maybe SimulateReservedQueue
$sel:retryCount:Job' :: Job -> Maybe Int
$sel:queueTransitions:Job' :: Job -> Maybe [QueueTransition]
$sel:queue:Job' :: Job -> Maybe Text
$sel:priority:Job' :: Job -> Maybe Int
$sel:outputGroupDetails:Job' :: Job -> Maybe [OutputGroupDetail]
$sel:messages:Job' :: Job -> Maybe JobMessages
$sel:jobTemplate:Job' :: Job -> Maybe Text
$sel:jobPercentComplete:Job' :: Job -> Maybe Int
$sel:id:Job' :: Job -> Maybe Text
$sel:hopDestinations:Job' :: Job -> Maybe [HopDestination]
$sel:errorMessage:Job' :: Job -> Maybe Text
$sel:errorCode:Job' :: Job -> Maybe Int
$sel:currentPhase:Job' :: Job -> Maybe JobPhase
$sel:createdAt:Job' :: Job -> Maybe POSIX
$sel:billingTagsSource:Job' :: Job -> Maybe BillingTagsSource
$sel:arn:Job' :: Job -> Maybe Text
$sel:accelerationStatus:Job' :: Job -> Maybe AccelerationStatus
$sel:accelerationSettings:Job' :: Job -> Maybe AccelerationSettings
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AccelerationSettings
accelerationSettings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AccelerationStatus
accelerationStatus
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
arn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BillingTagsSource
billingTagsSource
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
createdAt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe JobPhase
currentPhase
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
errorCode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
errorMessage
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [HopDestination]
hopDestinations
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
id
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
jobPercentComplete
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
jobTemplate
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe JobMessages
messages
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [OutputGroupDetail]
outputGroupDetails
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
priority
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
queue
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [QueueTransition]
queueTransitions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
retryCount
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SimulateReservedQueue
simulateReservedQueue
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe JobStatus
status
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe StatusUpdateInterval
statusUpdateInterval
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Timing
timing
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
userMetadata
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
role'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` JobSettings
settings
instance Prelude.NFData Job where
rnf :: Job -> ()
rnf Job' {Maybe Int
Maybe [HopDestination]
Maybe [QueueTransition]
Maybe [OutputGroupDetail]
Maybe Text
Maybe (HashMap Text Text)
Maybe POSIX
Maybe AccelerationSettings
Maybe AccelerationStatus
Maybe BillingTagsSource
Maybe JobMessages
Maybe JobPhase
Maybe JobStatus
Maybe SimulateReservedQueue
Maybe StatusUpdateInterval
Maybe Timing
Text
JobSettings
settings :: JobSettings
role' :: Text
userMetadata :: Maybe (HashMap Text Text)
timing :: Maybe Timing
statusUpdateInterval :: Maybe StatusUpdateInterval
status :: Maybe JobStatus
simulateReservedQueue :: Maybe SimulateReservedQueue
retryCount :: Maybe Int
queueTransitions :: Maybe [QueueTransition]
queue :: Maybe Text
priority :: Maybe Int
outputGroupDetails :: Maybe [OutputGroupDetail]
messages :: Maybe JobMessages
jobTemplate :: Maybe Text
jobPercentComplete :: Maybe Int
id :: Maybe Text
hopDestinations :: Maybe [HopDestination]
errorMessage :: Maybe Text
errorCode :: Maybe Int
currentPhase :: Maybe JobPhase
createdAt :: Maybe POSIX
billingTagsSource :: Maybe BillingTagsSource
arn :: Maybe Text
accelerationStatus :: Maybe AccelerationStatus
accelerationSettings :: Maybe AccelerationSettings
$sel:settings:Job' :: Job -> JobSettings
$sel:role':Job' :: Job -> Text
$sel:userMetadata:Job' :: Job -> Maybe (HashMap Text Text)
$sel:timing:Job' :: Job -> Maybe Timing
$sel:statusUpdateInterval:Job' :: Job -> Maybe StatusUpdateInterval
$sel:status:Job' :: Job -> Maybe JobStatus
$sel:simulateReservedQueue:Job' :: Job -> Maybe SimulateReservedQueue
$sel:retryCount:Job' :: Job -> Maybe Int
$sel:queueTransitions:Job' :: Job -> Maybe [QueueTransition]
$sel:queue:Job' :: Job -> Maybe Text
$sel:priority:Job' :: Job -> Maybe Int
$sel:outputGroupDetails:Job' :: Job -> Maybe [OutputGroupDetail]
$sel:messages:Job' :: Job -> Maybe JobMessages
$sel:jobTemplate:Job' :: Job -> Maybe Text
$sel:jobPercentComplete:Job' :: Job -> Maybe Int
$sel:id:Job' :: Job -> Maybe Text
$sel:hopDestinations:Job' :: Job -> Maybe [HopDestination]
$sel:errorMessage:Job' :: Job -> Maybe Text
$sel:errorCode:Job' :: Job -> Maybe Int
$sel:currentPhase:Job' :: Job -> Maybe JobPhase
$sel:createdAt:Job' :: Job -> Maybe POSIX
$sel:billingTagsSource:Job' :: Job -> Maybe BillingTagsSource
$sel:arn:Job' :: Job -> Maybe Text
$sel:accelerationStatus:Job' :: Job -> Maybe AccelerationStatus
$sel:accelerationSettings:Job' :: Job -> Maybe AccelerationSettings
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AccelerationSettings
accelerationSettings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe AccelerationStatus
accelerationStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe BillingTagsSource
billingTagsSource
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
createdAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe JobPhase
currentPhase
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
errorCode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
errorMessage
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [HopDestination]
hopDestinations
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
id
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
jobPercentComplete
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
jobTemplate
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe JobMessages
messages
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [OutputGroupDetail]
outputGroupDetails
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
priority
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
queue
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [QueueTransition]
queueTransitions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
retryCount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe SimulateReservedQueue
simulateReservedQueue
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe JobStatus
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe StatusUpdateInterval
statusUpdateInterval
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Timing
timing
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
userMetadata
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
role'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf JobSettings
settings