aboutsummaryrefslogtreecommitdiff
path: root/P2P
diff options
context:
space:
mode:
Diffstat (limited to 'P2P')
-rw-r--r--P2P/Annex.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/P2P/Annex.hs b/P2P/Annex.hs
index 1ef54de1d..7e07038d3 100644
--- a/P2P/Annex.hs
+++ b/P2P/Annex.hs
@@ -125,4 +125,4 @@ runLocal runmode runner a = case a of
hSeek h AbsoluteSeek o
L.hPut h b
sz <- getFileSize dest
- return (toInteger sz == l)
+ return (toInteger sz == l + o)