diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-06 17:43:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-06 17:43:55 -0400 |
| commit | 3d8651e53108c8b9c85a217c788e4643e09695a4 (patch) | |
| tree | ae1b378aaacb52bcd2c672a774e2a1ea94d5922c | |
| parent | fc2b69ef5704f819ff14b5161d6d246724de333b (diff) | |
avoid too early scanning for xmppremotes
| -rw-r--r-- | Assistant/Sync.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Sync.hs b/Assistant/Sync.hs index 901694920..835faa08c 100644 --- a/Assistant/Sync.hs +++ b/Assistant/Sync.hs @@ -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 |