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