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

diff --git a/Assistant/TransferQueue.hs b/Assistant/TransferQueue.hs
index 5f68ba6284a858632cd98e3eee23cded9b4efbc0..0afe3cb19de6e1aac82d190363add242822ed123 100644 (file)
--- 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