diff --git a/src/Vervis/Federation.hs b/src/Vervis/Federation.hs index acf5a61..6cc0df2 100644 --- a/src/Vervis/Federation.hs +++ b/src/Vervis/Federation.hs @@ -1569,7 +1569,7 @@ handleOutboxNote host (Note mluNote luAttrib aud muParent muContext mpublished c prefix = T.concat [ "Outbox POST handler: deliverRemoteHttp obid#" - , T.pack $ show obid + , T.pack $ show $ fromSqlKey obid , ": " ] fork = forkWorker "Outbox POST handler: HTTP delivery"