diff options
author | Joey Hess <joey@kitenet.net> | 2013-05-25 15:22:18 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-05-25 15:22:18 -0400 |
commit | 770ab040c32ff0f75c54e1975bf784b116c8d584 (patch) | |
tree | cb464beda71e178478f89cc08eea7146e58e3712 /Logs | |
parent | 4fe58c77f75a5878030df85c75955c94e2e24f88 (diff) | |
parent | f9a9ee1f739843b0b7c12a620d7adb55939bacbc (diff) |
Merge branch 'robustness'
Diffstat (limited to 'Logs')
-rw-r--r-- | Logs/Transfer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs index 6f28ef115..47c6e7495 100644 --- a/Logs/Transfer.hs +++ b/Logs/Transfer.hs @@ -119,7 +119,7 @@ runTransfer t file shouldretry a = do mode <- annexFileMode fd <- liftIO $ prep tfile mode info ok <- retry info metervar $ - bracketIO (return fd) (cleanup tfile) (a meter) + bracketIO (return fd) (cleanup tfile) (const $ a meter) unless ok $ recordFailedTransfer t info return ok where |