summaryrefslogtreecommitdiff
path: root/Assistant.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-03-01 13:30:48 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-03-01 13:30:48 -0400
commitba55294acddc83bd8a0a89ff3398c1dec8374a3a (patch)
tree511c0ef50bc9a090f404348ed040d963f6458795 /Assistant.hs
parentdfebe8042742db73a3029bd2d432e1074425035c (diff)
assistant: Logs are rotated to avoid them using too much disk space.
This cannot completely guard against a runaway log event, and only runs every hour anyway, but it should avoid most problems with very long-running, active assistants using up too much space.
Diffstat (limited to 'Assistant.hs')
-rw-r--r--Assistant.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Assistant.hs b/Assistant.hs
index 8a3816f4d..63a5dafae 100644
--- a/Assistant.hs
+++ b/Assistant.hs
@@ -175,7 +175,7 @@ startDaemon assistant foreground startbrowser = do
fdToHandle =<< dup stdOutput
origerr <- liftIO $ catchMaybeIO $
fdToHandle =<< dup stdError
- liftIO $ Utility.Daemon.redirLog logfd
+ liftIO $ Utility.LogFile.redirLog logfd
showStart (if assistant then "assistant" else "watch") "."
start id $
case startbrowser of
@@ -217,7 +217,8 @@ startDaemon assistant foreground startbrowser = do
, assist $ transferPollerThread
, assist $ transfererThread
, assist $ daemonStatusThread
- , assist $ sanityCheckerThread
+ , assist $ sanityCheckerDailyThread
+ , assist $ sanityCheckerHourlyThread
, assist $ mountWatcherThread
, assist $ netWatcherThread
, assist $ netWatcherFallbackThread