diff options
Diffstat (limited to 'Omni/Task/Core.hs')
| -rw-r--r-- | Omni/Task/Core.hs | 6 |
1 files changed, 3 insertions, 3 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 |