From 211755a1c836fe7bc7bd3592d61b98502210b424 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Mon, 10 Apr 2023 09:44:47 -0400
Subject: [PATCH] Hook `enter` up to the invite code input
---
obelisk/frontend/src/Pages/MagicFolders.hs | 19 ++++++++-----------
1 file changed, 8 insertions(+), 11 deletions(-)
diff --git a/obelisk/frontend/src/Pages/MagicFolders.hs b/obelisk/frontend/src/Pages/MagicFolders.hs
index 164f705..551f16e 100644
--- a/obelisk/frontend/src/Pages/MagicFolders.hs
+++ b/obelisk/frontend/src/Pages/MagicFolders.hs
@@ -98,17 +98,14 @@ receiveFolderInviteText
, SetRoute t (R FrontendRoute) m
)
=> m ()
-receiveFolderInviteText =
- inviteInputElement
- where
- inviteInputElement = do
- el "div" $ do
- inputEl <- inputElement $ def
- { _inputElementConfig_initialValue = "0-invite-code"
- }
- let submitEv = () <$ domEvent Submit inputEl
- inputDyn = _inputElement_value inputEl
- setRoute $ (FrontendRoute_QRCode :/) <$> tag (current inputDyn) submitEv
+receiveFolderInviteText = do
+ el "div" $ do
+ inputEl <- inputElement $ def
+ { _inputElementConfig_initialValue = "0-invite-code"
+ }
+ let submitEv = keypress Enter inputEl
+ inputDyn = _inputElement_value inputEl
+ setRoute $ (FrontendRoute_QRCode :/) <$> tag (current inputDyn) submitEv
receiveFolderInviteQR
:: ( PerformEvent t m
--
GitLab