diff options
Diffstat (limited to 'P2P/Annex.hs')
| -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 4105abe32..daab74447 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 WriteMode $ \h -> do + withBinaryFile dest AppendMode $ \h -> do when (o /= 0) $ hSeek h AbsoluteSeek o L.hPut h b |