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

wip

This commit is contained in:
Dmitry Zuykov 2025-05-13 10:46:09 +03:00
parent aa3d32387d
commit 9722fa7c01
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs
View File

@ -310,7 +310,7 @@ ncqStorageRun ncq@NCQStorage{..} = flip runContT pure do
indexer <- makeIndexer indexQ indexer <- makeIndexer indexQ
writer <- makeWriter indexQ writer <- makeWriter indexQ
mapM_ waitCatch [writer,refsWriter] mapM_ waitCatch [writer,indexer,refsWriter]
-- mapM_ waitCatch [writer,indexer,refsWriter] -- ,indexer,refsWriter] -- mapM_ waitCatch [writer,indexer,refsWriter] -- ,indexer,refsWriter]
mapM_ cancel [reader] mapM_ cancel [reader]

2
hbs2-tests/test/TCQ.hs
View File

@ -133,6 +133,8 @@ main = do
internalEntries internalEntries
entry $ bindMatch "#!" $ nil_ $ const none
entry $ bindMatch "--run" $ \case entry $ bindMatch "--run" $ \case
[ StringLike what ] -> liftIO do [ StringLike what ] -> liftIO do
liftIO (readFile what) liftIO (readFile what)