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