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

don't clean up transfer lock file when retrying transfer

Browse source 
This affected callers that used forwardRetry; if the 1st attempt failed it
would clean up the transfer lock before retrying.
This commit is contained in:
Joey Hess 2015-05-12 19:42:09 -04:00
parent 8c2dd7d8ee
commit 7299bbb639
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Annex/Transfer.hs
View file

@ -74,10 +74,8 @@ runTransfer' ignorelock t file shouldretry transferobserver transferaction = do
showNote "transfer already in progress" showNote "transfer already in progress"
return False return False
else do else do
ok <- retry info metervar $ bracketIO ok <- retry info metervar $ transferaction meter
(return lck) liftIO $ cleanup tfile lck
(cleanup tfile)
(const $ transferaction meter)
transferobserver ok t info transferobserver ok t info
return ok return ok
where where