voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

faster writer

This commit is contained in:
Dmitry Zuikov 2023-01-27 09:20:23 +03:00
parent d046ae0bc7
commit 93b7164f8c
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hbs2-tests/test/TestChunkWriter.hs
View File

@ -67,8 +67,7 @@ main = do
let psz = calcChunks (fromIntegral size) (fromIntegral chu) let psz = calcChunks (fromIntegral size) (fromIntegral chu)
psz' <- pure psz psz' <- shuffleM psz
-- psz' <- shuffleM psz
forM_ psz' $ \(o,s) -> do forM_ psz' $ \(o,s) -> do
let t = B8.take s $ B8.drop o bytes let t = B8.take s $ B8.drop o bytes