don't queue uploads for failed downloads

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
-