From f3dbad3df9f8c9c1aca873d74a34c6f9169133b0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 23 Mar 2025 12:40:53 +0100
Subject: Evaluate canonical job ids

Changelog: Added `jobid` command resolving job reference to canonical id
---
 src/Job/Types.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

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

diff --git a/src/Job/Types.hs b/src/Job/Types.hs
index 0f91b94..0447615 100644
--- a/src/Job/Types.hs
+++ b/src/Job/Types.hs
@@ -68,3 +68,12 @@ data JobIdPart
     | JobIdCommit CommitId
     | JobIdTree TreeId
     deriving (Eq, Ord)
+
+newtype JobRef = JobRef [ Text ]
+    deriving (Eq, Ord)
+
+textJobIdPart :: JobIdPart -> Text
+textJobIdPart = \case
+    JobIdName name -> textJobName name
+    JobIdCommit cid -> textCommitId cid
+    JobIdTree tid -> textTreeId tid
-- 
cgit v1.2.3