From e41db4a717f8e92c2c33704196f43224ae6a5ec8 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 15 Mar 2013 15:05:02 -0400
Subject: webapp: Improved UI for pairing your own devices together using XMPP.

---
 Assistant/Threads/XMPPClient.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Assistant/Threads/XMPPClient.hs')

diff --git a/Assistant/Threads/XMPPClient.hs b/Assistant/Threads/XMPPClient.hs
index e6ac209d6..fb7da10c7 100644
--- a/Assistant/Threads/XMPPClient.hs
+++ b/Assistant/Threads/XMPPClient.hs
@@ -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)
-- 
cgit v1.2.3