diff options
author | 2012-11-03 21:38:27 -0400 | |
---|---|---|
committer | 2012-11-03 21:38:27 -0400 | |
commit | 82c6426b785bc7fca45e2f5a44e1e8d29e40d7f1 (patch) | |
tree | 49bd71b581dcccccd480bef9b085da499b9f362b /Assistant/Threads/XMPPClient.hs | |
parent | 5a08135f784648387cfc715eeb6218ee27e6da62 (diff) |
avoid repeated pairing alerts
Diffstat (limited to 'Assistant/Threads/XMPPClient.hs')
-rw-r--r-- | Assistant/Threads/XMPPClient.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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. -} |