From e4a7e56c7f809b5101f3497c24e1545cf3b99de7 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Sat, 23 Aug 2025 22:34:51 +0300 Subject: [PATCH] wip --- hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal.hs | 2 +- hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal.hs b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal.hs index 8d487cc5..dc302bb3 100644 --- a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal.hs +++ b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal.hs @@ -33,7 +33,7 @@ ncqStorageOpen fp upd = do let ncqFsync = 16 * megabytes let ncqWriteQLen = 1024 * 4 let ncqMinLog = 512 * megabytes - let ncqMaxLog = 32 * gigabytes + let ncqMaxLog = 4 * gigabytes let ncqWriteBlock = max 256 $ ncqWriteQLen `div` 2 let ncqMaxCachedIndex = 64 let ncqMaxCachedData = 64 diff --git a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs index a50702ca..332984aa 100644 --- a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs +++ b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs @@ -206,9 +206,9 @@ ncqIndexCompactStep me@NCQStorage{..} = flip runContT pure $ callCC \exit -> do debug $ "state update" <+> pretty a <+> pretty b <+> "=>" <+> pretty fki ncqStateUpdate me do + ncqStateAddIndexFile ts fki ncqStateDelIndexFile (coerce a) ncqStateDelIndexFile (coerce b) - ncqStateAddIndexFile ts fki pure True