diff options
author | 2012-09-18 14:24:51 -0400 | |
---|---|---|
committer | 2012-09-18 14:24:51 -0400 | |
commit | 9f05d19108f8a35c83c9a5075783b68f203e756f (patch) | |
tree | ac11c1210dbfe9d6b80f8d73b2241197e67f4611 /Assistant/Threads/TransferWatcher.hs | |
parent | 3a0cffcfed4e6824b0771ce69f70095a4e3b9917 (diff) |
avoid sending uploads right back to where the download came from
Just an optimisation.
Diffstat (limited to 'Assistant/Threads/TransferWatcher.hs')
-rw-r--r-- | Assistant/Threads/TransferWatcher.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Assistant/Threads/TransferWatcher.hs b/Assistant/Threads/TransferWatcher.hs index e62e3db3a..ce0708a91 100644 --- a/Assistant/Threads/TransferWatcher.hs +++ b/Assistant/Threads/TransferWatcher.hs @@ -86,7 +86,9 @@ onDel st dstatus transferqueue file _ = case parseTransferFile file of - spreading them out to other reachable remotes. -} case (minfo, transferDirection t) of (Just info, Download) -> runThreadState st $ - queueTransfers Later transferqueue dstatus + queueTransfersMatching + (/= transferUUID t) + Later transferqueue dstatus (transferKey t) (associatedFile info) Upload |