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

full-on git-annex assistant syncing now works over XMPP!

Browse source 
I decided to use the fallback push mode from the beginning for XMPP, since
while it uses some ugly branches, it avoids the possibility of a normal
push failing, and needing to pull and re-push. Due to the overhead of XMPP,
and the difficulty of building such a chain of actions due to the async
implementation, this seemed reasonable.

It seems to work great!
This commit is contained in:
Joey Hess 2012-11-10 14:38:50 -04:00
parent 2a88845c28
commit 957e742dfc
3 changed files with 49 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/XMPP.hs
View file

@ -167,8 +167,8 @@ decodeMessage m = decode =<< gitAnnexTagInfo m
fmap (ReceivePackDone . decodeExitCode) . readish .
T.unpack . tagValue
]
pushdecoder a m i = Pushing
<$> (formatJID <$> messageFrom m)
pushdecoder a m' i = Pushing
<$> (formatJID <$> messageFrom m')
<*> a i
decodeExitCode :: Int -> ExitCode