diff options
author | Joey Hess <joey@kitenet.net> | 2012-11-10 14:01:24 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-11-10 14:01:24 -0400 |
commit | 55329ed3aa93a7107885625181027c9fb5402f8f (patch) | |
tree | 74d006b50ecd73310fba66f01edcde42d8326381 /Assistant/Threads/XMPPClient.hs | |
parent | 5b4a5e8dbe91bbabe43e3ff4f9ec862e07a56a18 (diff) |
more refactoring
Diffstat (limited to 'Assistant/Threads/XMPPClient.hs')
-rw-r--r-- | Assistant/Threads/XMPPClient.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Assistant/Threads/XMPPClient.hs b/Assistant/Threads/XMPPClient.hs index 5a1323770..ee1db0666 100644 --- a/Assistant/Threads/XMPPClient.hs +++ b/Assistant/Threads/XMPPClient.hs @@ -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 |