Client: Add some debugging messages, clientInvite failing for remote resource
This commit is contained in:
parent
5dadc13cce
commit
78ec76d571
2 changed files with 10 additions and 2 deletions
|
@ -1,6 +1,7 @@
|
||||||
{- This file is part of Vervis.
|
{- This file is part of Vervis.
|
||||||
-
|
-
|
||||||
- Written in 2019, 2020, 2022, 2023 by fr33domlover <fr33domlover@riseup.net>.
|
- Written in 2019, 2020, 2022, 2023, 2024
|
||||||
|
- by fr33domlover <fr33domlover@riseup.net>.
|
||||||
-
|
-
|
||||||
- ♡ Copying is an act of love. Please copy, reuse and share.
|
- ♡ 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"
|
Nothing -> error "Person not found in theater"
|
||||||
Just (Left e) -> throwE e
|
Just (Left e) -> throwE e
|
||||||
Just (Right t) -> return t
|
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
|
case readMaybe $ T.unpack itemText of
|
||||||
Nothing -> error "read itemText failed"
|
Nothing -> error "read itemText failed"
|
||||||
Just outboxItemID -> return outboxItemID
|
Just outboxItemID -> return outboxItemID
|
||||||
|
|
|
@ -121,7 +121,7 @@ verifyComponentAddressed localRecips component = do
|
||||||
|
|
||||||
verifyRemoteAddressed :: [(Host, NonEmpty LocalURI)] -> FedURI -> ActE ()
|
verifyRemoteAddressed :: [(Host, NonEmpty LocalURI)] -> FedURI -> ActE ()
|
||||||
verifyRemoteAddressed remoteRecips u =
|
verifyRemoteAddressed remoteRecips u =
|
||||||
fromMaybeE (verify u) "Given remote entity not addressed"
|
fromMaybeE (verify u) $ "Remote entity not addressed: " <> renderObjURI u
|
||||||
where
|
where
|
||||||
verify (ObjURI h lu) = do
|
verify (ObjURI h lu) = do
|
||||||
lus <- lookup h remoteRecips
|
lus <- lookup h remoteRecips
|
||||||
|
|
Loading…
Reference in a new issue