lift alertWhile

This commit is contained in:
Joey Hess 2012-10-29 16:49:47 -04:00
parent e18b733c81
commit 1852eddce6
9 changed files with 39 additions and 44 deletions

View file

@ -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