From 40c3ac6d1ab0cfce9b5b8290c8485bd462fe2c12 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Thu, 25 Jul 2024 07:02:38 +0300
Subject: [PATCH] wip

---
 hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs b/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs
index 184e6ed9..a9ef0e94 100644
--- a/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs
+++ b/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs
@@ -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