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 18:52:41 +03:00
parent fcb7c07714
commit 4e1d422a04
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -136,7 +136,8 @@ metaDataEntries = do
SymbolVal "auto" -> pure [Auto] SymbolVal "auto" -> pure [Auto]
ListVal (SymbolVal "dict" : [ListVal [SymbolVal "encrypted", StringLike key]]) ListVal (SymbolVal "dict" : [ListVal [SymbolVal "encrypted", StringLike key]])
-> pure [Encrypted key] -> do
pure [Encrypted key]
ListVal (SymbolVal "dict" : [ListVal [SymbolVal x, StringLike y]]) -> do ListVal (SymbolVal "dict" : [ListVal [SymbolVal x, StringLike y]]) -> do
pure [MetaDataEntry x y] pure [MetaDataEntry x y]
@ -167,6 +168,8 @@ metaDataEntries = do
let meta1 = HM.fromList [ (txt n, txt e) | MetaDataEntry n e <- universeBi opts ] let meta1 = HM.fromList [ (txt n, txt e) | MetaDataEntry n e <- universeBi opts ]
error $ show opts
href <- createTreeWithMetadata (meta0 <> meta1) lbs href <- createTreeWithMetadata (meta0 <> meta1) lbs
pure $ mkStr (show $ pretty href) pure $ mkStr (show $ pretty href)