[print out core when dumping libraries
John Meacham <john@repetae.net>**20110126205030
 Ignore-this: c4029042b522b8ee6234939535193d4b
] hunk ./src/Ho/Build.hs 836
+        forM_ (Map.toList $ libBuildMap l) $ \ (g,hoB) -> do
+            print g
+            wdump FD.Core $ do
+                putStrLn " ---- lambdacube  ---- "
+                mapM_ (\ (v,lc) -> putChar '\n' >> printCheckName'' (hoDataTable hoB) v lc) (hoEs hoB)
hunk ./src/Ho/Build.hs 890
-        where
-        printCheckName'' :: DataTable -> TVr -> E -> IO ()
-        printCheckName'' _dataTable tvr e = do
-            when (dump FD.EInfo || verbose2) $ putStrLn (show $ tvrInfo tvr)
-            putStrLn (render $ hang 4 (pprint tvr <+> text "::" <+> pprint (tvrType tvr)))
-            putStrLn (render $ hang 4 (pprint tvr <+> equals <+> pprint e))
+    printCheckName'' :: DataTable -> TVr -> E -> IO ()
+    printCheckName'' _dataTable tvr e = do
+        when (dump FD.EInfo || verbose2) $ putStrLn (show $ tvrInfo tvr)
+        putStrLn (render $ hang 4 (pprint tvr <+> text "::" <+> pprint (tvrType tvr)))
+        putStrLn (render $ hang 4 (pprint tvr <+> equals <+> pprint e))