mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

don't queue uploads for failed downloads

Browse source
This commit is contained in:
Joey Hess 2012-09-24 13:16:08 -04:00
parent d77ff5dadd
commit 364b40e5fc
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Assistant/Threads/TransferWatcher.hs
View file

@ -11,6 +11,7 @@ import Assistant.Common
import Assistant.ThreadedMonad import Assistant.ThreadedMonad
import Assistant.DaemonStatus import Assistant.DaemonStatus
import Assistant.TransferQueue import Assistant.TransferQueue
import Annex.Content
import Logs.Transfer import Logs.Transfer
import Utility.DirWatcher import Utility.DirWatcher
import Utility.Types.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. -} - spreading them out to other reachable remotes. -}
case (minfo, transferDirection t) of case (minfo, transferDirection t) of
(Just info, Download) -> runThreadState st $ (Just info, Download) -> runThreadState st $
queueTransfersMatching whenM (inAnnex $ transferKey t) $
(/= transferUUID t) queueTransfersMatching
Later transferqueue dstatus (/= transferUUID t)
(transferKey t) Later transferqueue dstatus
(associatedFile info) (transferKey t)
Upload (associatedFile info)
Upload
_ -> noop _ -> noop