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/Job.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Job.hs')

diff --git a/src/Job.hs b/src/Job.hs
index 990ea3e..71da738 100644
--- a/src/Job.hs
+++ b/src/Job.hs
@@ -179,7 +179,7 @@ runManagedJob JobManager {..} tid cancel job = bracket acquire release $ \case
 
 runJobs :: JobManager -> Commit -> [ Job ] -> IO [ ( Job, TVar (JobStatus JobOutput) ) ]
 runJobs mngr@JobManager {..} commit jobs = do
-    treeId <- readTreeId commit
+    treeId <- getTreeId commit
     results <- atomically $ do
         forM jobs $ \job -> do
             let jid = JobId [ JobIdTree treeId, JobIdName (jobName job) ]
@@ -285,7 +285,7 @@ prepareJob dir commit job inner = do
 
     flip finally (liftIO $ removeDirectoryRecursive checkoutPath) $ do
         checkoutAt commit checkoutPath
-        tid <- readTreeId commit
+        tid <- getTreeId commit
 
         let jdir = dir </> "jobs" </> showTreeId tid </> stringJobName (jobName job)
         liftIO $ createDirectoryIfMissing True jdir
-- 
cgit v1.2.3