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

View File

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