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

wip, not good

This commit is contained in:
voidlizard 2025-01-01 12:53:56 +03:00
parent 50fd755dee
commit 58a69f9970
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-git3/app/Main.hs
View File

@ -709,7 +709,7 @@ theDict = do
already_ <- newTVarIO (mempty :: HashSet GitHash) already_ <- newTVarIO (mempty :: HashSet GitHash)
for_ hashes $ \h -> do for_ hashes $ \h -> do
forConcurrently_ mmaped $ \bs -> do for_ mmaped $ \bs -> do
here <- readTVarIO already_ <&> HS.member h here <- readTVarIO already_ <&> HS.member h
unless here do unless here do
found <- binarySearchBS 56 ( BS.take 20 . BS.drop 4 ) (coerce h) bs found <- binarySearchBS 56 ( BS.take 20 . BS.drop 4 ) (coerce h) bs