From 4e1d422a04f060512e97e57a9e27c7c6fa0a270e Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Thu, 25 Jul 2024 18:52:41 +0300 Subject: [PATCH] wip --- hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs b/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs index 7ffd36ee..68972921 100644 --- a/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs +++ b/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs @@ -136,7 +136,8 @@ metaDataEntries = do SymbolVal "auto" -> pure [Auto] ListVal (SymbolVal "dict" : [ListVal [SymbolVal "encrypted", StringLike key]]) - -> pure [Encrypted key] + -> do + pure [Encrypted key] ListVal (SymbolVal "dict" : [ListVal [SymbolVal x, StringLike y]]) -> do pure [MetaDataEntry x y] @@ -167,6 +168,8 @@ metaDataEntries = do let meta1 = HM.fromList [ (txt n, txt e) | MetaDataEntry n e <- universeBi opts ] + error $ show opts + href <- createTreeWithMetadata (meta0 <> meta1) lbs pure $ mkStr (show $ pretty href)