diff --git a/src/Vervis/Federation/Discussion.hs b/src/Vervis/Federation/Discussion.hs index 22a097d..a1a92a7 100644 --- a/src/Vervis/Federation/Discussion.hs +++ b/src/Vervis/Federation/Discussion.hs @@ -288,7 +288,14 @@ sharerCreateNoteF now shrRecip author body note = do ] remoteRecips <- insertRemoteActivityToLocalInboxes False ractid $ localRecipSieve' sieve False False localRecips (sig,) <$> deliverRemoteDB_S (actbBL body) ractid sid sig remoteRecips - else return $ Left "Context is a sharer-ticket of another sharer" + else do + let did = localTicketDiscuss lt + _ <- traverse (getParent did) mparent + mractid <- lift $ insertToInbox now author body ibid luCreate True + return $ Left $ + case mractid of + Nothing -> "Context is a sharer-ticket of another sharer, and I already have this activity in my inbox, doing nothing" + Just _ -> "Context is a sharer-ticket of another sharer, just storing in my inbox" case mremotesHttp of Left msg -> return msg Right (sig, remotesHttp) -> do