summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-06-21 13:29:42 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-06-21 13:29:42 -0400
commit28eff15a84cef8215903c9996ec20d8af4fce286 (patch)
tree154abc6d345078eb7fa52ac0d1dd9dab5ff54e10 /Assistant
parent5e255e21f93304df5227cdff8a1d13ed3d50f58b (diff)
assistant: Daily sanity check thread is run niced.
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/Threads/SanityChecker.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Threads/SanityChecker.hs b/Assistant/Threads/SanityChecker.hs
index a6166214a..0c97a9e8f 100644
--- a/Assistant/Threads/SanityChecker.hs
+++ b/Assistant/Threads/SanityChecker.hs
@@ -19,6 +19,7 @@ import qualified Git.Config
import Utility.ThreadScheduler
import qualified Assistant.Threads.Watcher as Watcher
import Utility.LogFile
+import Utility.Batch
import Config
import Data.Time.Clock.POSIX
@@ -42,7 +43,7 @@ sanityCheckerDailyThread = namedThread "SanityCheckerDaily" $ forever $ do
modifyDaemonStatus_ $ \s -> s { sanityCheckRunning = True }
now <- liftIO $ getPOSIXTime -- before check started
- r <- either showerr return =<< tryIO <~> dailyCheck
+ r <- either showerr return =<< (tryIO . batch) <~> dailyCheck
modifyDaemonStatus_ $ \s -> s
{ sanityCheckRunning = False