From 505ae1c65bae537f386a3dc4f8d5d1c154c8f5c3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Wed, 19 Mar 2025 21:33:11 +0100 Subject: Add --storage command line option --- src/Command/Run.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/Command/Run.hs') 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 "" -- cgit v1.2.3