From 60d653c05420f4ca7b41e73bb252268c34d946fe Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 29 Nov 2025 19:51:37 +0100
Subject: =?UTF-8?q?Include=20artifacts=20required=20via=20=E2=80=98publish?=
 =?UTF-8?q?=E2=80=99=20in=20the=20job=20ID?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

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

diff --git a/src/Job/Types.hs b/src/Job/Types.hs
index 8d02057..5d3f0f3 100644
--- a/src/Job/Types.hs
+++ b/src/Job/Types.hs
@@ -1,5 +1,6 @@
 module Job.Types where
 
+import Data.Containers.ListUtils
 import Data.Kind
 import Data.Text (Text)
 import Data.Text qualified as T
@@ -41,6 +42,9 @@ stringJobName (JobName name) = T.unpack name
 textJobName :: JobName -> Text
 textJobName (JobName name) = name
 
+jobRequiredArtifacts :: Job' d -> [ ArtifactSpec ]
+jobRequiredArtifacts job = nubOrd $ jobUses job ++ (map jpArtifact $ jobPublish job)
+
 
 type family JobRepo d :: Type where
     JobRepo Declared = Maybe ( RepoName, Maybe Text )
-- 
cgit v1.2.3