summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-06-17 19:10:51 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-06-17 19:27:54 -0400
commit89c188fac37c20c40b0a9dabeb35403cfa4e4f52 (patch)
tree667d76e0d072dcee754f5f61eed5c6bcade232ce /Assistant
parent613725496fd5da37109c4a345077058ebe6955c1 (diff)
Windows: Assistant now logs to daemon.log.
Yes, this means that git annex webapp on windows execs git-annex, which execs itself to set env, and the execs itself again to redirect logs. This is disgusting. This is Windows(TM).
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/Threads/SanityChecker.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/SanityChecker.hs b/Assistant/Threads/SanityChecker.hs
index c4f2723f0..bc5be9c75 100644
--- a/Assistant/Threads/SanityChecker.hs
+++ b/Assistant/Threads/SanityChecker.hs
@@ -224,7 +224,7 @@ checkLogSize n = do
totalsize <- liftIO $ sum <$> mapM filesize logs
when (totalsize > 2 * oneMegabyte) $ do
notice ["Rotated logs due to size:", show totalsize]
- liftIO $ openLog f >>= redirLog
+ liftIO $ openLog f >>= handleToFd >>= redirLog
when (n < maxLogs + 1) $ do
df <- liftIO $ getDiskFree $ takeDirectory f
case df of