diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-06-13 17:54:23 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-06-13 17:54:23 -0400 |
| commit | 4b9b9b494757e04ec5c449666d5a0a063378cdb3 (patch) | |
| tree | 053eea26730a9b31dd07172b25d46008d2a10ad4 /Assistant.hs | |
| parent | 36d73b00171aa26bf5379be7dbd66611834a0459 (diff) | |
add sanity checker thread
Currently wakes up once a day, and does nothing. :)
Diffstat (limited to 'Assistant.hs')
| -rw-r--r-- | Assistant.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Assistant.hs b/Assistant.hs index eb8fd7054..3d819a018 100644 --- a/Assistant.hs +++ b/Assistant.hs @@ -45,6 +45,7 @@ import Assistant.ThreadedMonad import Assistant.DaemonStatus import Assistant.Watcher import Assistant.Committer +import Assistant.SanityChecker import qualified Utility.Daemon import Utility.LogFile @@ -71,6 +72,7 @@ startDaemon foreground -- is taking place. _ <- forkIO $ commitThread st changechan _ <- forkIO $ daemonStatusThread st dstatus + _ <- forkIO $ sanityCheckerThread st dstatus watchThread st dstatus changechan stopDaemon :: Annex () |