logic error

This commit is contained in:
Joey Hess 2012-07-06 15:07:42 -06:00
parent 3d30a45e72
commit 4a10795144

View file

@ -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. -}