webapp: full wormhole pairing UI (untested)

This commit was sponsored by Riku Voipio.
This commit is contained in:
Joey Hess 2016-12-27 16:36:05 -04:00
parent 9a35077168
commit b68d2a4b68
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
16 changed files with 252 additions and 41 deletions

View file

@ -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