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

more refactoring

Browse source
This commit is contained in:
Joey Hess 2012-11-10 14:01:24 -04:00
parent 0cf4c3ba9c
commit 7a20b3f1d5
2 changed files with 33 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/Threads/XMPPClient.hs
View file

@ -146,11 +146,9 @@ relayNetMessage selfjid = convert =<< waitNetMessage
convert (PairingNotification stage c u) = withclient c $ \tojid -> do
changeBuddyPairing tojid True
return $ putStanza $ pairingNotification stage u tojid selfjid
convert (Pushing c pushstage) = sendclient c $
gitAnnexMessage $ encodePushStage pushstage
convert (Pushing c pushstage) = withclient c $ \tojid ->
return $ putStanza $ pushMessage pushstage tojid selfjid
sendclient c construct = withclient c $ \tojid ->
return $ putStanza $ construct tojid selfjid
withclient c a = case parseJID c of
Nothing -> return noop
Just tojid