From 2ee87680556ccf26ef8d415950e7f31034d647c4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 20 Apr 2025 22:58:16 +0200
Subject: =?UTF-8?q?Verbose=20option=20for=20=E2=80=98jobid=E2=80=99=20comm?=
 =?UTF-8?q?and?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/Job/Types.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/Job/Types.hs b/src/Job/Types.hs
index b5d05fb..7e7a4b8 100644
--- a/src/Job/Types.hs
+++ b/src/Job/Types.hs
@@ -72,7 +72,7 @@ newtype JobId = JobId [ JobIdPart ]
 data JobIdPart
     = JobIdName JobName
     | JobIdCommit (Maybe RepoName) CommitId
-    | JobIdTree (Maybe RepoName) TreeId
+    | JobIdTree (Maybe RepoName) FilePath TreeId
     deriving (Eq, Ord)
 
 newtype JobRef = JobRef [ Text ]
@@ -82,7 +82,7 @@ textJobIdPart :: JobIdPart -> Text
 textJobIdPart = \case
     JobIdName name -> textJobName name
     JobIdCommit _ cid -> textCommitId cid
-    JobIdTree _ tid -> textTreeId tid
+    JobIdTree _ _ tid -> textTreeId tid
 
 textJobId :: JobId -> Text
 textJobId (JobId ids) = T.intercalate "." $ map textJobIdPart ids
-- 
cgit v1.2.3