summaryrefslogtreecommitdiff
path: root/Logs/Transfer.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Logs/Transfer.hs')
-rw-r--r--Logs/Transfer.hs2
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