[let --show-ho print core
John Meacham <john@repetae.net>**20060310033959] hunk ./Ho/Build.hs 37
+import E.Show
hunk ./Ho/Build.hs 223
+    wdump FD.Lambdacube $ do
+        putStrLn " ---- lambdacube  ---- "
+        mapM_ (\ (v,lc) -> printCheckName'' (hoDataTable ho) v lc) (Map.elems $ hoEs ho)
hunk ./Ho/Build.hs 228
+printCheckName'' :: DataTable -> TVr -> E -> IO ()
+printCheckName'' _dataTable tvr e = do
+    putErrLn (render $ hang 4 (pprint tvr <+> text "::" <+> pprint (tvrType tvr)))
+    putErrLn (render $ hang 4 (pprint tvr <+> equals <+> pprint e))