From acc42896f5717b8988138a7d90a92178b6c02206 Mon Sep 17 00:00:00 2001 From: Pere Lev Date: Tue, 19 Mar 2024 11:39:05 +0200 Subject: [PATCH] C2S: Add: Fix bug in addressing verification --- src/Vervis/Actor/Person/Client.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Vervis/Actor/Person/Client.hs b/src/Vervis/Actor/Person/Client.hs index ca7595a..67a754a 100644 --- a/src/Vervis/Actor/Person/Client.hs +++ b/src/Vervis/Actor/Person/Client.hs @@ -238,7 +238,7 @@ clientAccept now personMeID (ClientMsg maybeCap localRecips remoteRecips fwdHost -- * Verify that a capability is specified -- * If C is local, verify it exists in DB -- * If P is local, verify it exists in DB --- * Verify C and P are addressed in the Invite +-- * Verify C and P are addressed in the Add -- * Insert Add to my inbox -- * Asynchrnously deliver to: -- * C+followers @@ -275,7 +275,7 @@ clientAdd now personMeID (ClientMsg maybeCap localRecips remoteRecips fwdHosts a fetchRemoteResource instanceID h lu case result of Left (Entity actorID actor) -> - return (remoteActorIdent actor, actorID, u) + return (remoteActorIdent actor, actorID, ObjURI h lu) Right (objectID, luManager, (Entity actorID _)) -> return (objectID, actorID, ObjURI h luManager) )