avoid too early scanning for xmppremotes

This commit is contained in:
Joey Hess 2013-03-06 17:43:55 -04:00
parent 52eb62be26
commit 1340b9f493

View file

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