From: Joey Hess <joey@kitenet.net>
Date: Tue, 2 Apr 2013 20:04:49 +0000 (-0400)
Subject: avoid queuing transfer that is already queued, with a different associated file
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~4596
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=1f4fe92f61726db1ac391c77f0019e4e67f79607;p=git-annex.git

avoid queuing transfer that is already queued, with a different associated file
---

diff --git a/Assistant/TransferQueue.hs b/Assistant/TransferQueue.hs
index 5f68ba6284..0afe3cb19d 100644
--- a/Assistant/TransferQueue.hs
+++ b/Assistant/TransferQueue.hs
@@ -138,7 +138,7 @@ enqueue reason schedule t info
 		q <- getAssistant transferQueue
 		liftIO $ atomically $ do
 			l <- readTVar (queuelist q)
-			if (new `notElem` l)
+			if (t `notElem` map fst l)
 				then do	
 					void $ modifyTVar' (queuesize q) succ
 					void $ modifyTVar' (queuelist q) modlist