From cbf936f3479172260261ba07a4ff0ca30ae1fe98 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 14 Jan 2025 22:31:37 +0100
Subject: Keep job data directory path within JobManager

---
 src/Command/Run.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/Command/Run.hs b/src/Command/Run.hs
index 403e8b8..c762335 100644
--- a/src/Command/Run.hs
+++ b/src/Command/Run.hs
@@ -58,7 +58,7 @@ cmdRun (RunCommand changeset) = do
 
     tout <- getTerminalOutput
     liftIO $ do
-        mngr <- newJobManager optJobs
+        mngr <- newJobManager "./.minici" optJobs
         Just repo <- openRepo "."
         commits <- listCommits repo (base <> ".." <> tip)
         jobssets <- mapM loadJobSetForCommit commits
@@ -74,7 +74,7 @@ cmdRun (RunCommand changeset) = do
                 shortDesc = fitToLength 50 (commitDescription commit)
             case jobsetJobsEither jobset of
                 Right jobs -> do
-                    outs <- runJobs mngr "./.minici" commit jobs
+                    outs <- runJobs mngr commit jobs
                     let findJob name = snd <$> find ((name ==) . jobName . fst) outs
                     displayStatusLine tout shortCid (" " <> shortDesc) $ map findJob names
                     return $ map snd outs
-- 
cgit v1.2.3