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

ReadWriteMode not AppendMode

Browse source 
AppendMode does not allow seeking..
This commit is contained in:
Joey Hess 2016-12-07 15:24:28 -04:00
parent 76b46afed1
commit db79b69aa0
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
1 changed files with 1 additions and 1 deletions
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 AppendMode $ \h -> do withBinaryFile dest ReadWriteMode $ \h -> do
when (o /= 0) $ when (o /= 0) $
hSeek h AbsoluteSeek o hSeek h AbsoluteSeek o
L.hPut h b L.hPut h b