[when doing --show-ho on a library, print more info.
John Meacham <john@repetae.net>**20110131040545
 Ignore-this: b14af67358f625f0db3c1dec68358f4
] hunk ./src/Ho/Build.hs 827
-
hunk ./src/Ho/Build.hs 837
-            wdump FD.Core $ do
-                putStrLn " ---- lambdacube  ---- "
-                mapM_ (\ (v,lc) -> putChar '\n' >> printCheckName'' (hoDataTable hoB) v lc) (hoEs hoB)
-
+            doHoB hoB
hunk ./src/Ho/Build.hs 846
-    --    when (not $ Prelude.null (hohMetaInfo hoh)) $ putStrLn $ "MetaInfo:\n" <> vindent (sort [text (' ':' ':k) <> char ':' <+> show v | (k,v) <- hohMetaInfo hoh])
hunk ./src/Ho/Build.hs 853
-        putStrLn $ "hoDataTable:" <+> tshow (size $  hoDataTable hoB)
-        putStrLn $ "hoEs:" <+> tshow (size $  hoEs hoB)
-        putStrLn $ "hoRules:" <+> tshow (size $  hoRules hoB)
hunk ./src/Ho/Build.hs 868
+        wdump FD.Types $ do
+            putStrLn " ---- the types of identifiers ---- "
+            putStrLn $ PPrint.render $ pprint (hoAssumps hoE)
+        doHoB hoB
+    doHoB hoB = do
+        putStrLn $ "hoDataTable:" <+> tshow (size $  hoDataTable hoB)
+        putStrLn $ "hoEs:" <+> tshow (size $  hoEs hoB)
+        putStrLn $ "hoRules:" <+> tshow (size $  hoRules hoB)
hunk ./src/Ho/Build.hs 884
-        wdump FD.Types $ do
-            putStrLn " ---- the types of identifiers ---- "
-            putStrLn $ PPrint.render $ pprint (hoAssumps hoE)