summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-04-02 16:04:49 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-04-02 16:04:49 -0400
commitec8571ee6d5484dd32f93bf0cebeb2983723d4fb (patch)
treeac9bb1c497899b861fb2829d9a5074e5645cf46b /Assistant
parent0367b5e8318b47d0cb86610034d63919d174ff3a (diff)
avoid queuing transfer that is already queued, with a different associated file
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/TransferQueue.hs2
1 files changed, 1 insertions, 1 deletions
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