From 82c6426b785bc7fca45e2f5a44e1e8d29e40d7f1 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 3 Nov 2012 21:38:27 -0400
Subject: avoid repeated pairing alerts

---
 Assistant/Threads/XMPPClient.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/Assistant/Threads/XMPPClient.hs b/Assistant/Threads/XMPPClient.hs
index d988b2f83..63040001b 100644
--- a/Assistant/Threads/XMPPClient.hs
+++ b/Assistant/Threads/XMPPClient.hs
@@ -138,7 +138,7 @@ relayNetMessage fulljid = convert <$> waitNetMessage
 	convert QueryPresence = putStanza $ presenceQuery
 	convert (PairingNotification stage t u) = case parseJID t of
 		Nothing -> noop
-		Just tojid -> putStanza $
+		Just tojid -> mapM_ putStanza $
 			pairingNotification stage u tojid fulljid
 
 {- Runs the client, handing restart events. -}
-- 
cgit v1.2.3