dont send feed files with badge proofs

This commit is contained in:
Evgeny @ SimpleX Chat
2026-09-12 14:08:27 +00:00
parent f00a38846e
commit 2d45b62589
2 changed files with 5 additions and 5 deletions
+3 -3
View File
@@ -782,9 +782,9 @@ processChatCommand cxt nm = \case
startFeedWorkers feedId
pure $ CRNewChatItems user [aFeedItem feed ci]
where
setupSndFileTransfer user@User {profile = LocalProfile {localBadge}} feed = forM file_ $ \file -> do
fileSize <- checkSndFile localBadge file
(fInv, ciFile, _) <- xftpSndFileTransfer_ user file fileSize 1 (Just $ CGFeed feed)
setupSndFileTransfer user feed = forM file_ $ \file -> do
fileSize <- checkSndFile Nothing file
(fInv, ciFile, _) <- xftpSndFileTransfer_ user file fileSize 1 (Just $ CGFeed feed) Nothing
pure (fInv, ciFile)
unzipMaybe :: Maybe (a, b) -> (Maybe a, Maybe b)
unzipMaybe = maybe (Nothing, Nothing) (\(a, b) -> (Just a, Just b))
+2 -2
View File
@@ -285,8 +285,8 @@ processAgentMsgSndFile _corrId aFileId msg = do
(rfd : _, _, SMDSnd, FeedChat feed@Feed {feedId}) -> do
let feedItemId = fileItemId
partSize <- asks $ xftpDescrPartSize . config
let parts = splitFileDescr partSize (fileDescrText rfd)
events = L.map (\fileDescr -> XMsgFileDescr {msgId = sharedMsgId, fileDescr, fileExpires, feed = Just True}) parts
let parts = splitFileDescr partSize partSize (fileDescrText rfd)
events = L.map (\fileDescr -> XMsgFileDescr {msgId = sharedMsgId, fileDescr, fileExpires, fileBadge = Nothing, feed = Just True}) parts
createFeedFileDescrJobs feed feedItemId events
startFeedWorkers feedId
ci' <- withStore $ \db -> do