fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

chore(jobsystem): switch to UTCTime instead of LocalTime

Browse Source
This commit is contained in:
Sarah Vaupel 2023-12-06 01:22:32 +00:00
parent d6662e3781
commit 96622d3a2b
2 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
models/jobsystem.model
View File

@ -5,24 +5,24 @@ JobMeta
occurrence JobOccurrence -- When should the job be executed?
-- (Possibly recurring)
relativeInTime TimeRelative Maybe -- TODO find better name
planExecutionAhead NominalDiffTime -- TODO find better name
planExecutionAhead NominalDiffTime -- TODO find better name
executionTimeEpsilon NominalDiffTime Maybe
priority JobPriority
ressources JobRessources
status JobStatus
lastStartSystem LocalTime Maybe -- when did a job scheduler last order
-- a job worker to execute this job?
-- when a job is to be executed now,
-- lastStartWorker and lastFinished
-- are unset
lastStartWorker LocalTime Maybe -- when did a job worker last start
-- executing this job?
-- when no time is set, the job either
-- was never executed yet or execution
-- was just ordered (or something went
-- very wrong within the jobsystem)
lastFinished LocalTime Maybe -- when did a job worker last report
-- successful execution?
lastStartSystem UTCTime Maybe -- when did a job scheduler last order
-- a job worker to execute this job?
-- when a job is to be executed now,
-- lastStartWorker and lastFinished
-- are unset
lastStartWorker UTCTime Maybe -- when did a job worker last start
-- executing this job?
-- when no time is set, the job either
-- was never executed yet or execution
-- was just ordered (or something went
-- very wrong within the jobsystem)
lastFinished UTCTime Maybe -- when did a job worker last report
-- successful execution?
-- all "last..." fields should be set by the scheduler atomically!
retryAfter NominalDiffTime Maybe -- if set, the scheduler checks on
-- the job after this time and retries

2
src/Model/Types/Jobsystem.hs
View File

@ -13,7 +13,7 @@ import Model.Types.TH.PathPiece
newtype JobOccurrence = JobOccurrence
{ jobOccurrence :: Occurrence LocalTime () -- latter is specialtime; not used yet
{ jobOccurrence :: Occurrence UTCTime () -- latter is specialtime; not used yet
}
deriving (Eq, Ord, Read, Show, Generic)
deriving anyclass (NFData)