dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-04-03 00:36:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

xftp: return OK on duplicate upload attempt

Browse Source
This commit is contained in:
Evgeny Poberezkin
2024-03-19 13:52:07 +00:00
parent db3bddecca
commit 46e49fa823
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Simplex/FileTransfer/Server.hs
View File

@@ -377,7 +377,7 @@ processXFTPRequest HTTP2Body {bodyPart} = \case
t <- asks $ fileTimeout . config
liftIO $ fromMaybe (Left TIMEOUT) <$> timeout t (runExceptT (receiveFile getBody spec) `catchAll_` pure (Left FILE_IO))
where
checkDuplicate = ifM (isJust <$> readTVarIO filePath) (pure $ FRErr DUPLICATE_)
checkDuplicate = ifM (isJust <$> readTVarIO filePath) (pure FROk)
sendServerFile :: FileRec -> RcvPublicDhKey -> M (FileResponse, Maybe ServerFile)
sendServerFile FileRec {senderId, filePath, fileInfo = FileInfo {size}} rDhKey = do
readTVarIO filePath >>= \case