Hook `enter` up to the invite code input

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