From 4a107951442f30354fa90b0b31200a9fdc86ffca Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 6 Jul 2012 15:07:42 -0600 Subject: [PATCH] logic error --- Assistant/Threads/Transferrer.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index 2d01855b4c..5bc47cfa67 100644 --- a/Assistant/Threads/Transferrer.hs +++ b/Assistant/Threads/Transferrer.hs @@ -41,7 +41,7 @@ shouldTransfer dstatus t = go =<< currentTransfers <$> getDaemonStatus dstatus go m | M.member t m = return False | transferDirection t == Download = - inAnnex $ transferKey t + not <$> inAnnex (transferKey t) | otherwise = return True {- Waits for any of the transfers in the map to complete. -}