diff --git a/obelisk/frontend/src/Pages/MagicFolders.hs b/obelisk/frontend/src/Pages/MagicFolders.hs
index 164f705bc48cbc5b41d85342453036648f32f848..551f16edaf4b3566ddb8cad57a988fec5fa10afd 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