From 58a69f9970270b6327fa8b6a2ff917da786050bc Mon Sep 17 00:00:00 2001 From: voidlizard Date: Wed, 1 Jan 2025 12:53:56 +0300 Subject: [PATCH] wip, not good --- hbs2-git3/app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-git3/app/Main.hs b/hbs2-git3/app/Main.hs index 78747d78..1b83d14c 100644 --- a/hbs2-git3/app/Main.hs +++ b/hbs2-git3/app/Main.hs @@ -709,7 +709,7 @@ theDict = do already_ <- newTVarIO (mempty :: HashSet GitHash) for_ hashes $ \h -> do - forConcurrently_ mmaped $ \bs -> do + for_ mmaped $ \bs -> do here <- readTVarIO already_ <&> HS.member h unless here do found <- binarySearchBS 56 ( BS.take 20 . BS.drop 4 ) (coerce h) bs