mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

lift alertWhile

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/Sync.hs
View file

@ -38,8 +38,7 @@ import Control.Concurrent
reconnectRemotes :: Bool -> [Remote] -> Assistant ()
reconnectRemotes _ [] = noop
reconnectRemotes notifypushes rs = void $ do
dstatus <- getAssistant daemonStatusHandle
alertWhile dstatus (syncAlert rs) <~> do
alertWhile (syncAlert rs) $ do
(ok, diverged) <- sync
=<< liftAnnex (inRepo Git.Branch.current)
scanremotes <- getAssistant scanRemoteMap