diff options
Diffstat (limited to 'Assistant/Threads/TransferWatcher.hs')
| -rw-r--r-- | Assistant/Threads/TransferWatcher.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/Assistant/Threads/TransferWatcher.hs b/Assistant/Threads/TransferWatcher.hs index e82e4fb08..168ff2688 100644 --- a/Assistant/Threads/TransferWatcher.hs +++ b/Assistant/Threads/TransferWatcher.hs @@ -18,6 +18,8 @@ import Utility.DirWatcher import Utility.Types.DirWatcher import qualified Remote +import Control.Concurrent + thisThread :: ThreadName thisThread = "TransferWatcher" @@ -103,7 +105,13 @@ onDel st dstatus transferqueue file _ = case parseTransferFile file of , show t ] minfo <- removeTransfer dstatus t - finishedTransfer st dstatus transferqueue t minfo + + void $ forkIO $ do + {- XXX race workaround delay. The location + - log needs to be updated before finishedTransfer + - runs. -} + threadDelay 10000000 -- 10 seconds + finishedTransfer st dstatus transferqueue t minfo {- Queue uploads of files we successfully downloaded, spreading them - out to other reachable remotes. |