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

wip

This commit is contained in:
Dmitry Zuikov 2023-01-25 13:37:10 +03:00
parent f0c4756b11
commit 25f857f889
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -53,8 +53,8 @@ main = do
psz' <- shuffleM psz psz' <- shuffleM psz
-- psz' <- pure psz -- psz' <- pure psz
-- forConcurrently_ psz' $ \(o,s) -> do forConcurrently_ psz' $ \(o,s) -> do
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
writeChunk cw 1 hash (fromIntegral o) t writeChunk cw 1 hash (fromIntegral o) t