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

avoid too early scanning for xmppremotes

Browse source
This commit is contained in:
Joey Hess 2013-03-06 17:43:55 -04:00
parent 52eb62be26
commit 1340b9f493
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/Sync.hs
View file

@ -54,6 +54,7 @@ reconnectRemotes notifypushes rs = void $ do
where where
gitremotes = filter (notspecialremote . Remote.repo) rs gitremotes = filter (notspecialremote . Remote.repo) rs
(xmppremotes, normalremotes) = partition isXMPPRemote gitremotes (xmppremotes, normalremotes) = partition isXMPPRemote gitremotes
nonxmppremotes = snd $ partition isXMPPRemote rs
notspecialremote r notspecialremote r
| Git.repoIsUrl r = True | Git.repoIsUrl r = True
| Git.repoIsLocal r = True | Git.repoIsLocal r = True
@ -70,7 +71,7 @@ reconnectRemotes notifypushes rs = void $ do
go = do go = do
(ok, diverged) <- sync (ok, diverged) <- sync
=<< liftAnnex (inRepo Git.Branch.current) =<< liftAnnex (inRepo Git.Branch.current)
addScanRemotes diverged rs addScanRemotes diverged nonxmppremotes
return ok return ok
{- Updates the local sync branch, then pushes it to all remotes, in {- Updates the local sync branch, then pushes it to all remotes, in