diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-11-29 19:51:37 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-11-29 19:51:37 +0100 |
| commit | 60d653c05420f4ca7b41e73bb252268c34d946fe (patch) | |
| tree | ffc5080d63862d70e80f9f4f3588aa4bb5e5ff22 /src/Job/Types.hs | |
| parent | 75e7be5f3763bfc425d84e1cf761fe62e607105d (diff) | |
Include artifacts required via ‘publish’ in the job ID
Diffstat (limited to 'src/Job/Types.hs')
| -rw-r--r-- | src/Job/Types.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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 ) |