diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-11 16:23:16 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-11 16:23:16 -0400 |
| commit | 6068fd160ffeb930368a4c4c2a8818ace71f29ab (patch) | |
| tree | 3f5a183e9594854a55f17cfdca740516943084c6 /Assistant/NetMessager.hs | |
| parent | 0d21e323e0d095232e347859adaaf2cc2cd71592 (diff) | |
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).
Diffstat (limited to 'Assistant/NetMessager.hs')
| -rw-r--r-- | Assistant/NetMessager.hs | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/Assistant/NetMessager.hs b/Assistant/NetMessager.hs index e3ef89b04..d9450ad27 100644 --- a/Assistant/NetMessager.hs +++ b/Assistant/NetMessager.hs @@ -95,12 +95,3 @@ queueNetPushMessage _ = return False waitNetPushMessage :: PushSide -> Assistant (NetMessage) waitNetPushMessage side = (atomically . readTChan) <<~ (getSide side . netMessagesPush . netMessager) - -{- Remotes using the XMPP transport have urls like xmpp::user@host -} -isXMPPRemote :: Remote -> Bool -isXMPPRemote remote = Git.repoIsUrl r && "xmpp::" `isPrefixOf` Git.repoLocation r - where - r = Remote.repo remote - -getXMPPClientID :: Remote -> ClientID -getXMPPClientID r = T.pack $ drop (length "xmpp::") (Git.repoLocation (Remote.repo r)) |