diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-09-13 15:19:18 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-09-18 20:56:28 +0200 |
| commit | a856d400739711420b7b4a0fbb6455202957dd81 (patch) | |
| tree | 1f4d34bc63537e4df521fab499608417055df4b8 /src/Eval.hs | |
| parent | 5a7ad400ad957ab452e0319f3127631d4aeae6b0 (diff) | |
Diffstat (limited to 'src/Eval.hs')
| -rw-r--r-- | src/Eval.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Eval.hs b/src/Eval.hs index 32a28b4..c7db23a 100644 --- a/src/Eval.hs +++ b/src/Eval.hs @@ -181,8 +181,9 @@ evalJobs (current : evaluating) evaluated repos dset reqs evalJobs (current : evaluating) evaluated repos dset reqs | Just missing <- find (`notElem` (jobName current : map (either id jobName) evaluated)) $ map fst $ jobRequiredArtifacts current - , d <- either (const Nothing) (find ((missing ==) . jobName)) (jobsetJobsEither dset) - = evalJobs (fromJust d : current : evaluating) evaluated repos dset reqs + , Right jset <- jobsetJobsEither dset + , Just d <- find ((missing ==) . jobName) jset + = evalJobs (d : current : evaluating) evaluated repos dset reqs evalJobs (current : evaluating) evaluated repos dset reqs = do EvalInput {..} <- ask |