voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip, return merge

This commit is contained in:
voidlizard 2025-07-13 08:44:01 +03:00
parent 249f402368
commit 2f77530e60
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-storage-ncq/lib/HBS2/Storage/NCQ2.hs
View File

@ -412,9 +412,7 @@ ncqStorageRun2 ncq@NCQStorage2{..} = flip runContT pure do
mq <- newEmptyTMVarIO
spawnJob $ do
-- TODO: back-to-merge
-- merged <- ncqStorageMergeStep ncq
let merged = True
merged <- ncqStorageMergeStep ncq
atomically $ putTMVar mq merged
-- TODO: detect-dead-merge