nasty race workaround

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,6 +105,12 @@ onDel st dstatus transferqueue file _ = case parseTransferFile file of
 			, show t
 			]
 		minfo <- removeTransfer dstatus t
+
+		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