diff --git a/src/Simplex/Chat/Library/Commands.hs b/src/Simplex/Chat/Library/Commands.hs index 6e14f1dcab..9d571a1978 100644 --- a/src/Simplex/Chat/Library/Commands.hs +++ b/src/Simplex/Chat/Library/Commands.hs @@ -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)) diff --git a/src/Simplex/Chat/Library/Subscriber.hs b/src/Simplex/Chat/Library/Subscriber.hs index 7da7214a63..860dc53f9f 100644 --- a/src/Simplex/Chat/Library/Subscriber.hs +++ b/src/Simplex/Chat/Library/Subscriber.hs @@ -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