mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

logic error

Browse source
This commit is contained in:
Joey Hess 2012-07-05 14:45:21 -06:00
parent 71b5ad8398
commit 2136ee4adb
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/Threads/Transferrer.hs
View file

@ -53,14 +53,14 @@ transfererThread st dstatus transferqueue = do
shouldtransfer t info = do shouldtransfer t info = do
current <- currentTransfers <$> getDaemonStatus dstatus current <- currentTransfers <$> getDaemonStatus dstatus
if M.member t current if M.member t current
then ifM (validtransfer t) then return False
else ifM (validtransfer t)
( do ( do
adjustTransfers dstatus $ adjustTransfers dstatus $
M.insertWith' const t info M.insertWith' const t info
return True return True
, return False , return False
) )
else return False
validtransfer t validtransfer t
| transferDirection t == Download = | transferDirection t == Download =