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