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) )