diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-06 15:07:42 -0600 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-06 15:07:42 -0600 |
| commit | 4a107951442f30354fa90b0b31200a9fdc86ffca (patch) | |
| tree | 1b96e04e887012b2f90ed40d7f2f6b05bfcec60c | |
| parent | 3d30a45e72418927d55a31a4d3d7aa5cf0c5c365 (diff) | |
logic error
| -rw-r--r-- | Assistant/Threads/Transferrer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index 2d01855b4..5bc47cfa6 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. -} |