From 6645caa6796c1f253aded5c483e9f4d504f5fba5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 5 Apr 2025 21:41:46 +0200
Subject: Put job ID to evaluated job

---
 src/Eval.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Eval.hs')

diff --git a/src/Eval.hs b/src/Eval.hs
index 807a3b8..0e3e3e0 100644
--- a/src/Eval.hs
+++ b/src/Eval.hs
@@ -25,6 +25,7 @@ import Repo
 data EvalInput = EvalInput
     { eiJobRoot :: JobRoot
     , eiRootPath :: FilePath
+    , eiCurrentIdRev :: [ JobIdPart ]
     , eiContainingRepo :: Maybe Repo
     , eiOtherRepos :: [ ( RepoName, Repo ) ]
     }
@@ -49,7 +50,8 @@ evalJob EvalInput {..} decl = do
             lookup name eiOtherRepos
         return ( repo, revision, checkout )
     return Job
-        { jobName = jobName decl
+        { jobId = JobId $ reverse $ JobIdName (jobId decl) : eiCurrentIdRev
+        , jobName = jobName decl
         , jobContainingCheckout = jobContainingCheckout decl
         , jobOtherCheckout = otherCheckout
         , jobRecipe = jobRecipe decl
-- 
cgit v1.2.3