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:
voidlizard 2025-05-18 10:14:09 +03:00
parent b03b6f6b5a
commit 4b683a8713
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
hbs2-tests/test/TestNCQ.hs
View File

@ -352,14 +352,12 @@ main = do
let dict = makeDict @C 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
internalEntries
entry $ bindMatch "#!" $ nil_ $ const none
entry $ bindMatch "--run" $ \case
(StringLike what : args) -> liftIO do
@ -419,6 +417,9 @@ main = do
e -> throwIO $ BadFormException @C (mkList e)
hidden do
internalEntries
entry $ bindMatch "#!" $ nil_ $ const none
setupLogger