diff options
| -rw-r--r-- | Assistant/Threads/TransferWatcher.hs | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/Assistant/Threads/TransferWatcher.hs b/Assistant/Threads/TransferWatcher.hs index d4ff9176e..33f0dacbe 100644 --- a/Assistant/Threads/TransferWatcher.hs +++ b/Assistant/Threads/TransferWatcher.hs @@ -11,6 +11,7 @@ import Assistant.Common import Assistant.ThreadedMonad import Assistant.DaemonStatus import Assistant.TransferQueue +import Annex.Content import Logs.Transfer import Utility.DirWatcher import Utility.Types.DirWatcher @@ -106,11 +107,11 @@ 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 $ - queueTransfersMatching - (/= transferUUID t) - Later transferqueue dstatus - (transferKey t) - (associatedFile info) - Upload + whenM (inAnnex $ transferKey t) $ + queueTransfersMatching + (/= transferUUID t) + Later transferqueue dstatus + (transferKey t) + (associatedFile info) + Upload _ -> noop - |