forge/Vervis
1
0
Fork 0
Code Pull requests Activity

S2S: Group: Accept: Fix bug, collab approval wasn't working

Browse source
This commit is contained in:
Pere Lev 2024-03-13 15:35:50 +02:00
parent 1d13d7a551
commit f187c66d69
No known key found for this signature in database
GPG key ID: 5252C5C863E5E57D
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Vervis/Actor/Group.hs
View file

@ -200,7 +200,7 @@ groupAccept now groupID (Verse authorIdMsig body) accept = do
case (collab, acceptDB) of
(Left (fulfillsID, Left recipID), Left (_, _, acceptID)) -> do
maybeAccept <- lift $ insertUnique $ CollabRecipLocalAccept recipID fulfillsID acceptID
unless (isNothing maybeAccept) $
unless (isJust maybeAccept) $
throwE "This Invite already has an Accept by recip"
(Left (fulfillsID, Right recipID), Right (_, _, acceptID)) -> do
maybeAccept <- lift $ insertUnique $ CollabRecipRemoteAccept recipID fulfillsID acceptID