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

wip, minor optimization

This commit is contained in:
voidlizard 2025-07-11 14:38:40 +03:00
parent 2219171ca8
commit 9b123448f4
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/NCQ2.hs
View File

@ -279,7 +279,7 @@ ncqLocate2 ncq@NCQStorage2{..} href = flip runContT pure $ callCC \exit -> do
lift (ncqLookupEntry ncq href) >>= maybe none (exit . Just . InMemory . coerce) lift (ncqLookupEntry ncq href) >>= maybe none (exit . Just . InMemory . coerce)
atomically $ modifyTVar' ncqWrites succ -- atomically $ modifyTVar' ncqWrites succ
tracked <- readTVarIO ncqTrackedFiles <&> HPSQ.toList tracked <- readTVarIO ncqTrackedFiles <&> HPSQ.toList