fix delay of daily sanity check (hacked for testing and accidentially committed)

This commit is contained in:
Joey Hess 2014-01-23 16:57:49 -04:00
parent 76dcd40167
commit f54bb25501

View file

@ -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 }