diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-06-21 13:29:42 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-06-21 13:29:42 -0400 |
| commit | 28eff15a84cef8215903c9996ec20d8af4fce286 (patch) | |
| tree | 154abc6d345078eb7fa52ac0d1dd9dab5ff54e10 /Assistant | |
| parent | 5e255e21f93304df5227cdff8a1d13ed3d50f58b (diff) | |
assistant: Daily sanity check thread is run niced.
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Threads/SanityChecker.hs | 3 |
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 |