From f8b2df887d3847041a81b00dbea70db30b07eb92 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 12 Mar 2025 21:34:16 +0100
Subject: Run jobs even without default repo

---
 src/Repo.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/Repo.hs')

diff --git a/src/Repo.hs b/src/Repo.hs
index 0a6c563..2568fff 100644
--- a/src/Repo.hs
+++ b/src/Repo.hs
@@ -325,7 +325,7 @@ createWipCommit repo@GitRepo {..} = do
             _ -> readCommit repo "HEAD"
 
 
-readCommittedFile :: Commit -> FilePath -> IO (Maybe BL.ByteString)
+readCommittedFile :: MonadIO m => Commit -> FilePath -> m (Maybe BL.ByteString)
 readCommittedFile Commit {..} path = do
     let GitRepo {..} = commitRepo
     liftIO $ withMVar gitLock $ \_ -> do
@@ -377,14 +377,14 @@ repoInotify repo@GitRepo {..} = modifyMVar gitInotify $ \case
     headsDir = gitDir </> "refs/heads"
     tagsDir = gitDir </> "refs/tags"
 
-watchBranch :: Repo -> Text -> IO (STM (Maybe Commit))
-watchBranch repo@GitRepo {..} branch = do
+watchBranch :: MonadIO m => Repo -> Text -> m (STM (Maybe Commit))
+watchBranch repo@GitRepo {..} branch = liftIO $ do
     var <- newTVarIO =<< readBranch repo branch
     void $ repoInotify repo
     modifyMVar_ gitWatchedBranches $ return . M.insertWith (++) branch [ var ]
     return $ readTVar var
 
-watchTags :: Repo -> IO (TChan (Tag Commit))
-watchTags repo = do
+watchTags :: MonadIO m => Repo -> m (TChan (Tag Commit))
+watchTags repo = liftIO $ do
     tagsChan <- snd <$> repoInotify repo
     atomically $ dupTChan tagsChan
-- 
cgit v1.2.3