forge/Vervis
1
0
Fork 0
Code Pull requests Activity

S2S: Group: Grant: Fix bug in Grant parsing

Browse source
This commit is contained in:
Pere Lev 2024-05-14 13:41:50 +03:00
parent 6cb1c11141
commit 248ed1f19f
No known key found for this signature in database
GPG key ID: 5252C5C863E5E57D
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1853,9 +1853,9 @@ groupGrant now groupID (Verse authorIdMsig body) grant = do
_ -> False _ -> False
case (role, resourceIsAuthor, usage, mdeleg) of case (role, resourceIsAuthor, usage, mdeleg) of
(AP.RXRole r, True, AP.GatherAndConvey, Nothing) -> (AP.RXRole r, True, AP.Distribute, Nothing) ->
pure $ GKDelegationStart r pure $ GKDelegationStart r
(AP.RXRole r, False, AP.GatherAndConvey, Just _) -> (AP.RXRole r, False, AP.Distribute, Just _) ->
pure $ GKDelegationExtend r resource pure $ GKDelegationExtend r resource
(AP.RXDelegator, True, AP.Invoke, Nothing) -> (AP.RXDelegator, True, AP.Invoke, Nothing) ->
pure GKDelegator pure GKDelegator