From 93b7164f8c329da2ed86444f7c02b4219748773e Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Fri, 27 Jan 2023 09:20:23 +0300
Subject: [PATCH] faster writer

---
 hbs2-tests/test/TestChunkWriter.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/hbs2-tests/test/TestChunkWriter.hs b/hbs2-tests/test/TestChunkWriter.hs
index c1fe9220..a0322351 100644
--- a/hbs2-tests/test/TestChunkWriter.hs
+++ b/hbs2-tests/test/TestChunkWriter.hs
@@ -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