diff --git a/src/Vervis/API.hs b/src/Vervis/API.hs index 895c169..1b0aa48 100644 --- a/src/Vervis/API.hs +++ b/src/Vervis/API.hs @@ -1,6 +1,7 @@ {- This file is part of Vervis. - - - Written in 2019, 2020, 2022, 2023 by fr33domlover . + - Written in 2019, 2020, 2022, 2023, 2024 + - by fr33domlover . - - ♡ Copying is an act of love. Please copy, reuse and share. - @@ -153,6 +154,13 @@ handleViaActor personID maybeCap localRecips remoteRecips fwdHosts action = do Nothing -> error "Person not found in theater" Just (Left e) -> throwE e Just (Right t) -> return t + logDebug $ T.concat + [ "handleViaActor: Submitting activity to ", T.pack $ show personID + --, "\n localRecips=", T.pack $ show localRecips + , "\n remoteRecips=", T.pack $ show remoteRecips + , "\n fwdHosts=", T.pack $ show fwdHosts + --, "\n action=", T.pack $ show action + ] case readMaybe $ T.unpack itemText of Nothing -> error "read itemText failed" Just outboxItemID -> return outboxItemID diff --git a/src/Vervis/Actor/Person/Client.hs b/src/Vervis/Actor/Person/Client.hs index 144488c..23c95a0 100644 --- a/src/Vervis/Actor/Person/Client.hs +++ b/src/Vervis/Actor/Person/Client.hs @@ -121,7 +121,7 @@ verifyComponentAddressed localRecips component = do verifyRemoteAddressed :: [(Host, NonEmpty LocalURI)] -> FedURI -> ActE () verifyRemoteAddressed remoteRecips u = - fromMaybeE (verify u) "Given remote entity not addressed" + fromMaybeE (verify u) $ "Remote entity not addressed: " <> renderObjURI u where verify (ObjURI h lu) = do lus <- lookup h remoteRecips