diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-07 14:08:50 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-07 14:08:50 -0400 |
| commit | f5ea4c06dab676f958691652153ef3ca461f6718 (patch) | |
| tree | 1388a2226b73da695286337ae0fc0bb8a922f7eb | |
| parent | 00f0c51990dedd39bb8ac89c04eb7f43a88726a5 (diff) | |
logic error
| -rw-r--r-- | Assistant/TransferQueue.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/TransferQueue.hs b/Assistant/TransferQueue.hs index 3f38b37a3..bf2f5f03b 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 |