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:
Dmitry Zuikov 2024-07-19 12:20:35 +03:00
parent 127d3cf62b
commit 03038c013b
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hbs2-cli/app/Main.hs
View File

@ -404,7 +404,6 @@ main = do
es -> do
pure $ mkForm "dict" es
tell $ bindMatch "map" $ \syn -> do
case syn of
[ListVal (SymbolVal "lambda" : SymbolVal fn : _), ListVal rs] -> do
@ -438,6 +437,14 @@ main = do
[ sy ] -> display sy
ss -> display (mkList ss)
tell $ bindMatch "newline" $ nil_ $ \case
[] -> liftIO (putStrLn "")
_ -> throwIO (BadFormException @C nil)
tell $ bindMatch "print" $ nil_ $ \case
[ sy ] -> display sy >> liftIO (putStrLn "")
ss -> mapM_ display ss >> liftIO (putStrLn "")
tell $ bindMatch "debug:show-cli" $ nil_ \case
_ -> display cli