From a856d400739711420b7b4a0fbb6455202957dd81 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 13 Sep 2026 15:19:18 +0200 Subject: Avoid fromJust usage in evalJobs --- src/Eval.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src') 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 -- cgit v1.2.3