diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-01-14 22:31:37 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-01-14 22:31:37 +0100 |
| commit | cbf936f3479172260261ba07a4ff0ca30ae1fe98 (patch) | |
| tree | 504c658e70aab811909d019769f274549504b738 /src/Command | |
| parent | d81cbaafde66f4b96af2f01ba56743089fd87c77 (diff) | |
Keep job data directory path within JobManager
Diffstat (limited to 'src/Command')
| -rw-r--r-- | src/Command/Run.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |