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/Job/Types.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src/Job/Types.hs')

diff --git a/src/Job/Types.hs b/src/Job/Types.hs
index 5415e4d..19cf560 100644
--- a/src/Job/Types.hs
+++ b/src/Job/Types.hs
@@ -14,7 +14,8 @@ data Declared
 data Evaluated
 
 data Job' d = Job
-    { jobName :: JobName
+    { jobId :: JobId' d
+    , jobName :: JobName
     , jobContainingCheckout :: [ JobCheckout ]
     , jobOtherCheckout :: [ ( JobRepo d, Maybe Text, JobCheckout ) ]
     , jobRecipe :: [ CreateProcess ]
@@ -25,6 +26,10 @@ data Job' d = Job
 type Job = Job' Evaluated
 type DeclaredJob = Job' Declared
 
+type family JobId' d :: Type where
+    JobId' Declared = JobName
+    JobId' Evaluated = JobId
+
 data JobName = JobName Text
     deriving (Eq, Ord, Show)
 
@@ -78,3 +83,6 @@ textJobIdPart = \case
     JobIdName name -> textJobName name
     JobIdCommit cid -> textCommitId cid
     JobIdTree tid -> textTreeId tid
+
+textJobId :: JobId -> Text
+textJobId (JobId ids) = T.intercalate "." $ map textJobIdPart ids
-- 
cgit v1.2.3