From 2e69f4239223b41ada346c340f058ca91342781e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 18 Jan 2025 21:27:06 +0100
Subject: Watch branches and tags in git repositories

---
 src/Command/Run.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Command/Run.hs')

diff --git a/src/Command/Run.hs b/src/Command/Run.hs
index 945a4fd..14341cd 100644
--- a/src/Command/Run.hs
+++ b/src/Command/Run.hs
@@ -79,7 +79,7 @@ cmdRun (RunCommand changeset) = do
             forM_ jobssets $ \jobset -> do
                 let commit = jobsetCommit jobset
                     shortCid = T.pack $ take 7 $ showCommitId $ commitId commit
-                    shortDesc = fitToLength 50 (commitDescription commit)
+                shortDesc <- fitToLength 50 <$> getCommitTitle commit
                 case jobsetJobsEither jobset of
                     Right jobs -> do
                         outs <- runJobs mngr commit jobs
-- 
cgit v1.2.3