don't queue uploads for failed downloads
This commit is contained in:
parent
d77ff5dadd
commit
364b40e5fc
1 changed files with 8 additions and 7 deletions
|
@ -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
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue