From 9722fa7c0128aa537f0db34506c5484fd7d52846 Mon Sep 17 00:00:00 2001
From: Dmitry Zuykov <dzuikov@gmail.com>
Date: Tue, 13 May 2025 10:46:09 +0300
Subject: [PATCH] wip

---
 hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs | 2 +-
 hbs2-tests/test/TCQ.hs                   | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs
index 70f62cd1..0e82cd23 100644
--- a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs
+++ b/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]
 
diff --git a/hbs2-tests/test/TCQ.hs b/hbs2-tests/test/TCQ.hs
index 838f9ea1..70b2ec8b 100644
--- a/hbs2-tests/test/TCQ.hs
+++ b/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)