From 1f4fe92f61726db1ac391c77f0019e4e67f79607 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 2 Apr 2013 16:04:49 -0400 Subject: [PATCH] avoid queuing transfer that is already queued, with a different associated file --- Assistant/TransferQueue.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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