From 55329ed3aa93a7107885625181027c9fb5402f8f Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 10 Nov 2012 14:01:24 -0400
Subject: more refactoring

---
 Assistant/Threads/XMPPClient.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'Assistant/Threads/XMPPClient.hs')

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
-- 
cgit v1.2.3