diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-05 14:45:21 -0600 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-05 14:45:21 -0600 |
| commit | 2136ee4adbeba262dcf184e653e1e07acb02a2bd (patch) | |
| tree | bde3cd4c4a3fc698c81f5a52a7196528863dd98f | |
| parent | 71b5ad8398c4d86d5e9b993e175b48f2c5f0861d (diff) | |
logic error
| -rw-r--r-- | Assistant/Threads/Transferrer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index 0562a607c..29cc393f2 100644 --- a/Assistant/Threads/Transferrer.hs +++ b/Assistant/Threads/Transferrer.hs @@ -53,14 +53,14 @@ transfererThread st dstatus transferqueue = do shouldtransfer t info = do current <- currentTransfers <$> getDaemonStatus dstatus if M.member t current - then ifM (validtransfer t) + then return False + else ifM (validtransfer t) ( do adjustTransfers dstatus $ M.insertWith' const t info return True , return False ) - else return False validtransfer t | transferDirection t == Download = |