From c5dd315ab56084577eb5a0ca50c848c449a5ab74 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Mon, 9 Jun 2025 10:12:33 +0300
Subject: [PATCH] wip, storage tuning

---
 hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs
index c8a71b9d..bf57bd8f 100644
--- a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs
+++ b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs
@@ -1266,7 +1266,7 @@ ncqStorageInit_ check path = do
   let ncqQLen            = 32000
   let ncqSyncSize        = 32   * (1024 ^ 2)
   let ncqMinLog          = 1024 * (1024 ^ 2)
-  let ncqMaxSegments     = 64
+  let ncqMaxSegments     = 16
   let ncqCompactTreshold = 128  * 1024^2
 
   let ncqMaxCached = 128