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-08-01 05:30:00 +03:00
parent db9cfc0b2f
commit c50b16610f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-cli/lib/HBS2/CLI/Run/Internal.hs
View File

@ -600,7 +600,7 @@ internalEntries = do
entry $ bindMatch "parse-top" $ \case entry $ bindMatch "parse-top" $ \case
[SymbolVal w, LitStrVal s] -> do [SymbolVal w, LitStrVal s] -> do
pure $ parseTop s & either (const nil) (mkList . fmap (mkForm w . List.singleton) . fmap fixContext) pure $ parseTop s & either (const nil) (mkForm w . fmap fixContext)
[LitStrVal s] -> do [LitStrVal s] -> do
pure $ parseTop s & either (const nil) (mkList . fmap fixContext) pure $ parseTop s & either (const nil) (mkList . fmap fixContext)