forge/Vervis
1
0
Fork 0
Code Pull requests Activity

S2S: Person: Fix bug in Accept{Create} handler

Browse source
This commit is contained in:
Pere Lev 2024-08-08 15:25:27 +03:00
parent 88e96b019e
commit 1c993d3397
No known key found for this signature in database
GPG key ID: 5252C5C863E5E57D
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Vervis/Actor/Person.hs
View file

@ -310,8 +310,8 @@ personAccept now recipPersonID (Verse authorIdMsig body) accept = do
-- Discover Accept.result, before DB access since we might use HTTP -- Discover Accept.result, before DB access since we might use HTTP
maybeRightResult <- maybeRightResult <-
for (AP.acceptResult accept) $ \ luResult -> lift $ runExceptT $ do for (AP.acceptResult accept) $ \ luResult -> lift $ runExceptT $ do
let h = objUriAuthority $ AP.acceptObject accept ObjURI h _ <- lift $ getActorURI authorIdMsig
uResult = ObjURI h luResult let uResult = ObjURI h luResult
routeOrRemote <- parseFedURI uResult routeOrRemote <- parseFedURI uResult
bitraverse bitraverse
(\ route -> do (\ route -> do