don't try to transfer data to/from XMPP remotes

Partition syncRemotes into ones needing git sync (ie, non-special remotes),
and ones needing data sync (ie, non-XMPP remotes).
This commit is contained in:
Joey Hess 2012-11-11 16:23:16 -04:00
parent 217eeede43
commit 5e44ab177c
11 changed files with 40 additions and 35 deletions

View file

@ -238,7 +238,7 @@ xmppRemotes cid = case baseJID <$> parseJID cid of
Nothing -> return []
Just jid -> do
let loc = gitXMPPLocation jid
filter (matching loc . Remote.repo) . syncRemotes
filter (matching loc . Remote.repo) . syncGitRemotes
<$> getDaemonStatus
where
matching loc r = repoIsUrl r && repoLocation r == loc