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