diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-11-04 21:29:35 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-11-06 19:50:31 +0100 |
| commit | bb780fa5637ddf346ad9e59e92755b4ca010a71c (patch) | |
| tree | 44f907156d7f4088ab68b3cbfcd82e25b925c35a /src/Expression.hs | |
| parent | 9b14290c97df62f6e7da91c90b8bd7bb6a4bec42 (diff) | |
Accept revision expressions in job refs
Diffstat (limited to 'src/Expression.hs')
| -rw-r--r-- | src/Expression.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Expression.hs b/src/Expression.hs index 29b6ea0..3897ede 100644 --- a/src/Expression.hs +++ b/src/Expression.hs @@ -9,6 +9,7 @@ module Expression ( CommitRange(..), evaluateDeclaredRevision, evaluateDeclaredRange, evaluateRevision, evaluateRange, + getCommitFromRef, getRangeCommits, getAddedRangeCommits, isRangeExpressionDynamic, @@ -207,8 +208,11 @@ evaluateRange = \case WatchedTagsExpression wt -> do CommitSet . map (CommitRef "" . commitId . tagObject) <$> updateWatchedTags wt +getCommitFromRef :: MonadIO m => Repo -> CommitRef -> m (Maybe Commit) +getCommitFromRef repo = liftIO . tryReadCommit repo . textCommitRef + getCommitIdFromRef :: MonadIO m => Repo -> CommitRef -> m (Maybe CommitId) -getCommitIdFromRef repo = liftIO . fmap (fmap commitId) . tryReadCommit repo . textCommitRef +getCommitIdFromRef repo = fmap (fmap commitId) . getCommitFromRef repo getRangeCommits :: MonadIO m => Repo -> CommitRange -> m [ Commit ] getRangeCommits repo = \case |