From 9b123448f4f78d52d2482dfa2460be7dca52560d Mon Sep 17 00:00:00 2001 From: voidlizard Date: Fri, 11 Jul 2025 14:38:40 +0300 Subject: [PATCH] wip, minor optimization --- hbs2-storage-ncq/lib/HBS2/Storage/NCQ2.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ2.hs b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ2.hs index 157d4718..5829b6e0 100644 --- a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ2.hs +++ b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ2.hs @@ -279,7 +279,7 @@ ncqLocate2 ncq@NCQStorage2{..} href = flip runContT pure $ callCC \exit -> do lift (ncqLookupEntry ncq href) >>= maybe none (exit . Just . InMemory . coerce) - atomically $ modifyTVar' ncqWrites succ + -- atomically $ modifyTVar' ncqWrites succ tracked <- readTVarIO ncqTrackedFiles <&> HPSQ.toList