avoid repeated pairing alerts

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

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