mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

logic error

Browse source
This commit is contained in:
Joey Hess 2013-03-07 14:08:50 -04:00
parent 6e7a43ab61
commit 99989bcc8e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/TransferQueue.hs
View file

@ -129,7 +129,7 @@ enqueue reason schedule t info
q <- getAssistant transferQueue q <- getAssistant transferQueue
liftIO $ atomically $ do liftIO $ atomically $ do
l <- readTVar (queuelist q) l <- readTVar (queuelist q)
if (new `elem` l) if (new `notElem` l)
then do then do
void $ modifyTVar' (queuesize q) succ void $ modifyTVar' (queuesize q) succ
void $ modifyTVar' (queuelist q) modlist void $ modifyTVar' (queuelist q) modlist