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

wip, idx compact debug

This commit is contained in:
voidlizard 2025-08-23 19:37:14 +03:00
parent 4897fb4efa
commit 4e89506788
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hbs2-storage-ncq/lib/HBS2/Storage/NCQ3/Internal/Index.hs
View File

@ -165,6 +165,9 @@ ncqIndexCompactStep me@NCQStorage{..} = flip runContT pure $ callCC \exit -> do
r' <- lift $ ncqFindMinPairOf me idx r' <- lift $ ncqFindMinPairOf me idx
debug $ "ncqIndexCompactStep " <+> pretty idx
debug $ "ncqIndexCompactStep found pair" <+> pretty r'
(_, a, b) <- ContT $ maybe1 r' (pure False) (_, a, b) <- ContT $ maybe1 r' (pure False)
let idx1Name = ncqGetFileName me a let idx1Name = ncqGetFileName me a