Client: Add some debugging messages, clientInvite failing for remote resource

src/Vervis/API.hs

@@ -1,6 +1,7 @@
 {- 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.
  -
@@ -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

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