diff options
author | Joey Hess <joey@kitenet.net> | 2012-10-29 16:49:47 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-10-29 16:49:47 -0400 |
commit | 2960a8011484fa3dad1cff55e8e412f4d4b1db84 (patch) | |
tree | c36b30274a014f5a7d22dd072a3756a9d4b817cc /Assistant/Threads/SanityChecker.hs | |
parent | 0864097c212131b477b41907b3d59dacf6bc4fe9 (diff) |
lift alertWhile
Diffstat (limited to 'Assistant/Threads/SanityChecker.hs')
-rw-r--r-- | Assistant/Threads/SanityChecker.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Assistant/Threads/SanityChecker.hs b/Assistant/Threads/SanityChecker.hs index d92c6c394..46f399dab 100644 --- a/Assistant/Threads/SanityChecker.hs +++ b/Assistant/Threads/SanityChecker.hs @@ -24,10 +24,7 @@ sanityCheckerThread = NamedThread "SanityChecker" $ forever $ do waitForNextCheck debug ["starting sanity check"] - - dstatus <- getAssistant daemonStatusHandle - void $ alertWhile dstatus sanityCheckAlert <~> go - + void $ alertWhile sanityCheckAlert go debug ["sanity check complete"] where go = do |