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

avoid repeated pairing alerts

Browse source
This commit is contained in:
Joey Hess 2012-11-03 21:38:27 -04:00
parent 17e84a8096
commit 9cff286ea3
2 changed files with 22 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Threads/XMPPClient.hs
View file

@ -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. -}