From ec8571ee6d5484dd32f93bf0cebeb2983723d4fb Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 2 Apr 2013 16:04:49 -0400
Subject: avoid queuing transfer that is already queued, with a different
 associated file

---
 Assistant/TransferQueue.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Assistant/TransferQueue.hs')

diff --git a/Assistant/TransferQueue.hs b/Assistant/TransferQueue.hs
index 5f68ba628..0afe3cb19 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
-- 
cgit v1.2.3