From 1f01dbd2b1d3fb89efdaab56bc52d82a8ed0483e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 1 Apr 2025 23:33:06 +0200
Subject: Job root either as repo or jobfile

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

(limited to 'src/Repo.hs')

diff --git a/src/Repo.hs b/src/Repo.hs
index f22b211..dc88c4b 100644
--- a/src/Repo.hs
+++ b/src/Repo.hs
@@ -1,5 +1,5 @@
 module Repo (
-    Repo,
+    Repo, getRepoWorkDir,
     DeclaredRepo(..),
     RepoName(..), textRepoName, showRepoName,
     Commit, commitId,
@@ -67,6 +67,9 @@ data Repo
 instance Show Repo where
     show GitRepo {..} = gitDir
 
+getRepoWorkDir :: Repo -> FilePath
+getRepoWorkDir GitRepo {..} = takeDirectory gitDir
+
 data DeclaredRepo = DeclaredRepo
     { repoName :: RepoName
     , repoPath :: FilePath
-- 
cgit v1.2.3