add a yes/no confirm for xmpp pairing requests

This commit is contained in:
Joey Hess 2012-11-11 22:29:16 -04:00
parent 9f5b23d49f
commit 8b22bd8831
5 changed files with 18 additions and 4 deletions

View file

@ -222,7 +222,7 @@ pairMsgReceived urlrenderer PairReq theiruuid selfjid theirjid
finishXMPPPairing theirjid theiruuid
-- Show an alert to let the user decide if they want to pair.
showalert = do
let route = FinishXMPPPairR (PairKey theiruuid $ formatJID theirjid)
let route = ConfirmXMPPPairR (PairKey theiruuid $ formatJID theirjid)
url <- liftIO $ renderUrl urlrenderer route []
close <- asIO1 removeAlert
void $ addAlert $ pairRequestReceivedAlert (T.unpack $ buddyName theirjid)