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

wip, minor fix

This commit is contained in:
voidlizard 2025-07-11 13:16:08 +03:00
parent ec7eea1ac6
commit f6b756fd31
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hbs2-storage-ncq/lib/HBS2/Storage/NCQ2.hs
View File

@ -343,10 +343,9 @@ ncqStorageRun2 :: forall m . MonadUnliftIO m
-> m () -> m ()
ncqStorageRun2 ncq@NCQStorage2{..} = flip runContT pure do ncqStorageRun2 ncq@NCQStorage2{..} = flip runContT pure do
jobQ <- newTQueueIO
closeQ <- newTQueueIO closeQ <- newTQueueIO
closer <- ContT $ withAsync $ liftIO $ fix \loop -> do closer <- spawnActivity $ liftIO $ fix \loop -> do
what <- atomically do what <- atomically do
stop <- readTVar ncqStorageStopReq stop <- readTVar ncqStorageStopReq
tryReadTQueue closeQ >>= \case tryReadTQueue closeQ >>= \case
@ -367,8 +366,6 @@ ncqStorageRun2 ncq@NCQStorage2{..} = flip runContT pure do
ncqAlterEntrySTM ncq (coerce k) (const Nothing) ncqAlterEntrySTM ncq (coerce k) (const Nothing)
loop loop
link closer
spawnActivity $ forever (liftIO $ join $ atomically (readTQueue ncqJobQ)) spawnActivity $ forever (liftIO $ join $ atomically (readTQueue ncqJobQ))
spawnActivity measureWPS spawnActivity measureWPS