turns out this was fixed in 2014
This commit is contained in:
parent
2f96e15eda
commit
4d063f12c6
2 changed files with 11 additions and 0 deletions
|
@ -120,6 +120,10 @@ storeChunks
|
|||
-> Annex ()
|
||||
storeChunks u chunkconfig encryptor k f p storer checker =
|
||||
case chunkconfig of
|
||||
-- Only stable keys are safe to store chunked,
|
||||
-- because an unstable key can have multiple different
|
||||
-- objects, and mixing up chunks from them would be
|
||||
-- possible without this check.
|
||||
(UnpaddedChunks chunksize) -> ifM (isStableKey k)
|
||||
( do
|
||||
h <- liftIO $ openBinaryFile f ReadMode
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue