avoid repeated pairing alerts
This commit is contained in:
parent
17e84a8096
commit
9cff286ea3
2 changed files with 22 additions and 8 deletions
|
@ -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. -}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue