diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-12-07 15:24:28 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-12-07 15:24:28 -0400 |
commit | d467f482d43ed0e9a8068e6df3bff1acaffb087f (patch) | |
tree | 056a8f0d2ecc4e3e8681b702178595f055fe57d2 /P2P | |
parent | 1b20b718fffdbc5c90b7a02e8d389d1fb55c5e47 (diff) |
ReadWriteMode not AppendMode
AppendMode does not allow seeking..
Diffstat (limited to 'P2P')
-rw-r--r-- | P2P/Annex.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/P2P/Annex.hs b/P2P/Annex.hs index daab74447..1ef54de1d 100644 --- a/P2P/Annex.hs +++ b/P2P/Annex.hs @@ -120,7 +120,7 @@ runLocal runmode runner a = case a of -- a client. Client -> ta storefile dest (Offset o) (Len l) b = liftIO $ do - withBinaryFile dest AppendMode $ \h -> do + withBinaryFile dest ReadWriteMode $ \h -> do when (o /= 0) $ hSeek h AbsoluteSeek o L.hPut h b |