lift alertWhile
This commit is contained in:
parent
e18b733c81
commit
1852eddce6
9 changed files with 39 additions and 44 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue