From 27a301bf619edf027633d5f6267cad9806b4dbe8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 27 Dec 2016 16:36:05 -0400 Subject: webapp: full wormhole pairing UI (untested) This commit was sponsored by Riku Voipio. --- Assistant/Threads/WebApp.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Assistant') diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs index 928d0cdd3..dfb631bc6 100644 --- a/Assistant/Threads/WebApp.hs +++ b/Assistant/Threads/WebApp.hs @@ -36,6 +36,7 @@ import Assistant.WebApp.Documentation import Assistant.WebApp.Control import Assistant.WebApp.OtherRepos import Assistant.WebApp.Repair +import Assistant.WebApp.Pairing import Assistant.Types.ThreadedMonad import Utility.WebApp import Utility.AuthToken @@ -82,6 +83,7 @@ webAppThread assistantdata urlrenderer noannex cannotrun postfirstrun listenhost <*> pure cannotrun <*> pure noannex <*> pure listenhost' + <*> newWormholePairingState setUrlRenderer urlrenderer $ yesodRender webapp (pack "") app <- toWaiAppPlain webapp app' <- ifM debugEnabled -- cgit v1.2.3