diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-07-18 15:44:02 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-07-18 23:12:49 +0200 |
| commit | 5756e4582648794e9603fbd8e84df25221fb7ff5 (patch) | |
| tree | fa8bf733a2a34054155e57bc2716c1952c09879f /src/Command/JobId.hs | |
| parent | bb7b28a9e8a1a05d6d9af0f943a158a03a148190 (diff) | |
Diffstat (limited to 'src/Command/JobId.hs')
| -rw-r--r-- | src/Command/JobId.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/Command/JobId.hs b/src/Command/JobId.hs index 173f543..3a119fa 100644 --- a/src/Command/JobId.hs +++ b/src/Command/JobId.hs @@ -60,14 +60,19 @@ cmdJobId (JobIdCommand JobIdOptions {..} ref) = do outputMessage out "" forM_ ids $ \case JobIdName name -> outputMessage out $ textJobName name <> " (job name)" - JobIdCommit mbrepo cid -> outputMessage out $ T.concat + JobIdRepo mbrepo (JobIdCommit cid) -> outputMessage out $ T.concat [ textCommitId cid, " (commit" , maybe "" (\name -> " from ‘" <> textRepoName name <> "’ repo") mbrepo , ")" ] - JobIdTree mbrepo subtree cid -> outputMessage out $ T.concat + JobIdRepo mbrepo (JobIdTree subtree cid) -> outputMessage out $ T.concat [ textTreeId cid, " (tree" , maybe "" (\name -> " from ‘" <> textRepoName name <> "’ repo") mbrepo , if not (null subtree) then ", subtree ‘" <> T.pack subtree <> "’" else "" , ")" ] + JobIdRepo mbrepo (JobIdTag cid tid) -> outputMessage out $ T.concat + [ textCommitId cid, "^", textTagId tid, " (commit following tag" + , maybe "" (\name -> " from ‘" <> textRepoName name <> "’ repo") mbrepo + , ")" + ] |