diff options
| -rw-r--r-- | Annex/Transfer.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Annex/Transfer.hs b/Annex/Transfer.hs index 14a888620..d8f19eb8d 100644 --- a/Annex/Transfer.hs +++ b/Annex/Transfer.hs @@ -74,10 +74,8 @@ runTransfer' ignorelock t file shouldretry transferobserver transferaction = do showNote "transfer already in progress" return False else do - ok <- retry info metervar $ bracketIO - (return lck) - (cleanup tfile) - (const $ transferaction meter) + ok <- retry info metervar $ transferaction meter + liftIO $ cleanup tfile lck transferobserver ok t info return ok where |