wip

hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs

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

hbs2-tests/test/TCQ.hs

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