split BranchChange and lifted

2012-10-29 19:20:54 -04:00 · 2012-10-29 19:20:54 -04:00 · 39a3adf434
commit 39a3adf434
parent 0c584bf70d
5 changed files with 29 additions and 13 deletions
--- a/Assistant/Threads/ConfigMonitor.hs
+++ b/Assistant/Threads/ConfigMonitor.hs
@ -39,7 +39,7 @@ configMonitorThread = NamedThread "ConfigMonitor" $ loop =<< getConfigs
  where
 	loop old = do
 		liftIO $ threadDelaySeconds (Seconds 60)
-		waitBranchChange <<~ branchChangeHandle
+		waitBranchChange
 		new <- getConfigs
 		when (old /= new) $ do
 			let changedconfigs = new `S.difference` old