From 2f77530e6033eddcc2f4b4158198ee044ca45322 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Sun, 13 Jul 2025 08:44:01 +0300 Subject: [PATCH] wip, return merge --- hbs2-storage-ncq/lib/HBS2/Storage/NCQ2.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ2.hs b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ2.hs index a22f9e78..64f21561 100644 --- a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ2.hs +++ b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ2.hs @@ -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