From 892712799e2dbd9b0c72d62ca0ed920a407cd439 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Mon, 26 May 2025 18:41:40 +0300
Subject: [PATCH] wip

---
 hbs2-tests/test/TCQ.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/hbs2-tests/test/TCQ.hs b/hbs2-tests/test/TCQ.hs
index 8ea0bfaa..3525051a 100644
--- a/hbs2-tests/test/TCQ.hs
+++ b/hbs2-tests/test/TCQ.hs
@@ -148,10 +148,12 @@ main = do
 
         entry $ bindMatch "--help" $ nil_ \case
           HelpEntryBound what -> helpEntry what
-          [StringLike s]      -> helpList False (Just s)
-          _                   -> helpList False Nothing
+          [StringLike s]      -> helpList True (Just s)
+          _                   -> helpList True Nothing
+
+
+        hidden $ internalEntries
 
-        internalEntries
         SF.entries
 
         entry $ bindMatch "#!" $ nil_ $ const none