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-25 07:02:38 +03:00
parent b349045d46
commit 40c3ac6d1a
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs
View File

@ -111,6 +111,9 @@ metaDataEntries = do
case syn of
(ListVal o : what : args) -> do
error $ show $ pretty o <+> pretty what <+> pretty args
(LitStrVal s : meta) -> do
let lbs = fromString (Text.unpack s) :: LBS.ByteString
h <- createTreeWithMetadata (metaFromSyntax meta) lbs