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

open file for append, not write, so resuming works

Browse source 
WriteMode zeros any existing content, so the seek filled with zeros, and
verification failed after download.
This commit is contained in:
Joey Hess 2016-12-07 15:06:07 -04:00
parent b55399e3ac
commit 99c36f318c
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
P2P/Annex.hs
View file

@ -120,7 +120,7 @@ runLocal runmode runner a = case a of
-- a client. -- a client.
Client -> ta Client -> ta
storefile dest (Offset o) (Len l) b = liftIO $ do storefile dest (Offset o) (Len l) b = liftIO $ do
withBinaryFile dest WriteMode $ \h -> do withBinaryFile dest AppendMode $ \h -> do
when (o /= 0) $ when (o /= 0) $
hSeek h AbsoluteSeek o hSeek h AbsoluteSeek o
L.hPut h b L.hPut h b