From 1c993d33970d655564eb79c482733505db8a6e05 Mon Sep 17 00:00:00 2001
From: Pere Lev <pere@towards.vision>
Date: Thu, 8 Aug 2024 15:25:27 +0300
Subject: [PATCH] S2S: Person: Fix bug in Accept{Create} handler

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

diff --git a/src/Vervis/Actor/Person.hs b/src/Vervis/Actor/Person.hs
index 7bb5845..c6d59b6 100644
--- a/src/Vervis/Actor/Person.hs
+++ b/src/Vervis/Actor/Person.hs
@@ -310,8 +310,8 @@ personAccept now recipPersonID (Verse authorIdMsig body) accept = do
     -- Discover Accept.result, before DB access since we might use HTTP
     maybeRightResult <-
         for (AP.acceptResult accept) $ \ luResult -> lift $ runExceptT $ do
-            let h = objUriAuthority $ AP.acceptObject accept
-                uResult = ObjURI h luResult
+            ObjURI h _ <- lift $ getActorURI authorIdMsig
+            let uResult = ObjURI h luResult
             routeOrRemote <- parseFedURI uResult
             bitraverse
                 (\ route -> do