urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-21 01:41:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

king: use XDG cache directory for default log location

Browse Source
This commit is contained in:
pilfer-pandex 2020-08-17 11:24:17 -07:00
parent 2d1f3cdfa0
commit 6a236a2749
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkg/hs/urbit-king/lib/Urbit/King/App.hs
View File

@ -26,7 +26,8 @@ import Urbit.King.Config
import Urbit.Prelude
import System.Directory ( createDirectoryIfMissing
, getAppUserDataDirectory
, getXdgDirectory
, XdgDirectory(XdgCache)
)
import System.Posix.Internals (c_getpid)
import System.Posix.Types (CPid(..))
@ -83,7 +84,6 @@ runKingEnvStderr verb lvl inner = do
<&> setLogUseTime True
<&> setLogUseLoc False
<&> setLogMinLevel lvl
withLogFunc logOptions $ \logFunc -> runKingEnv logFunc logFunc inner
runKingEnvLogFile :: Bool -> LogLevel -> Maybe FilePath -> RIO KingEnv a -> IO a
@ -102,7 +102,6 @@ runKingEnvLogFile verb lvl fileM inner = do
<&> setLogUseTime False
<&> setLogUseLoc False
<&> setLogMinLevel lvl
withLogFunc stderrLogOptions $ \stderrLogFunc -> withLogFunc logOptions
$ \logFunc -> runKingEnv logFunc stderrLogFunc inner
@ -114,7 +113,7 @@ withLogFileHandle f act =
defaultLogFile :: IO FilePath
defaultLogFile = do
logDir <- getAppUserDataDirectory "urbit"
logDir <- getXdgDirectory XdgCache "urbit"
createDirectoryIfMissing True logDir
pure (logDir </> "king.log")