summaryrefslogtreecommitdiff
path: root/Omni/Agent/Paths.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Omni/Agent/Paths.hs')
-rw-r--r--Omni/Agent/Paths.hs21
1 files changed, 17 insertions, 4 deletions
diff --git a/Omni/Agent/Paths.hs b/Omni/Agent/Paths.hs
index 6facdc6..6df6991 100644
--- a/Omni/Agent/Paths.hs
+++ b/Omni/Agent/Paths.hs
@@ -1,5 +1,5 @@
-{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE NoImplicitPrelude #-}
-- | Configurable paths for Ava data directories.
--
@@ -11,6 +11,9 @@ module Omni.Agent.Paths
outreachDir,
userScratchRoot,
userScratchDir,
+ logsDir,
+ avaLogsDir,
+ subagentLogsDir,
)
where
@@ -21,9 +24,10 @@ import System.FilePath ((</>))
import System.IO.Unsafe (unsafePerformIO)
avaDataRoot :: FilePath
-avaDataRoot = unsafePerformIO <| do
- m <- lookupEnv "AVA_DATA_ROOT"
- pure (fromMaybe "_/var/ava" m)
+avaDataRoot =
+ unsafePerformIO <| do
+ m <- lookupEnv "AVA_DATA_ROOT"
+ pure (fromMaybe "_/var/ava" m)
{-# NOINLINE avaDataRoot #-}
skillsDir :: FilePath
@@ -37,3 +41,12 @@ userScratchRoot = avaDataRoot </> "users"
userScratchDir :: Text -> FilePath
userScratchDir user = userScratchRoot </> Text.unpack user
+
+logsDir :: FilePath
+logsDir = avaDataRoot </> "logs"
+
+avaLogsDir :: FilePath
+avaLogsDir = logsDir </> "ava"
+
+subagentLogsDir :: FilePath
+subagentLogsDir = logsDir </> "subagents"