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

ncqCompact

This commit is contained in:
voidlizard 2025-05-29 11:44:28 +03:00
parent f4f2b26be6
commit 25ceea216e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs
View File

@ -1617,7 +1617,7 @@ ncqCompact ncq@NCQStorage{..} = do
state0 <- readTVarIO q state0 <- readTVarIO q
for_ (HM.toList state0) $ \(fk, es) -> do for_ (HM.toList state0) $ \(fk, es) -> do
notice $ "TO DELETE" <+> pretty fk <+> pretty (HS.size es) trace $ "TO DELETE" <+> pretty fk <+> pretty (HS.size es)
let fDataNameA = ncqGetDataFileName ncq fk let fDataNameA = ncqGetDataFileName ncq fk
let fIndexNameA = ncqGetIndexFileName ncq fk let fIndexNameA = ncqGetIndexFileName ncq fk