mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

assistant: Daily sanity check thread is run niced.

Browse source
This commit is contained in:
Joey Hess 2013-06-21 13:29:42 -04:00
parent d901ba1781
commit 5e48aa4d4b
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Assistant/Threads/SanityChecker.hs
View file

@ -19,6 +19,7 @@ import qualified Git.Config
import Utility.ThreadScheduler import Utility.ThreadScheduler
import qualified Assistant.Threads.Watcher as Watcher import qualified Assistant.Threads.Watcher as Watcher
import Utility.LogFile import Utility.LogFile
import Utility.Batch
import Config import Config
import Data.Time.Clock.POSIX import Data.Time.Clock.POSIX
@ -42,7 +43,7 @@ sanityCheckerDailyThread = namedThread "SanityCheckerDaily" $ forever $ do
modifyDaemonStatus_ $ \s -> s { sanityCheckRunning = True } modifyDaemonStatus_ $ \s -> s { sanityCheckRunning = True }
now <- liftIO $ getPOSIXTime -- before check started now <- liftIO $ getPOSIXTime -- before check started
r <- either showerr return =<< tryIO <~> dailyCheck r <- either showerr return =<< (tryIO . batch) <~> dailyCheck
modifyDaemonStatus_ $ \s -> s modifyDaemonStatus_ $ \s -> s
{ sanityCheckRunning = False { sanityCheckRunning = False

1
debian/changelog vendored
View file

@ -1,6 +1,7 @@
git-annex (4.20130622) UNRELEASED; urgency=low git-annex (4.20130622) UNRELEASED; urgency=low
* assistant --autostart: Automatically ionices the daemons it starts. * 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 -- Joey Hess <joeyh@debian.org> Fri, 21 Jun 2013 13:16:17 -0400