summaryrefslogtreecommitdiff
path: root/Assistant/Threads
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-23 16:57:49 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-23 16:57:49 -0400
commitd2b291088d027e94f3579ce7602457f8ab141d94 (patch)
treef22746411f636987586b4dd5b51c927edee12595 /Assistant/Threads
parentf1ccccd2e84efb3e5a3131be229e0fdbbc48aada (diff)
fix delay of daily sanity check (hacked for testing and accidentially committed)
Diffstat (limited to 'Assistant/Threads')
-rw-r--r--Assistant/Threads/SanityChecker.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/SanityChecker.hs b/Assistant/Threads/SanityChecker.hs
index aa7d4ff19..827a17139 100644
--- a/Assistant/Threads/SanityChecker.hs
+++ b/Assistant/Threads/SanityChecker.hs
@@ -95,11 +95,11 @@ sanityCheckerHourlyThread = namedThread "SanityCheckerHourly" $ forever $ do
{- This thread wakes up daily to make sure the tree is in good shape. -}
sanityCheckerDailyThread :: UrlRenderer -> NamedThread
sanityCheckerDailyThread urlrenderer = namedThread "SanityCheckerDaily" $ forever $ do
+ waitForNextCheck
+
debug ["starting sanity check"]
void $ alertWhile sanityCheckAlert go
debug ["sanity check complete"]
- waitForNextCheck
-
where
go = do
modifyDaemonStatus_ $ \s -> s { sanityCheckRunning = True }