From 99989bcc8eb47f865f1c256b34c0f59102d815e8 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 7 Mar 2013 14:08:50 -0400
Subject: [PATCH] logic error

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

diff --git a/Assistant/TransferQueue.hs b/Assistant/TransferQueue.hs
index 3f38b37a33..bf2f5f03b2 100644
--- a/Assistant/TransferQueue.hs
+++ b/Assistant/TransferQueue.hs
@@ -129,7 +129,7 @@ enqueue reason schedule t info
 		q <- getAssistant transferQueue
 		liftIO $ atomically $ do
 			l <- readTVar (queuelist q)
-			if (new `elem` l)
+			if (new `notElem` l)
 				then do	
 					void $ modifyTVar' (queuesize q) succ
 					void $ modifyTVar' (queuelist q) modlist