Merge branch '71.refresh-magic-folder-list' into 'main'

71.refresh magic folder list

Closes #71

See merge request !65

obelisk/frontend/src/Pages/MagicFolders.hs

@@ -120,12 +120,14 @@ magicFolders foldersDyn updateFolders = do
           (cancelInvite, submitInviteCode) = fanEither submitEitherInviteCode
 
         inviteCompleted <- performEventInThread $ ffor submitInviteCode $
-          \code -> doWormholeInvite code >> updateFolders <$> loadMagicFolders
+          \code -> do
+            void $ doWormholeInvite code
+            loadMagicFolders >>= updateFolders
 
         let inviteEvents = [
               EnteringCode <$ domEvent Click add,
               ReceivingInvite <$ submitInviteCode,
-              InviteFinished <$ inviteCompleted,
+              NotAccepting <$ inviteCompleted,
               NotAccepting <$ cancelInvite
               ]