mirror of https://github.com/voidlizard/hbs2
wip
This commit is contained in:
parent
b4772f83ad
commit
d08f12a1d2
|
@ -5,6 +5,7 @@ module Main where
|
||||||
import HBS2.CLI.Prelude
|
import HBS2.CLI.Prelude
|
||||||
import HBS2.CLI.Run
|
import HBS2.CLI.Run
|
||||||
import HBS2.CLI.Run.KeyMan
|
import HBS2.CLI.Run.KeyMan
|
||||||
|
import HBS2.CLI.Run.MetaData
|
||||||
|
|
||||||
import HBS2.OrDie
|
import HBS2.OrDie
|
||||||
|
|
||||||
|
@ -126,6 +127,7 @@ main = do
|
||||||
|
|
||||||
internalEntries
|
internalEntries
|
||||||
keymanEntries
|
keymanEntries
|
||||||
|
metaDataEntries
|
||||||
|
|
||||||
entry $ bindMatch "help" $ nil_ $ \syn -> do
|
entry $ bindMatch "help" $ nil_ $ \syn -> do
|
||||||
|
|
||||||
|
|
|
@ -94,7 +94,6 @@ metaDataEntries = do
|
||||||
|
|
||||||
_ -> mzero
|
_ -> mzero
|
||||||
|
|
||||||
|
|
||||||
case (how, r) of
|
case (how, r) of
|
||||||
("parsed", Just (LitStrVal r0)) -> do
|
("parsed", Just (LitStrVal r0)) -> do
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue