This commit is contained in:
spaced4ndy
2023-04-21 19:28:33 +04:00
parent d6df82f7cc
commit 85ef413e2e
+1 -1
View File
@@ -198,7 +198,7 @@ runXFTPRcvWorker c srv doWork = do
atomically $ assertAgentForeground c
loop
retryDone e = do
withStore' c (`deleteSndFileReplica` rcvChunkReplicaId)
withStore' c (`deleteRcvFileReplica` rcvChunkReplicaId)
rcvWorkerInternalError c rcvFileId rcvFileEntityId (Just fileTmpPath) (show e)
downloadFileChunk :: RcvFileChunk -> RcvFileChunkReplica -> m ()
downloadFileChunk RcvFileChunk {userId, rcvFileId, rcvFileEntityId, rcvChunkId, chunkNo, chunkSize, digest, fileTmpPath} replica = do