From 248ed1f19f2f0b9e5cec980f24fe7a4529f2ced0 Mon Sep 17 00:00:00 2001
From: Pere Lev <pere@towards.vision>
Date: Tue, 14 May 2024 13:41:50 +0300
Subject: [PATCH] S2S: Group: Grant: Fix bug in Grant parsing

---
 src/Vervis/Actor/Group.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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