split BranchChange and lifted

This commit is contained in:
Joey Hess 2012-10-29 19:20:54 -04:00
parent 0c584bf70d
commit 39a3adf434
5 changed files with 29 additions and 13 deletions

View file

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

View file

@ -66,7 +66,7 @@ onAdd :: Handler
onAdd file
| ".lock" `isSuffixOf` file = noop
| isAnnexBranch file = do
branchChanged <<~ branchChangeHandle
branchChanged
transferqueue <- getAssistant transferQueue
dstatus <- getAssistant daemonStatusHandle
liftAnnex $