diff --git a/src/Vervis/Actor/Group.hs b/src/Vervis/Actor/Group.hs index 6fd045c..f3cad47 100644 --- a/src/Vervis/Actor/Group.hs +++ b/src/Vervis/Actor/Group.hs @@ -1853,9 +1853,9 @@ groupGrant now groupID (Verse authorIdMsig body) grant = do _ -> False case (role, resourceIsAuthor, usage, mdeleg) of - (AP.RXRole r, True, AP.GatherAndConvey, Nothing) -> + (AP.RXRole r, True, AP.Distribute, Nothing) -> pure $ GKDelegationStart r - (AP.RXRole r, False, AP.GatherAndConvey, Just _) -> + (AP.RXRole r, False, AP.Distribute, Just _) -> pure $ GKDelegationExtend r resource (AP.RXDelegator, True, AP.Invoke, Nothing) -> pure GKDelegator