assistant: Daily sanity check thread is run niced.
This commit is contained in:
parent
d901ba1781
commit
5e48aa4d4b
2 changed files with 3 additions and 1 deletions
|
@ -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
|
||||
|
|
1
debian/changelog
vendored
1
debian/changelog
vendored
|
@ -1,6 +1,7 @@
|
|||
git-annex (4.20130622) UNRELEASED; urgency=low
|
||||
|
||||
* assistant --autostart: Automatically ionices the daemons it starts.
|
||||
* assistant: Daily sanity check thread is run niced.
|
||||
|
||||
-- Joey Hess <joeyh@debian.org> Fri, 21 Jun 2013 13:16:17 -0400
|
||||
|
||||
|
|
Loading…
Reference in a new issue