3 from Data.Func import $
10 derive gPrint MetaInst
12 Start w = startEngine t w
14 t = enterInformation "Enter MetaType" []
15 >&> \sh->whileUnchanged sh \mt->case mt of
16 Nothing = viewInformation () [] "No type entered"
17 Just mt = enterValueOfType mt
18 >&> viewSharedInformation "Value:" [ViewAs $ fmap lens] @! ""
20 lens :: (MetaInst -> String)