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:
voidlizard 2025-08-21 14:26:06 +03:00
parent 789c798e7e
commit 2f28d65e59
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Run.hs
View File

@ -92,9 +92,9 @@ ncqStorageRun ncq@NCQStorage{..} = flip runContT pure do
ema <- readTVarIO ncqWriteEMA
debug $ "EMA" <+> pretty (realToFrac @_ @(Fixed E3) ema)
spawnActivity $ postponed 60 $ forever do
spawnActivity $ postponed 30 $ forever do
lsInit <- ncqLiveKeys ncq <&> HS.size
void $ race (pause @'Seconds 60) do
void $ race (pause @'Seconds 30) do
flip fix lsInit $ \next ls0 -> do
(lsA,lsB) <- atomically do
ema <- readTVar ncqWriteEMA
@ -110,10 +110,10 @@ ncqStorageRun ncq@NCQStorage{..} = flip runContT pure do
ncqSweepFiles ncq
next lsB
spawnActivity $ postponed 10 $ compactLoop 10 60 do
spawnActivity $ postponed 10 $ compactLoop 10 30 do
ncqIndexCompactStep ncq
spawnActivity $ postponed 20 $ compactLoop 10 120 do
spawnActivity $ postponed 20 $ compactLoop 10 60 do
ncqFossilMergeStep ncq
flip fix RunNew $ \loop -> \case