Skip to content
Snippets Groups Projects
Commit 604ca8bc authored by Jean-Paul Calderone's avatar Jean-Paul Calderone
Browse files

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

71.refresh magic folder list

Closes #71

See merge request !65
parents 05afdfe0 65453b85
Branches
Tags
1 merge request!6571.refresh magic folder list
Pipeline #4969 passed
......@@ -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
]
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment