From 2136ee4adbeba262dcf184e653e1e07acb02a2bd Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 5 Jul 2012 14:45:21 -0600
Subject: logic error

---
 Assistant/Threads/Transferrer.hs | 4 ++--
 1 file 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 =
-- 
cgit v1.2.3