From d08f12a1d2a3ed7ebf0b82e45da083ff7d8fb884 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Thu, 25 Jul 2024 06:39:34 +0300 Subject: [PATCH] wip --- hbs2-cli/app/Main.hs | 2 ++ hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs | 1 - 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/hbs2-cli/app/Main.hs b/hbs2-cli/app/Main.hs index f665fc0b..0dd5634f 100644 --- a/hbs2-cli/app/Main.hs +++ b/hbs2-cli/app/Main.hs @@ -5,6 +5,7 @@ module Main where import HBS2.CLI.Prelude import HBS2.CLI.Run import HBS2.CLI.Run.KeyMan +import HBS2.CLI.Run.MetaData import HBS2.OrDie @@ -126,6 +127,7 @@ main = do internalEntries keymanEntries + metaDataEntries entry $ bindMatch "help" $ nil_ $ \syn -> do diff --git a/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs b/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs index 1a835f28..0d3e5f2d 100644 --- a/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs +++ b/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs @@ -94,7 +94,6 @@ metaDataEntries = do _ -> mzero - case (how, r) of ("parsed", Just (LitStrVal r0)) -> do