webapp: Improved UI for pairing your own devices together using XMPP.
This commit is contained in:
parent
48d9a3182f
commit
39e979fb65
13 changed files with 145 additions and 72 deletions
|
@ -274,7 +274,8 @@ 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 = ConfirmXMPPPairR (PairKey theiruuid $ formatJID theirjid)
|
||||
let route = ConfirmXMPPPairFriendR $
|
||||
PairKey theiruuid $ formatJID theirjid
|
||||
url <- liftIO $ renderUrl urlrenderer route []
|
||||
close <- asIO1 removeAlert
|
||||
void $ addAlert $ pairRequestReceivedAlert (T.unpack $ buddyName theirjid)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue