From a96e4f84c7f0f69704e72a9a1b08baba5aeca0c4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 3 Dec 2025 21:59:38 +0100
Subject: Rewrite fillInDependencies using evalJobSet

---
 src/Eval.hs | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/src/Eval.hs b/src/Eval.hs
index f6781a1..86bd963 100644
--- a/src/Eval.hs
+++ b/src/Eval.hs
@@ -266,20 +266,21 @@ fillInDependencies :: JobSet -> Eval JobSet
 fillInDependencies jset = do
     ( dset, idRev, otherRepos ) <- local (\ei -> ei { eiCurrentIdRev = [] }) $ do
         loadJobSetById (jobsetId jset)
+    eset <- local (\ei -> ei { eiCurrentIdRev = idRev }) $ do
+        evalJobSet otherRepos dset
     origJobs <- either (throwError . OtherEvalError . T.pack) return $ jobsetJobsEither jset
-    declJobs <- either (throwError . OtherEvalError . T.pack) return $ jobsetJobsEither dset
-    deps <- gather declJobs S.empty (map jobName origJobs)
+    allJobs <- either (throwError . OtherEvalError . T.pack) return $ jobsetJobsEither eset
+    deps <- gather allJobs S.empty (map jobName origJobs)
 
-    jobs <- local (\ei -> ei { eiCurrentIdRev = idRev }) $ do
-        fmap catMaybes $ forM declJobs $ \djob -> if
-            | Just job <- find ((jobName djob ==) . jobName) origJobs
-            -> return (Just job)
+    let jobs = catMaybes $ flip map allJobs $ \ejob -> if
+            | Just job <- find ((jobName ejob ==) . jobName) origJobs
+            -> Just job
 
-            | jobName djob `S.member` deps
-            -> Just . fst <$> evalJob otherRepos dset djob
+            | jobName ejob `S.member` deps
+            -> Just ejob
 
             | otherwise
-            -> return Nothing
+            -> Nothing
 
     return $ jset { jobsetJobsEither = Right jobs }
   where
-- 
cgit v1.2.3