wip

2025-05-26 18:41:40 +03:00 · 2025-05-26 18:41:40 +03:00 · 892712799e
parent ee0025c6a3
commit 892712799e
1 changed files with 5 additions and 3 deletions
--- 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