working version of the fancy wormhole code dialog ("okay", not "cancel")

obelisk/frontend/src/Pages/MagicFolders.hs

@@ -109,12 +109,10 @@ magicFolders foldersDyn updateFolders = do
         --   dismiss clicked -> NotAccepting
 
         rec
-          -- submitMaybeInviteCode :: Event t (Maybe T.Text)
-          -- submitMaybeInviteCode <- receiveFolderInviteText acceptInviteState
-          submitInviteCode <- receiveFolderInviteText acceptInviteState
-          -- let
-          --   submitInviteCode :: Event t T.Text
-          --   submitInviteCode = fforMaybe submitMaybeInviteCode id
+          submitMaybeInviteCode <- receiveFolderInviteText acceptInviteState
+          let
+            submitInviteCode :: Event t T.Text
+            submitInviteCode = fforMaybe submitMaybeInviteCode id
 
           inviteCompleted <- performEventInThread $ ffor submitInviteCode $
             \code -> doWormholeInvite code >> updateFolders <$> loadMagicFolders
@@ -170,7 +168,7 @@ receiveFolderInviteText
        , DomBuilder t m
        , PostBuild t m
        )
-    => Dynamic t AcceptingInviteState -> m (Event t T.Text)
+    => Dynamic t AcceptingInviteState -> m (Event t (Maybe T.Text))
 receiveFolderInviteText acceptInviteState = do
     -- A modal dialogue asking for a wormhole code.
     (_, inviteCodeEv) <- elDynAttr' "div" topLevelDynAttrs $ do
@@ -204,8 +202,8 @@ receiveFolderInviteText acceptInviteState = do
                 -- iceCreamCone :: b -> f a -> f b
                 inviteCodeEv = tag (current (_inputElement_value inputEl)) goAheadEv
 
-            pure inviteCodeEv
-            -- pure $ leftmost [Just <$> inviteCodeEv, Nothing <$ (domEvent Click closeButton)]
+            -- pure inviteCodeEv
+            pure $ leftmost [Just <$> inviteCodeEv, Nothing <$ (domEvent Click closeButton)]
 
           pure inviteCodeEv
         pure inviteCodeEv