summaryrefslogtreecommitdiff
path: root/src/Command/Run.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2025-03-19 21:33:11 +0100
committerRoman Smrž <roman.smrz@seznam.cz>2025-03-19 21:33:11 +0100
commit505ae1c65bae537f386a3dc4f8d5d1c154c8f5c3 (patch)
tree0042d0f509e65c4a58abf4819bb9ad3b68ccc9c0 /src/Command/Run.hs
parent78303c0327d2c0fd60f1399df11d49b54c1101e4 (diff)
Add --storage command line option
Diffstat (limited to 'src/Command/Run.hs')
-rw-r--r--src/Command/Run.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Command/Run.hs b/src/Command/Run.hs
index 7c6162a..905204e 100644
--- a/src/Command/Run.hs
+++ b/src/Command/Run.hs
@@ -15,7 +15,6 @@ import Data.Text qualified as T
import Data.Text.IO qualified as T
import System.Console.GetOpt
-import System.FilePath
import System.FilePath.Glob
import System.IO
@@ -194,8 +193,7 @@ cmdRun :: RunCommand -> CommandExec ()
cmdRun (RunCommand RunOptions {..} args) = do
CommonOptions {..} <- getCommonOptions
tout <- getTerminalOutput
- configPath <- getConfigPath
- let baseDir = takeDirectory configPath
+ storageDir <- getStorageDir
( rangeOptions, jobOptions ) <- partitionEithers . concat <$> sequence
[ forM roRanges $ \range -> case T.splitOn ".." range of
@@ -232,7 +230,7 @@ cmdRun (RunCommand RunOptions {..} args) = do
tags <- mapM watchTagSource roNewTags
liftIO $ do
- mngr <- newJobManager (baseDir </> ".minici") optJobs
+ mngr <- newJobManager storageDir optJobs
source <- mergeSources $ concat [ [ argumentJobs ], ranges, branches, tags ]
headerLine <- newLine tout ""