From 46e49fa823ee403789ec23759d49c1f528a3cebf Mon Sep 17 00:00:00 2001 From: Evgeny Poberezkin Date: Tue, 19 Mar 2024 13:52:07 +0000 Subject: [PATCH] xftp: return OK on duplicate upload attempt --- src/Simplex/FileTransfer/Server.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Simplex/FileTransfer/Server.hs b/src/Simplex/FileTransfer/Server.hs index a58733904..71cfcd0ea 100644 --- a/src/Simplex/FileTransfer/Server.hs +++ b/src/Simplex/FileTransfer/Server.hs @@ -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