webapp: full wormhole pairing UI (untested)
This commit was sponsored by Riku Voipio.
This commit is contained in:
parent
9a35077168
commit
b68d2a4b68
16 changed files with 252 additions and 41 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue