summaryrefslogtreecommitdiff
path: root/Omni/Task
diff options
context:
space:
mode:
Diffstat (limited to 'Omni/Task')
-rw-r--r--Omni/Task/Core.hs6
-rw-r--r--Omni/Task/README.md2
-rw-r--r--Omni/Task/RaceTest.hs4
3 files changed, 6 insertions, 6 deletions
diff --git a/Omni/Task/Core.hs b/Omni/Task/Core.hs
index 3b4eaa0..bf52c2c 100644
--- a/Omni/Task/Core.hs
+++ b/Omni/Task/Core.hs
@@ -238,9 +238,9 @@ getTasksDbPath = do
customPath <- lookupEnv "TASK_DB_PATH"
testMode <- lookupEnv "TASK_TEST_MODE"
let path = case (testMode, customPath) of
- (Just "1", _) -> ".tasks/tasks-test.db" -- Test mode always uses test db
+ (Just "1", _) -> "_/tmp/tasks-test.db" -- Test mode uses cabdir
(_, Just p) -> p -- Custom path for production
- _ -> ".tasks/tasks.db"
+ _ -> "_/tmp/tasks.db" -- Default uses cabdir
pure path
-- DB Helper
@@ -254,7 +254,7 @@ withDb action = do
-- Initialize the task database
initTaskDb :: IO ()
initTaskDb = do
- createDirectoryIfMissing True ".tasks"
+ createDirectoryIfMissing True "_/tmp"
withDb <| \conn -> do
SQL.execute_
conn
diff --git a/Omni/Task/README.md b/Omni/Task/README.md
index 5113002..463c9e5 100644
--- a/Omni/Task/README.md
+++ b/Omni/Task/README.md
@@ -333,7 +333,7 @@ To back up or transfer tasks, use `task export` and `task import`.
# Set test mode to protect production database
export TASK_TEST_MODE=1
-# Now all task operations use .tasks/tasks-test.db
+# Now all task operations use _/tmp/tasks-test.db
task create "Test task" --type=task
task list
task tree
diff --git a/Omni/Task/RaceTest.hs b/Omni/Task/RaceTest.hs
index 5dd7fa1..007046f 100644
--- a/Omni/Task/RaceTest.hs
+++ b/Omni/Task/RaceTest.hs
@@ -18,11 +18,11 @@ test = Test.group "Omni.Task.Race" [raceTest]
raceTest :: Test.Tree
raceTest =
Test.unit "concurrent child creation (race condition)" <| do
- -- Set up test mode (uses .tasks/tasks-test.db)
+ -- Set up test mode (uses _/tmp/tasks-test.db)
setEnv "TASK_TEST_MODE" "1"
-- Clean up test database
- let testFile = ".tasks/tasks-test.db"
+ let testFile = "_/tmp/tasks-test.db"
exists <- doesFileExist testFile
when exists <| removeFile testFile
initTaskDb